Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv18080
Modified Files: environment.lisp Log Message: Ignore declarations ftype and optimize.
--- /project/movitz/cvsroot/movitz/environment.lisp 2006/05/05 18:37:34 1.16 +++ /project/movitz/cvsroot/movitz/environment.lisp 2006/05/07 18:34:30 1.17 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 3 11:40:15 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: environment.lisp,v 1.16 2006/05/05 18:37:34 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.17 2006/05/07 18:34:30 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -359,6 +359,8 @@ (defun movitz-env-load-declarations (declarations environment context) (loop for (declaration-identifier . data) in declarations do (case declaration-identifier + ((muerte.cl::ftype muerte.cl::optimize) + nil) ; ignore for now (muerte.cl::ignore (dolist (var data) (check-type var symbol)