212 |
(mapcar #'(lambda (list) |
(mapcar #'(lambda (list) |
213 |
`(SHADOWING-IMPORT (mapcar #'(lambda (symbol) (intern symbol ,(first list))) ',(rest list)))) |
`(SHADOWING-IMPORT (mapcar #'(lambda (symbol) (intern symbol ,(first list))) ',(rest list)))) |
214 |
SHADOWING-IMPORTed-from-symbol-names-list)) |
SHADOWING-IMPORTed-from-symbol-names-list)) |
215 |
(USE-PACKAGE ',(or (mapcar #'string (option-values ':USE options)) "LISP")) |
(USE-PACKAGE ',(if (member ':USE options ':test #'option-test) |
216 |
|
(mapcar #'string (option-values ':USE options)) |
217 |
|
"LISP")) |
218 |
,@(when IMPORTed-from-symbol-names-list |
,@(when IMPORTed-from-symbol-names-list |
219 |
(mapcar #'(lambda (list) `(IMPORT (mapcar #'(lambda (symbol) (intern symbol ,(first list))) ',(rest list)))) |
(mapcar #'(lambda (list) `(IMPORT (mapcar #'(lambda (symbol) (intern symbol ,(first list))) ',(rest list)))) |
220 |
IMPORTed-from-symbol-names-list)) |
IMPORTed-from-symbol-names-list)) |