107 |
(signals-error-always (format nil "~@<~@;~A~;bar~A~:>" '(X) '(Y)) error) |
(signals-error-always (format nil "~@<~@;~A~;bar~A~:>" '(X) '(Y)) error) |
108 |
t t) |
t t) |
109 |
|
|
110 |
|
(deftest format.logical-block.error.25 |
111 |
|
(signals-error-always (format nil "1~<X~<Y~:>Z~>2" nil nil nil) error) |
112 |
|
t t) |
113 |
|
|
114 |
|
;;; "an error is also signaled if the ~<...~:;...~> form of ~<...~> is used |
115 |
|
;;; in the same format string with ~W, ~_, ~<...~:>, ~I, or ~:T." |
116 |
|
|
117 |
|
(deftest format.logical-block.error.26 |
118 |
|
(signals-error-always (format nil "~<~:;~>~<~:>" nil nil nil) error) |
119 |
|
t t) |
120 |
|
|
121 |
|
(deftest format.logical-block.error.27 |
122 |
|
(signals-error-always (format nil "~<~:>~<~:;~>" nil nil nil) error) |
123 |
|
t t) |
124 |
|
|
125 |
;;; Non-error tests |
;;; Non-error tests |
126 |
|
|
127 |
(def-pprint-test format.logical-block.1 |
(def-pprint-test format.logical-block.1 |