[cl-store-cvs] CVS update: cl-store/package.lisp cl-store/store.lisp - cl-store-cvs@common-lisp.net - mailman3.common-lisp.net

5 Jun 2004

Update of /project/cl-store/cvsroot/cl-store
In directory common-lisp.net:/tmp/cvs-serv2864
Modified Files:
    package.lisp store.lisp 
Log Message:
spelling error again.
Date: Sat Jun  5 03:26:37 2004
Author: sross
Index: cl-store/package.lisp
diff -u cl-store/package.lisp:1.5 cl-store/package.lisp:1.6

--- cl-store/package.lisp:1.5	Fri Jun  4 07:03:46 2004
+++ cl-store/package.lisp	Sat Jun  5 03:26:37 2004
@@ -58,7 +58,7 @@
                        class-direct-superclasses
                        class-slots
                        ensure-class)
-  #+cmu (:shadowing-import-form :pcl
+  #+cmu (:shadowing-import-from :pcl
                                 standard-class
                                 class-of)
Index: cl-store/store.lisp
diff -u cl-store/store.lisp:1.3 cl-store/store.lisp:1.4
--- cl-store/store.lisp:1.3	Fri May 21 07:14:40 2004
+++ cl-store/store.lisp	Sat Jun  5 03:26:37 2004
@@ -8,6 +8,10 @@
TODO:
 =====
+- specify types when registering new types.
+
+- Add some sort of backend choosing mechanism.
+
 - Add some sort of EOF mechanism.
- add support for working directly with an implementations
@@ -249,7 +253,7 @@
 ;; According to the notes for eq in the CLHS, 
 ;; Common Lisp makes no guarantee that eq is true even when both
 ;; its arguments are the 'same thing' if that thing is a character or number.
-;; but we attempt to handle it for anything thats not an integer.
+;; so we don't worry about it 
 (defun integer-or-symbolp (code)
   (member code `(,(lookup-type 'integer)
                  ,(lookup-type 'symbol)

    