[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-serv20330

Modified Files:
	environment.lisp 
Log Message:
Removed obsolete (get-global-property :setf-namespace) code.

Date: Wed Apr 20 08:53:20 2005
Author: ffjeld

Index: movitz/losp/muerte/environment.lisp
diff -u movitz/losp/muerte/environment.lisp:1.11 movitz/losp/muerte/environment.lisp:1.12
--- movitz/losp/muerte/environment.lisp:1.11	Tue Apr 19 08:42:11 2005
+++ movitz/losp/muerte/environment.lisp	Wed Apr 20 08:53:20 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.11 2005/04/19 06:42:11 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.12 2005/04/20 06:53:20 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -48,8 +48,7 @@
     (symbol
      function-name)
     ((cons (eql setf) (cons symbol null))
-     (gethash (cadr function-name) *setf-namespace*
-	      #+ignore (get-global-property :setf-namespace)))))
+     (gethash (cadr function-name) *setf-namespace*))))
 
 (defun match-caller (name)
   (do ((frame (stack-frame-uplink nil (current-stack-frame))