diff --git a/hemlock/spell-build.lisp b/hemlock/spell-build.lisp index b8fb29a446fdcffecd25e82b2c8b959600328d3e..ab906757fdba46a6b9ddfbb1d64ed7dbb68c9919 100644 --- a/hemlock/spell-build.lisp +++ b/hemlock/spell-build.lisp @@ -180,7 +180,7 @@ descriptor-ptr string-ptr) (declare (simple-string line string-table) (fixnum word-end descriptor-ptr string-ptr) - (type (array (unsigned-byte 16) 1) dictionary descriptors)) + (type (array (unsigned-byte 16) (*)) dictionary descriptors)) (nstring-upcase line :end word-end) (let* ((hash-loc (new-hash-entry line word-end dictionary)) (descriptor-ptr+1 (1+ descriptor-ptr)) @@ -204,7 +204,7 @@ (defun new-add-flags (descriptors loc line word-end) (declare (simple-string line) (fixnum word-end) - (type (array (unsigned-byte 16) 1) descriptors)) + (type (array (unsigned-byte 16) (*)) descriptors)) (do ((flag (1+ word-end) (+ 2 flag)) (line-end (length line))) ((>= flag line-end)) @@ -219,7 +219,7 @@ (defun write-dictionary (f dictionary descriptors entry-count string-table string-table-length) - (declare (type (array (unsigned-byte 16) 1) dictionary descriptors) + (declare (type (array (unsigned-byte 16) (*)) dictionary descriptors) (simple-string string-table) (fixnum string-table-length)) (let ((filename (lisp::predict-name (namestring (pathname f)) nil)))