/[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.3 by rtoy, Thu Feb 25 03:59:43 2010 UTC revision 1.34.32.4 by rtoy, Thu Feb 25 04:35:40 2010 UTC
# Line 524  Line 524 
524                             (leaf-name (elt (lambda-vars lambda) pos)))))))                             (leaf-name (elt (lambda-vars lambda) pos)))))))
525      (cond ((eq dtype *empty-type*))      (cond ((eq dtype *empty-type*))
526            ((and (ref-p node) (constant-p (ref-leaf node)))            ((and (ref-p node) (constant-p (ref-leaf node)))
527             (compiler-warning _"~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"             (compiler-warning _N"~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
528                               what atype-spec (constant-value (ref-leaf node))))                               what atype-spec (constant-value (ref-leaf node))))
529            (t            (t
530             (compiler-warning             (compiler-warning
531              _"~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"              _N"~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
532              what (type-specifier dtype) atype-spec))))              what (type-specifier dtype) atype-spec))))
533    (undefined-value))    (undefined-value))
534    

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

  ViewVC Help
Powered by ViewVC 1.1.5