Commit b436a968 by Francois-Rene Rideau

Remove unused leftover function that produced a warning.

parent b01240c9
......@@ -84,10 +84,6 @@
(defun terminatorp (char)
(and (position char #(nil #\) #\] #\} #\; #\. #\, #\! #\?)) t))
(defun parse-infix-sum (stream)
(let ((*count* 0))
(values (parse-sum stream) *count*)))
(defun next-term-char (stream &key eof-error-p)
(loop :for char = (read-count-char stream eof-error-p)
:for spacep = (and char (spacep char))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment