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