- ;; initial element #\SPACE and low-level default array
- ;; element #\NULL, is gone.
- (#\null (make-array 11 :element-type 'character) simple-string)
- (#\space (make-string 11 :initial-element #\space) string)
- (#\* (make-string 11 :initial-element #\*))
- (#\null (make-string 11))
- (#\null (make-string 11 :initial-element #\null))
- (#\x (make-string 11 :initial-element #\x))
- ;; And the other tweaks made when fixing bug 126 didn't
- ;; mess things up too badly either.
- (0 (make-array 11) simple-vector)
- (nil (make-array 11 :initial-element nil))
- (12 (make-array 11 :initial-element 12))
- (0 (make-array 11 :element-type '(unsigned-byte 4)) (simple-array (unsigned-byte 4) (*)))
- (12 (make-array 11
- :element-type '(unsigned-byte 4)
- :initial-element 12)))))
+ ;; initial element #\SPACE and low-level default array
+ ;; element #\NULL, is gone.
+ (#\null (make-array 11 :element-type 'character) simple-string)
+ (#\space (make-string 11 :initial-element #\space) string)
+ (#\* (make-string 11 :initial-element #\*))
+ (#\null (make-string 11))
+ (#\null (make-string 11 :initial-element #\null))
+ (#\x (make-string 11 :initial-element #\x))
+ ;; And the other tweaks made when fixing bug 126 didn't
+ ;; mess things up too badly either.
+ (0 (make-array 11) simple-vector)
+ (nil (make-array 11 :initial-element nil))
+ (12 (make-array 11 :initial-element 12))
+ (0 (make-array 11 :element-type '(unsigned-byte 4)) (simple-array (unsigned-byte 4) (*)))
+ (12 (make-array 11
+ :element-type '(unsigned-byte 4)
+ :initial-element 12)))))