[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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

Modified Files:
	serializer.lisp 
Log Message:
Retract allegro ucs1 hack from last checking.  Confirm performance enhancement for large serialized structures with self-references

--- /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp	2006/05/06 19:19:26	1.5
+++ /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp	2006/05/06 19:21:23	1.6
@@ -90,7 +90,7 @@
 	      (buffer-write-byte 
 	       #+(and allegro ics)
 	       (etypecase s
-		 (base-string +ucs1-symbol+) ;; +ucs1-symbol+
+		 (base-string +ucs2-symbol+) ;; +ucs1-symbol+
 		 (string +ucs2-symbol+))
 	       #+(or (and sbcl sb-unicode) lispworks)
 	       (etypecase s 
@@ -110,7 +110,7 @@
 	    (buffer-write-byte 
 	     #+(and allegro ics)
 	     (etypecase frob
-	       (base-string +ucs1-string+)  ;; +ucs1-string+
+	       (base-string +ucs2-string+)  ;; +ucs1-string+
 	       (string +ucs2-string+))
 	     #+(or (and sbcl sb-unicode) lispworks)
 	     (etypecase frob
@@ -152,7 +152,7 @@
 	      (buffer-write-byte 
 	       #+(and allegro ics) 
 	       (etypecase s
-		 (base-string +ucs1-pathname+) ;;  +ucs1-pathname+
+		 (base-string +ucs2-pathname+) ;;  +ucs1-pathname+
 		 (string +ucs2-pathname+))
 	       #+(or (and sbcl sb-unicode) lispworks)
 	       (etypecase s