/[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.22 by rtoy, Mon Apr 19 15:08:20 2010 UTC revision 1.23 by rtoy, Tue Apr 20 17:57:46 2010 UTC
# Line 565  Line 565 
565      (unless (and (not (sc-save-p sc))      (unless (and (not (sc-save-p sc))
566                   (eq (sb-kind (sc-sb sc)) :unbounded))                   (eq (sb-kind (sc-sb sc)) :unbounded))
567        (dolist (alt (sc-alternate-scs sc)        (dolist (alt (sc-alternate-scs sc)
568                     (error _"SC ~S has no :unbounded :save-p NIL alternate SC."                     (error (intl:gettext "SC ~S has no :unbounded :save-p NIL alternate SC.")
569                            (sc-name sc)))                            (sc-name sc)))
570          (when (and (not (sc-save-p alt))          (when (and (not (sc-save-p alt))
571                     (eq (sb-kind (sc-sb alt)) :unbounded))                     (eq (sb-kind (sc-sb alt)) :unbounded))

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5