diff options
| -rw-r--r-- | packages.lisp | 2 | ||||
| -rw-r--r-- | specials.lisp | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/packages.lisp b/packages.lisp index e5656d7..bf843b6 100644 --- a/packages.lisp +++ b/packages.lisp @@ -32,7 +32,7 @@ (defpackage :cl-who (:use :cl) (:nicknames :who) - #+:sbcl (:shadow :defconstant) + #+(or :clasp :sbcl) (:shadow :defconstant) #+:sb-package-locks (:lock t) (:export :*attribute-quote-char* :*empty-attribute-syntax* diff --git a/specials.lisp b/specials.lisp index c55c3e0..34d9689 100644 --- a/specials.lisp +++ b/specials.lisp @@ -29,9 +29,9 @@ (in-package :cl-who) -#+:sbcl +#+(or :clasp :sbcl) (defmacro defconstant (name value &optional doc) - "Make sure VALUE is evaluated only once \(to appease SBCL)." + "Make sure VALUE is evaluated only once \(to appease SBCL & clasp)." `(cl:defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value) ,@(when doc (list doc)))) |