Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv1322
Modified Files: basic-macros.lisp Log Message: Minor cleanup.
Date: Tue May 3 23:25:30 2005 Author: ffjeld
Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.59 movitz/losp/muerte/basic-macros.lisp:1.60 --- movitz/losp/muerte/basic-macros.lisp:1.59 Mon May 2 23:33:29 2005 +++ movitz/losp/muerte/basic-macros.lisp Tue May 3 23:25:30 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.59 2005/05/02 21:33:29 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.60 2005/05/03 21:25:30 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -708,6 +708,10 @@ (if (not (eq ,var (load-global-constant new-unbound-value))) ,var ,error-continuation)))))) + +(define-compiler-macro current-run-time-context () + `(with-inline-assembly (:returns :register) + (:locally (:movl (:edi (:edi-offset self)) (:result-register)))))
#+ignore (define-compiler-macro apply (&whole form function &rest args)