Commits

Leslie P. Polzer  committed 1edf5cd

Support for struct and object serialization on CLISP (patch by Anton Vodonosov <avodonosov@yandex.ru>).

  • Participants
  • Parent commits 28add06
  • Tags 3.5

Comments (0)

Files changed (1)

File src/serialization/serialization.lisp

   (mapcar #'mop:slot-definition-name (mop:class-slots (class-of object)))
   #+sbcl
   (mapcar #'sb-mop:slot-definition-name (sb-mop:class-slots (class-of object)))
-  #-(or openmcl cmu lispworks allegro sbcl)
+  #+clisp
+  (mapcar #'clos:slot-definition-name (ext:structure-slots (type-of object)))
+  #-(or openmcl cmu lispworks allegro sbcl clisp)
   (error "not yet implemented"))
 
 (defmethod serializable-slots ((object standard-object))
   (mapcar #'mop:slot-definition-name (mop:class-slots (class-of object)))
   #+sbcl
   (mapcar #'sb-mop:slot-definition-name (sb-mop:class-slots (class-of object)))
-  #-(or openmcl cmu lispworks allegro sbcl)
+  #+clisp
+  (mapcar #'clos:slot-definition-name (clos:class-slots (class-of object)))
+  #-(or openmcl cmu lispworks allegro sbcl clisp)
   (error "not yet implemented"))
 
 (defmethod get-serializable-slots ((serialization-state serialization-state) object)