X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftypecheckfuns.lisp;h=3e0174f96c3eeb2c0e481e001df185d234e983da;hb=18dc0069cd514c976042766ab9a785c970fe1603;hp=8fe8217c06ebc13bd7359dcd45557769c2eb4190;hpb=a4cffc065c83d046fce193919bf6d4e53f181455;p=sbcl.git

diff --git a/src/code/typecheckfuns.lisp b/src/code/typecheckfuns.lisp
index 8fe8217..3e0174f 100644
--- 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)