/[gcl]/gcl/cmpnew/gcl_cmpmulti.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpmulti.lsp

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

revision 1.9 by camm, Mon Dec 27 22:15:45 2004 UTC revision 1.10 by camm, Tue Dec 28 22:24:18 2004 UTC
# Line 234  Line 234 
234                   (dec (var-is-declared var body))                   (dec (var-is-declared var body))
235                   (chb (var-is-changed var body)))                   (chb (var-is-changed var body)))
236               (let ((type (or exp typ frt inf outer))               (let ((type (or exp typ frt inf outer))
237                     (ublk (not (or dec chb))))                     (ublk (not (or chb))))
238                 (if type                 (if type
239                     (progn                     (progn
240                       (cmpnote "var ~S is type ~S from ~a, ~a~%"                       (cmpnote "var ~S is type ~S from ~a, ~a~%"
# Line 243  Line 243 
243                                               (frt "deduced function return type")                                               (frt "deduced function return type")
244                                               (inf "argument inference")                                               (inf "argument inference")
245                                               (outer "outer scope"))                                               (outer "outer scope"))
246                                (cond (dec "but is already declared")                                (cond (dec "is already declared, but amending declaration")
247                                      (chb "but is changed in body")                                      (chb "but is changed in body")
248                                      (t "declaring")))                                      (t "declaring")))
249                       (if ublk                       (if ublk

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

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26