From b92c90ef5dede7dfe4b9c98e63e569fc7e4cb364 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Mon, 24 Nov 2003 18:54:02 +0000 Subject: [PATCH] Per the parse-integer VOTE, revert parse-integer :junk-allowed behavior back to the old way where the parse is terminated as soon as possible, treating trailing whitespace as terminating characters. --- code/reader.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/reader.lisp b/code/reader.lisp index 4523f6ca7..89cac919d 100644 --- a/code/reader.lisp +++ b/code/reader.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.43 2003/11/08 11:45:48 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.44 2003/11/24 18:54:02 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1587,7 +1587,7 @@ (incf index) (setq any-digits t) (setq result (+ (* radix result) weight))) - (skip-whitespace) + (unless junk-allowed (skip-whitespace)) ;; ;; May be /= index if string is displaced. (let ((real-index (+ (- index start) orig-start))) -- GitLab