[cl-store-cvs] CVS cl-store

[sross]

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