/[gcl]/gcl/lsp/defpackage.lsp
ViewVC logotype

Diff of /gcl/lsp/defpackage.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by camm, Tue Oct 15 14:51:51 2002 UTC revision 1.8 by camm, Thu Oct 24 22:10:45 2002 UTC
# Line 265  Line 265 
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)
# Line 275  Line 279 
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

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26