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