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 ")