(DO-TEST "parse-NAMESTRING INDEX WITHOUT A START KEYWORD" (multiple-value-bind (a b)(parse-namestring "{DSK}")(eq b 5))) (DO-TEST "parse-NAMESTRING INDEX WITH A START KEYWORD" (multiple-value-bind (a b)(parse-namestring "foo{DSK}" nil nil :start 3)(eq b 8))) (do-test "namestring sensitivity to *print-base*" (let ((*print-base* 2)) (equal (namestring "foo.;8") "foo.;8"))) (do-test "namestring radix bug" (let ((*print-base* 2)) (eq (length (namestring "foo.bar;8")) 9))) (do-test "defaultprintertype" (equal il:defaultprintertype 'IL:INTERPRESS)) (do-test "WRITE-to-string :CAPITALIZE" (equal (write-to-string 'foo :escape nil :case :capitalize) "Foo")) (do-test "Provide stores module names as strings" (provide 'hello) (equal (car *modules*) "HELLO")) (do-test "peek-char " (setq a (peek-char nil t)) (eq a '#\Newline)) (do-test "il:peekc" (setq a (il:peekc nil t)) (eq a 'il:\ )) (DO-TEST "*print-level*" (eq *print-level* nil)) (do-test "enough-namestring bug" (cl:enough-namestring "{eris}sources>foo.bar;7")) ?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8)) TIMESROMAN ?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8)) ‚4^zş