~fitzsim/Vacietis

5232d5359ab02b6f2f5149a04b20c9722c41eae7 — Thomas Fitzsimmons 6 months ago cdc4156 fixes
Parse f/F suffix on float literals
1 files changed, 1 insertions(+), 1 deletions(-)

M compiler/reader.lisp
M compiler/reader.lisp => compiler/reader.lisp +1 -1
@@ 151,7 151,7 @@
  (let ((*readtable* (find-readtable :common-lisp)))
    (read-from-string
     (format nil "~d~a~a" prefix separator
             (slurp-while (lambda (c) (find c "0123456789+-eE" :test #'char=)))))))
             (slurp-while (lambda (c) (find c "0123456789+-eEfF" :test #'char=)))))))

(defun read-decimal (c0) ;; c0 must be #\1 to #\9
  (labels ((digit-value (c) (- (char-code c) 48)))