[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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