A typo in predlib.lsp made (SUBPTYPEP (SI:COMPLEX-ARRAY NIL (*)) (SIMPLE-ARRAY NIL *)) => T

parent 29fa0618
......@@ -976,7 +976,7 @@ if not possible."
;; type T2.
(defun array-type-<= (t1 t2)
(unless (and (eq (first t2) (first t2))
(unless (and (eq (first t1) (first t2))
(eq (second t1) (second t2)))
(return-from array-type-<= nil))
(let ((dim (third t1))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment