Changeset 11810
- Timestamp:
- 05/01/09 20:40:07 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r11809 r11810 314 314 ;; (setf form (precompile-form form nil)) 315 315 (note-toplevel-form form) 316 (setf form (convert-toplevel-form form)) 316 (let ((new-form (convert-toplevel-form form))) 317 (when (consp new-form) 318 (dump-form new-form stream) 319 (%stream-terpri stream))) 320 (when compile-time-too 321 (eval form)) 322 (return-from process-toplevel-form) 317 323 ))))))) 318 324 (when (consp form)
Note: See TracChangeset
for help on using the changeset viewer.