]> git.jsancho.org Git - gacela.git/blobdiff - gacela_mobs.lisp
(no commit message)
[gacela.git] / gacela_mobs.lisp
index 264b3e5c228b38b5b92193950b6b3cff0fa8e56e..8f3d903120c6af184f7c5847c3006c112b60982e 100755 (executable)
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-;;; Mob Factory
+(eval-when (compile load eval)
+          (when (not (find-package 'gacela)) (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+          (in-package 'gacela :nicknames '(gg) :use '(lisp)))
+
 
-(in-package :gacela)
+;;; Mob Factory
 
 (defmacro makemob (name &rest methods)
   `(defun ,name (&rest args &aux (option (car args)))