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