From 2ad506caa75d383751b4fec792d7194e4f138423 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 17 Apr 1992 16:00:48 +0000
Subject: [PATCH] Chagned the unmatched close parenthesis warning to include
 the file position so that it is easier to track them down.

---
 code/reader.lisp | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/code/reader.lisp b/code/reader.lisp
index 3b37403a2..3f78fb19e 100644
--- a/code/reader.lisp
+++ b/code/reader.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.13 1992/04/02 03:50:54 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.14 1992/04/17 16:00:48 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -586,11 +586,13 @@
 
 (defun read-right-paren (stream ignore)
   (declare (ignore ignore))
-  (cond (*ignore-extra-close-parentheses*
-	 (warn "Ignoring unmatched close parenthesis.")
-	 (values))
-	(t
-	 (%reader-error stream "Unmatched close parenthesis."))))
+    (cond (*ignore-extra-close-parentheses*
+	   (warn "Ignoring unmatched close parenthesis~
+		  ~@[ at file position ~D~]."
+		 (file-position stream))
+	   (values))
+	  (t
+	   (%reader-error stream "Unmatched close parenthesis.")))))
 
 ;;; INTERNAL-READ-EXTENDED-TOKEN  --  Internal
 ;;;
-- 
GitLab