[cl-prevalence-devel] SBCL s-serialization

[Peter Scott]

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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: serialization.lisp.patch
Type: text/x-patch
Size: 795 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cl-prevalence-devel/attachments/20050120/fc17631a/attachment.bin>