Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv2447
Modified Files: debugger.lisp Log Message: Typo: slot-value should be symbol-value.
Date: Thu Oct 21 22:27:00 2004 Author: ffjeld
Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.26 movitz/losp/x86-pc/debugger.lisp:1.27 --- movitz/losp/x86-pc/debugger.lisp:1.26 Sat Sep 25 17:53:25 2004 +++ movitz/losp/x86-pc/debugger.lisp Thu Oct 21 22:27:00 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 22 10:09:18 2002 ;;;; -;;;; $Id: debugger.lisp,v 1.26 2004/09/25 15:53:25 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.27 2004/10/21 20:27:00 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -500,7 +500,7 @@ (cond ((eq 0 casf-funobj) (values 'default-interrupt-trampoline - (code-vector-offset (slot-value 'default-interrupt-trampoline) + (code-vector-offset (symbol-value 'default-interrupt-trampoline) eip))) ((not (typep casf-funobj 'function)) ;; Hm.. very suspicius