[slime-cvs] CVS update: slime/swank-clisp.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv8027

Modified Files:
	swank-clisp.lisp 
Log Message:
(*buffer-name* *buffer-offset*): Move definitions upward before the
first use.

Date: Wed Dec 15 23:35:20 2004
Author: heller

Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.44 slime/swank-clisp.lisp:1.45
--- slime/swank-clisp.lisp:1.44	Sun Dec  5 16:25:37 2004
+++ slime/swank-clisp.lisp	Wed Dec 15 23:35:20 2004
@@ -337,7 +337,10 @@
   `(ext:letf* ,(loop for (name function) in names-functions
 		     collect `((symbol-function ',name) ,function))
     , at body))
- 
+
+(defvar *buffer-name* nil)
+(defvar *buffer-offset*)
+
 (defun compiler-note-location ()
   "Return the current compiler location."
   (let ((lineno1 sys::*compile-file-lineno1*)
@@ -383,9 +386,6 @@
 			  :severity :warning
 			  :message (princ-to-string condition)
 			  :location (compiler-note-location))))
-
-(defvar *buffer-name* nil)
-(defvar *buffer-offset*)
 
 (defimplementation swank-compile-file (filename load-p)
   (with-compilation-hooks ()