From c20d5336dc8c0a14afb21a57587c1f9928edab67 Mon Sep 17 00:00:00 2001 From: jsancho Date: Sun, 1 Aug 2010 08:21:05 +0000 Subject: [PATCH] --- Makefile | 2 +- gacela.lisp | 11 ++++++++++- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/Makefile b/Makefile index f38a6d7..c0b0eba 100644 --- a/Makefile +++ b/Makefile @@ -13,7 +13,7 @@ GCL_OBJ = $(OBJ:%.o=\"%.o\") $(LISP) -eval "(progn (load \"gacela_make.lisp\") (compile-gfile \"$<\" :include \"$(INC)\"))" -batch all: $(OBJ) - $(LISP) -eval "(compiler::link '($(GCL_OBJ)) \"gacela\" \"\" \"$(LIBS)\")" -batch + $(LISP) -eval "(progn (make-package 'gacela :nicknames '(gg) :use '(lisp)) (compiler::link '($(GCL_OBJ)) \"gacela\" \"\" \"$(LIBS)\"))" -batch clean: rm -f $(OBJ) gacela diff --git a/gacela.lisp b/gacela.lisp index 65554ba..36817cf 100644 --- a/gacela.lisp +++ b/gacela.lisp @@ -15,10 +15,19 @@ ;;; along with this program. If not, see . +(eval-when (compile) + (make-package 'gacela :nicknames '(gg) :use '(lisp)) + (in-package 'gacela :nicknames '(gg) :use '(lisp))) + +;(eval-when (load) +; (make-package 'gacela :nicknames '(gg) :use '(lisp)) +; (in-package 'gacela :nicknames '(gg) :use '(lisp))) + (when (not (find-package 'gacela)) (make-package 'gacela :nicknames '(gg) :use '(lisp))) -(eval-when (eval) (in-package 'gacela :nicknames '(gg) :use '(lisp))) +;(eval-when (compile) (make-package 'gacela :nicknames '(gg) :use '(lisp))) +(eval-when (eval load) (in-package 'gacela :nicknames '(gg) :use '(lisp))) ;;; Default values for Gacela (defvar *width-screen* 640) -- 2.39.5