OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Flushed superfluous `pathname-filename'.

Browse Source
This commit is contained in:
Pierre R. Mai
2001-03-19 03:52:54 +00:00
parent e8ac99790e
commit 8802eede9c
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/main/utility.cl
View File

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