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