/[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.7 by ram, Mon Aug 6 15:13:11 1990 UTC revision 1.8 by ram, Thu Aug 16 16:25:20 1990 UTC
# Line 260  Line 260 
260    (loop    (loop
261      (unless (component-new-functions component) (return))      (unless (component-new-functions component) (return))
262      (let ((fun (pop (component-new-functions component))))      (let ((fun (pop (component-new-functions component))))
263        (unless (eq (functional-kind fun) :deleted)        (cond ((eq (functional-kind fun) :deleted))
264          (when (lambda-p fun)              ((and (null (leaf-refs fun))
265            (push fun (component-lambdas component)))                    (ecase (functional-kind fun)
266          (local-call-analyze-1 fun)                      ((nil :escape :cleanup) t)
267          (when (lambda-p fun)                      ((:optional :top-level) nil)))
268            (maybe-let-convert fun)))))               (delete-functional fun))
269                (t
270                 (when (lambda-p fun)
271                   (push fun (component-lambdas component)))
272                 (local-call-analyze-1 fun)
273                 (when (lambda-p fun)
274                   (maybe-let-convert fun))))))
275    
276    (undefined-value))    (undefined-value))
277    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5