reduce-historical/psl-1983/20-kernel/scan-table.red

%
% SCAN-TABLE.RED - Lisp character table for DEC-20
% 
% Author:      Eric Benson
%	       Symbolic Computation Group
%              Computer Science Dept.
%              University of Utah
% Date:        27 November 1981
% Copyright (c) 1981 University of Utah
%

%  <PSL.KERNEL-20>SCAN-TABLE.RED.6, 10-Feb-83 16:12:38, Edit by PERDUE
%  Changed the "put EOF" to be a STARTUPTIME form
% Edit by Cris Perdue, 28 Jan 1983 2039-PST
% LispDipthong -> LispDiphthong

fluid '(LispScanTable!* CurrentScanTable!*);

LispScanTable!* := '
[17 10 10 10 10 10 10 10 10 17 17 10 17 17 10 10 10 10 10 10 10 10 10 10 
10 10 11 10 10 10 10 10 17 14 15 10 10 12 10 11 11 11 10 19 10 18 20 10 
0 1 2 3 4 5 6 7 8 9 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 
10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 11 16 11 10 10 10 10 10 
10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 
10 10 10 10 10 LispDiphthong];

CurrentScanTable!* := LispScanTable!*;

% Done as "startuptime" because "char" is available at compile
% time but not necessarily init time /csp
startuptime
    put('EOF, 'CharConst, char cntrl Z);

END;