/[cmucl]/src/compiler/locall.lisp
ViewVC logotype

Diff of /src/compiler/locall.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by ram, Sat Apr 20 14:12:00 1991 UTC revision 1.19 by ram, Mon Jul 29 16:02:27 1991 UTC
# Line 271  Line 271 
271    (declare (type component component))    (declare (type component component))
272    (loop    (loop
273      (unless (component-new-functions component) (return))      (unless (component-new-functions component) (return))
274      (let ((fun (pop (component-new-functions component))))      (let* ((fun (pop (component-new-functions component)))
275        (unless (eq (functional-kind fun) :deleted)             (kind (functional-kind fun)))
276          (when (lambda-p fun)        (cond ((eq kind :deleted))
277            (push fun (component-lambdas component)))              ((and (null (leaf-refs fun)) (eq kind nil)
278          (local-call-analyze-1 fun)                    (not (functional-entry-function fun)))
279          (when (lambda-p fun)               (delete-functional fun))
280            (maybe-let-convert fun)))))              (t
281                 (when (lambda-p fun)
282                   (push fun (component-lambdas component)))
283                 (local-call-analyze-1 fun)
284                 (when (lambda-p fun)
285                   (maybe-let-convert fun))))))
286    
287    (undefined-value))    (undefined-value))
288    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

  ViewVC Help
Powered by ViewVC 1.1.5