[movitz-cvs] CVS update: movitz/losp/muerte/eval.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	eval.lisp 
Log Message:
Use *setf-namespace* rather than (get-global-property :setf-namespace).

Date: Tue Apr 19 08:42:16 2005
Author: ffjeld

Index: movitz/losp/muerte/eval.lisp
diff -u movitz/losp/muerte/eval.lisp:1.15 movitz/losp/muerte/eval.lisp:1.16
--- movitz/losp/muerte/eval.lisp:1.15	Thu Nov 18 18:57:14 2004
+++ movitz/losp/muerte/eval.lisp	Tue Apr 19 08:42:15 2005
@@ -1,6 +1,6 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
-;;;;    Copyright (C) 2001-2004, 
+;;;;    Copyright (C) 2001-2005, 
 ;;;;    Department of Computer Science, University of Tromso, Norway.
 ;;;; 
 ;;;;    For distribution policy, see the accompanying file COPYING.
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Oct 19 21:15:12 2001
 ;;;;                
-;;;; $Id: eval.lisp,v 1.15 2004/11/18 17:57:14 ffjeld Exp $
+;;;; $Id: eval.lisp,v 1.16 2005/04/19 06:42:15 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -337,15 +337,15 @@
 								     :environment-p nil
 								     :recursive-p nil
 								     :whole-p nil))))))))))
-  
+
 (defun lookup-setf-function (name)
-  (let ((setf-name (gethash name (get-global-property :setf-namespace))))
+  (let ((setf-name (gethash name *setf-namespace*)))
     (assert setf-name (name)
       "No function (~S ~S) defined." 'setf name)
     setf-name))
 
 (defun setf-intern (name)
-  (values (gethash name (get-global-property :setf-namespace))))
+  (values (gethash name *setf-namespace* #+ignore (get-global-property :setf-namespace))))
 
 (defun special-operator-p (operator-name)			   
   (member operator-name '(quote function if progn tagbody go)))