[cl-store-cvs] CVS cl-store/openmcl

[sross]

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