[cl-net-snmp-cvs] r94 - vendor/cl-http/lw/server

[ctian at common-lisp.net]

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))))