diff options
| author | Karsten Poeck <karsten.poeck@gmail.com> | 2019-05-21 11:43:39 +0200 |
|---|---|---|
| committer | Stas Boukarev <stassats@gmail.com> | 2019-05-21 13:13:08 +0300 |
| commit | 4661aba0faba908e63d1c1dbec035c855e834faf (patch) | |
| tree | cc23bfa3f92f465514e761b850652e13d2dae2b0 | |
| parent | 2c08caa4bafba720409af9171feeba3f32e86d32 (diff) | |
| download | tl-who-4661aba0faba908e63d1c1dbec035c855e834faf.tar.gz tl-who-4661aba0faba908e63d1c1dbec035c855e834faf.tar.bz2 tl-who-4661aba0faba908e63d1c1dbec035c855e834faf.zip | |
Adapt defconstant for clasp (behaving like sbcl)
| -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)))) |