[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp

[Frode Vatvedt Fjeld]

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 at 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