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

Diff of /src/compiler/eval.lisp

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

revision 1.9 by ram, Fri Feb 9 12:16:14 1990 UTC revision 1.10 by ram, Sat Feb 10 19:45:52 1990 UTC
# Line 620  Line 620 
620         (cond ((eq ,kind :full)         (cond ((eq ,kind :full)
621                (do-combination :full nil ,type))                (do-combination :full nil ,type))
622               ((eq ,kind :local)               ((eq ,kind :local)
623                (let* ((,lambda (c::ref-leaf (c::continuation-use fun)))                (let* ((,lambda (c::ref-leaf (c::continuation-use ,fun)))
624                       ,@letp-bind)                       ,@letp-bind)
625                  ,local-branch))                  ,local-branch))
626               ((eq (c::continuation-info fun) :unused)               ((eq (c::continuation-info ,fun) :unused)
627                (assert (typep ,kind 'c::function-info))                (assert (typep ,kind 'c::function-info))
628                (do-funny-function (c::continuation-function-name fun)))                (do-funny-function (c::continuation-function-name ,fun)))
629               (t               (t
630                (assert (typep ,kind 'c::function-info))                (assert (typep ,kind 'c::function-info))
631                (do-combination :full nil ,type))))))                (do-combination :full nil ,type))))))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5