printer.lisp: don't export symbols not in our package

diff --git a/printer.lisp b/printer.lisp
index e547f647a7dcb756457bc683bd7b4e5418d7b205..be8f85d8cea641b40fa631ddc94a6cc5f2145975 100644 (file)
--- a/printer.lisp
+++ b/printer.lisp
@@ -462,7 +462,12 @@
                           ~%(cl:in-package \"~A\")~
                           ~%(cl:export '(~{~A~^~%             ~}))~%~%"
                   pkg pkg (and *use-common-lisp-package* :common-lisp) pkg
-                  (collect-exports schema))))
+                  (remove-if-not
+                   #'(lambda (sym)
+                       (string=
+                        (package-name (symbol-package sym))
+                        pkg))
+                   (collect-exports schema)))))
       (when documentation
         (write-schema-documentation type documentation stream :indentation indentation))
       (format stream "~&(proto:define-schema ~(~A~)" (or class name))