Changeset 12979
- Timestamp:
- 10/17/10 19:36:13 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
r12749 r12979 919 919 (setf (local-function-definition local-function) 920 920 (copy-tree definition)) 921 (setf (local-function-inline-expansion local-function)922 921 ;(setf (local-function-inline-expansion local-function) 922 ;(generate-inline-expansion block-name lambda-list body)) 923 923 (p1-compiland compiland))) 924 924 (push local-function local-functions))) … … 934 934 (push special *visible-variables*)) 935 935 (setf (flet-form block) 936 (list* (car form) local-functions (p1-body (cddr form)))) 936 (list* (car form) 937 (remove-if (lambda (fn) 938 (and (inline-p (local-function-name fn)) 939 (not (local-function-references-needed-p fn)))) 940 local-functions) 941 (p1-body (cddr form)))) 937 942 block))))) 938 943
Note: See TracChangeset
for help on using the changeset viewer.