[elephant-cvs] CVS elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant
In directory clnet:/tmp/cvs-serv1234

Modified Files:
	ele-bdb.asd elephant.asd 
Log Message:
Documentation edits; edi's lispworks patch to ele build

--- /project/elephant/cvsroot/elephant/ele-bdb.asd	2007/03/24 12:16:02	1.25
+++ /project/elephant/cvsroot/elephant/ele-bdb.asd	2007/04/19 05:24:37	1.26
@@ -31,7 +31,7 @@
 #+(or windows mswindows)
 (defun path-for-cygwin (path)
 "DOS pathname -> cygwin pathname. Replace backslashes with slashes and drive letter with directory.  
-e.g. \"C:\\dir\\\" -> \"/C/dir/\" (drive C: must be mounted as /C/ in cgwin)"
+e.g. \"C:\\dir\\\" -> \"/cygdrive/C/dir/\" "
   (let* ((result (namestring path))
          (colon-pos (position #\: result))
          (drive-letter (char result (1- colon-pos))))
@@ -69,7 +69,7 @@
 (defmethod foreign-libraries-to-load-first ((c bdb-c-source))
   (remove-if #'(lambda (x) (null (car x)))
 	     (list (cons (get-config-option :pthread-lib c) "pthread")
-	      (cons (get-config-option :berkeley-db-lib c) 
+	      (cons (get-config-option :berkeley-db-lib c)
 		    (get-config-option :berkeley-db-lib c)))))
 
 ;;
--- /project/elephant/cvsroot/elephant/elephant.asd	2007/04/06 02:51:46	1.42
+++ /project/elephant/cvsroot/elephant/elephant.asd	2007/04/19 05:24:37	1.43
@@ -108,7 +108,7 @@
                                          :library nil))))
         #+allegro (multiple-value-setq (stdout-lines stderr-lines exit-status) 
 		    (excl.osi:command-output command :directory directory))
-        #+lispworks (setf exit-status (system:call-system command :current-directory directory))
+        #+lispworks (setf exit-status (system:call-system-showing-output command :current-directory directory))
         (unless (zerop exit-status)
           (error 'operation-error :component c :operation o)))
 
@@ -118,7 +118,7 @@
                        (format nil "\"~A\"" (namestring (make-pathname :type "o" :defaults pathname))))))
         #+allegro (multiple-value-setq (stdout-lines stderr-lines exit-status) 
                       (excl.osi:command-output command :directory directory))
-        #+lispworks (setf exit-status (system:call-system command :current-directory directory))
+        #+lispworks (setf exit-status (system:call-system-showing-output command :current-directory directory))
         (unless (zerop exit-status)
           (error 'operation-error :component c :operation o)))
 
@@ -133,7 +133,7 @@
                                                :library t))))
         #+allegro (multiple-value-setq (stdout-lines stderr-lines exit-status)
                       (excl.osi:command-output command :directory directory))
-        #+lispworks (setf exit-status (system:call-system command :current-directory directory))
+        #+lispworks (setf exit-status (system:call-system-showing-output command :current-directory directory))
         (unless (zerop exit-status)
           (error 'operation-error :component c :operation o)))))