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

Diff of /slime/xref.lisp

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

revision 1.2 by lgorrie, Mon May 17 00:25:24 2004 UTC revision 1.3 by heller, Sat Apr 7 10:23:39 2012 UTC
# Line 49  Line 49 
49  ;;; Use and copying of this software and the preparation of derivative  ;;; Use and copying of this software and the preparation of derivative
50  ;;; works based on this software are permitted, so long as the following  ;;; works based on this software are permitted, so long as the following
51  ;;; conditions are met:  ;;; conditions are met:
52  ;;;     o  The copyright notice and this entire notice are included intact  ;;;     o  The copyright notice and this entire notice are included intact
53  ;;;        and prominently carried on all copies and supporting documentation.  ;;;        and prominently carried on all copies and supporting documentation.
54  ;;;     o  No fees or compensation are charged for use, copies, or  ;;;     o  No fees or compensation are charged for use, copies, or
55  ;;;        access to this software. You may charge a nominal  ;;;        access to this software. You may charge a nominal
56  ;;;        distribution fee for the physical act of transferring a  ;;;        distribution fee for the physical act of transferring a
57  ;;;        copy, but you may not charge for the program itself.  ;;;        copy, but you may not charge for the program itself.
58  ;;;     o  If you modify this software, you must cause the modified  ;;;     o  If you modify this software, you must cause the modified
59  ;;;        file(s) to carry prominent notices (a Change Log)  ;;;        file(s) to carry prominent notices (a Change Log)
60  ;;;        describing the changes, who made the changes, and the date  ;;;        describing the changes, who made the changes, and the date
61  ;;;        of those changes.  ;;;        of those changes.
62  ;;;     o  Any work distributed or published that in whole or in part  ;;;     o  Any work distributed or published that in whole or in part
63  ;;;        contains or is a derivative of this software or any part  ;;;        contains or is a derivative of this software or any part
64  ;;;        thereof is subject to the terms of this agreement. The  ;;;        thereof is subject to the terms of this agreement. The
65  ;;;        aggregation of another unrelated program with this software  ;;;        aggregation of another unrelated program with this software
66  ;;;        or its derivative on a volume of storage or distribution  ;;;        or its derivative on a volume of storage or distribution
67  ;;;        medium does not bring the other program under the scope  ;;;        medium does not bring the other program under the scope
68  ;;;        of these terms.  ;;;        of these terms.
69  ;;;     o  Permission is granted to manufacturers and distributors of  ;;;     o  Permission is granted to manufacturers and distributors of
70  ;;;        lisp compilers and interpreters to include this software  ;;;        lisp compilers and interpreters to include this software
71  ;;;        with their distribution.  ;;;        with their distribution.
72  ;;;  ;;;
73  ;;; This software is made available AS IS, and is distributed without  ;;; This software is made available AS IS, and is distributed without
74  ;;; warranty of any kind, either expressed or implied.  ;;; warranty of any kind, either expressed or implied.
75  ;;;  ;;;
# Line 141  Line 141 
141  ;;;                 source is loaded.  ;;;                 source is loaded.
142  ;;; 20-SEP-93 mk    Added fix from Peter Norvig to allow Xref to xref itself.  ;;; 20-SEP-93 mk    Added fix from Peter Norvig to allow Xref to xref itself.
143  ;;;                 The arg to macro-function must be a symbol.  ;;;                 The arg to macro-function must be a symbol.
144    ;;;  7-APR-12 heller  Break lines at 80 columns.
145    
146  ;;; ********************************  ;;; ********************************
147  ;;; To Do **************************  ;;; To Do **************************
# Line 589  Cross-referencing file /afs/cs/user/mkan Line 590  Cross-referencing file /afs/cs/user/mkan
590  48 forms processed.  48 forms processed.
591  <cl> (xref:display-database :readers)  <cl> (xref:display-database :readers)
592    
593  *DISPLAY-CUTOFF-DEPTH* is referenced by CALCULATE-LEVEL-POSITION CALCULATE-LEVEL-POSITION-BEFORE CALCULATE-POSITION-IN-LEVEL.  *DISPLAY-CUTOFF-DEPTH* is referenced by CALCULATE-LEVEL-POSITION
594  *OFFSET-FROM-EDGE-OF-PANE* is referenced by CALCULATE-LEVEL-POSITION CALCULATE-LEVEL-POSITION-BEFORE.  CALCULATE-LEVEL-POSITION-BEFORE CALCULATE-POSITION-IN-LEVEL.
595    *OFFSET-FROM-EDGE-OF-PANE* is referenced by CALCULATE-LEVEL-POSITION
596    CALCULATE-LEVEL-POSITION-BEFORE.
597  *WITHIN-LEVEL-SPACING* is referenced by BREADTH CALCULATE-POSITION-INFO.  *WITHIN-LEVEL-SPACING* is referenced by BREADTH CALCULATE-POSITION-INFO.
598  *DIRECTION* is referenced by CREATE-POSITION-INFO.  *DIRECTION* is referenced by CREATE-POSITION-INFO.
599  *LINK-OFFSET* is referenced by OFFSET-OF-LINK-FROM-ATTACHMENT-POINT.  *LINK-OFFSET* is referenced by OFFSET-OF-LINK-FROM-ATTACHMENT-POINT.
600  *ROOT-IS-SEQUENCE* is referenced by GRAPH.  *ROOT-IS-SEQUENCE* is referenced by GRAPH.
601  *LEVEL-SPACING* is referenced by CALCULATE-LEVEL-POSITION CALCULATE-LEVEL-POSITION-BEFORE.  *LEVEL-SPACING* is referenced by CALCULATE-LEVEL-POSITION
602  *ORIENTATION* is referenced by BREADTH CALCULATE-LEVEL-POSITION CALCULATE-LEVEL-POSITION-BEFORE CALCULATE-POSITION-IN-LEVEL.  CALCULATE-LEVEL-POSITION-BEFORE.
603    *ORIENTATION* is referenced by BREADTH CALCULATE-LEVEL-POSITION
604    CALCULATE-LEVEL-POSITION-BEFORE CALCULATE-POSITION-IN-LEVEL.
605  *DEFAULT-GRAPH-POSITION* is referenced by CREATE-POSITION-INFO.  *DEFAULT-GRAPH-POSITION* is referenced by CREATE-POSITION-INFO.
606  *GRAPHING-CUTOFF-DEPTH* is referenced by CREATE-NODE-STRUCTURE.  *GRAPHING-CUTOFF-DEPTH* is referenced by CREATE-NODE-STRUCTURE.
607  *LIST-OF-NODES* is referenced by CALCULATE-LEVEL-POSITION CALCULATE-LEVEL-POSITION-BEFORE CREATE-NODE FIND-NODE.  *LIST-OF-NODES* is referenced by CALCULATE-LEVEL-POSITION
608    CALCULATE-LEVEL-POSITION-BEFORE CREATE-NODE FIND-NODE.
609  *GRAPH-TYPE* is referenced by CREATE-NODE-STRUCTURE.  *GRAPH-TYPE* is referenced by CREATE-NODE-STRUCTURE.
610  <cl> (xref:print-caller-trees :root-nodes '(display-graph))  <cl> (xref:print-caller-trees :root-nodes '(display-graph))
611    
# Line 1229  Rooted calling trees: Line 1235  Rooted calling trees:
1235  ;;; Misc Utilities *****************  ;;; Misc Utilities *****************
1236  ;;; ********************************  ;;; ********************************
1237  (defvar *types-to-ignore*  (defvar *types-to-ignore*
1238    '(:lisp                               ; CLtL 1st Edition    '(:lisp                       ; CLtL 1st Edition
1239      :lisp2                              ; CLtL 2nd Edition additional patterns      :lisp2                      ; CLtL 2nd Edition additional patterns
1240      )      )
1241    "Default set of caller types (as specified in the patterns) to ignore    "Default set of caller types (as specified in the patterns) to ignore
1242     in the database handling functions. :lisp is CLtL 1st edition,     in the database handling functions. :lisp is CLtL 1st edition,
# Line 1906  Rooted calling trees: Line 1912  Rooted calling trees:
1912    :lisp2)    :lisp2)
1913  (define-caller-pattern compiler-macro-function (form) :lisp2)  (define-caller-pattern compiler-macro-function (form) :lisp2)
1914  (define-caller-pattern compiler-macroexpand (form (:optional :ignore)) :lisp2)  (define-caller-pattern compiler-macroexpand (form (:optional :ignore)) :lisp2)
1915  (define-caller-pattern compiler-macroexpand-1 (form (:optional :ignore)) :lisp2)  (define-caller-pattern compiler-macroexpand-1 (form (:optional :ignore))
1916      :lisp2)
1917    
1918  ;;; Environments  ;;; Environments
1919  (define-caller-pattern variable-information (form &optional :ignore)  (define-caller-pattern variable-information (form &optional :ignore)
# Line 2262  Rooted calling trees: Line 2269  Rooted calling trees:
2269  (define-caller-pattern delete-duplicates (form &key (:star form)) :lisp)  (define-caller-pattern delete-duplicates (form &key (:star form)) :lisp)
2270  (define-caller-pattern substitute (form form form &key (:star form)) :lisp)  (define-caller-pattern substitute (form form form &key (:star form)) :lisp)
2271  (define-caller-pattern substitute-if (form fn form &key (:star form)) :lisp)  (define-caller-pattern substitute-if (form fn form &key (:star form)) :lisp)
2272  (define-caller-pattern substitute-if-not (form fn form &key (:star form)) :lisp)  (define-caller-pattern substitute-if-not (form fn form &key (:star form))
2273      :lisp)
2274  (define-caller-pattern nsubstitute (form form form &key (:star form)) :lisp)  (define-caller-pattern nsubstitute (form form form &key (:star form)) :lisp)
2275  (define-caller-pattern nsubstitute-if (form fn form &key (:star form)) :lisp)  (define-caller-pattern nsubstitute-if (form fn form &key (:star form)) :lisp)
2276  (define-caller-pattern nsubstitute-if-not (form fn form &key (:star form)) :lisp)  (define-caller-pattern nsubstitute-if-not (form fn form &key (:star form))
2277      :lisp)
2278  (define-caller-pattern find (form form &key (:star form)) :lisp)  (define-caller-pattern find (form form &key (:star form)) :lisp)
2279  (define-caller-pattern find-if (fn form &key (:star form)) :lisp)  (define-caller-pattern find-if (fn form &key (:star form)) :lisp)
2280  (define-caller-pattern find-if-not (fn form &key (:star form)) :lisp)  (define-caller-pattern find-if-not (fn form &key (:star form)) :lisp)
# Line 2497  Rooted calling trees: Line 2506  Rooted calling trees:
2506  (define-caller-pattern make-concatenated-stream ((:star form)) :lisp)  (define-caller-pattern make-concatenated-stream ((:star form)) :lisp)
2507  (define-caller-pattern make-two-way-stream (form form) :lisp)  (define-caller-pattern make-two-way-stream (form form) :lisp)
2508  (define-caller-pattern make-echo-stream (form form) :lisp)  (define-caller-pattern make-echo-stream (form form) :lisp)
2509  (define-caller-pattern make-string-input-stream (form &optional form form) :lisp)  (define-caller-pattern make-string-input-stream (form &optional form form)
2510      :lisp)
2511  (define-caller-pattern make-string-output-stream (&key (:star form)) :lisp)  (define-caller-pattern make-string-output-stream (&key (:star form)) :lisp)
2512  (define-caller-pattern get-output-stream-string (form) :lisp)  (define-caller-pattern get-output-stream-string (form) :lisp)
2513    
# Line 2541  Rooted calling trees: Line 2551  Rooted calling trees:
2551  (define-variable-pattern *readtable* :lisp)  (define-variable-pattern *readtable* :lisp)
2552  (define-caller-pattern copy-readtable (&optional form form) :lisp)  (define-caller-pattern copy-readtable (&optional form form) :lisp)
2553  (define-caller-pattern readtablep (form) :lisp)  (define-caller-pattern readtablep (form) :lisp)
2554  (define-caller-pattern set-syntax-from-char (form form &optional form form) :lisp)  (define-caller-pattern set-syntax-from-char (form form &optional form form)
2555      :lisp)
2556  (define-caller-pattern set-macro-character (form fn &optional form) :lisp)  (define-caller-pattern set-macro-character (form fn &optional form) :lisp)
2557  (define-caller-pattern get-macro-character (form (:optional form)) :lisp)  (define-caller-pattern get-macro-character (form (:optional form)) :lisp)
2558  (define-caller-pattern make-dispatch-macro-character (form &optional form form)  (define-caller-pattern make-dispatch-macro-character (form &optional form form)
# Line 2592  Rooted calling trees: Line 2603  Rooted calling trees:
2603  (define-caller-pattern prin1-to-string (form) :lisp)  (define-caller-pattern prin1-to-string (form) :lisp)
2604  (define-caller-pattern princ-to-string (form) :lisp)  (define-caller-pattern princ-to-string (form) :lisp)
2605  (define-caller-pattern write-char (form (:optional form)) :lisp)  (define-caller-pattern write-char (form (:optional form)) :lisp)
2606  (define-caller-pattern write-string (form &optional form &key (:star form)) :lisp)  (define-caller-pattern write-string (form &optional form &key (:star form))
2607  (define-caller-pattern write-line (form &optional form &key (:star form)) :lisp)    :lisp)
2608    (define-caller-pattern write-line (form &optional form &key (:star form))
2609      :lisp)
2610  (define-caller-pattern terpri ((:optional form)) :lisp)  (define-caller-pattern terpri ((:optional form)) :lisp)
2611  (define-caller-pattern fresh-line ((:optional form)) :lisp)  (define-caller-pattern fresh-line ((:optional form)) :lisp)
2612  (define-caller-pattern finish-output ((:optional form)) :lisp)  (define-caller-pattern finish-output ((:optional form)) :lisp)
# Line 2621  Rooted calling trees: Line 2634  Rooted calling trees:
2634    :lisp2)    :lisp2)
2635    
2636  (define-caller-pattern logical-pathname (form) :lisp2)  (define-caller-pattern logical-pathname (form) :lisp2)
2637  (define-caller-pattern translate-logical-pathname (form &key (:star form)) :lisp2)  (define-caller-pattern translate-logical-pathname (form &key (:star form))
2638      :lisp2)
2639  (define-caller-pattern logical-pathname-translations (form) :lisp2)  (define-caller-pattern logical-pathname-translations (form) :lisp2)
2640  (define-caller-pattern load-logical-pathname-translations (form) :lisp2)  (define-caller-pattern load-logical-pathname-translations (form) :lisp2)
2641  (define-caller-pattern compile-file-pathname (form &key form) :lisp2)  (define-caller-pattern compile-file-pathname (form &key form) :lisp2)
# Line 2760  Rooted calling trees: Line 2774  Rooted calling trees:
2774  (define-caller-pattern pprint-tab (form form form &optional form) :lisp2)  (define-caller-pattern pprint-tab (form form form &optional form) :lisp2)
2775  (define-caller-pattern pprint-fill (form form &optional form form) :lisp2)  (define-caller-pattern pprint-fill (form form &optional form form) :lisp2)
2776  (define-caller-pattern pprint-linear (form form &optional form form) :lisp2)  (define-caller-pattern pprint-linear (form form &optional form form) :lisp2)
2777  (define-caller-pattern pprint-tabular (form form &optional form form form) :lisp2)  (define-caller-pattern pprint-tabular (form form &optional form form form)
2778      :lisp2)
2779  (define-caller-pattern formatter (control-string) :lisp2)  (define-caller-pattern formatter (control-string) :lisp2)
2780  (define-caller-pattern copy-pprint-dispatch (&optional form) :lisp2)  (define-caller-pattern copy-pprint-dispatch (&optional form) :lisp2)
2781  (define-caller-pattern pprint-dispatch (form &optional form) :lisp2)  (define-caller-pattern pprint-dispatch (form &optional form) :lisp2)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5