/[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.5 by camm, Sat Oct 5 18:34:15 2002 UTC revision 1.6 by camm, Mon Oct 14 05:24:43 2002 UTC
# Line 212  Line 212 
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))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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