Ignore:
Timestamp:
01/16/13 10:45:54 (9 years ago)
Author:
Mark Evenson
Message:

Fix loop and default value for of-type problem.

Patch and (most of) test by Stas.

Fixes #293.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/bugs.lisp

    r14248 r14355  
    126126  (probe-file (make-pathname :device (list "foo")))
    127127nil)
     128
     129;; http://trac.common-lisp.net/armedbear/ticket/293
     130(deftest bugs.loop.1
     131    (loop :with x :of-type (float 0) = 0.0
     132       :for y :upto 1
     133       :collecting (cons x y))
     134  ((0.0 . 0) (0.0 . 1)))
     135
Note: See TracChangeset for help on using the changeset viewer.