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."))