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