Commit 9442152f authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Don't forget a (:use) in defpackage to not let non-portable defaults creep in.

parent b9f38ce4
......@@ -103,9 +103,8 @@
(loop :for (kw . ()) :in clauses
:when (member kw '(:import-from :shadowing-import-from)) :do
(map () #'ensure-imported (cddr clauses)))
`(defpackage ,package
`(defpackage ,package (:use)
,@(loop :for p :in mixed-packages
:collect `(:import-from ,p ,@(import-from p)))
,@clauses
(:export ,@(loop :for s :being :the :hash-keys :of h :collect s))))))
)
(:export ,@(loop :for s :being :the :hash-keys :of h :collect s)))))))
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment