Ignore:
Timestamp:
04/03/11 16:02:44 (11 years ago)
Author:
Mark Evenson
Message:

Test for ticket #142.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/math-tests.lisp

    r12402 r13260  
    464464  (signals-error (read-from-string "1.0f-1000") 'reader-error)
    465465  t)
     466
     467;;; Test for http://trac.common-lisp.net/armedbear/ticket/142
     468(define-compiler-test math.logand.1
     469    (lambda (switchp)
     470      (logand
     471       (if switchp
     472           nil
     473           2)
     474       1))
     475  :args (nil)
     476  :results 0)
     477
     478
     479     
Note: See TracChangeset for help on using the changeset viewer.