Update of /project/cl-store/cvsroot/cl-store In directory clnet:/tmp/cvs-serv3655

Modified Files: .cvsignore ChangeLog cl-store.asd utils.lisp Log Message: Changelog 2006-12-16 : Preliminary Support for ABCL

--- /project/cl-store/cvsroot/cl-store/.cvsignore 2006/12/11 21:44:02 1.4 +++ /project/cl-store/cvsroot/cl-store/.cvsignore 2006/12/16 13:50:26 1.5 @@ -9,3 +9,4 @@ *.fsl *.ofasl *.ufasl +*.abcl --- /project/cl-store/cvsroot/cl-store/ChangeLog 2006/12/14 18:15:41 1.43 +++ /project/cl-store/cvsroot/cl-store/ChangeLog 2006/12/16 13:50:26 1.44 @@ -1,3 +1,7 @@ +2006-12-16 Sean Ross sross@common-lisp.net + * cl-store.asd, utils.lisp : Added preliminary support for ABCL (tested on + version 0.0.9). + 2006-12-13 Sean Ross sross@common-lisp.net * utils.lisp, acl/custom.lisp, cmucl/custom.lisp, lispworks/custom.lisp sbcl/custom/lisp, default-backend.lisp, cl-store.asd: --- /project/cl-store/cvsroot/cl-store/cl-store.asd 2006/12/14 18:15:41 1.40 +++ /project/cl-store/cvsroot/cl-store/cl-store.asd 2006/12/16 13:50:26 1.41 @@ -9,7 +9,7 @@

(in-package #:cl-store.system)

-#-(or lispworks mcl cmu clisp sbcl allegro ecl openmcl) +#-(or lispworks mcl cmu clisp sbcl allegro ecl openmcl abcl) (error "This is an unsupported lisp implementation. Currently only MCL, OpenMCL, Lispworks, CMUCL, SBCL, CLISP, ECL and AllegroCL are supported.") @@ -20,7 +20,7 @@

(defun lisp-system-shortname () #+mcl :mcl #+lispworks :lispworks #+cmu :cmucl #+clisp :clisp #+sbcl :sbcl - #+allegro :acl #+ecl :ecl #+openmcl :openmcl) + #+allegro :acl #+ecl :ecl #+openmcl :openmcl #+abcl :abcl)

(defmethod component-pathname ((component non-required-file)) (let ((pathname (call-next-method)) --- /project/cl-store/cvsroot/cl-store/utils.lisp 2006/12/14 18:15:41 1.24 +++ /project/cl-store/cvsroot/cl-store/utils.lisp 2006/12/16 13:50:26 1.25 @@ -12,6 +12,7 @@ `(let ,(mapcar #'(lambda (x) `(,x (gensym))) names) ,@body))

+#-abcl (defgeneric serializable-slots (object) (declare (optimize speed)) (:documentation @@ -28,6 +29,7 @@

; unfortunately the metaclass of conditions in sbcl and cmu ; are not standard-class +#-abcl (defgeneric serializable-slots-using-class (object class) (declare (optimize speed)) (:documentation "Return a list of slot-definitions to serialize. @@ -46,6 +48,7 @@

; Generify get-slot-details for customization (from Thomas Stenhaug) +#-abcl (defgeneric get-slot-details (slot-definition) (declare (optimize speed)) (:documentation