Changeset 12090


Ignore:
Timestamp:
08/08/09 20:48:49 (12 years ago)
Author:
ehuelsmann
Message:

Use PROCESS-DECLARATIONS-FOR-VARS in compile-file.lisp.

Rationale: Use package internals which return the required information,
so that we don't need to create it ourselves.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r12015 r12090  
    246246               (process-optimization-declarations decls)
    247247               (let* ((jvm::*visible-variables* jvm::*visible-variables*)
    248                       (specials (process-special-declarations decls)))
     248                      (specials (jvm::process-declarations-for-vars (cdr form)
     249                                                                    nil nil)))
    249250                 (dolist (special specials)
    250                    (push (jvm::make-variable :name special :special-p t)
    251                          jvm::*visible-variables*))
     251                   (push special jvm::*visible-variables*))
    252252                 (process-toplevel-progn forms stream compile-time-too))
    253253               (return-from process-toplevel-form))))
Note: See TracChangeset for help on using the changeset viewer.