207
207
(dolist (item imported-from-symbol-names-list)
208
208
(let ((package (find-package (first item))))
209
209
(dolist (name (rest item))
211
213
(mapc #'intern interned-symbol-names)
212
214
(export (mapcar #'intern exported-symbol-names))
213
215
(dolist (package exported-from-package-names)