X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fprimtype.lisp;h=5bf2533b9c79d825e2cc26d7a24e07a85dc9dc36;hb=42ab0c5b87f834c69842713c60587a76f953411f;hp=e3e59b28f83121b8fe81a7ca9896aab60589fb13;hpb=d1e7b48b17180a417c41ed55eb382ebf6d4e7a2a;p=sbcl.git

diff --git a/src/compiler/generic/primtype.lisp b/src/compiler/generic/primtype.lisp
index e3e59b2..5bf2533 100644
--- a/src/compiler/generic/primtype.lisp
+++ b/src/compiler/generic/primtype.lisp
@@ -356,6 +356,7 @@
            ((t *) (values *backend-t-primitive-type* t))
            ((instance) (exactly instance))
            ((funcallable-instance) (part-of function))
+           ((extended-sequence) (any))
            ((nil) (any))))
         (character-set-type
          (let ((pairs (character-set-type-pairs type)))