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

[Frode Vatvedt Fjeld]

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 at 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