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

Modified Files: interrupt.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments.

Date: Mon Oct 11 15:52:54 2004 Author: ffjeld

Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.28 movitz/losp/muerte/interrupt.lisp:1.29 --- movitz/losp/muerte/interrupt.lisp:1.28 Thu Oct 7 14:42:38 2004 +++ movitz/losp/muerte/interrupt.lisp Mon Oct 11 15:52:54 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Apr 7 01:50:03 2004 ;;;; -;;;; $Id: interrupt.lisp,v 1.28 2004/10/07 12:42:38 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.29 2004/10/11 13:52:54 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -57,7 +57,7 @@ (if (not (and (movitz:movitz-constantp stack env) (eq nil (movitz:movitz-eval stack env)))) form - `(memref ,frame (dit-frame-offset ,reg) 0 ,type))) + `(memref ,frame (dit-frame-offset ,reg) :type ,type)))

(defun dit-frame-ref (stack frame reg &optional (type :lisp)) (stack-frame-ref stack frame (dit-frame-index reg) type)) @@ -263,7 +263,7 @@ (declare (without-check-stack-limit)) (macrolet ((dereference (fixnum-address &optional (type :lisp)) "Dereference the fixnum-address." - `(memref ,fixnum-address 0 0 ,type))) + `(memref ,fixnum-address 0 :type ,type))) (let (($eip (+ dit-frame (dit-frame-index :eip))) ($eax (+ dit-frame (dit-frame-index :eax))) ($ebx (+ dit-frame (dit-frame-index :ebx)))