-
Notifications
You must be signed in to change notification settings - Fork 0
/
package.lisp
36 lines (31 loc) · 1.14 KB
/
package.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
;;;; package.lisp
(defpackage #:strifebarge
(:use #:cl #:cl-who #:cl-css #:clsql #:hunchentoot #:parenscript #:cl-actors)
(:import-from #:cl-actors #:self)
(:import-from #:json #:encode-json-to-string #:decode-json-from-string)
(:import-from #:cl-ppcre #:scan-to-strings)
(:import-from #:ironclad
#:encrypt-in-place #:decrypt-in-place #:make-cipher #:digest-sequence
#:octets-to-integer #:integer-to-octets
#:ascii-string-to-byte-array #:byte-array-to-hex-string)
(:shadowing-import-from
#+openmcl-native-threads #:ccl
#+cmu #:pcl
#+sbcl #:sb-pcl
#+lispworks #:hcl
#+allegro #:mop
#+clisp #:clos
#:class-slots #:slot-definition-name)
(:shadow #:get-time))
(in-package #:strifebarge)
;;;;;;;;;;;;;;;;;;;; config variables
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defparameter *server-port* 5050)
(defparameter *board-square-size* 35)
(defparameter *game-ticker-frequency* 30
"How often, in seconds, the game clock should tick")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun board-scale (num)
"Used to scale ship and space representations."
(* *board-square-size* num))