Changeset 11823


Ignore:
Timestamp:
Mar 18, 2009, 11:54:15 PM (10 years ago)
Author:
gz
Message:

record source transformation when wrap THE

Location:
branches/working-0711/ccl/compiler
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx0.lisp

    r11819 r11823  
    407407                           t)))
    408408    (when (nx-declarations-typecheck env)
    409       (setq form `(the ,form-type ,form)))
     409      (setq form `(the ,form-type ,form))
     410      (nx-note-source-transformation (caddr form) form))
    410411    (nx1-typed-form form env)))
    411412
  • branches/working-0711/ccl/compiler/nx1.lisp

    r11819 r11823  
    10311031                     (let ((*nx-form-type* declared-type))
    10321032                       (when (nx-declarations-typecheck env)
    1033                          (setq val `(the ,declared-type ,val)))
     1033                         (setq val `(the ,declared-type ,val))
     1034                         (nx-note-source-transformation (caddr val) val))
    10341035                       (setq val (nx1-typed-form val env)))
    10351036                     (if (and info (neq info :special))
Note: See TracChangeset for help on using the changeset viewer.