tests/bug-1072739.pure.lisp

   1 ;; win32 is very specific about the order in which catch blocks
   2 ;; must be allocated on the stack
   3 ;;
   4 ;; This test is extremely slow, so it deserves its own file.
   5 (with-test (:name (compile :bug-1072739) :slow t)
   6   (checked-compile-and-assert (:optimize :safe)
   7       `(lambda ()
   8          (STRING=
   9           (LET ((% 23))
  10             (WITH-OUTPUT-TO-STRING (G13908)
  11               (PRINC
  12                (LET ()
  13                  (DECLARE (OPTIMIZE (SB-EXT:INHIBIT-WARNINGS 3)))
  14                  (HANDLER-CASE
  15                      (WITH-OUTPUT-TO-STRING (G13909) (PRINC %A%B% G13909) G13909)
  16                    (UNBOUND-VARIABLE NIL
  17                      (HANDLER-CASE
  18                          (WITH-OUTPUT-TO-STRING (G13914)
  19                            (PRINC %A%B% G13914)
  20                            (PRINC "" G13914)
  21                            G13914)
  22                        (UNBOUND-VARIABLE NIL
  23                          (HANDLER-CASE
  24                              (WITH-OUTPUT-TO-STRING (G13913)
  25                                (PRINC %A%B G13913)
  26                                (PRINC "%" G13913)
  27                                G13913)
  28                            (UNBOUND-VARIABLE NIL
  29                              (HANDLER-CASE
  30                                  (WITH-OUTPUT-TO-STRING (G13912)
  31                                    (PRINC %A% G13912)
  32                                    (PRINC "b%" G13912)
  33                                    G13912)
  34                                (UNBOUND-VARIABLE NIL
  35                                  (HANDLER-CASE
  36                                      (WITH-OUTPUT-TO-STRING (G13911)
  37                                        (PRINC %A G13911)
  38                                        (PRINC "%b%" G13911)
  39                                        G13911)
  40                                    (UNBOUND-VARIABLE NIL
  41                                      (HANDLER-CASE
  42                                          (WITH-OUTPUT-TO-STRING (G13910)
  43                                            (PRINC % G13910)
  44                                            (PRINC "a%b%" G13910)
  45                                            G13910)
  46                                        (UNBOUND-VARIABLE NIL
  47                                          (ERROR "Interpolation error in \"%a%b%\"
  48 "))))))))))))))
  49                G13908)))
  50           "23a%b%"))
  51      (() t)))