;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-(in-package :gacela :nicknames '(gg))
+(eval-when (compile load) (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+(eval-when (compile load eval)
+ (when (not (find-package 'gacela)) (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+ (in-package 'gacela :nicknames '(gg) :use '(lisp)))
+
;;; Default values for Gacela
(defvar *width-screen* 640)
(setq screen nil)))
(defun set-2d-mode ()
- (cond ((3d-mode?)
+ (cond ((not (3d-mode?))
(init-video-mode)
(glDisable GL_DEPTH_TEST)
(apply-mode-change))))
(defun set-3d-mode ()
- (cond ((not (3d-mode?))
+ (cond ((3d-mode?)
(init-video-mode)
(glClearDepth 1)
(glEnable GL_DEPTH_TEST)