/[cmucl]/src/compiler/meta-vmdef.lisp
ViewVC logotype

Diff of /src/compiler/meta-vmdef.lisp

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

revision 1.3 by ram, Fri Feb 26 08:39:04 1993 UTC revision 1.4 by ram, Thu Aug 12 10:56:31 1993 UTC
# Line 157  Line 157 
157    (check-type save-p boolean)    (check-type save-p boolean)
158    (check-type alternate-scs list)    (check-type alternate-scs list)
159    (check-type constant-scs list)    (check-type constant-scs list)
160      (unless (= (logcount alignment) 1)
161        (error "Alignment is not a power of two: ~S" alignment))
162    
163    (let ((sb (meta-sb-or-lose sb-name)))    (let ((sb (meta-sb-or-lose sb-name)))
164      (if (eq (sb-kind sb) :finite)      (if (eq (sb-kind sb) :finite)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5