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