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