/usr/lib/gcl-2.6.7/xgcl-2/gcl_dwtestcases.lsp is in gcl 2.6.7-98.
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 | (load "/stage/ftp/pub/novak/xgcl-4/gcl_dwtrans.lsp")
(use-package 'xlib)
(load "/stage/ftp/pub/novak/xgcl-4/gcl_drawtrans.lsp")
(load "/stage/ftp/pub/novak/xgcl-4/gcl_editorstrans.lsp")
(load "/stage/ftp/pub/novak/xgcl-4/gcl_lispservertrans.lsp")
(load "/stage/ftp/pub/novak/xgcl-4/gcl_menu-settrans.lsp")
(load "/stage/ftp/pub/novak/xgcl-4/gcl_dwtest.lsp")
(load "/stage/ftp/pub/novak/xgcl-4/gcl_draw-gates.lsp")
(wtesta)
(wtestb)
(wtestc)
(wtestd)
(wteste)
(wtestf)
(wtestg)
(wtesth)
(wtesti)
(wtestj)
(wtestk)
(window-clear myw)
(edit-color myw)
(lisp-server)
(draw 'foo)
(window-draw-box-xy myw 48 48 204 204)
(window-edit myw 50 50 200 200 '("Now is the time" "for all" "good"))
(draw-nand myw 50 50)
|