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

[Frode Vatvedt Fjeld]

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*)))