1
; Copyright (c) 1994 William F. Schelter
3
; See the files gnu.license and dec.copyright .
5
; This program is free software; you can redistribute it and/or modify
6
; it under the terms of the GNU General Public License as published by
7
; the Free Software Foundation; either version 1, or (at your option)
10
; This program is distributed in the hope that it will be useful,
11
; but WITHOUT ANY WARRANTY; without even the implied warranty of
12
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
; GNU General Public License for more details.
15
; You should have received a copy of the GNU General Public License
16
; along with this program; if not, write to the Free Software
17
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19
; Some of the files that interface to the Xlib are adapted from DEC/MIT files.
20
; See the file dec.copyright for details.
24
(sys::use-package '(:lisp :system :sys))
26
(defvar *files* '( "Xlib"
44
(compile-file (format nil "~a.lsp" x) :system-p t)) *files*)
49
(mapcar #'(lambda (x) (load (format nil "~a.o" x))) *files*))