Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3626 Modified Files: more-macros.lisp Log Message: Ensure some well-known unimplemented operators produce appropriate compile-time errors. Date: Wed Jun 9 10:22:51 2004 Author: ffjeld Index: movitz/losp/muerte/more-macros.lisp diff -u movitz/losp/muerte/more-macros.lisp:1.8 movitz/losp/muerte/more-macros.lisp:1.9 --- movitz/losp/muerte/more-macros.lisp:1.8 Fri Jun 4 06:32:16 2004 +++ movitz/losp/muerte/more-macros.lisp Wed Jun 9 10:22:51 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.8 2004/06/04 13:32:16 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.9 2004/06/09 17:22:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -311,3 +311,13 @@ (let ((,object-var ,instance-form)) ,@declarations-and-forms)))) + +;;; Some macros that aren't implemented, and we want to give compiler errors. + +(defmacro define-unimplemented-macro (name) + `(defmacro ,name (&rest args) + (declare (ignore args)) + (error ,(format nil "Macro ~A is not implemented yet." name)))) + +(define-unimplemented-macro with-open-file) +(define-unimplemented-macro restart-case)