Changeset 11848
- Timestamp:
- 05/09/09 18:01:56 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r11845 r11848 240 240 (parse-body (cdr form) nil) 241 241 (process-optimization-declarations decls) 242 (process-toplevel-progn forms stream compile-time-too) 242 (let* ((jvm::*visible-variables* jvm::*visible-variables*) 243 (specials (process-special-declarations decls))) 244 (dolist (special specials) 245 (push (jvm::make-variable :name special :special-p t) 246 jvm::*visible-variables*)) 247 (process-toplevel-progn forms stream compile-time-too)) 243 248 (return-from process-toplevel-form)))) 244 249 (PROGN
Note: See TracChangeset
for help on using the changeset viewer.