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

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

Date: Tue Feb  1 08:20:08 2005
Author: ffjeld

Index: movitz/losp/muerte/primitive-functions.lisp
diff -u movitz/losp/muerte/primitive-functions.lisp:1.61 movitz/losp/muerte/primitive-functions.lisp:1.62
--- movitz/losp/muerte/primitive-functions.lisp:1.61	Tue Jan 25 05:54:57 2005
+++ movitz/losp/muerte/primitive-functions.lisp	Tue Feb  1 08:20:08 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.61 2005/01/25 13:54:57 ffjeld Exp $
+;;;; $Id: primitive-functions.lisp,v 1.62 2005/02/01 16:20:08 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -73,7 +73,8 @@
      (with-inline-assembly (:returns :nothing)
        (:movl :esi :edx)		; parameter for standard-gf-function.
        (:movl (:esi ,(bt:slot-offset 'movitz::movitz-funobj-standard-gf
-				     (intern (symbol-name to) :movitz))) :esi)
+				     (intern (symbol-name to) :movitz)))
+	      :esi)
        (:jmp (:esi ,(bt:slot-offset 'movitz::movitz-funobj
 				    (intern (symbol-name forward) :movitz)))))))