SBCL

  1. Bug #1252108
  2. Comment #0

Comment 0 for bug 1252108

Revision history for this message
Jan Moringen (scymtym) wrote :

What I do:
(defun f (foo) (etypecase foo ((array t (* *)) (when t (array-dimension foo 2))))

What happens:
; in: DEFUN F
; (ARRAY-DIMENSION FOO 2)
;
; caught WARNING:
; The array has dimensions (* *), 2 is too large.
;
; compilation unit finished
; caught 1 WARNING condition

What I expected to happen:
The code should compile without warnings or errors.

run-sbcl.sh --version
(running SBCL from: /home/jmoringe/code/cl/SBCL)
SBCL 1.1.8.60.master.217-82ccfc0