267 |
(mapcar #'(lambda (list) |
(mapcar #'(lambda (list) |
268 |
`(SHADOWING-IMPORT |
`(SHADOWING-IMPORT |
269 |
(mapcar #'(lambda (symbol) |
(mapcar #'(lambda (symbol) |
270 |
(if (find-symbol symbol ,(first list)) |
(multiple-value-bind (sym fnd) (find-symbol symbol ,(first list)) |
271 |
(intern symbol ,(first list)) |
(unless fnd |
272 |
|
(specific-correctable-error |
273 |
|
:package-error |
274 |
|
"A package error occurred on ~S: ~S." ,(first list) |
275 |
|
(format nil "~%Symbol ~a not present" symbol))) |
276 |
|
(intern symbol ,(first list)))) |
277 |
; FIXME better error messages |
; FIXME better error messages |
278 |
(specific-correctable-error :package-error |
|
|
"" ,(first list) |
|
|
(format nil "Symbol ~S not present~%" symbol)))) |
|
279 |
',(rest list)))) |
',(rest list)))) |
280 |
SHADOWING-IMPORTed-from-symbol-names-list)) |
SHADOWING-IMPORTed-from-symbol-names-list)) |
281 |
(USE-PACKAGE ',(if (member ':USE options ':test #'option-test) |
(USE-PACKAGE ',(if (member ':USE options ':test #'option-test) |
284 |
,@(when IMPORTed-from-symbol-names-list |
,@(when IMPORTed-from-symbol-names-list |
285 |
(mapcar #'(lambda (list) |
(mapcar #'(lambda (list) |
286 |
`(IMPORT (mapcar #'(lambda (symbol) |
`(IMPORT (mapcar #'(lambda (symbol) |
287 |
(if (find-symbol symbol ,(first list)) |
(multiple-value-bind (sym fnd) (find-symbol symbol ,(first list)) |
288 |
(intern symbol ,(first list)) |
(unless fnd |
289 |
|
(specific-correctable-error |
290 |
|
:package-error |
291 |
|
"A package error occurred on ~S: ~S." ,(first list) |
292 |
|
(format nil "~%Symbol ~a not present" symbol))) |
293 |
|
(intern symbol ,(first list)))) |
294 |
; FIXME better error messages |
; FIXME better error messages |
|
(specific-correctable-error :package-error |
|
|
"" ,(first list) |
|
|
(format nil "Symbol ~S not present~%" symbol)))) |
|
295 |
',(rest list)))) |
',(rest list)))) |
296 |
IMPORTed-from-symbol-names-list)) |
IMPORTed-from-symbol-names-list)) |
297 |
,@(when INTERNed-symbol-names |
,@(when INTERNed-symbol-names |