Unhandled memory fault from random-type-prop test on MAP

[Paul F. Dietz]

(defun f108 ()
  (let* ((x '(a b c d e))
         (form `(lambda (p1 p2 p3)
                  (declare (type (eql vector) p1)
                           (type (eql ,x) p3))
                  (map p1 p2 p3)))
         (params (list 'vector 'identity x)))
    (apply (compile nil form) params)))

(f108) ==>

Unhandled memory fault at #x0.
[...]
  0: ((LAMBDA (P1 P2 P3)) #<unused argument> 0 #<unused argument>)
  1: ("foreign function: #x20100017")
  2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (F108) #<NULL-LEXENV>)
  3: (EVAL (F108))
[...]

[Stas Boukarev (stassats)]

17b2d1cf2a87b916491e7db48f554910eebe1f31