Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3470
Modified Files: primitive-functions.lisp Log Message: Improve accessors to observe *compiler-nonlocal-lispval-read/write-segment-prefix* more. Also don't use the movitz-accessor etc. macros anymore, use memref and movitz-type-slot-offset instead.
Date: Thu Oct 21 22:34:09 2004 Author: ffjeld
Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.46 movitz/losp/muerte/primitive-functions.lisp:1.47 --- movitz/losp/muerte/primitive-functions.lisp:1.46 Thu Oct 7 14:44:17 2004 +++ movitz/losp/muerte/primitive-functions.lisp Thu Oct 21 22:34:09 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.46 2004/10/07 12:44:17 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.47 2004/10/21 20:34:09 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -306,7 +306,8 @@ (:movl :ebx (:ecx 8)) ; Store VALUE in binding. (:ret) no-binding - (:movl :ebx (:eax #.(bt:slot-offset 'movitz::movitz-symbol 'movitz::value))) + (#.movitz::*compiler-nonlocal-lispval-write-segment-prefix* + :movl :ebx (:eax (:offset movitz-symbol value))) (:ret)))
(define-primitive-function keyword-search () @@ -595,9 +596,9 @@ (ratio (find-class 'ratio)) (std-instance - (movitz-accessor object movitz-std-instance class)) + (memref object (movitz-type-slot-offset 'movitz-std-instance 'class))) (standard-gf-instance - (movitz-accessor object movitz-funobj-standard-gf standard-gf-class)) + (memref object (movitz-type-slot-offset 'movitz-funobj-standard-gf 'standard-gf-class))) (string (find-class 'string)) (bit-vector