[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	eval.lisp 
Log Message:
Prefer assert over unless .. error.


--- /project/movitz/cvsroot/movitz/losp/muerte/eval.lisp	2008/04/13 20:12:37	1.30
+++ /project/movitz/cvsroot/movitz/losp/muerte/eval.lisp	2008/04/17 19:33:48	1.31
@@ -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.30 2008/04/13 20:12:37 ffjeld Exp $
+;;;; $Id: eval.lisp,v 1.31 2008/04/17 19:33:48 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -487,7 +487,7 @@
   (declare (ignore))
   (let* ((tag (cadr form))
 	 (b (cdr (op-env-binding env tag +eval-binding-type-go-tag+))))
-    (unless b (error "Go-tag ~S is not visible." tag))
+    (assert b () "Go-tag ~S is not visible." tag)
     (throw (cdr b) (values tag))))
 
 (defun eval-set-variable (variable-name value env)