/[cmucl]/src/compiler/debug-dump.lisp
ViewVC logotype

Diff of /src/compiler/debug-dump.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49 by rtoy, Sun Jan 31 19:26:51 2010 UTC revision 1.49.4.1 by rtoy, Thu Feb 25 20:34:52 2010 UTC
# Line 15  Line 15 
15  ;;; Written by Rob MacLachlan  ;;; Written by Rob MacLachlan
16  ;;;  ;;;
17  (in-package :c)  (in-package :c)
18    (intl:textdomain "cmucl")
19    
20  (defvar *byte-buffer*)  (defvar *byte-buffer*)
21  (declaim (type (vector (unsigned-byte 8)) *byte-buffer*))  (declaim (type (vector (unsigned-byte 8)) *byte-buffer*))
# Line 281  Line 282 
282    
283    
284  (defun namestring-for-debug-source (file-info)  (defun namestring-for-debug-source (file-info)
285    "Extract the namestring from FILE-INFO for the DEBUG-SOURCE.    _N"Extract the namestring from FILE-INFO for the DEBUG-SOURCE.
286  Return FILE-INFO's untruename (e.g., target:foo) if it is absolute;  Return FILE-INFO's untruename (e.g., target:foo) if it is absolute;
287  otherwise the truename."  otherwise the truename."
288    (let* ((untruename (file-info-untruename file-info))    (let* ((untruename (file-info-untruename file-info))

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.49.4.1

  ViewVC Help
Powered by ViewVC 1.1.5