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