(unless (find-package :geta-interface-stuff)
                    (defpackage geta-interface-stuff
                      (:use :common-lisp :ccl)
                      (:nicknames :gis)
                      ))