/[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.20.56.1 by rtoy, Mon Feb 8 17:15:51 2010 UTC revision 1.20.56.2 by rtoy, Thu Feb 11 02:45:32 2010 UTC
# Line 34  Line 34 
34  ;;; Do-Packed-TNs  --  Interface  ;;; Do-Packed-TNs  --  Interface
35  ;;;  ;;;
36  (defmacro do-packed-tns ((tn component &optional result) &body body)  (defmacro do-packed-tns ((tn component &optional result) &body body)
37    "Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*    _N"Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*
38    Iterate over all packed TNs allocated in Component."    Iterate over all packed TNs allocated in Component."
39    (let ((n-component (gensym)))    (let ((n-component (gensym)))
40      `(let ((,n-component (component-info ,component)))      `(let ((,n-component (component-info ,component)))
# 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 _"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.20.56.1  
changed lines
  Added in v.1.20.56.2

  ViewVC Help
Powered by ViewVC 1.1.5