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
|
; Copyright (c) 1994 William F. Schelter
; See the files gnu.license and dec.copyright .
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 1, or (at your option)
; any later version.
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
; Some of the files that interface to the Xlib are adapted from DEC/MIT files.
; See the file dec.copyright for details.
(make-package :XLIB)
(in-package :XLIB)
(sys::use-package '(:lisp :system :sys))
(defvar *files* '( "Xlib"
"Xutil"
"X"
"XAtom"
"defentry-events"
"Xstruct"
"XStruct-l-3"
"general"
"keysymdef"
"X10"
"Xinit"
"dwtrans"
"sysinit"
))
(defun compile-xgcl()
(mapcar #'(lambda (x)
(compile-file (format nil "~a.lsp" x) :system-p t)) *files*)
)
(defun load-xgcl()
(mapcar #'(lambda (x) (load (format nil "~a.o" x))) *files*))
|