Compiler attempts to take value of special variable when it is unbound

[Paul F. Dietz]

(defun f51 ()
  (declare (special *s*))
  (lcm (progv '(*s*) nil *s*)))

==>

The variable *S* is unbound.
   [Condition of type UNBOUND-VARIABLE]
[...]
  0: (SB-C::%CONSTANT-FORM-VALUE *S* NIL NIL)
  1: ((FLET SB-C::CONSTANT-FORM-VALUE* :IN SB-C::CONSTANT-SPECIAL-FORM-VALUE) *S*)
  2: (SB-C::CONSTANT-SPECIAL-FORM-VALUE (PROGV (QUOTE (*S*)) NIL *S*) NIL NIL)
  3: (SB-C::%CONSTANT-FORM-VALUE (PROGV (QUOTE (*S*)) NIL *S*) NIL NIL)
  4: (SB-C::THE-IN-POLICY INTEGER (PROGV (QUOTE (*S*)) NIL *S*) #<SB-C:POLICY ((SB-EXT:INHIBIT-WARNINGS 1) (SPEED 1) (SPACE 1) (SAFETY 1) (DEBUG 1) (COMPILATION-SPEED 1))> #<SB-C::CTRAN 1 {1003FC5CE3}> #<S..
  5: (SB-C::IR1-CONVERT-THE #<SB-C::CTRAN 1 {1003FC5CE3}> #<SB-C::CTRAN 2 {1003FC5F03}>
[...]

[Stas Boukarev (stassats)]

In 6ed9af93b00b708b07e68161376a8746ecab7704.