[movitz-cvs] CVS update: movitz/environment.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	environment.lisp 
Log Message:
Accept (declare (<type> <var>*)) as type-declarations.

Date: Thu Aug 12 10:16:46 2004
Author: ffjeld

Index: movitz/environment.lisp
diff -u movitz/environment.lisp:1.6 movitz/environment.lisp:1.7
--- movitz/environment.lisp:1.6	Mon Jun  7 15:09:56 2004
+++ movitz/environment.lisp	Thu Aug 12 10:16:46 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov  3 11:40:15 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: environment.lisp,v 1.6 2004/06/07 22:09:56 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.7 2004/08/12 17:16:46 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -360,10 +360,10 @@
 	   ((muerte::loop-tag)
 	    (dolist (var data)
 	      (setf (movitz-env-get var declaration-identifier nil environment) t)))
-	   (t #+ignore (let ((typespec declaration-identifier)
-			     (vars data))
-			 (dolist (var vars)
-			   (setf (movitz-env-get var :variable-type nil environment) typespec))))))
+	   (t (let ((typespec declaration-identifier)
+		    (vars data))
+		(dolist (var vars)
+		  (setf (movitz-env-get var :variable-type nil environment) typespec))))))
   environment)
 		      
 (defun make-local-movitz-environment (uplink funobj