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