Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv6051 Modified Files: environment.lisp Log Message: Some more work on register scheduling. I'm starting to see how this should have been designed in the first place. Date: Tue Feb 17 15:24:00 2004 Author: ffjeld Index: movitz/environment.lisp diff -u movitz/environment.lisp:1.4 movitz/environment.lisp:1.5 --- movitz/environment.lisp:1.4 Mon Feb 9 19:24:38 2004 +++ movitz/environment.lisp Tue Feb 17 15:24:00 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.4 2004/02/10 00:24:38 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.5 2004/02/17 20:24:00 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -285,6 +285,7 @@ (image-global-environment *image*)) (defun movitz-env-add-binding (env binding &optional (variable (binding-name binding))) + "Returns the binding." (check-type binding binding) (check-type variable symbol "a variable name") (let ((env (or env *movitz-global-environment*)))