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