6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
(compile-and-load "printer-aux.lsp") |
(compile-and-load "printer-aux.lsp") |
8 |
|
|
9 |
(deftest format.newline.1 |
(def-format-test format.newline.1 |
10 |
(let ((nl (string #\Newline))) |
(concatenate 'string "~" (string #\Newline) " X") |
11 |
(format nil (concatenate 'string "~" nl " X"))) |
nil "X") |
|
"X") |
|
12 |
|
|
13 |
(deftest format.newline.2 |
(def-format-test format.newline.2 |
14 |
(let ((nl (string #\Newline))) |
(concatenate 'string "A~:" (string #\Newline) " X") |
15 |
(format nil (concatenate 'string "A~:" nl " X"))) |
nil "A X") |
|
"A X") |
|
|
|
|
|
(deftest format.newline.3 |
|
|
(let ((nl (string #\Newline))) |
|
|
(format nil (concatenate 'string "A~@" nl " X"))) |
|
|
#.(concatenate 'string "A" (string #\Newline) "X")) |
|
16 |
|
|
17 |
|
(def-format-test format.newline.3 |
18 |
|
(concatenate 'string "A~@" (string #\Newline) " X") |
19 |
|
nil #.(concatenate 'string "A" (string #\Newline) "X")) |
20 |
|
|