[bknr-cvs] r2521 - in branches/trunk-reorg/bknr/datastore/src: indices utils

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Sun Feb 17 11:38:38 2008
New Revision: 2521

Modified:
   branches/trunk-reorg/bknr/datastore/src/indices/package.lisp
   branches/trunk-reorg/bknr/datastore/src/utils/package.lisp
   branches/trunk-reorg/bknr/datastore/src/utils/smbpasswd.lisp
Log:
#+cmu removed :use :ext from defpackages bknr.utils and bknr.indices
as this does not seem to be needed and causes a symbol conflict


Modified: branches/trunk-reorg/bknr/datastore/src/indices/package.lisp
==============================================================================
--- branches/trunk-reorg/bknr/datastore/src/indices/package.lisp	(original)
+++ branches/trunk-reorg/bknr/datastore/src/indices/package.lisp	Sun Feb 17 11:38:38 2008
@@ -3,7 +3,6 @@
 (defpackage :bknr.indices
   (:use :cl
 	#+clisp :ext
-	#+cmu :ext
 	#+sbcl :sb-ext
 	:cl-user
 	:bknr.utils

Modified: branches/trunk-reorg/bknr/datastore/src/utils/package.lisp
==============================================================================
--- branches/trunk-reorg/bknr/datastore/src/utils/package.lisp	(original)
+++ branches/trunk-reorg/bknr/datastore/src/utils/package.lisp	Sun Feb 17 11:38:38 2008
@@ -5,7 +5,6 @@
         :cl-ppcre
         :cl-interpol
         :md5
-        #+cmu :extensions
         #+sbcl :sb-ext
         #+cmu :mp
         #+openmcl :ccl)

Modified: branches/trunk-reorg/bknr/datastore/src/utils/smbpasswd.lisp
==============================================================================
--- branches/trunk-reorg/bknr/datastore/src/utils/smbpasswd.lisp	(original)
+++ branches/trunk-reorg/bknr/datastore/src/utils/smbpasswd.lisp	Sun Feb 17 11:38:38 2008
@@ -29,9 +29,9 @@
       (let ((process
 	     (ext:run-program +smb-wrapper-program+ args :output stream :error :output)))
 	(unwind-protect
-	     (unless (zerop (process-exit-code process))
+	     (unless (zerop (ext:process-exit-code process))
 	       (error (make-condition 'smb-password-error :message (get-output-stream-string stream))))
-	  (process-close process)))
+	  (ext:process-close process)))
       #+openmcl
       (ccl::run-program +smb-wrapper-program+
 			args