full call to SB-VM::%LOGBITP in form with many PROGVs

[Paul F. Dietz]

(declaim (special *s3* *s2* *s4* *s8*))

(lambda (b)
     (declare (type (integer 12 15) b))
     (declare (optimize speed))
     (progv nil nil
       (labels ((%f11 (f11-1 f11-2)
                  b))
         (if (logbitp 0 (multiple-value-call #'%f11 (values 0 0)))
             (let ((*s8* b))
               *s8*)
             (%f11
              (flet ((%f12 (f12-1 f12-2 f12-3)
                       (progv
                           nil
                           nil
                         (progv
                             nil
                             nil
                           (progv
                               '(*s3* *s2* *s4*)
                               (list
                                (%f11 -4438034216727
                                 (%f11 f12-3 20647500000533))
                                b 5665082048480)
                             (coerce (block b6 59816968970573789) 'integer))))))
                59816968970573789)
              b)))))

==>

full call to SB-VM::%LOGBITP
This is probably a bug in SBCL itself. (Alternatively, SBCL
might have been corrupted by bad user code, e.g. by an undefined
Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers
from alien code or from unsafe Lisp code; or there might be a
bug in the OS or hardware that SBCL is running on.) If it seems
to be a bug in SBCL itself, the maintainers would like to know
about it. Bug reports are welcome on the SBCL mailing lists,
which you can find at <http://sbcl.sourceforge.net/>.
   [Condition of type SB-INT:BUG]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*ABORT] Return to SLIME's top level.
 2: [REMOVE-FD-HANDLER] Remove #<SB-IMPL::HANDLER INPUT on descriptor 4: #<FUNCTION (LABELS SWANK/SBCL::RUN :IN SWANK/BACKEND:ADD-FD-HANDLER) {100A5BA4DB}>>
 3: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: (SB-INT:BUG "full call to ~S" SB-VM::%LOGBITP)
  1: (SB-C::PONDER-FULL-CALL #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-VM::%LOGBITP :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :GLO..
  2: (SB-C::IR2-CONVERT-FULL-CALL #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-VM::%LOGBITP :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND..
  3: (SB-C::IR2-CONVERT-BLOCK #<SB-C::CBLOCK 11 :START c1 {100BFDD403}>)
  4: (SB-C:IR2-CONVERT #<SB-C:COMPONENT :NAME (FLET "CLEANUP-FUN-3") {100BFD57A3}>)
 [...]