Login
7 branches 0 tags
Ben (X13/Arch) Simplified things a little 0643405 9 days ago 1260 Commits
nujel / tests / testsuite / ports.nuj
("asd" (with-string-port p (:block-write p "asd")))
("asd" (with-string-port p (:write p "a" "s" "d")))
("asd" (with-string-port p (:write p "a" "sd")))
("asd" (with-string-port p (:write p "as" "d")))
("asd" (with-string-port p (:write p "as") (:char-write p #x64)))
("abc" (with-string-port p (:char-write p #x61) (:char-write p #x62) (:char-write p #x63)))
("abcdef" (with-string-port p (:char-write p #x61) (:char-write p #x62) (:char-write p #x63) (:write p "def")))