#xyzzy の defpackage で :shadowing-import-from 2 つと :shadow を書くとエラー

gistfile1.lisp

(defpackage :hoge
  (:use :lisp)
  (:shadowing-import-from :ansify
   :typecase)
  (:shadowing-import-from :ansi-loop
   :loop)
  (:shadow
   :car))
;=> :shadowと:shadowing-import-fromでcarが2回以上指定されています


diff --git a/lisp/package.l b/lisp/package.l
index 44f3aa6..d3665d1 100644
--- a/lisp/package.l
+++ b/lisp/package.l
@@ -44,10 +44,10 @@
     (mapc fn shadow)
     (setq option :shadowing-import-from)
     (dolist (x (cdr shadowing-import-from))
-      (mapc fn shadow))
+      (mapc fn x))
     (setq option :import-from)
     (dolist (x (cdr import-from))
-      (mapc fn shadow))
+      (mapc fn x))
     (setq option :intern)
     (mapc fn intern)
     (clrhash h)