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
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Copyright (C) 1994 Joergen Backelin
%%
%% Bergman is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY. No author or distributor
%% accepts responsibility to anyone for the consequences of using it
%% or for whether it serves any particular purpose or works at all,
%% unless he says so in writing. Refer to the Bergman General Public
%% License for full details.
%% Everyone is granted permission to copy, modify and redistribute
%% bergman, but only under the conditions described in the
%% Bergman General Public License. A copy of this license is
%% supposed to have been given to you along with bergman so you
%% can know your rights and responsibilities. It should be in a
%% file named copyright. Among other things, the copyright notice
%% and this notice must be preserved on all copies.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% CREATED 1994-09-02.
(GLOBAL '(!*PSL!-MODE % Restricted or extended psl, alone or
% as a reduce base.
!*SL!-MODE % Standard Lisp.
!*CL!-MODE % Common Lisp.
!*CSL!-MODE % Codemist Standard Lisp.
!*REDUCE!-MODE % Some lisp that is a base for Reduce.
!*UNIX!-MODE % Unix operating system.
!*MSDOS!-MODE % MsDos operating system.
))
(ON PSL!-MODE)
(ON SL!-MODE)
(OFF CL!-MODE)
(OFF CSL!-MODE)
(OFF REDUCE!-MODE)
(OFF UNIX!-MODE)
(ON MSDOS!-MODE)
|
