Don't forget a (:use) in defpackage to not let non-portable defaults creep in.
authorFrancois-Rene Rideau <fare@tunes.org>
Thu, 30 Aug 2012 04:55:30 +0000 (00:55 -0400)
committerFrancois-Rene Rideau <fare@tunes.org>
Thu, 30 Aug 2012 04:55:30 +0000 (00:55 -0400)
base/packages.lisp

index 01c4a0c..1a70c37 100644 (file)
       (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)))))))