atoms.lisp: Move `export' calls to near the appropriate definition.

diff --git a/atoms.lisp b/atoms.lisp
index c68a6677ff546fa43de55c94679938250164acc9..3f225b39c8dc77ea2125b33a5400c78af1cbb423 100644 (file)
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -26,8 +26,7 @@ (cl:defpackage #:atoms
        #+cmu #:ext
        #+sbcl #:sb-ext
        #+clisp #:ext)
        #+cmu #:ext
        #+sbcl #:sb-ext
        #+clisp #:ext)

-  #+clisp (:shadow #:map-dependents #:add-dependent #:remove-dependent)
-  (:export #:start-atom-game))
+  #+clisp (:shadow #:map-dependents #:add-dependent #:remove-dependent))

 (cl:in-package #:atoms)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
 (cl:in-package #:atoms)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)


@@ -1150,6 +1149,7 @@ (defmethod shared-initialize :after
 
 (defvar *window* nil)
 
 
 (defvar *window* nil)
 

+(export 'start-atom-game)

 (defun start-atom-game (&rest initargs)
   (when *window*
     (gtk:widget-destroy *window*)
 (defun start-atom-game (&rest initargs)
   (when *window*
     (gtk:widget-destroy *window*)