[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-serv26317

Modified Files:
	debugger.lisp 
Log Message:
sync

Date: Thu Sep  1 00:34:58 2005
Author: ffjeld

Index: movitz/losp/x86-pc/debugger.lisp
diff -u movitz/losp/x86-pc/debugger.lisp:1.40 movitz/losp/x86-pc/debugger.lisp:1.41
--- movitz/losp/x86-pc/debugger.lisp:1.40	Thu May  5 22:52:45 2005
+++ movitz/losp/x86-pc/debugger.lisp	Thu Sep  1 00:34:58 2005
@@ -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.40 2005/05/05 20:52:45 ffjeld Exp $
+;;;; $Id: debugger.lisp,v 1.41 2005/08/31 22:34:58 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -636,6 +636,7 @@
 	  (do () (nil)
 	    (multiple-value-bind (morep setf-name symbol)
 		(hashis)
+	      (declare (ignore setf-name))
 	      (cond
 	       ((not morep)
 		(return nil))