Permalink
Browse files

allegro-structure-patch

Ignore-this: 492cf4b5b19035ef3b91d9a68ffc833b

darcs-hash:20100323100440-414ce-c3156d991c2ab9104cb5e3df12b24c8842937dfb.gz
  • Loading branch information...
1 parent 073c2ee commit bed778fd2688212ef30dfaca0e30896984d010bc jcornez committed Mar 23, 2010
Showing with 16 additions and 2 deletions.
  1. +7 −0 acl/custom.lisp
  2. +7 −0 allegrocl/custom.lisp
  3. +2 −2 utils.lisp
View
@@ -26,4 +26,11 @@
(double-float-values)
(long-float-values)))))
+(defstore-cl-store (obj structure-object stream)
+ (output-type-code +structure-object-code+ stream)
+ (store-type-object obj stream))
+
+(defrestore-cl-store (structure-object stream)
+ (restore-type-object stream))
+
;; EOF
View
@@ -26,4 +26,11 @@
(double-float-values)
(long-float-values)))))
+(defstore-cl-store (obj structure-object stream)
+ (output-type-code +structure-object-code+ stream)
+ (store-type-object obj stream))
+
+(defrestore-cl-store (structure-object stream)
+ (restore-type-object stream))
+
;; EOF
View
@@ -20,7 +20,7 @@
and the objects class")
(:method ((object standard-object))
(serializable-slots-using-class object (class-of object)))
-#+(or sbcl cmu openmcl)
+#+(or sbcl cmu openmcl allegro)
(:method ((object structure-object))
(serializable-slots-using-class object (class-of object)))
(:method ((object condition))
@@ -35,7 +35,7 @@
The default calls compute slots with class")
(:method ((object t) (class standard-class))
(class-slots class))
-#+(or sbcl cmu openmcl)
+#+(or sbcl cmu openmcl allegro)
(:method ((object t) (class structure-class))
(class-slots class))
#+sbcl

0 comments on commit bed778f

Please sign in to comment.