(no commit message)

diff --git a/Makefile b/Makefile
index f38a6d766ae7a24dacbb135e77382ff2cdeac51c..c0b0ebae5cbcceadbc83199f564aa18a744b1527 100644 (file)
--- 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 65554bac08cdc1975e3a9210b64a0b36e03986dd..36817cf427ea21f349065d70a12ff77e271ea57a 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -15,10 +15,19 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
+(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)