[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	basic-macros.lisp 
Log Message:
throw is just compiled.

--- /project/movitz/cvsroot/movitz/losp/muerte/basic-macros.lisp	2008/04/09 18:01:34	1.76
+++ /project/movitz/cvsroot/movitz/losp/muerte/basic-macros.lisp	2008/07/09 20:08:52	1.77
@@ -9,7 +9,7 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: basic-macros.lisp,v 1.76 2008/04/09 18:01:34 ffjeld Exp $
+;;;; $Id: basic-macros.lisp,v 1.77 2008/07/09 20:08:52 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -90,7 +90,7 @@
       `(compiled-cond (,test-form ,then-form) (t ,else-form))
     `(compiled-cond (,test-form ,then-form))))
 
-(defmacro throw (tag result-form)
+(defmacro/cross-compilation throw (tag result-form)
   (let ((tag-var (gensym "throw-tag-")))
     `(let ((,tag-var ,tag))
        (exact-throw (find-catch-tag ,tag-var)