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

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

--- /project/movitz/cvsroot/movitz/losp/muerte/typep.lisp 2006/05/06 20:29:10 1.54 +++ /project/movitz/cvsroot/movitz/losp/muerte/typep.lisp 2008/03/15 20:58:24 1.55 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 11:07:53 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: typep.lisp,v 1.54 2006/05/06 20:29:10 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.55 2008/03/15 20:58:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -265,6 +265,8 @@ (std-instance (make-other-typep :std-instance) #+ignore (make-tag-typep :std-instance)) + (macro-function + (make-function-typep :macro-function)) (standard-gf-instance (make-function-typep :generic-function)) (list @@ -648,6 +650,9 @@ (define-simple-typep (function functionp) (x) (typep x 'function))

+(define-simple-typep (macro-function macro-function-p) (x) + (typep x 'macro-function)) + (define-simple-typep (hash-table hash-table-p)) (define-simple-typep (package packagep))