sb-cltl2:variable-information fails in interpreted mode

[Jonathan Braud]

This works fine:

(defmacro getenv (&environment env) env)
(setq sb-ext:*evaluator-mode* :compile)
(let ((x 1)) (sb-cltl2:variable-information 'x (getenv)))
  ; => :lexical, t, nil

But this errors out:

(setq sb-ext:*evaluator-mode* :interpret)
(let ((x 1)) (sb-cltl2:variable-information 'x (getenv)))

The error is:

:BOGUS fell through ETYPECASE expression.
Wanted one of (SB-C::LEAF CONS NULL).

Version: SBCL 2.4.3.103-af7591bac