The defpackage does not understand export

[foretspaisibles]

It looks like the defpackage macro does not understand :export clauses. When attempting to define a package with a :export clause the following error condition is met:

; Evaluation aborted on #<SB-KERNEL:CASE-FAILURE expected-type: "(MEMBER :USE)"datum: :EXPORT>.

This seems to refer to the code in package.lisp

(defmacro defpackage (package &rest options)
  (let (use)
    (dolist (option options)
      (ecase (car option)
        (:use
         (setf use (append use (cdr option))))))
    `(progn
       (eval-when (:load-toplevel :execute)
         (%defpackage ',(string package) ',use))
       (eval-when (:compile-toplevel)
         (make-package ',(string package) :use ',use)))))

Would it be enough to iterate over the provided symbols using the export function or would more care be needed?

[foretspaisibles]

#293