Flushed superfluous `pathname-filename'.

src/main/utility.cl

@@ -13,9 +13,6 @@
 ;;;; 
 ;;;; 
 
-(defun pathname-filename (p)
-  (concatenate 'string (pathname-name p) "." (pathname-type p)))
-
 (defun export-files (server type base &rest files)
   "Export all the given files as static resources from the given base.
 The files content-type is type and the files are exported as a
@@ -23,7 +20,7 @@ file-entity."
   (dolist (file files)
     (export-resource
      server
-     (merge-urls (make-instance 'url-http :name (pathname-filename file))
+     (merge-urls (make-instance 'url-http :name (file-namestring file))
 		 base)
      'static-resource
      :entity