tests/compiler.pure.lisp

   1 (cl:in-package :cl-user)
   2
   3 ;;; Exercise a compiler bug by (crashing the compiler).
   4 ;;;
   5 ;;; This test code is from Douglas Crosher's simplified TICKLE-BUG
   6 ;;; (2000-09-06 on cmucl-imp).
   7 ;;;
   8 ;;; The bug was fixed by Douglas Crosher's patch, massaged for SBCL by
   9 ;;; Martin Atzmueller (2000-09-13 on sbcl-devel).
  10 (funcall (compile nil
  11                   '(lambda ()
  12                      (labels ((fun1 ()
  13                                 (fun2))
  14                               (fun2 ()
  15                                 (when nil
  16                                   (tagbody
  17                                    tag
  18                                    (fun2)
  19                                    (go tag)))
  20                                 (when nil
  21                                   (tagbody
  22                                    tag
  23                                    (fun1)
  24                                    (go tag)))))
  25
  26                        (fun1)
  27                        nil))))