diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-18 22:31:40 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-18 22:31:40 +0100 |
| commit | 0df0f866402d12592c277c9ebbfd0cf374bc490a (patch) | |
| tree | a14806888f48eaf093d28538b589b391c3edb6bd /Lisp | |
| parent | 4d45fb554abf02276145992f1b07908993b3a7ba (diff) | |
Remove some content-free lines of code from the test suite.
darcs-hash:0f0da7b5c8c62f3a2fb945c0f5ed886ecb93ffce
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/tests.lisp | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/Lisp/tests.lisp b/Lisp/tests.lisp index 5ac8ec7..443929e 100644 --- a/Lisp/tests.lisp +++ b/Lisp/tests.lisp @@ -376,11 +376,6 @@ (is (eql instance (invoke instance 'self))) - #+(or) (setq instance (is (invoke class :string-with-u-t-f-8-string "Mulk."))) - #+(or) (is (objc-equal instance - (invoke (find-objc-class 'ns-string) - :string-with-u-t-f-8-string "Mulk."))) - ;; FIXME: What's wrong with the following line? It makes CMUCL ;; throw weird errors. #+(or) (is (typep instance class-name)) |