Changeset 12584 for trunk/tests


Ignore:
Timestamp:
Aug 15, 2009, 2:30:01 PM (10 years ago)
Author:
gz
Message:

tweak so don't have to wade thru gazillion compiler warnings

File:
1 edited

Legend:

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

    r8991 r12584  
    1010
    1111(deftest the.2
    12   (the (values) 'a)
     12    (let ((a 'a))
     13      (the (values) a))
    1314  a)
    1415
    1516(deftest the.3
    1617  (check-predicate #'(lambda (e)
    17                        (let ((x (multiple-value-list (eval `(the (values) (quote ,e))))))
     18                       (let ((x (multiple-value-list (eval `(let ((e (quote ,e))) (the (values) e))))))
    1819                         (and x (not (cdr x)) (eql (car x) e)))))
    1920  nil)
Note: See TracChangeset for help on using the changeset viewer.