SBCL

  1. Bug #309124
  2. Comment #0

Comment 0 for bug 309124

Revision history for this message
Nikodemus Siivola (nikodemus) wrote : constraint propagation problem

  In the following function constraint propagator optimizes nothing:

    (defun foo (x)
      (declare (integer x))
      (declare (optimize speed))
      (typecase x
        (fixnum "hala")
        (fixnum "buba")
        (bignum "hip")
        (t "zuz")))