~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/lsp/defpackage.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Peter Van Eynde
  • Date: 2006-06-21 09:21:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20060621092121-txz1f21lj0wh0f67
Tags: 0.9h-20060617-1
* New upstream version
* Updated standards version without real changes. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
207
207
    (dolist (item imported-from-symbol-names-list)
208
208
      (let ((package (find-package (first item))))
209
209
        (dolist (name (rest item))
210
 
          (import (find-or-make-symbol name package)))))
 
210
          ;; IMPORT can accept a list as argument, hence if we want to
 
211
          ;; import symbol NIL, we have to enclose it in a list.
 
212
          (import (or (find-or-make-symbol name package) (list NIL))))))
211
213
    (mapc #'intern interned-symbol-names)
212
214
    (export (mapcar #'intern exported-symbol-names))
213
215
    (dolist (package exported-from-package-names)