Fix keyword bloating in DEFPACKAGE clauses (#33)

* Fix keyword bloating in DEFPACKAGE :EXPORT clauses * Fix keyword bloating in DEFPACKAGE :SHADOW clause
edicl · Feb 23, 2022 · 07dafe9 · 07dafe9
1 parent 0d38264
commit 07dafe9
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 30 deletions.
diff --git 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
@@ -31,4 +31,4 @@
 
 (defpackage :cl-who-test
   (:use :cl :cl-who)
-  (:export :run-all-tests))
+  (:export #:run-all-tests))