Thx for the contrib, Peter. Your patch was applied and is available in the CVS version.

Sven

On 20 Jan 2005, at 22:06, Peter Scott wrote:

Attached to this message is a patch for serialization.lisp which makes it work on SBCL. The only difference from the CMUCL-specific MOP code is that SBCL has, for some reason, renamed the PCL package to SB-PCL.

For your inspection (and in case attachments don't play well with this mailing list):

--- serialization.lisp.old 2005-01-20 13:17:35.000000000 -0700 +++ serialization.lisp 2005-01-20 13:12:52.000000000 -0700 @@ -112,6 +112,8 @@ (mapcar #'car (if (symbolp (caar slots)) slots (cdr slots)))) #+cmu (mapcar #'pcl:slot-definition-name (pcl:class-slots (class-of object)))

• #+sbcl
• (mapcar #'sb-pcl:slot-definition-name (sb-pcl:class-slots (class-of

object))) #+lispworks (structure:structure-class-slot-names (class-of object)) #+allegro @@ -125,6 +127,8 @@ (class-of object))) #+cmu (mapcar #'pcl:slot-definition-name (pcl:class-slots (class-of object)))

• #+sbcl
• (mapcar #'sb-pcl:slot-definition-name (sb-pcl:class-slots (class-of

object))) #+lispworks (mapcar #'hcl:slot-definition-name (hcl:class-slots (class-of object))) #+allegro

-Peter <serialization.lisp.patch>_____________________________________________ __ cl-prevalence-devel site list cl-prevalence-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/cl-prevalence-devel