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