Memory fault related to types, on LOGXOR

[Paul F. Dietz]

(defun f380 (p2 q)
  (declare (type (eql -3759458699) p2))
  (logxor 149
          (the (member 1 -3759458699)
               (flet ((%f (x) (the (or number (array *)) x)))
                 (if q
                     (%f p2)
                     (%f (make-array '(2 1) :adjustable t)))))))

;; (f380 -3759458699 t) ==> unhandled memory fault

Weirdly, the bug does not manifest without the :adjustable t.

[Stas Boukarev (stassats)]

ad0dfbb738cb41e0e65b2a59aaaeecda0fc6e6f1