Artifact 66d0b9085099161a6b9f7970be56ee4a91fc7cee31120e4ece058d7a4b0a70e5:

• File psl-1983/util/useful.tags — 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: 4360) [annotate] [blame] [check-ins using] [more...]

PS:<PSL.UTIL>BACKQUOTE.SL.0
00410,PSL
(dm backquote (u) (backquote-form (cadr u)))686
(de backquote-form (u)712
(de backquote-vector (u)1392
(de backquote-list (u)2074
(de backquote-constantp (u)3251
(de backquote-constant-value (x)3387
(dm quoted-list (u) (mkquote (cdr u)))3712
(dm list* (u) (expand (cdr u) 'cons))3755
(dm quoted-list* (u)3779
(dm unquote (u) (ContinuableError4175

PS:<PSL.UTIL>READ-MACROS.SL.0
00493,PSL
(de backquote-read-macro (channel qt)659
(de unquote-read-macro (channel qt)756
(de unquotel-read-macro (channel qt)852
(de unquoted-read-macro (channel qt)949
(de function-read-macro (channel qt)1899
(de eval-read-macro (channel qt)1988
(de if-system-read-macro (channel qt)2184
(de if-not-system-read-macro (channel qt)2462
(de single-char-read-macro (channel qt)3571
(de char-read-macro (channel qt)3961
(de DoChar (u)4028

PS:<PSL.UTIL>DESTRUCTURE.SL.0
00297,PSL
(de destructure-form (target path)324
(de flatten (U)671
(de defmacro-1 (U)1055
(de macro-displace (u v)1450
(dm defmacro (u) (defmacro-1 u))1626
(dm defmacro-displace (u)1656
(dm defmacro-no-displace (u)1742
(defmacro desetq (U V)1916

PS:<PSL.UTIL>COND-MACROS.SL.0
00215,PSL
(defmacro if (predicate then . else)327
(defmacro xor (u v) 448
(defmacro when (p . c) `(cond (,p . ,c)))713
(defmacro unless (p . c) `(cond ((not ,p) . ,c)))766

PS:<PSL.UTIL>BIND-MACROS.SL.0
00179,PSL
(defmacro prog1 (first . body)315
(defmacro let (specs . body)444
(defmacro let* (specs . body)910
(de let*1 (specs body)1097

PS:<PSL.UTIL>SET-MACROS.SL.0
00808,PSL
(defmacro setf u808
(de setf1 (u)1002
(de setf2 (lhs rhs)1182
(de expand-setf (lhs rhs)1513
(de expand-pnth-setf (lhs rhs)3934
(de flag-setf (nam flg val)4408
(de getd-setf (trgt src)4520
(de list-setf (lhs rhs)4918
(de cons-setf (lhs rhs)5149
(de vector-setf (lhs rhs)5478
(defmacro push (item stack) `(setf ,stack (cons ,item ,stack)))5826
(defmacro pop (stack . rst)5857
(defmacro adjoin-to (e s) `(setf ,s (adjoin ,e ,s)))6016
(defmacro adjoinq-to (e s) `(setf ,s (adjoinq ,e ,s)))6074
(defmacro incr (var . rst)6104
(defmacro decr (var . rst)6193
(defmacro clear L6286
(defmacro psetq rst6387
(defmacro psetf rst6797
(defmacro defswitch (nam var . acts)7128
       (de ,nam () (let ((,nam ,var)) ,read-act) ,var)7401

PS:<PSL.UTIL>ITER-MACROS.SL.0
00254,PSL
(defmacro do (iterators result . body)316
(defmacro do* (iterators result . body)1011
(defmacro do-loop (iterators prologue result . body)1717
(defmacro do-loop* (iterators prologue result . body)2443

PS:<PSL.UTIL>FOR-MACRO.SL.0
01041,PSL
(dm for (U) (for-build-loop (cdr U) 'do-loop 'let))593
(defmacro for* U613
(de for-build-loop (U loop-fn let-fn)693
(de process-for-clause (clause)2490
(de for-in-function (clause)2881
(de for-on-function (clause)3390
(de for-from-function (clause)3564
(de for-for-function (clause) (tconc for-vars* clause))4661
(de for-with-function (clause) 4696
(de for-initially-function (clause)4800
(de for-finally-function (clause)4905
(de for-do-function (clause)5005
(de for-collect-function (clause)5107
(de for-conc-function (clause)5558
(de for-join-function (clause)6024
(de for-intersection-function (clause)7168
(de for-intersectionq-function (clause)7606
(de for-always-function (clause)8849
(de for-never-function (clause)9007
(de for-thereis-function (clause)9159
(de for-returns-function (clause)9345
(de for-while-function (clause)9455
(de for-until-function (clause)9553
(de for-when-function (clause)9649
(de for-unless-function (clause)9751

PS:<PSL.UTIL>MISC-MACROS.SL.0
00489,PSL
(defmacro funcall u `(apply ,(car u) (list ,@(cdr u))))323
(defmacro eqfirst (u v) `(eqcar ,u ,v))392
(defmacro bldid (s . args) `(intern (bldmsg ,s ,@args)))452
(defmacro nary-concat u (expand u 'concat))499
(de stub-print (name arg-names actual-args)817
(defmacro circular-list L1001
(defmacro nothing U nil) % Nary no-op returning nil; args not evaluated.1189
(defmacro make-list (N . rst)1222
(de make-list-1 (N init)1304

PS:<PSL.UTIL>MACROEXPAND.SL.0
00308,PSL
(defmacro macroexpand (form . macros)318
(de macroexpand1 (U L)419
(de macroexpand2 (U L)624
(de macroexpand-cond (U L)1296
(de macroexpand-prog (U L)1421
(de macroexpand-random (U L)1528
(de macroexpand-setq (U L)1627
(de macroexpand-loop ()1989