This file is indexed.

/usr/lib/gcl-2.6.12/gcl-tk/demos/index.lsp is in gcl 2.6.12-76.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
(in-package "COMMON-LISP-USER")
(IN-PACKAGE "TK")
(AUTOLOAD 'MKRULER '|mkRuler|)
(AUTOLOAD 'RULERMKTAB '|mkRuler|)
(AUTOLOAD 'RULERNEWTAB '|mkRuler|)
(AUTOLOAD 'RULERMOVETAB '|mkRuler|)
(AUTOLOAD 'DEMO_SELECTTAB '|mkRuler|)
(AUTOLOAD 'RULERRELEASETAB '|mkRuler|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKSTYLES '|mkStyles|)
(AUTOLOAD 'INSERTWITHTAGS '|mkStyles|)
(IN-PACKAGE "TK")
(AUTOLOAD 'SHOWVARS '|showVars|)
(IN-PACKAGE "TK")
(AUTOLOAD 'DPOS '|widget|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKRADIO '|mkRadio|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKENTRY '|mkEntry|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKTEXTSEARCH '|mkSearch|)
(AUTOLOAD 'TEXTLOADFILE '|mkSearch|)
(AUTOLOAD 'TEXTSEARCH '|mkSearch|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKLISTBOX '|mkListbox|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKCANVTEXT '|mkCanvText|)
(AUTOLOAD 'MKTEXTCONFIG '|mkCanvText|)
(AUTOLOAD 'TEXTENTER '|mkCanvText|)
(AUTOLOAD 'TEXTB1PRESS '|mkCanvText|)
(AUTOLOAD 'TEXTB1MOVE '|mkCanvText|)
(AUTOLOAD 'TEXTBS '|mkCanvText|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKENTRY2 '|mkEntry2|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKBASIC '|mkBasic|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKTEXTBIND '|mkTextBind|)
(AUTOLOAD 'INSERTWITHTAGS '|mkTextBind|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKPLOT '|mkPlot|)
(AUTOLOAD 'PLOTDOWN '|mkPlot|)
(AUTOLOAD 'PLOTMOVE '|mkPlot|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKVSCALE '|mkVScale|)
(AUTOLOAD 'SETHEIGHT '|mkVScale|)
(IN-PACKAGE "TK")
(AUTOLOAD 'NQTHM-STACK '|nqthm-stack|)
(IN-PACKAGE "USER")
(SYSTEM::AUTOLOAD 'TK::SHOW-FRAMES '|nqthm-stack|)
(SYSTEM::AUTOLOAD 'DISPLAY-REWRITE-PATH-TOKEN '|nqthm-stack|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKFORM '|mkForm|)
(AUTOLOAD 'TAB '|mkForm|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKHSCALE '|mkHScale|)
(AUTOLOAD 'SETWIDTH '|mkHScale|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKDIALOG '|mkdialog|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKLABEL '|mkLabel|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MAKE-ONE-GRAPH '|gc-monitor|)
(AUTOLOAD 'PUSH-MULTIPLE-VALUES '|gc-monitor|)
(AUTOLOAD 'DRAW-STATUS '|gc-monitor|)
(AUTOLOAD 'DO-ALLOCATION '|gc-monitor|)
(AUTOLOAD 'SET-LABEL-BACKGROUND '|gc-monitor|)
(AUTOLOAD 'MKGCMONITOR '|gc-monitor|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKITEMS '|mkItems|)
(AUTOLOAD 'ITEMENTER '|mkItems|)
(AUTOLOAD 'ITEMLEAVE '|mkItems|)
(AUTOLOAD 'ITEMMARK '|mkItems|)
(AUTOLOAD 'ITEMSTROKE '|mkItems|)
(AUTOLOAD 'ITEMSUNDERAREA '|mkItems|)
(AUTOLOAD 'ITEMSTARTDRAG '|mkItems|)
(AUTOLOAD 'ITEMDRAG '|mkItems|)
(AUTOLOAD 'ITEMDRAG '|mkItems|)
(AUTOLOAD 'BUTPRESS '|mkItems|)
(AUTOLOAD 'EMACS-MOVE '|mkItems|)
(in-package "COMMON-LISP-USER")

(SETQ SYSTEM::*LOAD-PATH*
      (APPEND '("/build/gcl-anHk5P/gcl-2.6.12/gcl-tk/demos/")
              SYSTEM::*LOAD-PATH*))