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