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

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

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

Index: movitz/losp/muerte/eval.lisp
diff -u movitz/losp/muerte/eval.lisp:1.16 movitz/losp/muerte/eval.lisp:1.17
--- movitz/losp/muerte/eval.lisp:1.16	Tue Apr 19 08:42:15 2005
+++ movitz/losp/muerte/eval.lisp	Wed Apr 20 08:53:23 2005
@@ -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.16 2005/04/19 06:42:15 ffjeld Exp $
+;;;; $Id: eval.lisp,v 1.17 2005/04/20 06:53:23 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -345,7 +345,7 @@
     setf-name))
 
 (defun setf-intern (name)
-  (values (gethash name *setf-namespace* #+ignore (get-global-property :setf-namespace))))
+  (values (gethash name *setf-namespace*)))
 
 (defun special-operator-p (operator-name)			   
   (member operator-name '(quote function if progn tagbody go)))