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

Diff of /src/compiler/checkgen.lisp

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

revision 1.22 by ram, Mon Sep 7 15:34:20 1992 UTC revision 1.23 by ram, Wed Aug 25 00:14:48 1993 UTC
# Line 433  Line 433 
433           (what (when (and (combination-p dest)           (what (when (and (combination-p dest)
434                            (eq (combination-kind dest) :local))                            (eq (combination-kind dest) :local))
435                   (let ((lambda (combination-lambda dest))                   (let ((lambda (combination-lambda dest))
436                         (pos (position cont (combination-args dest))))                         (pos (eposition cont (combination-args dest))))
437                     (format nil "~:[A possible~;The~] binding of ~S"                     (format nil "~:[A possible~;The~] binding of ~S"
438                             (and (continuation-use cont)                             (and (continuation-use cont)
439                                  (eq (functional-kind lambda) :let))                                  (eq (functional-kind lambda) :let))

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5