r9173: add defconst
authorKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 29 Apr 2004 15:16:56 +0000 (15:16 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 29 Apr 2004 15:16:56 +0000 (15:16 +0000)
debian/changelog
macros.lisp
package.lisp

index 22392e9..e95bcf5 100644 (file)
@@ -1,3 +1,9 @@
+cl-kmrcl (1.70-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu, 29 Apr 2004 09:16:46 -0600
+
 cl-kmrcl (1.69-1) unstable; urgency=low
 
   * New upstream
index bf2714b..1239eb4 100644 (file)
              (pprint exp)))
      (format t "~%~%")
      (values)))
+
+(defmacro defconst (symbol value &optional doc)
+   `(defconstant ,symbol (if (boundp ',symbol)
+                             (symbol-value ',symbol)
+                             ,value)
+     ,@(when doc (list doc))))
index 3d44266..042fc11 100644 (file)
    #:def-cached-instance
    #:with-ignore-errors
    #:ppmx
-
+   #:defconst
+   
    ;; files.lisp
    #:print-file-contents
    #:read-stream-to-string