(defun write-line (x)
(write-string x)
- (write-string *newline*)
+ (write-char #\newline)
x)
(defun warn (string)
((char= next #\~)
(concatf res "~"))
((char= next #\%)
- (concatf res *newline*))
+ (concatf res (string #\newline)))
((char= next #\*)
(pop arguments))
(t