[Sbcl-devel] Two apparent bugs

[Ariel B. <aba...@be...>]

Hello.  Check out the following two functions:

(defun foo ()
  "Infinite loop instead of handling the error."
  (loop for n from (expt 2 1024) do
        (handler-case
            (coerce n 'single-float)
          (simple-type-error ()
            (format t "Got here.~%")
            (return-from foo)))))

(defun bar ()
  "Fails to compile!"
  (loop for n from (expt 2 1024) do
        (handler-case
            (format t "~E~%" (coerce n 'single-float))
          (simple-type-error ()
            (format t "Got here.~%")
            (return-from bar)))))

I get these results using SBCL 1.0.1 on Linux/IA32.