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

Modified Files: los-closette.lisp Log Message: Have macros in the run-time.

--- /project/movitz/cvsroot/movitz/losp/muerte/los-closette.lisp 2007/03/11 22:43:14 1.37 +++ /project/movitz/cvsroot/movitz/losp/muerte/los-closette.lisp 2008/03/15 20:57:57 1.38 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Jul 23 14:29:10 2002 ;;;; -;;;; $Id: los-closette.lisp,v 1.37 2007/03/11 22:43:14 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.38 2008/03/15 20:57:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -873,7 +873,7 @@ (equal '(:around) (method-qualifiers method)))

-(defmacro define-effective-slot-reader (name location) +(defmacro/cross-compilation define-effective-slot-reader (name location) (if movitz::*compiler-use-into-unbound-protocol* `(defun ,name (instance) (with-inline-assembly (:returns :multiple-values) @@ -1002,6 +1002,7 @@ (defclass funcallable-standard-class (std-slotted-class) ())

(defclass function (t) () (:metaclass built-in-class)) +(defclass macro-function (function) () (:metaclass built-in-class)) (defclass funcallable-standard-object (standard-object function) ()) (defclass generic-function (metaobject funcallable-standard-object) ()) (defclass standard-generic-function (generic-function)