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
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Copyright (C) 1994,1997 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 (s)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.
% CHANGES:
% Temporarily (??) patched compiler set-up bug./JoeB 1997-10-21
% Converted to lower cases./JoeB 1997-09-29
% (set!-heap!-size 2000000)
% (reload compiler) (reload fixup) (reload strings)
(load numeric!-ops)
(off usermode)
(setq quiet!_faslout t)
(on fast!-integers)
|
