Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv7833
Modified Files: interrupt.lisp Log Message: Add (setf dit-frame-ref).
Date: Wed Mar 9 08:20:55 2005 Author: ffjeld
Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.40 movitz/losp/muerte/interrupt.lisp:1.41 --- movitz/losp/muerte/interrupt.lisp:1.40 Thu Feb 3 10:18:55 2005 +++ movitz/losp/muerte/interrupt.lisp Wed Mar 9 08:20:54 2005 @@ -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.40 2005/02/03 09:18:55 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.41 2005/03/09 07:20:54 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -73,6 +73,10 @@ (eq nil (movitz:movitz-eval stack env)))) form `(setf (memref ,frame (dit-frame-offset ,reg) :type ,type) ,value))) + +(defun (setf dit-frame-ref) (value stack frame reg &optional (type :lisp)) + (setf (stack-frame-ref stack (+ frame (dit-frame-index reg)) 0 type) + value))
(defun dit-frame-casf (stack dit-frame) "Compute the `currently active stack-frame' when the interrupt occurred."