Another type error for EQL function types

[Paul F. Dietz]

(defun f381 (p1 q)
  (declare (type (eql #.(symbol-function 'symbolp)) p1))
  ((lambda (f y) (funcall (complement f) y))
   (the (member 1/2 #.(symbol-function 'symbolp))
        (flet ((%f (x) x))
          (if q
              (%f p1)
              (%f #'logtest))))
   (list nil)))

(f381 (symbol-function 'symbolp) t) ==>

The value
  #1=#<FUNCTION SYMBOLP>
is not of type
  (OR (MEMBER #1#) (RATIONAL 1/2 1/2))
   [Condition of type TYPE-ERROR]

Restarts:
 0: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: (F381 #<FUNCTION SYMBOLP> T)
  1: (SB-INT:SIMPLE-EVAL-IN-LEXENV (F381 (SYMBOL-FUNCTION (QUOTE SYMBOLP)) T) #<NULL-LEXENV>)
  2: (EVAL (F381 (SYMBOL-FUNCTION (QUOTE SYMBOLP)) T))
  3: (SB-EXT:INTERACTIVE-EVAL (F381 (SYMBOL-FUNCTION (QUOTE SYMBOLP)) T) :EVAL NIL)
  4: (SB-IMPL::REPL

[Stas Boukarev (stassats)]

2a9cf3491ecb80c4a8cb18cf4367a44f9c7b9a1d