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