[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv27498

Modified Files:
	swank-cmucl.lisp swank-sbcl.lisp 
Log Message:
(condition-extras): Fix typo.


--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2006/12/14 16:08:35	1.169
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2007/01/10 23:53:47	1.170
@@ -1711,7 +1711,7 @@
   (typecase condition
     (breakpoint 
      ;; pop up the source buffer
-     `((:short-frame-source 0))) 
+     `((:show-frame-source 0))) 
     (t '())))
 
 (defun signal-breakpoint (breakpoint frame)
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2007/01/09 03:36:15	1.174
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2007/01/10 23:53:47	1.175
@@ -680,7 +680,7 @@
 #+#.(swank-backend::sbcl-with-new-stepper-p)
 (defimplementation condition-extras (condition)
   (when (typep condition 'sb-impl::step-form-condition)
-    `((:short-frame-source 0))))
+    `((:show-frame-source 0))))
 
 (defimplementation call-with-debugging-environment (debugger-loop-fn)
   (declare (type function debugger-loop-fn))