Author: ehuelsmann Date: Sun Mar 16 08:10:27 2008 New Revision: 29
Modified: trunk/tests/tests.lisp Log: Test fixes.
Modified: trunk/tests/tests.lisp ============================================================================== --- trunk/tests/tests.lisp (original) +++ trunk/tests/tests.lisp Sun Mar 16 08:10:27 2008 @@ -106,7 +106,7 @@
") - (typep (get-option read-stream (make-config) s) + (typep (read-stream (make-config) s) 'config)) T)
@@ -116,7 +116,7 @@
") - (typep (get-option read-stream (make-config) s) + (typep (read-stream (make-config) s) 'config)) T)
@@ -132,7 +132,7 @@
;; items (deftest basic.items.1 - (equal (with-inputfrom-string (s "[n] + (equal (with-input-from-string (s "[n] p=q z=%(p)s ")