[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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