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

Modified Files: controller.lisp unicode2.lisp Log Message: Clean up auto-commit usage in tests; change buffer-stream to unsigned-char - this may break things for sbcl but works for Allegro on Mac OS X

--- /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2007/02/02 23:51:58 1.27 +++ /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2007/02/03 04:09:13 1.28 @@ -119,8 +119,8 @@ (unless *store-controller* (setq *store-controller* controller)) (load-user-configuration controller) - (apply #'open-controller controller args) (initialize-serializer controller) + (apply #'open-controller controller args) controller))

(defun close-store (&optional sc) --- /project/elephant/cvsroot/elephant/src/elephant/unicode2.lisp 2007/02/02 23:51:58 1.3 +++ /project/elephant/cvsroot/elephant/src/elephant/unicode2.lisp 2007/02/03 04:09:13 1.4 @@ -112,16 +112,20 @@ (let ((code (char-code (schar string i)))) (when (> code #xFFFF) (fail)) (setf (uffi:deref-array buffer 'array-or-pointer-char (+ (* i 2) size)) +;; (coerce (ldb (byte 8 8) code) '(signed 8))) (ldb (byte 8 8) code)) (setf (uffi:deref-array buffer 'array-or-pointer-char (+ (* i 2) size 1)) +;; (coerce (ldb (byte 8 0) code) '(signed 8)))))) (ldb (byte 8 0) code))))) (string (loop for i fixnum from 0 below characters do - (let ((code (char-code (char string i)))) + (let ((code (char-code (schar string i)))) (when (> code #xFFFF) (fail)) (setf (uffi:deref-array buffer 'array-or-pointer-char (+ (* i 2) size)) +;; (coerce (ldb (byte 8 8) code) '(signed 8))) (ldb (byte 8 8) code)) (setf (uffi:deref-array buffer 'array-or-pointer-char (+ (* i 2) size 1)) +;; (coerce (ldb (byte 8 0) code) '(signed 8))))))) (ldb (byte 8 0) code)))))) (incf size (* characters 2)) (succeed))))))