diff options
Diffstat (limited to 'src/algebra/strap/LSAGG.lsp')
-rw-r--r-- | src/algebra/strap/LSAGG.lsp | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/src/algebra/strap/LSAGG.lsp b/src/algebra/strap/LSAGG.lsp deleted file mode 100644 index e84a2d74..00000000 --- a/src/algebra/strap/LSAGG.lsp +++ /dev/null @@ -1,33 +0,0 @@ - -(/VERSIONCHECK 2) - -(DEFPARAMETER |ListAggregate;CAT| 'NIL) - -(DEFPARAMETER |ListAggregate;AL| 'NIL) - -(DEFUN |ListAggregate;| (|t#1|) - (LET ((#0=#:G1405 - (|sublisV| (PAIR '(|t#1|) (LIST (|devaluate| |t#1|))) - (COND - (|ListAggregate;CAT|) - (T (SETQ |ListAggregate;CAT| - (|Join| (|StreamAggregate| '|t#1|) - (|FiniteLinearAggregate| '|t#1|) - (|ExtensibleLinearAggregate| '|t#1|) - (|mkCategory| '|domain| - '(((|list| ($ |t#1|)) T)) NIL 'NIL - NIL)))))))) - (SETF (|shellEntry| #0# 0) - (LIST '|ListAggregate| (|devaluate| |t#1|))) - #0#)) - -(DEFUN |ListAggregate| (#0=#:G1406) - (LET ((#1=#:G1407 (|assoc| (|devaluate| #0#) |ListAggregate;AL|))) - (COND - (#1# (CDR #1#)) - (T (PROGN - (SETQ #1# (|ListAggregate;| #0#)) - (SETQ |ListAggregate;AL| - (|cons5| (CONS (|devaluate| #0#) #1#) - |ListAggregate;AL|)) - #1#))))) |