X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_misc.lisp;h=e19f3a2fe5e4aa0213ee8fd9e7710ff312109244;hb=6a3d1ffb69036e6d4f1c239fd7d52f9bfc48d50c;hp=0785af78cb07b8273216faf180fcd7ca1626584f;hpb=2fbfb3420ca25c0228e04b5696d42abce5e055ed;p=gacela.git diff --git a/gacela_misc.lisp b/gacela_misc.lisp index 0785af7..e19f3a2 100755 --- a/gacela_misc.lisp +++ b/gacela_misc.lisp @@ -14,6 +14,12 @@ ;;; You should have received a copy of the GNU General Public License ;;; along with this program. If not, see . + +(eval-when (compile load eval) + (when (not (find-package 'gacela)) (make-package 'gacela :nicknames '(gg) :use '(lisp))) + (in-package 'gacela :nicknames '(gg) :use '(lisp))) + + (defconstant INFINITY MOST-POSITIVE-LONG-FLOAT) (defun append-if (new test tree &key (key #'first) (test-if #'equal))