[movitz-cvs] CVS update: movitz/losp/muerte/eval.lisp

[Frode Vatvedt Fjeld]

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 at 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)