[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	swank.lisp 
Log Message:
(lookup-presented-object): Fix for OpenMCL 1.0 [ppc32], which requires
that the :NO-ERROR clause is last in HANDLER-CASE.


--- /project/slime/cvsroot/slime/swank.lisp	2006/08/22 09:31:10	1.394
+++ /project/slime/cvsroot/slime/swank.lisp	2006/08/25 15:44:07	1.395
@@ -2344,11 +2344,11 @@
        ((:frame-var frame index)
         (handler-case 
             (frame-var-value frame index)
-          (:no-error (value)
-            (values value t))
           (t (condition)
             (declare (ignore condition))
-            (values nil nil))))
+            (values nil nil))
+          (:no-error (value)
+            (values value t))))
        ((:inspected-part part-index)
         (if (< part-index (length *inspectee-parts*))
             (values (inspector-nth-part part-index) t)