Hi,

With a CVS snapshot of SLIME (19.11.), M-x slime-apropos * RET makes my sbcl spin with 100% CPU. Interrupting it in the REPL (C-c C-c) brings it back.

"*" is, of course, not a valid regex, but I'd appreciate a better indication of the error.

This is with SBCL 1.0.10.55 on OS X/Tiger. OpenMCL (Version 1.1- pre-070722 (DarwinX8664)) shows similar behavior.

After interrupting, the following is printed at the REPL: ; in: ; LAMBDA (STRING &KEY (SLIME-NREGEX::START 0) ; (SLIME-NREGEX::END (LENGTH STRING))) ; (1- SLIME-NREGEX::START) ; --> - ; ==> ; SLIME-NREGEX::START ; ; note: deleting unreachable code

; (LET ((LENGTH SLIME-NREGEX::END)) ; (DO ((SLIME-NREGEX::MARKER SLIME-NREGEX::START (1+ SLIME- NREGEX::MARKER))) ; ((> SLIME-NREGEX::MARKER SLIME-NREGEX::END) NIL) ; (LET ((SLIME-NREGEX::INDEX SLIME-NREGEX::MARKER)) ; (IF (BLOCK SLIME-NREGEX::COMPARE #) (RETURN T))))) ; ; caught STYLE-WARNING: ; The variable LENGTH is defined but never used.

; (DO ((SLIME-NREGEX::START SLIME-NREGEX::INDEX (1- SLIME- NREGEX::START))) ; ((< SLIME-NREGEX::START SLIME-NREGEX::OINDEX) NIL) ; (LET ((SLIME-NREGEX::INDEX SLIME-NREGEX::START)) ; (BLOCK SLIME-NREGEX::COMPARE ; (SETF (CADR #) SLIME-NREGEX::INDEX) ; (RETURN-FROM SLIME-NREGEX::FINAL-RETURN T)))) ; --> BLOCK LET ; ==> ; SLIME-NREGEX::INDEX ; ; note: deleting unreachable code

; (LET ((SLIME-NREGEX::INDEX SLIME-NREGEX::START)) ; (BLOCK SLIME-NREGEX::COMPARE ; (SETF (CADR (AREF SLIM