#+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)
(defvar *window* nil)
+(export 'start-atom-game)
(defun start-atom-game (&rest initargs)
(when *window*
(gtk:widget-destroy *window*)