/usr/lib/gcl-2.6.12-prof/gcl-tk/demos/index.lsp is in gcl 2.6.12-47.
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 '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 "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 'MKLISTBOX '|mkListbox|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKVSCALE '|mkVScale|)
(AUTOLOAD 'SETHEIGHT '|mkVScale|)
(IN-PACKAGE "TK")
(AUTOLOAD 'SHOWVARS '|showVars|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKBASIC '|mkBasic|)
(IN-PACKAGE "TK")
(AUTOLOAD 'DPOS '|widget|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKENTRY2 '|mkEntry2|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKRADIO '|mkRadio|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKTEXTBIND '|mkTextBind|)
(AUTOLOAD 'INSERTWITHTAGS '|mkTextBind|)
(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 'MKLABEL '|mkLabel|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKHSCALE '|mkHScale|)
(AUTOLOAD 'SETWIDTH '|mkHScale|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKSTYLES '|mkStyles|)
(AUTOLOAD 'INSERTWITHTAGS '|mkStyles|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKENTRY '|mkEntry|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKPLOT '|mkPlot|)
(AUTOLOAD 'PLOTDOWN '|mkPlot|)
(AUTOLOAD 'PLOTMOVE '|mkPlot|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKFORM '|mkForm|)
(AUTOLOAD 'TAB '|mkForm|)
(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 'MKDIALOG '|mkdialog|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKTEXTSEARCH '|mkSearch|)
(AUTOLOAD 'TEXTLOADFILE '|mkSearch|)
(AUTOLOAD 'TEXTSEARCH '|mkSearch|)
(IN-PACKAGE "TK")
(AUTOLOAD 'MKRULER '|mkRuler|)
(AUTOLOAD 'RULERMKTAB '|mkRuler|)
(AUTOLOAD 'RULERNEWTAB '|mkRuler|)
(AUTOLOAD 'RULERMOVETAB '|mkRuler|)
(AUTOLOAD 'DEMO_SELECTTAB '|mkRuler|)
(AUTOLOAD 'RULERRELEASETAB '|mkRuler|)
(in-package "COMMON-LISP-USER")
(SETQ SYSTEM::*LOAD-PATH*
(APPEND '("/home/camm/gcl-2.6.12/gcl-tk/demos/")
SYSTEM::*LOAD-PATH*))
|