8ea70b812d
* Quicklisp * DEFINE-CONSTANT macro * First batch of files compiles w/ SBCL * Simple regression tests for combinations
23 lines
565 B
Common Lisp
23 lines
565 B
Common Lisp
;;;; kenzo.lisp
|
|
|
|
(IN-PACKAGE #:cat)
|
|
|
|
;;; "kenzo" goes here. Hacks and glory await!
|
|
|
|
(DEFUN KENZO-VERSION ()
|
|
(format t "~%*** Kenzo-Version 1.1.7 ***~2%")
|
|
(values))
|
|
|
|
;;(PROCLAIM '(OPTIMIZE (speed 3) (safety 1) (space 0) (debug 0)))
|
|
(DECLAIM '(OPTIMIZE (speed 0) (space 0) (debug 3)))
|
|
|
|
(DEFVAR *CMBN-CONTROL*)
|
|
(SETF *CMBN-CONTROL* T)
|
|
|
|
|
|
;; 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))))
|