[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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

Modified Files:
	classindex.lisp serializer.lisp 
Log Message:
Updated classindex with typo fix by aycan.irican at core.gen.tr

--- /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp	2006/06/19 01:03:30	1.13
+++ /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp	2006/07/21 16:32:45	1.14
@@ -261,8 +261,8 @@
 	  (add-index (find-class-index class :sc sc)
 		     :index-name slot-name 
 		     :key-form (make-slot-key-form class slot-name)
-		     :populate populate))
-	t))
+		     :populate populate)
+	  t)))
 
 (defmethod remove-class-slot-index ((class symbol) slot-name &key (sc *store-controller*))
   (remove-class-slot-index (find-class class) slot-name :sc sc))
--- /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp	2006/06/19 16:43:51	1.8
+++ /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp	2006/07/21 16:32:45	1.9
@@ -150,7 +150,7 @@
 	    (let ((s (namestring frob)))
 	      (declare (type string s) (dynamic-extent s))
 	      (buffer-write-byte 
-	       #+(and allegro ics) 
+	       #+(and allegro ics)
 	       (etypecase s
 		 (base-string +ucs1-pathname+) ;;  +ucs1-pathname+
 		 (string +ucs2-pathname+))