diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 12:36:06 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 12:36:06 +0100 |
| commit | 11c857700e03ec0b758f729731784d0f46a6d55e (patch) | |
| tree | 28251a60e4612f0880675e19ef212b6cf2b1bcca /Lisp/tests.lisp | |
| parent | 088de3d24f58c8bb8f8a2ac25c5da373a7e3a1f2 (diff) | |
Use INTERN-LISP-VALUE for argument conversion.
darcs-hash:2f57dd53bfa6b2aa44474232042d9578af720c22
Diffstat (limited to 'Lisp/tests.lisp')
| -rw-r--r-- | Lisp/tests.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index ee45582..1034aee 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -429,7 +429,7 @@ ((x ,class-name) (y :int) z - (a (eql t)) + (a (eql nil)) (b number) &rest rest) (declare (ignore z rest)) @@ -444,7 +444,7 @@ (is (foreign-class-registered-p class)) ;; Method calls. - (is (= 170 (invoke instance :foo 150 :bar nil :stuff t :do 100))) + (is (= 170 (invoke instance :foo 150 :bar nil :stuff nil :do 100))) ;; Object identity preservation. (is (eql instance |