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

[Frode Vatvedt Fjeld]

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