From 2b480eb61660063cfdbe3d0303f3f2cb315873db Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 14 Dec 1991 18:16:16 +0000 Subject: [PATCH] Changed file-info's to hold namestrings (i.e. simple-strings) instead of pathnames, so check for that instead. --- compiler/debug-dump.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index 76c590efa..3ee15b270 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.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/debug-dump.lisp,v 1.26 1991/12/11 16:47:12 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.27 1991/12/14 18:16:16 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -294,7 +294,7 @@ :start-positions (coerce-to-smallest-eltype (file-info-positions x))))) - (cond ((pathnamep name) + (cond ((simple-string-p name) (setf (debug-source-name res) name)) (t (setf (debug-source-from res) name) -- GitLab