From be59b033c63cc2cb0e5d516f602f6e932b128a4c Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 29 Apr 2004 15:16:56 +0000 Subject: [PATCH] r9173: add defconst --- debian/changelog | 6 ++++++ macros.lisp | 6 ++++++ package.lisp | 3 ++- 3 files changed, 14 insertions(+), 1 deletion(-) diff --git a/debian/changelog b/debian/changelog index 22392e9..e95bcf5 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.70-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Thu, 29 Apr 2004 09:16:46 -0600 + cl-kmrcl (1.69-1) unstable; urgency=low * New upstream diff --git a/macros.lisp b/macros.lisp index bf2714b..1239eb4 100644 --- a/macros.lisp +++ b/macros.lisp @@ -254,3 +254,9 @@ (pprint exp))) (format t "~%~%") (values))) + +(defmacro defconst (symbol value &optional doc) + `(defconstant ,symbol (if (boundp ',symbol) + (symbol-value ',symbol) + ,value) + ,@(when doc (list doc)))) diff --git a/package.lisp b/package.lisp index 3d44266..042fc11 100644 --- a/package.lisp +++ b/package.lisp @@ -140,7 +140,8 @@ #:def-cached-instance #:with-ignore-errors #:ppmx - + #:defconst + ;; files.lisp #:print-file-contents #:read-stream-to-string -- 2.34.1