Commit 2b480eb6 authored by wlott's avatar wlott
Browse files

Changed file-info's to hold namestrings (i.e. simple-strings) instead of

pathnames, so check for that instead.
parent 94064583
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment