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

Modified Files: symbols.lisp Log Message: Make %symbol-global-value a function, of course.

Date: Fri Apr 16 15:24:20 2004 Author: ffjeld

Index: movitz/losp/muerte/symbols.lisp diff -u movitz/losp/muerte/symbols.lisp:1.9 movitz/losp/muerte/symbols.lisp:1.10 --- movitz/losp/muerte/symbols.lisp:1.9 Fri Apr 16 15:23:23 2004 +++ movitz/losp/muerte/symbols.lisp Fri Apr 16 15:24:20 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Sep 4 23:55:41 2001 ;;;; -;;;; $Id: symbols.lisp,v 1.9 2004/04/16 19:23:23 ffjeld Exp $ +;;;; $Id: symbols.lisp,v 1.10 2004/04/16 19:24:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -56,8 +56,11 @@ (defun set (symbol value) (setf (symbol-value symbol) value))

-(defmacro %symbol-global-value (symbol) +(define-compiler-macro %symbol-global-value (symbol) `(memref ,symbol ,(bt:slot-offset 'movitz:movitz-symbol 'movitz::value) 0 :lisp)) + +(defun %symbol-global-value (symbol) + (%symbol-global-value symbol))

(defun symbol-function (symbol) (let ((function-value