/[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.34.32.4 by rtoy, Thu Feb 25 04:35:40 2010 UTC revision 1.36 by rtoy, Tue Apr 20 17:57:46 2010 UTC
# Line 518  Line 518 
518                            (eq (combination-kind dest) :local))                            (eq (combination-kind dest) :local))
519                   (let ((lambda (combination-lambda dest))                   (let ((lambda (combination-lambda dest))
520                         (pos (eposition cont (combination-args dest))))                         (pos (eposition cont (combination-args dest))))
521                     (format nil _"~:[A possible~;The~] binding of ~S"                     (format nil (intl:gettext "~:[A possible~;The~] binding of ~S")
522                             (and (continuation-use cont)                             (and (continuation-use cont)
523                                  (eq (functional-kind lambda) :let))                                  (eq (functional-kind lambda) :let))
524                             (leaf-name (elt (lambda-vars lambda) pos)))))))                             (leaf-name (elt (lambda-vars lambda) pos)))))))

Legend:
Removed from v.1.34.32.4  
changed lines
  Added in v.1.36

  ViewVC Help
Powered by ViewVC 1.1.5