97 |
"ABCD")))) |
"ABCD")))) |
98 |
t) |
t) |
99 |
|
|
100 |
|
#| |
101 |
(deftest read-symbol-8 |
(deftest read-symbol-8 |
102 |
(multiple-value-bind (s n) |
(multiple-value-bind (s n) |
103 |
(ignore-errors (read-from-string "::ABCD")) |
(ignore-errors (read-from-string "::ABCD")) |
108 |
(string-equal (symbol-name s) |
(string-equal (symbol-name s) |
109 |
"ABCD")))) |
"ABCD")))) |
110 |
t) |
t) |
111 |
|
|# |
112 |
|
|
113 |
(defun read-symbol-9-body (natoms maxlen) |
(defun read-symbol-9-body (natoms maxlen) |
114 |
(let* ((chars (concatenate 'string |
(let* ((chars (concatenate 'string |