Artifact 33111c7fc8273efa4de12716320c941c789be93a462ea23873d5472f2e33dcd0:

• File psl-1983/3-1/util/fast-strings.sl — 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: 972) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/util/fast-strings.sl — 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: 972) [annotate] [blame] [check-ins using]

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% FAST-STRINGS - Fast (unchecked) version of String Functions
% 
% Author:      Alan Snyder
%              Hewlett-Packard/CRC
% Date:        17 September 1982
%
% Load this at compile-time to make compiled invocations of the following
% functions fast (and unchecked):
%
% (string-fetch s i)
% (string-store s i ch)
% (string-length s)
% (string-upper-bound s)
% (string-empty? s)
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(load slow-strings) % for the interpreted versions
(CompileTime (load fast-vector)) % for machine-dependent primitives

(put 'string-fetch 'cmacro '(lambda (s i) (igets s i)))
(put 'string-store 'cmacro '(lambda (s i c) (iputs s i c)))
(put 'string-length 'cmacro '(lambda (s) (Wplus2 (isizes s) 1)))
(put 'string-upper-bound 'cmacro '(lambda (s) (isizes s)))
(put 'string-empty? 'cmacro '(lambda (s) (WLessP (isizes s) 0)))