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

Diff of /src/compiler/ir1opt.lisp

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

revision 1.60 by ram, Tue May 11 13:54:57 1993 UTC revision 1.61 by ram, Wed May 12 11:22:25 1993 UTC
# Line 851  Line 851 
851    (let* ((ref (continuation-use (basic-combination-fun call)))    (let* ((ref (continuation-use (basic-combination-fun call)))
852           (leaf (when (ref-p ref) (ref-leaf ref)))           (leaf (when (ref-p ref) (ref-leaf ref)))
853           (inlinep (if (and (defined-function-p leaf)           (inlinep (if (and (defined-function-p leaf)
854                             (not *byte-compiling*))                             (not (byte-compiling)))
855                        (defined-function-inlinep leaf)                        (defined-function-inlinep leaf)
856                        :no-chance)))                        :no-chance)))
857      (cond      (cond

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

  ViewVC Help
Powered by ViewVC 1.1.5