From sross at common-lisp.net  Fri Jun  4 13:54:21 2004
From: sross at common-lisp.net (Sean Ross)
Date: Fri, 04 Jun 2004 06:54:21 -0700
Subject: [cl-store-cvs] CVS update: Directory change: cl-store/mcl
Message-ID: <E1BWF9J-0006iQ-00@common-lisp.net>

Update of /project/cl-store/cvsroot/cl-store/mcl
In directory common-lisp.net:/tmp/cvs-serv25808/mcl

Log Message:
Directory /project/cl-store/cvsroot/cl-store/mcl added to the repository

Date: Fri Jun  4 06:54:21 2004
Author: sross
New directory cl-store/mcl added



From sross at common-lisp.net  Fri Jun  4 13:55:33 2004
From: sross at common-lisp.net (Sean Ross)
Date: Fri, 04 Jun 2004 06:55:33 -0700
Subject: [cl-store-cvs] CVS update: cl-store/ChangeLog
	cl-store/circularities.lisp cl-store/cl-store.asd
	cl-store/package.lisp 
Message-ID: <E1BWFAT-0007fM-00@common-lisp.net>

Update of /project/cl-store/cvsroot/cl-store
In directory common-lisp.net:/tmp/cvs-serv29152

Modified Files:
	ChangeLog circularities.lisp cl-store.asd package.lisp 
Log Message:
ChangeLog 2004-06-04.

Date: Fri Jun  4 06:55:33 2004
Author: sross

Index: cl-store/ChangeLog
diff -u cl-store/ChangeLog:1.3 cl-store/ChangeLog:1.4
--- cl-store/ChangeLog:1.3	Fri May 21 07:14:39 2004
+++ cl-store/ChangeLog	Fri Jun  4 06:55:33 2004
@@ -1,3 +1,9 @@
+2004-06-04 Sean Ross <sdr at jhb.ucs.co.za>
+   * circularities.lisp: spelling fix.
+   * cl-store.asd: Specialized operation-done-p to stop some errors.
+   * package.lisp: Imports for openmcl from Robert Sedgewick,
+                   Along with extra imports for cmucl.
+
 2004-05-21 Sean Ross <sdr at jhb.ucs.co.za>
    * store.lisp, fix-clisp.lisp, circularities.lisp, package.lisp
    tests.lisp, utils.lisp, cl-store.asd:


Index: cl-store/circularities.lisp
diff -u cl-store/circularities.lisp:1.3 cl-store/circularities.lisp:1.4
--- cl-store/circularities.lisp:1.3	Fri May 21 07:14:40 2004
+++ cl-store/circularities.lisp	Fri Jun  4 06:55:33 2004
@@ -21,7 +21,7 @@
            hash))
 
 
-(defgeneric innner-fix-circularities (hash obj))
+(defgeneric inner-fix-circularities (hash obj))
 
 (defun fix-circularities (val1 val2 )
   (aif (gethash val2 *seen-while-fixing*)


Index: cl-store/cl-store.asd
diff -u cl-store/cl-store.asd:1.3 cl-store/cl-store.asd:1.4
--- cl-store/cl-store.asd:1.3	Fri May 21 07:14:40 2004
+++ cl-store/cl-store.asd	Fri Jun  4 06:55:33 2004
@@ -12,7 +12,7 @@
    "File containing implementation dependent code which may or may not be there."))
 
 (defun lisp-system-shortname ()
-  #+lispworks :lispworks #+cmu :cmucl #+clisp :clisp #+sbcl :sbcl)
+  #+mcl mcl #+lispworks :lispworks #+cmu :cmucl #+clisp :clisp #+sbcl :sbcl)
 
 (defmethod component-pathname ((component non-required-file))
   (let ((pathname (call-next-method))
@@ -29,12 +29,16 @@
   (when (probe-file (component-pathname component))
     (call-next-method)))
 
+(defmethod operation-done-p ((o operation) (c non-required-file))
+  (when (probe-file (component-pathname c))
+    (call-next-method)))
+
 
 (defsystem cl-store
   :name "Store"
   :author "Sean Ross <sdr at jhb.ucs.co.za>"
   :maintainer "Sean Ross <sdr at jhb.ucs.co.za>"
-  :version "0.1.2"
+  :version "0.1.3"
   :description "Serialization package"
   :long-description "Portable CL Package to serialize data types"
   :licence "MIT"


Index: cl-store/package.lisp
diff -u cl-store/package.lisp:1.3 cl-store/package.lisp:1.4
--- cl-store/package.lisp:1.3	Fri May 21 07:14:40 2004
+++ cl-store/package.lisp	Fri Jun  4 06:55:33 2004
@@ -24,68 +24,72 @@
            :*nuke-existing-classes*
            :*store-class-superclasses*)
   #+sbcl (:import-from :sb-mop
-                       :slot-definition-name
-                       :slot-value-using-class
-                       :slot-boundp-using-class
-                       :slot-definition-allocation
-                       :compute-slots
-                       :slot-definition-initform
-                       :slot-definition-initargs
-                       :slot-definition-name
-                       :slot-definition-readers
-                       :slot-definition-type
-                       :slot-definition-writers
-                       :class-direct-default-initargs
-                       :class-direct-slots
-                       :class-direct-superclasses
-                       :class-slots
-                       :ensure-class)
+                       slot-definition-name
+                       slot-value-using-class
+                       slot-boundp-using-class
+                       slot-definition-allocation
+                       compute-slots
+                       slot-definition-initform
+                       slot-definition-initargs
+                       slot-definition-name
+                       slot-definition-readers
+                       slot-definition-type
+                       slot-definition-writers
+                       class-direct-default-initargs
+                       class-direct-slots
+                       class-direct-superclasses
+                       class-slots
+                       ensure-class)
   
   #+cmu  (:import-from :pcl
-                       :slot-definition-name
-                       :slot-value-using-class
-                       :slot-boundp-using-class
-                       :slot-definition-allocation
-                       :compute-slots
-                       :slot-definition-initform
-                       :slot-definition-initargs
-                       :slot-definition-name
-                       :slot-definition-readers
-                       :slot-definition-type
-                       :slot-definition-writers
-                       :class-direct-default-initargs
-                       :class-direct-slots
-                       :class-direct-superclasses
-                       :class-slots
-                       :ensure-class)
+                       slot-definition-name
+                       slot-value-using-class
+                       slot-boundp-using-class
+                       slot-definition-allocation
+                       compute-slots
+                       slot-definition-initform
+                       slot-definition-initargs
+                       slot-definition-name
+                       slot-definition-readers
+                       slot-definition-type
+                       slot-definition-writers
+                       class-direct-default-initargs
+                       class-direct-slots
+                       class-direct-superclasses
+                       class-slots
+                       ensure-class)
+  #+cmu (:shadowing-import-form :pcl
+                                standard-class
+                                class-of)
+                                
   
   #+clisp (:import-from :clos
-                        :slot-value
-                        :std-compute-slots
-                        :slot-boundp
-                        :class-name
-                        :class-direct-default-initargs
-                        :class-direct-slots
-                        :class-slots
-                        :ensure-class)
+                        slot-value
+                        std-compute-slots
+                        slot-boundp
+                        class-name
+                        class-direct-default-initargs
+                        class-direct-slots
+                        class-slots
+                        ensure-class)
     
   #+lispworks  (:import-from :clos
-                             :slot-definition-name
-                             :slot-value-using-class
-                             :slot-boundp-using-class
-                             :slot-definition-allocation
-                             :compute-slots
-                             :slot-definition-initform
-                             :slot-definition-initargs
-                             :slot-definition-name
-                             :slot-definition-readers
-                             :slot-definition-type
-                             :slot-definition-writers
-                             :class-direct-default-initargs
-                             :class-direct-slots
-                             :class-slots
-                             :class-direct-superclasses
-                             :ensure-class))
+                             slot-definition-name
+                             slot-value-using-class
+                             slot-boundp-using-class
+                             slot-definition-allocation
+                             compute-slots
+                             slot-definition-initform
+                             slot-definition-initargs
+                             slot-definition-name
+                             slot-definition-readers
+                             slot-definition-type
+                             slot-definition-writers
+                             class-direct-default-initargs
+                             class-direct-slots
+                             class-slots
+                             class-direct-superclasses
+                             ensure-class))
 
 
 




From sross at common-lisp.net  Fri Jun  4 14:03:46 2004
From: sross at common-lisp.net (Sean Ross)
Date: Fri, 04 Jun 2004 07:03:46 -0700
Subject: [cl-store-cvs] CVS update: cl-store/package.lisp 
Message-ID: <E1BWFIQ-0000p9-00@common-lisp.net>

Update of /project/cl-store/cvsroot/cl-store
In directory common-lisp.net:/tmp/cvs-serv3078

Modified Files:
	package.lisp 
Log Message:
Whoops, forgot the openmcl imports


Date: Fri Jun  4 07:03:46 2004
Author: sross

Index: cl-store/package.lisp
diff -u cl-store/package.lisp:1.4 cl-store/package.lisp:1.5
--- cl-store/package.lisp:1.4	Fri Jun  4 06:55:33 2004
+++ cl-store/package.lisp	Fri Jun  4 07:03:46 2004
@@ -62,7 +62,24 @@
                                 standard-class
                                 class-of)
                                 
-  
+  #+openmcl (:import-from :openmcl-mop
+                       slot-definition-name
+                       slot-value-using-class
+                       slot-boundp-using-class
+                       slot-definition-allocation
+                       compute-slots
+                       slot-definition-initform
+                       slot-definition-initargs
+                       slot-definition-name
+                       slot-definition-readers
+                       slot-definition-type
+                       slot-definition-writers
+                       class-direct-default-initargs
+                       class-direct-slots
+                       class-direct-superclasses
+                       class-slots
+                       ensure-class)
+ 
   #+clisp (:import-from :clos
                         slot-value
                         std-compute-slots




From sross at common-lisp.net  Sat Jun  5 10:26:38 2004
From: sross at common-lisp.net (Sean Ross)
Date: Sat, 05 Jun 2004 03:26:38 -0700
Subject: [cl-store-cvs] CVS update: cl-store/package.lisp
	cl-store/store.lisp 
Message-ID: <E1BWYNq-0000kb-00@common-lisp.net>

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)




From sross at common-lisp.net  Sat Jun  5 11:56:43 2004
From: sross at common-lisp.net (Sean Ross)
Date: Sat, 05 Jun 2004 04:56:43 -0700
Subject: [cl-store-cvs] CVS update: cl-store/README cl-store/package.lisp 
Message-ID: <E1BWZn1-00051l-00@common-lisp.net>

Update of /project/cl-store/cvsroot/cl-store
In directory common-lisp.net:/tmp/cvs-serv19147

Modified Files:
	README package.lisp 
Log Message:
Added Readme notice for older cmucl versions and class storing.
Shadow imports from pcl for cmucl


Date: Sat Jun  5 04:56:42 2004
Author: sross

Index: cl-store/README
diff -u cl-store/README:1.2 cl-store/README:1.3
--- cl-store/README:1.2	Fri May 21 07:14:40 2004
+++ cl-store/README	Sat Jun  5 04:56:42 2004
@@ -58,7 +58,7 @@
  
  
 4. Issues
-   There are a number of issues with CL-STORE as it stands (0.1.2).
+   There are a number of issues with CL-STORE as it stands (0.1.3).
    
    - Functions, closures and anything remotely funcallable is unserializable.
    - MOP classes are largely unsupported at the moment.
@@ -76,6 +76,9 @@
      created from sockets DO NOT set *full-write* to nil as this 
      will invariably hang. This has been resolved for SBCL and
      you can store and restore objects directly to and from sockets.
+   - Older cmucl versions, where (eq 'cl:class 'pcl::class)
+     returns nil, cannot store classes obtained using cl:find-class.
+     The solution for this is to use pcl::find-class.
      
 
 Enjoy


Index: cl-store/package.lisp
diff -u cl-store/package.lisp:1.6 cl-store/package.lisp:1.7
--- cl-store/package.lisp:1.6	Sat Jun  5 03:26:37 2004
+++ cl-store/package.lisp	Sat Jun  5 04:56:42 2004
@@ -58,7 +58,10 @@
                        class-direct-superclasses
                        class-slots
                        ensure-class)
+  
   #+cmu (:shadowing-import-from :pcl
+                                class-name
+                                find-class
                                 standard-class
                                 class-of)