From 8802eede9cdc3155d837ad5389f0f957fcbc4afd Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Mon, 19 Mar 2001 03:52:54 +0000 Subject: [PATCH] Flushed superfluous `pathname-filename'. --- src/main/utility.cl | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/main/utility.cl b/src/main/utility.cl index 40c61b9..0910120 100644 --- a/src/main/utility.cl +++ b/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