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

[Frode Vatvedt Fjeld]

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

Modified Files:
	environment.lisp 
Log Message:
Re-worked several aspects of binding/environments: assignment,
type-inference, etc.

Date: Sat Aug 20 22:30:57 2005
Author: ffjeld

Index: movitz/environment.lisp
diff -u movitz/environment.lisp:1.13 movitz/environment.lisp:1.14
--- movitz/environment.lisp:1.13	Sun Aug 14 14:13:07 2005
+++ movitz/environment.lisp	Sat Aug 20 22:30:54 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov  3 11:40:15 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: environment.lisp,v 1.13 2005/08/14 12:13:07 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.14 2005/08/20 20:30:54 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -225,7 +225,7 @@
       (find-function-env (movitz-environment-uplink env) funobj)))
 
 (defun sub-env-p (sub-env env)
-  "Check if sub-env is a sub-environment of env."
+  "Check if sub-env is a sub-environment (or eq) of env."
   (cond
    ((not sub-env)
     nil)