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

[Frode Vatvedt Fjeld]

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

Modified Files:
	symbols.lisp 
Log Message:
Changed the signature of memref and (setf memref) to use keywords also
for the index and type arguments.

Date: Mon Oct 11 15:53:28 2004
Author: ffjeld

Index: movitz/losp/muerte/symbols.lisp
diff -u movitz/losp/muerte/symbols.lisp:1.19 movitz/losp/muerte/symbols.lisp:1.20
--- movitz/losp/muerte/symbols.lisp:1.19	Wed Sep 22 20:49:24 2004
+++ movitz/losp/muerte/symbols.lisp	Mon Oct 11 15:53:28 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Sep  4 23:55:41 2001
 ;;;;                
-;;;; $Id: symbols.lisp,v 1.19 2004/09/22 18:49:24 ffjeld Exp $
+;;;; $Id: symbols.lisp,v 1.20 2004/10/11 13:53:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -74,13 +74,13 @@
   (setf (symbol-value symbol) value))
 
 (define-compiler-macro %symbol-global-value (symbol)
-  `(memref ,symbol ,(bt:slot-offset 'movitz:movitz-symbol 'movitz::value) 0 :lisp))
+  `(memref ,symbol ,(bt:slot-offset 'movitz:movitz-symbol 'movitz::value)))
 
 (defun %symbol-global-value (symbol)
   (%symbol-global-value symbol))
 
 (define-compiler-macro (setf %symbol-global-value) (value symbol)
-  `(setf (memref ,symbol ,(bt:slot-offset 'movitz:movitz-symbol 'movitz::value) 0 :lisp)
+  `(setf (memref ,symbol ,(bt:slot-offset 'movitz:movitz-symbol 'movitz::value))
      ,value))
 
 (defun (setf %symbol-global-value) (value symbol)
@@ -94,7 +94,8 @@
 
 (defun %unbounded-symbol-function (symbol)
   (check-type symbol symbol)
-  (movitz-accessor symbol movitz-symbol function-value))
+  (memref symbol (movitz-type-slot-offset 'movitz-symbol 'function-value)))
+  ;; (movitz-accessor symbol movitz-symbol function-value))
 
 (defun (setf symbol-function) (value symbol)
   (check-type symbol symbol)
@@ -109,7 +110,8 @@
     (null
      (error "Can't change the name of NIL."))
     (symbol
-     (setf-movitz-accessor (symbol movitz-symbol name) value))))
+     (setf (memref symbol (movitz-type-slot-offset 'movitz-symbol 'name))
+       value))))
 
 (defun symbol-plist (symbol)
   (get-symbol-slot symbol plist))
@@ -119,7 +121,8 @@
     (null
      (error "Can't change the plist of NIL."))
     (symbol
-     (setf-movitz-accessor (symbol movitz-symbol plist) value))))
+     (setf (memref symbol (movitz-type-slot-offset 'movitz-symbol 'plist))
+       value))))
 
 (defun symbol-package (symbol)
   (get-symbol-slot symbol package))