mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

DEFINE-CONSTANT macro needs to be defined earlier.

Browse Source
This commit is contained in:
gheber 2014-12-31 10:46:12 -06:00
parent 36b7046b78
commit e8d0011910
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
kenzo.lisp
View File

@ -9,6 +9,12 @@
;;(PROCLAIM '(OPTIMIZE (speed 3) (safety 1) (space 0) (debug 0))) ;;(PROCLAIM '(OPTIMIZE (speed 3) (safety 1) (space 0) (debug 0)))
(DECLAIM '(OPTIMIZE (speed 0) (space 0) (debug 3))) (DECLAIM '(OPTIMIZE (speed 0) (space 0) (debug 3)))
;; Don't mess with ANSI's definition of DEFCONSTANT!
(DEFMACRO DEFINE-CONSTANT (name value &optional doc)
`(defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value)
,@(when doc (list doc))))
;; globals from cat-init.lisp ;; globals from cat-init.lisp
(DEFVAR *CMBN-CONTROL*) (DEFVAR *CMBN-CONTROL*)
@ -141,15 +147,3 @@
(DEFVAR *SMGR-LIST*) (DEFVAR *SMGR-LIST*)
(SETF *SMGR-LIST* +empty-list+) (SETF *SMGR-LIST* +empty-list+)
(PUSHNEW '*SMGR-LIST* *list-list*) (PUSHNEW '*SMGR-LIST* *list-list*)
;; Don't mess with ANSI's definition of DEFCONSTANT!
(DEFMACRO DEFINE-CONSTANT (name value &optional doc)
`(defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value)
,@(when doc (list doc))))