/[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.28 by wlott, Wed Apr 15 15:38:27 1992 UTC revision 1.29 by ram, Mon Apr 27 19:47:24 1992 UTC
# Line 307  Line 307 
307                       fun)))                       fun)))
308            (*compiler-error-context* call))            (*compiler-error-context* call))
309        (let ((c1 (block-component (node-block call)))        (let ((c1 (block-component (node-block call)))
310              (c2 (block-component              (c2 (block-component (node-block (lambda-bind (main-entry fun))))))
                  (node-block (lambda-bind  
                               (if (optional-dispatch-p fun)  
                                   (optional-dispatch-main-entry fun)  
                                   fun))))))  
311          (assert (or (eq c1 c2)          (assert (or (eq c1 c2)
312                      (and (eq (component-kind c1) :initial)                      (and (eq (component-kind c1) :initial)
313                           (eq (component-kind c2) :initial)))))                           (eq (component-kind c2) :initial)))))

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

  ViewVC Help
Powered by ViewVC 1.1.5