/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

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

revision 1.16 by lukeg, Mon Sep 22 05:50:08 2003 UTC revision 1.17 by lukeg, Tue Sep 23 09:54:33 2003 UTC
# Line 445  This is a workaround for a CMUCL bug: XR Line 445  This is a workaround for a CMUCL bug: XR
445    (let ((filename (parse-namestring namestring)))    (let ((filename (parse-namestring namestring)))
446      (when c:*record-xref-info*      (when c:*record-xref-info*
447        (dolist (db (list xref::*who-calls*        (dolist (db (list xref::*who-calls*
448                            xref::*who-is-called*
449                          xref::*who-macroexpands*                          xref::*who-macroexpands*
450                          xref::*who-references*                          xref::*who-references*
451                          xref::*who-binds*                          xref::*who-binds*
# Line 523  reference     ::= (FUNCTION-SPECIFIER SO Line 524  reference     ::= (FUNCTION-SPECIFIER SO
524    (let ((hash (make-hash-table :test 'equal))    (let ((hash (make-hash-table :test 'equal))
525          (files '()))          (files '()))
526      (dolist (context contexts)      (dolist (context contexts)
527        (let ((unix-path (unix-truename (xref:xref-context-file context))))        (let* ((file (xref:xref-context-file context))
528                 (unix-path (if file (unix-truename file) "<unknown>")))
529          (push context (gethash unix-path hash))          (push context (gethash unix-path hash))
530          (pushnew unix-path files :test #'string=)))          (pushnew unix-path files :test #'string=)))
531      (mapcar (lambda (unix-path)      (mapcar (lambda (unix-path)
532                (xref-contexts-to-plist unix-path (gethash unix-path hash)))                (let ((real-path (if (string= unix-path "<unknown>")
533                                       nil
534                                       unix-path)))
535                    (xref-contexts-to-plist real-path (gethash unix-path hash))))
536              (sort files #'string<))))              (sort files #'string<))))
537    
538  (defun xref-contexts-to-plist (unix-filename contexts)  (defun xref-contexts-to-plist (unix-filename contexts)

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5