Changeset 2521
- Timestamp:
- 02/17/08 17:38:38 (9 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/trunk-reorg/bknr/datastore/src/indices/package.lisp
r2180 r2521 4 4 (:use :cl 5 5 #+clisp :ext 6 #+cmu :ext7 6 #+sbcl :sb-ext 8 7 :cl-user branches/trunk-reorg/bknr/datastore/src/utils/package.lisp
r2458 r2521 6 6 :cl-interpol 7 7 :md5 8 #+cmu :extensions9 8 #+sbcl :sb-ext 10 9 #+cmu :mp branches/trunk-reorg/bknr/datastore/src/utils/smbpasswd.lisp
r1824 r2521 30 30 (ext:run-program +smb-wrapper-program+ args :output stream :error :output))) 31 31 (unwind-protect 32 (unless (zerop ( process-exit-code process))32 (unless (zerop (ext:process-exit-code process)) 33 33 (error (make-condition 'smb-password-error :message (get-output-stream-string stream)))) 34 ( process-close process)))34 (ext:process-close process))) 35 35 #+openmcl 36 36 (ccl::run-program +smb-wrapper-program+
