From cc9a24a01dbe55f752e192b1d77d4bfb43bc8a22 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 17 Jun 1990 12:22:33 +0000 Subject: [PATCH] Fixed bad syntax in array type declarations. --- hemlock/spell-build.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hemlock/spell-build.lisp b/hemlock/spell-build.lisp index b8fb29a44..ab906757f 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))) -- GitLab