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

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

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

Index: movitz/losp/muerte/functions.lisp
diff -u movitz/losp/muerte/functions.lisp:1.28 movitz/losp/muerte/functions.lisp:1.29
--- movitz/losp/muerte/functions.lisp:1.28	Tue Apr 19 08:42:22 2005
+++ movitz/losp/muerte/functions.lisp	Wed Apr 20 08:53:28 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.28 2005/04/19 06:42:22 ffjeld Exp $
+;;;; $Id: functions.lisp,v 1.29 2005/04/20 06:53:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -476,7 +476,7 @@
   (check-type old-funobj function)
   (%shallow-copy-object old-funobj
 			(+ (funobj-num-constants old-funobj)
-			   #.(movitz::movitz-type-word-size 'movitz-funobj))))
+			   (movitz-type-word-size 'movitz-funobj))))
 
 (defun install-funobj-name (name funobj)
   (setf (funobj-name funobj) name)
@@ -487,18 +487,16 @@
     (symbol
      (symbol-function function-name))
     ((cons (eql setf))
-     (symbol-function (gethash (cadr function-name) *setf-namespace*
-			       #+ignore (get-global-property :setf-namespace))))))
+     (symbol-function (gethash (cadr function-name) *setf-namespace*)))))
 
 (defun (setf fdefinition) (value function-name)
   (etypecase function-name
     (symbol
      (setf (symbol-function function-name) value))
     ((cons (eql setf))
-     (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)
+     (let* ((setf-name (cadr function-name))
+	    (setf-symbol (or (gethash setf-name *setf-namespace*)
+			     (setf (gethash setf-name *setf-namespace*)
 			       (make-symbol (format nil "~A-~A" 'setf 'setf-name))))))
        (setf (symbol-function setf-symbol)
 	 value)))))