June 2004 - cl-store-cvs@common-lisp.net - mailman3.common-lisp.net

[cl-store-cvs] CVS update: cl-store/README cl-store/package.lisp
by Sean Ross 05 Jun '04

05 Jun '04

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)

1 0

[cl-store-cvs] CVS update: cl-store/package.lisp cl-store/store.lisp
by Sean Ross 05 Jun '04

05 Jun '04

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)

1 0

[cl-store-cvs] CVS update: cl-store/package.lisp
by Sean Ross 04 Jun '04

04 Jun '04

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

1 0

[cl-store-cvs] CVS update: cl-store/ChangeLog cl-store/circularities.lisp cl-store/cl-store.asd cl-store/package.lisp
by Sean Ross 04 Jun '04

04 Jun '04

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(a)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(a)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(a)jhb.ucs.co.za>" :maintainer "Sean Ross <sdr(a)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))

1 0

[cl-store-cvs] CVS update: Directory change: cl-store/mcl
by Sean Ross 04 Jun '04

04 Jun '04

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

1 0