[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-ccl.lisp 
Log Message:
* swank-ccl.lisp (with-frame): Put this macro before it's used.


--- /project/slime/cvsroot/slime/ChangeLog	2010/01/20 14:11:06	1.1967
+++ /project/slime/cvsroot/slime/ChangeLog	2010/01/21 23:21:26	1.1968
@@ -1,3 +1,7 @@
+2010-01-21  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-ccl.lisp (with-frame): Put this macro before it's used.
+
 2010-01-20  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-thread-kill): If the region is active, then
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2010/01/03 15:58:29	1.13
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2010/01/21 23:21:26	1.14
@@ -434,6 +434,9 @@
                      (format stream " ~s" arg)))))
       (format stream ")"))))
 
+(defmacro with-frame ((p context) frame-number &body body)
+  `(call/frame ,frame-number (lambda (,p ,context) . ,body)))
+
 (defimplementation frame-call (frame-number)
   (with-frame (p context) frame-number
     (with-output-to-string (stream)
@@ -446,8 +449,6 @@
        (funcall if-found p context)))
    frame-number))
 
-(defmacro with-frame ((p context) frame-number &body body)
-  `(call/frame ,frame-number (lambda (,p ,context) . ,body)))
 
 (defimplementation frame-var-value (frame var)
   (with-frame (p context) frame