[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv4635

Modified Files:
	special-operators.lisp 
Log Message:
Just warn rather than error upon non-toplevel declaim.


--- /project/movitz/cvsroot/movitz/special-operators.lisp	2005/08/28 21:03:53	1.54
+++ /project/movitz/cvsroot/movitz/special-operators.lisp	2006/04/10 11:47:14	1.55
@@ -8,7 +8,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 24 16:22:59 2000
 ;;;;                
-;;;; $Id: special-operators.lisp,v 1.54 2005/08/28 21:03:53 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.55 2006/04/10 11:47:14 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -598,7 +598,7 @@
 
 (define-special-operator muerte::declaim-compile-time (&form form &top-level-p top-level-p)
   (unless top-level-p
-    (error "DECLAIM not at top-level."))
+    (warn "DECLAIM not at top-level."))
   (let ((declaration-specifiers (cdr form)))
     (movitz-env-load-declarations declaration-specifiers *movitz-global-environment* :declaim))
   (compiler-values ()))