diff --git a/code/reader.lisp b/code/reader.lisp index 3b37403a2c05299b32888eaae31138898aea45e8..3f78fb19ebc5bd0ad779c1d9144de2df9141a3e1 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 ;;;