STRING-TRIM and friends.

[jscl.git] / tests / package.lisp

diff --git a/tests/package.lisp b/tests/package.lisp
index 814057b..034ec4a 100644 (file)
--- a/tests/package.lisp
+++ b/tests/package.lisp
@@ -23,3 +23,8 @@
           (member baz symbols)))))
 
 (test (member 'car (find-all-symbols (string 'car))))
+
+;; This test is failing. I have disabled temporarily.
+;; (test (eq (eval '(in-package #:cl-user)) (find-package '#:cl-user)))
+
+