[cl-prevalence-cvs] CVS update: cl-prevalence/src/serialization.lisp

[Sven Van Caekenberghe]

Update of /project/cl-prevalence/cvsroot/cl-prevalence/src
In directory common-lisp.net:/tmp/cvs-serv21752/src

Modified Files:
	serialization.lisp 
Log Message:
added serializable-slots implementation for sbcl
thanks to Anthony W. Juckel

Date: Mon Oct  4 16:41:37 2004
Author: scaekenberghe

Index: cl-prevalence/src/serialization.lisp
diff -u cl-prevalence/src/serialization.lisp:1.4 cl-prevalence/src/serialization.lisp:1.5
--- cl-prevalence/src/serialization.lisp:1.4	Mon Oct  4 16:25:13 2004
+++ cl-prevalence/src/serialization.lisp	Mon Oct  4 16:41:37 2004
@@ -1,6 +1,6 @@
 ;;;; -*- mode: Lisp -*-
 ;;;;
-;;;; $Id: serialization.lisp,v 1.4 2004/10/04 14:25:13 scaekenberghe Exp $
+;;;; $Id: serialization.lisp,v 1.5 2004/10/04 14:41:37 scaekenberghe Exp $
 ;;;;
 ;;;; XML and S-Expression based Serialization for Common Lisp and CLOS
 ;;;;
@@ -124,7 +124,11 @@
   #+lispworks
   (structure:structure-class-slot-names (class-of object))
   #+allegro
-  (mapcar #'mop:slot-definition-name (mop:class-slots (class-of object))))
+  (mapcar #'mop:slot-definition-name (mop:class-slots (class-of object)))
+  #+sbcl
+  (mapcar #'sb-mop:slot-definition-name (sb-mop:class-slots (class-of object)))
+  #-(or openmcl cmu lispworks allegro sbcl)
+  (error "not yet implemented"))
 
 (defmethod serializable-slots ((object standard-object))
   #+openmcl
@@ -137,7 +141,11 @@
   #+lispworks
   (mapcar #'hcl:slot-definition-name (hcl:class-slots (class-of object)))
   #+allegro
-  (mapcar #'mop:slot-definition-name (mop:class-slots (class-of object))))
+  (mapcar #'mop:slot-definition-name (mop:class-slots (class-of object)))
+  #+sbcl
+  (mapcar #'sb-mop:slot-definition-name (sb-mop:class-slots (class-of object)))
+  #-(or openmcl cmu lispworks allegro sbcl)
+  (error "not yet implemented"))
 
 (defmethod get-serializable-slots ((serialization-state serialization-state) object)
   (with-slots (known-slots) serialization-state