failed AVER: (ZEROP (HASH-TABLE-COUNT (CORE-OBJECT-PATCH-TABLE OBJECT)))

[Lucas Hope]

Tested version 1.1.2 and 1.1.7.

Compiling this:

(defun sbcl-bug (string columns)
  (when (some #'alphanumericp string)
    (loop with format-string = (if (every (lambda (x) (or (alphanumericp x) (eql x #\*))) string)
       "1:~A" "2:~A")
       for column in columns collect string)))

Fails, causing this:
    failed AVER: (ZEROP (HASH-TABLE-COUNT (CORE-OBJECT-PATCH-TABLE OBJECT)))
  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/>.

The problem seems to be an interaction between the alphanumericp in the when and the alphanumericp in the lambda. It seems to work okay if I use a flet instead of the lambda.

uname -a
Linux behemoth 3.5.0-17-generic #28-Ubuntu SMP Tue Oct 9 19:31:23 UTC 2012 x86_64 x86_64 x86_64 GNU/Linux

*features*
; No debug variables for current frame: using EVAL instead of EVAL-IN-FRAME.
(:QUICKLISP :SB-BSD-SOCKETS-ADDRINFO :ASDF2 :ASDF :ASDF-UNICODE
 :ALIEN-CALLBACKS :ANSI-CL :C-STACK-IS-CONTROL-STACK :COMMON-LISP
 :COMPARE-AND-SWAP-VOPS :COMPLEX-FLOAT-VOPS :CYCLE-COUNTER ...)