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
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Copyright (C) (1992,1994,1996,1998,2001,2002,2003) 2005
%% 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 from a copy of bmtop.sl 2005-07-31
%% Supposed to contain psl specific beginnings of
%% the 'bergman top file'.
% CHANGES:
% Not good. This is a PSL procedure. A more general syntax 'generic'
% would be preferrable.
(SAVESYSTEM BMVERSIONSTRING
(GETENV "bmvers")
'((SETQ TOPLOOPNAME!* "bergman")
% (ADD1 4) % "Do anything", to counter confounded bug.
% (READ-INIT-FILE "bergman")
))
% For debugging purposes only.
(COND ((DEFP 'INTERPBACKTRACE) (INTERPBACKTRACE)))
(QUIT)
|
