[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv9932

Modified Files:
	defstruct.lisp 
Log Message:
Add a run-time defstruct placeholder.


--- /project/movitz/cvsroot/movitz/losp/muerte/defstruct.lisp	2008/04/17 19:33:11	1.19
+++ /project/movitz/cvsroot/movitz/losp/muerte/defstruct.lisp	2008/04/19 12:43:50	1.20
@@ -9,7 +9,7 @@
 ;;;; Created at:    Mon Jan 22 13:10:59 2001
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: defstruct.lisp,v 1.19 2008/04/17 19:33:11 ffjeld Exp $
+;;;; $Id: defstruct.lisp,v 1.20 2008/04/19 12:43:50 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -334,3 +334,7 @@
 			(slot-number ,slot-number)))
 		',struct-name))
 	    ))))))
+
+(defmacro/run-time defstruct (&rest ignore)
+  (identity 'structure); just to reference the symbol.
+  (error "Defstruct not implemented."))