Changeset 11808
- Timestamp:
- 04/30/09 06:47:29 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r11783 r11808 259 259 (return-from process-toplevel-form)) 260 260 261 (when compile-time-too262 (eval form))263 264 261 (cond ((eq operator 'QUOTE) 265 262 ;; (setf form (precompile-form form nil)) 263 (when compile-time-too 264 (eval form)) 266 265 (return-from process-toplevel-form) 267 266 ) … … 283 282 (dump-form form stream)) 284 283 (%stream-terpri stream) 284 (when compile-time-too 285 (eval form)) 285 286 (return-from process-toplevel-form)) 286 287 ((and (eq operator '%SET-FDEFINITION) … … 310 311 (when (consp form) 311 312 (dump-form form stream) 312 (%stream-terpri stream))) 313 (%stream-terpri stream)) 314 (when compile-time-too 315 (eval form))) 313 316 314 317 (declaim (ftype (function (t) t) convert-ensure-method))
Note: See TracChangeset
for help on using the changeset viewer.