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

[Frode Vatvedt Fjeld]

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

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

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

Index: movitz/losp/muerte/environment.lisp
diff -u movitz/losp/muerte/environment.lisp:1.10 movitz/losp/muerte/environment.lisp:1.11
--- movitz/losp/muerte/environment.lisp:1.10	Wed Mar  9 08:19:19 2005
+++ movitz/losp/muerte/environment.lisp	Tue Apr 19 08:42:11 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Oct 20 00:41:57 2001
 ;;;;                
-;;;; $Id: environment.lisp,v 1.10 2005/03/09 07:19:19 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.11 2005/04/19 06:42:11 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -48,8 +48,8 @@
     (symbol
      function-name)
     ((cons (eql setf) (cons symbol null))
-     (gethash (cadr function-name)
-	      (get-global-property :setf-namespace)))))
+     (gethash (cadr function-name) *setf-namespace*
+	      #+ignore (get-global-property :setf-namespace)))))
 
 (defun match-caller (name)
   (do ((frame (stack-frame-uplink nil (current-stack-frame))