Changeset 13228
 Timestamp:
 02/25/11 22:43:08 (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/abcl/src/org/armedbear/lisp/compilerpass1.lisp
r13222 r13228 933 933 (dolist (special (fletfreespecials block)) 934 934 (push special *visiblevariables*)) 935 (setf (fletform block) 936 (list* (car form) 937 (removeif (lambda (fn) 938 (and (inlinep (localfunctionname fn)) 939 (not (localfunctionreferencesneededp fn)))) 940 localfunctions) 941 (p1body (cddr form)))) 942 block))))) 935 (let ((body (p1body (cddr form)))) 936 (setf (fletform block) 937 (list* (car form) 938 (removeif (lambda (fn) 939 (and (inlinep (localfunctionname fn)) 940 (not (localfunctionreferencesneededp fn)))) 941 localfunctions) 942 body))) 943 block))))) 943 944 944 945 … … 1034 1035 (list 'FUNCTION compiland))) 1035 1036 ((setf localfunction (findlocalfunction (cadr form))) 1036 (dformat t"p1function local function ~S~%" (cadr form))1037 1038 1037 (dformat "p1function local function ~S~%" (cadr form)) 1038 ;;we found out that the function needs a reference 1039 (setf (localfunctionreferencesneededp localfunction) t) 1039 1040 (let ((variable (localfunctionvariable localfunction))) 1040 1041 (when variable
Note: See TracChangeset
for help on using the changeset viewer.