265 |
(mapcar #'(lambda (list) |
(mapcar #'(lambda (list) |
266 |
`(SHADOWING-IMPORT |
`(SHADOWING-IMPORT |
267 |
(mapcar #'(lambda (symbol) |
(mapcar #'(lambda (symbol) |
268 |
(intern symbol |
(if (find-symbol symbol ,(first list)) |
269 |
,(first list))) |
(intern symbol ,(first list)) |
270 |
|
; FIXME better error messages |
271 |
|
(specific-correctable-error :package-error |
272 |
|
"" ,(first list) |
273 |
|
(format nil "Symbol ~S not present~%" symbol)))) |
274 |
',(rest list)))) |
',(rest list)))) |
275 |
SHADOWING-IMPORTed-from-symbol-names-list)) |
SHADOWING-IMPORTed-from-symbol-names-list)) |
276 |
(USE-PACKAGE ',(if (member ':USE options ':test #'option-test) |
(USE-PACKAGE ',(if (member ':USE options ':test #'option-test) |
279 |
,@(when IMPORTed-from-symbol-names-list |
,@(when IMPORTed-from-symbol-names-list |
280 |
(mapcar #'(lambda (list) |
(mapcar #'(lambda (list) |
281 |
`(IMPORT (mapcar #'(lambda (symbol) |
`(IMPORT (mapcar #'(lambda (symbol) |
282 |
(intern symbol |
(if (find-symbol symbol ,(first list)) |
283 |
,(first list))) |
(intern symbol ,(first list)) |
284 |
|
; FIXME better error messages |
285 |
|
(specific-correctable-error :package-error |
286 |
|
"" ,(first list) |
287 |
|
(format nil "Symbol ~S not present~%" symbol)))) |
288 |
',(rest list)))) |
',(rest list)))) |
289 |
IMPORTed-from-symbol-names-list)) |
IMPORTed-from-symbol-names-list)) |
290 |
,@(when INTERNed-symbol-names |
,@(when INTERNed-symbol-names |