Update of /project/cl-store/cvsroot/cl-store In directory common-lisp.net:/tmp/cvs-serv21713
Modified Files: ChangeLog circularities.lisp Log Message: Changelog 2005-03-24 Date: Thu Mar 24 09:29:49 2005 Author: sross
Index: cl-store/ChangeLog diff -u cl-store/ChangeLog:1.29 cl-store/ChangeLog:1.30 --- cl-store/ChangeLog:1.29 Thu Mar 24 09:25:16 2005 +++ cl-store/ChangeLog Thu Mar 24 09:29:48 2005 @@ -10,7 +10,7 @@ 2005-03-23 Sean Ross sross@common-lisp.net * backends.lisp: Fix up for type specifications for the old-magic-numbers and stream-type slots - for class backend. + for class backend, reported by Kilian Sprotte. * circularities.lisp: Changed *store-hash-size* and *restore-hash-size* to more reasonable values (50).
Index: cl-store/circularities.lisp diff -u cl-store/circularities.lisp:1.19 cl-store/circularities.lisp:1.20 --- cl-store/circularities.lisp:1.19 Thu Mar 24 09:25:17 2005 +++ cl-store/circularities.lisp Thu Mar 24 09:29:48 2005 @@ -114,7 +114,7 @@ nil)
(deftype not-circ () - "Type grouping integer, characters and symbols, which we + "Type grouping integers and characters, which we don't bother to check if they have been stored before" '(or integer character))
@@ -194,7 +194,7 @@ ; but was renamed to handle eq symbols (gensym's mainly). ; The basic concept is that we don't bother ; checking for circularities with integers or -; characters since these aren't gauraunteed to be eq +; characters since these aren't gauranteed to be eq ; even if they are the same object. ; (notes for eq in CLHS). (defgeneric int-or-char-p (backend fn)