/[gcl]/gcl/mod/gcl_defpackage.lsp
ViewVC logotype

Diff of /gcl/mod/gcl_defpackage.lsp

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

revision 1.2 by camm, Tue Sep 23 21:48:34 2003 UTC revision 1.3 by camm, Mon Mar 7 18:32:26 2005 UTC
# Line 267  Line 267 
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)
# Line 281  Line 284 
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

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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