68 |
(assert (equal vals '(7123 4)))))) |
(assert (equal vals '(7123 4)))))) |
69 |
nil) |
nil) |
70 |
|
|
71 |
(deftest read-from-string.7 |
(deftest read-from-string.8 |
72 |
(let ((*package* (find-package :cl-test))) |
(let ((*package* (find-package :cl-test))) |
73 |
(do-special-strings |
(do-special-strings |
74 |
(s "7123") |
(s "7123") |
77 |
(assert (equal vals '(foo 2)))))) |
(assert (equal vals '(foo 2)))))) |
78 |
nil) |
nil) |
79 |
|
|
80 |
(deftest read-from-string.8 |
(deftest read-from-string.9 |
81 |
(let ((*package* (find-package :cl-test))) |
(let ((*package* (find-package :cl-test))) |
82 |
(do-special-strings |
(do-special-strings |
83 |
(s "123 ") |
(s "123 ") |
86 |
(assert (equal vals '(123 3)))))) |
(assert (equal vals '(123 3)))))) |
87 |
nil) |
nil) |
88 |
|
|
89 |
(deftest read-from-string.9 |
(deftest read-from-string.10 |
90 |
(let ((*package* (find-package :cl-test))) |
(let ((*package* (find-package :cl-test))) |
91 |
(do-special-strings |
(do-special-strings |
92 |
(s (concatenate 'string "( )" (string #\Newline))) |
(s (concatenate 'string "( )" (string #\Newline))) |
97 |
|
|
98 |
;;; Multiple keywords |
;;; Multiple keywords |
99 |
|
|
100 |
(deftest read-from-string.10 |
(deftest read-from-string.11 |
101 |
(let ((*package* (find-package :cl-test))) |
(let ((*package* (find-package :cl-test))) |
102 |
(do-special-strings |
(do-special-strings |
103 |
(s "7123 ") |
(s "7123 ") |
106 |
(assert (equal vals '(123 5)))))) |
(assert (equal vals '(123 5)))))) |
107 |
nil) |
nil) |
108 |
|
|
109 |
(deftest read-from-string.11 |
(deftest read-from-string.12 |
110 |
(let ((*package* (find-package :cl-test))) |
(let ((*package* (find-package :cl-test))) |
111 |
(do-special-strings |
(do-special-strings |
112 |
(s "7123 ") |
(s "7123 ") |
115 |
(assert (equal vals '(7123 4)))))) |
(assert (equal vals '(7123 4)))))) |
116 |
nil) |
nil) |
117 |
|
|
118 |
(deftest read-from-string.12 |
(deftest read-from-string.13 |
119 |
(let ((*package* (find-package :cl-test))) |
(let ((*package* (find-package :cl-test))) |
120 |
(do-special-strings |
(do-special-strings |
121 |
(s (concatenate 'string "( )" (string #\Newline))) |
(s (concatenate 'string "( )" (string #\Newline))) |
127 |
|
|
128 |
;;; Allow other keys |
;;; Allow other keys |
129 |
|
|
130 |
(deftest read-from-string.13 |
(deftest read-from-string.14 |
131 |
(with-standard-io-syntax |
(with-standard-io-syntax |
132 |
(let ((*package* (find-package :cl-test))) |
(let ((*package* (find-package :cl-test))) |
133 |
(do-special-strings |
(do-special-strings |
137 |
(assert (equal vals '(|ABC| 4)) (vals) "VALS is ~A" vals))))) |
(assert (equal vals '(|ABC| 4)) (vals) "VALS is ~A" vals))))) |
138 |
nil) |
nil) |
139 |
|
|
140 |
(deftest read-from-string.14 |
(deftest read-from-string.15 |
141 |
(let ((*package* (find-package :cl-test))) |
(let ((*package* (find-package :cl-test))) |
142 |
(do-special-strings |
(do-special-strings |
143 |
(s "123 ") |
(s "123 ") |
146 |
(assert (equal vals '(123 4)) (vals) "VALS is ~A" vals)))) |
(assert (equal vals '(123 4)) (vals) "VALS is ~A" vals)))) |
147 |
nil) |
nil) |
148 |
|
|
149 |
(deftest read-from-string.15 |
(deftest read-from-string.16 |
150 |
(let ((*package* (find-package :cl-test))) |
(let ((*package* (find-package :cl-test))) |
151 |
(do-special-strings |
(do-special-strings |
152 |
(s "123 ") |
(s "123 ") |
158 |
|
|
159 |
;;; default for :end |
;;; default for :end |
160 |
|
|
161 |
(deftest read-from-string.16 |
(deftest read-from-string.17 |
162 |
(let ((*package* (find-package :cl-test))) |
(let ((*package* (find-package :cl-test))) |
163 |
(do-special-strings |
(do-special-strings |
164 |
(s "XYZ ") |
(s "XYZ ") |