X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Farray-tran.lisp;h=e94f70dbba8a892122d47ec8f968055482733bbf;hb=e2b33e0d99f0f93263defcd2e0dffe20c4e388f3;hp=5d055abf96376d45f05fb4296c3431d020523589;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index 5d055ab..e94f70d 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -174,20 +174,20 @@
 	    (:copier nil))
   ;; the element type, e.g. #<BUILT-IN-CLASS BASE-CHAR (sealed)> or
   ;; #<SB-KERNEL:NUMERIC-TYPE (UNSIGNED-BYTE 4)>
-  (ctype (required-argument) :type ctype :read-only t)
+  (ctype (missing-arg) :type ctype :read-only t)
   ;; what we get when the low-level vector-creation logic zeroes all
   ;; the bits (which also serves as the default value of MAKE-ARRAY's
   ;; :INITIAL-ELEMENT keyword)
-  (initial-element-default (required-argument) :read-only t)
+  (initial-element-default (missing-arg) :read-only t)
   ;; how many bits per element
-  (n-bits (required-argument) :type index :read-only t)
+  (n-bits (missing-arg) :type index :read-only t)
   ;; the low-level type code
-  (typecode (required-argument) :type index :read-only t)
+  (typecode (missing-arg) :type index :read-only t)
   ;; the number of extra elements we use at the end of the array for
   ;; low level hackery (e.g., one element for arrays of BASE-CHAR,
   ;; which is used for a fixed #\NULL so that when we call out to C
   ;; we don't need to cons a new copy)
-  (n-pad-elements (required-argument) :type index :read-only t))
+  (n-pad-elements (missing-arg) :type index :read-only t))
 
 (defparameter *specialized-array-element-type-properties*
   (map 'simple-vector
@@ -253,11 +253,11 @@
 				   'length
 				   `(+ length ,n-pad-elements)))
 	   (n-words-form
-	    (if (>= n-bits-per-element sb!vm:word-bits)
+	    (if (>= n-bits-per-element sb!vm:n-word-bits)
 		`(* ,padded-length-form
 		    (the fixnum ; i.e., not RATIO
-		      ,(/ n-bits-per-element sb!vm:word-bits)))
-		(let ((n-elements-per-word (/ sb!vm:word-bits
+		      ,(/ n-bits-per-element sb!vm:n-word-bits)))
+		(let ((n-elements-per-word (/ sb!vm:n-word-bits
 					      n-bits-per-element)))
 		  (declare (type index n-elements-per-word)) ; i.e., not RATIO
 		  `(ceiling ,padded-length-form ,n-elements-per-word))))