Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv16766

Modified Files: eval.lisp Log Message: Argh! _This_ is the correct check-in for adding a continue/ignore restart to the "won't defun a common lisp symbol" error.

Date: Tue Sep 21 15:02:57 2004 Author: ffjeld

Index: movitz/losp/muerte/eval.lisp diff -u movitz/losp/muerte/eval.lisp:1.10 movitz/losp/muerte/eval.lisp:1.11 --- movitz/losp/muerte/eval.lisp:1.10 Wed Aug 18 22:16:26 2004 +++ movitz/losp/muerte/eval.lisp Tue Sep 21 15:02:57 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Oct 19 21:15:12 2001 ;;;; -;;;; $Id: eval.lisp,v 1.10 2004/08/18 20:16:26 ffjeld Exp $ +;;;; $Id: eval.lisp,v 1.11 2004/09/21 13:02:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -157,9 +157,10 @@ (return t))))

(defun eval-defun (name lambda-list body env) - (assert (not (eq (symbol-package name) - (find-package 'common-lisp))) - () "Won't allow defun of a common-lisp symbol.") + (with-simple-restart (continue "Defun ~S anyway." name) + (assert (not (eq (symbol-package name) + (find-package 'common-lisp))) + () "Won't allow defun of the Common Lisp symbol ~S." name)) (setf (symbol-function name) (install-funobj-name name (lambda (&rest args)