[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
(print-frame): Fix parens.

--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2008/10/17 21:26:53	1.142
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2008/10/17 21:26:58	1.143
@@ -502,7 +502,7 @@
   (destructuring-bind (p context lfun pc) (rest frame)
     (format stream "(~S~{ ~S~})"
             (or (ccl::function-name lfun) lfun)
-            (frame-arguments p context lfun pc)))))
+            (frame-arguments p context lfun pc))))
 
 (defimplementation frame-locals (index)
   (block frame-locals