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

[Frode Vatvedt Fjeld]

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

Modified Files:
	environment.lisp 
Log Message:
Don't return the second value from gethash.

Date: Mon Jun  7 15:09:56 2004
Author: ffjeld

Index: movitz/environment.lisp
diff -u movitz/environment.lisp:1.5 movitz/environment.lisp:1.6
--- movitz/environment.lisp:1.5	Tue Feb 17 12:24:00 2004
+++ movitz/environment.lisp	Mon Jun  7 15:09:56 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.5 2004/02/17 20:24:00 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.6 2004/06/07 22:09:56 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -438,7 +438,7 @@
 ;;; Accessor: movitz-env-symbol-function
 
 (defun movitz-env-symbol-function (symbol &optional env)
-  (gethash symbol (movitz-environment-function-cells (or env *movitz-global-environment*))))
+  (values (gethash symbol (movitz-environment-function-cells (or env *movitz-global-environment*)))))
 
 (defun (setf movitz-env-symbol-function) (value symbol &optional env)
   (setf (gethash symbol (movitz-environment-function-cells (or env *movitz-global-environment*)))