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