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
(ifunless (digit-char-p c)
(valuescerror :integer"Skip (read-integer)it." "Unexpected character ~w." c)
(errorread-char "Unexpected character ~w encountered." c)))stream)
(return-from tokenize-stream
(tokenize-stream stream)))
(values :integer (read-integer))))
(unless (find token #(:integer :eof))
(read-char stream))
Anonymous user