[movitz-cvs] CVS update: movitz/losp/muerte/functions.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv30923

Modified Files:
	functions.lisp 
Log Message:
Use *setf-namespace* rather than (get-global-property :setf-namespace).

Date: Tue Apr 19 08:42:25 2005
Author: ffjeld

Index: movitz/losp/muerte/functions.lisp
diff -u movitz/losp/muerte/functions.lisp:1.27 movitz/losp/muerte/functions.lisp:1.28
--- movitz/losp/muerte/functions.lisp:1.27	Mon Jan 31 16:47:57 2005
+++ movitz/losp/muerte/functions.lisp	Tue Apr 19 08:42:22 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Mar 12 22:58:54 2002
 ;;;;                
-;;;; $Id: functions.lisp,v 1.27 2005/01/31 15:47:57 ffjeld Exp $
+;;;; $Id: functions.lisp,v 1.28 2005/04/19 06:42:22 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -20,6 +20,9 @@
 
 (in-package muerte)
 
+(defvar *setf-namespace* nil
+  "This hash-table is initialized by dump-image.")
+
 (defun identity (x) x)
 
 (defun constantly-prototype (&rest ignore)
@@ -484,15 +487,15 @@
     (symbol
      (symbol-function function-name))
     ((cons (eql setf))
-     (symbol-function (gethash (cadr function-name)
-			       (get-global-property :setf-namespace))))))
+     (symbol-function (gethash (cadr function-name) *setf-namespace*
+			       #+ignore (get-global-property :setf-namespace))))))
 
 (defun (setf fdefinition) (value function-name)
   (etypecase function-name
     (symbol
      (setf (symbol-function function-name) value))
     ((cons (eql setf))
-     (let* ((setf-namespace (get-global-property :setf-namespace))
+     (let* ((setf-namespace *setf-namespace* #+ignore (get-global-property :setf-namespace))
 	    (setf-name (cadr function-name))
 	    (setf-symbol (or (gethash setf-name setf-namespace)
 			     (setf (gethash setf-name setf-namespace)