Skip to content
Snippets Groups Projects
Commit 7dbb075f authored by fgilham's avatar fgilham
Browse files

Move some defvars to a place in the file before they're used.

parent aa09793a
No related branches found
No related tags found
No related merge requests found
...@@ -16,7 +16,7 @@ ...@@ -16,7 +16,7 @@
;;; ;;;
;;; To see a demo, compile and load feebs.lisp then type (feebs:feebs). ;;; To see a demo, compile and load feebs.lisp then type (feebs:feebs).
;;; ;;;
;;; $Id: feebs.lisp,v 1.5 2007/08/05 00:07:39 fgilham Exp $ ;;; $Id: feebs.lisp,v 1.6 2007/08/14 16:49:44 fgilham Exp $
;;; ;;;
(cl:in-package "COMMON-LISP") (cl:in-package "COMMON-LISP")
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
(require :clx) (require :clx)
) )
(declaim (optimize (speed 2) (safety 3) (debug 3))) (declaim (optimize (speed 2) (safety 3) (debug 3) (ext:inhibit-warnings 2)))
(defpackage "FEEBS" (defpackage "FEEBS"
(:use "COMMON-LISP") (:use "COMMON-LISP")
...@@ -51,6 +51,11 @@ ...@@ -51,6 +51,11 @@
(in-package "FEEBS") (in-package "FEEBS")
;;; Global X stuff
(defvar *display*)
(defvar *screen*)
(defvar *root*)
;;; Macro for computing whether a random event has occurred, given the ;;; Macro for computing whether a random event has occurred, given the
;;; chance of occurrence as a ratio. ;;; chance of occurrence as a ratio.
...@@ -854,11 +859,6 @@ ...@@ -854,11 +859,6 @@
;;; Ported to X11. Color added. ;;; Ported to X11. Color added.
;;; Global X stuff
(defvar *display*)
(defvar *screen*)
(defvar *root*)
(defvar *birds-eye-window*) (defvar *birds-eye-window*)
(defvar *status-window*) (defvar *status-window*)
(defvar *banner-window*) (defvar *banner-window*)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment