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

Diff of /src/compiler/tn.lisp

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

revision 1.5 by ram, Wed Jun 6 14:16:32 1990 UTC revision 1.6 by ram, Tue Jul 3 16:51:00 1990 UTC
# Line 446  Line 446 
446  (defun tn-value (tn)  (defun tn-value (tn)
447    (declare (type tn tn))    (declare (type tn tn))
448    (assert (member (tn-kind tn) '(:constant :cached-constant)))    (assert (member (tn-kind tn) '(:constant :cached-constant)))
   (assert (/= (sc-number (tn-sc tn)) (sc-number-or-lose 'constant)))  
449    (constant-value (tn-leaf tn)))    (constant-value (tn-leaf tn)))
450    
451    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5