diff options
| author | Kilian M. Haemmerle <61506792+kilianmh@users.noreply.github.com> | 2022-02-23 18:15:19 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-02-23 12:15:19 -0500 |
| commit | 07dafe9b351c32326ce20b5804e798f10d4f273d (patch) | |
| tree | 9dc3b5cf9f3df179864f7f9326fb7997c4a34e66 | |
| parent | 0d3826475133271ee8c590937136c1bc41b8cbe0 (diff) | |
| download | tl-who-master.tar.gz tl-who-master.tar.bz2 tl-who-master.zip | |
Fix keyword bloating in DEFPACKAGE clauses (#33)master
* Fix keyword bloating in DEFPACKAGE :EXPORT clauses
* Fix keyword bloating in DEFPACKAGE :SHADOW clause
| -rw-r--r-- | packages.lisp | 58 | ||||
| -rw-r--r-- | test/packages.lisp | 2 |
2 files changed, 30 insertions, 30 deletions
diff --git a/packages.lisp b/packages.lisp index bf843b6..c52da45 100644 --- a/packages.lisp +++ b/packages.lisp @@ -32,35 +32,35 @@ (defpackage :cl-who (:use :cl) (:nicknames :who) - #+(or :clasp :sbcl) (:shadow :defconstant) + #+(or :clasp :sbcl) (:shadow #:defconstant) #+:sb-package-locks (:lock t) - (:export :*attribute-quote-char* - :*empty-attribute-syntax* - :*escape-char-p* - :*prologue* - :*downcase-tokens-p* - :*html-no-indent-tags* - :*html-empty-tags* - :*html-empty-tag-aware-p* - :conc - :convert-attributes - :convert-tag-to-string-list - :esc - :escape-char - :escape-char-all - :escape-char-iso-8859-1 - :escape-char-minimal - :escape-char-minimal-plus-quotes - :escape-string - :escape-string-all - :escape-string-iso-8859-1 - :escape-string-minimal - :escape-string-minimal-plus-quotes - :fmt - :htm - :html-mode - :str - :with-html-output - :with-html-output-to-string)) + (:export #:*attribute-quote-char* + #:*empty-attribute-syntax* + #:*escape-char-p* + #:*prologue* + #:*downcase-tokens-p* + #:*html-no-indent-tags* + #:*html-empty-tags* + #:*html-empty-tag-aware-p* + #:conc + #:convert-attributes + #:convert-tag-to-string-list + #:esc + #:escape-char + #:escape-char-all + #:escape-char-iso-8859-1 + #:escape-char-minimal + #:escape-char-minimal-plus-quotes + #:escape-string + #:escape-string-all + #:escape-string-iso-8859-1 + #:escape-string-minimal + #:escape-string-minimal-plus-quotes + #:fmt + #:htm + #:html-mode + #:str + #:with-html-output + #:with-html-output-to-string)) (pushnew :cl-who *features*) diff --git a/test/packages.lisp b/test/packages.lisp index b41a38e..7f5058a 100644 --- a/test/packages.lisp +++ b/test/packages.lisp @@ -31,4 +31,4 @@ (defpackage :cl-who-test (:use :cl :cl-who) - (:export :run-all-tests))
\ No newline at end of file + (:export #:run-all-tests))
\ No newline at end of file |