Update of /project/cl-store/cvsroot/cl-store/openmcl In directory clnet:/tmp/cvs-serv11996/openmcl

Added Files: custom.lisp Log Message: Added custom structure object storing for OpenMCL Thanks to Kilian Sprotte.

--- /project/cl-store/cvsroot/cl-store/openmcl/custom.lisp 2006/03/14 09:34:08 NONE +++ /project/cl-store/cvsroot/cl-store/openmcl/custom.lisp 2006/03/14 09:34:08 1.1 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;; See the file LICENCE for licence information. (in-package :cl-store)

(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