Changeset 11812
- Timestamp:
- 05/01/09 21:40:08 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r11811 r11812 314 314 ;; (setf form (precompile-form form nil)) 315 315 (note-toplevel-form form) 316 (let ((new-form (convert-toplevel-form form))) 317 ;; The converted form depends on the loader 318 ;; but since we don't own the loader here, 319 ;; we'll dump the converted form and eval 320 ;; the original one (which won't depend on the loader 321 ;; because it doesn't contain a compiled function) 322 (when (consp new-form) 323 (dump-form new-form stream) 324 (%stream-terpri stream))) 325 (when compile-time-too 326 (eval form)) 327 (return-from process-toplevel-form) 316 (setf form (convert-toplevel-form form)) 328 317 ))))))) 329 318 (when (consp form) 330 319 (dump-form form stream) 331 320 (%stream-terpri stream)) 332 (when compile-time-too 333 (eval form))) 321 ;; Make sure the compiled-function loader knows where 322 ;; to load the compiled functions. Note that this trickery 323 ;; was already used in verify-load before I used it, 324 ;; however, binding *load-truename* isn't fully compliant, I think. 325 (let ((*load-truename* *output-file-pathname*)) 326 (when compile-time-too 327 (eval form)))) 334 328 335 329 (declaim (ftype (function (t) t) convert-ensure-method))
Note: See TracChangeset
for help on using the changeset viewer.