unsigned int array fix - gcl.git - GNU Common Lisp

diff --git a/gcl/lsp/gcl_arraylib.lsp b/gcl/lsp/gcl_arraylib.lsp
index 595969f90..b36017f31 100755
--- a/gcl/lsp/gcl_arraylib.lsp
+++ b/gcl/lsp/gcl_arraylib.lsp

@@ -50,7 +50,7 @@

(defun af (x) (cdr (assoc x '((character . *char) (bit . *char) (non-negative-char . *char);fixme

(unsigned-char . *uchar) (signed-char . *char)

- #+64bit (non-negative-int . *int) #+64bit (unsigned-int . *int) #+64bit (signed-int . *int)

+ #+64bit (non-negative-int . *int) #+64bit (unsigned-int . *uint) #+64bit (signed-int . *int)

(non-negative-short . *short) (unsigned-short . *ushort)

(signed-short . *short) (short-float . *float) (long-float . *double)

(t . *object) (non-negative-fixnum . *fixnum) (fixnum . *fixnum)))))