Changeset 13262


Ignore:
Timestamp:
04/04/11 12:30:54 (11 years ago)
Author:
Mark Evenson
Message:

Fix UNUSED.2 for ABCL.

Allow CLISP to compile compiler-tests.lisp.

File:
1 edited

Legend:

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

    r11599 r13262  
    6767             (third list)))
    6868     (unused.2)))
    69   #+(or abcl allegro) (unused.2 t   nil)
    70   #+clisp             (unused.2 1   nil)
    71   #+(or cmu sbcl)    (unused.2 nil nil)
    72   #+lispworks         (unused.2 t   nil)
     69  #+allegro            (unused.2 t   nil)
     70  #+clisp              (unused.2 1   nil)
     71  #+(or cmu sbcl abcl) (unused.2 nil nil)
     72  #+lispworks          (unused.2 t   nil)
    7373  17)
    7474
     
    105105#+allegro (pushnew 'plus.3 *expected-failures*)
    106106
     107#-clisp
    107108(define-compiler-test plus.4
    108109  (lambda (x y)
     
    119120  :results #.(- most-negative-fixnum))
    120121
     122#-clisp
    121123(define-compiler-test minus.2
    122124  (lambda (x)
     
    126128  :results #.(- most-negative-java-long))
    127129
     130#-clisp
    128131(define-compiler-test minus.3
    129132  (lambda (x y)
     
    133136  :results #.(- most-negative-java-long most-positive-java-long))
    134137
     138#-clisp
    135139(define-compiler-test logxor-minus.1
    136140  (lambda (x)
     
    140144  :results -9223372036854775792)
    141145
     146#-clisp
    142147(deftest times.1
    143148  (progn
     
    256261  3)
    257262
     263#-clisp
    258264(deftest bignum-constant.1
    259265  (progn
     
    269275  #.most-positive-java-long)
    270276
     277#-clisp
    271278(deftest bignum-constant.2
    272279  (progn
     
    282289  #.(1+ most-positive-java-long))
    283290
     291#-clisp
    284292(deftest bignum-constant.3
    285293  (progn
     
    295303  #.most-negative-java-long)
    296304
     305#-clisp
    297306(deftest bignum-constant.4
    298307  (progn
     
    388397  :results #.most-negative-fixnum)
    389398
     399#-clisp
    390400(define-compiler-test min.3
    391401  (lambda (x y)
     
    395405  :results 3)
    396406
     407#-clisp
    397408(define-compiler-test min.4
    398409  (lambda (x y)
     
    409420  :results 4)
    410421
     422#-clisp
    411423(define-compiler-test max.2
    412424  (lambda (x y)
     
    416428  :results #.most-positive-fixnum)
    417429
     430#-clisp
    418431(define-compiler-test max.3
    419432  (lambda (x y)
     
    423436  :results 4)
    424437
     438#-clisp
    425439(define-compiler-test max.4
    426440  (lambda (x y)
Note: See TracChangeset for help on using the changeset viewer.