Changeset 13260


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

Test for ticket #142.

Location:
trunk/abcl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/abcl.asd

    r13057 r13260  
    5353                      #+abcl
    5454                      (:file "url-pathname")
    55                       (:file "math-tests")
     55                      (:file "math-tests"
     56                             :depends-on ("compiler-tests"))
    5657                      (:file "misc-tests")
    5758                      (:file "latin1-tests")
  • 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.