[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv3459

Modified Files:
	primitive-functions.lisp 
Log Message:
Have macros in the run-time.


--- /project/movitz/cvsroot/movitz/losp/muerte/primitive-functions.lisp	2007/02/19 21:58:27	1.69
+++ /project/movitz/cvsroot/movitz/losp/muerte/primitive-functions.lisp	2008/03/15 20:58:08	1.70
@@ -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.69 2007/02/19 21:58:27 ffjeld Exp $
+;;;; $Id: primitive-functions.lisp,v 1.70 2008/03/15 20:58:08 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -72,11 +72,9 @@
      ,docstring
      (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)))
+       (:movl (:esi (:offset movitz-funobj-standard-gf ,to))
 	      :esi)
-       (:jmp (:esi ,(bt:slot-offset 'movitz::movitz-funobj
-				    (intern (symbol-name forward) :movitz)))))))
+       (:jmp (:esi  (:offset movitz-funobj ,forward))))))
   
 (define-gf-dispatcher standard-gf-dispatcher ()
   "The code-vector of standard-gf instances." code-vector standard-gf-function)
@@ -582,6 +580,8 @@
      (find-class 'function))
     (structure-object
      (structure-object-class object))
+    (macro-function
+     (find-class 'macro-function))
     (character
      (find-class 'character))
     (null