From 57f8264468d7829a67ec0d4dcf443302b42e3d88 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Mon, 1 Sep 2008 19:10:18 +0000 Subject: [PATCH] Do not upgrade an array element type to a signed type --- src/lsp/predlib.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp index d8c7b9e9d..d1227a224 100644 --- a/src/lsp/predlib.lsp +++ b/src/lsp/predlib.lsp @@ -266,7 +266,7 @@ has no fill-pointer, and is not adjustable." (put-sysprop (car l) 'TYPE-PREDICATE (cdr l))) (defconstant +upgraded-array-element-types+ - '(NIL BASE-CHAR #+unicode CHARACTER BIT EXT::BYTE8 EXT::INTEGER8 EXT::CL-FIXNUM EXT::CL-INDEX SINGLE-FLOAT DOUBLE-FLOAT T)) + '(NIL BASE-CHAR #+unicode CHARACTER BIT EXT::BYTE8 EXT::INTEGER8 EXT::CL-INDEX EXT::CL-FIXNUM SINGLE-FLOAT DOUBLE-FLOAT T)) (defun upgraded-array-element-type (element-type &optional env) (let* ((hash (logand 127 (si:hash-eql element-type)))