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

Modified Files: controller.lisp serializer.lisp Log Message: Type declaration fixes for openmcl

--- /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2006/11/11 06:27:38 1.15 +++ /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2006/11/11 15:30:26 1.16 @@ -184,7 +184,7 @@ ;;

(defclass store-controller () - ((spec :type (or pathname string) + ((spec :type (or pathname string (simple-array character)) :accessor controller-spec :initarg :spec :documentation "Backend create functions should pass in :spec during make-instance") --- /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp 2006/09/05 03:23:17 1.12 +++ /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp 2006/11/11 15:30:26 1.13 @@ -362,7 +362,6 @@ (if maybe-package-name (intern name (find-package maybe-package-name)) (make-symbol name)))) - #+(or lispworks (and allegro ics)) ((= tag +ucs2-symbol+) (let ((name (buffer-read-ucs2-string bs (buffer-read-fixnum bs))) (maybe-package-name (%deserialize bs))) @@ -379,7 +378,6 @@ (make-symbol name)))) ((= tag +ucs1-string+) (buffer-read-ucs1-string bs (buffer-read-fixnum bs))) - #+(or lispworks (and allegro ics)) ((= tag +ucs2-string+) (buffer-read-ucs2-string bs (buffer-read-fixnum bs))) #+(and sbcl sb-unicode) @@ -399,7 +397,6 @@ ((= tag +ucs1-pathname+) (parse-namestring (or (buffer-read-ucs1-string bs (buffer-read-fixnum bs)) ""))) - #+(or lispworks (and allegro ics)) ((= tag +ucs2-pathname+) (parse-namestring (or (buffer-read-ucs2-string bs (buffer-read-fixnum bs)) "")))