| author | Camm Maguire <camm@debian.org> | 2013年11月07日 04:02:18 +0000 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2013年11月11日 18:20:01 +0000 |
| commit | 8ac5f58223ad1089a65b68e58a5db81e8cd05558 (patch) | |
| tree | 73d4d879d2606d113c90aa1c13bcc0bf81970260 | |
| parent | f20a8c9e4e8c8c1791d58fb02a1b2810f0dec20d (diff) | |
| download | gcl-8ac5f58223ad1089a65b68e58a5db81e8cd05558.tar.gz | |
| -rwxr-xr-x | gcl/lsp/gcl_predlib.lsp | 4 |
diff --git a/gcl/lsp/gcl_predlib.lsp b/gcl/lsp/gcl_predlib.lsp index 298053d6a..87d8dcbb7 100755 --- a/gcl/lsp/gcl_predlib.lsp +++ b/gcl/lsp/gcl_predlib.lsp @@ -1191,10 +1191,8 @@ ;; ARRAY TYPES -(defconstant +array-types-but-t+ (lremove t +array-types+)) - (defun expand-array-element-type (type) - (or (car (member type +array-types-but-t+ :test 'subtypep)) t)) + (or (car (member type +array-types+ :test (lambda (x y) (unless (eq y t) (subtypep x y))))) t)) #.`(defun upgraded-array-element-type (type &optional environment) (declare (ignore environment) (optimize (safety 1))) |