fix a parameter declaration

diff --git a/main.lisp b/main.lisp
index 1648f5e..eab82c5 100644 (file)
--- a/main.lisp
+++ b/main.lisp
@@ -6,6 +6,7 @@
 (defparameter *editor-frame* nil "Container for the text-editor control")
 (defparameter *listener* nil "The Lisp listener interface and command interpreter")
 (defparameter *statusbar* nil "The bar at the bottom of the screen")
+(defparameter *buffer-menubar* nil "store a reference to the buffer menubar for listing the open buffers")
 
 ;;; allocate sequential filenames for new files
 (let ((untitled 0))
@@ -1018,8 +1019,6 @@
     (destructuring-bind (key action) entry
       (add-key-binding ltk::*tk* key action))))
 
-(defparameter *buffer-menubar* nil "store a reference to the buffer menubar for listing the open buffers")
-
 (defun create-menus ()
   (let* ((mb (ltk:make-menubar))
          (mfile (ltk:make-menu mb "File"))