summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-18 22:31:40 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-18 22:31:40 +0100
commit0df0f866402d12592c277c9ebbfd0cf374bc490a (patch)
treea14806888f48eaf093d28538b589b391c3edb6bd /Lisp
parent4d45fb554abf02276145992f1b07908993b3a7ba (diff)
Remove some content-free lines of code from the test suite.
darcs-hash:0f0da7b5c8c62f3a2fb945c0f5ed886ecb93ffce
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/tests.lisp5
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))