[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv27345

Modified Files:
	ChangeLog swank-openmcl.lisp 
Log Message:
* swank-openmcl.lisp (disassemble-frame): Print current PC.

--- /project/slime/cvsroot/slime/ChangeLog	2009/06/05 19:49:01	1.1780
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/05 19:58:53	1.1781
@@ -8,6 +8,8 @@
 	* swank-openmcl.lisp (compiler-warning-short-message): New GF.
 	(handle-compiler-warning): Use it.
 
+	(disassemble-frame): Print current PC.
+
 2009-06-04  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-dispatch-event [:emcas-rex]): Don't clutter
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/06/05 19:49:02	1.174
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/06/05 19:58:54	1.175
@@ -538,7 +538,7 @@
 
 (defimplementation disassemble-frame (the-frame-number)
   (with-frame (p context lfun pc) the-frame-number
-    (format t "LFUN: ~a~%PC: ~a  FP: #x~x  CONTEXT: ~a~%" flun pc p context)
+    (format t "LFUN: ~a~%PC: ~a  FP: #x~x  CONTEXT: ~a~%" lfun pc p context)
     (disassemble lfun)))
 
 ;; BREAK