Back end work for short vector SIMD packs

[sbcl.git] / src / code / typecheckfuns.lisp

diff --git a/src/code/typecheckfuns.lisp b/src/code/typecheckfuns.lisp
index 8fe8217..3e0174f 100644 (file)
--- a/src/code/typecheckfuns.lisp
+++ b/src/code/typecheckfuns.lisp
@@ -217,6 +217,8 @@
            (numeric-type-p ctype)
            (array-type-p ctype)
            (cons-type-p ctype)
+           #!+sb-simd-pack
+           (simd-pack-type-p ctype)
            (intersection-type-p ctype)
            (union-type-p ctype)
            (negation-type-p ctype)