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)