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