Author: ctian Date: Sat Oct 20 10:40:48 2007 New Revision: 94
Modified: vendor/cl-http/lw/server/unix.lisp Log: More fix
Modified: vendor/cl-http/lw/server/unix.lisp ============================================================================== --- vendor/cl-http/lw/server/unix.lisp (original) +++ vendor/cl-http/lw/server/unix.lisp Sat Oct 20 10:40:48 2007 @@ -470,18 +470,18 @@ "Returns non-null if PATHNAME�denotes a directory." #+lispworks3.2 (lw:directoryp pathname) - #+lispworks4 + #+(or lispworks4 lispworks5) ;; (lw:file-directory-p pathname) ;this one touches the file system -- JCMa 10/9/2003 (system:directory-pathname-p pathname))
;;; When it's unclear what shell is used by CL, check the shell argument SHELL ;;; -- OBC -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun system (arg) (sys::call-system arg))
;;; OBC added -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun unix-sh-test (cond path &aux (strpath (cond ((stringp path) path) ((pathnamep path) (namestring path))))) @@ -609,21 +609,21 @@
(define create-directories-recursively (pathname) "Recursively create directories according to the directories present in PATHNAME." - #-LispWorks4 + #-(or LispWorks4 LispWorks5) (create-directory-recursively1 pathname) - #+LispWorks4 + #+(or LispWorks4 LispWorks5) (ensure-directories-exist pathname))
;;; For implementations where pathname-directory does ;;; not return NIL when there is no directory in the pathname. ;;; -- OBC -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun pathname-dirs (pathname) (let ((dirs (pathname-directory pathname))) (and (consp dirs) dirs)))
;;; -- OBC -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun create-a-directory (path &optional (error-p t)) (let ((str (namestring path))) ;;(directorystring path) (case (system (format nil "mkdir ~S" str)) @@ -636,12 +636,12 @@
;;; Return path if you can write in it or over it. ;;; -- OBC -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun file-permit-p (path &optional (permission "w")) (and (unix-sh-test (concatenate 'string "-" permission) path) path))
;;; -- OBC -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun create-directory-recursively1 (path &optional (error-p t)) (ctypecase path (string (setq path (translate-logical-pathname (pathname path))))