COMPILE takes forever

[Stanisław Halik]

A bug was reported some time on comp.lang.lisp:

http://groups.google.com/group/comp.lang.lisp/browse_thread/thread/b30d62c919802a25

Compiling the following code:

(defun foo ()
  (labels ((bar (baz bim)
             (let ((n (+ baz bim)))
               (* n (+ n 1) bim))))
    (let ((a (bar 1 1))
          (b (bar 1 5))
          (c (bar 1 15)))
      (- (+ a b) c))))

takes forever or at least a very long time.

This is SBCL 1.0.25.12, but the problem has apparently been present for a long time.

Linux enkidu.local 2.6.26-1-686 #1 SMP Sat Jan 10 18:29:31 UTC 2009 i686 GNU/Linux

features:

(:ASDF :SB-THREAD :ANSI-CL :COMMON-LISP :SBCL :SB-DOC :SB-TEST :SB-LDB
 :SB-PACKAGE-LOCKS :SB-UNICODE :SB-EVAL :SB-SOURCE-LOCATIONS
 :IEEE-FLOATING-POINT :X86 :UNIX :ELF :LINUX :LARGEFILE :GENCGC
 :STACK-GROWS-DOWNWARD-NOT-UPWARD :C-STACK-IS-CONTROL-STACK
 :COMPARE-AND-SWAP-VOPS :UNWIND-TO-FRAME-AND-CALL-VOP :RAW-INSTANCE-INIT-VOPS
 :STACK-ALLOCATABLE-CLOSURES :ALIEN-CALLBACKS :CYCLE-COUNTER :LINKAGE-TABLE
 :OS-PROVIDES-DLOPEN :OS-PROVIDES-PUTWC :OS-PROVIDES-SUSECONDS-T)