23
23
;;; SCAN-NUMBER-BEFORE-DOT
24
24
;;;; with look-ahead disabled
27
27
(declaim (special *tag* *special-proc* *PARSE-STREAM* *in* parse-tyipeek))
28
28
(defvar *in* *PARSE-STREAM* "input stream to read")
29
29
(setq parse-tyipeek nil) ;; look-ahead in nparse.lisp