[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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 at 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)