Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv11812

Modified Files: more-macros.lisp Log Message: Moved some code around, to fix compilation order.

Date: Tue May 24 08:33:40 2005 Author: ffjeld

Index: movitz/losp/muerte/more-macros.lisp diff -u movitz/losp/muerte/more-macros.lisp:1.27 movitz/losp/muerte/more-macros.lisp:1.28 --- movitz/losp/muerte/more-macros.lisp:1.27 Thu May 5 22:52:10 2005 +++ movitz/losp/muerte/more-macros.lisp Tue May 24 08:33:40 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.27 2005/05/05 20:52:10 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.28 2005/05/24 06:33:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -404,6 +404,22 @@ (when ,var (sti))))))

+(define-compiler-macro dit-frame-ref (&whole form stack frame reg + &optional (type :lisp) + &environment env) + (if (not (and (movitz:movitz-constantp stack env) + (eq nil (movitz:movitz-eval stack env)))) + form + `(memref ,frame (dit-frame-offset ,reg) :type ,type))) + +(define-compiler-macro (setf dit-frame-ref) (&whole form value stack frame reg + &optional (type :lisp) + &environment env) + (if (not (and (movitz:movitz-constantp stack env) + (eq nil (movitz:movitz-eval stack env)))) + form + `(setf (memref ,frame (dit-frame-offset ,reg) :type ,type) ,value))) + ;;; Some macros that aren't implemented, and we want to give compiler errors.

(defmacro define-unimplemented-macro (name) @@ -414,3 +430,4 @@

(define-unimplemented-macro with-open-file) (define-unimplemented-macro restart-case) +