From 8dfd1d6656a0f30e607adb3f923ec24cef4922eb Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Mon, 10 May 2004 20:05:18 +0000 Subject: [PATCH] Fix typo with extra misplaced paren. --- compiler/main.lisp | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index e80d602f2..4e4c6c73b 100644 --- a/compiler/main.lisp +++ b/compiler/main.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/compiler/main.lisp,v 1.141 2004/05/10 16:58:37 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.142 2004/05/10 20:05:18 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -809,20 +809,20 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.") (res nil)) (file-position stream pos) (loop - (let ((line (read-line stream nil nil))) - (unless line (return)) - (when (or (find #\" line) (find #\( line)) - (setq res line) - (return)) - (unless (or res (zerop (length line))) - (setq res line)))) + (let ((line (read-line stream nil nil))) + (unless line (return)) + (when (or (find #\" line) (find #\( line)) + (setq res line) + (return)) + (unless (or res (zerop (length line))) + (setq res line)))) (compiler-error-message "Read error in form starting at ~D:~%~@[ \"~A\"~%~]~A" - pos res condition)) + pos res condition) - (file-position stream eof-pos) - (undefined-value)) + (file-position stream eof-pos) + (undefined-value))) ;;; Careful-Read -- Internal -- GitLab