Changeset 10993


Ignore:
Timestamp:
Oct 5, 2008, 5:56:03 PM (11 years ago)
Author:
gz
Message:

fix braino, add a commented-out test for bug #340

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r10992 r10993  
    535535
    536536
     537#+not-yet
     538(deftest ccl.bug#340
     539    (labels ((fact (n) (if (zerop n) 1 (* n (fact (1- n))))))
     540      (let ((res (format nil "~s" (log (fact 1000) 10.0d0))))
     541        (or (string-equal "2567.60464" res :end2 10) res)))
     542  t)
     543
    537544(deftest ccl.bug#344
    538     (flet ((try (n)
     545    (flet ((try (count)
    539546             (let ((cname (gensym))
    540547                   (gname (gensym)))
Note: See TracChangeset for help on using the changeset viewer.