[cl-prevalence-devel] SBCL s-serialization

[Sven Van Caekenberghe]

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 at common-lisp.net
> http://common-lisp.net/mailman/listinfo/cl-prevalence-devel