(no commit message)

diff --git a/gacela.lisp b/gacela.lisp
index e009ec3187c5482c7294a491535e5bfd3d6a3e6a..65554bac08cdc1975e3a9210b64a0b36e03986dd 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -15,7 +15,10 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-(in-package :gacela :nicknames '(gg))
+(when (not (find-package 'gacela))
+  (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+(eval-when (eval) (in-package 'gacela :nicknames '(gg) :use '(lisp)))
 
 ;;; Default values for Gacela
 (defvar *width-screen* 640)

diff --git a/gacela_FTGL.lisp b/gacela_FTGL.lisp
index 8fa2bd02fa625e9491fdf04b5ed1e5da2299a0f4..fa40fa9e1f9f01639623621ef9f2f784e4daab9d 100644 (file)
--- a/gacela_FTGL.lisp
+++ b/gacela_FTGL.lisp
@@ -15,7 +15,10 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-(in-package :gacela)
+(when (not (find-package 'gacela))
+  (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+(eval-when (eval) (in-package 'gacela :nicknames '(gg) :use '(lisp)))
 
 (defmacro mapcconst (type c-type name)
   (let ((c-header (concatenate 'string c-type " gacela_" name " (void)"))

diff --git a/gacela_GL.lisp b/gacela_GL.lisp
index ad71629959d02e9c0a428e4981676c45ed2f6d1e..3548a710e483a7b4a04a73d1f70a5d1ded1bf0fb 100644 (file)
--- a/gacela_GL.lisp
+++ b/gacela_GL.lisp
@@ -15,7 +15,10 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-(in-package :gacela)
+(when (not (find-package 'gacela))
+  (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+(eval-when (eval) (in-package 'gacela :nicknames '(gg) :use '(lisp)))
 
 (defmacro mapcconst (type c-type name)
   (let ((c-header (concatenate 'string c-type " gacela_" name " (void)"))

diff --git a/gacela_SDL.lisp b/gacela_SDL.lisp
index da02a84033c2e2752dd57fde05a856028dc2cbf4..502c03a102dff9270436e877ad0a45e30bced6e4 100644 (file)
--- a/gacela_SDL.lisp
+++ b/gacela_SDL.lisp
@@ -15,7 +15,10 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-(in-package :gacela)
+(when (not (find-package 'gacela))
+  (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+(eval-when (eval) (in-package 'gacela :nicknames '(gg) :use '(lisp)))
 
 (defmacro mapcconst (type c-type name)
   (let ((c-header (concatenate 'string c-type " gacela_" name " (void)"))

diff --git a/gacela_draw.lisp b/gacela_draw.lisp
index 15b61e0ca96f0ba03d2b7d70e6d7bb21d603c435..85540b68a5e74347d277e5d004498821af2f99cd 100644 (file)
--- a/gacela_draw.lisp
+++ b/gacela_draw.lisp
@@ -14,7 +14,11 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-(in-package :gacela)
+
+(when (not (find-package 'gacela))
+  (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+(eval-when (eval) (in-package 'gacela :nicknames '(gg) :use '(lisp)))
 
 (defmacro with-color (color &body code)
   (cond (color

diff --git a/gacela_events.lisp b/gacela_events.lisp
index 4663e53579e9d1c0ee8f4dad213c78857e5e9e1f..7fe320b5d81b62191ebe4977a6dd0e55eac3c3a0 100644 (file)
--- a/gacela_events.lisp
+++ b/gacela_events.lisp
@@ -15,7 +15,10 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-(in-package :gacela)
+(when (not (find-package 'gacela))
+  (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+(eval-when (eval) (in-package 'gacela :nicknames '(gg) :use '(lisp)))
 
 ;;; SDL Events
 (defconstant SDL_NOEVENT          0)

diff --git a/gacela_misc.lisp b/gacela_misc.lisp
index bd7027a182b4fcbf773ad84f203e26e02e91faca..6e3e4ff0da07e867afb9baf31a1a64ecd866ad08 100755 (executable)
--- a/gacela_misc.lisp
+++ b/gacela_misc.lisp
@@ -14,7 +14,10 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-(in-package :gacela)
+(when (not (find-package 'gacela))
+  (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+(eval-when (eval) (in-package 'gacela :nicknames '(gg) :use '(lisp)))
 
 (defconstant INFINITY MOST-POSITIVE-LONG-FLOAT)
 

diff --git a/gacela_mobs.lisp b/gacela_mobs.lisp
index 264b3e5c228b38b5b92193950b6b3cff0fa8e56e..1f499ac4c85687509c2c8866b001f23c4a6f1155 100755 (executable)
--- a/gacela_mobs.lisp
+++ b/gacela_mobs.lisp
@@ -17,7 +17,10 @@
 
 ;;; Mob Factory
 
-(in-package :gacela)
+(when (not (find-package 'gacela))
+  (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+(eval-when (eval) (in-package 'gacela :nicknames '(gg) :use '(lisp)))
 
 (defmacro makemob (name &rest methods)
   `(defun ,name (&rest args &aux (option (car args)))

diff --git a/gacela_ttf.lisp b/gacela_ttf.lisp
index 9d8c0c57b39457194f39c132c76e8f644d556d2a..e29076a1772731749aff9b1937845a1bdbe756cb 100644 (file)
--- a/gacela_ttf.lisp
+++ b/gacela_ttf.lisp
@@ -14,7 +14,11 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-(in-package :gacela)
+
+(when (not (find-package 'gacela))
+  (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+(eval-when (eval) (in-package 'gacela :nicknames '(gg) :use '(lisp)))
 
 (defun load-font (font-file &key (size 40) (encoding ft_encoding_unicode) static)
   (let* ((key (make-resource-font :filename font-file :encoding encoding))

diff --git a/gacela_widgets.lisp b/gacela_widgets.lisp
index 3589067758a348702aa1afbe1f7e6c11b47ffd9e..b6d78e91b718c59b81c2c43913d13941183669e1 100755 (executable)
--- a/gacela_widgets.lisp
+++ b/gacela_widgets.lisp
@@ -15,7 +15,10 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-(in-package :gacela)
+(when (not (find-package 'gacela))
+  (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+(eval-when (eval) (in-package 'gacela :nicknames '(gg) :use '(lisp)))
 
 ;;; Timers