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

Modified Files: environment.lisp Log Message: Misspelled movitz-funobj-name as funobj-name.

Date: Mon Feb 9 19:24:38 2004 Author: ffjeld

Index: movitz/environment.lisp diff -u movitz/environment.lisp:1.3 movitz/environment.lisp:1.4 --- movitz/environment.lisp:1.3 Thu Feb 5 09:46:08 2004 +++ movitz/environment.lisp Mon Feb 9 19:24:38 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.3 2004/02/05 14:46:08 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.4 2004/02/10 00:24:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -198,7 +198,7 @@ (call-next-method)) (t (print-unreadable-object (object stream :type t :identity t) (format stream "of ~A binding~?" - (funobj-name (movitz-environment-funobj object)) + (movitz-funobj-name (movitz-environment-funobj object)) "~#[ nothing~; ~S~; ~S and ~S~:;~@{~#[~; and~] ~S~^,~}~]" (mapcar #'binding-name (mapcar #'cdr (movitz-environment-bindings object))))) object)))