[Sbcl-commits] CVS: sbcl/src/code debug.lisp,1.47,1.48

[William H. N. <wn...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory usw-pr-cvs1:/tmp/cvs-serv23783/src/code

Modified Files:
	debug.lisp 
Log Message:
0.7.4.10:
	fixed dumb error in debug.lisp/0.7.4.9 modifications (spotted
		by eagle eyes of CSR)
	Since I still don't have a good fix for the bogus "error in
		constant folding" in %WITH-ARRAY-DATA-MACRO (e.g. in
		compiling src/compiler/dump.lisp)...
	...logged it as bug
	...downgraded it from full WARNING to STYLE-WARNING to make the
		bug less painful
	...removed :IGNORE-FAILURE-P from src/compiler/dump and
		src/code/cold-init entries in build-order.lisp-expr,
		since the downgrade to STYLE-WARNING makes them
		unneeded


Index: debug.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/debug.lisp,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- debug.lisp	30 May 2002 21:16:13 -0000	1.47
+++ debug.lisp	1 Jun 2002 02:34:52 -0000	1.48
@@ -1162,7 +1162,8 @@
 
 (!def-debug-command-alias "B" "BOTTOM")
 
-(!def-debug-command "FRAME" (&optional (n (read-prompting-maybe)))
+(!def-debug-command "FRAME" (&optional
+			     (n (read-prompting-maybe "frame number: ")))
   (setf *current-frame*
 	(multiple-value-bind (next-frame-fun limit-string)
 	    (if (< n (sb!di:frame-number *current-frame*))