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

Modified Files:
	primitive-functions.lisp 
Log Message:
Minor edit.

Date: Tue Jan 25 05:54:57 2005
Author: ffjeld

Index: movitz/losp/muerte/primitive-functions.lisp
diff -u movitz/losp/muerte/primitive-functions.lisp:1.60 movitz/losp/muerte/primitive-functions.lisp:1.61
--- movitz/losp/muerte/primitive-functions.lisp:1.60	Mon Jan 10 00:19:06 2005
+++ movitz/losp/muerte/primitive-functions.lisp	Tue Jan 25 05:54:57 2005
@@ -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.60 2005/01/10 08:19:06 ffjeld Exp $
+;;;; $Id: primitive-functions.lisp,v 1.61 2005/01/25 13:54:57 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -482,11 +482,10 @@
     (:movl (:eax #.(movitz::class-object-offset 'symbol)) :eax)
     (:ret)))
 
-
 (define-primitive-function fast-class-of-std-instance ()
   "Return the class of a std-instance object."
   (with-inline-assembly (:returns :multiple-values)
-    (:movl (:eax #.(bt:slot-offset 'movitz::movitz-std-instance 'movitz::class))
+    (:movl (:eax (:offset movitz-std-instance class))
 	   :eax)
     (:ret)))