[cl-store-cvs] CVS update: cl-store/doc/cl-store.texi

Sean Ross sross at common-lisp.net
Fri Feb 18 11:11:06 UTC 2005


Update of /project/cl-store/cvsroot/cl-store/doc
In directory common-lisp.net:/tmp/cvs-serv15747/doc

Modified Files:
	cl-store.texi 
Log Message:
Changelog 2005-02-18
Date: Fri Feb 18 12:11:03 2005
Author: sross

Index: cl-store/doc/cl-store.texi
diff -u cl-store/doc/cl-store.texi:1.7 cl-store/doc/cl-store.texi:1.8
--- cl-store/doc/cl-store.texi:1.7	Fri Feb 18 09:50:09 2005
+++ cl-store/doc/cl-store.texi	Fri Feb 18 12:11:03 2005
@@ -407,12 +407,44 @@
 Stores @emph{object} into @emph{place}. This should be used inside 
 @code{defstore-cl-store} to output parts of objects. @code{store} 
 should not be used.
-
 @end deffn
+
 @anchor {Generic restore-object}
 @deffn {Generic} restore-object place 
 Restore an object, written out using @code{store-object} from @emph{place}. 
 @end deffn
+
+ at anchor {Generic get-slot-details}
+ at deffn {Generic} get-slot-details slot-definition
+Generic function which returns a list of slots details
+which can be used as an argument to @code{ensure-class}. 
+Currently it is only specialized on slot-definition
+ at end deffn
+
+ at anchor {Generic serializable-slots}
+ at deffn {Generic} serializable-slots object
+Method which returns a list of slot-definition objects
+which will be serialized for @emph{object}. The default 
+is to call @code{serializable-slots-using-class}.
+ at end deffn
+
+ at anchor {Generic serializable-slots-using-class}
+ at deffn {Generic} serializable-slots-using-class object class
+Returns a list of slot-definition objects which will 
+be serialized for object and class. 
+Example.
+When serializing cl-sql objects to disk or to another 
+lisp session the view-database slot should not be serialized.
+Instead of specializing serializable-slots for each view-class
+created you can do this.
+ at lisp
+(defmethod serializable-slots-using-class 
+     ((object t) (class clsql-sys::standard-db-class))
+  (delete 'clsql-sys::view-database (call-next-method)
+          :key 'slot-definition-name))
+ at end lisp
+ at end deffn
+
 
 @vskip 0pt plus 1filll
 




More information about the Cl-store-cvs mailing list