Artifact 9fb4669c27d771932414dfb767e5a47ff50c8711ce998b65d3e1ea31a3344003:

• File psl-1983/3-1/tests/20/p — 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: 901) [annotate] [blame] [check-ins using] [more...]

(de errorprintf(a1 a2 a3 a4 a5)
 (prin2 a1)
 (prin2 " ")
 (prin2 a2)
 (prin2 " ")
 (prin2 a3)
 (prin2 " ")
 (prin2 a4)
 (prin2 " ")
 (prin2t a5))

(setq knt 0)
(df tr (z)
   (setq old (car z))
   (setq new (cadr z))
   (setq args (cddr z))      
   (copyd new old)
   (putd old 'expr (list 'lambda args 
            	    '(setq knt (add1 knt))
                     (list 'print (list 'list ">>>>" (list 'quote old)  'knt))
                      (list 'setq 'ans  (cons new args))
                      (list 'print (list 'list "   <" (list 'quote old)  'knt))
             	    '(setq knt (sub1 knt))
                      'ans)))

(df m (z)
   (setq old (car z))
   (setq new (cadr z))
   (setq args (cddr z))      
   (copyd new old)
   (print (list old (inf old)))
   (putd old 'expr (list 'lambda args 
                     (list 'print (list 'inf old))
                      (cons new args))))