From 9c3238e89e6a545dcacf072c45a592832c8ecb79 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 21 Jan 1992 15:54:30 +0000 Subject: [PATCH] Fixed error context stuff to know that the source-info-name for a file is now the namestring and not the pathname. --- compiler/ir1util.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 2760bd4ac..c9cc50329 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.49 1991/12/14 05:27:37 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.50 1992/01/21 15:54:30 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1438,7 +1438,8 @@ (context nil :type list) ;; ;; The FILE-INFO-NAME for the relevant FILE-INFO. - (file-name (required-argument) :type (or pathname (member :lisp :stream))) + (file-name (required-argument) + :type (or simple-string (member :lisp :stream))) ;; ;; The file position at which the top-level form starts, if applicable. (file-position nil :type (or index null)) @@ -1675,8 +1676,7 @@ (funcall *compiler-notification-function* severity (format nil "~{~{~S~^ ~}~^ => ~}" (compiler-error-context-context context)) - (when (typep name 'pathname) - (namestring name)) + (when (stringp name) name) (compiler-error-context-file-position context))) (funcall *compiler-notification-function* severity nil nil nil))) (undefined-value)) @@ -1727,10 +1727,10 @@ (unless (and last (equal file (compiler-error-context-file-name last))) - (when (typep file 'pathname) + (when (stringp file) (note-message-repeats) (setq last nil) - (format stream "~2&File: ~A~%" (namestring file)))) + (format stream "~2&File: ~A~%" file))) (unless (and last (equal in (compiler-error-context-context last))) -- GitLab