Arithmetic evaluation: Difference between revisions

Content added Content deleted

Inline

@@ Line 848: / Line 848: @@
             ((#\-) :subtract)
             (otherwise
-             (if (digit-char-p c)
+             (unless (digit-char-p c)
-               (values :integer (read-integer))
+               (cerror "Skip it." "Unexpected character ~w." c)
-               (error "Unexpected character ~w encountered." c))))
+               (read-char stream)
+               (return-from tokenize-stream
+                 (tokenize-stream stream)))
+             (values :integer (read-integer))))
         (unless (find token #(:integer :eof))
           (read-char stream))