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))