- cl-store-cvs@lists.common-lisp.net - mailman3.common-lisp.net

[cl-store-cvs] CVS update: Directory change: cl-store/doc/html/CL-STORE
by Sean Ross 06 Oct '04

06 Oct '04

Update of /project/cl-store/cvsroot/cl-store/doc/html/CL-STORE In directory common-lisp.net:/tmp/cvs-serv3749/CL-STORE Log Message: Directory /project/cl-store/cvsroot/cl-store/doc/html/CL-STORE added to the repository Date: Wed Oct 6 15:52:13 2004 Author: sross New directory cl-store/doc/html/CL-STORE added

1 0

[cl-store-cvs] CVS update: Directory change: cl-store/doc/html
by Sean Ross 06 Oct '04

06 Oct '04

Update of /project/cl-store/cvsroot/cl-store/doc/html In directory common-lisp.net:/tmp/cvs-serv3727/doc/html Log Message: Directory /project/cl-store/cvsroot/cl-store/doc/html added to the repository Date: Wed Oct 6 15:48:40 2004 Author: sross New directory cl-store/doc/html added

1 0

[cl-store-cvs] CVS update: cl-store/lispworks/custom.lisp
by Sean Ross 01 Oct '04

01 Oct '04

Update of /project/cl-store/cvsroot/cl-store/lispworks In directory common-lisp.net:/tmp/cvs-serv19698/lispworks Modified Files: custom.lisp Log Message: Changelog 2004-10-01 Date: Fri Oct 1 10:49:47 2004 Author: sross Index: cl-store/lispworks/custom.lisp diff -u cl-store/lispworks/custom.lisp:1.1 cl-store/lispworks/custom.lisp:1.2 --- cl-store/lispworks/custom.lisp:1.1 Mon Aug 30 17:10:23 2004 +++ cl-store/lispworks/custom.lisp Fri Oct 1 10:49:47 2004 @@ -3,7 +3,54 @@ (in-package :cl-store) +;; custom support for infinite floats from Alain Picard. +(defconstant +positive-infinity+ (expt most-positive-double-float 2)) +(defconstant +negative-infinity+ (expt most-negative-double-float 3)) +(defun positive-infinity-p (number) + (> number most-positive-double-float)) + +(defun negative-infinity-p (number) + (< number most-negative-double-float)) + +;; Attempt at fixing broken storing infinity problem +(defstore-cl-store (obj float stream) + (block body + (let (significand exponent sign) + (handler-bind ((simple-error + #'(lambda (err) + (declare (ignore err)) + (cond + ((positive-infinity-p obj) + (output-type-code +positive-infinity-code+ stream) + (return-from body)) ; success + ((negative-infinity-p obj) + (output-type-code +negative-infinity-code+ stream) + (return-from body)) ; success + (t + ;; Unclear what _other_ sort of error we can + ;; get by failing to decode a float, but, + ;; anyway, let the caller handle them... + nil))))) + (multiple-value-setq (significand exponent sign) + (integer-decode-float obj)) + (output-type-code +float-code+ stream) + (write-byte (float-type obj) stream) + (store-object significand stream) + (store-object exponent stream) + (store-object sign stream))))) + + +(defrestore-cl-store (negative-infinity stream) + (declare (ignore stream)) + +negative-infinity+) + +(defrestore-cl-store (positive-infinity stream) + (declare (ignore stream)) + +positive-infinity+) + + +;; Custom structure storing from Alain Picard. (defstore-cl-store (obj structure-object stream) (output-type-code +structure-object-code+ stream) (let* ((slot-names (structure:structure-class-slot-names (class-of obj))))

1 0

[cl-store-cvs] CVS update: cl-store/ChangeLog cl-store/README cl-store/cl-store.asd cl-store/default-backend.lisp cl-store/tests.lisp
by Sean Ross 01 Oct '04

01 Oct '04

Update of /project/cl-store/cvsroot/cl-store In directory common-lisp.net:/tmp/cvs-serv19698 Modified Files: ChangeLog README cl-store.asd default-backend.lisp tests.lisp Log Message: Changelog 2004-10-01 Date: Fri Oct 1 10:49:46 2004 Author: sross Index: cl-store/ChangeLog diff -u cl-store/ChangeLog:1.8 cl-store/ChangeLog:1.9 --- cl-store/ChangeLog:1.8 Mon Sep 27 13:24:18 2004 +++ cl-store/ChangeLog Fri Oct 1 10:49:46 2004 @@ -1,3 +1,7 @@ +2004-10-01 Sean Ross <sdr(a)jhb.ucs.co.za> + * lispworks/custom.lisp: Lispworks support for inifinite floats from Alain Picard. + * tests.lisp: Infite float tests for lispworks. + 2004-09-27 Sean Ross <sdr(a)jhb.ucs.co.za> * plumbing.lisp: Slightly nicer error handling (I think). All conditions caught in store and restore are resignalled Index: cl-store/README diff -u cl-store/README:1.6 cl-store/README:1.7 --- cl-store/README:1.6 Mon Aug 30 17:10:20 2004 +++ cl-store/README Fri Oct 1 10:49:46 2004 @@ -1,7 +1,7 @@ README for Package CL-STORE. Author: Sean Ross Homepage: http://www.common-lisp.net/project/cl-store/ -Version: 0.2 +Version: 0.2.5 0. About. CL-STORE is an portable serialization package which @@ -34,8 +34,8 @@ The two main entry points are - cl-store:store (obj place &optional (backend *default-backend*)) i => obj - Where place is a path designator, stream or socket and - backend is one of the registered backend. + Where place is a path designator or stream and + backend is one of the registered backends. - cl-store:restore (place &optional (backend *default-backend*)) => restored-obj @@ -81,6 +81,11 @@ Two backends are in releases now, a default backend which is much what cl-store used to be (pre 0.2) and an xml backend which writes out xml to character streams. + + NOTE: As of 0.2.5 the xml backend isn't actively being developed. + It's turning out to more of a pain than it's worth. It is now + only there as an example. + Store and Restore now take an optional backend argument which currently can be one of *default-backend* or *xml-backend*. @@ -90,7 +95,7 @@ 5. Issues - There are a number of issues with CL-STORE as it stands (0.2). + There are a number of issues with CL-STORE as it stands (0.2.5). - Functions, closures and anything remotely funcallable is unserializable. - MOP classes are largely unsupported at the moment. Index: cl-store/cl-store.asd diff -u cl-store/cl-store.asd:1.8 cl-store/cl-store.asd:1.9 --- cl-store/cl-store.asd:1.8 Mon Sep 27 13:24:18 2004 +++ cl-store/cl-store.asd Fri Oct 1 10:49:46 2004 @@ -39,7 +39,7 @@ :name "CL-STORE" :author "Sean Ross <sdr(a)jhb.ucs.co.za>" :maintainer "Sean Ross <sdr(a)jhb.ucs.co.za>" - :version "0.2.3" + :version "0.2.5" :description "Serialization package" :long-description "Portable CL Package to serialize data types" :licence "MIT" Index: cl-store/default-backend.lisp diff -u cl-store/default-backend.lisp:1.6 cl-store/default-backend.lisp:1.7 --- cl-store/default-backend.lisp:1.6 Mon Sep 27 13:24:18 2004 +++ cl-store/default-backend.lisp Fri Oct 1 10:49:46 2004 @@ -46,7 +46,11 @@ (defconstant +array-code+ (register-code 19 'array)) (defconstant +simple-vector-code+ (register-code 20 'simple-vector)) (defconstant +package-code+ (register-code 21 'package)) -(defconstant +function-code+ (register-code 22 'function)) + +;; Used by lispworks +(defconstant +positive-infinity-code+ (register-code 22 'positive-infinity)) +(defconstant +negative-infinity-code+ (register-code 23 'negative-infinity)) + ;; setups for type code mapping (defun output-type-code (code stream) @@ -148,6 +152,7 @@ ;; Is integer-decode-float the Right Thing, or should we ;; be using something like sb-kernel:single-float-bits ;; and sb-kernel:make-single-float +#-lispworks (defstore-cl-store (obj float stream) (output-type-code +float-code+ stream) (multiple-value-bind (significand exponent sign) @@ -158,11 +163,10 @@ (store-object sign stream))) (defrestore-cl-store (float stream) - (let ((type (get-float-type (read-byte stream))) - (significand (restore-object stream)) - (exponent (restore-object stream)) - (sign (restore-object stream))) - (float (* (* significand (* 1.0d0 (expt 2 exponent))) sign) type))) + (float (* (get-float-type (read-byte stream)) + (* (restore-object stream) + (* 1.0d0 (expt 2 (restore-object stream)))) + (restore-object stream)))) ;; ratio (defstore-cl-store (obj ratio stream) @@ -178,22 +182,18 @@ (output-type-code +character-code+ stream) (store-object (char-code obj) stream)) - (defrestore-cl-store (character stream) (code-char (restore-object stream))) ;; complex (defstore-cl-store (obj complex stream) (output-type-code +complex-code+ stream) - (let ((real (realpart obj)) - (imag (imagpart obj))) - (store-object real stream) - (store-object imag stream))) + (store-object (realpart obj) stream) + (store-object (imagpart obj) stream)) (defrestore-cl-store (complex stream) - (let ((real (restore-object stream)) - (imag (restore-object stream))) - (complex real imag))) + (complex (restore-object stream) + (restore-object stream))) ;; symbols (defstore-cl-store (obj symbol stream) @@ -208,7 +208,6 @@ (let ((package (restore-simple-standard-string stream)) (name (restore-simple-standard-string stream))) (values (intern name package)))) - ;; lists (defstore-cl-store (obj cons stream) Index: cl-store/tests.lisp diff -u cl-store/tests.lisp:1.5 cl-store/tests.lisp:1.6 --- cl-store/tests.lisp:1.5 Mon Aug 30 17:10:20 2004 +++ cl-store/tests.lisp Fri Oct 1 10:49:46 2004 @@ -61,6 +61,13 @@ (deftestit double-float.5 most-positive-double-float) (deftestit double-float.6 most-negative-double-float) +;; infinite floats +#+lispworks +(deftestit infinite-float.1 cl-store::+negative-infinity+) +#+lispworks +(deftestit infinite-float.2 cl-store::+positive-infinity+) + + ;; characters (deftestit char.1 #\Space) (deftestit char.2 #\f ) @@ -426,7 +433,7 @@ (defclass random-obj () ((size :accessor size :initarg :size))) -(defvar *random-obj-code* (register-code 22 'random-obj)) +(defvar *random-obj-code* (register-code 100 'random-obj)) (defstore-cl-store (obj random-obj buff) (output-type-code *random-obj-code* buff) @@ -452,9 +459,6 @@ (defun run-tests () (format t "~&RUNNING TESTS USING CL-STORE-BACKEND~%") (with-backend (cl-store) - (regression-test:do-tests)) - (format t "~&RUNNING TESTS USING XML-BACKEND~%") - (with-backend (xml) (regression-test:do-tests)) (when (probe-file *test-file*) (delete-file *test-file*)))

1 0

[cl-store-cvs] CVS update: cl-store/ChangeLog cl-store/circularities.lisp cl-store/cl-store.asd cl-store/default-backend.lisp cl-store/package.lisp cl-store/plumbing.lisp
by Sean Ross 27 Sep '04

27 Sep '04

Update of /project/cl-store/cvsroot/cl-store In directory common-lisp.net:/tmp/cvs-serv23541 Modified Files: ChangeLog circularities.lisp cl-store.asd default-backend.lisp package.lisp plumbing.lisp Log Message: See ChangeLog 2004-09-27 Date: Mon Sep 27 13:24:18 2004 Author: sross Index: cl-store/ChangeLog diff -u cl-store/ChangeLog:1.7 cl-store/ChangeLog:1.8 --- cl-store/ChangeLog:1.7 Sun Sep 5 16:56:06 2004 +++ cl-store/ChangeLog Mon Sep 27 13:24:18 2004 @@ -1,3 +1,8 @@ +2004-09-27 Sean Ross <sdr(a)jhb.ucs.co.za> + * plumbing.lisp: Slightly nicer error handling (I think). + All conditions caught in store and restore are resignalled + and rethrown as a store or restore error respectively. + 2004-09-01 Sean Ross <sdr(a)jhb.ucs.co.za> * sbcl/custom.lisp, sbcl/custom-xml.lisp: Custom structure storing. * cmucl/custom.lisp, cmucl/custom-xml.lisp: Custom structure storing. Index: cl-store/circularities.lisp diff -u cl-store/circularities.lisp:1.6 cl-store/circularities.lisp:1.7 --- cl-store/circularities.lisp:1.6 Mon Aug 30 17:10:20 2004 +++ cl-store/circularities.lisp Mon Sep 27 13:24:18 2004 @@ -116,7 +116,7 @@ (defvar *stored-values*) -(defmethod backend-store ((obj t) (place t) (backend resolving-backend)) +(defmethod backend-store ((obj t) (place stream) (backend resolving-backend)) "Store OBJ into PLACE. Does the setup for counters and seen values." (let ((*stored-counter* 0) (*stored-values* (make-hash-table :test #'eq))) @@ -185,10 +185,10 @@ (*restored-values* (make-hash-table))) (check-stream-element-type place backend) (check-magic-number place backend) - (let ((obj (backend-restore-object place backend))) + (prog1 + (backend-restore-object place backend) (dolist (fn *need-to-fix*) - (funcall (the function fn))) - obj))) + (funcall (the function fn)))))) (defmethod backend-restore-object ((place t) (backend resolving-backend)) "Retrieve a object from PLACE, does housekeeping for circularity fixing." Index: cl-store/cl-store.asd diff -u cl-store/cl-store.asd:1.7 cl-store/cl-store.asd:1.8 --- cl-store/cl-store.asd:1.7 Sun Sep 5 16:56:06 2004 +++ cl-store/cl-store.asd Mon Sep 27 13:24:18 2004 @@ -39,7 +39,7 @@ :name "CL-STORE" :author "Sean Ross <sdr(a)jhb.ucs.co.za>" :maintainer "Sean Ross <sdr(a)jhb.ucs.co.za>" - :version "0.2.2" + :version "0.2.3" :description "Serialization package" :long-description "Portable CL Package to serialize data types" :licence "MIT" Index: cl-store/default-backend.lisp diff -u cl-store/default-backend.lisp:1.5 cl-store/default-backend.lisp:1.6 --- cl-store/default-backend.lisp:1.5 Sun Sep 5 16:56:06 2004 +++ cl-store/default-backend.lisp Mon Sep 27 13:24:18 2004 @@ -3,11 +3,13 @@ ;; The cl-store backend. -;; cater for unicode characters in symbol names -;; Outstanding objects. -;; functions, methods +;; functions ;; closures (once done add initform, and default-initargs) - +;; funcallable instances (methods and generic functions) +;; add variable *store-methods-with-classes* +;; some sort of optimization for bignums +;; cater for unicode characters in symbol names +;; Other MOP classes. (in-package :cl-store) @@ -44,6 +46,7 @@ (defconstant +array-code+ (register-code 19 'array)) (defconstant +simple-vector-code+ (register-code 20 'simple-vector)) (defconstant +package-code+ (register-code 21 'package)) +(defconstant +function-code+ (register-code 22 'function)) ;; setups for type code mapping (defun output-type-code (code stream) Index: cl-store/package.lisp diff -u cl-store/package.lisp:1.9 cl-store/package.lisp:1.10 --- cl-store/package.lisp:1.9 Mon Aug 30 17:10:20 2004 +++ cl-store/package.lisp Mon Sep 27 13:24:18 2004 @@ -18,6 +18,7 @@ #:*store-class-slots* #:*nuke-existing-classes* #:*store-class-superclasses* + #:cl-store-error #:store-error #:restore-error #:store Index: cl-store/plumbing.lisp diff -u cl-store/plumbing.lisp:1.1 cl-store/plumbing.lisp:1.2 --- cl-store/plumbing.lisp:1.1 Tue Aug 17 13:12:43 2004 +++ cl-store/plumbing.lisp Mon Sep 27 13:24:18 2004 @@ -21,22 +21,29 @@ ;; conditions -;; Should these be the only errors that are thrown -;; from store and restore? -(define-condition store-error () - ((format-string :accessor format-string :initarg :format-string :initform "Unknown") +;; From 0.2.3 all conditions which are signalled from +;; store or restore will be rethrown as store-error and +;; restore-error respectively. The original condition +;; is still signalled. +(define-condition cl-store-error (condition) + ((caused-by :accessor caused-by :initarg :caused-by + :initform nil) + (format-string :accessor format-string :initarg :format-string + :initform "Unknown") (format-args :accessor format-args :initarg :format-args :initform nil)) (:report (lambda (condition stream) - (apply #'format stream (format-string condition) - (format-args condition)))) + (aif (caused-by condition) + (format stream "~A" it) + (apply #'format stream (format-string condition) + (format-args condition))))) + (:documentation "Root cl-store condition")) + +(define-condition store-error (cl-store-error) + () (:documentation "Error thrown when storing an object fails.")) -(define-condition restore-error () - ((format-string :accessor format-string :initarg :format-string :initform "Unknown") - (format-args :accessor format-args :initarg :format-args :initform nil)) - (:report (lambda (condition stream) - (apply #'format stream (format-string condition) - (format-args condition)))) +(define-condition restore-error (cl-store-error) + () (:documentation "Error thrown when restoring an object fails.")) (defun store-error (format-string &rest args) @@ -46,6 +53,8 @@ (error 'restore-error :format-string format-string :format-args args)) + + ;; entry points (defun store-to-file (obj place backend) (let* ((backend-type (stream-type backend)) @@ -54,33 +63,36 @@ (integer '(unsigned-byte 8))))) (with-open-file (s place :element-type element-type :direction :output :if-exists :supersede) - (store obj s backend)))) + (backend-store obj s backend)))) (defgeneric store (obj place &optional backend) (:documentation "Entry Point for storing objects.") - (:method ((obj t) (place stream) &optional (backend *default-backend*)) + (:method ((obj t) (place t) &optional (backend *default-backend*)) "Store OBJ into Stream PLACE using backend BACKEND." (let ((*current-backend* backend)) - (backend-store obj place backend))) - (:method ((obj t) (place string) &optional (backend *default-backend*)) - "Store OBJ into file designator PLACE using backend BACKEND." - (store-to-file obj place backend)) - (:method ((obj t) (place pathname) &optional (backend *default-backend*)) - "Store OBJ into file designator PLACE using backend BACKEND." - (store-to-file obj place backend))) - + (handler-case (backend-store obj place backend) + (condition (c) + (signal c) + (error (make-condition 'store-error + :caused-by c))))))) (defgeneric backend-store (obj place backend) (:argument-precedence-order backend place obj) - (:documentation "Method wrapped by store, override this method for -custom behaviour (see circularities.lisp).") - (:method ((obj t) (place t) (backend t)) + (:method ((obj t) (place stream) (backend t)) "The default. Checks the streams element-type, stores the backend code and calls store-object." (check-stream-element-type place backend) (store-backend-code place backend) (store-object obj place backend) - obj)) + obj) + (:method ((obj t) (place string) (backend t)) + "Store OBJ into file designator PLACE." + (store-to-file obj place backend)) + (:method ((obj t) (place pathname) (backend t)) + "Store OBJ into file designator PLACE." + (store-to-file obj place backend)) + (:documentation "Method wrapped by store, override this method for + custom behaviour (see circularities.lisp).")) @@ -131,7 +143,10 @@ (:method (place &optional (backend *default-backend*)) "Entry point for restoring objects (setfable)." (let ((*current-backend* backend)) - (backend-restore place backend)))) + (handler-case (backend-restore place backend) + (condition (c) (signal c) + (error (make-condition 'restore-error + :caused-by c))))))) (defgeneric backend-restore (place backend) (:argument-precedence-order backend place)

1 0

[cl-store-cvs] CVS update: cl-store/ChangeLog cl-store/cl-store.asd cl-store/default-backend.lisp
by Sean Ross 05 Sep '04

05 Sep '04

Update of /project/cl-store/cvsroot/cl-store In directory common-lisp.net:/tmp/cvs-serv5295 Modified Files: ChangeLog cl-store.asd default-backend.lisp Log Message: Nothing worth mentioning Date: Sun Sep 5 16:56:07 2004 Author: sross Index: cl-store/ChangeLog diff -u cl-store/ChangeLog:1.6 cl-store/ChangeLog:1.7 --- cl-store/ChangeLog:1.6 Mon Aug 30 17:10:20 2004 +++ cl-store/ChangeLog Sun Sep 5 16:56:06 2004 @@ -1,4 +1,4 @@ -2004-07-29 Sean Ross <sdr(a)jhb.ucs.co.za> +2004-09-01 Sean Ross <sdr(a)jhb.ucs.co.za> * sbcl/custom.lisp, sbcl/custom-xml.lisp: Custom structure storing. * cmucl/custom.lisp, cmucl/custom-xml.lisp: Custom structure storing. * lispworks/custom.lisp, lispworks/custom-xml.lisp: Custom structure storing Index: cl-store/cl-store.asd diff -u cl-store/cl-store.asd:1.6 cl-store/cl-store.asd:1.7 --- cl-store/cl-store.asd:1.6 Thu Sep 2 11:06:58 2004 +++ cl-store/cl-store.asd Sun Sep 5 16:56:06 2004 @@ -39,7 +39,7 @@ :name "CL-STORE" :author "Sean Ross <sdr(a)jhb.ucs.co.za>" :maintainer "Sean Ross <sdr(a)jhb.ucs.co.za>" - :version "0.2" + :version "0.2.2" :description "Serialization package" :long-description "Portable CL Package to serialize data types" :licence "MIT" Index: cl-store/default-backend.lisp diff -u cl-store/default-backend.lisp:1.4 cl-store/default-backend.lisp:1.5 --- cl-store/default-backend.lisp:1.4 Mon Aug 30 17:10:20 2004 +++ cl-store/default-backend.lisp Sun Sep 5 16:56:06 2004 @@ -81,7 +81,7 @@ (defrestore-cl-store (non-return stream) (restore-object stream) (restore-object stream)) - + ;; integers (defstore-cl-store (obj integer stream)

1 0

[cl-store-cvs] CVS update: cl-store/cl-store.asd
by Sean Ross 02 Sep '04

02 Sep '04

Update of /project/cl-store/cvsroot/cl-store In directory common-lisp.net:/tmp/cvs-serv12853 Modified Files: cl-store.asd Log Message: somehow I left this out Date: Thu Sep 2 11:06:58 2004 Author: sross Index: cl-store/cl-store.asd diff -u cl-store/cl-store.asd:1.5 cl-store/cl-store.asd:1.6 --- cl-store/cl-store.asd:1.5 Tue Aug 17 13:12:43 2004 +++ cl-store/cl-store.asd Thu Sep 2 11:06:58 2004 @@ -49,7 +49,8 @@ (:file "backends" :depends-on ("utils")) (:file "plumbing" :depends-on ("backends")) (:file "circularities" :depends-on ("plumbing")) - (:file "default-backend" :depends-on ("circularities")))) + (:file "default-backend" :depends-on ("circularities")) + (:non-required-file "custom" :depends-on ("default-backend")))) (defsystem cl-store-xml :name "CL-STORE-XML" @@ -57,7 +58,8 @@ :maintainer "Sean Ross <sdr(a)jhb.ucs.co.za>" :description "Xml Backend for cl-store" :licence "MIT" - :components ((:file "xml-backend")) + :components ((:file "xml-backend") + (:non-required-file "custom-xml" :depends-on ("xml-backend"))) :depends-on (:cl-store :xmls))

1 0

[cl-store-cvs] CVS update: cl-store/sbcl/custom-xml.lisp cl-store/sbcl/custom.lisp
by Sean Ross 30 Aug '04

30 Aug '04

Update of /project/cl-store/cvsroot/cl-store/sbcl In directory common-lisp.net:/tmp/cvs-serv8063/sbcl Added Files: custom-xml.lisp custom.lisp Log Message: Moved implementation specific storing to own files. Structure storing for lispworks (Alain Parsis) Date: Mon Aug 30 17:10:25 2004 Author: sross

1 0

[cl-store-cvs] CVS update: cl-store/lispworks/custom-xml.lisp cl-store/lispworks/custom.lisp
by Sean Ross 30 Aug '04

30 Aug '04

Update of /project/cl-store/cvsroot/cl-store/lispworks In directory common-lisp.net:/tmp/cvs-serv8063/lispworks Added Files: custom-xml.lisp custom.lisp Log Message: Moved implementation specific storing to own files. Structure storing for lispworks (Alain Parsis) Date: Mon Aug 30 17:10:23 2004 Author: sross

1 0

[cl-store-cvs] CVS update: cl-store/cmucl/custom-xml.lisp cl-store/cmucl/custom.lisp
by Sean Ross 30 Aug '04

30 Aug '04

Update of /project/cl-store/cvsroot/cl-store/cmucl In directory common-lisp.net:/tmp/cvs-serv8063/cmucl Added Files: custom-xml.lisp custom.lisp Log Message: Moved implementation specific storing to own files. Structure storing for lispworks (Alain Parsis) Date: Mon Aug 30 17:10:22 2004 Author: sross

1 0