Artifact 20da01e823df9d0cd53631a9dd97c146a2841a09303f48e700244f5a60fcdf64:
- File
psl-1983/3-1/kernel/comp-support.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: 941) [annotate] [blame] [check-ins using] [more...]
- File
psl-1983/kernel/comp-support.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: 941) [annotate] [blame] [check-ins using]
% % COMP-SUPPORT.RED - Run-time support for optimized Cons and List compilation % % Author: Eric Benson % Symbolic Computation Group % Computer Science Dept. % University of Utah % Date: 20 September 1981 % Copyright (c) 1981 University of Utah % CommentOutCode << % defined in CONS-MKVECT.RED CompileTime(SavedCompFn := RemProp('Cons, 'CompFn)); % else can't compile lisp procedure NCons U; %. U . NIL, or 1-argument EXPR for LIST U . NIL; lisp procedure XCons(U, V); %. V . U V . U; CompileTime put('Cons, 'CompFn, SavedCompFn); >>; lisp procedure List5(U, V, W, X, Y); %. 5-argument EXPR for LIST U . List4(V, W, X, Y); lisp procedure List4(U, V, W, X); %. 4-argument EXPR for LIST U . List3(V, W, X); lisp procedure List3(U, V, W); %. 3-argument EXPR for LIST U . List2(V, W); lisp procedure List2(U, V); %. 2-argument EXPR for LIST U . NCons V; END;