Artifact 9f1bef2026f4f0e0258e77acfcc5f1cb6006401c87293521106fec8a4064601e:

• File psl-1983/3-1/kernel/others-sl.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 993) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/kernel/others-sl.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 993) [annotate] [blame] [check-ins using]

%
% OTHERS-SL.RED - Random Standard Lisp functions
% 
% Author:      Eric Benson
%	       Symbolic Computation Group
%              Computer Science Dept.
%              University of Utah
% Date:        20 August 1981
% Copyright (c) 1981 University of Utah
%

% These are functions that didn't have a logical home
% Most could have been defined portably, but were not for efficiency reasons

on SysLisp;

off R2I;

syslsp procedure FixP U;		%. Is U an integer?
    FixP U;

on R2I;

syslsp procedure Digit U;	%. Is U an ID whose print name is a digit?
    IDP U and (U := IDInf U) >= char !0 and U <= char !9;

syslsp procedure Liter U;	%. Is U a single character alphabetic ID?
    IDP U and ((U := IDInf U) >= char A and U <= char Z
		or U >= char !a and U <= char !z);

off SysLisp;

CompileTime flag('(Length1), 'InternalFunction);

lisp procedure Length U;		%. Length of list U
    Length1(U, 0);

lisp procedure Length1(U, N);
    if PairP U then Length1(cdr U, IAdd1 N) else N;

END;