Anonymous user
Arithmetic evaluation: Difference between revisions
better error handling in CL tokenizer
(CL bugfixes and better error handling) |
(better error handling in CL tokenizer) |
||
Line 848:
((#\-) :subtract)
(otherwise
(
(
(
(return-from tokenize-stream
(tokenize-stream stream)))
(values :integer (read-integer))))
(unless (find token #(:integer :eof))
(read-char stream))
|