From e8d0011910ee28959c108971ebe7259d242587a9 Mon Sep 17 00:00:00 2001 From: gheber Date: Wed, 31 Dec 2014 10:46:12 -0600 Subject: [PATCH] DEFINE-CONSTANT macro needs to be defined earlier. --- kenzo.lisp | 18 ++++++------------ 1 file changed, 6 insertions(+), 12 deletions(-) diff --git a/kenzo.lisp b/kenzo.lisp index 8b5f88a..edff033 100644 --- a/kenzo.lisp +++ b/kenzo.lisp @@ -9,6 +9,12 @@ ;;(PROCLAIM '(OPTIMIZE (speed 3) (safety 1) (space 0) (debug 0))) (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 (DEFVAR *CMBN-CONTROL*) @@ -141,15 +147,3 @@ (DEFVAR *SMGR-LIST*) (SETF *SMGR-LIST* +empty-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))))