From 7e334c453ceafedd32871d599824e56ee04bbd14 Mon Sep 17 00:00:00 2001 From: Tim Daly Date: Tue, 28 Apr 2015 21:19:59 -0400 Subject: [PATCH] src/interp/vmlisp.lisp reduce the use of spadlet Lisp knows about setq and optimizations. --- books/bookvol10.3.pamphlet | 2 +- books/bookvol5.pamphlet | 8 +- books/bookvol9.pamphlet | 8 +- changelog | 68 + patch | 4 +- src/axiom-website/patches.html | 2 + src/interp/br-con.lisp.pamphlet | 4388 ++++++++++++++++++------------------ src/interp/buildom.lisp.pamphlet | 218 +- src/interp/c-doc.lisp.pamphlet | 418 ++-- src/interp/c-util.lisp.pamphlet | 514 +++--- src/interp/category.lisp.pamphlet | 552 +++--- src/interp/cattable.lisp.pamphlet | 522 +++--- src/interp/clam.lisp.pamphlet | 446 ++-- src/interp/clammed.lisp.pamphlet | 152 +- src/interp/compress.lisp.pamphlet | 10 +- src/interp/format.lisp.pamphlet | 26 +- src/interp/fortcall.lisp.pamphlet | 370 ++-- src/interp/functor.lisp.pamphlet | 964 ++++---- src/interp/g-boot.lisp.pamphlet | 354 ++-- src/interp/g-cndata.lisp.pamphlet | 120 +- src/interp/g-timer.lisp.pamphlet | 118 +- src/interp/g-util.lisp.pamphlet | 288 ++-- src/interp/hashcode.lisp.pamphlet | 54 +- src/interp/i-analy.lisp.pamphlet | 618 +++--- src/interp/i-code.lisp.pamphlet | 96 +- src/interp/i-coerce.lisp.pamphlet | 1188 +++++----- src/interp/i-coerfn.lisp.pamphlet | 2140 +++++++++--------- src/interp/i-eval.lisp.pamphlet | 196 +- src/interp/i-funsel.lisp.pamphlet | 20 +- src/interp/i-map.lisp.pamphlet | 1028 +++++----- src/interp/i-output.lisp.pamphlet | 2036 +++++++++--------- src/interp/i-resolv.lisp.pamphlet | 880 ++++---- src/interp/i-spec1.lisp.pamphlet | 1314 ++++++------ src/interp/i-spec2.lisp.pamphlet | 1000 +++++----- src/interp/i-util.lisp.pamphlet | 136 +- src/interp/info.lisp.pamphlet | 300 ++-- src/interp/interop.lisp.pamphlet | 218 +- src/interp/iterator.lisp.pamphlet | 200 +- src/interp/lisplib.lisp.pamphlet | 128 +- src/interp/match.lisp.pamphlet | 154 +- src/interp/nag-c02.lisp.pamphlet | 106 +- src/interp/nag-c05.lisp.pamphlet | 174 +- src/interp/nag-c06.lisp.pamphlet | 780 ++++---- src/interp/nag-d01.lisp.pamphlet | 460 ++-- src/interp/nag-d02.lisp.pamphlet | 1246 ++++++------ src/interp/nag-d03.lisp.pamphlet | 234 +- src/interp/nag-e01.lisp.pamphlet | 650 +++--- src/interp/nag-e02.lisp.pamphlet | 2042 +++++++++--------- src/interp/nag-e04.lisp.pamphlet | 1474 +++++++------- src/interp/nag-f01.lisp.pamphlet | 954 ++++---- src/interp/nag-f02.lisp.pamphlet | 1326 ++++++------ src/interp/nag-f07.lisp.pamphlet | 360 ++-- src/interp/nag-s.lisp.pamphlet | 264 ++-- src/interp/newfort.lisp.pamphlet | 640 +++--- src/interp/nocompil.lisp.pamphlet | 2 +- src/interp/nruncomp.lisp.pamphlet | 616 +++--- src/interp/nrunfast.lisp.pamphlet | 710 +++--- src/interp/nrungo.lisp.pamphlet | 370 ++-- src/interp/nrunopt.lisp.pamphlet | 950 ++++---- src/interp/parsing.lisp.pamphlet | 248 ++-- src/interp/profile.lisp.pamphlet | 60 +- src/interp/record.lisp.pamphlet | 178 +- src/interp/rulesets.lisp.pamphlet | 36 +- src/interp/server.lisp.pamphlet | 64 +- src/interp/simpbool.lisp.pamphlet | 134 +- src/interp/slam.lisp.pamphlet | 262 ++-- src/interp/template.lisp.pamphlet | 304 ++-- src/interp/termrw.lisp.pamphlet | 64 +- src/interp/topics.lisp.pamphlet | 164 +- src/interp/util.lisp.pamphlet | 18 +- src/interp/vmlisp.lisp.pamphlet | 6 +- 71 files changed, 18112 insertions(+), 18042 deletions(-) diff --git a/books/bookvol10.3.pamphlet b/books/bookvol10.3.pamphlet index db8c174..a297c74 100644 --- a/books/bookvol10.3.pamphlet +++ b/books/bookvol10.3.pamphlet @@ -35381,7 +35381,7 @@ PS: For those who use the Doublefloat domain (1) -> )boot $useBFasDefault:=false -(SPADLET |$useBFasDefault| NIL) +(setq |$useBFasDefault| NIL) Value = NIL (1) -> a:= matrix [ [0.5978,0.2356], [0.4512,0.2355] ] diff --git a/books/bookvol5.pamphlet b/books/bookvol5.pamphlet index 019ddbf..82c1d69 100644 --- a/books/bookvol5.pamphlet +++ b/books/bookvol5.pamphlet @@ -27524,7 +27524,7 @@ The \verb|$msgdbPrims| variable is set to: (setq |$dependentAlist| (putalist |$dependentAlist| dependee (cons dependent (getalist |$dependentAlist| dependee)))) - (spadlet |$dependeeAlist| + (setq |$dependeeAlist| (putalist |$dependeeAlist| dependent (cons dependee (getalist |$dependeeAlist| dependent)))))) (|getFlag| '|$dependencies|)))) @@ -27546,8 +27546,8 @@ The \verb|$msgdbPrims| variable is set to: (setq signature (cdar mm)) (setq fn (cadr mm)) (unless (eq local '|interpOnly|) - (spadlet varPart (unless giveVariableIfNil (cons " of" (|bright| v)))) - (spadlet prefix + (setq varPart (unless giveVariableIfNil (cons " of" (|bright| v)))) + (setq prefix (cons '| Compiled function type| (append varPart (cons '|: | nil)))) (|sayBrightly| (|concat| prefix (|formatSignature| signature))))))) (mapcar #'(lambda (x) (g v x giveVariableIfNil)) val))) @@ -27682,7 +27682,7 @@ The \verb|$msgdbPrims| variable is set to: ((null xp) (setq xp '|system|) (setq line (concat ")system " (substring line 1 (1- (|#| line))))) - (spadlet |$currentLine| line))) + (setq |$currentLine| line))) (|selectOption| xp (|commandsForUserLevel| |$systemCommands|) '|commandUserLevelError|))) diff --git a/books/bookvol9.pamphlet b/books/bookvol9.pamphlet index 768ca59..b7508a3 100644 --- a/books/bookvol9.pamphlet +++ b/books/bookvol9.pamphlet @@ -3420,7 +3420,7 @@ Equation(S: Type): public == private where ((atom x) (new2OldTran x)) ((and (listp x) (listp (car x)) (eq (caar x) '|is|) (= (length (car x)) 3)) (let ((a (second (car x))) (b (third (car x))) (y (cdr x))) - (new2OldDefForm `((spadlet ,a ,b) ,@y)))) + (new2OldDefForm `((setq ,a ,b) ,@y)))) ((cons (new2OldTran (car x)) (new2OldDefForm (cdr x)))))) \end{chunk} @@ -12657,7 +12657,7 @@ We set up the \begin{chunk}{defun addSuffix} (defun |addSuffix| (n u) (let (s) - (if (alpha-char-p (elt (spadlet s (stringimage u)) (maxindex s))) + (if (alpha-char-p (elt (setq s (stringimage u)) (maxindex s))) (intern (strconc s (stringimage n))) (internl (strconc s (stringimage '|;|) (stringimage n)))))) @@ -15471,7 +15471,7 @@ This orders Unions (defun postOp (x) (declare (special $boot)) (cond - ((eq x '|:=|) (if $boot 'spadlet 'let)) + ((eq x '|:=|) 'let) ((eq x '|:-|) 'letd) ((eq x '|Attribute|) 'attribute) (t x))) @@ -16966,7 +16966,7 @@ of the symbol being parsed. The original list read: \begin{chunk}{defun hackforis1} (defun hackforis1 (x) (if (and (member (kar x) '(in on)) (eqcar (second x) 'is)) - (cons (first x) (cons (cons 'spadlet (cdadr x)) (cddr x))) + (cons (first x) (cons (cons 'setq (cdadr x)) (cddr x))) x)) \end{chunk} diff --git a/changelog b/changelog index 280ea6a..bcb0c6a 100644 --- a/changelog +++ b/changelog @@ -1,3 +1,71 @@ +20150428 tpd src/axiom-website/patches.html 20150428.01.tpd.patch +20150428 tpd books/bookvol5 reduce the use of spadlet +20150428 tpd books/bookvol9 reduce the use of spadlet +20150428 tpd src/interp/br-con.lisp reduce the use of spadlet +20150428 tpd src/interp/buildom.lisp reduce the use of spadlet +20150428 tpd src/interp/c-doc.lisp reduce the use of spadlet +20150428 tpd src/interp/c-util.lisp reduce the use of spadlet +20150428 tpd src/interp/category.lisp reduce the use of spadlet +20150428 tpd src/interp/cattable.lisp reduce the use of spadlet +20150428 tpd src/interp/clam.lisp reduce the use of spadlet +20150428 tpd src/interp/clammed.lisp reduce the use of spadlet +20150428 tpd src/interp/compress.lisp reduce the use of spadlet +20150428 tpd src/interp/format.lisp reduce the use of spadlet +20150428 tpd src/interp/fortcall.lisp reduce the use of spadlet +20150428 tpd src/interp/functor.lisp reduce the use of spadlet +20150428 tpd src/interp/g-boot.lisp reduce the use of spadlet +20150428 tpd src/interp/g-cndata.lisp reduce the use of spadlet +20150428 tpd src/interp/g-timer.lisp reduce the use of spadlet +20150428 tpd src/interp/g-util.lisp reduce the use of spadlet +20150428 tpd src/interp/hashcode.lisp reduce the use of spadlet +20150428 tpd src/interp/i-analy.lisp reduce the use of spadlet +20150428 tpd src/interp/i-code.lisp reduce the use of spadlet +20150428 tpd src/interp/i-coerce.lisp reduce the use of spadlet +20150428 tpd src/interp/i-coerfn.lisp reduce the use of spadlet +20150428 tpd src/interp/i-eval.lisp reduce the use of spadlet +20150428 tpd src/interp/i-funsel.lisp reduce the use of spadlet +20150428 tpd src/interp/i-map.lisp reduce the use of spadlet +20150428 tpd src/interp/i-output.lisp reduce the use of spadlet +20150428 tpd src/interp/i-resolv.lisp reduce the use of spadlet +20150428 tpd src/interp/i-spec1.lisp reduce the use of spadlet +20150428 tpd src/interp/i-spec2.lisp reduce the use of spadlet +20150428 tpd src/interp/i-util.lisp reduce the use of spadlet +20150428 tpd src/interp/info.lisp reduce the use of spadlet +20150428 tpd src/interp/interop.lisp reduce the use of spadlet +20150428 tpd src/interp/iterator.lisp reduce the use of spadlet +20150428 tpd src/interp/lisplib.lisp reduce the use of spadlet +20150428 tpd src/interp/match.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-c02.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-c05.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-c06.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-d01.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-d02.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-d03.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-e01.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-e02.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-e04.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-f01.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-f02.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-f07.lisp reduce the use of spadlet +20150428 tpd src/interp/nag-s.lisp reduce the use of spadlet +20150428 tpd src/interp/newfort.lisp reduce the use of spadlet +20150428 tpd src/interp/nocompil.lisp reduce the use of spadlet +20150428 tpd src/interp/nruncomp.lisp reduce the use of spadlet +20150428 tpd src/interp/nrunfast.lisp reduce the use of spadlet +20150428 tpd src/interp/nrungo.lisp reduce the use of spadlet +20150428 tpd src/interp/nrunopt.lisp reduce the use of spadlet +20150428 tpd src/interp/parsing.lisp reduce the use of spadlet +20150428 tpd src/interp/profile.lisp reduce the use of spadlet +20150428 tpd src/interp/record.lisp reduce the use of spadlet +20150428 tpd src/interp/rulesets.lisp reduce the use of spadlet +20150428 tpd src/interp/server.lisp reduce the use of spadlet +20150428 tpd src/interp/simpbool.lisp reduce the use of spadlet +20150428 tpd src/interp/slam.lisp reduce the use of spadlet +20150428 tpd src/interp/template.lisp reduce the use of spadlet +20150428 tpd src/interp/termrw.lisp reduce the use of spadlet +20150428 tpd src/interp/topics.lisp reduce the use of spadlet +20150428 tpd src/interp/util.lisp reduce the use of spadlet +20150428 tpd src/interp/vmlisp.lisp reduce the use of spadlet 20150427 tpd src/axiom-website/patches.html 20150427.01.tpd.patch 20150427 tpd src/interp/br-con.lisp shrink vmlisp.lisp 20150427 tpd src/interp/c-doc.lisp shrink vmlisp.lisp diff --git a/patch b/patch index 85dd2fd..21dc0fe 100644 --- a/patch +++ b/patch @@ -1,3 +1,3 @@ -src/interp/vmlisp.lisp remove/distribute functions +src/interp/vmlisp.lisp reduce the use of spadlet -More functions are removed or distributed to other files. +Lisp knows about setq and optimizations. diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html index 0de393a..984ffdd 100644 --- a/src/axiom-website/patches.html +++ b/src/axiom-website/patches.html @@ -5040,6 +5040,8 @@ books/bookvol5 move/collect/reorder algebra support code
books/bookvol5 move/collect/reorder algebra support code
20150427.01.tpd.patch src/interp/vmlisp.lisp shrink vmlisp.lisp
+20150428.01.tpd.patch +src/interp/vmlisp.lisp reduce the use of spadlet
diff --git a/src/interp/br-con.lisp.pamphlet b/src/interp/br-con.lisp.pamphlet index b98321d..17b2a00 100644 --- a/src/interp/br-con.lisp.pamphlet +++ b/src/interp/br-con.lisp.pamphlet @@ -61,24 +61,24 @@ (declare (special |$conname|)) (RETURN (SEQ (PROGN - (SPADLET |count| 0) + (setq |count| 0) (DO ((G168430 (MAXINDEX |comments|)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G168430) NIL) (SEQ (EXIT (PROGN - (SPADLET |c| (ELT |comments| |i|)) + (setq |c| (ELT |comments| |i|)) (COND ((BOOT-EQUAL |c| (|char| '{)) - (SPADLET |count| (+ |count| 1))) + (setq |count| (+ |count| 1))) ((BOOT-EQUAL |c| (|char| '})) - (SPADLET |count| + (setq |count| (SPADDIFFERENCE |count| 1)) (COND ((MINUSP |count|) - (SPADLET |missingLeft| 'T))))))))) + (setq |missingLeft| 'T))))))))) (COND ((OR (MINUSP |count|) |missingLeft|) - (SPADLET |tail| + (setq |tail| (COND ((BOOT-EQUAL |kind| '|attribute|) (CONS |sop| @@ -125,24 +125,24 @@ (PROG (|instream| |fp| |line| |cname| |entry| |name| |abb| |args|) (RETURN (SEQ (PROGN - (SPADLET |instream| + (setq |instream| (MAKE-INSTREAM "libdb.text")) (DO () ((NULL (NULL (EOFP |instream|))) NIL) (SEQ (EXIT (PROGN - (SPADLET |fp| (FILE-POSITION |instream|)) - (SPADLET |line| (read-line |instream|)) - (SPADLET |cname| + (setq |fp| (FILE-POSITION |instream|)) + (setq |line| (read-line |instream|)) + (setq |cname| (INTERN (|dbName| |line|))) (COND - ((SPADLET |entry| + ((setq |entry| (|getCDTEntry| |cname| 'T)) (PROGN - (SPADLET |name| (CAR |entry|)) - (SPADLET |abb| (CADR |entry|)) + (setq |name| (CAR |entry|)) + (setq |abb| (CADR |entry|)) (RPLACD (CDR |entry|) (PUTALIST (CDDR |entry|) '|dbLineNumber| |fp|)) - (SPADLET |args| + (setq |args| (IFCDR (GETDATABASE |name| 'CONSTRUCTORFORM))) @@ -166,10 +166,10 @@ (PROG (|sname| |abb| |ucname| |pathname|) (RETURN (PROGN - (SPADLET |sname| (STRINGIMAGE |conname|)) - (SPADLET |abb| (|constructor?| |conname|)) - (SPADLET |ucname| (UPCASE (STRINGIMAGE |abb|))) - (SPADLET |pathname| + (setq |sname| (STRINGIMAGE |conname|)) + (setq |abb| (|constructor?| |conname|)) + (setq |ucname| (UPCASE (STRINGIMAGE |abb|))) + (setq |pathname| (STRCONC (|getEnv| "AXIOM") "/doc/hypertex/pages/" |ucname| ".ht")) @@ -198,35 +198,35 @@ (SEQ (COND ((EQL |n| 0) "") ('T - (SPADLET |instream| + (setq |instream| (MAKE-INSTREAM (STRCONC (|getEnv| "AXIOM") "/algebra/comdb.text"))) (FILE-POSITION |instream| |n|) - (SPADLET |line| (read-line |instream|)) - (SPADLET |k| (|dbTickIndex| |line| 1 1)) - (SPADLET |line| (SUBSTRING |line| (+ |k| 1) NIL)) + (setq |line| (read-line |instream|)) + (setq |k| (|dbTickIndex| |line| 1 1)) + (setq |line| (SUBSTRING |line| (+ |k| 1) NIL)) (DO () ((NULL (AND (NULL (EOFP |instream|)) - (SPADLET |x| (read-line |instream|)) - (SPADLET |k| (MAXINDEX |x|)) - (SPADLET |j| (|dbTickIndex| |x| 1 1)) + (setq |x| (read-line |instream|)) + (setq |k| (MAXINDEX |x|)) + (setq |j| (|dbTickIndex| |x| 1 1)) (> |k| |j|) (BOOT-EQUAL - (ELT |x| (SPADLET |j| (+ |j| 1))) + (ELT |x| (setq |j| (+ |j| 1))) (|char| '-)) (BOOT-EQUAL (ELT |x| - (SPADLET |j| (+ |j| 1))) + (setq |j| (+ |j| 1))) (|char| '-)))) NIL) - (SEQ (EXIT (SPADLET |xtralines| + (SEQ (EXIT (setq |xtralines| (CONS (SUBSTRING |x| (+ |j| 1) NIL) |xtralines|))))) (SHUT |instream|) (STRCONC |line| (PROG (G168531) - (SPADLET G168531 "") + (setq G168531 "") (RETURN (DO ((G168536 (NREVERSE |xtralines|) (CDR G168536)) @@ -279,11 +279,11 @@ (declare (special |$tick|)) (RETURN (SEQ (PROGN - (SPADLET |instream| + (setq |instream| (MAKE-INSTREAM "olibdb.text")) - (SPADLET |outstream| + (setq |outstream| (MAKE-OUTSTREAM "libdb.text")) - (SPADLET |comstream| + (setq |comstream| (MAKE-OUTSTREAM "comdb.text")) (PRINTEXP 0 |comstream|) (PRINTEXP |$tick| |comstream|) @@ -291,14 +291,14 @@ (TERPRI |comstream|) (DO () ((NULL (NULL (EOFP |instream|))) NIL) (SEQ (EXIT (PROGN - (SPADLET |line| (read-line |instream|)) - (SPADLET |outP| + (setq |line| (read-line |instream|)) + (setq |outP| (FILE-POSITION |outstream|)) - (SPADLET |comP| + (setq |comP| (FILE-POSITION |comstream|)) - (SPADLET |LETTMP#1| (|dbSplit| |line| 6 1)) - (SPADLET |prefix| (CAR |LETTMP#1|)) - (SPADLET |comments| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|dbSplit| |line| 6 1)) + (setq |prefix| (CAR |LETTMP#1|)) + (setq |comments| (CDR |LETTMP#1|)) (PRINTEXP |prefix| |outstream|) (PRINTEXP |$tick| |outstream|) (COND @@ -338,7 +338,7 @@ (defun |dbSplit| (|line| |n| |k|) (declare (special |$tick|)) (PROGN - (SPADLET |k| (|charPosition| |$tick| |line| (+ |k| 1))) + (setq |k| (|charPosition| |$tick| |line| (+ |k| 1))) (COND ((EQL |n| 1) (CONS (SUBSTRING |line| 0 |k|) @@ -360,12 +360,12 @@ (COND ((BOOT-EQUAL |line| "") NIL) ('T - (SPADLET |k| (|charPosition| (|char| '-) |line| (+ |n| 2))) + (setq |k| (|charPosition| (|char| '-) |line| (+ |n| 2))) (COND ((>= |k| (MAXINDEX |line|)) (CONS (SUBSTRING |line| |n| NIL) NIL)) ((NEQUAL (ELT |line| (+ |k| 1)) (|char| '-)) - (SPADLET |u| (|dbSpreadComments| |line| |k|)) + (setq |u| (|dbSpreadComments| |line| |k|)) (CONS (STRCONC (SUBSTRING |line| |n| (SPADDIFFERENCE |k| |n|)) (CAR |u|)) @@ -434,25 +434,25 @@ |$x| |$attribute?| |$tick|)) (RETURN (SEQ (PROGN - (SPADLET |$constructorName| NIL) - (SPADLET |$exposeFlag| 'T) - (SPADLET |$outStream| + (setq |$constructorName| NIL) + (setq |$exposeFlag| 'T) + (setq |$outStream| (MAKE-OUTSTREAM "temp.text")) - (SPADLET |$x| NIL) - (SPADLET |$attribute?| 'T) - (SPADLET |pathname| + (setq |$x| NIL) + (setq |$attribute?| 'T) + (setq |pathname| (STRCONC (|getEnv| "AXIOM") "/algebra/gloss.text")) - (SPADLET |instream| (MAKE-INSTREAM |pathname|)) - (SPADLET |keypath| "glosskey.text") + (setq |instream| (MAKE-INSTREAM |pathname|)) + (setq |keypath| "glosskey.text") (OBEY (STRCONC "rm -f " |keypath|)) - (SPADLET |outstream| (MAKE-OUTSTREAM |keypath|)) - (SPADLET |htpath| "gloss.ht") + (setq |outstream| (MAKE-OUTSTREAM |keypath|)) + (setq |htpath| "gloss.ht") (OBEY (STRCONC "rm -f " |htpath|)) - (SPADLET |htstream| (MAKE-OUTSTREAM |htpath|)) - (SPADLET |defpath| "glossdef.text") - (SPADLET |defstream| (MAKE-OUTSTREAM |defpath|)) - (SPADLET |pairs| (|getGlossLines| |instream|)) + (setq |htstream| (MAKE-OUTSTREAM |htpath|)) + (setq |defpath| "glossdef.text") + (setq |defstream| (MAKE-OUTSTREAM |defpath|)) + (setq |pairs| (|getGlossLines| |instream|)) (PRINTEXP "\\begin{page}{GlossaryPage}{G l o s s a r y}\\beginscroll\\beginmenu" |htstream|) @@ -461,17 +461,17 @@ (PROGN (SETQ G168626 (CAR G168653)) NIL) (PROGN (PROGN - (SPADLET |name| (CAR G168626)) - (SPADLET |line| (CDR G168626)) + (setq |name| (CAR G168626)) + (setq |line| (CDR G168626)) G168626) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |outP| + (setq |outP| (FILE-POSITION |outstream|)) - (SPADLET |defP| + (setq |defP| (FILE-POSITION |defstream|)) - (SPADLET |lines| + (setq |lines| (|spreadGlossText| (|transformAndRecheckComments| |name| (CONS |line| NIL)))) @@ -501,7 +501,7 @@ (TERPRI |defstream|))))) (PRINTEXP (PROG (G168673) - (SPADLET G168673 "") + (setq G168673 "") (RETURN (DO ((G168678 |lines| @@ -586,22 +586,22 @@ (declare (special |$charBlank| |$tick|)) (RETURN (SEQ (PROGN - (SPADLET |keys| NIL) - (SPADLET |text| NIL) - (SPADLET |lastLineHadTick| NIL) + (setq |keys| NIL) + (setq |text| NIL) + (setq |lastLineHadTick| NIL) (DO () ((NULL (NULL (EOFP |instream|))) NIL) (SEQ (EXIT (PROGN - (SPADLET |line| (read-line |instream|)) + (setq |line| (read-line |instream|)) (COND ((EQL (|#| |line|) 0) '|skip|) ('T - (SPADLET |n| + (setq |n| (|charPosition| |$tick| |line| 0)) - (SPADLET |last| (IFCAR |text|)) + (setq |last| (IFCAR |text|)) (COND ((> |n| (MAXINDEX |line|)) - (SPADLET |fill| + (setq |fill| (COND ((EQL (|#| |last|) 0) (COND @@ -616,18 +616,18 @@ |$charBlank|)) |$charBlank|) ('T ""))) - (SPADLET |lastLineHadTick| NIL) - (SPADLET |text| + (setq |lastLineHadTick| NIL) + (setq |text| (CONS (STRCONC |last| |fill| |line|) (CDR |text|)))) - ('T (SPADLET |lastLineHadTick| 'T) - (SPADLET |keys| + ('T (setq |lastLineHadTick| 'T) + (setq |keys| (CONS (SUBSTRING |line| 0 |n|) |keys|)) - (SPADLET |text| + (setq |text| (CONS (SUBSTRING |line| (+ |n| 1) NIL) @@ -635,7 +635,7 @@ (ASSOCRIGHT (|listSort| #'GLESSEQP (PROG (G168739) - (SPADLET G168739 NIL) + (setq G168739 NIL) (RETURN (DO ((G168745 |keys| (CDR G168745)) (|key| NIL) @@ -680,7 +680,7 @@ (declare (special |$usersTb|)) (RETURN (SEQ (PROGN - (SPADLET |$usersTb| (MAKE-HASH-TABLE)) + (setq |$usersTb| (MAKE-HASH-TABLE)) (DO ((G168778 (|allConstructors|) (CDR G168778)) (|x| NIL)) ((OR (ATOM G168778) @@ -695,7 +695,7 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |name| + (setq |name| (|opOf| |conform|)) (COND ((NULL @@ -735,8 +735,8 @@ (PROG (|s| |catname| |catAncestor| |pakname| |acc|) (RETURN (SEQ (PROGN - (SPADLET |catname| - (INTERN (SUBSTRING (SPADLET |s| (PNAME |con|)) 0 + (setq |catname| + (INTERN (SUBSTRING (setq |s| (PNAME |con|)) 0 (MAXINDEX |s|)))) (DO ((G168831 (|childrenOf| (CONS |catname| NIL)) (CDR G168831)) @@ -745,22 +745,22 @@ (PROGN (SETQ G168820 (CAR G168831)) NIL) (PROGN (PROGN - (SPADLET |catAncestor| (CAR G168820)) + (setq |catAncestor| (CAR G168820)) G168820) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |pakname| + (setq |pakname| (INTERN (STRCONC (PNAME |catAncestor|) "&"))) (COND ((|getCDTEntry| |pakname| 'T) - (SPADLET |acc| (CONS |pakname| |acc|)))) - (SPADLET |acc| + (setq |acc| (CONS |pakname| |acc|)))) + (setq |acc| (|union| (PROG (G168842) - (SPADLET G168842 NIL) + (setq G168842 NIL) (RETURN (DO ((G168847 @@ -802,7 +802,7 @@ (defun |mkDependentsHashTable| () (declare (special |$depTb|)) (SEQ (PROGN - (SPADLET |$depTb| (MAKE-HASH-TABLE)) + (setq |$depTb| (MAKE-HASH-TABLE)) (DO ((G168867 (|allConstructors|) (CDR G168867)) (|nam| NIL)) ((OR (ATOM G168867) @@ -843,7 +843,7 @@ (RETURN (SEQ (IF (ATOM |x|) (EXIT NIL)) (IF (AND (CONSP |x|) (EQ (QCAR |x|) '|Join|) - (PROGN (SPADLET |r| (QCDR |x|)) 'T)) + (PROGN (setq |r| (QCDR |x|)) 'T)) (EXIT (|getArgumentConstructors,fn| |r|))) (IF (AND (CONSP |x|) (EQ (QCAR |x|) 'CATEGORY)) (EXIT NIL)) (IF (|constructor?| (CAR |x|)) @@ -855,7 +855,7 @@ (PROG () (RETURN (SEQ (PROG (G168900) - (SPADLET G168900 NIL) + (setq G168900 NIL) (RETURN (DO ((G168905 |u| (CDR G168905)) (|x| NIL)) ((OR (ATOM G168905) @@ -870,7 +870,7 @@ (PROG (|argtypes|) (RETURN (PROGN - (SPADLET |argtypes| + (setq |argtypes| (OR (IFCDR (IFCAR (|getConstructorModemap| |con|))) (RETURN NIL))) (|getArgumentConstructors,fn| |argtypes|))))) @@ -908,8 +908,8 @@ (RETURN (SEQ (IF (AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |args| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |args| (QCDR |x|)) 'T)) (EXIT (SEQ (IF (OR (BOOT-EQUAL |op| 'QUOTE) (BOOT-EQUAL |op| 'NRTEVAL)) @@ -919,7 +919,7 @@ (IF (BOOT-EQUAL |op| '|Record|) (EXIT (CONS '|Record| (PROG (G168939) - (SPADLET G168939 NIL) + (setq G168939 NIL) (RETURN (DO ((G168944 |args| @@ -948,21 +948,21 @@ (IF (AND (CONSP |args|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |args|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|:|) (PROGN - (SPADLET |x1| + (setq |x1| (QCDR |ISTMP#1|)) 'T))) (PROGN - (SPADLET |x2| (QCDR |args|)) + (setq |x2| (QCDR |args|)) 'T)) (EXIT (CONS '|Union| (PROG (G168954) - (SPADLET G168954 NIL) + (setq G168954 NIL) (RETURN (DO ((G168959 |args| @@ -989,7 +989,7 @@ (EXIT (CONS |op| (PROG (G168969) - (SPADLET G168969 NIL) + (setq G168969 NIL) (RETURN (DO ((G168974 |args| @@ -1010,7 +1010,7 @@ G168969)))))))))))) (EXIT (CONS |op| (PROG (G168984) - (SPADLET G168984 NIL) + (setq G168984 NIL) (RETURN (DO ((G168989 |args| @@ -1042,14 +1042,14 @@ (PROG (|conform| |infovec| |template| |ISTMP#1| |op| |u|) (RETURN (SEQ (PROGN - (SPADLET |conform| + (setq |conform| (GETDATABASE |conname| 'CONSTRUCTORFORM)) - (SPADLET |infovec| + (setq |infovec| (OR (|dbInfovec| |conname|) (RETURN NIL))) - (SPADLET |template| (ELT |infovec| 0)) - (SPADLET |u| + (setq |template| (ELT |infovec| 0)) + (setq |u| (PROG (G169018) - (SPADLET G169018 NIL) + (setq G169018 NIL) (RETURN (DO ((G169024 (MAXINDEX |template|)) (|i| 5 (+ |i| 1))) @@ -1057,11 +1057,11 @@ (SEQ (EXIT (COND ((AND (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (ELT |template| |i|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |op| + (setq |op| (QCAR |ISTMP#1|)) 'T))) (IDENTP |op|) @@ -1099,11 +1099,11 @@ (declare (special |$TriangleVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |acc| NIL) - (SPADLET |formals| + (setq |acc| NIL) + (setq |formals| (TAKE (|#| |formalParams|) |$TriangleVariableList|)) - (SPADLET |constructorForm| + (setq |constructorForm| (GETDATABASE |cname| 'CONSTRUCTORFORM)) (DO ((G169047 (|folks| |constructorCategory|) (CDR G169047)) @@ -1112,16 +1112,16 @@ (PROGN (SETQ |x| (CAR G169047)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| + (setq |x| (SUBLISLIS |formalParams| |formals| |x|)) - (SPADLET |x| + (setq |x| (SUBLISLIS (IFCDR |constructorForm|) |formalParams| |x|)) - (SPADLET |x| + (setq |x| (MSUBST '|Type| '|Object| |x|)) - (SPADLET |acc| + (setq |acc| (APPEND (|explodeIfs| |x|) |acc|)))))) (NREVERSE |acc|)))))) @@ -1142,7 +1142,7 @@ (SETQ |$parentsCache| (MAKE-HASHTABLE 'ID)))) (OR (HGET |$parentsCache| |con|) (PROGN - (SPADLET |parents| (|getParentsForDomain| |con|)) + (setq |parents| (|getParentsForDomain| |con|)) (HPUT |$parentsCache| |con| |parents|) |parents|)))))) @@ -1156,13 +1156,13 @@ (PROG (|op| |argl| |parents| |newArgl|) (RETURN (PROGN - (SPADLET |op| (CAR G169070)) - (SPADLET |argl| (CDR G169070)) - (SPADLET |parents| (|parentsOf| |op|)) + (setq |op| (CAR G169070)) + (setq |argl| (CDR G169070)) + (setq |parents| (|parentsOf| |op|)) (COND ((OR (NULL |argl|) (BOOT-EQUAL |argl| - (SPADLET |newArgl| + (setq |newArgl| (CDR (GETDATABASE |op| 'CONSTRUCTORFORM))))) |parents|) ('T (SUBLISLIS |argl| |newArgl| |parents|))))))) @@ -1182,7 +1182,7 @@ (declare (special |$TriangleVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |acc| NIL) + (setq |acc| NIL) (DO ((G169094 (|folks| (GETDATABASE |domname| 'CONSTRUCTORCATEGORY)) @@ -1192,7 +1192,7 @@ (PROGN (SETQ |x| (CAR G169094)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| + (setq |x| (COND ((BOOT-EQUAL (GETDATABASE |domname| @@ -1209,7 +1209,7 @@ (|getConstructorForm| |domname|)) |x|)))) - (SPADLET |acc| + (setq |acc| (APPEND (|explodeIfs| |x|) |acc|)))))) (NREVERSE |acc|)))))) @@ -1228,14 +1228,14 @@ (RETURN (SEQ (IF (AND (CONSP |a|) (EQ (QCAR |a|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |q| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |q| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |b| (QCAR |ISTMP#2|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (EXIT (|explodeIfs,fn| (MKPF (CONS |p| (CONS |q| NIL)) 'AND) |b| NIL))) @@ -1245,7 +1245,7 @@ (PROG () (RETURN (SEQ (APPEND (PROG (G169165) - (SPADLET G169165 NIL) + (setq G169165 NIL) (RETURN (DO ((G169170 |a| (CDR G169170)) (|y| NIL)) ((OR (ATOM G169170) @@ -1255,7 +1255,7 @@ (APPEND G169165 (|explodeIfs,gn| |p| |y|)))))))) (PROG (G169176) - (SPADLET G169176 NIL) + (setq G169176 NIL) (RETURN (DO ((G169181 |b| (CDR G169181)) (|y| NIL)) ((OR (ATOM G169181) @@ -1272,19 +1272,19 @@ (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |p| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |p| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |a| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |a| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |b| (QCAR |ISTMP#3|)) + (setq |b| (QCAR |ISTMP#3|)) 'T)))))))) (|explodeIfs,fn| |p| |a| |b|)) ('T (CONS (CONS |x| 'T) NIL)))))) @@ -1313,20 +1313,20 @@ ((ATOM |u|) NIL) ((OR (AND (CONSP |u|) (PROGN - (SPADLET |op| (QCAR |u|)) - (SPADLET |v| (QCDR |u|)) + (setq |op| (QCAR |u|)) + (setq |v| (QCDR |u|)) 'T) (member |op| '(|Join| PROGN))) (AND (CONSP |u|) (EQ (QCAR |u|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) - (SPADLET |v| (QCDR |ISTMP#1|)) + (setq |a| (QCAR |ISTMP#1|)) + (setq |v| (QCDR |ISTMP#1|)) 'T))))) (PROG (G169264) - (SPADLET G169264 NIL) + (setq G169264 NIL) (RETURN (DO ((G169269 |v| (CDR G169269)) (|x| NIL)) ((OR (ATOM G169269) @@ -1338,30 +1338,30 @@ ((AND (CONSP |u|) (EQ (QCAR |u|) 'TYPE)) NIL) ((AND (CONSP |u|) (EQ (QCAR |u|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |a| (QCAR |ISTMP#1|)) 'T)))) (COND ((AND (CONSP |a|) (|constructor?| (|opOf| |a|))) (|folks| |a|)) ('T NIL))) ((AND (CONSP |u|) (EQ (QCAR |u|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |p| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |p| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |q| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |q| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |r| (QCAR |ISTMP#3|)) + (setq |r| (QCAR |ISTMP#3|)) 'T)))))))) - (SPADLET |q1| (|folks| |q|)) (SPADLET |r1| (|folks| |r|)) + (setq |q1| (|folks| |q|)) (setq |r1| (|folks| |r|)) (COND ((OR |q1| |r1|) (CONS (CONS 'IF @@ -1384,15 +1384,15 @@ (RETURN (COND ((BOOT-EQUAL '|category| - (GETDATABASE (SPADLET |conname| (|opOf| |conform|)) + (GETDATABASE (setq |conname| (|opOf| |conform|)) 'CONSTRUCTORKIND)) - (SPADLET |cats| (|catsOf| |conform| |domform|)) - (SPADLET |op| (CAR |conform|)) - (SPADLET |argl| (CDR |conform|)) + (setq |cats| (|catsOf| |conform| |domform|)) + (setq |op| (CAR |conform|)) + (setq |argl| (CDR |conform|)) (COND ((OR (NULL |argl|) (BOOT-EQUAL |argl| - (SPADLET |newArgl| + (setq |newArgl| (CDR (GETDATABASE |op| 'CONSTRUCTORFORM))))) |cats|) ('T (SUBLISLIS |argl| |newArgl| |cats|)))) @@ -1406,7 +1406,7 @@ (PROG () (RETURN (SEQ (PROG (G169312) - (SPADLET G169312 NIL) + (setq G169312 NIL) (RETURN (DO ((G169318 (|descendantsOf| |conform| NIL) (CDR G169318)) @@ -1428,8 +1428,8 @@ (PROG (|argl| |u|) (RETURN (COND - ((NULL (SPADLET |argl| (CDR |form|))) (|assoc| |form| |alist|)) - ((SPADLET |u| (|assocCar| (|opOf| |form|) |alist|)) + ((NULL (setq |argl| (CDR |form|))) (|assoc| |form| |alist|)) + ((setq |u| (|assocCar| (|opOf| |form|) |alist|)) (AND (|childArgCheck| |argl| (CDR (CAR |u|))) |u|)) ('T NIL))))) @@ -1439,7 +1439,7 @@ (PROG () (RETURN (SEQ (PROG (G169334) - (SPADLET G169334 NIL) + (setq G169334 NIL) (RETURN (DO ((G169341 NIL G169334) (G169342 |al| (CDR G169342)) (|pair| NIL)) @@ -1461,7 +1461,7 @@ (PROG () (RETURN (SEQ (PROG (G169355) - (SPADLET G169355 'T) + (setq G169355 'T) (RETURN (DO ((G169363 NIL (NULL G169355)) (G169364 |argl| (CDR G169364)) (|x| NIL) @@ -1514,12 +1514,12 @@ (RETURN (SEQ (COND ((BOOT-EQUAL '|category| - (GETDATABASE (SPADLET |conname| (|opOf| |conform|)) + (GETDATABASE (setq |conname| (|opOf| |conform|)) 'CONSTRUCTORKIND)) - (SPADLET |alist| (GETDATABASE |conname| 'ANCESTORS)) - (SPADLET |argl| (OR (IFCDR |domform|) (IFCDR |conform|))) + (setq |alist| (GETDATABASE |conname| 'ANCESTORS)) + (setq |argl| (OR (IFCDR |domform|) (IFCDR |conform|))) (PROG (G169400) - (SPADLET G169400 NIL) + (setq G169400 NIL) (RETURN (DO ((G169411 |alist| (CDR G169411)) (G169380 NIL)) @@ -1529,20 +1529,20 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G169380)) - (SPADLET |b| (CDR G169380)) + (setq |a| (CAR G169380)) + (setq |b| (CDR G169380)) G169380) NIL)) (NREVERSE0 G169400)) (SEQ (EXIT (COND ((PROGN - (SPADLET |left| + (setq |left| (|sublisFormal| |argl| |a|)) - (SPADLET |right| + (setq |right| (|sublisFormal| |argl| |b|)) (COND (|domform| - (SPADLET |right| + (setq |right| (|simpHasPred| |right|)))) (COND ((NULL |right|) NIL) @@ -1550,13 +1550,13 @@ (SETQ G169400 (CONS (PROGN - (SPADLET |left| + (setq |left| (|sublisFormal| |argl| |a|)) - (SPADLET |right| + (setq |right| (|sublisFormal| |argl| |b|)) (COND (|domform| - (SPADLET |right| + (setq |right| (|simpHasPred| |right|)))) (COND ((NULL |right|) NIL) @@ -1578,10 +1578,10 @@ (DECLARE (SPECIAL |$done| |$if|)) (RETURN (SEQ (PROGN - (SPADLET |$done| (MAKE-HASHTABLE 'UEQUAL)) - (SPADLET |$if| (MAKE-HASHTABLE 'ID)) + (setq |$done| (MAKE-HASHTABLE 'UEQUAL)) + (setq |$if| (MAKE-HASHTABLE 'ID)) (|ancestorsRecur| |conform| |domform| 'T 'T) - (SPADLET |acc| NIL) + (setq |acc| NIL) (DO ((G169437 (|listSort| #'GLESSEQP (HKEYS |$if|)) (CDR G169437)) @@ -1597,7 +1597,7 @@ (SETQ |pair| (CAR G169446)) NIL)) NIL) - (SEQ (EXIT (SPADLET |acc| + (SEQ (EXIT (setq |acc| (CONS |pair| |acc|)))))))) (NREVERSE |acc|)))))) @@ -1628,18 +1628,18 @@ (declare (special |$done| |$lisplibParents|)) (RETURN (SEQ (PROGN - (SPADLET |op| (|opOf| |conform|)) + (setq |op| (|opOf| |conform|)) (COND ((BOOT-EQUAL |pred| (HGET |$done| |conform|)) NIL) ('T - (SPADLET |parents| + (setq |parents| (COND ((AND |firstTime?| (OR |$insideCategoryIfTrue| |$insideFunctorIfTrue|)) |$lisplibParents|) ('T (|parentsOf| |op|)))) - (SPADLET |originalConform| + (setq |originalConform| (COND ((AND |firstTime?| (OR |$insideCategoryIfTrue| @@ -1648,7 +1648,7 @@ ('T (|getConstructorForm| |op|)))) (COND ((NEQUAL |conform| |originalConform|) - (SPADLET |parents| + (setq |parents| (SUBLISLIS (IFCDR |conform|) (IFCDR |originalConform|) |parents|)))) @@ -1658,21 +1658,21 @@ (PROGN (SETQ G169467 (CAR G169480)) NIL) (PROGN (PROGN - (SPADLET |newform| (CAR G169467)) - (SPADLET |p| (CDR G169467)) + (setq |newform| (CAR G169467)) + (setq |p| (CDR G169467)) G169467) NIL)) NIL) (SEQ (EXIT (PROGN (COND ((AND |domform| (CDR |domform|)) - (SPADLET |newdomform| + (setq |newdomform| (SUBLISLIS (CDR |domform|) (CDR |conform|) |newform|)) - (SPADLET |p| + (setq |p| (SUBLISLIS (CDR |domform|) (CDR |conform|) |p|)))) - (SPADLET |newPred| + (setq |newPred| (|quickAnd| |pred| |p|)) (|ancestorsAdd| (|simpHasPred| |newPred|) @@ -1695,10 +1695,10 @@ (RETURN (COND ((NULL |pred|) NIL) - ('T (SPADLET |op| (OR (IFCAR |form|) |form|)) - (SPADLET |alist| (HGET |$if| |op|)) + ('T (setq |op| (OR (IFCAR |form|) |form|)) + (setq |alist| (HGET |$if| |op|)) (COND - ((SPADLET |existingNode| (|assoc| |form| |alist|)) + ((setq |existingNode| (|assoc| |form| |alist|)) (RPLACD |existingNode| (|quickOr| (CDR |existingNode|) |pred|))) ('T (HPUT |$if| |op| (CONS (CONS |form| |pred|) |alist|))))))))) @@ -1720,11 +1720,11 @@ (declare (special |$hasArgList| *hascategory-hash*)) (RETURN (SEQ (PROGN - (SPADLET |$hasArgList| (IFCAR |options|)) - (SPADLET |conname| (|opOf| |conform|)) - (SPADLET |u| + (setq |$hasArgList| (IFCAR |options|)) + (setq |conname| (|opOf| |conform|)) + (setq |u| (PROG (G169512) - (SPADLET G169512 NIL) + (setq G169512 NIL) (RETURN (DO ((G169518 (HKEYS *HASCATEGORY-HASH*) (CDR G169518)) @@ -1737,18 +1737,18 @@ (SEQ (EXIT (COND ((AND (CONSP |key|) (PROGN - (SPADLET |anc| + (setq |anc| (QCAR |key|)) 'T) (EQUAL (QCDR |key|) |conname|)) (SETQ G169512 (CONS |key| G169512)))))))))) - (SPADLET |s| + (setq |s| (|listSort| #'GLESSEQP (COPY |u|))) - (SPADLET |s| + (setq |s| (PROG (G169528) - (SPADLET G169528 NIL) + (setq G169528 NIL) (RETURN (DO ((G169533 |s| (CDR G169533)) (|pair| NIL)) @@ -1785,9 +1785,9 @@ (declare (special |$hasArgList|)) (RETURN (SEQ (PROGN - (SPADLET |$hasArgList| (IFCAR |options|)) - (SPADLET |conname| (|opOf| |conform|)) - (SPADLET |alist| NIL) + (setq |$hasArgList| (IFCAR |options|)) + (setq |conname| (|opOf| |conform|)) + (setq |alist| NIL) (DO ((G169566 (|allConstructors|) (CDR G169566)) (|key| NIL)) ((OR (ATOM G169566) @@ -1806,20 +1806,20 @@ ((BOOT-EQUAL |conname| (CAAR |item|)) (PROGN - (SPADLET |op| + (setq |op| (CAAR |item|)) - (SPADLET |args| + (setq |args| (CDAR |item|)) - (SPADLET |pred| + (setq |pred| (CDR |item|)) - (SPADLET |newItem| + (setq |newItem| (COND (|args| (CONS (CONS |args| |pred|) (LASSOC |key| |alist|))) ('T |pred|))) - (SPADLET |alist| + (setq |alist| (|insertShortAlist| |key| |newItem| |alist|))))))))))) (|transKCatAlist| |conform| |domname| @@ -1876,8 +1876,8 @@ |subargs| |hpred| |npred| |acc| |leftForm|) (RETURN (SEQ (COND - (|domname| (SPADLET |domargs| (CDR |domname|)) - (SPADLET |acc| NIL) + (|domname| (setq |domargs| (CDR |domname|)) + (setq |acc| NIL) (COND ((CDR |conform|) (DO ((G169634 |s| (CDR G169634)) (|pair| NIL)) @@ -1885,7 +1885,7 @@ (PROGN (SETQ |pair| (CAR G169634)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |leftForm| + (setq |leftForm| (|getConstructorForm| (CAR |pair|))) (DO ((G169646 (CDR |pair|) @@ -1897,15 +1897,15 @@ NIL) (PROGN (PROGN - (SPADLET |args| (CAR |ap|)) - (SPADLET |pred| (CDR |ap|)) + (setq |args| (CAR |ap|)) + (setq |pred| (CDR |ap|)) |ap|) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |match?| + (setq |match?| (COND ((BOOT-EQUAL |domargs| |args|) @@ -1918,10 +1918,10 @@ (COND ((NULL |match?|) '|skip|) ('T - (SPADLET |npred| + (setq |npred| (|sublisFormal| (KDR |leftForm|) |pred|)) - (SPADLET |acc| + (setq |acc| (CONS (CONS |leftForm| |npred|) |acc|)))))))))))) @@ -1932,7 +1932,7 @@ (PROGN (SETQ |pair| (CAR G169659)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |leftForm| + (setq |leftForm| (OR (|getConstructorForm| (CAR |pair|)) @@ -1942,10 +1942,10 @@ (|sublisFormal| (KDR |leftForm|) (CDR |pair|))))))) |s|))) - ('T (SPADLET |acc| NIL) + ('T (setq |acc| NIL) (COND ((KDR |conform|) - (SPADLET |farglist| + (setq |farglist| (TAKE (|#| (CDR |conform|)) |$FormalMapVariableList|)) (DO ((G169677 |s| (CDR G169677)) (|pair| NIL)) @@ -1953,7 +1953,7 @@ (PROGN (SETQ |pair| (CAR G169677)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |leftForm| + (setq |leftForm| (|getConstructorForm| (CAR |pair|))) (DO ((G169691 (CDR |pair|) @@ -1965,30 +1965,30 @@ NIL) (PROGN (PROGN - (SPADLET |args| (CAR |ap|)) - (SPADLET |pred| (CDR |ap|)) + (setq |args| (CAR |ap|)) + (setq |pred| (CDR |ap|)) |ap|) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |hasArgsForm?| + (setq |hasArgsForm?| (NEQUAL |args| |farglist|)) - (SPADLET |npred| + (setq |npred| (|sublisFormal| (KDR |leftForm|) |pred|)) (COND (|hasArgsForm?| - (SPADLET |subargs| + (setq |subargs| (|sublisFormal| (KDR |leftForm|) |args|)) - (SPADLET |hpred| + (setq |hpred| (CONS '|hasArgs| |subargs|)) - (SPADLET |npred| + (setq |npred| (|quickAnd| |hpred| |npred|)))) - (SPADLET |acc| + (setq |acc| (CONS (CONS |leftForm| |npred|) |acc|)))))))))) @@ -1999,7 +1999,7 @@ (PROGN (SETQ |pair| (CAR G169704)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |leftForm| + (setq |leftForm| (|getConstructorForm| (CAR |pair|))) (RPLACA |pair| |leftForm|) @@ -2043,18 +2043,18 @@ (PROG (|.| |acc| |y| |r| |nd| |j|) (declare (special |$formals|)) (RETURN - (SEQ (IF (AND (CONSP |x|) (PROGN (SPADLET |.| (QCDR |x|)) 'T)) - (EXIT (SEQ (SPADLET |acc| NIL) (SPADLET |y| |x|) + (SEQ (IF (AND (CONSP |x|) (PROGN (setq |.| (QCDR |x|)) 'T)) + (EXIT (SEQ (setq |acc| NIL) (setq |y| |x|) (DO () ((NULL (NULL (ATOM |y|))) NIL) - (SEQ (SPADLET |acc| + (SEQ (setq |acc| (CONS (|sublisFormal,sublisFormal1| |args| (QCAR |y|) |n|) |acc|)) - (EXIT (SPADLET |y| (QCDR |y|))))) - (SPADLET |r| (NREVERSE |acc|)) + (EXIT (setq |y| (QCDR |y|))))) + (setq |r| (NREVERSE |acc|)) (IF |y| - (SEQ (SPADLET |nd| (LASTNODE |r|)) + (SEQ (setq |nd| (LASTNODE |r|)) (EXIT (RPLACD |nd| (|sublisFormal,sublisFormal1| @@ -2062,9 +2062,9 @@ NIL) (EXIT |r|)))) (IF (IDENTP |x|) - (EXIT (SEQ (IF (SPADLET |j| + (EXIT (SEQ (IF (setq |j| (PROG (G169749) - (SPADLET G169749 NIL) + (setq G169749 NIL) (RETURN (DO ((G169757 NIL G169749) @@ -2096,7 +2096,7 @@ (DECLARE (SPECIAL |$formals|)) (RETURN (PROGN - (SPADLET |$formals| + (setq |$formals| (OR (IFCAR |options|) |$FormalMapVariableList|)) (COND ((NULL |args|) |exp|) @@ -2116,7 +2116,7 @@ (defun |buildDefaultPackageNamesHT| () (declare (special |$defaultPackageNamesHT|)) (SEQ (PROGN - (SPADLET |$defaultPackageNamesHT| (MAKE-HASH-TABLE)) + (setq |$defaultPackageNamesHT| (MAKE-HASH-TABLE)) (DO ((G169791 (|allConstructors|) (CDR G169791)) (|nam| NIL)) ((OR (ATOM G169791) @@ -2129,7 +2129,7 @@ ;$defaultPackageNamesHT := buildDefaultPackageNamesHT() -(SPADLET |$defaultPackageNamesHT| (|buildDefaultPackageNamesHT|)) +(setq |$defaultPackageNamesHT| (|buildDefaultPackageNamesHT|)) ;--======================================================================= ;-- Code for Private Libdbs @@ -2137,7 +2137,7 @@ ;$returnNowhereFromGoGet := false -(SPADLET |$returnNowhereFromGoGet| NIL) +(setq |$returnNowhereFromGoGet| NIL) ;showSummary dom == ; showPredicates dom @@ -2210,36 +2210,36 @@ (SEQ (PROGN (|sayBrightly| "-------------Operation summary-----------------") - (SPADLET |missingOnlyFlag| (KAR |options|)) - (SPADLET |domainForm| (|devaluate| |dom|)) - (SPADLET |nam| (CAR |domainForm|)) - (SPADLET |$domainArgs| (CDR |domainForm|)) - (SPADLET |$predicateList| (GETDATABASE |nam| 'PREDICATES)) - (SPADLET |predVector| (ELT |dom| 3)) - (SPADLET |u| (|getDomainOpTable| |dom| 'T)) + (setq |missingOnlyFlag| (KAR |options|)) + (setq |domainForm| (|devaluate| |dom|)) + (setq |nam| (CAR |domainForm|)) + (setq |$domainArgs| (CDR |domainForm|)) + (setq |$predicateList| (GETDATABASE |nam| 'PREDICATES)) + (setq |predVector| (ELT |dom| 3)) + (setq |u| (|getDomainOpTable| |dom| 'T)) (DO ((G169844 |u| (CDR G169844)) (|x| NIL)) ((OR (ATOM G169844) (PROGN (SETQ |x| (CAR G169844)) NIL) (PROGN - (PROGN (SPADLET |key| (CDDR |x|)) |x|) + (PROGN (setq |key| (CDDR |x|)) |x|) NIL)) NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |key| |domainForm|) - (SPADLET |domexports| + (setq |domexports| (CONS |x| |domexports|))) ((integerp |key|) - (SPADLET |unexports| + (setq |unexports| (CONS |x| |unexports|))) ((|isDefaultPackageForm?| |key|) - (SPADLET |defexports| + (setq |defexports| (CONS |x| |defexports|))) ((BOOT-EQUAL |key| '|nowhere|) - (SPADLET |nowheres| (CONS |x| |nowheres|))) + (setq |nowheres| (CONS |x| |nowheres|))) ((BOOT-EQUAL |key| '|constant|) - (SPADLET |constants| + (setq |constants| (CONS |x| |constants|))) - ('T (SPADLET |others| (CONS |x| |others|))))))) + ('T (setq |others| (CONS |x| |others|))))))) (|sayBrightly| (COND (|nowheres| @@ -2255,14 +2255,14 @@ (COND (|missingOnlyFlag| '|done|) ('T - (SPADLET |u| + (setq |u| (APPEND |domexports| (APPEND |constants| (SORTBY 'CDDR |others|)))) (DO () ((NULL |u|) NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| (CAR |u|)) - (SPADLET |key| (CDDR |LETTMP#1|)) + (setq |LETTMP#1| (CAR |u|)) + (setq |key| (CDDR |LETTMP#1|)) (|sayBrightly| (COND ((BOOT-EQUAL |key| '|constant|) @@ -2277,20 +2277,20 @@ (|bright| (|form2String| |key|)) (CONS ":" NIL)))))) - (SPADLET |u| + (setq |u| (|showDomainsOp1| |u| |key|)))))) - (SPADLET |u| (SORTBY 'CDDR |defexports|)) + (setq |u| (SORTBY 'CDDR |defexports|)) (DO () ((NULL |u|) NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| (CAR |u|)) - (SPADLET |key| (CDDR |LETTMP#1|)) - (SPADLET |defop| + (setq |LETTMP#1| (CAR |u|)) + (setq |key| (CDDR |LETTMP#1|)) + (setq |defop| (INTERN (SUBSTRING - (SPADLET |s| + (setq |s| (PNAME (CAR |key|))) 0 (MAXINDEX |s|)))) - (SPADLET |domainForm| + (setq |domainForm| (CONS |defop| (CDDR |key|))) (|sayBrightly| (CONS @@ -2299,17 +2299,17 @@ (|bright| (|form2String| |domainForm|)) (CONS ":" NIL)))) - (SPADLET |u| + (setq |u| (|showDomainsOp1| |u| |key|)))))) - (SPADLET |u| (SORTBY 'CDDR |unexports|)) + (setq |u| (SORTBY 'CDDR |unexports|)) (DO () ((NULL |u|) NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| (CAR |u|)) - (SPADLET |key| (CDDR |LETTMP#1|)) + (setq |LETTMP#1| (CAR |u|)) + (setq |key| (CDDR |LETTMP#1|)) (|sayBrightly| (CONS "Not exported: " NIL)) - (SPADLET |u| + (setq |u| (|showDomainsOp1| |u| |key|))))))))))))) ;--======================================================================= @@ -2336,11 +2336,11 @@ (DECLARE (SPECIAL |$predicateList|)) (RETURN (SEQ (PROGN - (SPADLET |ops| (KAR |option|)) - (SPADLET |alist| NIL) - (SPADLET |domainForm| (|devaluate| D)) - (SPADLET |nam| (CAR |domainForm|)) - (SPADLET |$predicateList| (GETDATABASE |nam| 'PREDICATES)) + (setq |ops| (KAR |option|)) + (setq |alist| NIL) + (setq |domainForm| (|devaluate| D)) + (setq |nam| (CAR |domainForm|)) + (setq |$predicateList| (GETDATABASE |nam| 'PREDICATES)) (DO ((G169940 (|getDomainSigs1| D |ops|) (CDR G169940)) (|opSig| NIL)) @@ -2348,18 +2348,18 @@ (PROGN (SETQ |opSig| (CAR G169940)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR |opSig|)) - (SPADLET |sig| (CADR |opSig|)) + (setq |op| (CAR |opSig|)) + (setq |sig| (CADR |opSig|)) |opSig|) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |u| (|from?| D |op| |sig|)) + (setq |u| (|from?| D |op| |sig|)) (COND - ((SPADLET |x| (|assoc| |u| |alist|)) + ((setq |x| (|assoc| |u| |alist|)) (RPLACD |x| (CONS |opSig| (CDR |x|)))) ('T - (SPADLET |alist| + (setq |alist| (CONS (CONS |u| (CONS |opSig| NIL)) |alist|)))))))) @@ -2368,8 +2368,8 @@ (PROGN (SETQ G169929 (CAR G169956)) NIL) (PROGN (PROGN - (SPADLET |conform| (CAR G169929)) - (SPADLET |l| (CDR G169929)) + (setq |conform| (CAR G169929)) + (setq |l| (CDR G169929)) G169929) NIL)) NIL) @@ -2386,8 +2386,8 @@ NIL) (PROGN (PROGN - (SPADLET |op| (CAR G169924)) - (SPADLET |sig| + (setq |op| (CAR G169924)) + (setq |sig| (CADR G169924)) G169924) NIL)) @@ -2411,9 +2411,9 @@ (DECLARE (SPECIAL |$predicateList|)) (RETURN (PROGN - (SPADLET |domname| (ELT D 0)) - (SPADLET |conname| (CAR |domname|)) - (SPADLET |$predicateList| (GETDATABASE |conname| 'PREDICATES)) + (setq |domname| (ELT D 0)) + (setq |conname| (CAR |domname|)) + (setq |$predicateList| (GETDATABASE |conname| 'PREDICATES)) (REMDUP (|listSort| #'GLESSEQP (ASSOCLEFT (|getDomainOpTable| D NIL)))))))) @@ -2429,9 +2429,9 @@ (DECLARE (SPECIAL |$predicateList|)) (RETURN (PROGN - (SPADLET |domname| (ELT D 0)) - (SPADLET |conname| (CAR |domname|)) - (SPADLET |$predicateList| (GETDATABASE |conname| 'PREDICATES)) + (setq |domname| (ELT D 0)) + (setq |conname| (CAR |domname|)) + (setq |$predicateList| (GETDATABASE |conname| 'PREDICATES)) (|getDomainSigs1| D (CAR |option|)))))) ;getDomainSigs1(D,ops) == listSort(function GLESSEQP,u) where @@ -2442,7 +2442,7 @@ (RETURN (SEQ (|listSort| #'GLESSEQP (PROG (G170019) - (SPADLET G170019 NIL) + (setq G170019 NIL) (RETURN (DO ((G170025 (|getDomainOpTable| D NIL) (CDR G170025)) @@ -2469,13 +2469,13 @@ (DECLARE (SPECIAL |$predicateList|)) (RETURN (SEQ (PROGN - (SPADLET |domname| (ELT D 0)) - (SPADLET |conname| (CAR |domname|)) - (SPADLET |$predicateList| + (setq |domname| (ELT D 0)) + (setq |conname| (CAR |domname|)) + (setq |$predicateList| (GETDATABASE |conname| 'PREDICATES)) - (SPADLET |ops| (KAR |option|)) + (setq |ops| (KAR |option|)) (PROG (G170045) - (SPADLET G170045 NIL) + (setq G170045 NIL) (RETURN (DO ((G170051 (|getDomainSigs1| D |ops|) (CDR G170051)) @@ -2484,8 +2484,8 @@ (PROGN (SETQ G170035 (CAR G170051)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G170035)) - (SPADLET |sig| (CADR G170035)) + (setq |op| (CAR G170035)) + (setq |sig| (CADR G170035)) G170035) NIL)) (NREVERSE0 G170045)) @@ -2516,13 +2516,13 @@ (PROG (|u| |cats|) (RETURN (SEQ (PROGN - (SPADLET |u| (|getDomainExtensionsOfDomain| |domain|)) - (SPADLET |cats| (|getCategoriesOfDomain| |domain|)) + (setq |u| (|getDomainExtensionsOfDomain| |domain|)) + (setq |cats| (|getCategoriesOfDomain| |domain|)) (DO ((G170078 |u| (CDR G170078)) (|x| NIL)) ((OR (ATOM G170078) (PROGN (SETQ |x| (CAR G170078)) NIL)) NIL) - (SEQ (EXIT (SPADLET |cats| + (SEQ (EXIT (setq |cats| (|union| |cats| (|getCategoriesOfDomain| (EVAL |x|))))))) @@ -2540,14 +2540,14 @@ (PROG (|u| |acc| |d|) (RETURN (SEQ (PROGN - (SPADLET |acc| NIL) - (SPADLET |d| |domain|) + (setq |acc| NIL) + (setq |d| |domain|) (DO () - ((NULL (SPADLET |u| (|devaluateSlotDomain| 5 |d|))) + ((NULL (setq |u| (|devaluateSlotDomain| 5 |d|))) NIL) (SEQ (EXIT (PROGN - (SPADLET |acc| (CONS |u| |acc|)) - (SPADLET |d| (EVAL |u|)))))) + (setq |acc| (CONS |u| |acc|)) + (setq |d| (EVAL |u|)))))) |acc|))))) ;devaluateSlotDomain(u,dollar) == @@ -2563,28 +2563,28 @@ (RETURN (SEQ (COND ((BOOT-EQUAL |u| '$) (|devaluate| |dollar|)) - ((AND (integerp |u|) (VECP (SPADLET |y| (ELT |dollar| |u|)))) + ((AND (integerp |u|) (VECP (setq |y| (ELT |dollar| |u|)))) (|devaluate| |y|)) ((AND (CONSP |u|) (EQ (QCAR |u|) 'NRTEVAL) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |y| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |y| (QCAR |ISTMP#1|)) 'T)))) (MKQ (|eval| |y|))) ((AND (CONSP |u|) (EQ (QCAR |u|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |y| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |y| (QCAR |ISTMP#1|)) 'T)))) |u|) ((AND (CONSP |u|) (PROGN - (SPADLET |op| (QCAR |u|)) - (SPADLET |argl| (QCDR |u|)) + (setq |op| (QCAR |u|)) + (setq |argl| (QCDR |u|)) 'T)) (CONS |op| (PROG (G170124) - (SPADLET G170124 NIL) + (setq G170124 NIL) (RETURN (DO ((G170129 |argl| (CDR G170129)) (|x| NIL)) @@ -2614,10 +2614,10 @@ (PROG (|predkeyVec| |catforms| |x| |ISTMP#1|) (RETURN (SEQ (PROGN - (SPADLET |predkeyVec| (ELT (ELT |domain| 4) 0)) - (SPADLET |catforms| (CADR (ELT |domain| 4))) + (setq |predkeyVec| (ELT (ELT |domain| 4) 0)) + (setq |catforms| (CADR (ELT |domain| 4))) (PROG (G170158) - (SPADLET G170158 NIL) + (setq G170158 NIL) (RETURN (DO ((G170164 (MAXINDEX |predkeyVec|)) (|i| 0 (QSADD1 |i|))) @@ -2626,8 +2626,8 @@ ((AND (ELT |predkeyVec| |i|) (NULL (PROGN - (SPADLET |ISTMP#1| - (SPADLET |x| + (setq |ISTMP#1| + (setq |x| (ELT |catforms| |i|))) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) @@ -2656,11 +2656,11 @@ (PROG (|catList|) (RETURN (SEQ (PROGN - (SPADLET |catList| + (setq |catList| (OR (KAR |options|) (|getExtensionsOfDomain| D))) (OR (|getDocDomainForOpSig| |op| |sig| (|devaluate| D) D) (PROG (G170178) - (SPADLET G170178 NIL) + (setq G170178 NIL) (RETURN (DO ((G170184 NIL G170178) (G170185 |catList| (CDR G170185)) @@ -2682,13 +2682,13 @@ (defun |getDocDomainForOpSig| (|op| |sig| |dollar| D) (PROG (|u| |s| |d| |doc|) (RETURN - (SEQ (AND (SPADLET |u| + (SEQ (AND (setq |u| (LASSOC |op| (GETDATABASE (CAR |dollar|) 'DOCUMENTATION))) - (SPADLET |doc| + (setq |doc| (PROG (G170202) - (SPADLET G170202 NIL) + (setq G170202 NIL) (RETURN (DO ((G170210 NIL G170202) (G170211 |u| (CDR G170211)) @@ -2700,8 +2700,8 @@ NIL) (PROGN (PROGN - (SPADLET |s| (CAR G170198)) - (SPADLET |d| (CDR G170198)) + (setq |s| (CAR G170198)) + (setq |d| (CDR G170198)) G170198) NIL)) G170202) @@ -2730,15 +2730,15 @@ (DO () ((NULL (AND |u| (PROGN - (SPADLET |ISTMP#1| (CAR |u|)) + (setq |ISTMP#1| (CAR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |op| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |op| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |sig| + (setq |sig| (QCAR |ISTMP#2|)) 'T) (EQUAL (QCDR |ISTMP#2|) |key|))))))) @@ -2747,7 +2747,7 @@ (|sayBrightly| (CONS " " (|formatOpSignature| |op| |sig|))) - (SPADLET |u| (CDR |u|)))))) + (setq |u| (CDR |u|)))))) |u|))))) ;getDomainRefName(dom,nam) == @@ -2764,7 +2764,7 @@ (SEQ (COND ((CONSP |nam|) (PROG (G170266) - (SPADLET G170266 NIL) + (setq G170266 NIL) (RETURN (DO ((G170271 |nam| (CDR G170271)) (|x| NIL)) ((OR (ATOM G170271) @@ -2775,7 +2775,7 @@ (|getDomainRefName| |dom| |x|) G170266)))))))) ((NULL (integerp |nam|)) |nam|) - ('T (SPADLET |slot| (ELT |dom| |nam|)) + ('T (setq |slot| (ELT |dom| |nam|)) (COND ((VECP |slot|) (ELT |slot| 0)) ((AND (CONSP |slot|) (EQ (QCAR |slot|) 'SETELT)) @@ -2792,19 +2792,19 @@ (PROG (|form| |ISTMP#1| |u| |ISTMP#2| |d|) (RETURN (PROGN - (SPADLET |form| (CADDDR G170299)) + (setq |form| (CADDDR G170299)) (COND ((AND (CONSP |form|) (EQ (QCAR |form|) '|evalSlotDomain|) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |u| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |u| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |d| (QCAR |ISTMP#2|)) + (setq |d| (QCAR |ISTMP#2|)) 'T)))))) (|devaluateSlotDomain| |u| |d|)) ((VECP |form|) (|systemError|)) @@ -2827,9 +2827,9 @@ (SEQ (PROGN (|sayBrightly| "--------------------Predicate summary-------------------") - (SPADLET |conname| (CAR (ELT |dom| 0))) - (SPADLET |predvector| (ELT |dom| 3)) - (SPADLET |predicateList| + (setq |conname| (CAR (ELT |dom| 0))) + (setq |predvector| (ELT |dom| 3)) + (setq |predicateList| (GETDATABASE |conname| 'PREDICATES)) (DO ((|i| 1 (QSADD1 |i|)) (G170330 |predicateList| (CDR G170330)) @@ -2838,7 +2838,7 @@ (PROGN (SETQ |p| (CAR G170330)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |prefix| + (setq |prefix| (COND ((|testBitVector| |predvector| |i|) @@ -2865,22 +2865,22 @@ (SEQ (PROGN (|sayBrightly| "--------------------Attribute summary-------------------") - (SPADLET |conname| (CAR (ELT |dom| 0))) - (SPADLET |abb| (|getConstructorAbbreviation| |conname|)) - (SPADLET |predvector| (ELT |dom| 3)) + (setq |conname| (CAR (ELT |dom| 0))) + (setq |abb| (|getConstructorAbbreviation| |conname|)) + (setq |predvector| (ELT |dom| 3)) (DO ((G170356 (ELT |dom| 2) (CDR G170356)) (G170345 NIL)) ((OR (ATOM G170356) (PROGN (SETQ G170345 (CAR G170356)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR G170345)) - (SPADLET |p| (CDR G170345)) + (setq |a| (CAR G170345)) + (setq |p| (CDR G170345)) G170345) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |prefix| + (setq |prefix| (COND ((|testBitVector| |predvector| |p|) @@ -2906,42 +2906,42 @@ |numOfArgs| |whereNumber| |signumList| |index| |namePart|) (RETURN (SEQ (PROGN - (SPADLET |numvec| (CDDR (ELT |dom| 4))) + (setq |numvec| (CDDR (ELT |dom| 4))) (DO ((G170416 (MAXINDEX |dom|)) (|i| 6 (+ |i| 1))) ((> |i| G170416) NIL) (SEQ (EXIT (COND ((PROGN - (SPADLET |ISTMP#1| - (SPADLET |slot| + (setq |ISTMP#1| + (setq |slot| (ELT |dom| |i|))) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|newGoGet|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |dol| + (setq |dol| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#3|)) - (SPADLET |op| + (setq |op| (QCDR |ISTMP#3|)) 'T))))))) (PROGN - (SPADLET |numOfArgs| + (setq |numOfArgs| (ELT |numvec| |index|)) - (SPADLET |whereNumber| + (setq |whereNumber| (ELT |numvec| - (SPADLET |index| + (setq |index| (+ |index| 1)))) - (SPADLET |signumList| + (setq |signumList| (PROG (G170424) - (SPADLET G170424 NIL) + (setq G170424 NIL) (RETURN (DO ((|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| @@ -2956,10 +2956,10 @@ (ELT |numvec| (+ |index| |i|))) G170424)))))))) - (SPADLET |index| + (setq |index| (+ (+ |index| |numOfArgs|) 1)) - (SPADLET |namePart| + (setq |namePart| (|concat| (|bright| '|from|) (|form2String| (|formatLazyDomainForm| |dom| @@ -2984,12 +2984,12 @@ ((VECP |x|) (|devaluate| |x|)) ((AND (CONSP |x|) (PROGN - (SPADLET |dollar| (QCAR |x|)) - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |dollar| (QCAR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |slotNumber| (QCAR |ISTMP#1|)) - (SPADLET |form| (QCDR |ISTMP#1|)) + (setq |slotNumber| (QCAR |ISTMP#1|)) + (setq |form| (QCDR |ISTMP#1|)) 'T)))) (|formatLazyDomainForm| |dom| |form|)) ('T (|systemError| NIL)))))) @@ -3010,14 +3010,14 @@ ((ATOM |x|) |x|) ((AND (CONSP |x|) (EQ (QCAR |x|) 'NRTEVAL) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |y| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |y| (QCAR |ISTMP#1|)) 'T)))) (COND ((ATOM |y|) (CONS |y| NIL)) ('T |y|))) ('T (CONS (CAR |x|) (PROG (G170482) - (SPADLET G170482 NIL) + (setq G170482 NIL) (RETURN (DO ((G170487 (CDR |x|) (CDR G170487)) (|y| NIL)) @@ -3052,7 +3052,7 @@ (PROG (|op| |items|) (RETURN (SEQ (PROG (G170511) - (SPADLET G170511 NIL) + (setq G170511 NIL) (RETURN (DO ((G170518 NIL G170511) (G170519 |opAlist| (CDR G170519)) @@ -3061,15 +3061,15 @@ (PROGN (SETQ G170503 (CAR G170519)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G170503)) - (SPADLET |items| (CDR G170503)) + (setq |op| (CAR G170503)) + (setq |items| (CDR G170503)) G170503) NIL)) G170511) (SEQ (EXIT (SETQ G170511 (OR G170511 (PROG (G170527) - (SPADLET G170527 NIL) + (setq G170527 NIL) (RETURN (DO ((G170533 NIL G170527) @@ -3143,20 +3143,20 @@ (declare (special |$groupChoice| |$exposedOnlyIfTrue|)) (RETURN (SEQ (PROGN - (SPADLET |which| (STRINGIMAGE |which|)) + (setq |which| (STRINGIMAGE |which|)) (COND ((member |key| '(|extended| |basic| |all|)) - (SPADLET |$groupChoice| |key|) - (SPADLET |key| + (setq |$groupChoice| |key|) + (setq |key| (OR (|htpProperty| |htPage| '|key|) '|names|)))) - (SPADLET |opAlist| + (setq |opAlist| (COND ((BOOT-EQUAL |which| "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))) (COND ((BOOT-EQUAL |key| '|generalise|) - (SPADLET |arg| (STRINGIMAGE (CAAR |opAlist|))) + (setq |arg| (STRINGIMAGE (CAAR |opAlist|))) (COND ((BOOT-EQUAL |which| "attribute") (|aPage| |arg|)) @@ -3164,7 +3164,7 @@ ((BOOT-EQUAL |key| '|allDomains|) (|dbShowOpAllDomains| |htPage| |opAlist| |which|)) ((BOOT-EQUAL |key| '|filter|) - (SPADLET |filter| + (setq |filter| (OR (IFCAR |options|) (|pmTransFilter| (|dbGetInputString| |htPage|)))) @@ -3172,9 +3172,9 @@ ((AND (CONSP |filter|) (EQ (QCAR |filter|) '|error|)) (|bcErrorPage| |filter|)) ('T - (SPADLET |opAlist| + (setq |opAlist| (PROG (G170560) - (SPADLET G170560 NIL) + (setq G170560 NIL) (RETURN (DO ((G170566 |opAlist| (CDR G170566)) @@ -3195,7 +3195,7 @@ ((NULL |opAlist|) (|emptySearchPage| |which| |filter|)) ('T - (SPADLET |htPage| + (setq |htPage| (|htInitPageNoScroll| (|htCopyProplist| |htPage|))) (COND @@ -3216,11 +3216,11 @@ ('T (|htpSetProperty| |htPage| '|key| |key|) (COND ((member |key| '(|exposureOn| |exposureOff|)) - (SPADLET |$exposedOnlyIfTrue| + (setq |$exposedOnlyIfTrue| (COND ((BOOT-EQUAL |key| '|exposureOn|) 'T) ('T NIL))) - (SPADLET |key| + (setq |key| (|htpProperty| |htPage| '|exclusion|)))) (|dbShowOp1| |htPage| |opAlist| |which| |key|)))))))) @@ -3246,10 +3246,10 @@ ('T (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| "operation" 'T NIL) - (SPADLET |bitNumber| (HGET |$topicHash| |$groupChoice|)) - (SPADLET |res| + (setq |bitNumber| (HGET |$topicHash| |$groupChoice|)) + (setq |res| (PROG (G170603) - (SPADLET G170603 NIL) + (setq G170603 NIL) (RETURN (DO ((G170610 |opAlist| (CDR G170610)) (G170588 NIL)) @@ -3259,8 +3259,8 @@ NIL) (PROGN (PROGN - (SPADLET |op| (CAR G170588)) - (SPADLET |items| + (setq |op| (CAR G170588)) + (setq |items| (CDR G170588)) G170588) NIL)) @@ -3271,7 +3271,7 @@ |items|) ('T (PROG (G170622) - (SPADLET G170622 NIL) + (setq G170622 NIL) (RETURN (DO ((G170628 |items| @@ -3290,7 +3290,7 @@ (COND ((AND (integerp - (SPADLET + (setq |code| (|myLastAtom| |x|))) @@ -3309,7 +3309,7 @@ |items|) ('T (PROG (G170639) - (SPADLET G170639 + (setq G170639 NIL) (RETURN (DO @@ -3332,7 +3332,7 @@ (COND ((AND (integerp - (SPADLET + (setq |code| (|myLastAtom| |x|))) @@ -3426,19 +3426,19 @@ |$opDescriptionThreshold| |$OpViewTable|)) (RETURN (SEQ (PROGN - (SPADLET |$which| |which|) + (setq |$which| |which|) (COND ((INTEGERP |key|) - (SPADLET |opAlist| + (setq |opAlist| (|dbSelectData| |htPage| |opAlist| |key|)))) (COND ((AND (INTEGERP |key|) (CONSP |opAlist|) (EQ (QCDR |opAlist|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |opAlist|)) + (setq |ISTMP#1| (QCAR |opAlist|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |con| (QCAR |ISTMP#1|)) + (setq |con| (QCAR |ISTMP#1|)) 'T))) (|htpProperty| |htPage| '|isFile|) (|constructor?| |con|)) @@ -3446,7 +3446,7 @@ ('T (COND ((INTEGERP |key|) - (SPADLET |htPage| + (setq |htPage| (|htInitPageNoScroll| (|htCopyProplist| |htPage|))) (COND @@ -3467,9 +3467,9 @@ (COND ((AND |$exposedOnlyIfTrue| (NULL (|dbFromConstructor?| |htPage|))) - (SPADLET |opAlist| + (setq |opAlist| (PROG (G170705) - (SPADLET G170705 NIL) + (setq G170705 NIL) (RETURN (DO ((G170715 |opAlist| (CDR G170715)) @@ -3481,9 +3481,9 @@ NIL) (PROGN (PROGN - (SPADLET |op| + (setq |op| (CAR G170669)) - (SPADLET |items| + (setq |items| (CDR G170669)) G170669) NIL)) @@ -3491,7 +3491,7 @@ (SEQ (EXIT (COND ((PROGN - (SPADLET |acc| NIL) + (setq |acc| NIL) (DO ((G170726 |items| (CDR G170726)) @@ -3506,7 +3506,7 @@ (EXIT (COND ((ELT |x| 3) - (SPADLET |acc| + (setq |acc| (CONS |x| |acc|))))))) (COND ((NULL |acc|) NIL) @@ -3516,7 +3516,7 @@ (SETQ G170705 (CONS (PROGN - (SPADLET |acc| NIL) + (setq |acc| NIL) (DO ((G170736 |items| (CDR G170736)) @@ -3531,7 +3531,7 @@ (EXIT (COND ((ELT |x| 3) - (SPADLET |acc| + (setq |acc| (CONS |x| |acc|))))))) (COND ((NULL |acc|) NIL) @@ -3539,10 +3539,10 @@ (CONS |op| (NREVERSE |acc|))))) G170705)))))))))))) - (SPADLET |$conformsAreDomains| + (setq |$conformsAreDomains| (|htpProperty| |htPage| '|domname|)) - (SPADLET |opCount| (|opAlistCount| |opAlist| |which|)) - (SPADLET |branch| + (setq |opCount| (|opAlistCount| |opAlist| |which|)) + (setq |branch| (COND ((INTEGERP |key|) (COND @@ -3556,16 +3556,16 @@ '|documentation|) ('T '|names|))) ('T |key|))) - (SPADLET |LETTMP#1| (LASSOC |branch| |$OpViewTable|)) - (SPADLET |what| (CAR |LETTMP#1|)) - (SPADLET |whats| (CADR |LETTMP#1|)) - (SPADLET |fn| (CADDR |LETTMP#1|)) - (SPADLET |data| + (setq |LETTMP#1| (LASSOC |branch| |$OpViewTable|)) + (setq |what| (CAR |LETTMP#1|)) + (setq |whats| (CADR |LETTMP#1|)) + (setq |fn| (CADDR |LETTMP#1|)) + (setq |data| (|dbGatherData| |htPage| |opAlist| |which| |branch|)) - (SPADLET |dataCount| + (setq |dataCount| (PROG (G170742) - (SPADLET G170742 0) + (setq G170742 0) (RETURN (DO ((G170748 |data| (CDR G170748)) (|x| NIL)) @@ -3585,10 +3585,10 @@ ('T 'T)) (SETQ G170742 (+ G170742 1)))))))))) - (SPADLET |namedPart| + (setq |namedPart| (COND ((NULL (CDR |opAlist|)) - (SPADLET |ops| + (setq |ops| (|escapeSpecialChars| (STRINGIMAGE (CAAR |opAlist|)))) (CONS " {\\em " @@ -3598,12 +3598,12 @@ (COND ((AND (BOOT-EQUAL |what| "Condition") (NULL (KAR (KAR |data|)))) - (SPADLET |dataCount| (SPADDIFFERENCE |dataCount| 1)))) - (SPADLET |exposurePart| + (setq |dataCount| (SPADDIFFERENCE |dataCount| 1)))) + (setq |exposurePart| (COND (|$exposedOnlyIfTrue| '(" Exposed ")) ('T NIL))) - (SPADLET |firstPart| + (setq |firstPart| (COND ((EQL |opCount| 0) (CONS "No " @@ -3628,7 +3628,7 @@ (|capitalize| |which|)) |namedPart|))))))) ('T - (SPADLET |prefix| + (setq |prefix| (|pluralSay| |dataCount| |what| |whats|)) (APPEND |prefix| @@ -3639,7 +3639,7 @@ (|pluralize| (|capitalize| |which|)) |namedPart|)))))))) - (SPADLET |page| + (setq |page| (|htInitPageNoScroll| (|htCopyProplist| |htPage|))) (|htAddHeading| @@ -3649,7 +3649,7 @@ (|htpSetProperty| |page| '|data| |data|) (|htpSetProperty| |page| '|branch| |branch|) (COND - ((SPADLET |u| + ((setq |u| (|htpProperty| |page| '|specialMessage|)) (APPLY (CAR |u|) (CDR |u|)))) (|htSayStandard| "\\beginscroll ") @@ -3669,7 +3669,7 @@ (declare (special |$exposedOnlyIfTrue|)) (RETURN (SEQ (PROG (G170801) - (SPADLET G170801 0) + (setq G170801 0) (RETURN (DO ((G170807 |opAlist| (CDR G170807)) (G170793 NIL)) @@ -3677,8 +3677,8 @@ (PROGN (SETQ G170793 (CAR G170807)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G170793)) - (SPADLET |items| (CDR G170793)) + (setq |op| (CAR G170793)) + (setq |items| (CDR G170793)) G170793) NIL)) G170801) @@ -3692,7 +3692,7 @@ (|#| |items|)) ('T (PROG (G170814) - (SPADLET G170814 0) + (setq G170814 0) (RETURN (DO ((G170820 |items| @@ -3709,7 +3709,7 @@ (COND ((OR (NULL - (SPADLET |p| + (setq |p| (CDDR |w|))) (ELT |p| 1)) (SETQ G170814 @@ -3729,7 +3729,7 @@ (PROG (|suffix|) (RETURN (PROGN - (SPADLET |suffix| + (setq |suffix| (COND ((BOOT-EQUAL |branch| '|parameters|) " viewed with parameters") @@ -3778,18 +3778,18 @@ (SEQ (COND ((NULL |htPage|) "") ('T - (SPADLET |$pn| + (setq |$pn| (CONS (ELT |htPage| 0) (CONS "}{" NIL))) (COND - ((SPADLET |updomain| + ((setq |updomain| (|htpProperty| |htPage| '|updomain|)) - (SPADLET |dnForm| + (setq |dnForm| (|dbExtractUnderlyingDomain| |updomain|)) - (SPADLET |dnString| (|form2StringList| |dnForm|)) - (SPADLET |dnFence| (|form2Fence| |dnForm|)) - (SPADLET |upFence| (|form2Fence| |updomain|)) - (SPADLET |upOp| (PNAME (|opOf| |updomain|))) + (setq |dnString| (|form2StringList| |dnForm|)) + (setq |dnFence| (|form2Fence| |dnForm|)) + (setq |upFence| (|form2Fence| |updomain|)) + (setq |upOp| (PNAME (|opOf| |updomain|))) (CONS " {\\em from} " (APPEND (|dbConformGen| |dnForm|) (CONS " {\\em under} \\ops{" @@ -3799,11 +3799,11 @@ (APPEND |upFence| (CONS "}" NIL))))))))) ('T - (SPADLET |domname| + (setq |domname| (|htpProperty| |htPage| '|domname|)) - (SPADLET |numberOfUnderlyingDomains| + (setq |numberOfUnderlyingDomains| (|#| (PROG (G170850) - (SPADLET G170850 NIL) + (setq G170850 NIL) (RETURN (DO ((G170856 @@ -3892,22 +3892,22 @@ (declare (special |$lowerCaseConTb|)) (RETURN (SEQ (PROGN - (SPADLET |exception| + (setq |exception| (OR |exception| "%%%nothing%%%")) - (SPADLET |op1| (CAR |form|)) - (SPADLET |args| (CDR |form|)) - (SPADLET |op| + (setq |op1| (CAR |form|)) + (setq |args| (CDR |form|)) + (setq |op| (OR (IFCAR (HGET |$lowerCaseConTb| |op1|)) |op1|)) (COND ((NULL |args|) (APPLY |opFn| (CONS |op| NIL))) ('T - (SPADLET special + (setq special (member |op| '(|Union| |Record| |Mapping|))) - (SPADLET |cosig| + (setq |cosig| (COND (special (PROG (G170930) - (SPADLET G170930 NIL) + (setq G170930 NIL) (RETURN (DO ((G170935 |args| (CDR G170935)) @@ -3922,15 +3922,15 @@ (SETQ G170930 (CONS 'T G170930)))))))) ('T (CDR (GETDATABASE |op| 'COSIG))))) - (SPADLET |atypes| + (setq |atypes| (COND (special |cosig|) ('T (CDR (CDAR (GETDATABASE |op| 'CONSTRUCTORMODEMAP)))))) - (SPADLET |sargl| + (setq |sargl| (PROG (G170961) - (SPADLET G170961 NIL) + (setq G170961 NIL) (RETURN (DO ((G170982 |args| (CDR G170982)) (|x| NIL) @@ -3955,18 +3955,18 @@ (SETQ G170961 (CONS (PROGN - (SPADLET |keyword| + (setq |keyword| (COND ((AND (CONSP |x|) (EQ (QCAR |x|) '|:|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |y| + (setq |y| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) @@ -3974,12 +3974,12 @@ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |t| + (setq |t| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |x| |t|) |y|) + (setq |x| |t|) |y|) ('T NIL))) - (SPADLET |res| + (setq |res| (COND ((BOOT-EQUAL |x| |exception|) @@ -3989,7 +3989,7 @@ ((STRINGP |x|) (CONS |x| NIL)) ('T - (SPADLET |u| + (setq |u| (APPLY |argFn| (CONS |x| NIL))) (OR @@ -3997,14 +3997,14 @@ (CONS |u| NIL)) |u|)))) ('T - (SPADLET |typ| + (setq |typ| (|sublisFormal| |args| |atype|)) (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) @@ -4012,12 +4012,12 @@ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |x| |a|))) + (setq |x| |a|))) (COND - ((SPADLET |u| + ((setq |u| (|mathform2HtString| (|algCoerceInteractive| |x| |typ| @@ -4038,7 +4038,7 @@ ((BOOT-EQUAL |op| '|Mapping|) (|dbMapping2StringList| |sargl|)) ('T - (SPADLET |head| + (setq |head| (COND (special (CONS |op| NIL)) ('T (APPLY |opFn| (CONS |form| NIL))))) @@ -4047,7 +4047,7 @@ (APPEND (CAR |sargl|) (APPEND (PROG (G170996) - (SPADLET G170996 NIL) + (setq G170996 NIL) (RETURN (DO ((G171001 @@ -4081,17 +4081,17 @@ (PROG (|target| |sl| |restPart| |sourcePart|) (RETURN (SEQ (PROGN - (SPADLET |target| (CAR G171038)) - (SPADLET |sl| (CDR G171038)) + (setq |target| (CAR G171038)) + (setq |sl| (CDR G171038)) (COND ((NULL |sl|) |target|) ('T - (SPADLET |restPart| + (setq |restPart| (COND ((NULL (CDR |sl|)) NIL) ('T (PROG (G171047) - (SPADLET G171047 NIL) + (setq G171047 NIL) (RETURN (DO ((G171052 (CDR |sl|) (CDR G171052)) @@ -4105,7 +4105,7 @@ (SETQ G171047 (APPEND G171047 (CONS '|,| |y|))))))))))) - (SPADLET |sourcePart| + (setq |sourcePart| (COND (|restPart| (CONS "(" @@ -4141,15 +4141,15 @@ (RETURN (SEQ (PROGN (COND - ((LISTP |form|) (SPADLET |op| (CAR |form|)) - (SPADLET |args| (CDR |form|)) |form|) - ('T (SPADLET |op| |form|) (SPADLET |args| NIL))) - (SPADLET |cosig| (CDR (GETDATABASE |op| 'COSIG))) - (SPADLET |atypes| + ((LISTP |form|) (setq |op| (CAR |form|)) + (setq |args| (CDR |form|)) |form|) + ('T (setq |op| |form|) (setq |args| NIL))) + (setq |cosig| (CDR (GETDATABASE |op| 'COSIG))) + (setq |atypes| (CDR (CDAR (GETDATABASE |op| 'CONSTRUCTORMODEMAP)))) - (SPADLET |argl| + (setq |argl| (PROG (G171092) - (SPADLET G171092 NIL) + (setq G171092 NIL) (RETURN (DO ((G171103 |args| (CDR G171103)) (|x| NIL) @@ -4175,15 +4175,15 @@ (COND (|pred| |x|) ('T - (SPADLET |typ| + (setq |typ| (|sublisFormal| |args| |atype|)) - (SPADLET |arg| + (setq |arg| (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) @@ -4191,12 +4191,12 @@ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#1|)) 'T)))) |a|) ('T |x|))) - (SPADLET |res| + (setq |res| (|mathform2HtString| (|algCoerceInteractive| |arg| |typ| @@ -4256,14 +4256,14 @@ (PROG (|opFunction| |originalOp| |op| |args|) (RETURN (PROGN - (SPADLET |opFunction| + (setq |opFunction| (COND (|opButton?| #'|dbConform|) ('T #'|conname2StringList|))) - (SPADLET |originalOp| (|opOf| |form|)) - (SPADLET |op| (|unAbbreviateIfNecessary| (|opOf| |form|))) - (SPADLET |args| (IFCDR |form|)) - (SPADLET |form| + (setq |originalOp| (|opOf| |form|)) + (setq |op| (|unAbbreviateIfNecessary| (|opOf| |form|))) + (setq |args| (IFCDR |form|)) + (setq |form| (COND ((BOOT-EQUAL |originalOp| |op|) |form|) ('T (CONS |op| |args|)))) @@ -4369,10 +4369,10 @@ ((BOOT-EQUAL |key| '|implementation|) (|dbGatherDataImplementation| |htPage| |opAlist|)) ('T - (SPADLET |dataFunction| + (setq |dataFunction| (LASSOC |key| (OR |$dbDataFunctionAlist| - (SPADLET |$dbDataFunctionAlist| + (setq |$dbDataFunctionAlist| (CONS (CONS '|signatures| #'|dbMakeSignature|) @@ -4394,15 +4394,15 @@ (COND ((AND |$exposedOnlyIfTrue| (NULL (|dbFromConstructor?| |htPage|))) - (SPADLET |opAlist| + (setq |opAlist| (COND ((BOOT-EQUAL |which| "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))))) - (SPADLET |acc| NIL) - (SPADLET |initialExposure| + (setq |acc| NIL) + (setq |initialExposure| (COND ((AND |htPage| (|htpProperty| |htPage| '|conform|) @@ -4416,44 +4416,44 @@ (PROGN (SETQ G171166 (CAR G171198)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G171166)) - (SPADLET |alist| (CDR G171166)) + (setq |op| (CAR G171166)) + (setq |alist| (CDR G171166)) G171166) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |exposureFlag| + (setq |exposureFlag| |initialExposure|) (DO () ((NULL |alist|) NIL) (SEQ (EXIT (PROGN - (SPADLET |item| + (setq |item| (CAR |alist|)) - (SPADLET |isExposed?| + (setq |isExposed?| (COND ((STRINGP |item|) (|dbExposed?| |item| (|char| '|o|))) ((NULL - (SPADLET |r| + (setq |r| (CDR (CDR |item|)))) 'T) ('T (ELT |r| 1)))) (COND (|isExposed?| (RETURN - (SPADLET |exposureFlag| + (setq |exposureFlag| 'T)))) - (SPADLET |alist| + (setq |alist| (CDR |alist|)))))) - (SPADLET |node| + (setq |node| (COND (|exposureFlag| |op|) ('T (CONS |op| (CONS NIL NIL))))) - (SPADLET |acc| (CONS |node| |acc|)))))) + (setq |acc| (CONS |node| |acc|)))))) (NREVERSE |acc|)) - ('T (SPADLET |data| NIL) + ('T (setq |data| NIL) (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| |which| (|member| |key| '(|origins| |documentation|)) NIL) @@ -4463,8 +4463,8 @@ (PROGN (SETQ G171179 (CAR G171226)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G171179)) - (SPADLET |alist| (CDR G171179)) + (setq |op| (CAR G171179)) + (setq |alist| (CDR G171179)) G171179) NIL)) NIL) @@ -4477,39 +4477,39 @@ NIL) (SEQ (EXIT (PROGN - (SPADLET |entry| + (setq |entry| (FUNCALL |dataFunction| |op| |item|)) - (SPADLET |exposeFlag| + (setq |exposeFlag| (COND ((NULL - (SPADLET |r| + (setq |r| (CDR (CDR |item|)))) 'T) ('T (ELT |r| 1)))) - (SPADLET |tail| + (setq |tail| (COND ((AND (CONSP |item|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |item|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'ASCONST)))) 'ASCONST) ('T NIL))) - (SPADLET |newEntry| + (setq |newEntry| (COND - ((SPADLET |u| + ((setq |u| (|assoc| |entry| |data|)) (RPLACA (CDR |u|) (OR (CADR |u|) |exposeFlag|)) |u|) ('T - (SPADLET |data| + (setq |data| (CONS - (SPADLET |y| + (setq |y| (CONS |entry| (CONS |exposeFlag| |tail|))) @@ -4518,11 +4518,11 @@ (COND ((|member| |key| '(|origins| |conditions|)) - (SPADLET |r| + (setq |r| (CDDR |newEntry|)) (COND ((ATOM |r|) - (SPADLET |r| NIL))) + (setq |r| NIL))) (RPLACD (CDR |newEntry|) (|insert| (CONS @@ -4542,15 +4542,15 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |tail| (CDDR |entry|)) - (SPADLET |tail| + (setq |tail| (CDDR |entry|)) + (setq |tail| (COND ((ATOM |tail|) |tail|) ('T (|listSort| #'LEXLESSEQP |tail|)))) (RPLACD (CDR |entry|) |tail|))))))) - (SPADLET |data| + (setq |data| (|listSort| #'LEXLESSEQP |data|)) |data|)))))))) @@ -4596,24 +4596,24 @@ (defun |dbGatherDataImplementation,fn| (|l|) (PROG (|key| |entries| |alist|) (RETURN - (SEQ (SPADLET |alist| NIL) + (SEQ (setq |alist| NIL) (DO ((G171311 |l| (CDR G171311)) (|u| NIL)) ((OR (ATOM G171311) (PROGN (SETQ |u| (CAR G171311)) NIL)) NIL) (SEQ (EXIT (DO () ((NULL |u|) NIL) - (SEQ (SPADLET |key| (CDDAR |u|)) - (SPADLET |entries| + (SEQ (setq |key| (CDDAR |u|)) + (setq |entries| (CONS (CONS (CAR |u|) (CONS 'T NIL)) (PROG (G171327) - (SPADLET G171327 NIL) + (setq G171327 NIL) (RETURN (DO () ((NULL (BOOT-EQUAL |key| (CDDAR - (SPADLET |u| + (setq |u| (CDR |u|))))) (NREVERSE0 G171327)) (SEQ @@ -4624,7 +4624,7 @@ (CONS (CAR |u|) (CONS 'T NIL))) G171327))))))))) - (EXIT (SPADLET |alist| + (EXIT (setq |alist| (CONS (CONS |key| (CONS @@ -4641,15 +4641,15 @@ (DECLARE (SPECIAL |$predicateList| |$domainArgs|)) (RETURN (SEQ (PROGN - (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) - (SPADLET |domainForm| (|htpProperty| |htPage| '|domname|)) - (SPADLET |dom| (EVAL |domainForm|)) - (SPADLET |which| "operation") - (SPADLET |nam| (CAR |domainForm|)) - (SPADLET |$domainArgs| (CDR |domainForm|)) - (SPADLET |$predicateList| (GETDATABASE |nam| 'PREDICATES)) - (SPADLET |predVector| (ELT |dom| 3)) - (SPADLET |u| + (setq |conform| (|htpProperty| |htPage| '|conform|)) + (setq |domainForm| (|htpProperty| |htPage| '|domname|)) + (setq |dom| (EVAL |domainForm|)) + (setq |which| "operation") + (setq |nam| (CAR |domainForm|)) + (setq |$domainArgs| (CDR |domainForm|)) + (setq |$predicateList| (GETDATABASE |nam| 'PREDICATES)) + (setq |predVector| (ELT |dom| 3)) + (setq |u| (|getDomainOpTable| |dom| 'T (ASSOCLEFT |opAlist|))) (DO ((G171351 |u| (CDR G171351)) (|x| NIL) @@ -4657,25 +4657,25 @@ ((OR (ATOM G171351) (PROGN (SETQ |x| (CAR G171351)) NIL) (PROGN - (PROGN (SPADLET |key| (CDDR |x|)) |x|) + (PROGN (setq |key| (CDDR |x|)) |x|) NIL)) NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |key| |domainForm|) - (SPADLET |domexports| + (setq |domexports| (CONS |x| |domexports|))) ((INTEGERP |key|) - (SPADLET |unexports| + (setq |unexports| (CONS |x| |unexports|))) ((|isDefaultPackageForm?| |key|) - (SPADLET |defexports| + (setq |defexports| (CONS |x| |defexports|))) ((BOOT-EQUAL |key| '|nowhere|) - (SPADLET |nowheres| (CONS |x| |nowheres|))) + (setq |nowheres| (CONS |x| |nowheres|))) ((BOOT-EQUAL |key| '|constant|) - (SPADLET |constants| + (setq |constants| (CONS |x| |constants|))) - ('T (SPADLET |others| (CONS |x| |others|))))))) + ('T (setq |others| (CONS |x| |others|))))))) (|dbGatherDataImplementation,fn| (CONS |nowheres| (CONS |constants| @@ -4706,8 +4706,8 @@ (PROG (|branch| |data| |LETTMP#1| |newkey| |binkey| |innerData|) (RETURN (PROGN - (SPADLET |branch| (|htpProperty| |htPage| '|branch|)) - (SPADLET |data| (|htpProperty| |htPage| '|data|)) + (setq |branch| (|htpProperty| |htPage| '|branch|)) + (setq |data| (|htpProperty| |htPage| '|data|)) (COND ((member |branch| '(|signatures| |parameters|)) (|dbReduceOpAlist| |opAlist| (ELT |data| |key|) |branch|)) @@ -4715,10 +4715,10 @@ (COND ((> 8192 |key|) (|dbReduceOpAlist| |opAlist| (ELT |data| |key|) |branch|)) - ('T (SPADLET |LETTMP#1| (DIVIDE |key| 8192)) - (SPADLET |newkey| (CAR |LETTMP#1|)) - (SPADLET |binkey| (CADR |LETTMP#1|)) - (SPADLET |innerData| + ('T (setq |LETTMP#1| (DIVIDE |key| 8192)) + (setq |newkey| (CAR |LETTMP#1|)) + (setq |binkey| (CADR |LETTMP#1|)) + (setq |innerData| (CDDR (ELT |data| (SPADDIFFERENCE |newkey| 1)))) (|dbReduceOpAlist| |opAlist| (ELT |innerData| |binkey|) '|signatures|)))) @@ -4764,9 +4764,9 @@ |acc|) (RETURN (SEQ (PROGN - (SPADLET |ops| + (setq |ops| (PROG (G171426) - (SPADLET G171426 NIL) + (setq G171426 NIL) (RETURN (DO ((G171431 |datalist| (CDR G171431)) (|x| NIL)) @@ -4777,24 +4777,24 @@ (NREVERSE0 G171426)) (SEQ (EXIT (SETQ G171426 (CONS (CAAR |x|) G171426)))))))) - (SPADLET |acc| NIL) + (setq |acc| NIL) (DO ((G171450 |opAlist| (CDR G171450)) (G171417 NIL)) ((OR (ATOM G171450) (PROGN (SETQ G171417 (CAR G171450)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G171417)) - (SPADLET |alist| (CDR G171417)) + (setq |op| (CAR G171417)) + (setq |alist| (CDR G171417)) G171417) NIL)) NIL) (SEQ (EXIT (COND ((member |op| |ops|) (PROGN - (SPADLET |entryList| + (setq |entryList| (PROG (G171463) - (SPADLET G171463 NIL) + (setq G171463 NIL) (RETURN (DO ((G171470 |alist| @@ -4807,7 +4807,7 @@ NIL) (PROGN (PROGN - (SPADLET |sig| + (setq |sig| (CAR |entry|)) |entry|) NIL)) @@ -4816,7 +4816,7 @@ (EXIT (COND ((PROG (G171477) - (SPADLET G171477 + (setq G171477 NIL) (RETURN (DO @@ -4843,7 +4843,7 @@ (CONSP |x|) (PROGN - (SPADLET + (setq |ISTMP#1| (QCAR |x|)) @@ -4855,7 +4855,7 @@ |ISTMP#1|) |op|) (PROGN - (SPADLET + (setq |ISTMP#2| (QCDR |ISTMP#1|)) @@ -4876,7 +4876,7 @@ G171463)))))))))) (COND (|entryList| - (SPADLET |acc| + (setq |acc| (CONS (CONS |op| (NREVERSE |entryList|)) @@ -4892,7 +4892,7 @@ (RETURN (SEQ (CONS (CONS |op| (PROG (G171512) - (SPADLET G171512 NIL) + (setq G171512 NIL) (RETURN (DO ((G171518 (LASSOC |op| |opAlist|) (CDR G171518)) @@ -4920,7 +4920,7 @@ (PROG (|op| |alist| |items| |acc|) (RETURN (SEQ (PROGN - (SPADLET |acc| NIL) + (setq |acc| NIL) (SEQ (DO ((G171537 |opAlist| (CDR G171537)) (G171528 NIL)) ((OR (ATOM G171537) @@ -4929,15 +4929,15 @@ NIL) (PROGN (PROGN - (SPADLET |op| (CAR G171528)) - (SPADLET |alist| (CDR G171528)) + (setq |op| (CAR G171528)) + (setq |alist| (CDR G171528)) G171528) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |items| + ((setq |items| (PROG (G171549) - (SPADLET G171549 NIL) + (setq G171549 NIL) (RETURN (DO ((G171555 |alist| @@ -4959,7 +4959,7 @@ (SETQ G171549 (CONS |x| G171549)))))))))) - (EXIT (SPADLET |acc| + (EXIT (setq |acc| (CONS (CONS |op| |items|) |acc|)))))))) (NREVERSE |acc|))))))) @@ -4975,7 +4975,7 @@ (PROG (|op| |alist| |items| |acc|) (RETURN (SEQ (PROGN - (SPADLET |acc| NIL) + (setq |acc| NIL) (SEQ (DO ((G171579 |opAlist| (CDR G171579)) (G171570 NIL)) ((OR (ATOM G171579) @@ -4984,15 +4984,15 @@ NIL) (PROGN (PROGN - (SPADLET |op| (CAR G171570)) - (SPADLET |alist| (CDR G171570)) + (setq |op| (CAR G171570)) + (setq |alist| (CDR G171570)) G171570) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |items| + ((setq |items| (PROG (G171591) - (SPADLET G171591 NIL) + (setq G171591 NIL) (RETURN (DO ((G171597 |alist| @@ -5014,7 +5014,7 @@ (SETQ G171591 (CONS |x| G171591)))))))))) - (EXIT (SPADLET |acc| + (EXIT (setq |acc| (CONS (CONS |op| |items|) |acc|)))))))) (NREVERSE |acc|))))))) @@ -5028,7 +5028,7 @@ (declare (special |$which|)) (RETURN (PROGN - (SPADLET |sig| (CAR G171613)) + (setq |sig| (CAR G171613)) (COND ((BOOT-EQUAL |$which| "attribute") (CONS |op| (CONS |sig| NIL))) @@ -5040,7 +5040,7 @@ (PROG (|sig|) (RETURN (PROGN - (SPADLET |sig| (CAR G171624)) + (setq |sig| (CAR G171624)) (CONS |op| (CONS |sig| NIL)))))) ;dbGetOrigin(op,[.,.,origin,:.]) == origin @@ -5048,14 +5048,14 @@ (defun |dbGetOrigin| (|op| G171635) (declare (ignore |op|)) (PROG (|origin|) - (RETURN (PROGN (SPADLET |origin| (CADDR G171635)) |origin|)))) + (RETURN (PROGN (setq |origin| (CADDR G171635)) |origin|)))) ;dbGetCondition(op,[.,pred,:.]) == pred (defun |dbGetCondition| (|op| G171646) (declare (ignore |op|)) (PROG (|pred|) - (RETURN (PROGN (SPADLET |pred| (CADR G171646)) |pred|)))) + (RETURN (PROGN (setq |pred| (CADR G171646)) |pred|)))) ;--dbInsertOpAlist(op,item,opAlist) == ;-- insertAlist(op,[item,:LASSOC(op,opAlist)],opAlist) @@ -5079,17 +5079,17 @@ (declare (special |$exposedOnlyIfTrue|)) (RETURN (PROGN - (SPADLET |single?| (AND |opAlist| (NULL (CDR |data|)))) + (setq |single?| (AND |opAlist| (NULL (CDR |data|)))) (COND (|single?| - (SPADLET |ops| + (setq |ops| (|escapeSpecialChars| (STRINGIMAGE (CAAR |opAlist|)))) (|htSayStandard| "Select a view below") (|htSaySaturn| "Select a view with the right mouse button")) ('T - (SPADLET |exposedOnly?| + (setq |exposedOnly?| (AND |$exposedOnlyIfTrue| (NULL (|dbFromConstructor?| |htPage|)))) (|dbShowOpItems| |which| |data| |exposedOnly?|))))))) @@ -5118,7 +5118,7 @@ (RETURN (SEQ (PROGN (|htBeginTable|) - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((|i| 0 (QSADD1 |i|)) (G171684 |data| (CDR G171684)) (|item| NIL)) ((OR (ATOM G171684) @@ -5126,15 +5126,15 @@ NIL) (SEQ (EXIT (PROGN (COND - (|firstTime| (SPADLET |firstTime| NIL)) + (|firstTime| (setq |firstTime| NIL)) ('T (|htSaySaturn| "&"))) (COND - ((ATOM |item|) (SPADLET |op| |item|) - (SPADLET |exposeFlag| 'T)) - ('T (SPADLET |op| (CAR |item|)) - (SPADLET |exposeFlag| (CADR |item|)) + ((ATOM |item|) (setq |op| |item|) + (setq |exposeFlag| 'T)) + ('T (setq |op| (CAR |item|)) + (setq |exposeFlag| (CADR |item|)) |item|)) - (SPADLET |ops| + (setq |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) (COND @@ -5193,16 +5193,16 @@ (SEQ (PROGN (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| |which| 'T NIL) - (SPADLET |catOriginAlist| NIL) - (SPADLET |domOriginAlist| NIL) + (setq |catOriginAlist| NIL) + (setq |domOriginAlist| NIL) (DO ((G171728 |opAlist| (CDR G171728)) (G171706 NIL)) ((OR (ATOM G171728) (PROGN (SETQ G171706 (CAR G171728)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G171706)) - (SPADLET |items| (CDR G171706)) + (setq |op| (CAR G171706)) + (setq |items| (CDR G171706)) G171706) NIL)) NIL) @@ -5214,43 +5214,43 @@ NIL) (PROGN (PROGN - (SPADLET |predicate| + (setq |predicate| (CADR G171702)) - (SPADLET |origin| + (setq |origin| (CADDR G171702)) G171702) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |conname| + (setq |conname| (CAR |origin|)) (COND ((BOOT-EQUAL (GETDATABASE |conname| 'CONSTRUCTORKIND) '|category|) - (SPADLET |pred| + (setq |pred| (|simpOrDumb| |predicate| (OR (LASSQ |conname| |catOriginAlist|) 'T))) - (SPADLET |catOriginAlist| + (setq |catOriginAlist| (|insertAlist| |conname| |pred| |catOriginAlist|))) ('T - (SPADLET |pred| + (setq |pred| (|simpOrDumb| |predicate| (OR (LASSQ |conname| |domOriginAlist|) 'T))) - (SPADLET |domOriginAlist| + (setq |domOriginAlist| (|insertAlist| |conname| |pred| |domOriginAlist|))))))))))) - (SPADLET |u| + (setq |u| (PROG (G171753) - (SPADLET G171753 NIL) + (setq G171753 NIL) (RETURN (DO ((G171759 (HKEYS *HASCATEGORY-HASH*) (CDR G171759)) @@ -5271,8 +5271,8 @@ (PROGN (SETQ |pair| (CAR G171771)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |dom| (CAR |pair|)) - (SPADLET |cat| (CDR |pair|)) + (setq |dom| (CAR |pair|)) + (setq |cat| (CDR |pair|)) (COND ((BOOT-EQUAL (LASSQ |cat| |catOriginAlist|) @@ -5290,17 +5290,17 @@ (PROGN (SETQ G171714 (CAR G171781)) NIL) (PROGN (PROGN - (SPADLET |dom| (CAR G171714)) - (SPADLET |pred| (CDR G171714)) + (setq |dom| (CAR G171714)) + (setq |pred| (CDR G171714)) G171714) NIL)) NIL) - (SEQ (EXIT (SPADLET |u| + (SEQ (EXIT (setq |u| (|insertAlist| |dom| (|simpOrDumb| |pred| (OR (LASSQ |dom| |u|) 'T)) |u|))))) - (SPADLET |cAlist| (|listSort| #'GLESSEQP |u|)) + (setq |cAlist| (|listSort| #'GLESSEQP |u|)) (DO ((G171791 |cAlist| (CDR G171791)) (|pair| NIL)) ((OR (ATOM G171791) (PROGN (SETQ |pair| (CAR G171791)) NIL)) @@ -5359,13 +5359,13 @@ (PROG (|conname| |kind| |s|) (RETURN (PROGN - (SPADLET |conname| (CAR |conform|)) - (SPADLET |kind| (GETDATABASE |conname| 'CONSTRUCTORKIND)) + (setq |conname| (CAR |conform|)) + (setq |kind| (GETDATABASE |conname| 'CONSTRUCTORKIND)) (COND ((BOOT-EQUAL |kind| '|domain|) (COND ((BOOT-EQUAL - (ELT (SPADLET |s| (PNAME |conname|)) (MAXINDEX |s|)) + (ELT (setq |s| (PNAME |conname|)) (MAXINDEX |s|)) '&) "default package") ('T "domain"))) @@ -5403,27 +5403,27 @@ (PROG (|single?| |op| |sig| |exposureFlag| |tail| |firstTime| |ops|) (RETURN (SEQ (PROGN - (SPADLET |single?| (NULL (CDR |dataItems|))) + (setq |single?| (NULL (CDR |dataItems|))) (|htBeginTable|) - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((G171864 |dataItems| (CDR G171864)) (G171845 NIL)) ((OR (ATOM G171864) (PROGN (SETQ G171845 (CAR G171864)) NIL) (PROGN (PROGN - (SPADLET |op| (CAAR G171845)) - (SPADLET |sig| (CADAR G171845)) - (SPADLET |exposureFlag| (CADR G171845)) - (SPADLET |tail| (CDDR G171845)) + (setq |op| (CAAR G171845)) + (setq |sig| (CADAR G171845)) + (setq |exposureFlag| (CADR G171845)) + (setq |tail| (CDDR G171845)) G171845) NIL)) NIL) (SEQ (EXIT (PROGN (COND - (|firstTime| (SPADLET |firstTime| NIL)) + (|firstTime| (setq |firstTime| NIL)) ('T (|htSaySaturn| "&"))) - (SPADLET |ops| + (setq |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) (|htSay| "{") @@ -5450,7 +5450,7 @@ ('T (|bcConform| (CONS '|Mapping| |sig|)))))) (|htSay| "}") - (SPADLET |count| (+ |count| 1)))))) + (setq |count| (+ |count| 1)))))) (|htEndTable|) |count|))))) @@ -5506,29 +5506,29 @@ |ops| |n| |count|) (RETURN (SEQ (PROGN - (SPADLET |single?| (NULL (CDR |data|))) - (SPADLET |count| 0) + (setq |single?| (NULL (CDR |data|))) + (setq |count| 0) (|htBeginTable|) - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((G171908 |data| (CDR G171908)) (|item| NIL)) ((OR (ATOM G171908) (PROGN (SETQ |item| (CAR G171908)) NIL)) NIL) (SEQ (EXIT (PROGN (COND - (|firstTime| (SPADLET |firstTime| NIL)) + (|firstTime| (setq |firstTime| NIL)) ('T (|htSaySaturn| "&"))) - (SPADLET |opform| (CAR |item|)) - (SPADLET |exposeFlag| (CADR |item|)) - (SPADLET |tail| (CDDR |item|)) - (SPADLET |op| (|intern| (IFCAR |opform|))) - (SPADLET |args| (IFCDR |opform|)) - (SPADLET |ops| + (setq |opform| (CAR |item|)) + (setq |exposeFlag| (CADR |item|)) + (setq |tail| (CDDR |item|)) + (setq |op| (|intern| (IFCAR |opform|))) + (setq |args| (IFCDR |opform|)) + (setq |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) (|htSay| "{") (|htSayExpose| |ops| |exposeFlag|) - (SPADLET |n| (|#| |opform|)) + (setq |n| (|#| |opform|)) (|do| (COND ((AND (EQL |n| 2) (LASSOC '|Nud| (PROPLIST |op|))) @@ -5580,7 +5580,7 @@ "}")))) (|htSay| ")")))))) (|htSay| "}") - (SPADLET |count| (+ |count| 1)))))) + (setq |count| (+ |count| 1)))))) (|htEndTable|)))))) ;dbShowOpParameterJump(ops,which,count,single?) == @@ -5654,15 +5654,15 @@ (COND ((AND |$exposedOnlyIfTrue| (NULL (|dbFromConstructor?| |htPage|))) - (SPADLET |opAlist| + (setq |opAlist| (COND ((BOOT-EQUAL |which| "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))))) - (SPADLET |newWhich| + (setq |newWhich| (PROGN - (SPADLET |conform| + (setq |conform| (OR (|htpProperty| |htPage| '|domname|) (|htpProperty| |htPage| @@ -5672,24 +5672,24 @@ "package operation") "operation") ('T |which|)))) - (SPADLET |expand| + (setq |expand| (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| |which| 'T NIL)) (COND (|expand| - (SPADLET |condata| + (setq |condata| (|dbGatherData| |htPage| |opAlist| |which| '|conditions|)) (|htpSetProperty| |htPage| '|conditionData| |condata|))) - (SPADLET |base| (SPADDIFFERENCE 8192)) - (SPADLET |exactlyOneOpSig| + (setq |base| (SPADDIFFERENCE 8192)) + (setq |exactlyOneOpSig| (AND (CONSP |opAlist|) (EQ (QCDR |opAlist|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |opAlist|)) + (setq |ISTMP#1| (QCAR |opAlist|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL))))))) @@ -5700,13 +5700,13 @@ (PROGN (SETQ G171965 (CAR G171988)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G171965)) - (SPADLET |alist| (CDR G171965)) + (setq |op| (CAR G171965)) + (setq |alist| (CDR G171965)) G171965) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |base| (+ 8192 |base|)) + (setq |base| (+ 8192 |base|)) (DO ((G172011 |alist| (CDR G172011)) (|item| NIL) (|j| 0 (QSADD1 |j|))) ((OR (ATOM G172011) @@ -5716,13 +5716,13 @@ NIL) (SEQ (EXIT (PROGN - (SPADLET |sig| (CAR |item|)) - (SPADLET |predicate| + (setq |sig| (CAR |item|)) + (setq |predicate| (CADR |item|)) - (SPADLET |origin| (CADDR |item|)) - (SPADLET |exposeFlag| + (setq |origin| (CADDR |item|)) + (setq |exposeFlag| (CADDDR |item|)) - (SPADLET |comments| + (setq |comments| (CAR (CDDDDR |item|))) (COND ((OR |exposeFlag| @@ -5733,21 +5733,21 @@ (NEQUAL |comments| "") (STRINGP |comments|) - (SPADLET |k| + (setq |k| (|string2Integer| |comments|))) - (SPADLET |comments| + (setq |comments| (COND ((member |k| '(0 1)) "") ('T (|dbReadComments| |k|)))) - (SPADLET |tail| + (setq |tail| (CDDDDR |item|)) (RPLACA |tail| |comments|))) - (SPADLET |doc| + (setq |doc| (COND ((AND (STRINGP |comments|) @@ -5755,19 +5755,19 @@ "")) |comments|) ('T NIL))) - (SPADLET |pred| + (setq |pred| (OR |predicate| 'T)) - (SPADLET |index| + (setq |index| (COND (|exactlyOneOpSig| NIL) ('T (+ |base| |j|)))) (COND ((BOOT-EQUAL |which| "package operation") - (SPADLET |sig| + (setq |sig| (MSUBST |conform| '$ |sig|)) - (SPADLET |origin| + (setq |origin| (MSUBST |conform| '$ |origin|)))) (|displayDomainOp| |htPage| @@ -5797,19 +5797,19 @@ |entry|) (RETURN (PROGN - (SPADLET |LETTMP#1| (DIVIDE |index| 8192)) - (SPADLET |opKey| (CAR |LETTMP#1|)) - (SPADLET |entryKey| (CADR |LETTMP#1|)) - (SPADLET |opAlist| + (setq |LETTMP#1| (DIVIDE |index| 8192)) + (setq |opKey| (CAR |LETTMP#1|)) + (setq |entryKey| (CADR |LETTMP#1|)) + (setq |opAlist| (COND ((BOOT-EQUAL |which| "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))) - (SPADLET |LETTMP#1| (ELT |opAlist| |opKey|)) - (SPADLET |op| (CAR |LETTMP#1|)) - (SPADLET |entries| (CDR |LETTMP#1|)) - (SPADLET |entry| (ELT |entries| |entryKey|)) - (SPADLET |htPage| + (setq |LETTMP#1| (ELT |opAlist| |opKey|)) + (setq |op| (CAR |LETTMP#1|)) + (setq |entries| (CDR |LETTMP#1|)) + (setq |entry| (ELT |entries| |entryKey|)) + (setq |htPage| (|htInitPageNoScroll| (|htCopyProplist| |htPage|))) (COND ((BOOT-EQUAL |which| "operation") @@ -5891,11 +5891,11 @@ (DECLARE (SPECIAL |$conformsAreDomains| |$topicHash| |$groupChoice|)) (RETURN (SEQ (PROGN - (SPADLET |$groupChoice| NIL) - (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) + (setq |$groupChoice| NIL) + (setq |conform| (|htpProperty| |htPage| '|conform|)) (COND ((NULL (BOUNDP '|$topicHash|)) - (SPADLET |$topicHash| (MAKE-HASHTABLE 'ID)) + (setq |$topicHash| (MAKE-HASHTABLE 'ID)) (DO ((G172094 '((|extended| . 0) (|basic| . 1) (|hidden| . 2)) @@ -5905,45 +5905,45 @@ (PROGN (SETQ G172078 (CAR G172094)) NIL) (PROGN (PROGN - (SPADLET |x| (CAR G172078)) - (SPADLET |c| (CDR G172078)) + (setq |x| (CAR G172078)) + (setq |c| (CDR G172078)) G172078) NIL)) NIL) (SEQ (EXIT (HPUT |$topicHash| |x| |c|)))))) (COND - ((SPADLET |domform| (|htpProperty| |htPage| '|domname|)) - (SPADLET |$conformsAreDomains| 'T) + ((setq |domform| (|htpProperty| |htPage| '|domname|)) + (setq |$conformsAreDomains| 'T) (|reduceOpAlistForDomain| |opAlist| |domform| |conform|))) - (SPADLET |conform| (OR |domform| |conform|)) - (SPADLET |kind| + (setq |conform| (OR |domform| |conform|)) + (setq |kind| (|capitalize| (|htpProperty| |htPage| '|kind|))) - (SPADLET |exposePart| + (setq |exposePart| (COND ((|isExposedConstructor| (|opOf| |conform|)) "") ('T " Unexposed "))) - (SPADLET |fromPart| + (setq |fromPart| (COND (|domform| (|evalableConstructor2HtString| |domform|)) ('T (|form2HtString| |conform|)))) - (SPADLET |heading| + (setq |heading| (CONS " from " (CONS |exposePart| (CONS |kind| (CONS " {\\em " (CONS |fromPart| (CONS "}" NIL))))))) - (SPADLET |expandProperty| + (setq |expandProperty| (COND ((BOOT-EQUAL |which| "operation") '|expandOperations|) ('T '|expandAttributes|))) (|htpSetProperty| |htPage| |expandProperty| '|lists|) (|htpSetProperty| |htPage| '|fromHeading| |heading|) - (SPADLET |reducedOpAlist| + (setq |reducedOpAlist| (COND ((BOOT-EQUAL |which| "operation") (|reduceByGroup| |htPage| |opAlist|)) @@ -5979,15 +5979,15 @@ (PROG (|form1| |form2| |head| |tail| |pred|) (RETURN (SEQ (PROGN - (SPADLET |form1| (CONS |domform| (CDR |domform|))) - (SPADLET |form2| (CONS '$ (CDR |conform|))) + (setq |form1| (CONS |domform| (CDR |domform|))) + (setq |form2| (CONS '$ (CDR |conform|))) (DO ((G172141 |opAlist| (CDR G172141)) (|pair| NIL)) ((OR (ATOM G172141) (PROGN (SETQ |pair| (CAR G172141)) NIL)) NIL) (SEQ (EXIT (RPLACD |pair| (PROG (G172155) - (SPADLET G172155 NIL) + (setq G172155 NIL) (RETURN (DO ((G172164 (CDR |pair|) @@ -6003,16 +6003,16 @@ (EXIT (COND ((PROGN - (SPADLET |head| + (setq |head| (CAR |item|)) - (SPADLET |tail| + (setq |tail| (CDR |item|)) (COND ((BOOT-EQUAL (CAR |tail|) 'T) |item|) ('T - (SPADLET |pred| + (setq |pred| (|simpHasPred| (SUBLISLIS |form1| |form2| @@ -6026,16 +6026,16 @@ (SETQ G172155 (CONS (PROGN - (SPADLET |head| + (setq |head| (CAR |item|)) - (SPADLET |tail| + (setq |tail| (CDR |item|)) (COND ((BOOT-EQUAL (CAR |tail|) 'T) |item|) ('T - (SPADLET |pred| + (setq |pred| (|simpHasPred| (SUBLISLIS |form1| |form2| @@ -6085,36 +6085,36 @@ (declare (special |$includeUnexposed?| |$attributeArgs|)) (RETURN (SEQ (PROGN - (SPADLET |htPage| (|htInitPage| NIL NIL)) - (SPADLET |opAlist| NIL) - (SPADLET |lines| |linelist|) + (setq |htPage| (|htInitPage| NIL NIL)) + (setq |opAlist| NIL) + (setq |lines| |linelist|) (DO () ((NULL |lines|) NIL) (SEQ (EXIT (PROGN - (SPADLET |name| + (setq |name| (|dbName| - (SPADLET |x| (CAR |lines|)))) - (SPADLET |pile| (CONS |x| NIL)) + (setq |x| (CAR |lines|)))) + (setq |pile| (CONS |x| NIL)) (DO () ((NULL (AND - (SPADLET |lines| (CDR |lines|)) + (setq |lines| (CDR |lines|)) (BOOT-EQUAL |name| (|dbName| - (SPADLET |x| (CAR |lines|)))))) + (setq |x| (CAR |lines|)))))) NIL) (SEQ (EXIT - (SPADLET |pile| (CONS |x| |pile|))))) - (SPADLET |opAlist| + (setq |pile| (CONS |x| |pile|))))) + (setq |opAlist| (CONS (CONS |name| (NREVERSE |pile|)) |opAlist|)))))) - (SPADLET |opAlist| + (setq |opAlist| (|listSort| #'LEXLESSEQP (NREVERSE |opAlist|))) (COND ((BOOT-EQUAL |which| "operation") (|htpSetProperty| |htPage| '|opAlist| |opAlist|)) ('T (|htpSetProperty| |htPage| '|attrAlist| |opAlist|))) - (SPADLET |expandProperty| + (setq |expandProperty| (COND ((BOOT-EQUAL |which| "operation") '|expandOperations|) @@ -6126,10 +6126,10 @@ (BOUNDP '|$attributeArgs|) |$attributeArgs|) (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| |which| NIL NIL) - (SPADLET |opAlist| + (setq |opAlist| (CONS (CONS (CAAR |opAlist|) (PROG (G172207) - (SPADLET G172207 NIL) + (setq G172207 NIL) (RETURN (DO ((G172213 (CDAR |opAlist|) @@ -6165,7 +6165,7 @@ (PROG (|value|) (RETURN (PROGN - (SPADLET |value| + (setq |value| (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| |which| NIL 'T)) (|htpSetProperty| |htPage| '|condition?| @@ -6185,12 +6185,12 @@ (PROG (|condition| |value|) (RETURN (PROGN - (SPADLET |condition| (|htpProperty| |htPage| '|condition?|)) + (setq |condition| (|htpProperty| |htPage| '|condition?|)) (COND ((member |condition| '(|yes| |no|)) (BOOT-EQUAL |condition| '|yes|)) ('T - (SPADLET |value| + (setq |value| (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| |which| NIL 'T)) (|htpSetProperty| |htPage| '|condition?| @@ -6292,15 +6292,15 @@ (DECLARE (SPECIAL |$value| |$docTableHash| |$exposedOnlyIfTrue|)) (RETURN (SEQ (PROGN - (SPADLET |condition?| + (setq |condition?| (AND |condition?| (NULL |$exposedOnlyIfTrue|))) - (SPADLET |value| NIL) - (SPADLET |expandProperty| + (setq |value| NIL) + (setq |expandProperty| (COND ((BOOT-EQUAL |which| "operation") '|expandOperations|) ('T '|expandAttributes|))) - (SPADLET |expandFlag| + (setq |expandFlag| (|htpProperty| |htPage| |expandProperty|)) (COND ((BOOT-EQUAL |expandFlag| '|fullyExpanded|) NIL) @@ -6311,9 +6311,9 @@ (PROGN (SETQ |pair| (CAR G172302)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |op| (CAR |pair|)) - (SPADLET |lines| (CDR |pair|)) - (SPADLET |acc| NIL) + (setq |op| (CAR |pair|)) + (setq |lines| (CDR |pair|)) + (setq |acc| NIL) (DO ((G172311 |lines| (CDR G172311)) (|line| NIL)) ((OR (ATOM G172311) @@ -6329,38 +6329,38 @@ (COND ((NULL (ATOM - (SPADLET |pred| + (setq |pred| (CADR |line|)))) - (SPADLET |value| + (setq |value| |pred|)) ('T NIL)))) - (SPADLET |acc| + (setq |acc| (CONS |line| |acc|))) ('T - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|dbParts| |line| 7 1)) - (SPADLET |name| + (setq |name| (CAR |LETTMP#1|)) - (SPADLET |nargs| + (setq |nargs| (CADR |LETTMP#1|)) - (SPADLET |xflag| + (setq |xflag| (CADDR |LETTMP#1|)) - (SPADLET |sigs| + (setq |sigs| (CADDDR |LETTMP#1|)) - (SPADLET |conname| + (setq |conname| (CAR (CDDDDR |LETTMP#1|))) - (SPADLET |pred| + (setq |pred| (CADR (CDDDDR |LETTMP#1|))) - (SPADLET |comments| + (setq |comments| (CADDR (CDDDDR |LETTMP#1|))) - (SPADLET |predicate| + (setq |predicate| (|ncParseFromString| |pred|)) (COND ((AND |condition?| (NULL (ATOM |predicate|))) - (SPADLET |value| + (setq |value| |predicate|))) - (SPADLET |sig| + (setq |sig| (|ncParseFromString| |sigs|)) (COND ((BOOT-EQUAL |which| @@ -6378,19 +6378,19 @@ ": " (CONS |sigs| NIL)))))) ('T - (SPADLET |sig| + (setq |sig| (CDR |sig|)))))) - (SPADLET |conname| + (setq |conname| (|intern| (|dbNewConname| |line|))) - (SPADLET |origin| + (setq |origin| (CONS |conname| (|getConstructorArgs| |conname|))) - (SPADLET |exposeFlag| + (setq |exposeFlag| (|dbExposed?| |line| (|char| '|o|))) - (SPADLET |acc| + (setq |acc| (CONS (CONS |sig| (CONS |predicate| @@ -6409,32 +6409,32 @@ (|htpSetProperty| |htPage| |expandProperty| '|fullyExpanded|)))) ((BOOT-EQUAL |expandFlag| '|lists|) - (SPADLET |$value| NIL) - (SPADLET |$docTableHash| (MAKE-HASHTABLE 'EQUAL)) - (SPADLET |packageSymbol| NIL) - (SPADLET |domform| + (setq |$value| NIL) + (setq |$docTableHash| (MAKE-HASHTABLE 'EQUAL)) + (setq |packageSymbol| NIL) + (setq |domform| (OR (|htpProperty| |htPage| '|domname|) (|htpProperty| |htPage| '|conform|))) (COND ((|isDefaultPackageName| (|opOf| |domform|)) - (SPADLET |catname| + (setq |catname| (|intern| (SUBSTRING - (SPADLET |s| + (setq |s| (PNAME (|opOf| |domform|))) 0 (MAXINDEX |s|)))) - (SPADLET |packageSymbol| (CAR (CDR |domform|))) - (SPADLET |domform| + (setq |packageSymbol| (CAR (CDR |domform|))) + (setq |domform| (CONS |catname| (CDR (CDR |domform|)))))) - (SPADLET |docTable| (|dbDocTable| |domform|)) + (setq |docTable| (|dbDocTable| |domform|)) (DO ((G172330 |opAlist| (CDR G172330)) (G172287 NIL)) ((OR (ATOM G172330) (PROGN (SETQ G172287 (CAR G172330)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G172287)) - (SPADLET |alist| (CDR G172287)) + (setq |op| (CAR G172287)) + (setq |alist| (CDR G172287)) G172287) NIL)) NIL) @@ -6447,9 +6447,9 @@ NIL) (PROGN (PROGN - (SPADLET |sig| + (setq |sig| (CAR G172282)) - (SPADLET |tail| + (setq |tail| (CDR G172282)) G172282) NIL)) @@ -6460,22 +6460,22 @@ (COND ((NULL (ATOM - (SPADLET |pred| + (setq |pred| (CAR |tail|)))) (RETURN - (SPADLET |$value| + (setq |$value| |pred|))) ('T '|skip|))) ('T - (SPADLET |u| + (setq |u| (COND ((AND (CONSP |tail|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |tail|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |origin| + (setq |origin| (QCAR |ISTMP#1|)) 'T))) |origin|) @@ -6487,22 +6487,22 @@ ('T (COND (|packageSymbol| - (SPADLET |sig| + (setq |sig| (MSUBST '$ |packageSymbol| |sig|)))) (|dbGetDocTable| |op| |sig| |docTable| |which| NIL)))) - (SPADLET |origin| + (setq |origin| (OR (IFCAR |u|) |origin|)) - (SPADLET |docCode| + (setq |docCode| (IFCDR |u|)) (COND ((AND (NULL |doc|) (BOOT-EQUAL |which| "attribute")) - (SPADLET |doc| + (setq |doc| (|getRegistry| |op| |sig|)))) (RPLACD |tail| @@ -6530,13 +6530,13 @@ (PROG (|u| |v| |ISTMP#1| |match|) (RETURN (SEQ (PROGN - (SPADLET |u| + (setq |u| (GETDATABASE '|AttributeRegistry| 'DOCUMENTATION)) - (SPADLET |v| (LASSOC |op| |u|)) + (setq |v| (LASSOC |op| |u|)) (COND - ((SPADLET |match| + ((setq |match| (PROG (G172408) - (SPADLET G172408 NIL) + (setq G172408 NIL) (RETURN (DO ((G172415 NIL G172408) (G172416 |v| (CDR G172416)) @@ -6550,7 +6550,7 @@ (COND ((AND (CONSP |y|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |y|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) @@ -6588,14 +6588,14 @@ (RETURN (SEQ (IF (AND (CONSP |arg|) (PROGN - (SPADLET |f| (QCAR |arg|)) - (SPADLET |args| (QCDR |arg|)) + (setq |f| (QCAR |arg|)) + (setq |args| (QCDR |arg|)) 'T)) (EXIT (SEQ (IF (BOOT-EQUAL |f| 'QUOTE) (EXIT (CAR |args|))) (EXIT (CONS |f| (PROG (G172440) - (SPADLET G172440 NIL) + (setq G172440 NIL) (RETURN (DO ((G172445 |args| @@ -6622,12 +6622,12 @@ (SEQ (PROGN (COND ((VECP |domform|) - (SPADLET |domform| (|devaluate| |domform|)))) - (SPADLET |conname| (CAR |domform|)) - (SPADLET |coSig| (CDR (GETDATABASE |conname| 'COSIG))) + (setq |domform| (|devaluate| |domform|)))) + (setq |conname| (CAR |domform|)) + (setq |coSig| (CDR (GETDATABASE |conname| 'COSIG))) (COND ((PROG (G172461) - (SPADLET G172461 'T) + (setq G172461 'T) (RETURN (DO ((G172467 NIL (NULL G172461)) (G172468 |coSig| (CDR G172468)) (|x| NIL)) @@ -6637,9 +6637,9 @@ (SEQ (EXIT (SETQ G172461 (AND G172461 |x|))))))) (|form2HtString| |domform| NIL 'T)) ('T - (SPADLET |arglist| + (setq |arglist| (PROG (G172479) - (SPADLET G172479 NIL) + (setq G172479 NIL) (RETURN (DO ((G172484 (CDR |domform|) (CDR G172484)) @@ -6655,13 +6655,13 @@ (|evalableConstructor2HtString,unquote| |x|) G172479)))))))) - (SPADLET |fargtypes| + (setq |fargtypes| (CDDAR (GETDATABASE |conname| 'CONSTRUCTORMODEMAP))) (|form2HtString| (CONS |conname| (PROG (G172496) - (SPADLET G172496 NIL) + (setq G172496 NIL) (RETURN (DO ((G172503 |arglist| (CDR G172503)) @@ -6690,7 +6690,7 @@ (COND (|x| |arg|) ('T - (SPADLET |typ| + (setq |typ| (|sublisFormal| |arglist| |ftype|)) (|mathform2HtString| @@ -6725,20 +6725,20 @@ (RETURN (SEQ (|escapeString| (PROGN - (SPADLET |$fortInts2Floats| NIL) - (SPADLET |form| (|niladicHack| |form|)) + (setq |$fortInts2Floats| NIL) + (setq |form| (|niladicHack| |form|)) (COND ((AND (CONSP |form|) (EQ (QCAR |form|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) + (setq |a| (QCAR |ISTMP#1|)) 'T)))) (STRCONC "'" (PROG (G172582) - (SPADLET G172582 "") + (setq G172582 "") (RETURN (DO ((G172587 (|fortexp0| |a|) (CDR G172587)) @@ -6755,28 +6755,28 @@ (STRCONC G172582 G172529))))))))) ((AND (CONSP |form|) (EQ (QCAR |form|) 'BRACKET) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'AGGLST) (PROGN - (SPADLET |arg| + (setq |arg| (QCDR |ISTMP#2|)) 'T)))))) (COND ((AND (CONSP |arg|) (EQ (QCAR |arg|) '|construct|) - (PROGN (SPADLET |r| (QCDR |arg|)) 'T)) - (SPADLET |arg| |r|))) - (SPADLET |arg| + (PROGN (setq |r| (QCDR |arg|)) 'T)) + (setq |arg| |r|))) + (setq |arg| (COND ((ATOM |arg|) (CONS |arg| NIL)) ('T (PROG (G172598) - (SPADLET G172598 NIL) + (setq G172598 NIL) (RETURN (DO ((G172604 |arg| (CDR G172604)) @@ -6789,28 +6789,28 @@ (SEQ (EXIT (COND - ((SPADLET |y| + ((setq |y| (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#1|)) 'T)))) |a|) ('T |x|))) (SETQ G172598 (CONS |y| G172598)))))))))))) - (SPADLET |tailPart| + (setq |tailPart| (PROG (G172610) - (SPADLET G172610 "") + (setq G172610 "") (RETURN (DO ((G172615 (CDR |arg|) (CDR G172615)) @@ -6830,32 +6830,32 @@ |tailPart| "]")) ((AND (CONSP |form|) (EQ (QCAR |form|) 'BRACKET) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'AGGLST) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCAR |ISTMP#3|) 'QUOTE) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |arg| + (setq |arg| (QCAR |ISTMP#4|)) 'T)))))))))) (COND - ((ATOM |arg|) (SPADLET |arg| (CONS |arg| NIL)))) - (SPADLET |tailPart| + ((ATOM |arg|) (setq |arg| (CONS |arg| NIL)))) + (setq |tailPart| (PROG (G172621) - (SPADLET G172621 "") + (setq G172621 "") (RETURN (DO ((G172626 (CDR |arg|) (CDR G172626)) @@ -6875,7 +6875,7 @@ ((ATOM |form|) |form|) ('T (PROG (G172632) - (SPADLET G172632 "") + (setq G172632 "") (RETURN (DO ((G172637 (|fortexp0| |form|) (CDR G172637)) @@ -6899,12 +6899,12 @@ (SEQ (COND ((ATOM |form|) |form|) ((AND (CONSP |form|) (EQ (QCDR |form|) NIL) - (PROGN (SPADLET |x| (QCAR |form|)) 'T) + (PROGN (setq |x| (QCAR |form|)) 'T) (GETL |x| 'NILADIC)) |x|) ('T (PROG (G172679) - (SPADLET G172679 NIL) + (setq G172679 NIL) (RETURN (DO ((G172684 |form| (CDR G172684)) (|x| NIL)) ((OR (ATOM G172684) @@ -6966,16 +6966,16 @@ (DECLARE (SPECIAL |$predEvalAlist| |$returnNowhereFromGoGet|)) (RETURN (SEQ (PROGN - (SPADLET |ops| (KAR |options|)) - (SPADLET |$predEvalAlist| NIL) - (SPADLET |$returnNowhereFromGoGet| 'T) - (SPADLET |domname| (ELT |dom| 0)) - (SPADLET |conname| (CAR |domname|)) - (SPADLET |abb| (|getConstructorAbbreviation| |conname|)) - (SPADLET |opAlist| + (setq |ops| (KAR |options|)) + (setq |$predEvalAlist| NIL) + (setq |$returnNowhereFromGoGet| 'T) + (setq |domname| (ELT |dom| 0)) + (setq |conname| (CAR |domname|)) + (setq |abb| (|getConstructorAbbreviation| |conname|)) + (setq |opAlist| (|getOperationAlistFromLisplib| |conname|)) (PROG (G172728) - (SPADLET G172728 NIL) + (setq G172728 NIL) (RETURN (DO ((G172743 |opAlist| (CDR G172743)) (G172711 NIL)) @@ -6983,8 +6983,8 @@ (PROGN (SETQ G172711 (CAR G172743)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G172711)) - (SPADLET |u| (CDR G172711)) + (setq |op| (CAR G172711)) + (setq |u| (CDR G172711)) G172711) NIL)) G172728) @@ -6992,7 +6992,7 @@ (APPEND G172728 (REMDUP (PROG (G172760) - (SPADLET G172760 NIL) + (setq G172760 NIL) (RETURN (DO ((G172771 |u| @@ -7005,13 +7005,13 @@ NIL) (PROGN (PROGN - (SPADLET |sig| + (setq |sig| (CAR G172705)) - (SPADLET |slot| + (setq |slot| (CADR G172705)) - (SPADLET |pred| + (setq |pred| (CADDR G172705)) - (SPADLET |key| + (setq |key| (CADDDR G172705)) G172705) NIL)) @@ -7024,24 +7024,24 @@ '|Subsumed|) (OR (AND (NULL |ops|) - (SPADLET |op1| + (setq |op1| |op|)) - (SPADLET |op1| + (setq |op1| (|getDomainOpTable,memq| |op| |ops|)))) (SETQ G172760 (CONS (CONS |op1| (PROGN - (SPADLET |sig1| + (setq |sig1| (|sublisFormal| (CDR |domname|) |sig|)) - (SPADLET + (setq |predValue| (|evalDomainOpPred| |dom| |pred|)) - (SPADLET |info| + (setq |info| (COND ((NULL |predValue|) @@ -7049,14 +7049,14 @@ ((NULL |fromIfTrue|) NIL) - ((SPADLET + ((setq |cell| (|compiledLookup| |op| |sig1| |dom|)) - (SPADLET |f| + (setq |f| (CAR |cell|)) - (SPADLET |r| + (setq |r| (CDR |cell|)) (COND ((BOOT-EQUAL @@ -7141,12 +7141,12 @@ (RETURN (SEQ (IF (AND (CONSP |pred|) (PROGN - (SPADLET |op| (QCAR |pred|)) - (SPADLET |argl| (QCDR |pred|)) + (setq |op| (QCAR |pred|)) + (setq |argl| (QCDR |pred|)) 'T)) (EXIT (SEQ (IF (member |op| '(AND |and|)) (EXIT (PROG (G172834) - (SPADLET G172834 'T) + (setq G172834 'T) (RETURN (DO ((G172840 NIL @@ -7168,7 +7168,7 @@ |dom| |x|)))))))))) (IF (member |op| '(OR |or|)) (EXIT (PROG (G172848) - (SPADLET G172848 NIL) + (setq G172848 NIL) (RETURN (DO ((G172854 NIL G172848) @@ -7191,17 +7191,17 @@ (EXIT (NULL (|evalDomainOpPred,evpred1| |dom| (CAR |argl|))))) - (IF (SPADLET |k| + (IF (setq |k| (POSN1 |pred| |$predicateList|)) (EXIT (|testBitVector| (ELT |dom| 3) (+ |k| 1)))) (IF (BOOT-EQUAL |op| '|HasAttribute|) (EXIT (SEQ (PROGN - (SPADLET |arg| (CAR |argl|)) - (SPADLET |a| (CADADR |argl|)) + (setq |arg| (CAR |argl|)) + (setq |a| (CADADR |argl|)) |argl|) - (SPADLET |attPredIndex| + (setq |attPredIndex| (LASSOC |a| (ELT |dom| 2))) (IF (NULL |attPredIndex|) (EXIT NIL)) @@ -7219,7 +7219,7 @@ (PROG (|k|) (declare (special |$predicateList|)) (RETURN - (SEQ (IF (SPADLET |k| (POSN1 |pred| |$predicateList|)) + (SEQ (IF (setq |k| (POSN1 |pred| |$predicateList|)) (EXIT (|testBitVector| (ELT |dom| 3) (+ |k| 1)))) (EXIT (|evalDomainOpPred,evpred1| |dom| |pred|)))))) @@ -7230,7 +7230,7 @@ (EXIT (CONS 'LIST (CONS (MKQ (CAR |p|)) (PROG (G172881) - (SPADLET G172881 NIL) + (setq G172881 NIL) (RETURN (DO ((G172886 (CDR |p|) (CDR G172886)) @@ -7253,13 +7253,13 @@ (RETURN (SEQ (IF (AND (CONSP |pred|) (PROGN - (SPADLET |op| (QCAR |pred|)) - (SPADLET |argl| (QCDR |pred|)) + (setq |op| (QCAR |pred|)) + (setq |argl| (QCDR |pred|)) 'T)) (EXIT (SEQ (IF (member |op| '(AND |and|)) (EXIT (CONS 'AND (PROG (G172900) - (SPADLET G172900 NIL) + (setq G172900 NIL) (RETURN (DO ((G172905 |argl| @@ -7281,7 +7281,7 @@ (IF (member |op| '(OR |or|)) (EXIT (CONS 'OR (PROG (G172915) - (SPADLET G172915 NIL) + (setq G172915 NIL) (RETURN (DO ((G172920 |argl| @@ -7309,18 +7309,18 @@ (IF (BOOT-EQUAL |op| '|has|) (EXIT (SEQ (PROGN - (SPADLET |arg| (CAR |argl|)) - (SPADLET |p| (CADR |argl|)) + (setq |arg| (CAR |argl|)) + (setq |p| (CADR |argl|)) |argl|) (IF (AND (CONSP |p|) (EQ (QCAR |p|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |p|)) + (setq |ISTMP#1| (QCDR |p|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#1|)) 'T)))) (EXIT @@ -7342,7 +7342,7 @@ (defun |evalDomainOpPred,process| (|dom| |pred|) (PROG (|u|) (RETURN - (SEQ (SPADLET |u| (|evalDomainOpPred,convert| |dom| |pred|)) + (SEQ (setq |u| (|evalDomainOpPred,convert| |dom| |pred|)) (IF (BOOT-EQUAL |u| 'T) (EXIT 'T)) (EXIT (|evalDomainOpPred,evpred| |dom| |u|)))))) @@ -7393,11 +7393,11 @@ (SEQ (COND ((AND (CONSP |u|) (EQ (QCAR |u|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |kind| (QCAR |ISTMP#1|)) - (SPADLET |r| (QCDR |ISTMP#1|)) + (setq |kind| (QCAR |ISTMP#1|)) + (setq |r| (QCDR |ISTMP#1|)) 'T)))) (|htSay| "a " |kind| " ") (|htSayExplicitExports| |r|)) @@ -7409,7 +7409,7 @@ ((BOOT-EQUAL |key| '|is|) "the domain ") ('T - (SPADLET |kind| + (setq |kind| (GETDATABASE (|opOf| |u|) 'CONSTRUCTORKIND)) (COND @@ -7419,18 +7419,18 @@ (COND ((AND (CONSP |u|) (EQ (QCAR |u|) '|Join|) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (REVERSE |ISTMP#1|)) + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T) (CONSP |ISTMP#2|) (PROGN - (SPADLET |r| (QCAR |ISTMP#2|)) - (SPADLET |middle| (QCDR |ISTMP#2|)) + (setq |r| (QCAR |ISTMP#2|)) + (setq |middle| (QCDR |ISTMP#2|)) 'T) (PROGN - (SPADLET |middle| (NREVERSE |middle|)) + (setq |middle| (NREVERSE |middle|)) 'T)))) (COND ((CDR |middle|) (|htSay| "categories ") @@ -7446,10 +7446,10 @@ (COND ((AND (CONSP |r|) (EQ (QCAR |r|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |r|)) + (setq |ISTMP#1| (QCDR |r|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |r| (QCDR |ISTMP#1|)) + (setq |r| (QCDR |ISTMP#1|)) 'T)))) (|htSay| " and ") (|htSayExplicitExports| |r|)) @@ -7460,10 +7460,10 @@ (COND ((AND (CONSP |r|) (EQ (QCAR |r|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |r|)) + (setq |ISTMP#1| (QCDR |r|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |r| (QCDR |ISTMP#1|)) + (setq |r| (QCDR |ISTMP#1|)) 'T)))) (|htSay| " ") (|htSayExplicitExports| |r|)) @@ -7509,20 +7509,20 @@ ((AND (CONSP |x|) (EQ (QCAR |x|) 'SIGNATURE) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |op| + (setq |op| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |sig| + (setq |sig| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |ops| + (setq |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) (|htMakePage| @@ -7540,14 +7540,14 @@ ((AND (CONSP |x|) (EQ (QCAR |x|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |s| (|form2HtString| |a|)) + (setq |s| (|form2HtString| |a|)) (|htMakePage| (CONS (CONS '|bcLinks| @@ -7572,8 +7572,8 @@ (COND ((AND (CONSP |pred|) (PROGN - (SPADLET |op| (QCAR |pred|)) - (SPADLET |u| (QCDR |pred|)) + (setq |op| (QCAR |pred|)) + (setq |u| (QCDR |pred|)) 'T) (|member| |op| '(|and| AND))) |u|) @@ -7597,18 +7597,18 @@ (COND ((AND (CONSP |t|) (EQ (QCAR |t|) '|Mapping|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |target| (QCAR |ISTMP#1|)) - (SPADLET |source| (QCDR |ISTMP#1|)) + (setq |target| (QCAR |ISTMP#1|)) + (setq |source| (QCDR |ISTMP#1|)) 'T)))) (|htSay| "a function from ") (|htSayTuple| |source|) (|htSay| " to ") (|htSayArgument| |target|)) ((BOOT-EQUAL |t| '(|Category|)) (|htSay| "a category")) - ((OR (AND (CONSP |t|) (PROGN (SPADLET |op| (QCAR |t|)) 'T) + ((OR (AND (CONSP |t|) (PROGN (setq |op| (QCAR |t|)) 'T) (member |op| '(|Join| CATEGORY))) (|constructor?| (|opOf| |t|))) (|htSayConstructor| NIL |t|)) @@ -7654,10 +7654,10 @@ ('T (|htSayStandard| "{\\em $}") (|htSaySaturn| "{\\em \\%}")))) ((NULL (IDENTP |t|)) (|bcConform| |t| 'T)) - ('T (SPADLET |k| (|position| |t| |$conargs|)) + ('T (setq |k| (|position| |t| |$conargs|)) (COND ((> |k| (SPADDIFFERENCE 1)) - (SPADLET |typeOfArg| (ELT (CDR |$signature|) |k|)) + (setq |typeOfArg| (ELT (CDR |$signature|) |k|)) (|addWhereList| |t| '|member| |typeOfArg|))) (|htSay| "{\\em " |t| "}")))))) @@ -7665,7 +7665,7 @@ ; $whereList := insert([id,kind,:typ],$whereList) (defun |addWhereList| (|id| |kind| |typ|) - (SPADLET |$whereList| + (setq |$whereList| (|insert| (CONS |id| (CONS |kind| |typ|)) |$whereList|))) ;htSayTuple t == @@ -7715,16 +7715,16 @@ (declare (special |$charRbrace|)) (RETURN (PROGN - (SPADLET |doc| (COND ((STRINGP |x|) |x|) ('T (CAR |x|)))) + (setq |doc| (COND ((STRINGP |x|) |x|) ('T (CAR |x|)))) (COND ((AND (STRINGP |doc|) (OR (AND (|stringPrefix?| "\\spad{" |doc|) - (SPADLET |k| 6)) + (setq |k| 6)) (AND (|stringPrefix?| "\\s{" |doc|) - (SPADLET |k| 3)))) - (SPADLET |n| (|charPosition| |$charRbrace| |doc| |k|)) - (SPADLET |s| (SUBSTRING |doc| |k| (SPADDIFFERENCE |n| |k|))) - (SPADLET |parse| (|ncParseFromString| |s|)) + (setq |k| 3)))) + (setq |n| (|charPosition| |$charRbrace| |doc| |k|)) + (setq |s| (SUBSTRING |doc| |k| (SPADDIFFERENCE |n| |k|))) + (setq |parse| (|ncParseFromString| |s|)) (COND ((AND (CONSP |parse|) (EQUAL (QCAR |parse|) |op|) (BOOT-EQUAL (|#| |parse|) (|#| |sig|))) @@ -7750,19 +7750,19 @@ |$ElementList| |$FunctionList| |$DomainList|)) (RETURN (PROGN - (SPADLET |$chooseDownCaseOfType| (IFCAR |options|)) - (SPADLET |$NumberList| + (setq |$chooseDownCaseOfType| (IFCAR |options|)) + (setq |$NumberList| '(|i| |j| |k| |l| |m| |n| |i1| |j1| |k1| |l1| |m1| |n1| |i2| |j2| |k2| |l2| |m2| |n2| |i3| |j3| |k3| |l3| |m3| |n3| |i4| |j4| |k4| |l4| |m4| |n4|)) - (SPADLET |$ElementList| + (setq |$ElementList| '(|x| |y| |z| |u| |v| |w| |x1| |y1| |z1| |u1| |v1| |w1| |x2| |y2| |z2| |u2| |v2| |w2| |x3| |y3| |z3| |u3| |v3| |w3| |x4| |y4| |z4| |u4| |v4| |w4|)) - (SPADLET |$FunctionList| '(|f| |g| |h| |d| |e| F G H)) - (SPADLET |$DomainList| '(R S D E T A B C M N P Q U V W)) + (setq |$FunctionList| '(|f| |g| |h| |d| |e| F G H)) + (setq |$DomainList| '(R S D E T A B C M N P Q U V W)) (|dbGetContrivedForm| |op| |sig|))))) ;dbGetContrivedForm(op,sig) == @@ -7779,7 +7779,7 @@ ('T (CONS |op| (PROG (G173161) - (SPADLET G173161 NIL) + (setq G173161 NIL) (RETURN (DO ((G173166 (CDR |sig|) (CDR G173166)) (|s| NIL)) @@ -7827,36 +7827,36 @@ (RETURN (COND ((AND (CONSP |typ|) (EQ (QCAR |typ|) '|Mapping|)) - (SPADLET |x| (CAR |$FunctionList|)) - (SPADLET |$FunctionList| (CDR |$FunctionList|)) |x|) - ('T (SPADLET |name| (|opOf| |typ|)) - (SPADLET |kind| + (setq |x| (CAR |$FunctionList|)) + (setq |$FunctionList| (CDR |$FunctionList|)) |x|) + ('T (setq |name| (|opOf| |typ|)) + (setq |kind| (COND ((BOOT-EQUAL |name| '$) '|domain|) ('T (GETDATABASE |name| 'CONSTRUCTORKIND)))) - (SPADLET |s| (PNAME (|opOf| |typ|))) + (setq |s| (PNAME (|opOf| |typ|))) (COND ((NEQUAL |kind| '|category|) (COND ((OR (|anySubstring?| "Integer" |s| 0) (|anySubstring?| "Number" |s| 0)) - (SPADLET |x| (CAR |$NumberList|)) - (SPADLET |$NumberList| (CDR |$NumberList|)) |x|) + (setq |x| (CAR |$NumberList|)) + (setq |$NumberList| (CDR |$NumberList|)) |x|) ('T - (SPADLET |x| + (setq |x| (COND (|$chooseDownCaseOfType| - (SPADLET |y| (DOWNCASE |typ|)) - (SPADLET |x| + (setq |y| (DOWNCASE |typ|)) + (setq |x| (COND ((|member| |y| |$ElementList|) |y|) ('T (CAR |$ElementList|))))) ('T (CAR |$ElementList|)))) - (SPADLET |$ElementList| (|delete| |x| |$ElementList|)) + (setq |$ElementList| (|delete| |x| |$ElementList|)) |x|))) - ('T (SPADLET |x| (CAR |$DomainList|)) - (SPADLET |$DomainList| (CDR |$DomainList|)) |x|))))))) + ('T (setq |x| (CAR |$DomainList|)) + (setq |$DomainList| (CDR |$DomainList|)) |x|))))))) ;getSubstSigIfPossible sig == ; getSubstSignature sig or sig @@ -7881,7 +7881,7 @@ ((ATOM |z|) |z|) ('T (PROG (G173208) - (SPADLET G173208 NIL) + (setq G173208 NIL) (RETURN (DO ((G173213 |z| (CDR G173213)) (|u| NIL)) ((OR (ATOM G173213) @@ -7904,7 +7904,7 @@ (PROG (|ISTMP#1| |.| |y| |candidates|) (RETURN (SEQ (PROGN - (SPADLET |candidates| NIL) + (setq |candidates| NIL) (DO ((G173242 |sig| (CDR G173242)) (|x| NIL) (|i| 1 (QSADD1 |i|))) ((OR (ATOM G173242) @@ -7913,19 +7913,19 @@ (SEQ (EXIT (COND ((AND (CONSP |x|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |.| (QCDR |ISTMP#1|)) + (setq |.| (QCDR |ISTMP#1|)) 'T)))) (COND ((|getSubstQualify| |x| |i| |sig|) - (SPADLET |candidates| + (setq |candidates| (|getSubstInsert| |x| |candidates|))) - ((SPADLET |y| + ((setq |y| (PROG (G173248) - (SPADLET G173248 NIL) + (setq G173248 NIL) (RETURN (DO ((G173255 NIL @@ -7945,14 +7945,14 @@ (COND ((AND (CONSP |y|) (PROGN - (SPADLET + (setq |ISTMP#1| (QCDR |y|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |.| + (setq |.| (QCDR |ISTMP#1|)) 'T)))) @@ -7960,7 +7960,7 @@ (OR G173248 (|getSubstQualify| |y| |i| |sig|))))))))))) - (SPADLET |candidates| + (setq |candidates| (|insert| |y| |candidates|))))))))) |candidates|))))) @@ -7990,17 +7990,17 @@ (declare (special |$DomainList|)) (RETURN (SEQ (PROGN - (SPADLET |candidates| (|getSubstCandidates| |sig|)) + (setq |candidates| (|getSubstCandidates| |sig|)) (COND ((NULL |candidates|) NIL) - ('T (SPADLET D (CAR |$DomainList|)) - (SPADLET |$DomainList| (CDR |$DomainList|)) - (SPADLET |winner| (CAR |candidates|)) - (SPADLET |newsig| (|fullSubstitute| D |winner| |sig|)) - (SPADLET |sig| + ('T (setq D (CAR |$DomainList|)) + (setq |$DomainList| (CDR |$DomainList|)) + (setq |winner| (CAR |candidates|)) + (setq |newsig| (|fullSubstitute| D |winner| |sig|)) + (setq |sig| (COND ((NULL (CDR |candidates|)) |newsig|) - ('T (SPADLET |count| (NUMOFNODES |newsig|)) + ('T (setq |count| (NUMOFNODES |newsig|)) (DO ((G173288 (CDR |candidates|) (CDR G173288)) (|x| NIL)) @@ -8011,17 +8011,17 @@ NIL) (SEQ (EXIT (PROGN - (SPADLET |trial| + (setq |trial| (|fullSubstitute| D |x| |sig|)) - (SPADLET |trialCount| + (setq |trialCount| (NUMOFNODES |trial|)) (COND ((> |count| |trialCount|) (PROGN - (SPADLET |newsig| |trial|) - (SPADLET |count| + (setq |newsig| |trial|) + (setq |count| |trialCount|) - (SPADLET |winner| |x|)))))))) + (setq |winner| |x|)))))))) |newsig|))) (|addWhereList| D '|is| |winner|) |newsig|))))))) @@ -8034,7 +8034,7 @@ (RETURN (SEQ (COND ((PROG (G173310) - (SPADLET G173310 NIL) + (setq G173310 NIL) (RETURN (DO ((G173318 NIL G173310) (G173319 |sig| (CDR G173319)) (|y| NIL) @@ -8065,7 +8065,7 @@ (COND ((NULL |candidates|) (CONS |x| NIL)) ((PROG (G173331) - (SPADLET G173331 NIL) + (setq G173331 NIL) (RETURN (DO ((G173337 NIL G173331) (G173338 |candidates| (CDR G173338)) @@ -8077,9 +8077,9 @@ (OR G173331 (CONTAINED |x| |y|)))))))) |candidates|) - ((SPADLET |y| + ((setq |y| (PROG (G173345) - (SPADLET G173345 NIL) + (setq G173345 NIL) (RETURN (DO ((G173351 NIL G173345) (G173352 |candidates| @@ -8156,17 +8156,17 @@ ((BOOT-EQUAL |key| '|filter|) (|koaPageFilterByName| |htPage| '|whoUsesOperation|)) ('T - (SPADLET |opAlist| (|htpProperty| |htPage| '|opAlist|)) - (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) - (SPADLET |conargs| (CDR |conform|)) (SPADLET |opl| NIL) + (setq |opAlist| (|htpProperty| |htPage| '|opAlist|)) + (setq |conform| (|htpProperty| |htPage| '|conform|)) + (setq |conargs| (CDR |conform|)) (setq |opl| NIL) (DO ((G173409 |opAlist| (CDR G173409)) (G173368 NIL)) ((OR (ATOM G173409) (PROGN (SETQ G173368 (CAR G173409)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G173368)) - (SPADLET |alist| (CDR G173368)) + (setq |op| (CAR G173368)) + (setq |alist| (CDR G173368)) G173368) NIL)) NIL) @@ -8178,34 +8178,34 @@ NIL) (PROGN (PROGN - (SPADLET |sig| (CAR G173365)) + (setq |sig| (CAR G173365)) G173365) NIL)) NIL) - (SEQ (EXIT (SPADLET |opl| + (SEQ (EXIT (setq |opl| (CONS (CONS |op| (SUBLISLIS |$FormalMapVariableList| (CDR |conform|) |sig|)) |opl|)))))))) - (SPADLET |opl| (NREVERSE |opl|)) - (SPADLET |u| (|whoUses| |opl| |conform|)) - (SPADLET |prefix| + (setq |opl| (NREVERSE |opl|)) + (setq |u| (|whoUses| |opl| |conform|)) + (setq |prefix| (|pluralSay| (|#| |u|) "constructor uses" "constructors use")) - (SPADLET |suffix| + (setq |suffix| (COND ((AND (CONSP |opAlist|) (EQ (QCDR |opAlist|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |opAlist|)) + (setq |ISTMP#1| (QCAR |opAlist|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |op1| + (setq |op1| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL)))))) @@ -8219,17 +8219,17 @@ (CONS "}" NIL)))))) ('T (CONS " these operations" NIL)))) - (SPADLET |page| + (setq |page| (|htInitPage| (APPEND |prefix| |suffix|) (|htCopyProplist| |htPage|))) - (SPADLET |nopAlist| NIL) + (setq |nopAlist| NIL) (DO ((G173433 |u| (CDR G173433)) (G173384 NIL)) ((OR (ATOM G173433) (PROGN (SETQ G173384 (CAR G173433)) NIL) (PROGN (PROGN - (SPADLET |name| (CAR G173384)) - (SPADLET |opsigList| (CDR G173384)) + (setq |name| (CAR G173384)) + (setq |opsigList| (CDR G173384)) G173384) NIL)) NIL) @@ -8241,33 +8241,33 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |sofar| + (setq |sofar| (LASSOC |opsig| |nopAlist|)) - (SPADLET |nopAlist| + (setq |nopAlist| (|insertAlist| |opsig| (CONS |name| (LASSOC |opsig| |nopAlist|)) |nopAlist|))))))))) - (SPADLET |usedList| NIL) + (setq |usedList| NIL) (DO ((G173461 |nopAlist| (CDR G173461)) (G173389 NIL)) ((OR (ATOM G173461) (PROGN (SETQ G173389 (CAR G173461)) NIL) (PROGN (PROGN - (SPADLET |pair| (CAR G173389)) - (SPADLET |op| (CAAR G173389)) - (SPADLET |sig| (CDAR G173389)) - (SPADLET |namelist| (CDR G173389)) + (setq |pair| (CAR G173389)) + (setq |op| (CAAR G173389)) + (setq |sig| (CDAR G173389)) + (setq |namelist| (CDR G173389)) G173389) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |ops| + (setq |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) - (SPADLET |usedList| + (setq |usedList| (CONS |pair| |usedList|)) (|htSay| "Users of {\\em " |ops| ": ") @@ -8278,7 +8278,7 @@ (|bcConTable| (|listSort| #'GLESSEQP (REMDUP |namelist|))))))) - (SPADLET |noOneUses| (SETDIFFERENCE |opl| |usedList|)) + (setq |noOneUses| (SETDIFFERENCE |opl| |usedList|)) (COND ((> (|#| |noOneUses|) 0) (|htSay| "No constructor uses the ") @@ -8296,8 +8296,8 @@ (PROGN (SETQ G173397 (CAR G173475)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G173397)) - (SPADLET |sig| (CDR G173397)) + (setq |op| (CAR G173397)) + (setq |sig| (CDR G173397)) G173397) NIL)) NIL) @@ -8351,10 +8351,10 @@ (DECLARE (SPECIAL |$conname| |$infovec|)) (RETURN (SEQ (PROGN - (SPADLET |opList| (REMDUP (ASSOCLEFT |opSigList|))) - (SPADLET |numOfArgsList| + (setq |opList| (REMDUP (ASSOCLEFT |opSigList|))) + (setq |numOfArgsList| (REMDUP (PROG (G173535) - (SPADLET G173535 NIL) + (setq G173535 NIL) (RETURN (DO ((G173541 |opSigList| (CDR G173541)) @@ -8366,7 +8366,7 @@ NIL) (PROGN (PROGN - (SPADLET |sig| + (setq |sig| (CDR G173516)) G173516) NIL)) @@ -8378,10 +8378,10 @@ (+ (SPADDIFFERENCE 1) (|#| |sig|)) G173535))))))))) - (SPADLET |acc| NIL) - (SPADLET |$conname| (CAR |conform|)) - (SPADLET |domList| (|getUsersOfConstructor| |$conname|)) - (SPADLET |hash| (MAKE-HASH-TABLE)) + (setq |acc| NIL) + (setq |$conname| (CAR |conform|)) + (setq |domList| (|getUsersOfConstructor| |$conname|)) + (setq |hash| (MAKE-HASH-TABLE)) (DO ((G173564 (|allConstructors|) (CDR G173564)) (|name| NIL)) ((OR (ATOM G173564) @@ -8390,15 +8390,15 @@ (SEQ (EXIT (COND ((member |name| |domList|) (PROGN - (SPADLET |$infovec| + (setq |$infovec| (|dbInfovec| |name|)) (COND ((NULL |$infovec|) '|skip|) ('T - (SPADLET |template| + (setq |template| (ELT |$infovec| 0)) - (SPADLET |found| NIL) - (SPADLET |opacc| NIL) + (setq |found| NIL) + (setq |opacc| NIL) (DO ((G173583 (MAXINDEX |template|)) (|i| 7 (+ |i| 1))) @@ -8406,24 +8406,24 @@ (SEQ (EXIT (PROGN - (SPADLET |item| + (setq |item| (ELT |template| |i|)) (COND ((OR (NULL (AND (CONSP |item|) (PROGN - (SPADLET |n| + (setq |n| (QCAR |item|)) - (SPADLET |op| + (setq |op| (QCDR |item|)) 'T))) (NULL (member |op| |opList|))) '|skip|) - ('T (SPADLET |index| |n|) - (SPADLET |numvec| + ('T (setq |index| |n|) + (setq |numvec| (|getCodeVector|)) - (SPADLET |numOfArgs| + (setq |numOfArgs| (ELT |numvec| |index|)) (COND ((NULL @@ -8431,14 +8431,14 @@ |numOfArgsList|)) '|skip|) ('T - (SPADLET |whereNumber| + (setq |whereNumber| (ELT |numvec| - (SPADLET |index| + (setq |index| (+ |index| 1)))) (COND ((NULL (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (ELT |template| |whereNumber|)) (AND @@ -8448,14 +8448,14 @@ |$conname|)))) '|skip|) ('T - (SPADLET |signumList| + (setq |signumList| (|dcSig| |numvec| (+ |index| 1) |numOfArgs|)) (COND - ((SPADLET |opsig| + ((setq |opsig| (PROG (G173587) - (SPADLET + (setq G173587 NIL) (RETURN (DO @@ -8479,11 +8479,11 @@ NIL) (PROGN (PROGN - (SPADLET + (setq |op1| (CAR |pair|)) - (SPADLET + (setq |sig| (CDR |pair|)) @@ -8506,12 +8506,12 @@ (OR G173587 |pair|)))))))))) - (SPADLET |opacc| + (setq |opacc| (CONS |opsig| |opacc|)))))))))))))) (COND (|opacc| - (SPADLET |acc| + (setq |acc| (CONS (CONS |name| |opacc|) |acc|))) ('T NIL)))))))))) @@ -8542,16 +8542,16 @@ (COND ((AND (CONSP |signumList|) (PROGN - (SPADLET |subject| (QCAR |signumList|)) - (SPADLET |r| (QCDR |signumList|)) + (setq |subject| (QCAR |signumList|)) + (setq |r| (QCDR |signumList|)) 'T) (CONSP |sig|) (PROGN - (SPADLET |pattern| (QCAR |sig|)) - (SPADLET |s| (QCDR |sig|)) + (setq |pattern| (QCAR |sig|)) + (setq |s| (QCDR |sig|)) 'T)) (COND - ((SPADLET |x| (LASSOC |pattern| |al|)) + ((setq |x| (LASSOC |pattern| |al|)) (COND ((BOOT-EQUAL |x| |subject|) (|whoUsesMatch1?| |r| |s| |al|)) @@ -8594,20 +8594,20 @@ (PROG (|a| |pred| |op| |args| |alist|) (declare (special |$domain|)) (RETURN - (SEQ (SPADLET |alist| NIL) + (SEQ (setq |alist| NIL) (DO ((G173678 |u| (CDR G173678)) (G173669 NIL)) ((OR (ATOM G173678) (PROGN (SETQ G173669 (CAR G173678)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR G173669)) - (SPADLET |pred| (CDR G173669)) + (setq |a| (CAR G173669)) + (setq |pred| (CDR G173669)) G173669) NIL)) NIL) - (SEQ (SPADLET |op| (|opOf| |a|)) - (SPADLET |args| (IFCDR |a|)) - (EXIT (SPADLET |alist| + (SEQ (setq |op| (|opOf| |a|)) + (setq |args| (IFCDR |a|)) + (EXIT (setq |alist| (|insertAlist| |op| (|insertAlist| |args| (CONS |pred| NIL) @@ -8620,22 +8620,22 @@ (DECLARE (SPECIAL |$infovec| |$predvec| |$domain|)) (RETURN (SEQ (PROGN - (SPADLET |conname| (CAR |conform|)) - (SPADLET |args| (CDR |conform|)) + (setq |conname| (CAR |conform|)) + (setq |args| (CDR |conform|)) (COND ((BOOT-EQUAL '|category| (GETDATABASE |conname| 'CONSTRUCTORKIND)) (|koCatAttrs| |conform| |domname|)) ('T - (SPADLET |$infovec| + (setq |$infovec| (OR (|dbInfovec| |conname|) (RETURN NIL))) - (SPADLET |$predvec| + (setq |$predvec| (COND (|$domain| (ELT |$domain| 3)) ('T (GETDATABASE |conname| 'PREDICATES)))) - (SPADLET |u| + (setq |u| (PROG (G173702) - (SPADLET G173702 NIL) + (setq G173702 NIL) (RETURN (DO ((G173709 (ELT |$infovec| 2) (CDR G173709)) @@ -8647,15 +8647,15 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G173664)) - (SPADLET |i| (CDR G173664)) + (setq |a| (CAR G173664)) + (setq |i| (CDR G173664)) G173664) NIL)) (NREVERSE0 G173702)) (SEQ (EXIT (COND ((AND (NEQUAL |a| '|nil|) - (SPADLET |pred| + (setq |pred| (|sublisFormal| |args| (|kTestPred| |i|)))) (SETQ G173702 @@ -8724,12 +8724,12 @@ (PROGN (SETQ G173755 (CAR G173767)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G173755)) - (SPADLET |al| (CDR G173755)) + (setq |op| (CAR G173755)) + (setq |al| (CDR G173755)) G173755) NIL)) NIL) - (SEQ (IF (SPADLET |u| (LASSOC |op| |alist|)) + (SEQ (IF (setq |u| (LASSOC |op| |alist|)) (EXIT (SEQ (DO ((G173779 |al| (CDR G173779)) (G173749 NIL)) ((OR (ATOM G173779) @@ -8739,9 +8739,9 @@ NIL) (PROGN (PROGN - (SPADLET |sig| + (setq |sig| (CAR G173749)) - (SPADLET |item| + (setq |item| (CDR G173749)) G173749) NIL)) @@ -8750,13 +8750,13 @@ (EXIT (COND ((NULL (LASSOC |sig| |u|)) - (SPADLET |u| + (setq |u| (|insertAlist| |sig| |item| |u|))))))) - (EXIT (SPADLET |alist| + (EXIT (setq |alist| (|insertAlist| |op| |u| (DELASC |op| |alist|))))))) - (EXIT (SPADLET |alist| + (EXIT (setq |alist| (|insertAlist| |op| |al| |alist|))))) (EXIT |alist|))))) @@ -8765,16 +8765,16 @@ |op1| |sig| |slot| |pred| |key| |npred| |acc|) (DECLARE (SPECIAL |$infovec| |$packageItem|)) (RETURN - (SEQ (SPADLET |conform| (OR |domname| |conform|)) + (SEQ (setq |conform| (OR |domname| |conform|)) (PROGN - (SPADLET |conname| (CAR |conform|)) - (SPADLET |args| (CDR |conform|)) + (setq |conname| (CAR |conform|)) + (setq |args| (CDR |conform|)) |conform|) - (SPADLET |subargs| |args|) - (IF (SPADLET |u| (|koCatOps| |conform| |domname|)) + (setq |subargs| |args|) + (IF (setq |u| (|koCatOps| |conform| |domname|)) (EXIT |u|)) - (SPADLET |$infovec| (|dbInfovec| |conname|)) - (SPADLET |exposureTail| + (setq |$infovec| (|dbInfovec| |conname|)) + (setq |exposureTail| (SEQ (IF (NULL |$packageItem|) (EXIT '(NIL NIL))) (IF (|isExposedConstructor| (|opOf| |conform|)) @@ -8787,16 +8787,16 @@ (PROGN (SETQ G173744 (CAR G173806)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G173744)) - (SPADLET |u| (CDR G173744)) + (setq |op| (CAR G173744)) + (setq |u| (CDR G173744)) G173744) NIL)) NIL) - (SEQ (SPADLET |op1| (|zeroOneConvert| |op|)) - (EXIT (SPADLET |acc| + (SEQ (setq |op1| (|zeroOneConvert| |op|)) + (EXIT (setq |acc| (CONS (CONS |op1| (PROG (G173819) - (SPADLET G173819 NIL) + (setq G173819 NIL) (RETURN (DO ((G173826 @@ -8811,13 +8811,13 @@ NIL) (PROGN (PROGN - (SPADLET |sig| + (setq |sig| (CAR G173737)) - (SPADLET |slot| + (setq |slot| (CADR G173737)) - (SPADLET |pred| + (setq |pred| (CADDR G173737)) - (SPADLET |key| + (setq |key| (CADDDR G173737)) G173737) NIL)) @@ -8828,7 +8828,7 @@ ((AND (NEQUAL |key| '|Subsumed|) - (SPADLET |npred| + (setq |npred| (|simpHasPred| |pred|))) (SETQ G173819 @@ -8844,7 +8844,7 @@ (PROG () (RETURN (SEQ (PROG (G173860) - (SPADLET G173860 NIL) + (setq G173860 NIL) (RETURN (DO ((G173866 |u| (CDR G173866)) (|pair| NIL)) ((OR (ATOM G173866) @@ -8861,8 +8861,8 @@ (DECLARE (SPECIAL |$packageItem|)) (RETURN (PROGN - (SPADLET |$packageItem| NIL) - (SPADLET |ours| (|koOps,fn| |conform| |domname|)) + (setq |$packageItem| NIL) + (setq |ours| (|koOps,fn| |conform| |domname|)) (|listSort| #'GLESSEQP (|koOps,trim| |ours|)))))) ;zeroOneConvert x == @@ -8892,7 +8892,7 @@ (declare (special |$Primitives|)) (RETURN (SEQ (IF (ATOM |x|) (EXIT |x|)) - (IF (BOOT-EQUAL (SPADLET |op| (CAR |x|)) '$) (EXIT '$)) + (IF (BOOT-EQUAL (setq |op| (CAR |x|)) '$) (EXIT '$)) (IF (BOOT-EQUAL |op| '|local|) (EXIT (CADR |x|))) (IF (BOOT-EQUAL |op| '|:|) (EXIT (CONS '|:| @@ -8902,7 +8902,7 @@ NIL))))) (IF (OR (member |op| |$Primitives|) (|constructor?| |op|)) (EXIT (PROG (G173894) - (SPADLET G173894 NIL) + (setq G173894 NIL) (RETURN (DO ((G173899 |x| (CDR G173899)) (|y| NIL)) @@ -8935,15 +8935,15 @@ (PROG (|conname| |oplist| |op| |alist| |nalist|) (RETURN (SEQ (PROGN - (SPADLET |conname| (|opOf| |conform|)) - (SPADLET |oplist| + (setq |conname| (|opOf| |conform|)) + (setq |oplist| (REVERSE (GETDATABASE |conname| 'OPERATIONALIST))) - (SPADLET |oplist| + (setq |oplist| (|sublisFormal| (OR (IFCDR |domname|) (IFCDR |conform|)) |oplist|)) (PROG (G173925) - (SPADLET G173925 NIL) + (setq G173925 NIL) (RETURN (DO ((G173932 |oplist| (CDR G173932)) (G173914 NIL)) @@ -8951,13 +8951,13 @@ (PROGN (SETQ G173914 (CAR G173932)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G173914)) - (SPADLET |alist| (CDR G173914)) + (setq |op| (CAR G173914)) + (setq |alist| (CDR G173914)) G173914) NIL)) (NREVERSE0 G173925)) (SEQ (EXIT (COND - ((SPADLET |nalist| + ((setq |nalist| (|koCatOps1| |alist|)) (SETQ G173925 (CONS @@ -8980,27 +8980,27 @@ (PROG (|sig| |r| |key| |options| |pred| |npred| |x|) (RETURN (SEQ (PROG (G173969) - (SPADLET G173969 NIL) + (setq G173969 NIL) (RETURN (DO ((G173975 |alist| (CDR G173975)) (|item| NIL)) ((OR (ATOM G173975) (PROGN (SETQ |item| (CAR G173975)) NIL)) (NREVERSE0 G173969)) (SEQ (EXIT (COND - ((SPADLET |x| + ((setq |x| (PROGN - (SPADLET |sig| (CAR |item|)) - (SPADLET |r| (CDR |item|)) + (setq |sig| (CAR |item|)) + (setq |r| (CDR |item|)) (COND ((NULL |r|) (CONS |sig| (CONS 'T NIL))) ('T - (SPADLET |key| (CAR |r|)) - (SPADLET |options| + (setq |key| (CAR |r|)) + (setq |options| (CDR |r|)) (COND ((NULL - (SPADLET |pred| + (setq |pred| (IFCAR |options|))) (COND ((BOOT-EQUAL @@ -9012,7 +9012,7 @@ ('T (CONS |sig| (CONS 'T NIL))))) - ((SPADLET |npred| + ((setq |npred| (|simpHasPred| |pred|)) (CONS |sig| (CONS |npred| NIL))) @@ -9032,18 +9032,18 @@ (DECLARE (SPECIAL |$if|)) (RETURN (SEQ (PROGN - (SPADLET |$if| (MAKE-HASHTABLE 'ID)) - (SPADLET |catname| (|opOf| |catform|)) + (setq |$if| (MAKE-HASHTABLE 'ID)) + (setq |catname| (|opOf| |catform|)) (|koCatAttrsAdd| (OR |domname| |catform|) 'T) - (SPADLET |ancestors| (|ancestorsOf| |catform| |domname|)) + (setq |ancestors| (|ancestorsOf| |catform| |domname|)) (DO ((G174001 |ancestors| (CDR G174001)) (G173992 NIL)) ((OR (ATOM G174001) (PROGN (SETQ G173992 (CAR G174001)) NIL) (PROGN (PROGN - (SPADLET |conform| (CAR G173992)) - (SPADLET |pred| (CDR G173992)) + (setq |conform| (CAR G173992)) + (setq |pred| (CDR G173992)) G173992) NIL)) NIL) @@ -9058,7 +9058,7 @@ (declare (special |$if|)) (RETURN (SEQ (PROG (G174022) - (SPADLET G174022 NIL) + (setq G174022 NIL) (RETURN (DO ((G174027 (|listSort| #'GLESSEQP @@ -9092,19 +9092,19 @@ (PROGN (SETQ G174038 (CAR G174051)) NIL) (PROGN (PROGN - (SPADLET |name| (CAR G174038)) - (SPADLET |argl| (CADR G174038)) - (SPADLET |p| (CDDR G174038)) + (setq |name| (CAR G174038)) + (setq |argl| (CADR G174038)) + (setq |p| (CDDR G174038)) G174038) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |npred| (|quickAnd| |pred| |p|)) - (SPADLET |exists| (HGET |$if| |name|)) + (setq |npred| (|quickAnd| |pred| |p|)) + (setq |exists| (HGET |$if| |name|)) (COND - ((SPADLET |existingPred| + ((setq |existingPred| (LASSOC |argl| |exists|)) - (SPADLET |npred| + (setq |npred| (|quickOr| |npred| |existingPred|)))) (COND @@ -9139,9 +9139,9 @@ (PROG (|opAlist| |which| |page| |conform| |domname| |ancestors|) (RETURN (PROGN - (SPADLET |opAlist| (|htpProperty| |htPage| '|opAlist|)) - (SPADLET |which| (|htpProperty| |htPage| '|which|)) - (SPADLET |page| + (setq |opAlist| (|htpProperty| |htPage| '|opAlist|)) + (setq |which| (|htpProperty| |htPage| '|which|)) + (setq |page| (|htInitPageNoScroll| (|htCopyProplist| |htPage|) (|dbHeading| |opAlist| |which| (|htpProperty| |htPage| '|heading|)))) @@ -9162,9 +9162,9 @@ NIL)) NIL)) (|htSay| "\\beginscroll ") - (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) - (SPADLET |domname| (|htpProperty| |htPage| '|domname|)) - (SPADLET |ancestors| + (setq |conform| (|htpProperty| |htPage| '|conform|)) + (setq |domname| (|htpProperty| |htPage| '|domname|)) + (setq |ancestors| (ASSOCLEFT (|ancestorsOf| |conform| |domname|))) (|htpSetProperty| |page| '|ancestors| (|listSort| #'GLESSEQP |ancestors|)) @@ -9192,13 +9192,13 @@ (PROG (|names?| |count| |capwhich| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |names?| (IFCAR |options|)) - (SPADLET |count| + (setq |names?| (IFCAR |options|)) + (setq |count| (COND (|names?| (|#| |items|)) ('T (PROG (G174082) - (SPADLET G174082 0) + (setq G174082 0) (RETURN (DO ((G174087 |items| (CDR G174087)) (|x| NIL)) @@ -9210,8 +9210,8 @@ (SEQ (EXIT (SETQ G174082 (+ G174082 (|#| (CDR |x|)))))))))))) - (SPADLET |capwhich| (|capitalize| |which|)) - (SPADLET |prefix| + (setq |capwhich| (|capitalize| |which|)) + (setq |prefix| (COND ((> 2 |count|) (COND @@ -9263,18 +9263,18 @@ |newOpAlist| |op| |alist| |falist|) (RETURN (SEQ (PROGN - (SPADLET |ancestor| + (setq |ancestor| (ELT (|htpProperty| |htPage| '|ancestors|) |i|)) - (SPADLET |ancestorList| + (setq |ancestorList| (CONS |ancestor| (ASSOCLEFT (|ancestorsOf| |ancestor| NIL)))) - (SPADLET |newOpAlist| NIL) - (SPADLET |which| (|htpProperty| |htPage| '|which|)) - (SPADLET |opAlist| (|htpProperty| |htPage| '|opAlist|)) - (SPADLET |domname| (|htpProperty| |htPage| '|domname|)) - (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) - (SPADLET |heading| (|htpProperty| |htPage| '|heading|)) - (SPADLET |docTable| + (setq |newOpAlist| NIL) + (setq |which| (|htpProperty| |htPage| '|which|)) + (setq |opAlist| (|htpProperty| |htPage| '|opAlist|)) + (setq |domname| (|htpProperty| |htPage| '|domname|)) + (setq |conform| (|htpProperty| |htPage| '|conform|)) + (setq |heading| (|htpProperty| |htPage| '|heading|)) + (setq |docTable| (|dbDocTable| (OR |domname| |conform|))) (DO ((G174145 |opAlist| (CDR G174145)) (G174118 NIL)) @@ -9282,15 +9282,15 @@ (PROGN (SETQ G174118 (CAR G174145)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G174118)) - (SPADLET |alist| (CDR G174118)) + (setq |op| (CAR G174118)) + (setq |alist| (CDR G174118)) G174118) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |nalist| + (setq |nalist| (PROG (G174157) - (SPADLET G174157 NIL) + (setq G174157 NIL) (RETURN (DO ((G174163 |alist| @@ -9306,20 +9306,20 @@ (EXIT (COND ((PROGN - (SPADLET |sig| + (setq |sig| (CAR |item|)) - (SPADLET |pred| + (setq |pred| (CADR |item|)) - (SPADLET |aux| + (setq |aux| (CDDR |item|)) - (SPADLET |u| + (setq |u| (|dbGetDocTable| |op| |sig| |docTable| |which| |aux|)) - (SPADLET |origin| + (setq |origin| (IFCAR |u|)) - (SPADLET |doc| + (setq |doc| (IFCDR |u|)) 'T) (SETQ G174157 @@ -9337,9 +9337,9 @@ NIL) (PROGN (PROGN - (SPADLET |origin| + (setq |origin| (CAR G174113)) - (SPADLET |item| + (setq |item| (CDR G174113)) G174113) NIL)) @@ -9353,27 +9353,27 @@ |ancestorList|) (EXIT (PROGN - (SPADLET |newEntry| + (setq |newEntry| (CONS |item| (LASSOC |op| |newOpAlist|))) - (SPADLET |newOpAlist| + (setq |newOpAlist| (|insertAlist| |op| |newEntry| |newOpAlist|)))))))))))))))) - (SPADLET |falist| NIL) + (setq |falist| NIL) (DO ((G174187 |newOpAlist| (CDR G174187)) (G174122 NIL)) ((OR (ATOM G174187) (PROGN (SETQ G174122 (CAR G174187)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G174122)) - (SPADLET |alist| (CDR G174122)) + (setq |op| (CAR G174122)) + (setq |alist| (CDR G174122)) G174122) NIL)) NIL) - (SEQ (EXIT (SPADLET |falist| + (SEQ (EXIT (setq |falist| (CONS (CONS |op| (NREVERSE |alist|)) |falist|))))) (|htpSetProperty| |htPage| '|fromcat| @@ -9397,10 +9397,10 @@ (PROG (|htPage| |which|) (RETURN (PROGN - (SPADLET |htPage| (|htInitPage| NIL NIL)) + (setq |htPage| (|htInitPage| NIL NIL)) (|htpSetProperty| |htPage| '|opAlist| |opAlist|) (|htpSetProperty| |htPage| '|expandOperations| '|lists|) - (SPADLET |which| "operation") + (setq |which| "operation") (|dbShowOp1| |htPage| |opAlist| |which| '|names|))))) ;opPageFastPath opstring == @@ -9421,19 +9421,19 @@ |predicate| |exposed?| |opAlist|) (RETURN (SEQ (PROGN - (SPADLET |x| (STRINGIMAGE |opstring|)) + (setq |x| (STRINGIMAGE |opstring|)) (COND ((> (|#| |x|) (|charPosition| (|char| '*) |x| 0)) NIL) ('T - (SPADLET |op| + (setq |op| (COND ((STRINGP |x|) (INTERN |x|)) ('T |x|))) - (SPADLET |mmList| + (setq |mmList| (OR (|getAllModemapsFromDatabase| |op| NIL) (RETURN NIL))) - (SPADLET |opAlist| + (setq |opAlist| (CONS (CONS |op| (PROG (G174259) - (SPADLET G174259 NIL) + (setq G174259 NIL) (RETURN (DO ((G174271 |mmList| @@ -9450,20 +9450,20 @@ (SETQ G174259 (CONS (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|modemap2Sig| |op| |mm|)) - (SPADLET |predList| + (setq |predList| (CAR |LETTMP#1|)) - (SPADLET |origin| + (setq |origin| (CADR |LETTMP#1|)) - (SPADLET |sig| + (setq |sig| (CADDR |LETTMP#1|)) - (SPADLET |predicate| + (setq |predicate| (AND |predList| (MKPF |predList| 'AND))) - (SPADLET |exposed?| + (setq |exposed?| (|isExposedConstructor| (|opOf| |origin|))) (CONS |sig| @@ -9509,46 +9509,46 @@ (declare (special |$badStack|)) (RETURN (PROGN - (SPADLET |dcSig| (CAR |mm|)) - (SPADLET |conds| (CADR |mm|)) - (SPADLET |dc| (CAR |dcSig|)) - (SPADLET |sig| (CDR |dcSig|)) - (SPADLET |partial?| + (setq |dcSig| (CAR |mm|)) + (setq |conds| (CADR |mm|)) + (setq |dc| (CAR |dcSig|)) + (setq |sig| (CDR |dcSig|)) + (setq |partial?| (COND ((AND (CONSP |conds|) (EQ (QCAR |conds|) '|partial|) - (PROGN (SPADLET |r| (QCDR |conds|)) 'T)) - (SPADLET |conds| |r|)) + (PROGN (setq |r| (QCDR |conds|)) 'T)) + (setq |conds| |r|)) ('T NIL))) - (SPADLET |condlist| (|modemap2SigConds| |conds|)) - (SPADLET |LETTMP#1| + (setq |condlist| (|modemap2SigConds| |conds|)) + (setq |LETTMP#1| (OR (|getDcForm| |dc| |condlist|) (RETURN NIL))) - (SPADLET |origin| (CAR |LETTMP#1|)) - (SPADLET |vlist| (CADR |LETTMP#1|)) - (SPADLET |flist| (CADDR |LETTMP#1|)) - (SPADLET |subcondlist| (SUBLISLIS |flist| |vlist| |condlist|)) - (SPADLET |LETTMP#1| + (setq |origin| (CAR |LETTMP#1|)) + (setq |vlist| (CADR |LETTMP#1|)) + (setq |flist| (CADDR |LETTMP#1|)) + (setq |subcondlist| (SUBLISLIS |flist| |vlist| |condlist|)) + (setq |LETTMP#1| (|getSigSubst| |subcondlist| NIL |vlist| |flist|)) - (SPADLET |predList| (CAR |LETTMP#1|)) - (SPADLET |vlist| (CADR |LETTMP#1|)) - (SPADLET |flist| (CADDR |LETTMP#1|)) + (setq |predList| (CAR |LETTMP#1|)) + (setq |vlist| (CADR |LETTMP#1|)) + (setq |flist| (CADDR |LETTMP#1|)) (COND - (|partial?| (SPADLET |target| (ELT |dcSig| 1)) - (SPADLET |ntarget| + (|partial?| (setq |target| (ELT |dcSig| 1)) + (setq |ntarget| (CONS '|Union| (CONS |target| (CONS "failed" NIL)))) - (SPADLET |dcSig| (MSUBST |ntarget| |target| |dcSig|)))) - (SPADLET |alist| + (setq |dcSig| (MSUBST |ntarget| |target| |dcSig|)))) + (setq |alist| (OR (|findSubstitutionOrder?| (|pairlis| |vlist| |flist|)) (|systemError|))) - (SPADLET |predList| (|substInOrder| |alist| |predList|)) - (SPADLET |nsig| (|substInOrder| |alist| |sig|)) + (setq |predList| (|substInOrder| |alist| |predList|)) + (setq |nsig| (|substInOrder| |alist| |sig|)) (COND ((OR (|hasPatternVar| |nsig|) (|hasPatternVar| |predList|)) (|pp| "--------------") (|pp| |op|) (|pp| |predList|) (|pp| |nsig|) (|pp| |mm|) - (SPADLET |$badStack| + (setq |$badStack| (CONS (CONS |op| (CONS |mm| NIL)) |$badStack|)))) (CONS |predList| (CONS |origin| (CONS (MSUBST '% |origin| |nsig|) NIL))))))) @@ -9563,10 +9563,10 @@ (RETURN (COND ((AND (CONSP |conds|) (EQ (QCAR |conds|) 'OR) - (PROGN (SPADLET |r| (QCDR |conds|)) 'T)) + (PROGN (setq |r| (QCDR |conds|)) 'T)) (|modemap2SigConds| (CAR |r|))) ((AND (CONSP |conds|) (EQ (QCAR |conds|) 'AND) - (PROGN (SPADLET |r| (QCDR |conds|)) 'T)) + (PROGN (setq |r| (QCDR |conds|)) 'T)) |r|) ('T (CONS |conds| NIL)))))) @@ -9583,7 +9583,7 @@ ((ATOM |x|) NIL) ('T (PROG (G174353) - (SPADLET G174353 NIL) + (setq G174353 NIL) (RETURN (DO ((G174359 NIL G174353) (G174360 |x| (CDR G174360)) (|y| NIL)) @@ -9608,9 +9608,9 @@ (PROG (|k| |ISTMP#1| |LETTMP#1| |ofWord| |id| |cform| |conform|) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (OR (PROG (G174389) - (SPADLET G174389 NIL) + (setq G174389 NIL) (RETURN (DO ((G174396 NIL G174389) (G174397 |condlist| @@ -9625,8 +9625,8 @@ (COND ((AND (CONSP |x|) (PROGN - (SPADLET |k| (QCAR |x|)) - (SPADLET |ISTMP#1| + (setq |k| (QCAR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) @@ -9636,10 +9636,10 @@ (SETQ G174389 (OR G174389 |x|))))))))) (RETURN NIL))) - (SPADLET |ofWord| (CAR |LETTMP#1|)) - (SPADLET |id| (CADR |LETTMP#1|)) - (SPADLET |cform| (CADDR |LETTMP#1|)) - (SPADLET |conform| + (setq |ofWord| (CAR |LETTMP#1|)) + (setq |id| (CADR |LETTMP#1|)) + (setq |cform| (CADDR |LETTMP#1|)) + (setq |conform| (|getConstructorForm| (|opOf| |cform|))) (COND ((BOOT-EQUAL |ofWord| '|ofCategory|) @@ -9672,19 +9672,19 @@ (COND ((AND (CONSP |u|) (PROGN - (SPADLET |item| (QCAR |u|)) - (SPADLET |r| (QCDR |u|)) + (setq |item| (QCAR |u|)) + (setq |r| (QCDR |u|)) 'T)) (COND ((AND (CONSP |item|) (EQ (QCAR |item|) 'AND) - (PROGN (SPADLET |s| (QCDR |item|)) 'T)) - (SPADLET |LETTMP#1| (|getSigSubst| |s| |pl| |vl| |fl|)) - (SPADLET |pl| (CAR |LETTMP#1|)) - (SPADLET |vl| (CADR |LETTMP#1|)) - (SPADLET |fl| (CADDR |LETTMP#1|)) + (PROGN (setq |s| (QCDR |item|)) 'T)) + (setq |LETTMP#1| (|getSigSubst| |s| |pl| |vl| |fl|)) + (setq |pl| (CAR |LETTMP#1|)) + (setq |vl| (CADR |LETTMP#1|)) + (setq |fl| (CADDR |LETTMP#1|)) (|getSigSubst| |r| |pl| |vl| |fl|)) - ('T (SPADLET |key| (CAR |item|)) (SPADLET |v| (CADR |item|)) - (SPADLET |f| (CADDR |item|)) + ('T (setq |key| (CAR |item|)) (setq |v| (CADR |item|)) + (setq |f| (CADDR |item|)) (COND ((BOOT-EQUAL |key| '|isDomain|) (|getSigSubst| |r| |pl| (CONS |v| |vl|) (CONS |f| |fl|))) @@ -9734,10 +9734,10 @@ (DECLARE (SPECIAL |$localLibdb|)) (RETURN (PROGN - (SPADLET |$localLibdb| + (setq |$localLibdb| (AND (|fnameExists?| "libdb.text") "libdb.text")) - (SPADLET |lines| (|grepConstruct1| |s| |key|)) + (setq |lines| (|grepConstruct1| |s| |key|)) (COND ((IFCAR |options|) (|grepSplit| |lines| (BOOT-EQUAL |key| '|w|))) @@ -9760,11 +9760,11 @@ (DECLARE (SPECIAL |$key|)) (RETURN (SEQ (PROGN - (SPADLET |$key| |key|) + (setq |$key| |key|) (COND ((AND (BOOT-EQUAL |key| '|k|) (PROG (G174461) - (SPADLET G174461 NIL) + (setq G174461 NIL) (RETURN (DO ((G174467 NIL G174461) (G174468 (MAXINDEX |s|)) @@ -9775,12 +9775,12 @@ (OR G174461 (BOOT-EQUAL (ELT |s| |i|) (|char| '&)))))))))) - (SPADLET |key| '|y|))) - (SPADLET |filter| (|pmTransFilter| (STRINGIMAGE |s|))) + (setq |key| '|y|))) + (setq |filter| (|pmTransFilter| (STRINGIMAGE |s|))) (COND ((AND (CONSP |filter|) (EQ (QCAR |filter|) '|error|)) |filter|) - ('T (SPADLET |pattern| (|mkGrepPattern| |filter| |key|)) + ('T (setq |pattern| (|mkGrepPattern| |filter| |key|)) (|grepConstructDo| |pattern| |key|)))))))) ;grepConstructDo(x, key) == @@ -9797,14 +9797,14 @@ (declare (special |$orCount| |$localLibdb| |$newConstructorList|)) (RETURN (PROGN - (SPADLET |$orCount| 0) + (setq |$orCount| 0) (COND (|$localLibdb| - (SPADLET |oldLines| + (setq |oldLines| (|purgeNewConstructorLines| (|grepf| |x| |key| NIL) |$newConstructorList|)) - (SPADLET |newLines| (|grepf| |x| |$localLibdb| NIL)) + (setq |newLines| (|grepf| |x| |$localLibdb| NIL)) (|union| |oldLines| |newLines|)) ('T (|grepf| |x| |key| NIL))))))) @@ -9818,7 +9818,7 @@ (PROG (|conname|) (RETURN (PROGN - (SPADLET |conname| + (setq |conname| (INTERN (COND ((OR (BOOT-EQUAL |kind| (|char| '|a|)) (BOOT-EQUAL |kind| (|char| '|o|))) @@ -9832,7 +9832,7 @@ (PROG () (RETURN (SEQ (PROG (G174502) - (SPADLET G174502 NIL) + (setq G174502 NIL) (RETURN (DO ((G174508 |lines| (CDR G174508)) (|x| NIL)) ((OR (ATOM G174508) @@ -9872,28 +9872,28 @@ |$lowerCaseConTb|)) (RETURN (SEQ (COND - ((SPADLET |u| (HGET |$lowerCaseConTb| |s|)) + ((setq |u| (HGET |$lowerCaseConTb| |s|)) (CONS '|Abbreviations| (CONS |u| NIL))) - ('T (SPADLET |s| (STRINGIMAGE |s|)) - (SPADLET |someLowerCaseChar| NIL) - (SPADLET |someUpperCaseChar| NIL) + ('T (setq |s| (STRINGIMAGE |s|)) + (setq |someLowerCaseChar| NIL) + (setq |someUpperCaseChar| NIL) (DO ((G174530 (MAXINDEX |s|)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G174530) NIL) (SEQ (EXIT (PROGN - (SPADLET |c| (ELT |s| |i|)) + (setq |c| (ELT |s| |i|)) (COND ((LOWER-CASE-P |c|) (RETURN - (SPADLET |someLowerCaseChar| 'T))) + (setq |someLowerCaseChar| 'T))) ((UPPER-CASE-P |c|) - (SPADLET |someUpperCaseChar| 'T))))))) + (setq |someUpperCaseChar| 'T))))))) (COND ((OR |someLowerCaseChar| (NULL |someUpperCaseChar|)) NIL) - ('T (SPADLET |pattern| (DOWNCASE |s|)) + ('T (setq |pattern| (DOWNCASE |s|)) (CONS '|Abbreviations| (PROG (G174539) - (SPADLET G174539 NIL) + (setq G174539 NIL) (RETURN (DO ((G174545 (|allConstructors|) (CDR G174545)) @@ -9913,7 +9913,7 @@ |x|))) NIL) ('T - (SPADLET |a| + (setq |a| (GETDATABASE |x| 'ABBREVIATION)) (AND @@ -9944,11 +9944,11 @@ (COND ((ATOM |x|) (|grepFile| |x| |filename| '|i|)) (|$localLibdb| - (SPADLET |a| + (setq |a| (|purgeNewConstructorLines| (|grepf| |x| |filename| NIL) |$newConstructorList|)) - (SPADLET |b| (|grepf| |x| |$localLibdb| NIL)) + (setq |b| (|grepf| |x| |$localLibdb| NIL)) (|grepCombine| |a| |b|)) ('T (|grepf| |x| |filename| NIL)))))) @@ -9986,23 +9986,23 @@ (SEQ (COND ((AND (CONSP |pattern|) (PROGN - (SPADLET |op| (QCAR |pattern|)) - (SPADLET |argl| (QCDR |pattern|)) + (setq |op| (QCAR |pattern|)) + (setq |argl| (QCDR |pattern|)) 'T)) (COND ((BOOT-EQUAL |op| '|and|) (DO () ((NULL (AND (CONSP |argl|) (PROGN - (SPADLET |arg| (QCAR |argl|)) - (SPADLET |argl| (QCDR |argl|)) + (setq |arg| (QCAR |argl|)) + (setq |argl| (QCDR |argl|)) 'T))) NIL) - (SEQ (EXIT (SPADLET |s| (|grepf| |arg| |s| |not?|))))) + (SEQ (EXIT (setq |s| (|grepf| |arg| |s| |not?|))))) |s|) - ((BOOT-EQUAL |op| '|or|) (SPADLET |targetStack| NIL) + ((BOOT-EQUAL |op| '|or|) (setq |targetStack| NIL) (PROG (G174593) - (SPADLET G174593 NIL) + (setq G174593 NIL) (RETURN (DO ((G174598 |argl| (CDR G174598)) (|arg| NIL)) @@ -10016,14 +10016,14 @@ (COND (|not?| (|grepf| (CAR |argl|) |s| NIL)) ('T - (SPADLET |lines| + (setq |lines| (|grepf| (|mkGrepPattern| "*" |$key|) |s| NIL)) (|grepf| (CAR |argl|) |lines| 'T)))) ('T (|systemError| NIL)))) - ('T (SPADLET |option| (COND (|not?| '|iv|) ('T '|i|))) - (SPADLET |source| + ('T (setq |option| (COND (|not?| '|iv|) ('T '|i|))) + (setq |source| (COND ((LISTP |s|) (|dbWriteLines| |s|)) ('T |s|))) @@ -10047,10 +10047,10 @@ (SEQ (PROGN (COND ((BOOT-EQUAL |$browseMixedCase| 'T) - (SPADLET |s| (DOWNCASE |s|)))) + (setq |s| (DOWNCASE |s|)))) (COND ((PROG (G174618) - (SPADLET G174618 NIL) + (setq G174618 NIL) (RETURN (DO ((G174624 NIL G174618) (G174625 (MAXINDEX |s|)) @@ -10064,7 +10064,7 @@ (ELT |s| |i|)) (BOOT-EQUAL (ELT |s| |i|) |$charUnderscore|))))))))) - (OR (AND (SPADLET |parse| (|pmParseFromString| |s|)) + (OR (AND (setq |parse| (|pmParseFromString| |s|)) (|checkPmParse| |parse|)) (CONS '|error| (CONS "Illegal search string" @@ -10074,7 +10074,7 @@ " {\\em has incorrect syntax}}" NIL))))))) ((PROG (G174630) - (SPADLET G174630 NIL) + (setq G174630 NIL) (RETURN (DO ((G174636 NIL G174630) (G174637 (SPADDIFFERENCE (MAXINDEX |s|) 1)) @@ -10114,12 +10114,12 @@ (RETURN (SEQ (IF (AND (CONSP |u|) (PROGN - (SPADLET |op| (QCAR |u|)) - (SPADLET |args| (QCDR |u|)) + (setq |op| (QCAR |u|)) + (setq |args| (QCDR |u|)) 'T)) (EXIT (AND (member |op| '(|and| |or| |not|)) (PROG (G174653) - (SPADLET G174653 'T) + (setq G174653 'T) (RETURN (DO ((G174659 NIL (NULL G174653)) (G174660 |args| (CDR G174660)) @@ -10162,10 +10162,10 @@ (RETURN (SEQ (IF (AND (CONSP |s|) (EQ (QCAR |s|) '|not|) (PROGN - (SPADLET |ISTMP#1| (QCDR |s|)) + (setq |ISTMP#1| (QCDR |s|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |argx| (QCAR |ISTMP#1|)) + (setq |argx| (QCAR |ISTMP#1|)) 'T)))) (EXIT |argx|)) (EXIT (CONS '|not| (CONS |s| NIL))))))) @@ -10177,15 +10177,15 @@ ((STRINGP |x|) |x|) ((AND (CONSP |x|) (EQ (QCAR |x|) '|not|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |argl| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |argl| (QCAR |ISTMP#1|)) 'T)))) (COND ((AND (CONSP |argl|) (EQ (QCAR |argl|) '|or|) - (PROGN (SPADLET |orargs| (QCDR |argl|)) 'T)) + (PROGN (setq |orargs| (QCDR |argl|)) 'T)) (CONS '|and| (PROG (G174703) - (SPADLET G174703 NIL) + (setq G174703 NIL) (RETURN (DO ((G174708 |orargs| (CDR G174708)) (|u| NIL)) @@ -10200,10 +10200,10 @@ (|dnForm,negate| |u|)) G174703))))))))) ((AND (CONSP |argl|) (EQ (QCAR |argl|) '|and|) - (PROGN (SPADLET |andargs| (QCDR |argl|)) 'T)) + (PROGN (setq |andargs| (QCDR |argl|)) 'T)) (CONS '|or| (PROG (G174718) - (SPADLET G174718 NIL) + (setq G174718 NIL) (RETURN (DO ((G174723 |andargs| (CDR G174723)) (|u| NIL)) @@ -10219,19 +10219,19 @@ G174718))))))))) ((AND (CONSP |argl|) (EQ (QCAR |argl|) '|not|) (PROGN - (SPADLET |ISTMP#1| (QCDR |argl|)) + (setq |ISTMP#1| (QCDR |argl|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |notargl| (QCAR |ISTMP#1|)) + (setq |notargl| (QCAR |ISTMP#1|)) 'T)))) (|dnForm| |notargl|)) ('T |x|))) ((AND (CONSP |x|) (EQ (QCAR |x|) '|or|) - (PROGN (SPADLET |argl1| (QCDR |x|)) 'T)) + (PROGN (setq |argl1| (QCDR |x|)) 'T)) (CONS '|or| (PROG (G174733) - (SPADLET G174733 NIL) + (setq G174733 NIL) (RETURN (DO ((G174738 |argl1| (CDR G174738)) (|u| NIL)) @@ -10243,10 +10243,10 @@ (SEQ (EXIT (SETQ G174733 (CONS (|dnForm| |u|) G174733))))))))) ((AND (CONSP |x|) (EQ (QCAR |x|) '|and|) - (PROGN (SPADLET |argl2| (QCDR |x|)) 'T)) + (PROGN (setq |argl2| (QCDR |x|)) 'T)) (CONS '|and| (PROG (G174748) - (SPADLET G174748 NIL) + (setq G174748 NIL) (RETURN (DO ((G174753 |argl2| (CDR G174753)) (|u| NIL)) @@ -10272,13 +10272,13 @@ (RETURN (SEQ (IF (AND (CONSP |s|) (PROGN - (SPADLET |op| (QCAR |s|)) - (SPADLET |argl| (QCDR |s|)) + (setq |op| (QCAR |s|)) + (setq |argl| (QCDR |s|)) 'T)) (EXIT (SEQ (IF (STRINGP |op|) (EXIT (STRCONC |op| (PROG (G174779) - (SPADLET G174779 "") + (setq G174779 "") (RETURN (DO ((G174784 |argl| @@ -10298,7 +10298,7 @@ " " |x|))))))))))) (EXIT (CONS |op| (PROG (G174794) - (SPADLET G174794 NIL) + (setq G174794 NIL) (RETURN (DO ((G174799 |argl| @@ -10323,7 +10323,7 @@ (PROG (|u|) (RETURN (PROGN - (SPADLET |u| (|ncParseFromString| (|pmPreparse| |s|))) + (setq |u| (|ncParseFromString| (|pmPreparse| |s|))) (|dnForm| (|pmParseFromString,flatten| |u|)))))) ;pmPreparse s == hn fn(s,0,#s) where--stupid insertion of chars to get correct parse @@ -10349,9 +10349,9 @@ (PROG (|n|) (declare (special |$charUnderscore|)) (RETURN - (SEQ (IF (SPADLET |n| + (SEQ (IF (setq |n| (PROG (G174821) - (SPADLET G174821 NIL) + (setq G174821 NIL) (RETURN (DO ((G174828 NIL G174821) (|k| |i| (+ |k| 1))) @@ -10372,13 +10372,13 @@ (PROG (|i| |j| |t| |middle|) (RETURN (SEQ (IF (BOOT-EQUAL |n| |siz|) (EXIT "")) - (SPADLET |i| + (setq |i| (OR (|firstNonDelim| |s| |n|) (RETURN (SUBSTRING |s| |n| NIL)))) - (SPADLET |j| (OR (|firstDelim| |s| (+ |i| 1)) |siz|)) - (SPADLET |t| + (setq |j| (OR (|firstDelim| |s| (+ |i| 1)) |siz|)) + (setq |t| (|pmPreparse,gn| |s| |i| (SPADDIFFERENCE |j| 1))) - (SPADLET |middle| + (setq |middle| (SEQ (IF (|member| |t| '("and" "or" "not")) (EXIT |t|)) (IF (BOOT-EQUAL (ELT |t| 0) (|char| '|"|)) @@ -10405,7 +10405,7 @@ (PROG () (RETURN (SEQ (PROG (G174852) - (SPADLET G174852 NIL) + (setq G174852 NIL) (RETURN (DO ((G174859 NIL G174852) (G174860 (MAXINDEX |s|)) (|k| |n| (+ |k| 1))) @@ -10421,7 +10421,7 @@ (PROG () (RETURN (SEQ (PROG (G174869) - (SPADLET G174869 NIL) + (setq G174869 NIL) (RETURN (DO ((G174876 NIL G174869) (G174877 (MAXINDEX |s|)) (|k| |n| (+ |k| 1))) @@ -10474,31 +10474,31 @@ (RETURN (SEQ (PROGN (COND - (|doc?| (SPADLET |instream2| + (|doc?| (setq |instream2| (OPEN (STRCONC (|getEnv| "AXIOM") "/algebra/libdb.text"))))) - (SPADLET CONS (SPADLET |atts| (SPADLET |doms| NIL))) + (setq CONS (setq |atts| (setq |doms| NIL))) (DO () ((NULL (AND (CONSP |lines|) (PROGN - (SPADLET |line| (QCAR |lines|)) - (SPADLET |lines| (QCDR |lines|)) + (setq |line| (QCAR |lines|)) + (setq |lines| (QCDR |lines|)) 'T))) NIL) (SEQ (EXIT (PROGN (COND - (|doc?| (SPADLET N + (|doc?| (setq N (PARSE-INTEGER (|dbPart| |line| 1 (SPADDIFFERENCE 1)))) (COND ((NUMBERP N) (FILE-POSITION |instream2| N) - (SPADLET |line| + (setq |line| (read-line |instream2|))) ('T NIL)))) - (SPADLET |kind| (|dbKind| |line|)) + (setq |kind| (|dbKind| |line|)) (COND ((AND (NULL |$includeUnexposed?|) (NULL (|dbExposed?| |line| |kind|))) @@ -10509,22 +10509,22 @@ (|isDefaultOpAtt| |line|)) '|skip|) ((BOOT-EQUAL |kind| (|char| '|c|)) - (SPADLET |cats| + (setq |cats| (|insert| |line| |cats|))) ((BOOT-EQUAL |kind| (|char| '|d|)) - (SPADLET |doms| + (setq |doms| (|insert| |line| |doms|))) ((BOOT-EQUAL |kind| (|char| '|x|)) - (SPADLET |defs| + (setq |defs| (|insert| |line| |defs|))) ((BOOT-EQUAL |kind| (|char| '|p|)) - (SPADLET |paks| + (setq |paks| (|insert| |line| |paks|))) ((BOOT-EQUAL |kind| (|char| '|a|)) - (SPADLET |atts| + (setq |atts| (|insert| |line| |atts|))) ((BOOT-EQUAL |kind| (|char| '|o|)) - (SPADLET |ops| (|insert| |line| |ops|))) + (setq |ops| (|insert| |line| |ops|))) ((BOOT-EQUAL |kind| (|char| '-)) '|skip|) ('T (|systemError| '|kind|))))))) (COND (|doc?| (CLOSE |instream2|))) @@ -10576,7 +10576,7 @@ ('T (CONS (CAR |s|) (PROG (G174941) - (SPADLET G174941 NIL) + (setq G174941 NIL) (RETURN (DO ((G174946 (CDR |s|) (CDR G174946)) (|x| NIL)) @@ -10654,24 +10654,24 @@ (PROG (|x| |one| |tick| |prefix|) (declare (special |$options| |$wild1|)) (RETURN - (SEQ (SPADLET |one| + (SEQ (setq |one| (SEQ (IF (AND (AND (CONSP |$options|) (PROGN - (SPADLET |x| + (setq |x| (QCAR |$options|)) - (SPADLET |$options| + (setq |$options| (QCDR |$options|)) 'T)) |x|) (EXIT |x|)) (EXIT "[^x]"))) - (SPADLET |tick| "[^`]*`") + (setq |tick| "[^`]*`") (IF (BOOT-EQUAL |one| '|w|) (EXIT |s|)) (IF (BOOT-EQUAL |one| '|none|) (EXIT (SEQ (IF (BOOT-EQUAL |s| "`") (EXIT "^.")) (EXIT (STRCONC "^" |s|))))) - (SPADLET |prefix| + (setq |prefix| (SEQ (IF (BOOT-EQUAL |one| '|t|) (EXIT (STRCONC |tick| |tick| |tick| |tick| |tick| (INTERN ".*" "BOOT")))) @@ -10693,10 +10693,10 @@ (defun |mkGrepPattern1,charPosition| (|c| |t| |startpos|) (PROG (|n| |k|) (RETURN - (SEQ (SPADLET |n| (SIZE |t|)) + (SEQ (setq |n| (SIZE |t|)) (IF (OR (MINUSP |startpos|) (> |startpos| |n|)) (|error| '|index out of range|) NIL) - (SPADLET |k| |startpos|) + (setq |k| |startpos|) (DO ((G174993 (SPADDIFFERENCE |n| 1)) (|i| |startpos| (+ |i| 1))) ((OR (> |i| G174993) @@ -10706,21 +10706,21 @@ (ELT |t| (SPADDIFFERENCE |i| 1)) '_))))) NIL) - (SEQ (EXIT (SPADLET |k| (+ |k| 1))))) + (SEQ (EXIT (setq |k| (+ |k| 1))))) (EXIT |k|))))) (defun |mkGrepPattern1,split| (|s| |char|) (PROG (|max| |i| |f|) (RETURN - (SEQ (SPADLET |max| (+ (MAXINDEX |s|) 1)) - (SPADLET |f| (SPADDIFFERENCE 1)) + (SEQ (setq |max| (+ (MAXINDEX |s|) 1)) + (setq |f| (SPADDIFFERENCE 1)) (EXIT (PROG (G175010) - (SPADLET G175010 NIL) + (setq G175010 NIL) (RETURN (DO () - ((NULL (AND (<= (SPADLET |i| (+ |f| 1)) + ((NULL (AND (<= (setq |i| (+ |f| 1)) |max|) - (SPADLET |f| + (setq |f| (|mkGrepPattern1,charPosition| |char| |s| |i|)))) (NREVERSE0 G175010)) @@ -10735,7 +10735,7 @@ (declare (special |$charUnderscore|)) (RETURN (SEQ (IF (> (MAXINDEX |s|) - (SPADLET |k| + (setq |k| (|mkGrepPattern1,charPosition| (|char| |$charUnderscore|) |s| 0))) (EXIT (STRCONC (SUBSTRING |s| 0 |k|) "[" @@ -10750,28 +10750,28 @@ (RETURN (SEQ (IF (AND (CONSP |sl|) (PROGN - (SPADLET |s| (QCAR |sl|)) - (SPADLET |r| (QCDR |sl|)) + (setq |s| (QCAR |sl|)) + (setq |r| (QCDR |sl|)) 'T)) (EXIT (|mkGrepPattern1,h| |r| (CONS |$wild1| (CONS |s| |res|))))) - (SPADLET |res| (CDR |res|)) + (setq |res| (CDR |res|)) (IF (NULL (member '|w| |$options|)) (IF (NEQUAL (CAR |res|) "") - (SPADLET |res| (CONS "`" |res|)) + (setq |res| (CONS "`" |res|)) (IF (AND (AND (CONSP |res|) (PROGN - (SPADLET |ISTMP#1| (QCDR |res|)) + (setq |ISTMP#1| (QCDR |res|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |p| (QCAR |ISTMP#1|)) - (SPADLET |r| (QCDR |ISTMP#1|)) + (setq |p| (QCAR |ISTMP#1|)) + (setq |r| (QCDR |ISTMP#1|)) 'T)))) (BOOT-EQUAL |p| |$wild1|)) - (SPADLET |res| |r|) NIL)) + (setq |res| |r|) NIL)) NIL) (EXIT (PROG (G175030) - (SPADLET G175030 "") + (setq G175030 "") (RETURN (DO ((G175035 (NREVERSE |res|) (CDR G175035)) (G174956 NIL)) @@ -10789,10 +10789,10 @@ (RETURN (SEQ (IF (NULL (member '|w| |$options|)) (EXIT |s|)) (IF (BOOT-EQUAL (ELT |s| 0) (|char| '*)) - (SPADLET |s| (SUBSTRING |s| 1 NIL)) NIL) - (IF (BOOT-EQUAL (ELT |s| (SPADLET |k| (MAXINDEX |s|))) + (setq |s| (SUBSTRING |s| 1 NIL)) NIL) + (IF (BOOT-EQUAL (ELT |s| (setq |k| (MAXINDEX |s|))) (|char| '*)) - (SPADLET |s| (SUBSTRING |s| 0 |k|)) NIL) + (setq |s| (SUBSTRING |s| 0 |k|)) NIL) (EXIT |s|))))) (defun |mkGrepPattern1,addWilds| (|sl|) @@ -10807,8 +10807,8 @@ (DECLARE (SPECIAL |$options|)) (RETURN (PROGN - (SPADLET |$options| |options|) - (SPADLET |s| (STRINGIMAGE |x|)) + (setq |$options| |options|) + (setq |s| (STRINGIMAGE |x|)) (|mkGrepPattern1,addOptions| (|mkGrepPattern1,remUnderscores| (|mkGrepPattern1,addWilds| @@ -10832,17 +10832,17 @@ (PROG (|op| |args| |cosig| |atypes| |typ| |ISTMP#1| |a| |sargl|) (RETURN (SEQ (PROGN - (SPADLET |op| (CAR |form|)) - (SPADLET |args| (CDR |form|)) + (setq |op| (CAR |form|)) + (setq |args| (CDR |form|)) (COND ((NULL |args|) |form|) - ('T (SPADLET |cosig| (CDR (GETDATABASE |op| 'COSIG))) - (SPADLET |atypes| + ('T (setq |cosig| (CDR (GETDATABASE |op| 'COSIG))) + (setq |atypes| (CDR (CDAR (GETDATABASE |op| 'CONSTRUCTORMODEMAP)))) - (SPADLET |sargl| + (setq |sargl| (PROG (G175098) - (SPADLET G175098 NIL) + (setq G175098 NIL) (RETURN (DO ((G175111 |args| (CDR G175111)) (|x| NIL) @@ -10875,24 +10875,24 @@ (|pred| (|conform2OutputForm| |x|)) ('T - (SPADLET |typ| + (setq |typ| (|sublisFormal| |args| |atype|)) (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |x| |a|))) + (setq |x| |a|))) (|algCoerceInteractive| |x| |typ| '(|OutputForm|))))) G175098)))))))) @@ -10918,19 +10918,19 @@ (PROG (|htPage| |conform| |itemlist| |opAlist|) (RETURN (PROGN - (SPADLET |htPage| (|htInitPage| NIL NIL)) + (setq |htPage| (|htInitPage| NIL NIL)) (|htpSetProperty| |htPage| '|conform| - (SPADLET |conform| (|getConstructorForm| |conname|))) + (setq |conform| (|getConstructorForm| |conname|))) (|htpSetProperty| |htPage| '|kind| (STRINGIMAGE (GETDATABASE |conname| 'CONSTRUCTORKIND))) - (SPADLET |itemlist| (|assoc| |opname| (|koOps| |conform| NIL))) + (setq |itemlist| (|assoc| |opname| (|koOps| |conform| NIL))) (COND ((NULL |itemlist|) (|systemError| (CONS |conform| (CONS " has no operation named " (CONS |opname| NIL))))) - ('T (SPADLET |opAlist| (CONS |itemlist| NIL)) + ('T (setq |opAlist| (CONS |itemlist| NIL)) (|dbShowOperationsFromConform| |htPage| "operation" |opAlist|))))))) @@ -10950,11 +10950,11 @@ (DECLARE (SPECIAL |$attributeArgs|)) (RETURN (PROGN - (SPADLET |$attributeArgs| NIL) - (SPADLET |arg| (OR (IFCAR |b|) |a|)) - (SPADLET |s| (|pmParseFromString| (STRINGIMAGE |arg|))) - (SPADLET |searchOn| (COND ((ATOM |s|) |s|) ('T (IFCAR |s|)))) - (SPADLET |$attributeArgs| (IFCAR (IFCDR |s|))) + (setq |$attributeArgs| NIL) + (setq |arg| (OR (IFCAR |b|) |a|)) + (setq |s| (|pmParseFromString| (STRINGIMAGE |arg|))) + (setq |searchOn| (COND ((ATOM |s|) |s|) ('T (IFCAR |s|)))) + (setq |$attributeArgs| (IFCAR (IFCDR |s|))) (|aSearch| |searchOn|))))) ;--must recognize that not all attributes can be found in database @@ -10972,8 +10972,8 @@ (PROG (|s| |form| |op|) (RETURN (PROGN - (SPADLET |s| (PNAME |x|)) - (SPADLET |form| + (setq |s| (PNAME |x|)) + (setq |form| (OR (|ncParseFromString| |s|) (|systemError| (CONS "Argument: " @@ -10981,8 +10981,8 @@ (CONS " to spadType won't parse" NIL)))))) - (COND ((ATOM |form|) (SPADLET |form| (CONS |form| NIL)))) - (SPADLET |op| (|opOf| |form|)) + (COND ((ATOM |form|) (setq |form| (CONS |form| NIL)))) + (setq |op| (|opOf| |form|)) (COND ((|looksLikeDomainForm| |form|) (APPLY #'|conPage| |form|)) @@ -11003,16 +11003,16 @@ (PROG (|entry| |coSig| |k|) (RETURN (SEQ (PROGN - (SPADLET |entry| + (setq |entry| (OR (|getCDTEntry| (|opOf| |x|) 'T) (RETURN NIL))) - (SPADLET |coSig| (LASSOC '|coSig| (CDDR |entry|))) - (SPADLET |k| (|#| |coSig|)) + (setq |coSig| (LASSOC '|coSig| (CDDR |entry|))) + (setq |k| (|#| |coSig|)) (COND ((ATOM |x|) (EQL |k| 1)) ((NEQUAL |k| (|#| |x|)) NIL) ('T (PROG (G175176) - (SPADLET G175176 'T) + (setq G175176 'T) (RETURN (DO ((G175183 NIL (NULL G175176)) (G175184 (CDR |coSig|) (CDR G175184)) @@ -11043,11 +11043,11 @@ (PROG (|s| |form|) (RETURN (PROGN - (SPADLET |s| (PNAME |x|)) + (setq |s| (PNAME |x|)) (COND ((BOOT-EQUAL (ELT |s| 0) (|char| '|)|)) - (SPADLET |s| (SUBSTRING |s| 1 NIL)))) - (SPADLET |form| + (setq |s| (SUBSTRING |s| 1 NIL)))) + (setq |form| (OR (|ncParseFromString| |s|) (|systemError| (CONS "Argument: " @@ -11085,29 +11085,29 @@ (PROG (|includeDoc?| |regSearchAlist| |key| |docSearchAlist|) (RETURN (SEQ (COND - ((NULL (SPADLET |filter| (|checkFilter| |filter|))) NIL) + ((NULL (setq |filter| (|checkFilter| |filter|))) NIL) ((BOOT-EQUAL |filter| "*") (|htErrorStar|)) - ('T (SPADLET |includeDoc?| (NULL (IFCAR |options|))) - (SPADLET |regSearchAlist| + ('T (setq |includeDoc?| (NULL (IFCAR |options|))) + (setq |regSearchAlist| (|grepConstruct| (STRINGIMAGE |filter|) (INTERN "." "BOOT") 'T)) (COND ((AND (CONSP |regSearchAlist|) (EQ (QCAR |regSearchAlist|) '|error|)) (|bcErrorPage| |regSearchAlist|)) - ('T (SPADLET |key| (|removeSurroundingStars| |filter|)) + ('T (setq |key| (|removeSurroundingStars| |filter|)) (COND (|includeDoc?| - (SPADLET |docSearchAlist| + (setq |docSearchAlist| (|grepConstruct| |key| '|w| 'T)) (COND ((AND (CONSP |docSearchAlist|) (EQ (QCAR |docSearchAlist|) '|error|)) (|bcErrorPage| |docSearchAlist|)) ('T - (SPADLET |docSearchAlist| + (setq |docSearchAlist| (PROG (G175219) - (SPADLET G175219 NIL) + (setq G175219 NIL) (RETURN (DO ((G175225 |docSearchAlist| @@ -11135,7 +11135,7 @@ (PROG (|x| |y|) (RETURN (SEQ (PROG (G175251) - (SPADLET G175251 NIL) + (setq G175251 NIL) (RETURN (DO ((G175257 |alist| (CDR G175257)) (G175242 NIL)) @@ -11143,8 +11143,8 @@ (PROGN (SETQ G175242 (CAR G175257)) NIL) (PROGN (PROGN - (SPADLET |x| (CAR G175242)) - (SPADLET |y| (CDR G175242)) + (setq |x| (CAR G175242)) + (setq |y| (CDR G175242)) G175242) NIL)) (NREVERSE0 G175251)) @@ -11201,25 +11201,25 @@ (declare (special |$exposedOnlyIfTrue|)) (RETURN (SEQ (PROGN - (SPADLET |regSearchAlist| + (setq |regSearchAlist| (|searchDropUnexposedLines| |reg|)) - (SPADLET |docSearchAlist| + (setq |docSearchAlist| (|searchDropUnexposedLines| |doc|)) - (SPADLET |key| (|removeSurroundingStars| |filter|)) - (SPADLET |regCount| (|searchCount| |regSearchAlist|)) - (SPADLET |docCount| (|searchCount| |docSearchAlist|)) - (SPADLET |count| (+ |regCount| |docCount|)) + (setq |key| (|removeSurroundingStars| |filter|)) + (setq |regCount| (|searchCount| |regSearchAlist|)) + (setq |docCount| (|searchCount| |docSearchAlist|)) + (setq |count| (+ |regCount| |docCount|)) (COND ((EQL |count| 0) (|emptySearchPage| "entry" |filter| 'T)) ((EQL |count| 1) - (SPADLET |alist| + (setq |alist| (COND ((EQL |regCount| 1) |regSearchAlist|) ('T |docSearchAlist|))) (|showNamedConstruct| (PROG (G175286) - (SPADLET G175286 NIL) + (setq G175286 NIL) (RETURN (DO ((G175293 NIL G175286) (G175294 |alist| (CDR G175294)) @@ -11234,13 +11234,13 @@ (SETQ G175286 (OR G175286 |x|))))))))))) ('T - (SPADLET |summarize?| + (setq |summarize?| (COND (|docSearchAlist| 'T) ('T - (SPADLET |nonEmpties| + (setq |nonEmpties| (PROG (G175306) - (SPADLET G175306 NIL) + (setq G175306 NIL) (RETURN (DO ((G175312 |regSearchAlist| @@ -11263,29 +11263,29 @@ (NULL (AND (CONSP |nonEmpties|) (EQ (QCDR |nonEmpties|) NIL) (PROGN - (SPADLET |pair| + (setq |pair| (QCAR |nonEmpties|)) 'T)))))) (COND ((NULL |summarize?|) (|showNamedConstruct| |pair|)) ('T - (SPADLET |plural| + (setq |plural| (COND (|$exposedOnlyIfTrue| "exposed entries match") ('T "entries match"))) - (SPADLET |prefix| + (setq |prefix| (|pluralSay| |count| "" |plural|)) - (SPADLET |emfilter| + (setq |emfilter| (CONS "{\\em " (CONS (|escapeSpecialChars| (STRINGIMAGE |filter|)) (CONS "}" NIL)))) - (SPADLET |header| + (setq |header| (APPEND |prefix| (CONS " " |emfilter|))) - (SPADLET |page| (|htInitPage| |header| NIL)) + (setq |page| (|htInitPage| |header| NIL)) (|htpSetProperty| |page| '|regSearchAlist| |regSearchAlist|) (|htpSetProperty| |page| '|docSearchAlist| @@ -11306,8 +11306,8 @@ NIL) (PROGN (PROGN - (SPADLET |kind| (CAR G175275)) - (SPADLET |pair| (CDR G175275)) + (setq |kind| (CAR G175275)) + (setq |pair| (CDR G175275)) G175275) NIL)) NIL) @@ -11340,8 +11340,8 @@ NIL) (PROGN (PROGN - (SPADLET |kind| (CAR G175280)) - (SPADLET |pair| (CDR G175280)) + (setq |kind| (CAR G175280)) + (setq |pair| (CDR G175280)) G175280) NIL)) NIL) @@ -11366,7 +11366,7 @@ (declare (special |$exposedOnlyIfTrue|)) (RETURN (SEQ (PROG (G175388) - (SPADLET G175388 NIL) + (setq G175388 NIL) (RETURN (DO ((G175394 |alist| (CDR G175394)) (G175375 NIL)) @@ -11374,8 +11374,8 @@ (PROGN (SETQ G175375 (CAR G175394)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G175375)) - (SPADLET |lines| (CDDR G175375)) + (setq |op| (CAR G175375)) + (setq |lines| (CDDR G175375)) G175375) NIL)) (NREVERSE0 G175388)) @@ -11383,7 +11383,7 @@ (CONS (CONS |op| (CONS (PROG (G175406) - (SPADLET G175406 NIL) + (setq G175406 NIL) (RETURN (DO ((G175412 |lines| @@ -11437,10 +11437,10 @@ (declare (special |$exposedOnlyIfTrue|)) (RETURN (PROGN - (SPADLET |$exposedOnlyIfTrue| |newValue|) - (SPADLET |filter| (|htpProperty| |htPage| '|filter|)) - (SPADLET |reg| (|htpProperty| |htPage| '|regSearchAlist|)) - (SPADLET |doc| (|htpProperty| |htPage| '|docSearchAlist|)) + (setq |$exposedOnlyIfTrue| |newValue|) + (setq |filter| (|htpProperty| |htPage| '|filter|)) + (setq |reg| (|htpProperty| |htPage| '|regSearchAlist|)) + (setq |doc| (|htpProperty| |htPage| '|docSearchAlist|)) (COND (|reg| (|genSearch1| |filter| |reg| |doc|)) ('T (|docSearch1| |filter| |doc|))))))) @@ -11451,15 +11451,15 @@ (PROG (|x| |y|) (RETURN (SEQ (PROG (G175437) - (SPADLET G175437 0) + (setq G175437 0) (RETURN (DO ((G175443 |u| (CDR G175443)) (G175433 NIL)) ((OR (ATOM G175443) (PROGN (SETQ G175433 (CAR G175443)) NIL) (PROGN (PROGN - (SPADLET |x| (CAR G175433)) - (SPADLET |y| (CADR G175433)) + (setq |x| (CAR G175433)) + (setq |y| (CADR G175433)) G175433) NIL)) G175437) @@ -11494,23 +11494,23 @@ |firstName| |lines|) (RETURN (SEQ (PROGN - (SPADLET |filter| (|htpProperty| |htPage| '|filter|)) - (SPADLET |LETTMP#1| (DIVIDE |index| 8)) - (SPADLET |relativeIndex| (CAR |LETTMP#1|)) - (SPADLET |n| (CADR |LETTMP#1|)) + (setq |filter| (|htpProperty| |htPage| '|filter|)) + (setq |LETTMP#1| (DIVIDE |index| 8)) + (setq |relativeIndex| (CAR |LETTMP#1|)) + (setq |n| (CADR |LETTMP#1|)) (COND ((EQL |relativeIndex| 0) (|showNamedConstruct| (ELT |searchAlist| |n|))) - ('T (SPADLET |LETTMP#1| (ELT |searchAlist| |n|)) - (SPADLET |kind| (CAR |LETTMP#1|)) - (SPADLET |items| (CADR |LETTMP#1|)) + ('T (setq |LETTMP#1| (ELT |searchAlist| |n|)) + (setq |kind| (CAR |LETTMP#1|)) + (setq |items| (CADR |LETTMP#1|)) (DO ((|j| 1 (QSADD1 |j|))) ((NULL (> |relativeIndex| |j|)) NIL) - (SEQ (EXIT (SPADLET |items| (CDR |items|))))) - (SPADLET |firstName| (|dbName| (CAR |items|))) - (SPADLET |lines| + (SEQ (EXIT (setq |items| (CDR |items|))))) + (setq |firstName| (|dbName| (CAR |items|))) + (setq |lines| (PROG (G175489) - (SPADLET G175489 NIL) + (setq G175489 NIL) (RETURN (DO ((G175495 |items| (CDR G175495)) (|line| NIL)) @@ -11533,8 +11533,8 @@ (PROG (|kind| |lines|) (RETURN (PROGN - (SPADLET |kind| (CAR G175516)) - (SPADLET |lines| (CDDR G175516)) + (setq |kind| (CAR G175516)) + (setq |lines| (CDDR G175516)) (|dbSearch| |lines| |kind| ""))))) ;genSearchSay(pair,summarize,kind,who,fn) == @@ -11578,11 +11578,11 @@ (declare (special |$browseCountThreshold| |$includeUnexposed?|)) (RETURN (SEQ (PROGN - (SPADLET |u| (CAR |pair|)) - (SPADLET |fullLineList| (CDR |pair|)) - (SPADLET |count| (|#| |u|)) - (SPADLET |uniqueCount| (|genSearchUniqueCount| |u|)) - (SPADLET |short| + (setq |u| (CAR |pair|)) + (setq |fullLineList| (CDR |pair|)) + (setq |count| (|#| |u|)) + (setq |uniqueCount| (|genSearchUniqueCount| |u|)) + (setq |short| (AND |summarize| (>= |uniqueCount| |$browseCountThreshold|))) (|htMakePage| @@ -11614,22 +11614,22 @@ (|htSayStandard| "\\indent{4}") (|htSay| "\\newline ") (|htBeginTable|))) - (SPADLET |lastid| NIL) - (SPADLET |groups| (|organizeByName| |u|)) - (SPADLET |i| 1) + (setq |lastid| NIL) + (setq |groups| (|organizeByName| |u|)) + (setq |i| 1) (DO ((G175548 |groups| (CDR G175548)) (|group| NIL)) ((OR (ATOM G175548) (PROGN (SETQ |group| (CAR G175548)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |id| + (setq |id| (|dbGetName| (CAR |group|))) (COND (|$includeUnexposed?| - (SPADLET |exposed?| + (setq |exposed?| (PROG (G175554) - (SPADLET G175554 NIL) + (setq G175554 NIL) (RETURN (DO ((G175560 NIL G175554) @@ -11667,7 +11667,7 @@ NIL)))) NIL)) NIL)) - (SPADLET |i| (+ |i| (|#| |group|))) + (setq |i| (+ |i| (|#| |group|))) (|bcHt| "}"))))) (COND ((NEQUAL |uniqueCount| 1) (|htEndTable|) @@ -11682,22 +11682,22 @@ (PROG (|head| |x|) (RETURN (SEQ (PROG (G175590) - (SPADLET G175590 NIL) + (setq G175590 NIL) (RETURN (DO () ((NULL (AND |u| - (SPADLET |head| (|dbName| (CAR |u|))))) + (setq |head| (|dbName| (CAR |u|))))) (NREVERSE0 G175590)) (SEQ (EXIT (SETQ G175590 (CONS (PROG (G175606) - (SPADLET G175606 NIL) + (setq G175606 NIL) (RETURN (DO () ((NULL (AND |u| (BOOT-EQUAL |head| (|dbName| - (SPADLET |x| + (setq |x| (CAR |u|)))))) (NREVERSE0 G175606)) (SEQ @@ -11705,7 +11705,7 @@ (SETQ G175606 (CONS (PROGN - (SPADLET |u| + (setq |u| (CDR |u|)) |x|) G175606))))))) @@ -11719,9 +11719,9 @@ (PROG (|lines| |kind| |filter|) (RETURN (PROGN - (SPADLET |lines| (CAR G175625)) - (SPADLET |kind| (CADR G175625)) - (SPADLET |filter| (|htpProperty| |htPage| '|filter|)) + (setq |lines| (CAR G175625)) + (setq |kind| (CADR G175625)) + (setq |filter| (|htpProperty| |htPage| '|filter|)) (|dbSearch| |lines| |kind| |filter|))))) ;genSearchUniqueCount(u) == @@ -11740,19 +11740,19 @@ (declare (special |$browseCountThreshold|)) (RETURN (SEQ (PROGN - (SPADLET |count| 0) - (SPADLET |lastid| NIL) + (setq |count| 0) + (setq |lastid| NIL) (DO ((G175649 |u| (CDR G175649)) (|item| NIL)) ((OR (ATOM G175649) (PROGN (SETQ |item| (CAR G175649)) NIL) (NULL (> |$browseCountThreshold| |count|))) NIL) (SEQ (EXIT (PROGN - (SPADLET |id| (|dbGetName| |item|)) + (setq |id| (|dbGetName| |item|)) (COND ((NEQUAL |id| |lastid|) - (SPADLET |count| (+ |count| 1)) - (SPADLET |lastid| |id|)) + (setq |count| (+ |count| 1)) + (setq |lastid| |id|)) ('T NIL)))))) |count|))))) @@ -11776,16 +11776,16 @@ (PROG (|x| |item| |colon|) (RETURN (PROGN - (SPADLET |item| + (setq |item| (COND ((AND (CONSP |options|) (PROGN - (SPADLET |x| (QCAR |options|)) - (SPADLET |options| (QCDR |options|)) + (setq |x| (QCAR |options|)) + (setq |options| (QCDR |options|)) 'T)) |x|) ('T ""))) - (SPADLET |colon| + (setq |colon| (COND ((IFCAR |options|) ":") ('T ""))) @@ -11813,19 +11813,19 @@ (PROG (|key| |docSearchAlist|) (RETURN (SEQ (COND - ((NULL (SPADLET |filter| (|checkFilter| |filter|))) NIL) + ((NULL (setq |filter| (|checkFilter| |filter|))) NIL) ((BOOT-EQUAL |filter| "*") (|htErrorStar|)) - ('T (SPADLET |key| (|removeSurroundingStars| |filter|)) - (SPADLET |docSearchAlist| + ('T (setq |key| (|removeSurroundingStars| |filter|)) + (setq |docSearchAlist| (|grepConstruct| |filter| '|w| 'T)) (COND ((AND (CONSP |docSearchAlist|) (EQ (QCAR |docSearchAlist|) '|error|)) (|bcErrorPage| |docSearchAlist|)) ('T - (SPADLET |docSearchAlist| + (setq |docSearchAlist| (PROG (G175687) - (SPADLET G175687 NIL) + (setq G175687 NIL) (RETURN (DO ((G175693 |docSearchAlist| (CDR G175693)) @@ -11868,16 +11868,16 @@ |kind| |pair|) (RETURN (SEQ (PROGN - (SPADLET |docSearchAlist| + (setq |docSearchAlist| (|searchDropUnexposedLines| |doc|)) - (SPADLET |count| (|searchCount| |docSearchAlist|)) + (setq |count| (|searchCount| |docSearchAlist|)) (COND ((EQL |count| 0) (|emptySearchPage| "entry" |filter| 'T)) ((EQL |count| 1) (|showNamedConstruct| (PROG (G175713) - (SPADLET G175713 NIL) + (setq G175713 NIL) (RETURN (DO ((G175720 NIL G175713) (G175721 |docSearchAlist| @@ -11894,19 +11894,19 @@ (OR G175713 |x|))))))))) 1)) ('T - (SPADLET |prefix| + (setq |prefix| (|pluralSay| |count| "entry matches" "entries match")) - (SPADLET |emfilter| + (setq |emfilter| (CONS "{\\em " (CONS (|escapeSpecialChars| (STRINGIMAGE |filter|)) (CONS "}" NIL)))) - (SPADLET |header| + (setq |header| (APPEND |prefix| (CONS " " |emfilter|))) - (SPADLET |page| (|htInitPage| |header| NIL)) + (setq |page| (|htInitPage| |header| NIL)) (|htpSetProperty| |page| '|docSearchAlist| |docSearchAlist|) (|htpSetProperty| |page| '|regSearchAlist| NIL) @@ -11923,8 +11923,8 @@ (PROGN (SETQ G175708 (CAR G175737)) NIL) (PROGN (PROGN - (SPADLET |kind| (CAR G175708)) - (SPADLET |pair| (CDR G175708)) + (setq |kind| (CAR G175708)) + (setq |pair| (CDR G175708)) G175708) NIL)) NIL) @@ -11948,14 +11948,14 @@ (PROG (|max| |key|) (RETURN (PROGN - (SPADLET |key| (STRINGIMAGE |filter|)) + (setq |key| (STRINGIMAGE |filter|)) (COND ((BOOT-EQUAL (ELT |key| 0) (|char| '*)) - (SPADLET |key| (SUBSTRING |key| 1 NIL)))) + (setq |key| (SUBSTRING |key| 1 NIL)))) (COND - ((BOOT-EQUAL (ELT |key| (SPADLET |max| (MAXINDEX |key|))) + ((BOOT-EQUAL (ELT |key| (setq |max| (MAXINDEX |key|))) (|char| '*)) - (SPADLET |key| (SUBSTRING |key| 0 |max|)))) + (setq |key| (SUBSTRING |key| 0 |max|)))) |key|)))) ;showNamedDoc([kind,:lines],index) == @@ -11965,8 +11965,8 @@ (PROG (|kind| |lines|) (RETURN (PROGN - (SPADLET |kind| (CAR G175764)) - (SPADLET |lines| (CDR G175764)) + (setq |kind| (CAR G175764)) + (setq |lines| (CDR G175764)) (|dbGather| |kind| |lines| (SPADDIFFERENCE |index| 1) 'T))))) ;sayDocMessage message == @@ -11991,26 +11991,26 @@ (COND ((AND (CONSP |message|) (PROGN - (SPADLET |leftEnd| (QCAR |message|)) - (SPADLET |ISTMP#1| (QCDR |message|)) + (setq |leftEnd| (QCAR |message|)) + (setq |ISTMP#1| (QCDR |message|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |left| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |left| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |middle| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |middle| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |right| + (setq |right| (QCAR |ISTMP#3|)) - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |rightEnd| + (setq |rightEnd| (QCAR |ISTMP#4|)) 'T)))))))))) (|htSay| |leftEnd| |left| "}") @@ -12042,21 +12042,21 @@ (PROG (|k| |new| |progress|) (RETURN (SEQ (PROGN - (SPADLET |progress| 'T) + (setq |progress| 'T) (DO () ((NULL (AND (> |n| 0) (BOOT-EQUAL |progress| 'T))) NIL) (SEQ (EXIT (PROGN - (SPADLET |n| (SPADDIFFERENCE |n| 1)) - (SPADLET |k| + (setq |n| (SPADDIFFERENCE |n| 1)) + (setq |k| (|charPosition| (|char| '|`|) |s| 0)) - (SPADLET |new| + (setq |new| (SUBSTRING |s| (+ |k| 1) NIL)) (COND ((QSLESSP (|#| |new|) (|#| |s|)) - (SPADLET |s| |new|)) - ('T (SPADLET |progress| NIL))))))) + (setq |s| |new|)) + ('T (setq |progress| NIL))))))) (COND ((EQL |n| 0) |s|) ('T NIL))))))) ;replaceTicksBySpaces s == @@ -12069,10 +12069,10 @@ (PROG (|max| |n|) (RETURN (SEQ (PROGN - (SPADLET |n| (SPADDIFFERENCE 1)) - (SPADLET |max| (MAXINDEX |s|)) + (setq |n| (SPADDIFFERENCE 1)) + (setq |max| (MAXINDEX |s|)) (DO () - ((NULL (<= (SPADLET |n| + ((NULL (<= (setq |n| (|charPosition| (|char| '|`|) |s| (+ |n| 1))) |max|)) @@ -12086,7 +12086,7 @@ (defun |aSearch| (|filter|) (COND - ((NULL (SPADLET |filter| (|checkFilter| |filter|))) NIL) + ((NULL (setq |filter| (|checkFilter| |filter|))) NIL) ('T (|dbSearch| (|grepConstruct| |filter| '|a|) "attribute" |filter|)))) @@ -12102,11 +12102,11 @@ (PROG (|opAlist| |key|) (RETURN (COND - ((SPADLET |opAlist| (|opPageFastPath| |filter|)) + ((setq |opAlist| (|opPageFastPath| |filter|)) (|opPageFast| |opAlist|)) - ('T (SPADLET |key| '|o|) + ('T (setq |key| '|o|) (COND - ((NULL (SPADLET |filter| (|checkFilter| |filter|))) NIL) + ((NULL (setq |filter| (|checkFilter| |filter|))) NIL) ((BOOT-EQUAL |filter| "*") (|grepSearchQuery| "operation" (CONS |filter| @@ -12132,7 +12132,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| (|htInitPage| "Query Page" NIL)) + (setq |page| (|htInitPage| "Query Page" NIL)) (|htpSetProperty| |page| '|items| |items|) (|htQuery| (CONS "{\\em Do you want a list of {\\em all} " @@ -12162,7 +12162,7 @@ ((ATOM |x|) |x|) ('T (PROG (G176116) - (SPADLET G176116 NIL) + (setq G176116 NIL) (RETURN (DO ((G176121 |x| (CDR G176121)) (|y| NIL)) ((OR (ATOM G176121) @@ -12189,11 +12189,11 @@ (PROG (|LETTMP#1| |filter| |key| |kind| |fn|) (RETURN (PROGN - (SPADLET |LETTMP#1| (|htpProperty| |htPage| '|items|)) - (SPADLET |filter| (CAR |LETTMP#1|)) - (SPADLET |key| (CADR |LETTMP#1|)) - (SPADLET |kind| (CADDR |LETTMP#1|)) - (SPADLET |fn| (CADDDR |LETTMP#1|)) + (setq |LETTMP#1| (|htpProperty| |htPage| '|items|)) + (setq |filter| (CAR |LETTMP#1|)) + (setq |key| (CADR |LETTMP#1|)) + (setq |kind| (CADDR |LETTMP#1|)) + (setq |fn| (CADDDR |LETTMP#1|)) (FUNCALL |fn| |filter| |key| |kind|))))) ;--======================================================================= @@ -12218,13 +12218,13 @@ (|bcErrorPage| |lines|)) ((NULL |filter|) NIL) ((AND (CONSP |lines|) (EQ (QCAR |lines|) '|Abbreviations|) - (PROGN (SPADLET |r| (QCDR |lines|)) 'T)) + (PROGN (setq |r| (QCDR |lines|)) 'T)) (|dbSearchAbbrev| |lines| |kind| |filter|)) ('T (COND ((|member| |kind| '("attribute" "operation")) - (SPADLET |lines| (|dbScreenForDefaultFunctions| |lines|)))) - (SPADLET |count| (|#| |lines|)) + (setq |lines| (|dbScreenForDefaultFunctions| |lines|)))) + (setq |count| (|#| |lines|)) (COND ((EQL |count| 0) (|emptySearchPage| |kind| |filter|)) ((|member| |kind| '("attribute" "operation")) @@ -12259,17 +12259,17 @@ |s|) (RETURN (SEQ (PROGN - (SPADLET |conlist| (CDR G176172)) + (setq |conlist| (CDR G176172)) (COND ((NULL |conlist|) (|emptySearchPage| "abbreviation" |filter|)) - ('T (SPADLET |kind| (|intern| |kind|)) + ('T (setq |kind| (|intern| |kind|)) (COND ((NEQUAL |kind| '|constructor|) - (SPADLET |conlist| + (setq |conlist| (PROG (G176192) - (SPADLET G176192 NIL) + (setq G176192 NIL) (RETURN (DO ((G176198 |conlist| (CDR G176198)) @@ -12290,16 +12290,16 @@ (COND ((AND (CONSP |conlist|) (EQ (QCDR |conlist|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |conlist|)) + (setq |ISTMP#1| (QCAR |conlist|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |nam| (QCAR |ISTMP#1|)) + (setq |nam| (QCAR |ISTMP#1|)) 'T)))) (|conPage| (DOWNCASE |nam|))) ('T - (SPADLET |cAlist| + (setq |cAlist| (PROG (G176208) - (SPADLET G176208 NIL) + (setq G176208 NIL) (RETURN (DO ((G176213 |conlist| (CDR G176213)) @@ -12313,12 +12313,12 @@ (SETQ G176208 (CONS (CONS |con| 'T) G176208)))))))) - (SPADLET |htPage| + (setq |htPage| (|htInitPage| "" NIL)) (|htpSetProperty| |htPage| '|cAlist| |cAlist|) (|htpSetProperty| |htPage| '|thing| NIL) (RETURN (|dbShowCons| |htPage| '|names|)) - (SPADLET |page| + (setq |page| (|htInitPage| (CONS (|#| |conlist|) (CONS @@ -12334,16 +12334,16 @@ NIL) (PROGN (PROGN - (SPADLET |nam| (CAR G176166)) - (SPADLET |abbr| (CADR G176166)) - (SPADLET |r| (CDDR G176166)) + (setq |nam| (CAR G176166)) + (setq |abbr| (CADR G176166)) + (setq |r| (CDDR G176166)) G176166) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |kind| (LASSOC '|kind| |r|)) + (setq |kind| (LASSOC '|kind| |r|)) (|htSay| "\\newline{\\em " - (SPADLET |s| + (setq |s| (STRINGIMAGE |abbr|))) (|htSayStandard| "\\tab{10}") @@ -12406,10 +12406,10 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| "Detailed Search with Options" NIL)) - (SPADLET |filter| (|escapeSpecialChars| (PNAME |filter|))) + (setq |filter| (|escapeSpecialChars| (PNAME |filter|))) (|bcHt| "Select what you want to search for, then click on {\\em Search} below") (|bcHt| "\\newline{\\it Note:} Logical searches using {\\em and}, {\\em or}, and {\\em not} are not permitted here.") (|htSayHrule|) @@ -12504,55 +12504,55 @@ (declare (special |$htPage|)) (RETURN (PROGN - (SPADLET |$htPage| |htPage|) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |which| (|htpButtonValue| |htPage| '|which|)) - (SPADLET |selectors| + (setq |$htPage| |htPage|) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |which| (|htpButtonValue| |htPage| '|which|)) + (setq |selectors| (COND ((BOOT-EQUAL |which| '|cons|) '(|conname| |connargs| |consig|)) ((BOOT-EQUAL |which| '|ops|) '(|opname| |opnargs| |opsig|)) ('T '(|attrname| |attrnargs| |attrargs|)))) - (SPADLET |name| + (setq |name| (|generalSearchString| |htPage| (ELT |selectors| 0))) - (SPADLET |nargs| + (setq |nargs| (|generalSearchString| |htPage| (ELT |selectors| 1))) - (SPADLET |npat| + (setq |npat| (|standardizeSignature| (|generalSearchString| |htPage| (ELT |selectors| 2)))) - (SPADLET |kindCode| + (setq |kindCode| (COND ((BOOT-EQUAL |which| '|ops|) (|char| '|o|)) ((BOOT-EQUAL |which| '|attrs|) (|char| '|a|)) - ('T (SPADLET |acc| "") + ('T (setq |acc| "") (COND ((|htButtonOn?| |htPage| '|cats|) - (SPADLET |acc| (STRCONC (|char| '|c|) |acc|)))) + (setq |acc| (STRCONC (|char| '|c|) |acc|)))) (COND ((|htButtonOn?| |htPage| '|doms|) - (SPADLET |acc| (STRCONC (|char| '|d|) |acc|)))) + (setq |acc| (STRCONC (|char| '|d|) |acc|)))) (COND ((|htButtonOn?| |htPage| '|paks|) - (SPADLET |acc| (STRCONC (|char| '|p|) |acc|)))) + (setq |acc| (STRCONC (|char| '|p|) |acc|)))) (COND ((|htButtonOn?| |htPage| '|defs|) - (SPADLET |acc| (STRCONC (|char| '|x|) |acc|)))) - (SPADLET |n| (|#| |acc|)) + (setq |acc| (STRCONC (|char| '|x|) |acc|)))) + (setq |n| (|#| |acc|)) (COND ((OR (EQL |n| 0) (EQL |n| 4)) "[cdpx]") ((EQL |n| 1) |acc|) ('T (STRCONC (|char| '[) |acc| (|char| ']))))))) - (SPADLET |form| + (setq |form| (|mkDetailedGrepPattern| |kindCode| |name| |nargs| |npat|)) - (SPADLET |lines| (|applyGrep| |form| '|libdb|)) + (setq |lines| (|applyGrep| |form| '|libdb|)) (COND ((member |which| '(|ops| |attrs|)) - (SPADLET |lines| (|dbScreenForDefaultFunctions| |lines|)))) - (SPADLET |kind| + (setq |lines| (|dbScreenForDefaultFunctions| |lines|)))) + (setq |kind| (COND ((BOOT-EQUAL |which| '|cons|) (COND @@ -12582,7 +12582,7 @@ (PROG (|string|) (RETURN (PROGN - (SPADLET |string| (|htpLabelInputString| |htPage| |sel|)) + (setq |string| (|htpLabelInputString| |htPage| |sel|)) (COND ((BOOT-EQUAL |string| "") "*") ('T |string|)))))) @@ -12594,10 +12594,10 @@ (PROG (|ISTMP#1| |a|) (RETURN (AND (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (LASSOC |key| (|htpInputAreaAlist| |htPage|))) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |a| (QCAR |ISTMP#1|)) 'T))) (BOOT-EQUAL |a| " t"))))) ;mkDetailedGrepPattern(kind,name,nargs,argOrSig) == main where @@ -12626,7 +12626,7 @@ (PROG (|m|) (declare (special |$tick|)) (RETURN - (SEQ (SPADLET |m| (MAXINDEX |a|)) + (SEQ (setq |m| (MAXINDEX |a|)) (IF (AND (AND (AND (AND (AND (AND (> |m| 6) (BOOT-EQUAL @@ -12660,15 +12660,15 @@ (declare (special |$saturn| |$tick|)) (RETURN (PROGN - (SPADLET |nottick| "[^`]") - (SPADLET |name| (|replaceGrepStar| |name|)) - (SPADLET |firstPart| + (setq |nottick| "[^`]") + (setq |name| (|replaceGrepStar| |name|)) + (setq |firstPart| (COND (|$saturn| (STRCONC (|char| '^) |name|)) ('T (STRCONC (|char| '^) |kind| |name|)))) - (SPADLET |nargsPart| (|replaceGrepStar| |nargs|)) - (SPADLET |exposedPart| (|char| (INTERN "." "BOOT"))) - (SPADLET |patPart| (|replaceGrepStar| |argOrSig|)) + (setq |nargsPart| (|replaceGrepStar| |nargs|)) + (setq |exposedPart| (|char| (INTERN "." "BOOT"))) + (setq |patPart| (|replaceGrepStar| |argOrSig|)) (|mkDetailedGrepPattern,simp| (STRCONC (|mkDetailedGrepPattern,conc| |firstPart| (|mkDetailedGrepPattern,conc| |nargsPart| @@ -12688,8 +12688,8 @@ (RETURN (COND ((BOOT-EQUAL |s| '||) |s|) - ('T (SPADLET |final| (MAXINDEX |s|)) - (SPADLET |i| (|charPosition| (|char| '*) |s| 0)) + ('T (setq |final| (MAXINDEX |s|)) + (setq |i| (|charPosition| (|char| '*) |s| 0)) (COND ((> |i| |final|) |s|) ('T @@ -12710,7 +12710,7 @@ (COND ((BOOT-EQUAL (ELT |s| 0) (|char| '|(|)) |s|) ('T - (SPADLET |k| + (setq |k| (OR (STRPOS "->" |s| 0 NIL) (RETURN |s|))) (COND @@ -12731,7 +12731,7 @@ (PROG (|m|) (RETURN (SEQ (IF (> |i| |n|) (EXIT "")) - (IF (> (SPADLET |m| (|charPosition| (|char| '$) |s| |i|)) + (IF (> (setq |m| (|charPosition| (|char| '$) |s| |i|)) |n|) (EXIT (SUBSTRING |s| |i| NIL))) (EXIT (STRCONC (SUBSTRING |s| |i| (SPADDIFFERENCE |m| |i|)) @@ -12764,7 +12764,7 @@ (PROG (|pathname|) (RETURN (PROGN - (SPADLET |pathname| (|mkGrepFile| |kind|)) + (setq |pathname| (|mkGrepFile| |kind|)) (|obey| (STRCONC "rm -f " |pathname|)) |pathname|)))) @@ -12785,12 +12785,12 @@ (PROG (|firstPart| |key| |address| |instream|) (RETURN (PROGN - (SPADLET |firstPart| (|dbPart| |line| 1 (SPADDIFFERENCE 1))) - (SPADLET |key| (INTERN (SUBSTRING |firstPart| 0 1))) - (SPADLET |address| (SUBSTRING |firstPart| 1 NIL)) - (SPADLET |instream| (OPEN (|grepSource| |key|))) + (setq |firstPart| (|dbPart| |line| 1 (SPADDIFFERENCE 1))) + (setq |key| (INTERN (SUBSTRING |firstPart| 0 1))) + (setq |address| (SUBSTRING |firstPart| 1 NIL)) + (setq |instream| (OPEN (|grepSource| |key|))) (FILE-POSITION |instream| (PARSE-INTEGER |address|)) - (SPADLET |line| (read-line |instream|)) + (setq |line| (read-line |instream|)) (CLOSE |instream|) |line|)))) @@ -12835,12 +12835,12 @@ (declare (special |$standard| |$aixTestSaturn| $spadroot)) (RETURN (PROGN - (SPADLET |prefix| + (setq |prefix| (COND ((OR |$standard| |$aixTestSaturn|) "/tmp/") ('T (STRCONC $SPADROOT "/algebra/")))) - (SPADLET |suffix| (|getEnv| "SPADNUM")) + (setq |suffix| (|getEnv| "SPADNUM")) (STRCONC |prefix| (PNAME |s|) ".txt." |suffix|))))) ;--======================================================================= @@ -12875,23 +12875,23 @@ (declare (special |$standard| |$aixTestSaturn|)) (RETURN (PROGN - (SPADLET |key| + (setq |key| (COND - ((SPADLET |x| (IFCAR |options|)) - (SPADLET |options| (CDR |options|)) |x|) + ((setq |x| (IFCAR |options|)) + (setq |options| (CDR |options|)) |x|) ('T NIL))) - (SPADLET |source| (|grepSource| |key|)) - (SPADLET |lines| + (setq |source| (|grepSource| |key|)) + (setq |lines| (COND ((NULL (PROBE-FILE |source|)) NIL) ((OR |$standard| |$aixTestSaturn|) - (SPADLET |target| (|getTempPath| '|target|)) - (SPADLET |casepart| + (setq |target| (|getTempPath| '|target|)) + (setq |casepart| (COND ((member '|iv| |options|) "-vi") ('T "-i"))) - (SPADLET |command| + (setq |command| (STRCONC "grep " |casepart| " '" |pattern| "' " |source|)) @@ -12906,7 +12906,7 @@ (STRCONC |command| " > " |target|)))) (|dbReadLines| |target|)) - ('T (SPADLET |invert?| (member '|iv| |options|)) + ('T (setq |invert?| (member '|iv| |options|)) (GREP |source| |pattern| NIL (NULL |invert?|))))) (|dbUnpatchLines| |lines|))))) @@ -12926,19 +12926,19 @@ (PROG (|dash| |line| |acc|) (RETURN (SEQ (PROGN - (SPADLET |dash| (|char| '-)) - (SPADLET |acc| NIL) + (setq |dash| (|char| '-)) + (setq |acc| NIL) (DO () ((NULL (AND (CONSP |lines|) (PROGN - (SPADLET |line| (QCAR |lines|)) - (SPADLET |lines| (QCDR |lines|)) + (setq |line| (QCAR |lines|)) + (setq |lines| (QCDR |lines|)) 'T))) NIL) (SEQ (EXIT (COND ((EQL (|#| |line|) 0) '|skip|) ('T - (SPADLET |acc| + (setq |acc| (COND ((AND (BOOT-EQUAL (ELT |line| 0) @@ -12970,91 +12970,91 @@ ;----------------------> Global Variables <----------------------- ;$includeUnexposed? := true --default setting -(SPADLET |$includeUnexposed?| 'T) +(setq |$includeUnexposed?| 'T) ;$tick := char '_` --field separator for database files -(SPADLET |$tick| (|char| '|`|)) +(setq |$tick| (|char| '|`|)) ;$charUnderscore := ('__) --needed because of parser bug -(SPADLET |$charUnderscore| '_) +(setq |$charUnderscore| '_) ;$wild1 := '"[^`]*" --phrase used to convert keys to grep strings -(SPADLET |$wild1| "[^`]*") +(setq |$wild1| "[^`]*") ;$browseCountThreshold := 10 --the maximum number of names that will display -(SPADLET |$browseCountThreshold| 10) +(setq |$browseCountThreshold| 10) ; --on a general search ;$opDescriptionThreshold := 4 --if <= 4 operations with unique name, give desc -(SPADLET |$opDescriptionThreshold| 4) +(setq |$opDescriptionThreshold| 4) ; --otherwise, give signatures ;$browseMixedCase := true --distinquish case in the browser? -(SPADLET |$browseMixedCase| 'T) +(setq |$browseMixedCase| 'T) ;$docTable := nil --cache for documentation table -(SPADLET |$docTable| NIL) +(setq |$docTable| NIL) ;$conArgstrings := nil --bound by conPage so that kPage -(SPADLET |$conArgstrings| NIL) +(setq |$conArgstrings| NIL) ; --will display arguments if given ;$conformsAreDomains := false --are all arguments of a constructor given? -(SPADLET |$conformsAreDomains| NIL) +(setq |$conformsAreDomains| NIL) ;$returnNowhereFromGoGet := false --special branch out for goget for browser -(SPADLET |$returnNowhereFromGoGet| NIL) +(setq |$returnNowhereFromGoGet| NIL) ;$dbDataFunctionAlist := nil --set by dbGatherData -(SPADLET |$dbDataFunctionAlist| NIL) +(setq |$dbDataFunctionAlist| NIL) ;$domain := nil --bound in koOps -(SPADLET |$domain| NIL) +(setq |$domain| NIL) ;$infovec := nil --bound in koOps -(SPADLET |$infovec| NIL) +(setq |$infovec| NIL) ;$predvec := nil --bound in koOps -(SPADLET |$predvec| NIL) +(setq |$predvec| NIL) ;$exposedOnlyIfTrue := nil --see repeatSearch, dbShowOps, dbShowCon -(SPADLET |$exposedOnlyIfTrue| NIL) +(setq |$exposedOnlyIfTrue| NIL) ;$bcMultipleNames := nil --see bcNameConTable -(SPADLET |$bcMultipleNames| NIL) +(setq |$bcMultipleNames| NIL) ;$bcConformBincount := nil --see bcConform1 -(SPADLET |$bcConformBincount| NIL) +(setq |$bcConformBincount| NIL) ;$docTableHash := MAKE_-HASHTABLE 'EQUAL --see dbExpandOpAlistIfNecessary -(SPADLET |$docTableHash| (MAKE-HASHTABLE 'EQUAL)) +(setq |$docTableHash| (MAKE-HASHTABLE 'EQUAL)) ;$groupChoice := nil --see dbShowOperationsFromConform -(SPADLET |$groupChoice| NIL) +(setq |$groupChoice| NIL) ;------------------> Initial Settings <--------------------- ;$pmFilterDelimiters := [char '_(,char '_),char '_ ] -(SPADLET |$pmFilterDelimiters| +(setq |$pmFilterDelimiters| (CONS (|char| '|(|) (CONS (|char| '|)|) (CONS (|char| '| |) NIL)))) @@ -13063,7 +13063,7 @@ $dbKindAlist := ; [char 'd,:'"domain"],[char 'p,:'"package"], ; [char 'c,:'"category"],[char 'x,:'"default_ package"]] -(SPADLET |$dbKindAlist| +(setq |$dbKindAlist| (CONS (CONS (|char| '|a|) "attribute") (CONS (CONS (|char| '|o|) "operation") (CONS (CONS (|char| '|d|) "domain") @@ -13086,7 +13086,7 @@ $dbKindAlist := ; (implementation nil "Implementation Domains" dbShowOpImplementations) ; (conditions "Condition" "Conditions" dbShowOpConditions)) -(SPADLET |$OpViewTable| +(setq |$OpViewTable| '((|names| "Name" "Names" |dbShowOpNames|) (|documentation| "Name" "Names" |dbShowOpDocumentation|) (|domains| "Domain" "Domains" |dbShowOpDomains|) @@ -13133,7 +13133,7 @@ $dbKindAlist := ("package" . "Package") ("default package" . "Default Package"))) (PROGN - (SPADLET |res| (COPY-SEQ |s|)) + (setq |res| (COPY-SEQ |s|)) (SETELT |res| 0 (UPCASE (ELT |res| 0))) |res|))))) @@ -13217,16 +13217,16 @@ $dbKindAlist := (declare (special |$htCharAlist| |$htSpecialChars|)) (RETURN (SEQ (COND - ((SPADLET |x| (LASSOC |u| |$htCharAlist|)) (CONS |x| NIL)) + ((setq |x| (LASSOC |u| |$htCharAlist|)) (CONS |x| NIL)) ((EQL (|#| |u|) 1) (COND ((|member| |u| |$htSpecialChars|) (CONS (CONCAT "\\" |u|) NIL)) ('T (CONS |u| NIL)))) - ('T (SPADLET |c| (|char| (ELT |u| 0))) + ('T (setq |c| (|char| (ELT |u| 0))) (COND ((PROG (G176470) - (SPADLET G176470 NIL) + (setq G176470 NIL) (RETURN (DO ((G176476 NIL G176470) (G176477 |$htSpecialChars| (CDR G176477)) @@ -13255,20 +13255,20 @@ $dbKindAlist := (PROG (|look|) (RETURN (SEQ (PROGN - (SPADLET |look| 0) + (setq |look| 0) (DO () ((NULL |look|) NIL) (SEQ (EXIT (COND ((>= |look| (SIZE |com|)) - (SPADLET |look| NIL)) + (setq |look| NIL)) ('T - (SPADLET |look| + (setq |look| (STRPOSL "${}#%" |com| |look| NIL)) (COND - (|look| (SPADLET |com| + (|look| (setq |com| (RPLACSTR |com| |look| 0 "\\")) - (SPADLET |look| (+ |look| 2))) + (setq |look| (+ |look| 2))) ('T NIL))))))) |com|))))) @@ -13320,7 +13320,7 @@ $dbKindAlist := (PROG (|s|) (declare (special |$emList|)) (RETURN - (SEQ (SPADLET |s| (|form2HtString| |c|)) + (SEQ (setq |s| (|form2HtString| |c|)) (IF (|member| |s| |$emList|) (EXIT (|htSay| "{\\em " |s| "}"))) @@ -13348,17 +13348,17 @@ $dbKindAlist := (EXIT (SEQ (|bcConform| (CAR |l|) |$emList|) (|htSay| " has ") (PROGN - (SPADLET |a| (CAR |l|)) - (SPADLET |b| (CADR |l|)) + (setq |a| (CAR |l|)) + (setq |b| (CADR |l|)) |l|) (IF (AND (AND (CONSP |b|) (EQ (QCAR |b|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |b|)) + (setq |ISTMP#1| (QCDR |b|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |c| (QCAR |ISTMP#1|)) + (setq |c| (QCAR |ISTMP#1|)) 'T)))) (NULL (|constructor?| |c|))) (EXIT (|htPred2English,fnAttr| |c|))) @@ -13371,17 +13371,17 @@ $dbKindAlist := (RETURN (SEQ (IF (AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |l| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |l| (QCDR |x|)) 'T)) (EXIT (SEQ (IF (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (LASSOC |op| |$precList|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |iprec| + (setq |iprec| (QCAR |ISTMP#1|)) - (SPADLET |rename| + (setq |rename| (QCDR |ISTMP#1|)) 'T))) (EXIT (SEQ @@ -13425,8 +13425,8 @@ $dbKindAlist := (DECLARE (SPECIAL |$emList| |$precList|)) (RETURN (PROGN - (SPADLET |$emList| (IFCAR |options|)) - (SPADLET |$precList| + (setq |$emList| (IFCAR |options|)) + (setq |$precList| '((OR 10 . "or") (AND 9 . "and") (< 5) (<= 5) (> 5) (>= 5) (= 5) (^= 5) (|or| 10) (|and| 9))) (|htPred2English,fn| |x| 100))))) @@ -13442,14 +13442,14 @@ $dbKindAlist := (SEQ (COND ((AND (CONSP |u|) (EQ (QCAR |u|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |a| (QCAR |ISTMP#1|)) 'T)))) |a|) ((AND (CONSP |u|) (EQ (QCAR |u|) 'LIST) - (PROGN (SPADLET |r| (QCDR |u|)) 'T)) + (PROGN (setq |r| (QCDR |u|)) 'T)) (PROG (G176584) - (SPADLET G176584 NIL) + (setq G176584 NIL) (RETURN (DO ((G176589 |r| (CDR G176589)) (|x| NIL)) ((OR (ATOM G176589) @@ -13474,7 +13474,7 @@ $dbKindAlist := (IF (ATOM |u|) (EXIT (|systemError|))) (EXIT (CONS "(" (APPEND (PROG (G176603) - (SPADLET G176603 NIL) + (setq G176603 NIL) (RETURN (DO ((G176608 |u| (CDR G176608)) @@ -13505,7 +13505,7 @@ $dbKindAlist := (RETURN (COND ((NULL |x|) "") - ('T (SPADLET |emList| (IFCAR |options|)) + ('T (setq |emList| (IFCAR |options|)) (SUBSTRING (|form2HtString| (CONS '|f| |x|) |emList|) 1 NIL)))))) ;quickForm2HtString(x) == @@ -13561,7 +13561,7 @@ $dbKindAlist := (EXIT (SEQ (IF (member |x| |$FormalMapVariableList|) (EXIT (STRCONC "\\" (STRINGIMAGE |x|)))) - (SPADLET |u| + (setq |u| (|escapeSpecialChars| (STRINGIMAGE |x|))) (IF (member |x| |$emList|) @@ -13587,10 +13587,10 @@ $dbKindAlist := (IF (BOOT-EQUAL (CAR |x|) '|construct|) (EXIT (|form2HtString,fnTail| (CDR |x|) "[]"))) - (SPADLET |tail| + (setq |tail| (|form2HtString,fnTail| (CDR |x|) "()")) - (SPADLET |head| (|form2HtString,fn| (CAR |x|))) + (setq |head| (|form2HtString,fn| (CAR |x|))) (EXIT (STRCONC |head| |tail|)))))) (defun |form2HtString| (&REST G176659 &AUX |options| |x|) @@ -13599,8 +13599,8 @@ $dbKindAlist := (DECLARE (SPECIAL |$emList| |$brief|)) (RETURN (PROGN - (SPADLET |$emList| (IFCAR |options|)) - (SPADLET |$brief| (IFCAR (IFCDR |options|))) + (setq |$emList| (IFCAR |options|)) + (setq |$brief| (IFCAR (IFCDR |options|))) (|form2HtString,fn| |x|))))) ;sexpr2HtString x == @@ -13616,8 +13616,8 @@ $dbKindAlist := (defun |sexpr2HtString,fn| (|x|) (PROG (|r| |suffix|) (RETURN - (SEQ (SPADLET |r| (CDR |x|)) - (SPADLET |suffix| + (SEQ (setq |r| (CDR |x|)) + (setq |suffix| (SEQ (IF (NULL |r|) (EXIT "")) (IF (ATOM |r|) (EXIT (STRCONC " . " @@ -13661,24 +13661,24 @@ $dbKindAlist := ('T (STRINGIMAGE |x|)))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |a| (QCAR |ISTMP#1|)) 'T)))) (STRCONC "'" (|sexpr2LispString| |a|))) ((AND (CONSP |x|) (EQ (QCAR |x|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |a| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) - (PROGN (SPADLET |b| (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (STRCONC (|form2LispString| |a|) ":" (|form2LispString| |b|))) ((BOOT-EQUAL (CAR |x|) '|Mapping|) (COND - ((NULL (CDR (SPADLET |r| (CDR |x|)))) + ((NULL (CDR (setq |r| (CDR |x|)))) (STRCONC "()->" (|form2LispString| (CAR |r|)))) ('T (STRCONC (|args2LispString| (CDR |r|)) "->" @@ -13700,8 +13700,8 @@ $dbKindAlist := (defun |sexpr2LispString,fn| (|x|) (PROG (|r| |suffix|) (RETURN - (SEQ (SPADLET |r| (CDR |x|)) - (SPADLET |suffix| + (SEQ (setq |r| (CDR |x|)) + (setq |suffix| (SEQ (IF (NULL |r|) (EXIT "")) (IF (ATOM |r|) (EXIT (STRCONC " . " @@ -13749,13 +13749,13 @@ $dbKindAlist := (declare (special |$defaultPackageNamesHT|)) (RETURN (PROGN - (SPADLET |target| + (setq |target| (CADAR (GETDATABASE |x| 'CONSTRUCTORMODEMAP))) (COND ((BOOT-EQUAL |target| '(|Category|)) '|category|) ((AND (CONSP |target|) (EQ (QCAR |target|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|package|)))) '|package|) @@ -13820,7 +13820,7 @@ $dbKindAlist := (PROG (|italics?|) (RETURN (SEQ (PROGN - (SPADLET |italics?| (NULL (IFCAR |options|))) + (setq |italics?| (NULL (IFCAR |options|))) (COND ((STRINGP |comments|) (COND @@ -13856,8 +13856,8 @@ $dbKindAlist := (DECLARE (SPECIAL |$italics?| |$italicHead?|)) (RETURN (PROGN - (SPADLET |$italics?| (IFCAR |options|)) - (SPADLET |$italicHead?| (IFCAR (IFCDR |options|))) + (setq |$italics?| (IFCAR |options|)) + (setq |$italicHead?| (IFCAR (IFCDR |options|))) (|bcConform1| |form|))))) ;bcConstructor(form is [op,:arglist],cname) == --called only when $conformsAreDomains @@ -13868,8 +13868,8 @@ $dbKindAlist := (PROG (|op| |arglist|) (RETURN (PROGN - (SPADLET |op| (CAR |form|)) - (SPADLET |arglist| (CDR |form|)) + (setq |op| (CAR |form|)) + (setq |arglist| (CDR |form|)) (|htSayList| (|dbConformGen| |form|)))))) ;htSayList u == @@ -13910,15 +13910,15 @@ $dbKindAlist := (SEQ (COND ((AND (CONSP |form|) (PROGN - (SPADLET |op| (QCAR |form|)) - (SPADLET |argl| (QCDR |form|)) + (setq |op| (QCAR |form|)) + (setq |argl| (QCDR |form|)) 'T)) (COND ((NULL |argl|) 'T) ((BOOT-EQUAL |op| 'QUOTE) 'T) ('T (PROG (G176824) - (SPADLET G176824 'T) + (setq G176824 'T) (RETURN (DO ((G176830 NIL (NULL G176824)) (G176831 |argl| (CDR G176831)) (|x| NIL)) @@ -13948,8 +13948,8 @@ $dbKindAlist := (PROG (|argString| |s|) (RETURN (PROGN - (SPADLET |argString| (OR (IFCAR |options|) "")) - (SPADLET |s| (STRINGIMAGE |name|)) + (setq |argString| (OR (IFCAR |options|) "")) + (setq |s| (STRINGIMAGE |name|)) (|bcStar| |name|) (|htSayConstructorName| |s| |s|) (|htSay| |argString|))))) @@ -13964,8 +13964,8 @@ $dbKindAlist := (PROG (|s| |a|) (RETURN (PROGN - (SPADLET |s| (STRINGIMAGE |name|)) - (SPADLET |a| (STRINGIMAGE |abb|)) + (setq |s| (STRINGIMAGE |name|)) + (setq |a| (STRINGIMAGE |abb|)) (|bcStar| |name|) (|htSayConstructorName| |a| |s|))))) @@ -14027,11 +14027,11 @@ $dbKindAlist := (PROG (|u| |n| |t|) (RETURN (PROGN - (SPADLET |u| (GETDATABASE |name| 'SOURCEFILE)) + (setq |u| (GETDATABASE |name| 'SOURCEFILE)) (COND ((NULL |u|) "") - ('T (SPADLET |n| (PATHNAME-NAME |u|)) - (SPADLET |t| (PATHNAME-TYPE |u|)) + ('T (setq |n| (PATHNAME-NAME |u|)) + (setq |t| (PATHNAME-TYPE |u|)) (STRCONC |n| "." |t|))))))) ;extractFileNameFromPath s == fn(s,0,#s) where @@ -14043,7 +14043,7 @@ $dbKindAlist := (defun |extractFileNameFromPath,fn| (|s| |i| |m|) (PROG (|k|) (RETURN - (SEQ (SPADLET |k| (|charPosition| (|char| '/) |s| |i|)) + (SEQ (setq |k| (|charPosition| (|char| '/) |s| |i|)) (IF (BOOT-EQUAL |k| |m|) (EXIT (SUBSTRING |s| |i| NIL))) (EXIT (|extractFileNameFromPath,fn| |s| (+ |k| 1) |m|)))))) @@ -14066,7 +14066,7 @@ $dbKindAlist := (RETURN (SEQ (PROGN (|htBeginTable|) - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((G176928 |u| (CDR G176928)) (|op| NIL) (|i| 0 (QSADD1 |i|))) ((OR (ATOM G176928) @@ -14074,7 +14074,7 @@ $dbKindAlist := NIL) (SEQ (EXIT (PROGN (COND - (|firstTime| (SPADLET |firstTime| NIL)) + (|firstTime| (setq |firstTime| NIL)) ('T (|htSaySaturn| "&"))) (|htSay| "{") (|htMakePage| @@ -14099,7 +14099,7 @@ $dbKindAlist := (DECLARE (SPECIAL |$bcMultipleNames|)) (RETURN (PROGN - (SPADLET |$bcMultipleNames| (NEQUAL (|#| |u|) 1)) + (setq |$bcMultipleNames| (NEQUAL (|#| |u|) 1)) (|bcConTable| (REMDUP |u|)))))) ; -- bcConTable u @@ -14120,14 +14120,14 @@ $dbKindAlist := (RETURN (SEQ (PROGN (|htBeginTable|) - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((G176956 |u| (CDR G176956)) (|con| NIL)) ((OR (ATOM G176956) (PROGN (SETQ |con| (CAR G176956)) NIL)) NIL) (SEQ (EXIT (PROGN (COND - (|firstTime| (SPADLET |firstTime| NIL)) + (|firstTime| (setq |firstTime| NIL)) ('T (|htSaySaturn| "&"))) (|htSay| "{") (|bcStarSpace| (|opOf| |con|)) @@ -14153,23 +14153,23 @@ $dbKindAlist := (RETURN (SEQ (PROGN (|htBeginTable|) - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((G176989 (REMDUP |u|) (CDR G176989)) (|x| NIL)) ((OR (ATOM G176989) (PROGN (SETQ |x| (CAR G176989)) NIL)) NIL) (SEQ (EXIT (PROGN (COND - (|firstTime| (SPADLET |firstTime| NIL)) + (|firstTime| (setq |firstTime| NIL)) ('T (|htSaySaturn| "&"))) (COND ((AND (CONSP |x|) (PROGN - (SPADLET |con| (QCAR |x|)) - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |con| (QCAR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |abb| + (setq |abb| (QCAR |ISTMP#1|)) 'T)))) (|htSay| "{") @@ -14204,26 +14204,26 @@ $dbKindAlist := |pred|) (RETURN (SEQ (PROGN - (SPADLET |italicList| (IFCAR |options|)) + (setq |italicList| (IFCAR |options|)) (|htBeginTable|) - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((G177036 |u| (CDR G177036)) (G177014 NIL)) ((OR (ATOM G177036) (PROGN (SETQ G177014 (CAR G177036)) NIL) (PROGN (PROGN - (SPADLET |conform| (CAR G177014)) - (SPADLET |pred| (CDR G177014)) + (setq |conform| (CAR G177014)) + (setq |pred| (CDR G177014)) G177014) NIL)) NIL) (SEQ (EXIT (PROGN (COND - (|firstTime| (SPADLET |firstTime| NIL)) + (|firstTime| (setq |firstTime| NIL)) ('T (|htSaySaturn| "&"))) (|htSay| "{") (|bcStarSpace| (|opOf| |conform|)) - (SPADLET |form| + (setq |form| (COND ((ATOM |conform|) (|getConstructorForm| @@ -14232,13 +14232,13 @@ $dbKindAlist := (|bcConform| |form| |italicList|) (COND ((PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (|extractHasArgs| |pred|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |arglist| + (setq |arglist| (QCAR |ISTMP#1|)) - (SPADLET |pred| + (setq |pred| (QCDR |ISTMP#1|)) 'T))) (|htSay| " {\\em of} ") @@ -14264,7 +14264,7 @@ $dbKindAlist := ((OR (BOOT-EQUAL |pred| "") (BOOT-EQUAL |pred| 'T) (NULL |pred|)) '|skip|) - ('T (SPADLET |italicList| (IFCAR |options|)) + ('T (setq |italicList| (IFCAR |options|)) (COND ((NULL (IFCAR (IFCDR |options|))) (|htSay| " {\\em if} "))) @@ -14284,13 +14284,13 @@ $dbKindAlist := (RETURN (SEQ (IF (AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |argl| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |argl| (QCDR |x|)) 'T)) (EXIT (SEQ (IF (BOOT-EQUAL |op| '|hasArgs|) (EXIT |x|)) (IF (member |op| '(AND OR NOT)) (EXIT (PROG (G177067) - (SPADLET G177067 NIL) + (setq G177067 NIL) (RETURN (DO ((G177073 NIL G177067) @@ -14316,7 +14316,7 @@ $dbKindAlist := (PROG (|x|) (RETURN (PROGN - (SPADLET |x| (OR (|extractHasArgs,find| |pred|) (RETURN NIL))) + (setq |x| (OR (|extractHasArgs,find| |pred|) (RETURN NIL))) (CONS (CDR |x|) (|simpBool| (MSUBST 'T |x| |pred|))))))) ;splitConTable cons == @@ -14331,14 +14331,14 @@ $dbKindAlist := (PROG (|con| |pred| |uncond| |cond|) (RETURN (SEQ (PROGN - (SPADLET |uncond| (SPADLET |cond| NIL)) + (setq |uncond| (setq |cond| NIL)) (DO ((G177102 CONS (CDR G177102)) (|pair| NIL)) ((OR (ATOM G177102) (PROGN (SETQ |pair| (CAR G177102)) NIL) (PROGN (PROGN - (SPADLET |con| (CAR |pair|)) - (SPADLET |pred| (CDR |pair|)) + (setq |con| (CAR |pair|)) + (setq |pred| (CDR |pair|)) |pair|) NIL)) NIL) @@ -14347,8 +14347,8 @@ $dbKindAlist := ((OR (BOOT-EQUAL |pred| 'T) (AND (CONSP |pred|) (EQ (QCAR |pred|) '|hasArgs|))) - (SPADLET |uncond| (CONS |pair| |uncond|))) - ('T (SPADLET |cond| (CONS |pair| |cond|))))))) + (setq |uncond| (CONS |pair| |uncond|))) + ('T (setq |cond| (CONS |pair| |cond|))))))) (CONS (NREVERSE |uncond|) (NREVERSE |cond|))))))) ;bcNameTable(u,fn,:option) == --option if * prefix @@ -14371,14 +14371,14 @@ $dbKindAlist := (SEQ (PROGN (|htSay| "\\newline") (|htBeginTable|) - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((G177128 |u| (CDR G177128)) (|x| NIL)) ((OR (ATOM G177128) (PROGN (SETQ |x| (CAR G177128)) NIL)) NIL) (SEQ (EXIT (PROGN (COND - (|firstTime| (SPADLET |firstTime| NIL)) + (|firstTime| (setq |firstTime| NIL)) ('T (|htSaySaturn| "&"))) (|htSay| "{") (COND ((IFCAR |option|) (|bcStar| |x|))) @@ -14386,7 +14386,7 @@ $dbKindAlist := (CONS (CONS '|bcLinks| (CONS (CONS - (SPADLET |s| + (setq |s| (|escapeSpecialChars| (STRINGIMAGE |x|))) (CONS "" @@ -14417,13 +14417,13 @@ $dbKindAlist := (PROG (|linkFunction| |firstTime|) (RETURN (SEQ (PROGN - (SPADLET |linkFunction| + (setq |linkFunction| (COND ((IFCAR |options|) '|bcLispLinks|) ('T '|bcLinks|))) (|htSay| "\\newline") (|htBeginTable|) - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((|i| 0 (QSADD1 |i|)) (G177152 |u| (CDR G177152)) (|x| NIL)) ((OR (ATOM G177152) @@ -14431,7 +14431,7 @@ $dbKindAlist := NIL) (SEQ (EXIT (PROGN (COND - (|firstTime| (SPADLET |firstTime| NIL)) + (|firstTime| (setq |firstTime| NIL)) ('T (|htSaySaturn| "&"))) (|htSay| "{") (|htMakePage| @@ -14478,20 +14478,20 @@ $dbKindAlist := (RETURN (SEQ (PROGN (|bcHt| "\\newline ") - (SPADLET |count| + (setq |count| (COND ((AND (CONSP |countOrPrefix|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (REVERSE |countOrPrefix|)) 'T) (CONSP |ISTMP#1|) (PROGN - (SPADLET |c| (QCAR |ISTMP#1|)) - (SPADLET |prefix| (QCDR |ISTMP#1|)) + (setq |c| (QCAR |ISTMP#1|)) + (setq |prefix| (QCDR |ISTMP#1|)) 'T) (PROGN - (SPADLET |prefix| (NREVERSE |prefix|)) + (setq |prefix| (NREVERSE |prefix|)) 'T)) (|htSay| |prefix|) |c|) ('T |countOrPrefix|))) @@ -14524,7 +14524,7 @@ $dbKindAlist := (PROG (|x| |y|) (RETURN (SEQ (PROG (G177211) - (SPADLET G177211 NIL) + (setq G177211 NIL) (RETURN (DO ((G177217 (|htpPropertyList| |htPage|) (CDR G177217)) @@ -14533,8 +14533,8 @@ $dbKindAlist := (PROGN (SETQ G177202 (CAR G177217)) NIL) (PROGN (PROGN - (SPADLET |x| (CAR G177202)) - (SPADLET |y| (CDR G177202)) + (setq |x| (CAR G177202)) + (setq |y| (CDR G177202)) G177202) NIL)) (NREVERSE0 G177211)) @@ -14554,7 +14554,7 @@ $dbKindAlist := ((BOOT-EQUAL '|category| (GETDATABASE |name| 'CONSTRUCTORKIND)) NIL) ('T (|loadLibIfNotLoaded| |name|) - (COND ((SPADLET |u| (GETL |name| '|infovec|)) |u|))))))) + (COND ((setq |u| (GETL |name| '|infovec|)) |u|))))))) ;emptySearchPage(kind,filter,:options) == ; skipNamePart := IFCAR options @@ -14575,13 +14575,13 @@ $dbKindAlist := (declare (special |$includeUnexposed?|)) (RETURN (PROGN - (SPADLET |skipNamePart| (IFCAR |options|)) - (SPADLET |heading| + (setq |skipNamePart| (IFCAR |options|)) + (setq |heading| (CONS "No " (CONS (|capitalize| |kind|) (CONS " Found" NIL)))) (|htInitPage| |heading| NIL) - (SPADLET |exposePart| + (setq |exposePart| (COND ((NULL |$includeUnexposed?|) "{\\em exposed} ") @@ -14607,7 +14607,7 @@ $dbKindAlist := (RETURN (SEQ (COND ((PROG (G177248) - (SPADLET G177248 'T) + (setq G177248 'T) (RETURN (DO ((G177254 NIL (NULL G177248)) (G177255 (MAXINDEX |s|)) (|i| 0 (QSADD1 |i|))) @@ -14628,7 +14628,7 @@ $dbKindAlist := (PROG (|s|) (RETURN (PROGN - (SPADLET |s| (|htpLabelInputString| |htPage| '|filter|)) + (setq |s| (|htpLabelInputString| |htPage| '|filter|)) (COND ((OR (NULL |s|) (BOOT-EQUAL |s| "")) "*") @@ -14650,7 +14650,7 @@ $dbKindAlist := (RETURN (SEQ (COND ((AND (CONSP |u|) (EQ (QCAR |u|) '|error|) - (PROGN (SPADLET |r| (QCDR |u|)) 'T)) + (PROGN (setq |r| (QCDR |u|)) 'T)) (|htInitPage| (CAR |r|) NIL) (|bcBlankLine|) (DO ((G177274 (CDR |r|) (CDR G177274)) (|x| NIL)) ((OR (ATOM G177274) @@ -14674,9 +14674,9 @@ $dbKindAlist := (PROG (|heading| |kind| |info|) (RETURN (SEQ (PROGN - (SPADLET |heading| (CAR G177285)) - (SPADLET |kind| (CADR G177285)) - (SPADLET |info| (CDDR G177285)) + (setq |heading| (CAR G177285)) + (setq |kind| (CADR G177285)) + (setq |info| (CDDR G177285)) (COND ((BOOT-EQUAL |kind| '|invalidType|) (|kInvalidTypePage| (CAR |info|))) @@ -14736,7 +14736,7 @@ $dbKindAlist := (PROG (|upLink?|) (RETURN (PROGN - (SPADLET |upLink?| (IFCAR |options|)) + (setq |upLink?| (IFCAR |options|)) (COND (|question| (|htSay| "\\vspace{1}\\centerline{") (|htSay| |question|) (|htSay| "}"))) @@ -14844,9 +14844,9 @@ $dbKindAlist := (PROG (|LETTMP#1| |nargs| |r|) (RETURN (PROGN - (SPADLET |LETTMP#1| (|dbParts| |line| |n| |m|)) - (SPADLET |nargs| (CADR |LETTMP#1|)) - (SPADLET |r| (CDDR |LETTMP#1|)) + (setq |LETTMP#1| (|dbParts| |line| |n| |m|)) + (setq |nargs| (CADR |LETTMP#1|)) + (setq |r| (CDDR |LETTMP#1|)) (CONS (|dbKindString| (ELT |line| 0)) (CONS (|dbName| |line|) (CONS (PARSE-INTEGER |nargs|) |r|))))))) @@ -14865,7 +14865,7 @@ $dbKindAlist := ('T (CONS (SUBSTRING |line| |m| (+ (SPADDIFFERENCE |m|) - (SPADLET |k| + (setq |k| (|charPosition| |$tick| |line| |m|)))) (|dbParts| |line| (SPADDIFFERENCE |n| 1) (+ |k| 1)))))))) @@ -14889,10 +14889,10 @@ $dbKindAlist := (PROG (|kind| |conform| |k|) (RETURN (COND - ((OR (BOOT-EQUAL (SPADLET |kind| (ELT |line| 0)) (|char| '|a|)) + ((OR (BOOT-EQUAL (setq |kind| (ELT |line| 0)) (|char| '|a|)) (BOOT-EQUAL |kind| (|char| '|o|))) - (SPADLET |conform| (|dbPart| |line| 5 1)) - (SPADLET |k| (|charPosition| (|char| '|(|) |conform| 1)) + (setq |conform| (|dbPart| |line| 5 1)) + (setq |k| (|charPosition| (|char| '|(|) |conform| 1)) (SUBSTRING |conform| 1 (SPADDIFFERENCE |k| 1))) ('T (|dbName| |line|)))))) @@ -14936,20 +14936,20 @@ $dbKindAlist := |infoAlist| |opAlist|) (RETURN (PROGN - (SPADLET |which| "operation") + (setq |which| "operation") (|htpSetProperty| |htPage| '|which| |which|) - (SPADLET |domname| (|htpProperty| |htPage| '|domname|)) - (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) - (SPADLET |heading| + (setq |domname| (|htpProperty| |htPage| '|domname|)) + (setq |conform| (|htpProperty| |htPage| '|conform|)) + (setq |heading| (CONS "Capsule Cross Reference for " (|htpProperty| |htPage| '|heading|))) - (SPADLET |page| + (setq |page| (|htInitPage| |heading| (|htCopyProplist| |htPage|))) - (SPADLET |conname| (|opOf| |conform|)) + (setq |conname| (|opOf| |conform|)) (|htpSetProperty| |page| '|infoAlist| - (SPADLET |infoAlist| (|getInfoAlist| |conname|))) + (setq |infoAlist| (|getInfoAlist| |conname|))) (|dbGetExpandedOpAlist| |page|) - (SPADLET |opAlist| + (setq |opAlist| (|kciReduceOpAlist| (|htpProperty| |page| '|opAlist|) |infoAlist|)) (|dbShowOperationsFromConform| |page| |which| |opAlist|))))) @@ -14968,9 +14968,9 @@ $dbKindAlist := (PROG (|op| |items| |u| |sig| |sig1| |y| |res|) (RETURN (SEQ (PROGN - (SPADLET |res| + (setq |res| (PROG (G177437) - (SPADLET G177437 NIL) + (setq G177437 NIL) (RETURN (DO ((G177448 |opAlist| (CDR G177448)) (G177410 NIL)) @@ -14980,20 +14980,20 @@ $dbKindAlist := NIL) (PROGN (PROGN - (SPADLET |op| (CAR G177410)) - (SPADLET |items| + (setq |op| (CAR G177410)) + (setq |items| (CDR G177410)) G177410) NIL)) (NREVERSE0 G177437)) (SEQ (EXIT (COND ((COND - ((SPADLET |u| + ((setq |u| (LASSOC |op| |infoAlist|)) (COND - ((SPADLET |y| + ((setq |y| (PROG (G177460) - (SPADLET G177460 + (setq G177460 NIL) (RETURN (DO @@ -15018,14 +15018,14 @@ $dbKindAlist := (CONSP |x|) (PROGN - (SPADLET + (setq |sig| (QCAR |x|)) 'T) (PROG (G177472) - (SPADLET + (setq G177472 NIL) (RETURN @@ -15051,7 +15051,7 @@ $dbKindAlist := NIL) (PROGN (PROGN - (SPADLET + (setq |sig1| (CAR G177405)) @@ -15077,13 +15077,13 @@ $dbKindAlist := (SETQ G177437 (CONS (COND - ((SPADLET |u| + ((setq |u| (LASSOC |op| |infoAlist|)) (COND - ((SPADLET |y| + ((setq |y| (PROG (G177493) - (SPADLET G177493 + (setq G177493 NIL) (RETURN (DO @@ -15109,14 +15109,14 @@ $dbKindAlist := (CONSP |x|) (PROGN - (SPADLET + (setq |sig| (QCAR |x|)) 'T) (PROG (G177505) - (SPADLET + (setq G177505 NIL) (RETURN @@ -15142,7 +15142,7 @@ $dbKindAlist := NIL) (PROGN (PROGN - (SPADLET + (setq |sig1| (CAR G177405)) @@ -15178,8 +15178,8 @@ $dbKindAlist := (PROG (|sigAlist| |itemlist|) (RETURN (COND - ((AND (SPADLET |sigAlist| (LASSOC |op| |infoAlist|)) - (SPADLET |itemlist| (LASSOC |sig| |sigAlist|))) + ((AND (setq |sigAlist| (LASSOC |op| |infoAlist|)) + (setq |itemlist| (LASSOC |sig| |sigAlist|))) (|dbShowInfoOp| |htPage| |op| |sig| |itemlist|)) ('T NIL))))) @@ -15266,43 +15266,43 @@ $dbKindAlist := (declare (special |$FormalMapVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |heading| (|htpProperty| |htPage| '|heading|)) - (SPADLET |domname| (|htpProperty| |htPage| '|domname|)) - (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) - (SPADLET |opAlist| (|htpProperty| |htPage| '|opAlist|)) - (SPADLET |conname| (|opOf| |conform|)) - (SPADLET |kind| (GETDATABASE |conname| 'CONSTRUCTORKIND)) - (SPADLET |honestConform| + (setq |heading| (|htpProperty| |htPage| '|heading|)) + (setq |domname| (|htpProperty| |htPage| '|domname|)) + (setq |conform| (|htpProperty| |htPage| '|conform|)) + (setq |opAlist| (|htpProperty| |htPage| '|opAlist|)) + (setq |conname| (|opOf| |conform|)) + (setq |kind| (GETDATABASE |conname| 'CONSTRUCTORKIND)) + (setq |honestConform| (COND ((BOOT-EQUAL |kind| '|category|) (CONS (INTERN (STRCONC (PNAME |conname|) "&")) (CONS '$ (CDR |conform|)))) ('T |conform|))) - (SPADLET |faTypes| + (setq |faTypes| (CDDAR (GETDATABASE |conname| 'CONSTRUCTORMODEMAP))) - (SPADLET |conArgTypes| + (setq |conArgTypes| (SUBLISLIS (IFCDR |conform|) (TAKE (|#| |faTypes|) |$FormalMapVariableList|) |faTypes|)) - (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) - (SPADLET |conname| (|opOf| |conform|)) - (SPADLET |ops| + (setq |conform| (|htpProperty| |htPage| '|conform|)) + (setq |conname| (|opOf| |conform|)) + (setq |ops| (|escapeSpecialChars| (STRINGIMAGE (|zeroOneConvert| |op|)))) - (SPADLET |oppart| + (setq |oppart| (CONS "{\\em " (CONS |ops| (CONS "}" NIL)))) - (SPADLET |head| + (setq |head| (COND (|sig| (APPEND |oppart| (CONS ": " (|dbConformGen| (|dbInfoSig| |sig|))))) ('T |oppart|))) - (SPADLET |heading| + (setq |heading| (APPEND |head| (CONS " from {\\sf " (CONS (|form2HtString| |conform|) @@ -15312,22 +15312,22 @@ $dbKindAlist := (PROGN (SETQ |u| (CAR G177589)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| (CAR |u|)) - (SPADLET |y| (CDR |u|)) + (setq |x| (CAR |u|)) + (setq |y| (CDR |u|)) (COND ((BOOT-EQUAL |x| '|locals|) - (SPADLET |locals| |y|)) + (setq |locals| |y|)) ((BOOT-EQUAL |x| '|arguments|) - (SPADLET |arguments| |y|)) + (setq |arguments| |y|)) ('T - (SPADLET |fromAlist| + (setq |fromAlist| (CONS (CONS |x| (|zeroOneConvertAlist| |y|)) |fromAlist|)))))))) - (SPADLET |fromAlist| + (setq |fromAlist| (PROGN - (SPADLET CONS (SPADLET |args| NIL)) + (setq CONS (setq |args| NIL)) (DO ((G177599 |fromAlist| (CDR G177599)) (|p| NIL)) ((OR (ATOM G177599) @@ -15336,37 +15336,37 @@ $dbKindAlist := NIL) (PROGN (PROGN - (SPADLET |x| (CAR |p|)) - (SPADLET |y| (CDR |p|)) + (setq |x| (CAR |p|)) + (setq |y| (CDR |p|)) |p|) NIL)) NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |x| $) - (SPADLET |dollar| + (setq |dollar| (CONS (CONS |honestConform| |y|) NIL))) ((BOOT-EQUAL |x| '|Rep|) - (SPADLET |rep| + (setq |rep| (CONS (CONS '|Rep| |y|) NIL))) ((IDENTP |x|) - (SPADLET |args| + (setq |args| (CONS (|dbInfoFindCat| |conform| |conArgTypes| |p|) |args|))) ('T - (SPADLET CONS + (setq CONS (CONS (|dbInfoTran| |x| |y|) CONS))))))) (APPEND (|mySort| |args|) (APPEND |dollar| (APPEND |rep| (|mySort| CONS)))))) - (SPADLET |sigAlist| (LASSOC |op| |opAlist|)) - (SPADLET |item| + (setq |sigAlist| (LASSOC |op| |opAlist|)) + (setq |item| (OR (PROG (G177606) - (SPADLET G177606 NIL) + (setq G177606 NIL) (RETURN (DO ((G177613 NIL G177606) (G177614 |sigAlist| @@ -15381,18 +15381,18 @@ $dbKindAlist := (COND ((AND (CONSP |x|) (PROGN - (SPADLET |sig1| (QCAR |x|)) + (setq |sig1| (QCAR |x|)) 'T) (BOOT-EQUAL |sig1| |sig|)) (SETQ G177606 (OR G177606 |x|))))))))) (|systemError| "cannot find signature"))) - (SPADLET |sig| (CAR |item|)) - (SPADLET |pred| (CADR |item|)) - (SPADLET |origin| (CADDR |item|)) - (SPADLET |exposeFlag| (CADDDR |item|)) - (SPADLET |doc| (CAR (CDDDDR |item|))) + (setq |sig| (CAR |item|)) + (setq |pred| (CADR |item|)) + (setq |origin| (CADDR |item|)) + (setq |exposeFlag| (CADDDR |item|)) + (setq |doc| (CAR (CDDDDR |item|))) (|htpSetProperty| |htPage| '|fromAlist| |fromAlist|) (|htSayHline|) (|htSay| "\\center{Cross Reference for definition of {\\em " @@ -15401,15 +15401,15 @@ $dbKindAlist := (|locals| (|htSay| "\\item\\menuitemstyle{}{\\em local variables:}\\newline") (|dbShowInfoList| |locals| 8192 NIL))) - (SPADLET |bincount| 2) + (setq |bincount| 2) (DO ((G177635 |fromAlist| (CDR G177635)) (G177578 NIL)) ((OR (ATOM G177635) (PROGN (SETQ G177578 (CAR G177635)) NIL) (PROGN (PROGN - (SPADLET |con| (CAR G177578)) - (SPADLET |fns| (CDR G177578)) + (setq |con| (CAR G177578)) + (setq |fns| (CDR G177578)) G177578) NIL)) NIL) @@ -15424,7 +15424,7 @@ $dbKindAlist := (|htSay| |con|) (COND ((PROG (G177642) - (SPADLET G177642 'T) + (setq G177642 'T) (RETURN (DO ((G177653 NIL @@ -15444,13 +15444,13 @@ $dbKindAlist := (AND (CONSP |fn|) (EQ (QCAR |fn|) '|origin|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |fn|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |orig| + (setq |orig| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) @@ -15458,13 +15458,13 @@ $dbKindAlist := NIL))))) (OR (AND (NULL |origin|) - (SPADLET |origin| + (setq |origin| |orig|)) (BOOT-EQUAL |origin| |orig|)))))))))) (|htSay| " {\\em of type} ") (|bcConform| |orig|))) - (SPADLET |buttonForOp| NIL)) + (setq |buttonForOp| NIL)) ('T (|htMakePage| (CONS @@ -15479,11 +15479,11 @@ $dbKindAlist := NIL)) (|htSay| "{\\em calls to} ") (|bcConform| |con|) - (SPADLET |buttonForOp| 'T))) + (setq |buttonForOp| 'T))) (|htSay| ":\\newline ") (|dbShowInfoList| |fns| (TIMES |bincount| 8192) |buttonForOp|) - (SPADLET |bincount| (+ |bincount| 1)))))) + (setq |bincount| (+ |bincount| 1)))))) (|htSay| "\\endmenu ")))))) ;dbShowInfoList(dataItems,count,buttonForOp?) == @@ -15516,37 +15516,37 @@ $dbKindAlist := (PROG (|single?| |ISTMP#1| |ISTMP#2| |s| |LETTMP#1| |op| |sig| |ops|) (RETURN (SEQ (PROGN - (SPADLET |single?| (NULL (CDR |dataItems|))) + (setq |single?| (NULL (CDR |dataItems|))) (|htSay| "\\table{") (DO ((G177759 |dataItems| (CDR G177759)) (|item| NIL)) ((OR (ATOM G177759) (PROGN (SETQ |item| (CAR G177759)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (COND ((AND (CONSP |item|) (EQ (QCAR |item|) '|origin|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |item|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |s| + (setq |s| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |buttonForOp?| 'T) + (setq |buttonForOp?| 'T) |s|) ('T |item|))) - (SPADLET |op| (CAR |LETTMP#1|)) - (SPADLET |sig| (CDR |LETTMP#1|)) - (SPADLET |ops| + (setq |op| (CAR |LETTMP#1|)) + (setq |sig| (CDR |LETTMP#1|)) + (setq |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) (|htSay| "{") @@ -15574,7 +15574,7 @@ $dbKindAlist := ((ATOM |sig|) (|htSay| |sig|)) ('T (|bcConform| (|dbInfoSig| |sig|)))))) (|htSay| "}") - (SPADLET |count| (+ |count| 1)))))) + (setq |count| (+ |count| 1)))))) (|htSay| "} ") |count|))))) @@ -15588,15 +15588,15 @@ $dbKindAlist := (PROG (|argName| |opSigList| |n| |t|) (RETURN (SEQ (PROGN - (SPADLET |argName| (CAR |u|)) - (SPADLET |opSigList| (CDR |u|)) - (SPADLET |n| + (setq |argName| (CAR |u|)) + (setq |opSigList| (CDR |u|)) + (setq |n| (OR (POSITION |argName| (IFCDR |conform|)) (|systemError|))) - (SPADLET |t| (ELT |conArgTypes| |n|)) + (setq |t| (ELT |conArgTypes| |n|)) (CONS |argName| (PROG (G177786) - (SPADLET G177786 NIL) + (setq G177786 NIL) (RETURN (DO ((G177791 |opSigList| (CDR G177791)) (|x| NIL)) @@ -15616,10 +15616,10 @@ $dbKindAlist := (PROG (|op| |sig| |origin|) (RETURN (PROGN - (SPADLET |op| (CAR |x|)) - (SPADLET |sig| (CDR |x|)) + (setq |op| (CAR |x|)) + (setq |sig| (CDR |x|)) (COND - ((SPADLET |origin| (|dbInfoOrigin| |op| |sig| |t|)) + ((setq |origin| (|dbInfoOrigin| |op| |sig| |t|)) (CONS '|origin| (CONS |origin| (CONS |x| NIL)))) ('T |x|)))))) @@ -15634,9 +15634,9 @@ $dbKindAlist := (RETURN (SEQ (COND ((AND (CONSP |t|) (EQ (QCAR |t|) '|Join|) - (PROGN (SPADLET |r| (QCDR |t|)) 'T)) + (PROGN (setq |r| (QCDR |t|)) 'T)) (PROG (G177819) - (SPADLET G177819 NIL) + (setq G177819 NIL) (RETURN (DO ((G177825 NIL G177819) (G177826 |r| (CDR G177826)) (|x| NIL)) @@ -15648,7 +15648,7 @@ $dbKindAlist := (|dbInfoOrigin| |op| |sig| |x|))))))))) ((AND (CONSP |t|) (EQ (QCAR |t|) 'CATEGORY)) NIL) ((PROG (G177838) - (SPADLET G177838 NIL) + (setq G177838 NIL) (RETURN (DO ((G177844 (LASSOC |op| (|koOps| |t| NIL)) (CDR G177844)) @@ -15659,7 +15659,7 @@ $dbKindAlist := NIL) (PROGN (PROGN - (SPADLET |sig1| (CAR G177815)) + (setq |sig1| (CAR G177815)) G177815) NIL)) (NREVERSE0 G177838)) @@ -15680,15 +15680,15 @@ $dbKindAlist := (PROG (|x| |y|) (RETURN (SEQ (PROG (G177870) - (SPADLET G177870 NIL) + (setq G177870 NIL) (RETURN (DO ((G177876 |u| (CDR G177876)) (G177861 NIL)) ((OR (ATOM G177876) (PROGN (SETQ G177861 (CAR G177876)) NIL) (PROGN (PROGN - (SPADLET |x| (CAR G177861)) - (SPADLET |y| (CDR G177861)) + (setq |x| (CAR G177861)) + (setq |y| (CDR G177861)) G177861) NIL)) (NREVERSE0 G177870)) @@ -15707,11 +15707,11 @@ $dbKindAlist := (PROG (|fromAlist| |index| |LETTMP#1| |con| |alist|) (RETURN (PROGN - (SPADLET |fromAlist| (|htpProperty| |htPage| '|fromAlist|)) - (SPADLET |index| (SPADDIFFERENCE |count| 2)) - (SPADLET |LETTMP#1| (ELT |fromAlist| |index|)) - (SPADLET |con| (CAR |LETTMP#1|)) - (SPADLET |alist| (CDR |LETTMP#1|)) + (setq |fromAlist| (|htpProperty| |htPage| '|fromAlist|)) + (setq |index| (SPADDIFFERENCE |count| 2)) + (setq |LETTMP#1| (ELT |fromAlist| |index|)) + (setq |con| (CAR |LETTMP#1|)) + (setq |alist| (CDR |LETTMP#1|)) (|dbInfoChoose1| |htPage| |con| |alist|))))) ;dbInfoChooseSingle(htPage,count) == @@ -15731,30 +15731,30 @@ $dbKindAlist := |origin| |ISTMP#2| |s| |con| |alist|) (RETURN (PROGN - (SPADLET |fromAlist| (|htpProperty| |htPage| '|fromAlist|)) - (SPADLET |LETTMP#1| (DIVIDE |count| 8192)) - (SPADLET |index| (CAR |LETTMP#1|)) - (SPADLET |binkey| (CADR |LETTMP#1|)) - (SPADLET |LETTMP#1| + (setq |fromAlist| (|htpProperty| |htPage| '|fromAlist|)) + (setq |LETTMP#1| (DIVIDE |count| 8192)) + (setq |index| (CAR |LETTMP#1|)) + (setq |binkey| (CADR |LETTMP#1|)) + (setq |LETTMP#1| (ELT |fromAlist| (SPADDIFFERENCE |index| 2))) - (SPADLET |con| (CAR |LETTMP#1|)) - (SPADLET |alist| (CDR |LETTMP#1|)) - (SPADLET |item| (ELT |alist| |binkey|)) - (SPADLET |alist| + (setq |con| (CAR |LETTMP#1|)) + (setq |alist| (CDR |LETTMP#1|)) + (setq |item| (ELT |alist| |binkey|)) + (setq |alist| (COND ((AND (CONSP |item|) (EQ (QCAR |item|) '|origin|) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (setq |ISTMP#1| (QCDR |item|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |origin| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |origin| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |s| (QCAR |ISTMP#2|)) + (setq |s| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |con| |origin|) (CONS |s| NIL)) + (setq |con| |origin|) (CONS |s| NIL)) ('T (CONS |item| NIL)))) (|dbInfoChoose1| |htPage| |con| |alist|))))) @@ -15772,10 +15772,10 @@ $dbKindAlist := (DECLARE (SPECIAL |$conform|)) (RETURN (SEQ (PROGN - (SPADLET |$conform| |con|) - (SPADLET |opAlist| + (setq |$conform| |con|) + (setq |opAlist| (PROG (G177961) - (SPADLET G177961 NIL) + (setq G177961 NIL) (RETURN (DO ((G177967 (|koOps| |con| NIL) (CDR G177967)) @@ -15786,12 +15786,12 @@ $dbKindAlist := NIL)) (NREVERSE0 G177961)) (SEQ (EXIT (COND - ((SPADLET |pair| + ((setq |pair| (|dbInfoSigMatch| |x| |alist|)) (SETQ G177961 (CONS |pair| G177961)))))))))) - (SPADLET |page| (|htInitPage| NIL NIL)) + (setq |page| (|htInitPage| NIL NIL)) (|htpSetProperty| |page| '|conform| |con|) (|htpSetProperty| |page| '|kind| (PNAME (GETDATABASE (|opOf| |con|) 'CONSTRUCTORKIND))) @@ -15810,11 +15810,11 @@ $dbKindAlist := (declare (special |$conform|)) (RETURN (SEQ (PROGN - (SPADLET |op| (CAR |x|)) - (SPADLET |sigAlist| (CDR |x|)) - (SPADLET |candidates| + (setq |op| (CAR |x|)) + (setq |sigAlist| (CDR |x|)) + (setq |candidates| (OR (PROG (G177997) - (SPADLET G177997 NIL) + (setq G177997 NIL) (RETURN (DO ((G178004 |alist| (CDR G178004)) (G177986 NIL)) @@ -15824,8 +15824,8 @@ $dbKindAlist := NIL) (PROGN (PROGN - (SPADLET |op1| (CAR G177986)) - (SPADLET |sig| (CDR G177986)) + (setq |op1| (CAR G177986)) + (setq |sig| (CDR G177986)) G177986) NIL)) (NREVERSE0 G177997)) @@ -15835,9 +15835,9 @@ $dbKindAlist := (SETQ G177997 (CONS |sig| G177997))))))))) (RETURN NIL))) - (SPADLET |sigs| + (setq |sigs| (PROG (G178016) - (SPADLET G178016 NIL) + (setq G178016 NIL) (RETURN (DO ((G178022 |sigAlist| (CDR G178022)) (|s| NIL)) @@ -15849,7 +15849,7 @@ $dbKindAlist := (SEQ (EXIT (COND ((OR (PROG (G178028) - (SPADLET G178028 NIL) + (setq G178028 NIL) (RETURN (DO ((G178034 NIL @@ -15872,10 +15872,10 @@ $dbKindAlist := (BOOT-EQUAL (CAR |s|) |s1|)))))))) (AND - (SPADLET |s2| + (setq |s2| (MSUBST |$conform| '$ |s|)) (PROG (G178042) - (SPADLET G178042 NIL) + (setq G178042 NIL) (RETURN (DO ((G178048 NIL @@ -15924,13 +15924,13 @@ $dbKindAlist := (PROG (|expand| |opAlist|) (RETURN (PROGN - (SPADLET |expand| (|htpProperty| |htPage| '|expandOperations|)) + (setq |expand| (|htpProperty| |htPage| '|expandOperations|)) (COND ((NEQUAL |expand| '|fullyExpanded|) (COND ((NULL |expand|) (|htpSetProperty| |htPage| '|expandOperations| '|lists|))) - (SPADLET |opAlist| + (setq |opAlist| (|koOps| (|htpProperty| |htPage| '|conform|) NIL)) (|htpSetProperty| |htPage| '|opAlist| |opAlist|) (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| @@ -15946,7 +15946,7 @@ $dbKindAlist := (defun |hasNewInfoAlist| (|conname|) (PROG (|u|) (RETURN - (AND (SPADLET |u| (|getInfoAlist| |conname|)) + (AND (setq |u| (|getInfoAlist| |conname|)) (|hasNewInfoText| |u|))))) ;hasNewInfoText u == @@ -15957,7 +15957,7 @@ $dbKindAlist := (PROG (|op| |items| |sig| |alist|) (RETURN (SEQ (PROG (G178092) - (SPADLET G178092 'T) + (setq G178092 'T) (RETURN (DO ((G178102 NIL (NULL G178092)) (G178103 |u| (CDR G178103)) (G178088 NIL)) @@ -15965,8 +15965,8 @@ $dbKindAlist := (PROGN (SETQ G178088 (CAR G178103)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G178088)) - (SPADLET |items| (CDR G178088)) + (setq |op| (CAR G178088)) + (setq |items| (CDR G178088)) G178088) NIL)) G178092) @@ -15974,7 +15974,7 @@ $dbKindAlist := (AND G178092 (AND (ATOM |op|) (PROG (G178111) - (SPADLET G178111 'T) + (setq G178111 'T) (RETURN (DO ((G178120 NIL @@ -15996,9 +15996,9 @@ $dbKindAlist := (OR (AND (CONSP |item|) (PROGN - (SPADLET |sig| + (setq |sig| (QCAR |item|)) - (SPADLET |alist| + (setq |alist| (QCDR |item|)) 'T) (NULL |sig|)) @@ -16028,70 +16028,70 @@ $dbKindAlist := |dollarName| |alist|) (RETURN (PROGN - (SPADLET |cat?| + (setq |cat?| (BOOT-EQUAL (GETDATABASE |conname| 'CONSTRUCTORKIND) '|category|)) (COND - (|cat?| (SPADLET |conname| + (|cat?| (setq |conname| (INTERN (STRCONC (STRINGIMAGE |conname|) "&"))))) - (SPADLET |abb| + (setq |abb| (OR (|constructor?| |conname|) (RETURN "not a constructor"))) - (SPADLET |fs| + (setq |fs| (STRCONC (PNAME |abb|) ".nrlib/info")) - (SPADLET |inStream| + (setq |inStream| (COND ((PROBE-FILE |fs|) (OPEN |fs|)) ('T - (SPADLET |filename| + (setq |filename| (STRCONC "/spad/int/algebra/" (PNAME |abb|) ".nrlib/info")) (COND ((PROBE-FILE |filename|) (OPEN |filename|)) ('T (RETURN NIL)))))) - (SPADLET |alist| (|mySort| (VMREAD |inStream|))) + (setq |alist| (|mySort| (VMREAD |inStream|))) (COND - (|cat?| (SPADLET |LETTMP#1| + (|cat?| (setq |LETTMP#1| (GETDATABASE |conname| 'CONSTRUCTORFORM)) - (SPADLET |dollarName| (CADR |LETTMP#1|)) - (SPADLET |alist| (MSUBST '$ |dollarName| |alist|)))) + (setq |dollarName| (CADR |LETTMP#1|)) + (setq |alist| (MSUBST '$ |dollarName| |alist|)))) |alist|)))) ;--====================> WAS b-saturn.boot <================================ ;-- New file as of 6/95 ;$aixTestSaturn := false -(SPADLET |$aixTestSaturn| NIL) +(setq |$aixTestSaturn| NIL) ;--These will be set in patches.lisp: ;--$saturn := false --true to write SATURN output to $browserOutputStream ;--$standard:= true --true to write browser output on AIX ;$saturnAmpersand := '"\&\&" -(SPADLET |$saturnAmpersand| "\\&\\&") +(setq |$saturnAmpersand| "\\&\\&") ;$saturnFileNumber --true to write DOS files for Thinkpad (testing only) ; := false -(SPADLET |$saturnFileNumber| NIL) +(setq |$saturnFileNumber| NIL) ;$kPageSaturnArguments := nil --bound by $kPageSaturn -(SPADLET |$kPageSaturnArguments| NIL) +(setq |$kPageSaturnArguments| NIL) ;$atLeastOneUnexposed := false -(SPADLET |$atLeastOneUnexposed| NIL) +(setq |$atLeastOneUnexposed| NIL) ;$saturnContextMenuLines := nil -(SPADLET |$saturnContextMenuLines| NIL) +(setq |$saturnContextMenuLines| NIL) ;$saturnContextMenuIndex := 0 -(SPADLET |$saturnContextMenuIndex| 0) +(setq |$saturnContextMenuIndex| 0) ;$saturnMacros := '( ; "\def\unixcommand#1#2{{\em #1}}"_ @@ -16105,7 +16105,7 @@ $dbKindAlist := ; "\def\spadfun#1{{\em #1}}"_ ;) -(SPADLET |$saturnMacros| +(setq |$saturnMacros| '("\\def\\unixcommand#1#2{{\\em #1}}" "\\def\\lispFunctionLink#1#2{\\lispLink[d]{#1}{{\\bf #2}}}" "\\def\\lispTypeLink#1#2{\\lispLink[d]{#1}{{\\sf #2}}}" @@ -16117,7 +16117,7 @@ $dbKindAlist := ;$FormalFunctionParameterList := '(_#_#1 _#_#2 _#_#3 _#_#4 _#_#5 _#_#6 _#_#7 _#_#8 _#_#9 _#_#10 _#_#11 _#_#12 _#_#13 _#_#14 _#_#15) -(SPADLET |$FormalFunctionParameterList| +(setq |$FormalFunctionParameterList| '(|##1| |##2| |##3| |##4| |##5| |##6| |##7| |##8| |##9| |##10| |##11| |##12| |##13| |##14| |##15|)) @@ -16127,7 +16127,7 @@ $dbKindAlist := (defun |on| () (declare (special |$saturn| |$standard|)) - (PROGN (SPADLET |$saturn| 'T) (SPADLET |$standard| NIL))) + (PROGN (setq |$saturn| 'T) (setq |$standard| NIL))) ;off()== ; $saturn := false @@ -16135,7 +16135,7 @@ $dbKindAlist := (defun |off| () (declare (special |$saturn| |$standard|)) - (PROGN (SPADLET |$saturn| NIL) (SPADLET |$standard| 'T))) + (PROGN (setq |$saturn| NIL) (setq |$standard| 'T))) ;--======================================================================= ;-- Function for testing SATURN output @@ -16176,9 +16176,9 @@ $dbKindAlist := (defun |ts| (|command|) (declare (special |$saturn| |$saturnFileNumber| |$standard|)) (PROGN - (SPADLET |$saturn| 'T) - (SPADLET |$saturnFileNumber| NIL) - (SPADLET |$standard| NIL) + (setq |$saturn| 'T) + (setq |$saturnFileNumber| NIL) + (setq |$standard| NIL) (|saturnEvalToFile| |command| "/tmp/sat.text"))) ;ut() == @@ -16188,7 +16188,7 @@ $dbKindAlist := (defun |ut| () (declare (special |$saturn| |$standard|)) - (PROGN (SPADLET |$saturn| NIL) (SPADLET |$standard| 'T) '|done|)) + (PROGN (setq |$saturn| NIL) (setq |$standard| 'T) '|done|)) ;onDisk() == ; $saturnFileNumber := 1 @@ -16197,7 +16197,7 @@ $dbKindAlist := (defun |onDisk| () (declare (special |$saturnFileNumber|)) (PROGN - (SPADLET |$saturnFileNumber| 1) + (setq |$saturnFileNumber| 1) (|obey| "dosdir"))) ;offDisk() == @@ -16205,7 +16205,7 @@ $dbKindAlist := (defun |offDisk| () (declare (special |$saturnFileNumber|)) - (SPADLET |$saturnFileNumber| NIL)) + (setq |$saturnFileNumber| NIL)) ;page() == ; $standard => $curPage @@ -16246,7 +16246,7 @@ $dbKindAlist := (PROG (|$saturn|) (DECLARE (SPECIAL |$saturn|)) (RETURN - (PROGN (SPADLET |$saturn| NIL) (|htSayBind| |x| |options|))))) + (PROGN (setq |$saturn| NIL) (|htSayBind| |x| |options|))))) ;htSaySaturn(x, :options) == --do AT MOST for $saturn ; $standard: local := nil @@ -16257,7 +16257,7 @@ $dbKindAlist := (PROG (|$standard|) (DECLARE (SPECIAL |$standard|)) (RETURN - (PROGN (SPADLET |$standard| NIL) (|htSayBind| |x| |options|))))) + (PROGN (setq |$standard| NIL) (|htSayBind| |x| |options|))))) ;htSayBind(x, options) == ; bcHt x @@ -16292,7 +16292,7 @@ $dbKindAlist := (RETURN (COND (|$newPage| - (SPADLET |text| + (setq |text| (COND ((CONSP |line|) (CONS (CONS '|text| |line|) NIL)) @@ -16306,11 +16306,11 @@ $dbKindAlist := (|htpAddToPageDescription| |$curPage| |text|)) ('T NIL))) ((CONSP |line|) - (SPADLET |$htLineList| + (setq |$htLineList| (NCONC (NREVERSE (|mapStringize| (COPY-LIST |line|))) |$htLineList|))) ('T - (SPADLET |$htLineList| + (setq |$htLineList| (CONS (|basicStringize| |line|) |$htLineList|))))))) ;--======================================================================= @@ -16366,22 +16366,22 @@ $dbKindAlist := (|$saturn| (|htpSetPageDescription| |$saturnPage| (NREVERSE (|htpPageDescription| |$saturnPage|))))) - (SPADLET |$newPage| NIL) + (setq |$newPage| NIL) (COND - (|$standard| (SPADLET |$htLineList| NIL) + (|$standard| (setq |$htLineList| NIL) (|htMakePage| (|htpPageDescription| |$curPage|)) (COND (|$htLineList| - (SPADLET |line| + (setq |line| (APPLY #'CONCAT (NREVERSE |$htLineList|))))) (|issueHTStandard| |line|))) (COND - (|$saturn| (SPADLET |$htLineList| NIL) + (|$saturn| (setq |$htLineList| NIL) (|htMakePage| (|htpPageDescription| |$saturnPage|)) (COND (|$htLineList| - (SPADLET |line| + (setq |line| (APPLY #'CONCAT (NREVERSE |$htLineList|))))) (|issueHTSaturn| |line|))) @@ -16406,20 +16406,20 @@ $dbKindAlist := (DECLARE (SPECIAL |$marg| |$linelength| |$saturnFileNumber| |$saturn|)) (RETURN (COND - (|$saturn| (SPADLET |$marg| 0) (SPADLET |$linelength| 80) + (|$saturn| (setq |$marg| 0) (setq |$linelength| 80) (|writeSaturn| "\\inputonce{/doc/browser/browmacs.tex}") (|writeSaturnPrefix|) (|writeSaturn| |line|) (|writeSaturnSuffix|) (COND (|$saturnFileNumber| - (SPADLET |fn| + (setq |fn| (STRCONC "sat" (STRINGIMAGE |$saturnFileNumber|) ".tex")) (|obey| (STRCONC "doswrite -a saturn.tex " |fn| ".tex")) - (SPADLET |$saturnFileNumber| + (setq |$saturnFileNumber| (+ |$saturnFileNumber| 1))) ('T NIL))) ('T NIL))))) @@ -16440,9 +16440,9 @@ $dbKindAlist := (SEQ (COND (|$saturnContextMenuLines| (EXIT (PROGN - (SPADLET |index| + (setq |index| (STRINGIMAGE - (SPADLET + (setq |$saturnContextMenuIndex| (+ |$saturnContextMenuIndex| 1)))) @@ -16498,12 +16498,12 @@ $dbKindAlist := |$standard| |$saturn|)) (RETURN (PROGN - (SPADLET |$newPage| NIL) - (SPADLET |$htLineList| NIL) - (COND (|$standard| (SPADLET |$curPage| |htPage|))) - (COND (|$saturn| (SPADLET |$saturnPage| |htPage|))) + (setq |$newPage| NIL) + (setq |$htLineList| NIL) + (COND (|$standard| (setq |$curPage| |htPage|))) + (COND (|$saturn| (setq |$saturnPage| |htPage|))) (|htMakePage| (|htpPageDescription| |htPage|)) - (SPADLET |line| + (setq |line| (APPLY #'CONCAT (NREVERSE |$htLineList|))) (|issueHT| |line|) (|endHTPage|))))) @@ -16591,22 +16591,22 @@ $dbKindAlist := (declare (special |$marg|)) (RETURN (SEQ (PROGN - (SPADLET |k| 0) - (SPADLET |n| (MAXINDEX |line|)) + (setq |k| 0) + (setq |n| (MAXINDEX |line|)) (DO () ((NULL (COND ((> |k| |n|) NIL) ((NEQUAL (ELT |line| |k|) (|char| '|\\|)) 'T) - ((SPADLET |code| + ((setq |code| (|isBreakSegment?| |line| (+ |k| 1) |n|)) NIL) ('T 'T))) NIL) - (SEQ (EXIT (SPADLET |k| (+ |k| 1))))) + (SEQ (EXIT (setq |k| (+ |k| 1))))) (COND ((> |k| |n|) (|writeSaturnPrint| |line|)) - ('T (SPADLET |segment| (SUBSTRING |line| 0 |k|)) + ('T (setq |segment| (SUBSTRING |line| 0 |k|)) (|writeSaturnPrint| |segment|) (COND ((EQL |code| 1) @@ -16623,23 +16623,23 @@ $dbKindAlist := (|writeSaturn| (SUBSTRING |line| (+ |k| 8) NIL))) ((EQL |code| 5) (|writeSaturnPrint| "\\table{") - (SPADLET |$marg| (+ |$marg| 3)) + (setq |$marg| (+ |$marg| 3)) (|writeSaturnTable| (SUBSTRING |line| (+ |k| 7) NIL))) ((EQL |code| 6) - (SPADLET |i| + (setq |i| (|charPosition| (|char| '}) |line| (+ |k| 4))) - (SPADLET |tabCode| + (setq |tabCode| (SUBSTRING |line| |k| (+ (SPADDIFFERENCE |i| |k|) 1))) (|writeSaturnPrint| |tabCode|) - (SPADLET |line| (SUBSTRING |line| (+ |i| 1) NIL)) + (setq |line| (SUBSTRING |line| (+ |i| 1) NIL)) (|writeSaturn| |line|)) ((EQL |code| 7) (|saturnTERPRI|) (|writeSaturn| (SUBSTRING |line| (+ |k| 2) NIL))) ((EQL |code| 8) - (SPADLET |i| + (setq |i| (COND ((|substring?| "\\beginmenu" |line| |k|) @@ -16653,17 +16653,17 @@ $dbKindAlist := (COND ((BOOT-EQUAL (|char| '[) (ELT |line| (+ |i| 1))) - (SPADLET |i| + (setq |i| (|charPosition| (|char| ']) |line| (+ |i| 2))))) - (SPADLET |beginCode| + (setq |beginCode| (SUBSTRING |line| |k| (+ (SPADDIFFERENCE |i| |k|) 1))) (|writeSaturnPrint| |beginCode|) - (SPADLET |line| (SUBSTRING |line| (+ |i| 1) NIL)) + (setq |line| (SUBSTRING |line| (+ |i| 1) NIL)) (|writeSaturn| |line|)) ((EQL |code| 9) - (SPADLET |i| + (setq |i| (COND ((|substring?| "\\endmenu" |line| |k|) @@ -16673,12 +16673,12 @@ $dbKindAlist := (+ |k| 9)) ('T (|charPosition| (|char| '}) |line| |k|)))) - (SPADLET |endCode| + (setq |endCode| (SUBSTRING |line| |k| (+ (SPADDIFFERENCE |i| |k|) 1))) (|writeSaturnPrint| |endCode|) - (SPADLET |line| (SUBSTRING |line| (+ |i| 1) NIL)) - (SPADLET |$marg| (SPADDIFFERENCE |$marg| 3)) + (setq |line| (SUBSTRING |line| (+ |i| 1) NIL)) + (setq |$marg| (SPADDIFFERENCE |$marg| 3)) (|writeSaturn| |line|)) ('T (|systemError| |code|)))))))))) @@ -16716,7 +16716,7 @@ $dbKindAlist := (RETURN (COND ((> |k| |n|) NIL) - ('T (SPADLET |char2| (ELT |line| |k|)) + ('T (setq |char2| (ELT |line| |k|)) (COND ((BOOT-EQUAL |char2| (|char| '|\\|)) 1) ((BOOT-EQUAL |char2| (|char| '&)) @@ -16733,12 +16733,12 @@ $dbKindAlist := ('T NIL))) ((BOOT-EQUAL |char2| (|char| '|t|)) (COND - ((> (SPADLET |k| (+ |k| 2)) |n|) NIL) + ((> (setq |k| (+ |k| 2)) |n|) NIL) ((AND (BOOT-EQUAL (ELT |line| (SPADDIFFERENCE |k| 1)) (|char| '|a|)) (BOOT-EQUAL (ELT |line| |k|) (|char| '|b|))) (COND - ((> (SPADLET |k| (+ |k| 1)) |n|) NIL) + ((> (setq |k| (+ |k| 1)) |n|) NIL) ((BOOT-EQUAL (ELT |line| |k|) (|char| '{)) 6) ((|substring?| "table" |line| (SPADDIFFERENCE |k| 3)) @@ -16806,19 +16806,19 @@ $dbKindAlist := (declare (special |$marg|)) (RETURN (PROGN - (SPADLET |open| + (setq |open| (|charPosition| (|char| "{") |line| 0)) - (SPADLET |close| + (setq |close| (|charPosition| (|char| "}") |line| 0)) (COND ((> |close| |open|) - (SPADLET |close| + (setq |close| (OR (|findBalancingBrace| |line| (+ |open| 1) (MAXINDEX |line|) 0) (|error| "no balancing brace"))) (|writeSaturnPrint| (SUBSTRING |line| 0 (+ |close| 1))) (|writeSaturnTable| (SUBSTRING |line| (+ |close| 1) NIL))) - ('T (SPADLET |$marg| (SPADDIFFERENCE |$marg| 3)) + ('T (setq |$marg| (SPADDIFFERENCE |$marg| 3)) (|writeSaturnPrint| (SUBSTRING |line| 0 (+ |close| 1))) (|writeSaturn| (SUBSTRING |line| (+ |close| 1) NIL)))))))) @@ -16836,7 +16836,7 @@ $dbKindAlist := (RETURN (COND ((> |k| |n|) NIL) - ('T (SPADLET |c| (ELT |s| |k|)) + ('T (setq |c| (ELT |s| |k|)) (COND ((BOOT-EQUAL |c| (|char| '{)) (|findBalancingBrace| |s| (+ |k| 1) |n| @@ -16929,8 +16929,8 @@ $dbKindAlist := (PROGN (SETQ |u| (CAR G178417)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |itemType| '|text|) - (SPADLET |items| + (setq |itemType| '|text|) + (setq |items| (COND ((STRINGP |u|) |u|) ((ATOM |u|) (STRINGIMAGE |u|)) @@ -16938,10 +16938,10 @@ $dbKindAlist := ((AND (CONSP |u|) (EQ (QCAR |u|) '|text|) (PROGN - (SPADLET |s| (QCDR |u|)) + (setq |s| (QCDR |u|)) 'T)) |s|) - ('T (SPADLET |itemType| (CAR |u|)) + ('T (setq |itemType| (CAR |u|)) (CDR |u|)))) (COND ((BOOT-EQUAL |itemType| '|text|) @@ -17002,46 +17002,46 @@ $dbKindAlist := (COND ((AND (CONSP |x|) (EQ (QCDR |x|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |x|)) + (setq |ISTMP#1| (QCAR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |kind| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |kind| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ISTMP#3| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |s1| (QCAR |ISTMP#3|)) - (SPADLET |ISTMP#4| + (setq |s1| (QCAR |ISTMP#3|)) + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |s2| (QCAR |ISTMP#4|)) - (SPADLET |callTail| + (setq |s2| (QCAR |ISTMP#4|)) + (setq |callTail| (QCDR |ISTMP#4|)) 'T))))))))) (member |kind| '(|bcLinks| |bcLispLinks|))) - (SPADLET |text| (|saturnTranText| |s2|)) - (SPADLET |fs| (|getCallBackFn| |callTail|)) + (setq |text| (|saturnTranText| |s2|)) + (setq |fs| (|getCallBackFn| |callTail|)) (COND - ((SPADLET |y| (|isMenuItemStyle?| |s1|)) - (SPADLET |t1| (|mkDocLink| |fs| (|mkMenuButton|))) + ((setq |y| (|isMenuItemStyle?| |s1|)) + (setq |t1| (|mkDocLink| |fs| (|mkMenuButton|))) (COND ((BOOT-EQUAL |y| "") (COND ((BOOT-EQUAL |s2| "") |t1|) ('T (|mkTabularItem| (CONS |t1| (CONS |text| NIL)))))) - ('T (SPADLET |t2| (|mkDocLink| |fs| |y|)) + ('T (setq |t2| (|mkDocLink| |fs| |y|)) (|mkTabularItem| (CONS |t1| (CONS |t2| (CONS |text| NIL))))))) - ('T (SPADLET |t| (|mkDocLink| |fs| |s1|)) + ('T (setq |t| (|mkDocLink| |fs| |s1|)) (APPEND |t| |text|)))) ((AND (CONSP |x|) (PROGN - (SPADLET |ISTMP#1| (QCAR |x|)) + (setq |ISTMP#1| (QCAR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|text|) - (PROGN (SPADLET |r| (QCDR |ISTMP#1|)) 'T)))) + (PROGN (setq |r| (QCDR |ISTMP#1|)) 'T)))) |r|) ('T (|error| NIL)))))) @@ -17055,7 +17055,7 @@ $dbKindAlist := (PROG (|secondPart|) (RETURN (PROGN - (SPADLET |secondPart| + (setq |secondPart| (COND ((ATOM |s|) (CONS |s| (CONS "}" NIL))) ('T (APPEND |s| (CONS "}" NIL))))) @@ -17080,7 +17080,7 @@ $dbKindAlist := (PROG (|func|) (RETURN (PROGN - (SPADLET |func| (|mkCurryFun| (CAR |form|) (CDR |form|))) + (setq |func| (|mkCurryFun| (CAR |form|) (CDR |form|))) (STRCONC "(|htDoneButton| '|" |func| "| " (|htpName| (|page|)) ")"))))) @@ -17092,8 +17092,8 @@ $dbKindAlist := (defun |mkDocLink| (|code| |s|) (PROGN - (COND ((ATOM |code|) (SPADLET |code| (CONS |code| NIL)))) - (COND ((ATOM |s|) (SPADLET |s| (CONS |s| NIL)))) + (COND ((ATOM |code|) (setq |code| (CONS |code| NIL)))) + (COND ((ATOM |s|) (setq |s| (CONS |s| NIL)))) (CONS "\\lispLink[d]{\\verb!" (APPEND |code| (CONS "!}{" @@ -17114,19 +17114,19 @@ $dbKindAlist := ((NULL |x|) NIL) ((AND (CONSP |r|) (PROGN - (SPADLET |s| (QCAR |r|)) - (SPADLET |ISTMP#1| (QCDR |r|)) + (setq |s| (QCAR |r|)) + (setq |ISTMP#1| (QCDR |r|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |fn| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |fn| (QCAR |ISTMP#1|)) 'T))) (BOOT-EQUAL |s| "\\unixcommand{")) (CONS "{\\it " (CONS |s| (CONS ".spad}" NIL)))) ((AND (CONSP |x|) (PROGN - (SPADLET |ISTMP#1| (QCAR |x|)) + (setq |ISTMP#1| (QCAR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|text|) - (PROGN (SPADLET |s| (QCDR |ISTMP#1|)) 'T))) - (PROGN (SPADLET |r| (QCDR |x|)) 'T)) + (PROGN (setq |s| (QCDR |ISTMP#1|)) 'T))) + (PROGN (setq |r| (QCDR |x|)) 'T)) (|unTab| (APPEND |s| (|saturnTranText| |r|)))) ('T (|error| NIL)))))) @@ -17152,7 +17152,7 @@ $dbKindAlist := (OR (LASSOC |callTail| |$callTailList|) (COND ((AND (CONSP |callTail|) (EQ (QCDR |callTail|) NIL) - (PROGN (SPADLET |fn| (QCAR |callTail|)) 'T)) + (PROGN (setq |fn| (QCAR |callTail|)) 'T)) |callTail|) ('T (|error| NIL))))))) @@ -17205,7 +17205,7 @@ $dbKindAlist := (PROG (|props|) (RETURN (PROGN - (SPADLET |props| + (setq |props| (LASSOC |label| (|htpInputAreaAlist| |htPage|))) (COND (|props| (SETELT |props| 0 (STRINGIMAGE |val|))) @@ -17255,24 +17255,24 @@ $dbKindAlist := (declare (special |$saturn|)) (RETURN (SEQ (PROGN - (SPADLET |skipStateInfo?| (IFCAR |options|)) - (SPADLET |LETTMP#1| (|beforeAfter| '|options| |links|)) - (SPADLET |links| (CAR |LETTMP#1|)) - (SPADLET |options| (CADR |LETTMP#1|)) + (setq |skipStateInfo?| (IFCAR |options|)) + (setq |LETTMP#1| (|beforeAfter| '|options| |links|)) + (setq |links| (CAR |LETTMP#1|)) + (setq |options| (CADR |LETTMP#1|)) (DO ((G178612 |links| (CDR G178612)) (G178598 NIL)) ((OR (ATOM G178612) (PROGN (SETQ G178598 (CAR G178612)) NIL) (PROGN (PROGN - (SPADLET |message| (CAR G178598)) - (SPADLET |info| (CADR G178598)) - (SPADLET |func| (CADDR G178598)) - (SPADLET |value| (CDDDR G178598)) + (setq |message| (CAR G178598)) + (setq |info| (CADR G178598)) + (setq |func| (CADDR G178598)) + (setq |value| (CDDDR G178598)) G178598) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |link| + (setq |link| (COND (|$saturn| "\\lispLink[d]") @@ -17298,23 +17298,23 @@ $dbKindAlist := (declare (special |$saturn|)) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| (|beforeAfter| '|options| |links|)) - (SPADLET |links| (CAR |LETTMP#1|)) - (SPADLET |options| (CADR |LETTMP#1|)) + (setq |LETTMP#1| (|beforeAfter| '|options| |links|)) + (setq |links| (CAR |LETTMP#1|)) + (setq |options| (CADR |LETTMP#1|)) (DO ((G178655 |links| (CDR G178655)) (G178641 NIL)) ((OR (ATOM G178655) (PROGN (SETQ G178641 (CAR G178655)) NIL) (PROGN (PROGN - (SPADLET |message| (CAR G178641)) - (SPADLET |info| (CADR G178641)) - (SPADLET |func| (CADDR G178641)) - (SPADLET |value| (CDDDR G178641)) + (setq |message| (CAR G178641)) + (setq |info| (CADR G178641)) + (setq |func| (CADDR G178641)) + (setq |value| (CDDDR G178641)) G178641) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |link| + (setq |link| (COND (|$saturn| "\\lispLink[n]") @@ -17350,7 +17350,7 @@ $dbKindAlist := (|$saturn| (|htMakeButtonSaturn| |htCommand| |message| |func| |options|)) - ('T (SPADLET |skipStateInfo?| (IFCAR |options|)) + ('T (setq |skipStateInfo?| (IFCAR |options|)) (|iht| (CONS |htCommand| (CONS "{" NIL))) (|bcIssueHt| |message|) (COND @@ -17371,8 +17371,8 @@ $dbKindAlist := (PROGN (SETQ G178674 (CAR G178686)) NIL) (PROGN (PROGN - (SPADLET |id| (CAR G178674)) - (SPADLET |type| (CAR (CDDDDR G178674))) + (setq |id| (CAR G178674)) + (setq |type| (CAR (CDDDDR G178674))) G178674) NIL)) NIL) @@ -17427,7 +17427,7 @@ $dbKindAlist := |$saturnPage|)) (RETURN (SEQ (PROGN - (SPADLET |skipStateInfo?| (IFCAR |options|)) + (setq |skipStateInfo?| (IFCAR |options|)) (|iht| |htCommand|) (COND (|skipStateInfo?| @@ -17486,7 +17486,7 @@ $dbKindAlist := (PROG (|newDescript|) (RETURN (PROGN - (SPADLET |newDescript| + (setq |newDescript| (COND ((STRINGP |pageDescrip|) (CONS |pageDescrip| (ELT |htPage| 7))) @@ -17516,16 +17516,16 @@ $dbKindAlist := (PROGN (SETQ G178733 (CAR G178748)) NIL) (PROGN (PROGN - (SPADLET |numChars| (CAR G178733)) - (SPADLET |default| (CADR G178733)) - (SPADLET |stringName| (CADDR G178733)) - (SPADLET |spadType| (CADDDR G178733)) - (SPADLET |filter| (CDDDDR G178733)) + (setq |numChars| (CAR G178733)) + (setq |default| (CADR G178733)) + (setq |stringName| (CADDR G178733)) + (setq |spadType| (CADDDR G178733)) + (setq |filter| (CDDDDR G178733)) G178733) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |mess2| "") + (setq |mess2| "") (COND ((NULL (LASSOC |stringName| (|htpInputAreaAlist| (|page|)))) @@ -17542,7 +17542,7 @@ $dbKindAlist := (|htpLabelErrorMsg| (|page|) |stringName|) (CONS "}}" NIL)))) - (SPADLET |mess2| + (setq |mess2| (CONCAT |mess2| (|bcSadFaces|))) (|htpSetLabelErrorMsg| (|page|) |stringName| NIL))) @@ -17605,18 +17605,18 @@ $dbKindAlist := |$newPage| |$htLineList|)) (RETURN (PROGN - (SPADLET |$atLeastOneUnexposed| NIL) - (SPADLET |$saturnContextMenuLines| NIL) - (SPADLET |title| (IFCAR |options|)) - (SPADLET |$curPage| + (setq |$atLeastOneUnexposed| NIL) + (setq |$saturnContextMenuLines| NIL) + (setq |title| (IFCAR |options|)) + (setq |$curPage| (COND (|$standard| (|htpMakeEmptyPage| |propList|)) ('T NIL))) (COND (|$saturn| - (SPADLET |$saturnPage| (|htpMakeEmptyPage| |propList|)))) - (SPADLET |$newPage| 'T) - (SPADLET |$htLineList| NIL) + (setq |$saturnPage| (|htpMakeEmptyPage| |propList|)))) + (setq |$newPage| 'T) + (setq |$htLineList| NIL) (COND (|title| (COND (|$standard| @@ -17643,12 +17643,12 @@ $dbKindAlist := (declare (special |$curPage| |$standard| |$saturn| |$saturnPage| |$newPage| |$htLineList|)) (COND - ((SPADLET |$curPage| |$standard|) (|htpMakeEmptyPage| |propList|)) + ((setq |$curPage| |$standard|) (|htpMakeEmptyPage| |propList|)) ('T (COND (|$saturn| - (SPADLET |$saturnPage| (|htpMakeEmptyPage| |propList|)))) - (SPADLET |$newPage| 'T) (SPADLET |$htLineList| NIL) (|page|)))) + (setq |$saturnPage| (|htpMakeEmptyPage| |propList|)))) + (setq |$newPage| 'T) (setq |$htLineList| NIL) (|page|)))) ;--------------------> NEW DEFINITION <-------------------------- ;htpMakeEmptyPage(propList,:options) == @@ -17664,12 +17664,12 @@ $dbKindAlist := (declare (special |$activePageList| |$saturn|)) (RETURN (PROGN - (SPADLET |name| (OR (IFCAR |options|) (GENTEMP))) + (setq |name| (OR (IFCAR |options|) (GENTEMP))) (COND ((NULL |$saturn|) - (SPADLET |$activePageList| (CONS |name| |$activePageList|)))) + (setq |$activePageList| (CONS |name| |$activePageList|)))) (SET |name| - (SPADLET |val| + (setq |val| (VECTOR |name| NIL NIL NIL NIL NIL |propList| NIL))) |val|)))) @@ -17728,17 +17728,17 @@ $dbKindAlist := (RETURN (COND (|$saturn| (|kPageContextMenuSaturn| |page|)) - ('T (SPADLET |LETTMP#1| (|htpProperty| |page| '|parts|)) - (SPADLET |kind| (CAR |LETTMP#1|)) - (SPADLET |name| (CADR |LETTMP#1|)) - (SPADLET |nargs| (CADDR |LETTMP#1|)) - (SPADLET |xpart| (CADDDR |LETTMP#1|)) - (SPADLET |sig| (CAR (CDDDDR |LETTMP#1|))) - (SPADLET |args| (CADR (CDDDDR |LETTMP#1|))) - (SPADLET |abbrev| (CADDR (CDDDDR |LETTMP#1|))) - (SPADLET |comments| (CADDDR (CDDDDR |LETTMP#1|))) - (SPADLET |conform| (|htpProperty| |page| '|conform|)) - (SPADLET |conname| (|opOf| |conform|)) (|htBeginTable|) + ('T (setq |LETTMP#1| (|htpProperty| |page| '|parts|)) + (setq |kind| (CAR |LETTMP#1|)) + (setq |name| (CADR |LETTMP#1|)) + (setq |nargs| (CADDR |LETTMP#1|)) + (setq |xpart| (CADDDR |LETTMP#1|)) + (setq |sig| (CAR (CDDDDR |LETTMP#1|))) + (setq |args| (CADR (CDDDDR |LETTMP#1|))) + (setq |abbrev| (CADDR (CDDDDR |LETTMP#1|))) + (setq |comments| (CADDDR (CDDDDR |LETTMP#1|))) + (setq |conform| (|htpProperty| |page| '|conform|)) + (setq |conname| (|opOf| |conform|)) (|htBeginTable|) (|htSay| "{") (|htMakePage| (CONS (CONS '|bcLinks| @@ -17802,7 +17802,7 @@ $dbKindAlist := (|htSay| "}{") (COND ((AND (NEQUAL |kind| "category") - (SPADLET |pathname| (|dbHasExamplePage| |conname|))) + (setq |pathname| (|dbHasExamplePage| |conname|))) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Examples| @@ -17917,19 +17917,19 @@ $dbKindAlist := |$htLineList|)) (RETURN (PROGN - (SPADLET |$newPage| NIL) - (SPADLET |LETTMP#1| (|htpProperty| |page| '|parts|)) - (SPADLET |kind| (CAR |LETTMP#1|)) - (SPADLET |name| (CADR |LETTMP#1|)) - (SPADLET |nargs| (CADDR |LETTMP#1|)) - (SPADLET |xpart| (CADDDR |LETTMP#1|)) - (SPADLET |sig| (CAR (CDDDDR |LETTMP#1|))) - (SPADLET |args| (CADR (CDDDDR |LETTMP#1|))) - (SPADLET |abbrev| (CADDR (CDDDDR |LETTMP#1|))) - (SPADLET |comments| (CADDDR (CDDDDR |LETTMP#1|))) - (SPADLET |$htLineList| NIL) - (SPADLET |conform| (|htpProperty| |page| '|conform|)) - (SPADLET |conname| (|opOf| |conform|)) + (setq |$newPage| NIL) + (setq |LETTMP#1| (|htpProperty| |page| '|parts|)) + (setq |kind| (CAR |LETTMP#1|)) + (setq |name| (CADR |LETTMP#1|)) + (setq |nargs| (CADDR |LETTMP#1|)) + (setq |xpart| (CADDDR |LETTMP#1|)) + (setq |sig| (CAR (CDDDDR |LETTMP#1|))) + (setq |args| (CADR (CDDDDR |LETTMP#1|))) + (setq |abbrev| (CADDR (CDDDDR |LETTMP#1|))) + (setq |comments| (CADDDR (CDDDDR |LETTMP#1|))) + (setq |$htLineList| NIL) + (setq |conform| (|htpProperty| |page| '|conform|)) + (setq |conname| (|opOf| |conform|)) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS "\\&Ancestors" @@ -17985,7 +17985,7 @@ $dbKindAlist := NIL)))) (COND ((AND (NEQUAL |kind| "category") - (SPADLET |name| (|saturnHasExamplePage| |conname|))) + (setq |name| (|saturnHasExamplePage| |conname|))) (|saturnExampleLink| |name|)) ('T (|htSayCold| "E\\&xamples"))) (|htMakePage| @@ -18041,7 +18041,7 @@ $dbKindAlist := NIL))) ('T (|htSayCold| "\\&Users") (|htSayCold| "U\\&ses"))) - (SPADLET |$saturnContextMenuLines| |$htLineList|))))) + (setq |$saturnContextMenuLines| |$htLineList|))))) ;saturnExampleLink lname == ; htSay '"\docLink{\csname " @@ -18055,7 +18055,7 @@ $dbKindAlist := ;$exampleConstructors := nil -(SPADLET |$exampleConstructors| NIL) +(setq |$exampleConstructors| NIL) ;saturnHasExamplePage conname == ; if not $exampleConstructors then @@ -18067,7 +18067,7 @@ $dbKindAlist := (PROGN (COND ((NULL |$exampleConstructors|) - (SPADLET |$exampleConstructors| (|getSaturnExampleList|)))) + (setq |$exampleConstructors| (|getSaturnExampleList|)))) (ASSQ |conname| |$exampleConstructors|))) ;getSaturnExampleList() == @@ -18082,13 +18082,13 @@ $dbKindAlist := (PROG (|file| |fp| |lst|) (RETURN (PROGN - (SPADLET |file| + (setq |file| (STRCONC (|getEnv| "AXIOM") '|/doc/axug/examples.lsp|)) (COND ((NULL (PROBE-FILE |file|)) NIL) - ('T (SPADLET |fp| (MAKE-INSTREAM |file|)) - (SPADLET |lst| (VMREAD |fp|)) (SHUT |fp|) |lst|)))))) + ('T (setq |fp| (MAKE-INSTREAM |file|)) + (setq |lst| (VMREAD |fp|)) (SHUT |fp|) |lst|)))))) ;--------------------> NEW DEFINITION (see br-con.boot.pamphlet) ;dbPresentCons(htPage,kind,:exclusions) == @@ -18156,12 +18156,12 @@ $dbKindAlist := ('T (|htpSetProperty| |htPage| '|exclusion| (CAR |exclusions|)) - (SPADLET |cAlist| (|htpProperty| |htPage| '|cAlist|)) - (SPADLET |empty?| (NULL |cAlist|)) - (SPADLET |one?| (NULL (CDR |cAlist|))) - (SPADLET |one?| (OR |empty?| |one?|)) - (SPADLET |exposedUnexposedFlag| |$includeUnexposed?|) - (SPADLET |star?| 'T) + (setq |cAlist| (|htpProperty| |htPage| '|cAlist|)) + (setq |empty?| (NULL |cAlist|)) + (setq |one?| (NULL (CDR |cAlist|))) + (setq |one?| (OR |empty?| |one?|)) + (setq |exposedUnexposedFlag| |$includeUnexposed?|) + (setq |star?| 'T) (COND (|$standard| (|htBeginTable|))) (|htSay| "{") (COND @@ -18181,7 +18181,7 @@ $dbKindAlist := (COND ((OR |one?| (|member| '|conditions| |exclusions|) (PROG (G178946) - (SPADLET G178946 'T) + (setq G178946 'T) (RETURN (DO ((G178952 NIL (NULL G178946)) (G178953 |cAlist| (CDR G178953)) @@ -18265,7 +18265,7 @@ $dbKindAlist := (COND ((OR |one?| (|member| '|parameters| |exclusions|) (NULL (PROG (G178960) - (SPADLET G178960 NIL) + (setq G178960 NIL) (RETURN (DO ((G178966 NIL G178960) (G178967 |cAlist| @@ -18370,16 +18370,16 @@ $dbKindAlist := |$includeUnexposed?|)) (RETURN (SEQ (PROGN - (SPADLET |$htLineList| NIL) - (SPADLET |$newPage| NIL) + (setq |$htLineList| NIL) + (setq |$newPage| NIL) (|htpSetProperty| |htPage| '|exclusion| (CAR |exclusions|)) - (SPADLET |cAlist| (|htpProperty| |htPage| '|cAlist|)) - (SPADLET |empty?| (NULL |cAlist|)) - (SPADLET |one?| (NULL (KDR |cAlist|))) - (SPADLET |one?| (OR |empty?| |one?|)) - (SPADLET |exposedUnexposedFlag| |$includeUnexposed?|) - (SPADLET |star?| 'T) + (setq |cAlist| (|htpProperty| |htPage| '|cAlist|)) + (setq |empty?| (NULL |cAlist|)) + (setq |one?| (NULL (KDR |cAlist|))) + (setq |one?| (OR |empty?| |one?|)) + (setq |exposedUnexposedFlag| |$includeUnexposed?|) + (setq |star?| 'T) (COND (|$standard| (|htBeginTable|))) (COND ((OR |one?| (|member| '|abbrs| |exclusions|)) @@ -18397,7 +18397,7 @@ $dbKindAlist := (COND ((OR |one?| (|member| '|conditions| |exclusions|) (PROG (G178987) - (SPADLET G178987 'T) + (setq G178987 'T) (RETURN (DO ((G178993 NIL (NULL G178987)) (G178994 |cAlist| (CDR G178994)) @@ -18468,7 +18468,7 @@ $dbKindAlist := (COND ((OR |one?| (|member| '|parameters| |exclusions|) (NULL (PROG (G179001) - (SPADLET G179001 NIL) + (setq G179001 NIL) (RETURN (DO ((G179007 NIL G179001) (G179008 |cAlist| (CDR G179008)) @@ -18521,7 +18521,7 @@ $dbKindAlist := NIL)) NIL)))) (COND (|$standard| (|htEndTable|))) - (SPADLET |$saturnContextMenuLines| |$htLineList|)))))) + (setq |$saturnContextMenuLines| |$htLineList|)))))) ;htFilterPage(htPage,args) == ; htInitPage("Filter String",htCopyProplist htPage) @@ -18573,8 +18573,8 @@ $dbKindAlist := (declare (special |$saturnPage|)) (RETURN (SEQ (PROGN - (SPADLET |fn2Call| (CAR G179039)) - (SPADLET |args| (CDR G179039)) + (setq |fn2Call| (CAR G179039)) + (setq |args| (CDR G179039)) (|htSay| "\\inputboxLink[\\lispLink[d]{\\verb+(|") (|htSay| |fn2Call|) (|htSay| "| ") @@ -18629,34 +18629,34 @@ $dbKindAlist := |firstTime| |c|) (RETURN (SEQ (PROGN - (SPADLET |cats| - (SPADLET |doms| - (SPADLET |paks| (SPADLET |defs| NIL)))) + (setq |cats| + (setq |doms| + (setq |paks| (setq |defs| NIL)))) (DO ((G179075 |cAlist| (CDR G179075)) (|x| NIL)) ((OR (ATOM G179075) (PROGN (SETQ |x| (CAR G179075)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |op| (CAAR |x|)) - (SPADLET |kind| (|dbConstructorKind| |op|)) + (setq |op| (CAAR |x|)) + (setq |kind| (|dbConstructorKind| |op|)) (COND ((BOOT-EQUAL |kind| '|category|) - (SPADLET |cats| (CONS |x| |cats|))) + (setq |cats| (CONS |x| |cats|))) ((BOOT-EQUAL |kind| '|domain|) - (SPADLET |doms| (CONS |x| |doms|))) + (setq |doms| (CONS |x| |doms|))) ((BOOT-EQUAL |kind| '|package|) - (SPADLET |paks| (CONS |x| |paks|))) - ('T (SPADLET |defs| (CONS |x| |defs|)))))))) - (SPADLET |lists| + (setq |paks| (CONS |x| |paks|))) + ('T (setq |defs| (CONS |x| |defs|)))))))) + (setq |lists| (CONS (NREVERSE |cats|) (CONS (NREVERSE |doms|) (CONS (NREVERSE |paks|) (CONS (NREVERSE |defs|) NIL))))) (|htBeginMenu| '|description|) (|htSayStandard| "\\indent{1}") - (SPADLET |kinds| + (setq |kinds| (PROG (G179081) - (SPADLET G179081 0) + (setq G179081 0) (RETURN (DO ((G179087 |lists| (CDR G179087)) (|x| NIL)) @@ -18669,7 +18669,7 @@ $dbKindAlist := ((> (|#| |x|) 0) (SETQ G179081 (+ G179081 1)))))))))) - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((G179109 '("category" "domain" "package" "default package") @@ -18686,7 +18686,7 @@ $dbKindAlist := (PROGN (COND (|firstTime| - (SPADLET |firstTime| NIL)) + (setq |firstTime| NIL)) ('T (|htSaySaturn| "\\\\"))) (|htSaySaturn| "\\item[") @@ -18713,7 +18713,7 @@ $dbKindAlist := (|htSayStandard| "\\tab{1}") (|htSay| "{\\em " - (SPADLET |c| (|#| |x|)) + (setq |c| (|#| |x|)) " ") (|htSay| (COND ((> |c| 1) @@ -18724,7 +18724,7 @@ $dbKindAlist := (|bcConTable| (REMDUP (PROG (G179123) - (SPADLET G179123 NIL) + (setq G179123 NIL) (RETURN (DO ((G179128 |x| @@ -18788,9 +18788,9 @@ $dbKindAlist := (declare (special |$conArgstrings| |$saturn| |$PatternVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |parlist| + (setq |parlist| (PROG (G179168) - (SPADLET G179168 NIL) + (setq G179168 NIL) (RETURN (DO ((G179173 (CDR |conform|) (CDR G179173)) @@ -18803,9 +18803,9 @@ $dbKindAlist := (SEQ (EXIT (SETQ G179168 (CONS (STRINGIMAGE |par|) G179168)))))))) - (SPADLET |manuelsCode?| + (setq |manuelsCode?| (> (PROG (G179179) - (SPADLET G179179 -999999) + (setq G179179 -999999) (RETURN (DO ((G179184 |parlist| (CDR G179184)) (|s| NIL)) @@ -18818,7 +18818,7 @@ $dbKindAlist := (SETQ G179179 (MAX G179179 (|#| |s|)))))))) 10)) - (SPADLET |w| (COND (|manuelsCode?| 55) ('T 23))) + (setq |w| (COND (|manuelsCode?| 55) ('T 23))) (|htSaySaturn| "\\colorbuttonbox{lightgray}{") (|htSay| "Optional argument value") @@ -18830,9 +18830,9 @@ $dbKindAlist := ((CDR |conform|) (|htSaySaturn| "\\newline{}"))) (|htSaySaturn| "\\begin{tabular}{p{.25in}l}") - (SPADLET |firstTime| 'T) - (SPADLET |odd| NIL) - (SPADLET |argSublis| (|htpProperty| |page| '|argSublis|)) + (setq |firstTime| 'T) + (setq |odd| NIL) + (setq |argSublis| (|htpProperty| |page| '|argSublis|)) (DO ((G179212 |$PatternVariableList| (CDR G179212)) (|parname| NIL) (G179213 (CDR |conform|) (CDR G179213)) @@ -18849,19 +18849,19 @@ $dbKindAlist := '|\\newline|) ('T '|\\tab{29}|))) (COND - (|firstTime| (SPADLET |firstTime| NIL)) + (|firstTime| (setq |firstTime| NIL)) ('T (|htSaySaturn| "\\\\"))) - (SPADLET |odd| (NULL |odd|)) - (SPADLET |argstring| + (setq |odd| (NULL |odd|)) + (setq |argstring| (COND ((AND (CONSP |$conArgstrings|) (PROGN - (SPADLET |a| + (setq |a| (QCAR |$conArgstrings|)) - (SPADLET |r| + (setq |r| (QCDR |$conArgstrings|)) 'T)) - (SPADLET |$conArgstrings| |r|) + (setq |$conArgstrings| |r|) |a|) ('T ""))) (|htMakePageStandard| @@ -18926,13 +18926,13 @@ $dbKindAlist := |t1| |typeForm|) (RETURN (SEQ (PROGN - (SPADLET |source| (CDDR G179269)) - (SPADLET |op| (CAR G179254)) - (SPADLET |args| (CDR G179254)) + (setq |source| (CDDR G179269)) + (setq |op| (CAR G179254)) + (setq |args| (CDR G179254)) (|htSaySaturn| "\\begin{tabular}{p{.25in}lp{0in}}") - (SPADLET |firstTime| 'T) - (SPADLET |coSig| (CDR (GETDATABASE |op| 'COSIG))) + (setq |firstTime| 'T) + (setq |coSig| (CDR (GETDATABASE |op| 'COSIG))) (DO ((G179306 |args| (CDR G179306)) (|x| NIL) (G179307 |source| (CDR G179307)) (|t| NIL) (G179308 |coSig| (CDR G179308)) (|pred| NIL)) @@ -18945,27 +18945,27 @@ $dbKindAlist := NIL) (SEQ (EXIT (PROGN (COND - (|firstTime| (SPADLET |firstTime| NIL)) + (|firstTime| (setq |firstTime| NIL)) ('T (|htSaySaturn| "\\\\") (|htSayStandard| ", and"))) (|htSayStandard| "\\newline ") (|htSaySaturnAmpersand|) - (SPADLET |typeForm| + (setq |typeForm| (COND ((AND (CONSP |t|) (EQ (QCAR |t|) '|:|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |t1| + (setq |t1| (QCAR |ISTMP#2|)) 'T)))))) |t1|) @@ -19077,17 +19077,17 @@ $dbKindAlist := (PROG (|single?| |thing| |exposeFlag| |items| |button| |bincount|) (RETURN (SEQ (PROGN - (SPADLET |single?| (NULL (CDR |data|))) + (setq |single?| (NULL (CDR |data|))) (|htBeginMenu| '|description|) - (SPADLET |bincount| 0) + (setq |bincount| 0) (DO ((G179366 |data| (CDR G179366)) (G179345 NIL)) ((OR (ATOM G179366) (PROGN (SETQ G179345 (CAR G179366)) NIL) (PROGN (PROGN - (SPADLET |thing| (CAR G179345)) - (SPADLET |exposeFlag| (CADR G179345)) - (SPADLET |items| (CDDR G179345)) + (setq |thing| (CAR G179345)) + (setq |exposeFlag| (CADR G179345)) + (setq |items| (CDDR G179345)) G179345) NIL)) NIL) @@ -19108,7 +19108,7 @@ $dbKindAlist := (CONS |bincount| NIL))))) NIL)) NIL)) - (SPADLET |button| + (setq |button| (|mkButtonBox| (+ 1 |bincount|))) (|htMakePageSaturn| @@ -19156,7 +19156,7 @@ $dbKindAlist := (|htSay| ":\\newline ") (|dbShowOpSigList| |which| |items| (TIMES (+ 1 |bincount|) 8192)) - (SPADLET |bincount| (+ |bincount| 1)))))) + (setq |bincount| (+ |bincount| 1)))))) (|htEndMenu| '|description|)))))) ;--------------------> NEW DEFINITION (see br-op1.boot.pamphlet) @@ -19247,34 +19247,34 @@ $dbKindAlist := (|$saturn| (|dbPresentOpsSaturn| |htPage| |which| |exclusions|)) ('T - (SPADLET |fromConPage?| - (SPADLET |conname| + (setq |fromConPage?| + (setq |conname| (|opOf| (|htpProperty| |htPage| '|conform|)))) - (SPADLET |usage?| NIL) - (SPADLET |star?| + (setq |usage?| NIL) + (setq |star?| (OR (NULL |fromConPage?|) (BOOT-EQUAL |which| "package operation"))) - (SPADLET |implementation?| |$conformsAreDomains|) - (SPADLET |rightmost?| + (setq |implementation?| |$conformsAreDomains|) + (setq |rightmost?| (OR |star?| (AND |implementation?| (NULL |$includeUnexposed?|)))) (COND ((INTEGERP (CAR |exclusions|)) - (SPADLET |exclusions| (CONS '|documentation| NIL)))) + (setq |exclusions| (CONS '|documentation| NIL)))) (|htpSetProperty| |htPage| '|exclusion| (CAR |exclusions|)) - (SPADLET |opAlist| + (setq |opAlist| (COND ((BOOT-EQUAL |which| "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))) - (SPADLET |empty?| (NULL |opAlist|)) - (SPADLET |one?| + (setq |empty?| (NULL |opAlist|)) + (setq |one?| (AND (CONSP |opAlist|) (EQ (QCDR |opAlist|) NIL) - (PROGN (SPADLET |entry| (QCAR |opAlist|)) 'T) + (PROGN (setq |entry| (QCAR |opAlist|)) 'T) (EQL 2 (|#| |entry|)))) - (SPADLET |one?| (OR |empty?| |one?|)) (|htBeginTable|) + (setq |one?| (OR |empty?| |one?|)) (|htBeginTable|) (|htSay| "{") (COND ((OR |one?| (|member| '|conditions| |exclusions|) @@ -19343,7 +19343,7 @@ $dbKindAlist := ((OR (NULL |implementation?|) (|member| '|implementation| |exclusions|) (BOOT-EQUAL |which| "attribute") - (AND (SPADLET |conname| + (AND (setq |conname| (|opOf| (|htpProperty| |htPage| '|conform|))) (BOOT-EQUAL @@ -19515,36 +19515,36 @@ $dbKindAlist := |$htLineList|)) (RETURN (PROGN - (SPADLET |$htLineList| NIL) - (SPADLET |$newPage| NIL) - (SPADLET |fromConPage?| - (SPADLET |conname| + (setq |$htLineList| NIL) + (setq |$newPage| NIL) + (setq |fromConPage?| + (setq |conname| (|opOf| (|htpProperty| |htPage| '|conform|)))) - (SPADLET |usage?| NIL) - (SPADLET |star?| + (setq |usage?| NIL) + (setq |star?| (OR (NULL |fromConPage?|) (BOOT-EQUAL |which| "package operation"))) - (SPADLET |implementation?| |$conformsAreDomains|) - (SPADLET |rightmost?| + (setq |implementation?| |$conformsAreDomains|) + (setq |rightmost?| (OR |star?| (AND |implementation?| (NULL |$includeUnexposed?|)))) (COND ((INTEGERP (CAR |exclusions|)) - (SPADLET |exclusions| (CONS '|documentation| NIL)))) + (setq |exclusions| (CONS '|documentation| NIL)))) (|htpSetProperty| |htPage| '|exclusion| (CAR |exclusions|)) - (SPADLET |opAlist| + (setq |opAlist| (COND ((BOOT-EQUAL |which| "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))) - (SPADLET |empty?| (NULL |opAlist|)) - (SPADLET |one?| + (setq |empty?| (NULL |opAlist|)) + (setq |one?| (AND (CONSP |opAlist|) (EQ (QCDR |opAlist|) NIL) - (PROGN (SPADLET |entry| (QCAR |opAlist|)) 'T) + (PROGN (setq |entry| (QCAR |opAlist|)) 'T) (EQL 2 (|#| |entry|)))) - (SPADLET |one?| (OR |empty?| |one?|)) + (setq |one?| (OR |empty?| |one?|)) (COND ((OR |one?| (|member| '|conditions| |exclusions|) (BOOT-EQUAL (|htpProperty| |htPage| '|condition?|) @@ -19583,7 +19583,7 @@ $dbKindAlist := ((OR (NULL |implementation?|) (|member| '|implementation| |exclusions|) (BOOT-EQUAL |which| "attribute") - (AND (SPADLET |conname| + (AND (setq |conname| (|opOf| (|htpProperty| |htPage| '|conform|))) (BOOT-EQUAL @@ -19689,7 +19689,7 @@ $dbKindAlist := (CONS '|exposureOn| NIL))))) NIL)) NIL)))))) - (SPADLET |$saturnContextMenuLines| |$htLineList|))))) + (setq |$saturnContextMenuLines| |$htLineList|))))) ;--======================================================================= ;-- Redefinitions from br-search.boot @@ -19746,8 +19746,8 @@ $dbKindAlist := |$exposedOnlyIfTrue|)) (RETURN (PROGN - (SPADLET |$newPage| NIL) - (SPADLET |$htLineList| NIL) + (setq |$newPage| NIL) + (setq |$htLineList| NIL) (COND (|$exposedOnlyIfTrue| (|htMakePage| @@ -19767,7 +19767,7 @@ $dbKindAlist := (CONS 'T NIL)))) NIL)) NIL)))) - (SPADLET |$saturnContextMenuLines| |$htLineList|) + (setq |$saturnContextMenuLines| |$htLineList|) (|htShowPageNoScroll|))))) ;--======================================================================= @@ -20001,28 +20001,28 @@ $dbKindAlist := |$standard| |$saturn| |$charFauxNewline|)) (RETURN (SEQ (PROGN - (SPADLET |$chooseDownCaseOfType| 'T) - (SPADLET |$whereList| NIL) - (SPADLET |$NumberList| + (setq |$chooseDownCaseOfType| 'T) + (setq |$whereList| NIL) + (setq |$NumberList| '(|i| |j| |k| |l| |m| |n| |i1| |j1| |k1| |l1| |m1| |n1| |i2| |j2| |k2| |l2| |m2| |n2| |i3| |j3| |k3| |l3| |m3| |n3| |i4| |j4| |k4| |l4| |m4| |n4|)) - (SPADLET |$ElementList| + (setq |$ElementList| '(|x| |y| |z| |u| |v| |w| |x1| |y1| |z1| |u1| |v1| |w1| |x2| |y2| |z2| |u2| |v2| |w2| |x3| |y3| |z3| |u3| |v3| |w3| |x4| |y4| |z4| |u4| |v4| |w4|)) - (SPADLET |$FunctionList| '(|f| |g| |h| |d| |e| F G H)) - (SPADLET |$DomainList| '(D R S E T A B C M N P Q U V W)) - (SPADLET |exactlyOneOpSig| (NULL |index|)) - (SPADLET |conform| + (setq |$FunctionList| '(|f| |g| |h| |d| |e| F G H)) + (setq |$DomainList| '(D R S E T A B C M N P Q U V W)) + (setq |exactlyOneOpSig| (NULL |index|)) + (setq |conform| (OR (|htpProperty| |htPage| '|domname|) (|htpProperty| |htPage| '|conform|) |origin|)) (COND (|$generalSearch?| - (SPADLET |$DomainList| (CDR |$DomainList|)))) - (SPADLET |opform| + (setq |$DomainList| (CDR |$DomainList|)))) + (setq |opform| (COND ((BOOT-EQUAL |which| "attribute") (COND @@ -20048,10 +20048,10 @@ $dbKindAlist := NIL)))) (|htSaySaturn| "]") (|htSayStandard| "\\tab{2}") - (SPADLET |op| (IFCAR |opform|)) - (SPADLET |args| (IFCDR |opform|)) - (SPADLET |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) - (SPADLET |n| (|#| |sig|)) + (setq |op| (IFCAR |opform|)) + (setq |args| (IFCDR |opform|)) + (setq |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) + (setq |n| (|#| |sig|)) (|do| (COND ((AND (EQL |n| 2) (LASSOC '|Nud| (PROPLIST |op|))) (|htSay| |ops| " {\\em " @@ -20098,29 +20098,29 @@ $dbKindAlist := (|quickForm2HtString| |x|) "}")))) (|htSay| ")")))))) - (SPADLET |constring| (|form2HtString| |conform|)) - (SPADLET |conname| (CAR |conform|)) - (SPADLET |$conkind| + (setq |constring| (|form2HtString| |conform|)) + (setq |conname| (CAR |conform|)) + (setq |$conkind| (OR (|htpProperty| |htPage| '|kind|) (STRINGIMAGE (GETDATABASE |conname| 'CONSTRUCTORKIND)))) - (SPADLET |$conlength| (|#| |constring|)) - (SPADLET |$conform| |conform|) - (SPADLET |$conargs| (CDR |conform|)) + (setq |$conlength| (|#| |constring|)) + (setq |$conform| |conform|) + (setq |$conargs| (CDR |conform|)) (COND ((BOOT-EQUAL |which| "operation") - (SPADLET |$signature| + (setq |$signature| (COND ((member |conname| |$Primitives|) NIL) ('T (CDAR (|getConstructorModemap| |conname|))))) - (SPADLET |tvarlist| + (setq |tvarlist| (TAKE (|#| |$conargs|) |$TriangleVariableList|)) - (SPADLET |$signature| + (setq |$signature| (SUBLISLIS |$FormalMapVariableList| |tvarlist| |$signature|)))) - (SPADLET |$sig| + (setq |$sig| (COND ((OR (BOOT-EQUAL |which| "attribute") @@ -20130,9 +20130,9 @@ $dbKindAlist := ((NEQUAL |$conkind| "package") |sig|) ('T - (SPADLET |symbolsUsed| + (setq |symbolsUsed| (PROG (G179491) - (SPADLET G179491 NIL) + (setq G179491 NIL) (RETURN (DO ((G179497 (CDR |conform|) @@ -20149,22 +20149,22 @@ $dbKindAlist := ((IDENTP |x|) (SETQ G179491 (CONS |x| G179491)))))))))) - (SPADLET |$DomainList| + (setq |$DomainList| (SETDIFFERENCE |$DomainList| |symbolsUsed|)) (|getSubstSigIfPossible| |sig|)))) (|htSaySaturn| "\\begin{tabular}{lp{0in}}") (COND ((|member| |which| '("operation" "constructor")) - (SPADLET |$displayReturnValue| NIL) + (setq |$displayReturnValue| NIL) (COND (|args| (|htSayStandard| "\\newline\\tab{2}{\\em Arguments:}") (|htSaySaturn| "{\\em Arguments:}") (|htSaySaturnAmpersand|) - (SPADLET |firstTime| 'T) - (SPADLET |coSig| + (setq |firstTime| 'T) + (setq |coSig| (KDR (GETDATABASE |op| 'COSIG))) (DO ((G179518 |args| (CDR G179518)) (|a| NIL) @@ -20185,11 +20185,11 @@ $dbKindAlist := (|htSaySaturn| "\\\\ ") (|htSaySaturnAmpersand|))) - (SPADLET |firstTime| NIL) + (setq |firstTime| NIL) (|htSayIndentRel| 15 'T) - (SPADLET |position| + (setq |position| (KAR |relatives|)) - (SPADLET |relatives| + (setq |relatives| (KDR |relatives|)) (COND ((AND (KAR |coSig|) @@ -20210,7 +20210,7 @@ $dbKindAlist := (|form2HtString| |a|) "}"))) (|htSay| '|, |) - (SPADLET |coSig| + (setq |coSig| (KDR |coSig|)) (|htSayValue| |t|) (|htSayIndentRel| @@ -20219,7 +20219,7 @@ $dbKindAlist := "\\newline "))))) (|htSaySaturn| "\\\\"))) (COND - ((CAR |$sig|) (SPADLET |$displayReturnValue| 'T) + ((CAR |$sig|) (setq |$displayReturnValue| 'T) (|htSayStandard| "\\newline\\tab{2}") (|htSay| "{\\em Returns:}") (|htSaySaturnAmpersand|) (|htSayIndentRel| 15 'T) @@ -20246,13 +20246,13 @@ $dbKindAlist := (|htSaySaturn| "\\\\"))) (COND ((NULL (member |predicate| '(T ASCONST))) - (SPADLET |pred| + (setq |pred| (|sublisFormal| (KDR |conform|) |predicate|)) - (SPADLET |count| (|#| |pred|)) + (setq |count| (|#| |pred|)) (|htSaySaturn| "{\\em Conditions:}") (|htSayStandard| "\\newline\\tab{2}{\\em Conditions:}") - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((G179538 (|displayBreakIntoAnds| (MSUBST |$conform| '$ |pred|)) @@ -20266,7 +20266,7 @@ $dbKindAlist := ((NULL |firstTime|) (|htSaySaturn| "\\\\"))) (|htSayIndentRel| 15 (> |count| 1)) - (SPADLET |firstTime| NIL) + (setq |firstTime| NIL) (|htSaySaturnAmpersand|) (|bcPred| |p| |$conform| 'T) (|htSayIndentRel| (SPADDIFFERENCE 15) @@ -20275,11 +20275,11 @@ $dbKindAlist := "\\newline "))))) (|htSaySaturn| "\\\\"))) (COND - (|$whereList| (SPADLET |count| (|#| |$whereList|)) + (|$whereList| (setq |count| (|#| |$whereList|)) (|htSaySaturn| "{\\em Where:}") (|htSayStandard| "\\newline\\tab{2}{\\em Where:}") - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (COND ((|assoc| '$ |$whereList|) (|htSayIndentRel| 15 'T) (|htSaySaturnAmpersand|) @@ -20291,7 +20291,7 @@ $dbKindAlist := "of category ") ('T "the domain "))) (|bcConform| |conform| 'T 'T) - (SPADLET |firstTime| NIL) + (setq |firstTime| NIL) (|htSayIndentRel| (SPADDIFFERENCE 15) 'T))) (DO ((G179556 |$whereList| (CDR G179556)) (G179464 NIL)) @@ -20301,9 +20301,9 @@ $dbKindAlist := NIL) (PROGN (PROGN - (SPADLET |d| (CAR G179464)) - (SPADLET |key| (CADR G179464)) - (SPADLET |t| (CDDR G179464)) + (setq |d| (CAR G179464)) + (setq |key| (CADR G179464)) + (setq |t| (CDDR G179464)) G179464) NIL)) NIL) @@ -20317,7 +20317,7 @@ $dbKindAlist := (|htSaySaturn| "\\\\ "))) (|htSaySaturnAmpersand|) - (SPADLET |firstTime| NIL) + (setq |firstTime| NIL) (|htSay| '|{\\em | |d| '|} is |) (|htSayConstructor| |key| (|sublisFormal| (KDR |conform|) @@ -20330,7 +20330,7 @@ $dbKindAlist := ((AND |doc| (NEQUAL |doc| "") (OR (NULL (AND (CONSP |doc|) (EQ (QCDR |doc|) NIL) (PROGN - (SPADLET |d| (QCAR |doc|)) + (setq |d| (QCAR |doc|)) 'T))) (NEQUAL |d| ""))) (|htSaySaturn| "{\\em Description:}") @@ -20342,11 +20342,11 @@ $dbKindAlist := ((BOOT-EQUAL |doc| |$charFauxNewline|) (|htSay| |$charNewline|)) ('T - (SPADLET |ndoc| + (setq |ndoc| (COND ((CONSP |doc|) (PROG (G179567) - (SPADLET G179567 NIL) + (setq G179567 NIL) (RETURN (DO ((G179572 |doc| (CDR G179572)) @@ -20371,7 +20371,7 @@ $dbKindAlist := (COND ((BOOT-EQUAL |which| "constructor") (COND - ((SPADLET |abbr| + ((setq |abbr| (GETDATABASE |conname| 'ABBREVIATION)) (|htSaySaturn| "\\\\") (|htSaySaturn| "{\\em Abbreviation:}") @@ -20383,7 +20383,7 @@ $dbKindAlist := (|htSayStandard| "\\newline{}"))) (COND ((AND |$saturn| - (SPADLET |link| + (setq |link| (|saturnHasExamplePage| |conname|))) (|htSaySaturn| "\\\\") (|htSaySaturn| "{\\em Examples:}") @@ -20402,7 +20402,7 @@ $dbKindAlist := (|htSayIndentRel| (SPADDIFFERENCE 15)))) (COND ((AND |$standard| |exactlyOneOpSig| - (SPADLET |infoAlist| + (setq |infoAlist| (|htpProperty| |htPage| '|infoAlist|))) (|displayInfoOp| |htPage| |infoAlist| |op| |sig|))) (|htSaySaturn| "\\end{tabular}")))))) @@ -20417,10 +20417,10 @@ $dbKindAlist := (PROG (|sourceFileName| |filename|) (RETURN (PROGN - (SPADLET |sourceFileName| + (setq |sourceFileName| (OR (GETDATABASE |conname| 'SOURCEFILE) "none")) - (SPADLET |filename| + (setq |filename| (|extractFileNameFromPath| |sourceFileName|)) (|htMakePage| (CONS (CONS '|text| @@ -20451,9 +20451,9 @@ $dbKindAlist := (declare (special |$standard|)) (RETURN (PROGN - (SPADLET |flag| (IFCAR |options|)) - (SPADLET |m| (abs |n|)) - (COND (|flag| (SPADLET |m| (+ |m| 2)))) + (setq |flag| (IFCAR |options|)) + (setq |m| (abs |n|)) + (COND (|flag| (setq |m| (+ |m| 2)))) (COND (|$standard| (|htSayStandard| @@ -20480,7 +20480,7 @@ $dbKindAlist := (declare (special |$atLeastOneUnexposed|)) (PROGN (|htSay| "{\\em *}") - (SPADLET |$atLeastOneUnexposed| 'T))) + (setq |$atLeastOneUnexposed| 'T))) ;--======================================================================= ;-- Page Operations @@ -20501,11 +20501,11 @@ $dbKindAlist := (declare (special |$saturnPage|)) (RETURN (PROGN - (SPADLET |pageDescription| (ELT |$saturnPage| 7)) + (setq |pageDescription| (ELT |$saturnPage| 7)) (COND ((AND (CONSP |pageDescription|) (EQUAL (QCAR |pageDescription|) |s|) - (PROGN (SPADLET |b| (QCDR |pageDescription|)) 'T)) + (PROGN (setq |b| (QCDR |pageDescription|)) 'T)) (SETELT |$saturnPage| 7 (CDR |pageDescription|))) ('T NIL)))))) @@ -20545,7 +20545,7 @@ $dbKindAlist := (declare (special |$saturn|)) (RETURN (PROGN - (SPADLET |skip| (IFCAR |options|)) + (setq |skip| (IFCAR |options|)) (COND (|$saturn| (COND @@ -20594,7 +20594,7 @@ $dbKindAlist := (PROGN (COND (|$saturn| - (SPADLET |code| + (setq |code| (CONS "(|conPage| '|" (CONS |name| (CONS "|)" NIL)))) (|htSaySaturn| (|mkDocLink| |code| |nameShown|)))) @@ -20674,10 +20674,10 @@ $dbKindAlist := (RETURN (SEQ (COND ((AND (CONSP |options|) (EQ (QCDR |options|) NIL) - (PROGN (SPADLET |n| (QCAR |options|)) 'T)) + (PROGN (setq |n| (QCAR |options|)) 'T)) (|htSaySaturn| (PROG (G179737) - (SPADLET G179737 "") + (setq G179737 "") (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G179737) @@ -20711,7 +20711,7 @@ $dbKindAlist := (RETURN (COND ((AND (EQL (STRING< "\\tab{" |s|) 5) - (SPADLET |k| (|charPosition| (|char| '}) |s| 4))) + (setq |k| (|charPosition| (|char| '}) |s| 4))) (SUBSTRING |s| (+ |k| 1) NIL)) ('T |s|))))) @@ -20877,8 +20877,8 @@ $dbKindAlist := (PROG (|sin| |sout|) (RETURN (PROGN - (SPADLET |sin| (STRINGIMAGE |x|)) - (SPADLET |sout| (STRINGIMAGE |y|)) + (setq |sin| (STRINGIMAGE |x|)) + (setq |sout| (STRINGIMAGE |y|)) (OBEY (STRCONC "sort -f \"" |sin| ".text\" > \"" |sout| ".text\"")) @@ -21007,45 +21007,45 @@ $dbKindAlist := |$insideExpressionIfTrue|)) (RETURN (SEQ (PROGN - (SPADLET |form| (CADR |df|)) - (SPADLET |signature| (CADDR |df|)) - (SPADLET |specialCases| (CADDDR |df|)) - (SPADLET |body| (CAR (CDDDDR |df|))) - (SPADLET |LETTMP#1| |specialCases|) - (SPADLET |lineNumber| (CAR |LETTMP#1|)) - (SPADLET |specialCases| (CDR |LETTMP#1|)) - (SPADLET |e| |oldE|) - (SPADLET |$form| NIL) - (SPADLET |$op| NIL) - (SPADLET |$functionStats| (CONS 0 (CONS 0 NIL))) - (SPADLET |$argumentConditionList| NIL) - (SPADLET |$finalEnv| NIL) - (SPADLET |$initCapsuleErrorCount| + (setq |form| (CADR |df|)) + (setq |signature| (CADDR |df|)) + (setq |specialCases| (CADDDR |df|)) + (setq |body| (CAR (CDDDDR |df|))) + (setq |LETTMP#1| |specialCases|) + (setq |lineNumber| (CAR |LETTMP#1|)) + (setq |specialCases| (CDR |LETTMP#1|)) + (setq |e| |oldE|) + (setq |$form| NIL) + (setq |$op| NIL) + (setq |$functionStats| (CONS 0 (CONS 0 NIL))) + (setq |$argumentConditionList| NIL) + (setq |$finalEnv| NIL) + (setq |$initCapsuleErrorCount| (|#| |$semanticErrorStack|)) - (SPADLET |$insideCapsuleFunctionIfTrue| 'T) - (SPADLET |$CapsuleModemapFrame| |e|) - (SPADLET |$CapsuleDomainsInScope| + (setq |$insideCapsuleFunctionIfTrue| 'T) + (setq |$CapsuleModemapFrame| |e|) + (setq |$CapsuleDomainsInScope| (|get| '|$DomainsInScope| 'special |e|)) - (SPADLET |$insideExpressionIfTrue| 'T) - (SPADLET |$returnMode| |m|) - (SPADLET |$op| (CAR |form|)) - (SPADLET |argl| (CDR |form|)) - (SPADLET |$form| (CONS |$op| |argl|)) - (SPADLET |argl| (|stripOffArgumentConditions| |argl|)) - (SPADLET |$formalArgList| + (setq |$insideExpressionIfTrue| 'T) + (setq |$returnMode| |m|) + (setq |$op| (CAR |form|)) + (setq |argl| (CDR |form|)) + (setq |$form| (CONS |$op| |argl|)) + (setq |argl| (|stripOffArgumentConditions| |argl|)) + (setq |$formalArgList| (APPEND |argl| |$formalArgList|)) - (SPADLET |argModeList| + (setq |argModeList| (COND - ((SPADLET |identSig| + ((setq |identSig| (|hasSigInTargetCategory| |argl| |form| (CAR |signature|) |e|)) - (SPADLET |e| + (setq |e| (|checkAndDeclare| |argl| |form| |identSig| |e|)) (CDR |identSig|)) ('T (PROG (G179836) - (SPADLET G179836 NIL) + (setq G179836 NIL) (RETURN (DO ((G179841 |argl| (CDR G179841)) (|a| NIL)) @@ -21060,37 +21060,37 @@ $dbKindAlist := (|getArgumentModeOrMoan| |a| |form| |e|) G179836)))))))))) - (SPADLET |argModeList| + (setq |argModeList| (|stripOffSubdomainConditions| |argModeList| |argl|)) - (SPADLET |signature'| + (setq |signature'| (CONS (CAR |signature|) |argModeList|)) (COND ((NULL |identSig|) - (SPADLET |oldE| + (setq |oldE| (|put| |$op| '|mode| (CONS '|Mapping| |signature'|) |oldE|)))) (COND ((NULL (CAR |signature'|)) - (SPADLET |signature'| + (setq |signature'| (COND (|identSig| |identSig|) ('T (OR (|getSignature| |$op| (CDR |signature'|) |e|) (RETURN NIL))))))) - (SPADLET |signature'| + (setq |signature'| (SUBLISLIS |argl| |$FormalFunctionParameterList| |signature'|)) - (SPADLET |e| (|giveFormalParametersValues| |argl| |e|)) - (SPADLET |$signatureOfForm| |signature'|) - (SPADLET |$functionLocations| + (setq |e| (|giveFormalParametersValues| |argl| |e|)) + (setq |$signatureOfForm| |signature'|) + (setq |$functionLocations| (CONS (CONS (CONS |$op| (CONS |$signatureOfForm| NIL)) |lineNumber|) |$functionLocations|)) - (SPADLET |e| (|addDomain| (CAR |signature'|) |e|)) - (SPADLET |e| (|compArgumentConditions| |e|)) + (setq |e| (|addDomain| (CAR |signature'|) |e|)) + (setq |e| (|compArgumentConditions| |e|)) (COND (|$profileCompiler| (DO ((G179851 |argl| (CDR G179851)) (|x| NIL) @@ -21107,20 +21107,20 @@ $dbKindAlist := ((OR (ATOM G179864) (PROGN (SETQ |domain| (CAR G179864)) NIL)) NIL) - (SEQ (EXIT (SPADLET |e| (|addDomain| |domain| |e|))))) - (SPADLET |rettype| + (SEQ (EXIT (setq |e| (|addDomain| |domain| |e|))))) + (setq |rettype| (|resolve| (CAR |signature'|) |$returnMode|)) - (SPADLET |localOrExported| + (setq |localOrExported| (COND ((AND (NULL (|member| |$op| |$formalArgList|)) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (|getmode| |$op| |e|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Mapping|)))) '|local|) ('T '|exported|))) - (SPADLET |formattedSig| + (setq |formattedSig| (|formatUnabbreviated| (CONS '|Mapping| |signature'|))) (COND @@ -21139,23 +21139,23 @@ $dbKindAlist := (APPEND (|bright| |$op|) (CONS ": " |formattedSig|))))) - (SPADLET T$ + (setq T$ (OR (CATCH '|compCapsuleBody| (|compOrCroak| |body| |rettype| |e|)) (CONS (INTERN " " "BOOT") (CONS |rettype| (CONS |e| NIL))))) (|NRTassignCapsuleFunctionSlot| |$op| |signature'|) - (SPADLET |catchTag| (MKQ (GENSYM))) - (SPADLET |fun| + (setq |catchTag| (MKQ (GENSYM))) + (setq |fun| (PROGN - (SPADLET |body'| + (setq |body'| (|replaceExitEtc| (CAR T$) |catchTag| '|TAGGEDreturn| |$returnMode|)) - (SPADLET |body'| + (setq |body'| (|addArgumentConditions| |body'| |$op|)) - (SPADLET |finalBody| + (setq |finalBody| (CONS 'CATCH (CONS |catchTag| (CONS |body'| NIL)))) @@ -21168,9 +21168,9 @@ $dbKindAlist := (CONS |finalBody| NIL))) NIL)) |oldE|))) - (SPADLET |$functorStats| + (setq |$functorStats| (|addStats| |$functorStats| |$functionStats|)) - (SPADLET |val| + (setq |val| (CONS |fun| (CONS |signature'| (CONS |e| NIL)))) (CONS |fun| @@ -21191,13 +21191,13 @@ $dbKindAlist := (PROG (|sig| |sig1| |op|) (RETURN (PROGN - (SPADLET |op| (CADR G179951)) - (SPADLET |sig| (CADDR G179951)) + (setq |op| (CADR G179951)) + (setq |sig| (CADDR G179951)) (COND ((AND (CONSP |sig|) (EQ (QCAR |sig|) '->)) (PROGN - (SPADLET |sig1| (|postType| |sig|)) - (SPADLET |op| + (setq |sig1| (|postType| |sig|)) + (setq |op| (postAtom (COND ((STRINGP |op|) (INTERN |op|)) @@ -21221,14 +21221,14 @@ $dbKindAlist := (COND ((AND (CONSP |sig|) (EQ (QCDR |sig|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |sig|)) + (setq |ISTMP#1| (QCAR |sig|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Mapping|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |target| (QCAR |ISTMP#2|)) - (SPADLET |r| (QCDR |ISTMP#2|)) + (setq |target| (QCAR |ISTMP#2|)) + (setq |r| (QCDR |ISTMP#2|)) 'T)))))) (CONS (CONS '|Mapping| (CONS (SUBLISLIS |$FormalFunctionParameterList| @@ -21307,7 +21307,7 @@ $dbKindAlist := (defun |bcConform1,say| (|x|) (declare (special |$italics?|)) (SEQ (IF |$italics?| (|bcHt| "{\\em ") NIL) - (IF (BOOT-EQUAL |x| '|etc|) (SPADLET |x| "...") + (IF (BOOT-EQUAL |x| '|etc|) (setq |x| "...") NIL) (|bcHt| (|escapeSpecialIds| (STRINGIMAGE |x|))) (EXIT (IF |$italics?| (|bcHt| "}") NIL)))) @@ -21315,13 +21315,13 @@ $dbKindAlist := (defun |bcConform1,tl| (|u|) (PROG (|firstTime|) (RETURN - (SEQ (|bcHt| "(") (SPADLET |firstTime| 'T) + (SEQ (|bcHt| "(") (setq |firstTime| 'T) (DO ((G180021 |u| (CDR G180021)) (|x| NIL)) ((OR (ATOM G180021) (PROGN (SETQ |x| (CAR G180021)) NIL)) NIL) (SEQ (IF (NULL |firstTime|) (|bcHt| ",") NIL) - (SPADLET |firstTime| NIL) + (setq |firstTime| NIL) (EXIT (|bcConform1,hd| |x|)))) (EXIT (|bcHt| ")")))))) @@ -21341,8 +21341,8 @@ $dbKindAlist := (declare (special |$saturn|)) (RETURN (SEQ (PROGN - (SPADLET |target| (CAR G180044)) - (SPADLET |source| (CDR G180044)) + (setq |target| (CAR G180044)) + (setq |source| (CDR G180044)) G180044 (SEQ (|bcConform1,tuple| |source|) (|bcHt| (SEQ (IF |$saturn| @@ -21360,14 +21360,14 @@ $dbKindAlist := (EXIT (SEQ (IF (AND (NULL (member |form| |$Primitives|)) (NULL (|constructor?| |form|))) (EXIT (SEQ - (SPADLET |s| (STRINGIMAGE |form|)) + (setq |s| (STRINGIMAGE |form|)) (IF (BOOT-EQUAL (ELT |s| 0) (|char| '|#|)) (EXIT (SEQ (IF - (SPADLET |n| + (setq |n| (POSN1 |form| |$FormalFunctionParameterList|)) (EXIT @@ -21382,7 +21382,7 @@ $dbKindAlist := (|htSay| (|escapeSpecialChars| (STRINGIMAGE |form|))))))) - (SPADLET |s| (STRINGIMAGE |form|)) + (setq |s| (STRINGIMAGE |form|)) (IF |$italicHead?| (EXIT (|htSayItalics| |s|))) (IF |$bcMultipleNames| @@ -21395,7 +21395,7 @@ $dbKindAlist := (CONS '|(\|conPage\| '\|| (CONS |s| (CONS "|)" NIL)))))))) - (IF (BOOT-EQUAL (SPADLET |head| (QCAR |form|)) 'QUOTE) + (IF (BOOT-EQUAL (setq |head| (QCAR |form|)) 'QUOTE) (EXIT (SEQ (|htSay| "'") (EXIT (|bcConform1,hd| (CADR |form|)))))) (IF (BOOT-EQUAL |head| 'SIGNATURE) @@ -21411,7 +21411,7 @@ $dbKindAlist := (IF (AND (QCDR |form|) (|dbEvalableConstructor?| |form|)) (EXIT (|bcConstructor| |form| |head|))) (|bcConform1,hd| |head|) - (IF (NULL (SPADLET |r| (QCDR |form|))) (EXIT NIL)) + (IF (NULL (setq |r| (QCDR |form|))) (EXIT NIL)) (EXIT (|bcConform1,tl| (QCDR |form|))))))) (defun |bcConform1| (|form|) @@ -21420,11 +21420,11 @@ $dbKindAlist := (COND ((AND (CONSP |form|) (EQ (QCAR |form|) '|ifp|) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |form1| (QCAR |ISTMP#1|)) - (SPADLET |pred| (QCDR |ISTMP#1|)) + (setq |form1| (QCAR |ISTMP#1|)) + (setq |pred| (QCDR |ISTMP#1|)) 'T)))) (|bcConform1,hd| |form1|) (|bcPred| |pred|)) ('T (|bcConform1,hd| |form|)))))) diff --git a/src/interp/buildom.lisp.pamphlet b/src/interp/buildom.lisp.pamphlet index 765252a..e83f3d4 100644 --- a/src/interp/buildom.lisp.pamphlet +++ b/src/interp/buildom.lisp.pamphlet @@ -73,11 +73,11 @@ (declare (special |$Expression|)) (RETURN (SEQ (PROGN - (SPADLET |dom| (make-array 10)) + (setq |dom| (make-array 10)) (SETELT |dom| 0 (CONS '|Record| (PROG (G166069) - (SPADLET G166069 NIL) + (setq G166069 NIL) (RETURN (DO ((G166074 |args| (CDR G166074)) (|a| NIL)) @@ -124,7 +124,7 @@ (CONS (CONS '(|SetCategory|) NIL) NIL))) (SETELT |dom| 5 (PROG (G166084) - (SPADLET G166084 NIL) + (setq G166084 NIL) (RETURN (DO ((G166089 |args| (CDR G166089)) (|a| NIL)) @@ -140,7 +140,7 @@ (SETELT |dom| 8 (CONS #'|Undef| |dom|)) (SETELT |dom| 9 (COND - ((<= (SPADLET |n| (LENGTH |args|)) 2) + ((<= (setq |n| (LENGTH |args|)) 2) (CONS NIL NIL)) ('T (make-array |n|)))) |dom|))))) @@ -165,7 +165,7 @@ (RETURN (SEQ (COND ((CONSP |x|) - (SPADLET |b| + (setq |b| (SPADCALL (CAR |x|) (CAR |y|) (OR (CAR (ELT |dom| 9)) (CAR (RPLACA (ELT |dom| 9) @@ -180,9 +180,9 @@ (CDR (RPLACD (ELT |dom| 9) (|findEqualFun| (ELT (ELT |dom| 5) 1)))))))))) - ((VECP |x|) (SPADLET |equalfuns| (ELT |dom| 9)) + ((VECP |x|) (setq |equalfuns| (ELT |dom| 9)) (PROG (G166105) - (SPADLET G166105 'T) + (setq G166105 'T) (RETURN (DO ((G166112 NIL (NULL G166105)) (|i| 0 (QSADD1 |i|)) @@ -240,7 +240,7 @@ (PROG (|n| |tag| |fdom|) (RETURN (SEQ (PROGN - (SPADLET |n| (|#| (CDR |source|))) + (setq |n| (|#| (CDR |source|))) (COND ((EQL |n| 1) (CONS '|construct| @@ -269,7 +269,7 @@ ((VECP |x|) (CONS '|construct| (PROG (G166146) - (SPADLET G166146 NIL) + (setq G166146 NIL) (RETURN (DO ((|i| 0 (QSADD1 |i|)) (G166153 (CDR |source|) @@ -281,8 +281,8 @@ NIL) (PROGN (PROGN - (SPADLET |tag| (CADR G166135)) - (SPADLET |fdom| + (setq |tag| (CADR G166135)) + (setq |fdom| (CADDR G166135)) G166135) NIL)) @@ -327,11 +327,11 @@ (declare (special |$Expression|)) (RETURN (SEQ (PROGN - (SPADLET |dom| (make-array 9)) + (setq |dom| (make-array 9)) (SETELT |dom| 0 (CONS '|Union| (PROG (G166195) - (SPADLET G166195 NIL) + (setq G166195 NIL) (RETURN (DO ((G166207 |args| (CDR G166207)) (|a| NIL)) @@ -347,20 +347,20 @@ ((AND (CONSP |a|) (EQ (QCAR |a|) '|:|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |tag| + (setq |tag| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |domval| + (setq |domval| (QCAR |ISTMP#2|)) 'T)))))) (CONS '|:| @@ -419,11 +419,11 @@ (PROG (|LETTMP#1| |branches| |predlist| |typeFun| |same|) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| (ELT |dom| 0)) - (SPADLET |branches| (CDR |LETTMP#1|)) - (SPADLET |branches| (|orderUnionEntries| |branches|)) - (SPADLET |predlist| (|mkPredList| |branches|)) - (SPADLET |same| NIL) + (setq |LETTMP#1| (ELT |dom| 0)) + (setq |branches| (CDR |LETTMP#1|)) + (setq |branches| (|orderUnionEntries| |branches|)) + (setq |predlist| (|mkPredList| |branches|)) + (setq |same| NIL) (DO ((G166239 (|stripUnionTags| |branches|) (CDR G166239)) (|b| NIL) (G166240 |predlist| (CDR G166240)) @@ -435,7 +435,7 @@ (NULL (NULL |same|))) NIL) (SEQ (EXIT (PROGN - (SPADLET |typeFun| + (setq |typeFun| (CONS 'LAMBDA (CONS '(|#1|) (CONS |p| NIL)))) (COND @@ -443,14 +443,14 @@ (FUNCALL |typeFun| |y|)) (COND ((STRINGP |b|) - (SPADLET |same| (BOOT-EQUAL |x| |y|))) + (setq |same| (BOOT-EQUAL |x| |y|))) ('T (COND ((AND (CONSP |p|) (EQ (QCAR |p|) 'EQCAR)) - (SPADLET |x| (CDR |x|)) - (SPADLET |y| (CDR |y|)))) - (SPADLET |same| + (setq |x| (CDR |x|)) + (setq |y| (CDR |y|)))) + (setq |same| (SPADCALL |x| |y| (|findEqualFun| (|evalDomain| |b|)))))))))))) @@ -481,10 +481,10 @@ (PROG (|branches| |predlist| |byJane| |typeFun| |byGeorge|) (RETURN (SEQ (PROGN - (SPADLET |branches| (CDR |source|)) - (SPADLET |branches| (|orderUnionEntries| |branches|)) - (SPADLET |predlist| (|mkPredList| |branches|)) - (SPADLET |byGeorge| (SPADLET |byJane| (GENSYM))) + (setq |branches| (CDR |source|)) + (setq |branches| (|orderUnionEntries| |branches|)) + (setq |predlist| (|mkPredList| |branches|)) + (setq |byGeorge| (setq |byJane| (GENSYM))) (DO ((G166279 (|stripUnionTags| |branches|) (CDR G166279)) (|b| NIL) (G166280 |predlist| (CDR G166280)) @@ -495,7 +495,7 @@ (PROGN (SETQ |p| (CAR G166280)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |typeFun| + (setq |typeFun| (CONS 'LAMBDA (CONS '(|#1|) (CONS |p| NIL)))) (COND @@ -505,12 +505,12 @@ (COND ((AND (CONSP |p|) (EQ (QCAR |p|) 'EQCAR)) - (SPADLET |x| (CDR |x|)))) + (setq |x| (CDR |x|)))) (COND ((STRINGP |b|) - (SPADLET |byGeorge| |x|)) + (setq |byGeorge| |x|)) ('T - (SPADLET |byGeorge| + (setq |byGeorge| (|coerceVal2E| |x| |b|))))))) ('T NIL)))))) (COND @@ -545,11 +545,11 @@ (declare (special |$Expression|)) (RETURN (SEQ (PROGN - (SPADLET |dom| (make-array 9)) + (setq |dom| (make-array 9)) (SETELT |dom| 0 (CONS '|Mapping| (PROG (G166306) - (SPADLET G166306 NIL) + (setq G166306 NIL) (RETURN (DO ((G166311 |args| (CDR G166311)) (|a| NIL)) @@ -651,7 +651,7 @@ (declare (special |$Symbol| |$Expression|)) (RETURN (PROGN - (SPADLET |dom| (make-array 9)) + (setq |dom| (make-array 9)) (SETELT |dom| 0 (CONS '|Enumeration| |args|)) (SETELT |dom| 1 (CONS #'|lookupInTable| @@ -716,8 +716,8 @@ (PROG (|args| |val|) (RETURN (SEQ (PROGN - (SPADLET |args| (ELT |dom| 5)) - (SPADLET |val| (SPADDIFFERENCE 1)) + (setq |args| (ELT |dom| 5)) + (setq |val| (SPADDIFFERENCE 1)) (SEQ (DO ((G166353 |args| (CDR G166353)) (|v| NIL) (|i| 0 (QSADD1 |i|))) ((OR (ATOM G166353) @@ -725,7 +725,7 @@ NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |sym| |v|) - (EXIT (RETURN (SPADLET |val| |i|)))))))) + (EXIT (RETURN (setq |val| |i|)))))))) (COND ((MINUSP |val|) (|error| (CONS '|Cannot coerce| @@ -789,17 +789,17 @@ (declare (special |$EmptyEnvironment| |$CategoryFrame|)) (RETURN (SEQ (PROGN - (SPADLET |op| (CAR |title|)) - (SPADLET |constructorFunction| + (setq |op| (CAR |title|)) + (setq |constructorFunction| (OR (GETL |op| '|makeFunctionList|) (|systemErrorHere| "constructorCategory"))) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (FUNCALL |constructorFunction| '$ |title| |$CategoryFrame|)) - (SPADLET |funlist| (CAR |LETTMP#1|)) - (SPADLET |oplist| + (setq |funlist| (CAR |LETTMP#1|)) + (setq |oplist| (PROG (G166415) - (SPADLET G166415 NIL) + (setq G166415 NIL) (RETURN (DO ((G166421 |funlist| (CDR G166421)) (G166391 NIL)) @@ -809,9 +809,9 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G166391)) - (SPADLET |b| (CADR G166391)) - (SPADLET |c| (CADDR G166391)) + (setq |a| (CAR G166391)) + (setq |b| (CADR G166391)) + (setq |c| (CADDR G166391)) G166391) NIL)) (NREVERSE0 G166415)) @@ -821,7 +821,7 @@ (CONS |a| (CONS |b| NIL)) (CONS 'T (CONS |c| NIL))) G166415)))))))) - (SPADLET |cat| + (setq |cat| (|JoinInner| (CONS (|SetCategory|) (CONS (|mkCategory| '|domain| |oplist| @@ -845,8 +845,8 @@ (declare (special |$Expression|)) (RETURN (PROGN - (SPADLET |dc| (GENSYM)) - (SPADLET |sigFunAlist| + (setq |dc| (GENSYM)) + (setq |sigFunAlist| (CONS (CONS '= (CONS (CONS (CONS '|Boolean| NIL) (CONS |nam| (CONS |nam| NIL))) @@ -893,14 +893,14 @@ (declare (special |$Expression|)) (RETURN (SEQ (PROGN - (SPADLET |Alist| (CDR G166460)) - (SPADLET |len| (|#| |Alist|)) - (SPADLET |dc| (GENSYM)) - (SPADLET |sigFunAlist| + (setq |Alist| (CDR G166460)) + (setq |len| (|#| |Alist|)) + (setq |dc| (GENSYM)) + (setq |sigFunAlist| (CONS (CONS '|construct| (CONS (CONS |nam| (PROG (G166481) - (SPADLET G166481 NIL) + (setq G166481 NIL) (RETURN (DO ((G166487 |Alist| @@ -913,9 +913,9 @@ NIL) (PROGN (PROGN - (SPADLET |a| + (setq |a| (CADR G166447)) - (SPADLET A + (setq A (CADDR G166447)) G166447) NIL)) @@ -943,7 +943,7 @@ NIL))) (APPEND (PROG (G166500) - (SPADLET G166500 NIL) + (setq G166500 NIL) (RETURN (DO ((|i| 0 (QSADD1 |i|)) @@ -957,9 +957,9 @@ NIL) (PROGN (PROGN - (SPADLET |a| + (setq |a| (CADR G166451)) - (SPADLET A + (setq A (CADDR G166451)) G166451) NIL)) @@ -992,7 +992,7 @@ G166500))))))) (APPEND (PROG (G166520) - (SPADLET G166520 NIL) + (setq G166520 NIL) (RETURN (DO ((|i| 0 (QSADD1 |i|)) @@ -1006,9 +1006,9 @@ NIL) (PROGN (PROGN - (SPADLET |a| + (setq |a| (CADR G166455)) - (SPADLET A + (setq A (CADDR G166455)) G166455) NIL)) @@ -1088,10 +1088,10 @@ (declare (special |$InteractiveMode| |$Expression|)) (RETURN (SEQ (PROGN - (SPADLET |listOfEntries| (CDR |form|)) - (SPADLET |dc| |name|) - (COND ((BOOT-EQUAL |name| '|Rep|) (SPADLET |name| '$))) - (SPADLET |cList| + (setq |listOfEntries| (CDR |form|)) + (setq |dc| |name|) + (COND ((BOOT-EQUAL |name| '|Rep|) (setq |name| '$))) + (setq |cList| (CONS (CONS '= (CONS (CONS (CONS '|Boolean| NIL) (CONS |name| @@ -1109,7 +1109,7 @@ (CONS |dc| (CONS 7 NIL))) NIL))) (PROG (G166569) - (SPADLET G166569 NIL) + (setq G166569 NIL) (RETURN (DO ((G166578 |listOfEntries| @@ -1123,9 +1123,9 @@ NIL) (PROGN (PROGN - (SPADLET |tag| + (setq |tag| (CADR G166551)) - (SPADLET |type| + (setq |type| (CADDR G166551)) G166551) NIL)) @@ -1156,7 +1156,7 @@ (CONS |tag| NIL))) (CONS (PROGN - (SPADLET |gg| + (setq |gg| (GENSYM)) (COND (|$InteractiveMode| @@ -1258,10 +1258,10 @@ (PROG (SL |len| |dc| |cList|) (RETURN (PROGN - (SPADLET SL (CDR G166597)) - (SPADLET |len| (|#| SL)) - (SPADLET |dc| |nam|) - (SPADLET |cList| + (setq SL (CDR G166597)) + (setq |len| (|#| SL)) + (setq |dc| |nam|) + (setq |cList| (CONS NIL (CONS (CONS '= (CONS @@ -1350,25 +1350,25 @@ (declare (special |$Expression|)) (RETURN (SEQ (PROGN - (SPADLET |listOfEntries| (CDR |form|)) + (setq |listOfEntries| (CDR |form|)) (COND ((PROGN - (SPADLET |ISTMP#1| (CAR |listOfEntries|)) + (setq |ISTMP#1| (CAR |listOfEntries|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|:|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL))))))) (|mkNewUnionFunList| |op| |form| |e|)) ('T - (SPADLET |listOfEntries| + (setq |listOfEntries| (|orderUnionEntries| |listOfEntries|)) - (SPADLET |predList| (|mkPredList| |listOfEntries|)) - (SPADLET |g| (GENSYM)) - (SPADLET |cList| + (setq |predList| (|mkPredList| |listOfEntries|)) + (setq |g| (GENSYM)) + (setq |cList| (CONS (CONS '= (CONS (CONS (CONS '|Boolean| NIL) @@ -1386,7 +1386,7 @@ (CONS |op| (CONS 7 NIL))) NIL))) (PROG (G166754) - (SPADLET G166754 NIL) + (setq G166754 NIL) (RETURN (DO ((G166789 |predList| @@ -1421,18 +1421,18 @@ (EQ (QCAR |p|) 'EQCAR) (PROGN - (SPADLET + (setq |ISTMP#1| (QCDR |p|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET + (setq |x| (QCAR |ISTMP#1|)) - (SPADLET + (setq |ISTMP#2| (QCDR |ISTMP#1|)) @@ -1444,7 +1444,7 @@ |ISTMP#2|) NIL) (PROGN - (SPADLET + (setq |n| (QCAR |ISTMP#2|)) @@ -1474,7 +1474,7 @@ (CONS |g| NIL)) (CONS (PROGN - (SPADLET |gg| + (setq |gg| (GENSYM)) (COND ((AND @@ -1483,18 +1483,18 @@ (QCAR |p|) 'EQCAR) (PROGN - (SPADLET + (setq |ISTMP#1| (QCDR |p|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET + (setq |x| (QCAR |ISTMP#1|)) - (SPADLET + (setq |ISTMP#2| (QCDR |ISTMP#1|)) @@ -1506,24 +1506,24 @@ |ISTMP#2|) NIL) (PROGN - (SPADLET + (setq |n| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |ref| + (setq |ref| (CONS 'QCDR (CONS |gg| NIL))) - (SPADLET |q| + (setq |q| (CONS 'QEQCAR (CONS |gg| (CONS |n| NIL))))) ('T - (SPADLET |ref| + (setq |ref| |gg|) - (SPADLET |q| + (setq |q| (MSUBST |gg| '|#1| |p|)))) (CONS 'XLAM @@ -1563,18 +1563,18 @@ (EQ (QCAR |p|) 'EQCAR) (PROGN - (SPADLET + (setq |ISTMP#1| (QCDR |p|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET + (setq |x| (QCAR |ISTMP#1|)) - (SPADLET + (setq |ISTMP#2| (QCDR |ISTMP#1|)) @@ -1616,18 +1616,18 @@ (QCAR |p|) 'EQCAR) (PROGN - (SPADLET + (setq |ISTMP#1| (QCDR |p|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET + (setq |x| (QCAR |ISTMP#1|)) - (SPADLET + (setq |ISTMP#2| (QCDR |ISTMP#1|)) @@ -1639,7 +1639,7 @@ |ISTMP#2|) NIL) (PROGN - (SPADLET + (setq |n| (QCAR |ISTMP#2|)) @@ -1664,11 +1664,11 @@ NIL))))) NIL))) NIL)))))))))))))) - (SPADLET |op| + (setq |op| (COND ((BOOT-EQUAL |op| '|Rep|) '$) ('T |op|))) - (SPADLET |cList| (MSUBST |op| |g| |cList|)) + (setq |cList| (MSUBST |op| |g| |cList|)) (CONS |cList| (CONS |e| NIL))))))))) diff --git a/src/interp/c-doc.lisp.pamphlet b/src/interp/c-doc.lisp.pamphlet index 82d1c4a..29fe605 100644 --- a/src/interp/c-doc.lisp.pamphlet +++ b/src/interp/c-doc.lisp.pamphlet @@ -30,25 +30,25 @@ ; (declare (special |$FormalMapArgumentList|)) ; (RETURN ; (PROGN -; (SPADLET |LETTMP#1| (|simplifyModemap| |modemap|)) -; (SPADLET |dc| (CAR |LETTMP#1|)) -; (SPADLET |target| (CADR |LETTMP#1|)) -; (SPADLET |sl| (CADDR |LETTMP#1|)) -; (SPADLET |pred| (CADDDR |LETTMP#1|)) -; (SPADLET D (CAR (CDDDDR |LETTMP#1|))) -; (SPADLET |sig| (CONS |target| |sl|)) +; (setq |LETTMP#1| (|simplifyModemap| |modemap|)) +; (setq |dc| (CAR |LETTMP#1|)) +; (setq |target| (CADR |LETTMP#1|)) +; (setq |sl| (CADDR |LETTMP#1|)) +; (setq |pred| (CADDDR |LETTMP#1|)) +; (setq D (CAR (CDDDDR |LETTMP#1|))) +; (setq |sig| (CONS |target| |sl|)) ; (COND -; ((NULL (ATOM |dc|)) (SPADLET |sig| (MSUBST '$ |dc| |sig|)) -; (SPADLET |sig| +; ((NULL (ATOM |dc|)) (setq |sig| (MSUBST '$ |dc| |sig|)) +; (setq |sig| ; (SUBLISLIS |$FormalMapVariableList| (CDR |dc|) ; |sig|)) ; (|getDocForDomain| |conName| |op| |sig|)) ; ('T ; (COND -; ((SPADLET |argList| +; ((setq |argList| ; (IFCDR (|getOfCategoryArgument| |pred|))) ; (SUBLISLIS |$FormalMapArgumentList| |argList| |sig|))) -; (SPADLET |sig| (MSUBST '$ |dc| |sig|)) +; (setq |sig| (MSUBST '$ |dc| |sig|)) ; (|getDocForCategory| |conName| |op| |sig|))))))) ;getOfCategoryArgument pred == @@ -62,10 +62,10 @@ ; (RETURN ; (SEQ (COND ; ((AND (CONSP |pred|) -; (PROGN (SPADLET |fn| (QCAR |pred|)) 'T) +; (PROGN (setq |fn| (QCAR |pred|)) 'T) ; (member |fn| '(AND OR NOT))) ; (PROG (G166100) -; (SPADLET G166100 NIL) +; (setq G166100 NIL) ; (RETURN ; (DO ((G166106 NIL G166100) ; (G166107 (CDR |pred|) (CDR G166107)) @@ -78,14 +78,14 @@ ; (|getOfCategoryArgument| |x|))))))))) ; ((AND (CONSP |pred|) (EQ (QCAR |pred|) '|ofCategory|) ; (PROGN -; (SPADLET |ISTMP#1| (QCDR |pred|)) +; (setq |ISTMP#1| (QCDR |pred|)) ; (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '*1) ; (PROGN -; (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) +; (setq |ISTMP#2| (QCDR |ISTMP#1|)) ; (AND (CONSP |ISTMP#2|) ; (EQ (QCDR |ISTMP#2|) NIL) ; (PROGN -; (SPADLET |form| (QCAR |ISTMP#2|)) +; (setq |form| (QCAR |ISTMP#2|)) ; 'T)))))) ; |form|) ; ('T NIL)))))) @@ -99,7 +99,7 @@ ; (RETURN ; (SEQ (OR (|getOpDoc| (|constructor?| |name|) |op| |sig|) ; (PROG (G166122) -; (SPADLET G166122 NIL) +; (setq G166122 NIL) ; (RETURN ; (DO ((G166128 NIL G166122) ; (G166129 (|whatCatCategories| |name|) @@ -122,7 +122,7 @@ ; (RETURN ; (SEQ (OR (|getOpDoc| (|constructor?| |name|) |op| |sig|) ; (PROG (G166140) -; (SPADLET G166140 NIL) +; (setq G166140 NIL) ; (RETURN ; (DO ((G166146 NIL G166140) ; (G166147 (|whatCatExtDom| |name|) @@ -149,15 +149,15 @@ ; (DECLARE (SPECIAL |$argList| $ |$FormalMapVariableList|)) ; (RETURN ; (SEQ (PROGN -; (SPADLET |u| +; (setq |u| ; (LASSOC |op| (GETDATABASE |abb| 'DOCUMENTATION))) -; (SPADLET |$argList| |$FormalMapVariableList|) -; (SPADLET $ '$) +; (setq |$argList| |$FormalMapVariableList|) +; (setq $ '$) ; (COND ; ((AND (CONSP |sigPart|) (EQ (QCDR |sigPart|) NIL) -; (PROGN (SPADLET |sig| (QCAR |sigPart|)) 'T)) +; (PROGN (setq |sig| (QCAR |sigPart|)) 'T)) ; (PROG (G166163) -; (SPADLET G166163 NIL) +; (setq G166163 NIL) ; (RETURN ; (DO ((G166171 NIL G166163) ; (G166172 |u| (CDR G166172)) @@ -168,8 +168,8 @@ ; NIL) ; (PROGN ; (PROGN -; (SPADLET |s| (CAR G166158)) -; (SPADLET |d| (CDR G166158)) +; (setq |s| (CAR G166158)) +; (setq |d| (CDR G166158)) ; G166158) ; NIL)) ; G166163) @@ -187,7 +187,7 @@ ; (DECLARE (SPECIAL |$bootStrapMode|)) ; (RETURN ; (PROGN -; (SPADLET |$bootStrapMode| 'T) +; (setq |$bootStrapMode| 'T) ; (/RQ-LIB-1 (CONS |fn| (CONS 'SPAD NIL))))))) ;--======================================================================= @@ -207,20 +207,20 @@ (PROG (|m| |k| |acc|) (RETURN (SEQ (PROGN - (SPADLET |acc| NIL) + (setq |acc| NIL) (DO () ((NULL |l|) NIL) (SEQ (EXIT (PROGN - (SPADLET |m| (MAXINDEX (CAR |l|))) - (SPADLET |k| + (setq |m| (MAXINDEX (CAR |l|))) + (setq |k| (|charPosition| (|char| '|:|) (CAR |l|) 0)) (COND ((<= |k| |m|) (RETURN NIL)) ('T - (SPADLET |acc| (CONS (CAR |l|) |acc|)) - (SPADLET |l| (CDR |l|)))))))) + (setq |acc| (CONS (CAR |l|) |acc|)) + (setq |l| (CDR |l|)))))))) (PROG (G166663) - (SPADLET G166663 "") + (setq G166663 "") (RETURN (DO ((G166668 (NREVERSE |acc|) (CDR G166668)) (|x| NIL)) @@ -242,7 +242,7 @@ (RETURN (COND ((BOOT-EQUAL |s| "") "") - ((> (|#| |s|) (SPADLET |k| (|charPosition| |$charBack| |s| 0))) + ((> (|#| |s|) (setq |k| (|charPosition| |$charBack| |s| 0))) (COND ((EQL |k| 0) (|removeBackslashes| (SUBSTRING |s| 1 NIL))) ('T @@ -261,10 +261,10 @@ (PROG (|conname|) (RETURN (PROGN - (SPADLET |conname| (|opOf| |conform|)) + (setq |conname| (|opOf| |conform|)) (COND ((OR (|constructor?| |conname|) - (SPADLET |conname| (|abbreviation?| |conname|))) + (setq |conname| (|abbreviation?| |conname|))) (|#| (GETDATABASE |conname| 'CONSTRUCTORARGS))) ('T NIL)))))) @@ -287,7 +287,7 @@ (RETURN (SEQ (IF (NEQUAL (|#| |form|) (|#| |coSig|)) (EXIT |form|)) (IF (PROG (G166927) - (SPADLET G166927 NIL) + (setq G166927 NIL) (RETURN (DO ((G166935 NIL G166927) (G166936 (CDR |form|) (CDR G166936)) @@ -312,8 +312,8 @@ (RETURN (COND ((ATOM |form|) '|ok|) - ('T (SPADLET |op| (CAR |form|)) (SPADLET |args| (CDR |form|)) - (SPADLET |conname| + ('T (setq |op| (CAR |form|)) (setq |args| (CDR |form|)) + (setq |conname| (COND ((|constructor?| |op|) |op|) ('T (|abbreviation?| |op|)))) @@ -334,11 +334,11 @@ (PROG (|n| |k| |j|) (RETURN (PROGN - (SPADLET |n| (|#| |s|)) + (setq |n| (|#| |s|)) (COND - ((AND (SPADLET |k| (|charPosition| (|char| '|\||) |s| 1)) + ((AND (setq |k| (|charPosition| (|char| '|\||) |s| 1)) (> |n| |k|) - (SPADLET |j| + (setq |j| (|charPosition| (|char| '|\||) |s| (+ |k| 1))) (> |n| |j|)) @@ -363,15 +363,15 @@ (declare (special |$charRbrace|)) (RETURN (SEQ (PROGN - (SPADLET |acc| NIL) + (setq |acc| NIL) (DO () ((NULL |u|) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| (CAR |u|)) + (setq |x| (CAR |u|)) (COND ((BOOT-EQUAL |x| |$charRbrace|) (RETURN (PROG (G166979) - (SPADLET G166979 "") + (setq G166979 "") (RETURN (DO ((G166984 (NREVERSE |acc|) @@ -387,8 +387,8 @@ (EXIT (SETQ G166979 (STRCONC G166979 G166968))))))))) - ('T (SPADLET |acc| (CONS |x| |acc|)) - (SPADLET |u| (CDR |u|))))))))))))) + ('T (setq |acc| (CONS |x| |acc|)) + (setq |u| (CDR |u|))))))))))))) ;-- checkTranVerbatim u == ;-- acc := nil @@ -453,17 +453,17 @@ (PROG (|head| |tail| |end| |acc|) (RETURN (SEQ (PROGN - (SPADLET |head| (CAR G167000)) - (SPADLET |tail| (CDR G167000)) - (SPADLET |acc| (LASTNODE |head|)) + (setq |head| (CAR G167000)) + (setq |tail| (CDR G167000)) + (setq |acc| (LASTNODE |head|)) (DO ((G167015 |tail| (CDR G167015)) (|x| NIL)) ((OR (ATOM G167015) (PROGN (SETQ |x| (CAR G167015)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |end| (LASTNODE |x|)) + (setq |end| (LASTNODE |x|)) (RPLACD |acc| |x|) - (SPADLET |acc| |end|))))) + (setq |acc| |end|))))) |head|))))) ;checkRemoveComments lines == @@ -481,7 +481,7 @@ (DO () ((NULL |lines|) NIL) (SEQ (EXIT (PROGN (|do| (PROGN - (SPADLET |line| + (setq |line| (|checkTrimCommented| (CAR |lines|))) (COND @@ -489,10 +489,10 @@ (|firstNonBlankPosition| |line|) 0) - (SPADLET |acc| + (setq |acc| (CONS |line| |acc|))) ('T NIL)))) - (SPADLET |lines| (CDR |lines|)))))) + (setq |lines| (CDR |lines|)))))) (NREVERSE |acc|)))))) ;checkTrimCommented line == @@ -509,8 +509,8 @@ (PROG (|n| |k|) (RETURN (PROGN - (SPADLET |n| (|#| |line|)) - (SPADLET |k| (|htcharPosition| (|char| '%) |line| 0)) + (setq |n| (|#| |line|)) + (setq |k| (|htcharPosition| (|char| '%) |line| 0)) (COND ((EQL |k| 0) "") ((OR (>= |k| (SPADDIFFERENCE |n| 1)) @@ -533,8 +533,8 @@ (declare (special |$charBack|)) (RETURN (PROGN - (SPADLET |m| (|#| |line|)) - (SPADLET |k| (|charPosition| |char| |line| |i|)) + (setq |m| (|#| |line|)) + (setq |k| (|charPosition| |char| |line| |i|)) (COND ((BOOT-EQUAL |k| |m|) |k|) ((> |k| 0) @@ -567,27 +567,27 @@ (declare (special |$HTmacs|)) (RETURN (SEQ (PROGN - (SPADLET |acc| NIL) - (SPADLET |verbatim| NIL) + (setq |acc| NIL) + (setq |verbatim| NIL) (DO () ((NULL |u|) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| (CAR |u|)) - (SPADLET |acc| + (setq |x| (CAR |u|)) + (setq |acc| (COND ((BOOT-EQUAL |x| "\\end{verbatim}") - (SPADLET |verbatim| NIL) + (setq |verbatim| NIL) (CONS |x| |acc|)) (|verbatim| (CONS |x| |acc|)) ((BOOT-EQUAL |x| "\\begin{verbatim}") - (SPADLET |verbatim| 'T) + (setq |verbatim| 'T) (CONS |x| |acc|)) - ((SPADLET |y| + ((setq |y| (LASSOC |x| |$HTmacs|)) (APPEND |y| |acc|)) ('T (CONS |x| |acc|)))) - (SPADLET |u| (CDR |u|)))))) + (setq |u| (CDR |u|)))))) (NREVERSE |acc|)))))) ;checkIndentedLines(u, margin) == @@ -615,50 +615,50 @@ (declare (special |$charFauxNewline|)) (RETURN (SEQ (PROGN - (SPADLET |verbatim| NIL) - (SPADLET |u2| NIL) + (setq |verbatim| NIL) + (setq |u2| NIL) (DO ((G167153 |u| (CDR G167153)) (|x| NIL)) ((OR (ATOM G167153) (PROGN (SETQ |x| (CAR G167153)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |k| (|firstNonBlankPosition| |x|)) + (setq |k| (|firstNonBlankPosition| |x|)) (COND ((BOOT-EQUAL |k| (SPADDIFFERENCE 1)) (COND (|verbatim| - (SPADLET |u2| + (setq |u2| (APPEND |u2| (CONS |$charFauxNewline| NIL)))) ('T - (SPADLET |u2| + (setq |u2| (APPEND |u2| (CONS "\\blankline " NIL)))))) - ('T (SPADLET |s| (SUBSTRING |x| |k| NIL)) + ('T (setq |s| (SUBSTRING |x| |k| NIL)) (COND ((BOOT-EQUAL |s| "\\begin{verbatim}") - (SPADLET |verbatim| 'T) - (SPADLET |u2| + (setq |verbatim| 'T) + (setq |u2| (APPEND |u2| (CONS |s| NIL)))) ((BOOT-EQUAL |s| "\\end{verbatim}") - (SPADLET |verbatim| NIL) - (SPADLET |u2| + (setq |verbatim| NIL) + (setq |u2| (APPEND |u2| (CONS |s| NIL)))) (|verbatim| - (SPADLET |u2| + (setq |u2| (APPEND |u2| (CONS (SUBSTRING |x| |margin| NIL) NIL)))) ((BOOT-EQUAL |margin| |k|) - (SPADLET |u2| + (setq |u2| (APPEND |u2| (CONS |s| NIL)))) ('T - (SPADLET |u2| + (setq |u2| (APPEND |u2| (CONS (STRCONC @@ -685,26 +685,26 @@ (RETURN (SEQ (COND ((NULL (STRINGP |l|)) (CONS |l| NIL)) - ('T (SPADLET |m| (MAXINDEX |l|)) + ('T (setq |m| (MAXINDEX |l|)) (COND ((BOOT-EQUAL |m| (SPADDIFFERENCE 1)) NIL) - ('T (SPADLET |i| 0) + ('T (setq |i| 0) (PROG (G167196) - (SPADLET G167196 NIL) + (setq G167196 NIL) (RETURN (DO () ((NULL (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (|newWordFrom| |l| |i| |m|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |w| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |w| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |i| + (setq |i| (QCAR |ISTMP#2|)) 'T)))))) (NREVERSE0 G167196)) @@ -733,27 +733,27 @@ ((NULL (AND (<= |i| |m|) (BOOT-EQUAL (ELT |l| |i|) '| |))) NIL) - (SEQ (EXIT (SPADLET |i| (+ |i| 1))))) + (SEQ (EXIT (setq |i| (+ |i| 1))))) (COND ((> |i| |m|) NIL) - ('T (SPADLET |buf| "") - (SPADLET |ch| (ELT |l| |i|)) + ('T (setq |buf| "") + (setq |ch| (ELT |l| |i|)) (COND ((BOOT-EQUAL |ch| |$charFauxNewline|) (CONS |$stringFauxNewline| (CONS (+ |i| 1) NIL))) - ('T (SPADLET |done| NIL) + ('T (setq |done| NIL) (DO () ((NULL (AND (<= |i| |m|) (NULL |done|))) NIL) (SEQ (EXIT (PROGN - (SPADLET |ch| (ELT |l| |i|)) + (setq |ch| (ELT |l| |i|)) (COND ((OR (BOOT-EQUAL |ch| |$charBlank|) (BOOT-EQUAL |ch| |$charFauxNewline|)) - (SPADLET |done| 'T)) + (setq |done| 'T)) ('T - (SPADLET |buf| + (setq |buf| (STRCONC |buf| |ch|)) - (SPADLET |i| (+ |i| 1)))))))) + (setq |i| (+ |i| 1)))))))) (CONS |buf| (CONS |i| NIL))))))))))) ;checkGetArgs u == @@ -777,30 +777,30 @@ (RETURN (SEQ (COND ((NULL (STRINGP |u|)) NIL) - ('T (SPADLET |m| (MAXINDEX |u|)) - (SPADLET |k| (|firstNonBlankPosition| |u|)) + ('T (setq |m| (MAXINDEX |u|)) + (setq |k| (|firstNonBlankPosition| |u|)) (COND ((> |k| 0) (|checkGetArgs| (SUBSTRING |u| |k| NIL))) ((|stringPrefix?| "\\spad{" |u|) - (SPADLET |k| + (setq |k| (OR (|getMatchingRightPren| |u| 6 (|char| '{) (|char| '})) |m|)) (|checkGetArgs| (SUBSTRING |u| 6 (SPADDIFFERENCE |k| 6)))) - ((> (SPADLET |i| (|charPosition| (|char| '|(|) |u| 0)) + ((> (setq |i| (|charPosition| (|char| '|(|) |u| 0)) |m|) NIL) ((NEQUAL (ELT |u| |m|) (|char| '|)|)) NIL) ('T (DO () ((NULL (> |m| - (SPADLET |k| + (setq |k| (|charPosition| |$charComma| |u| (+ |i| 1))))) NIL) (SEQ (EXIT (PROGN - (SPADLET |acc| + (setq |acc| (CONS (|trimString| (SUBSTRING |u| (+ |i| 1) @@ -808,7 +808,7 @@ (SPADDIFFERENCE |k| |i|) 1))) |acc|)) - (SPADLET |i| |k|))))) + (setq |i| |k|))))) (NREVERSE (CONS (SUBSTRING |u| (+ |i| 1) (SPADDIFFERENCE (SPADDIFFERENCE |m| |i|) @@ -825,7 +825,7 @@ (PROG (|k|) (RETURN (PROGN - (SPADLET |k| (|firstNonBlankPosition| |x|)) + (setq |k| (|firstNonBlankPosition| |x|)) (COND ((BOOT-EQUAL |k| (SPADDIFFERENCE 1)) "\\blankline ") @@ -853,18 +853,18 @@ (declare (special |$charBlank|)) (RETURN (SEQ (PROGN - (SPADLET |m| (MAXINDEX |u|)) - (SPADLET |i| (|charPosition| |$charBlank| |u| |k|)) + (setq |m| (MAXINDEX |u|)) + (setq |i| (|charPosition| |$charBlank| |u| |k|)) (COND ((> |i| |m|) |u|) - ('T (SPADLET |j| |i|) + ('T (setq |j| |i|) (DO () - ((NULL (AND (> |m| (SPADLET |j| (+ |j| 1))) + ((NULL (AND (> |m| (setq |j| (+ |j| 1))) (BOOT-EQUAL (ELT |u| |j|) (|char| '| |)))) NIL) (SEQ (EXIT '|continue|))) - (SPADLET |n| (SPADDIFFERENCE |j| |i|)) + (setq |n| (SPADDIFFERENCE |j| |i|)) (COND ((> |n| 1) (STRCONC (SUBSTRING |u| 0 |i|) @@ -900,21 +900,21 @@ (PROG (|k| |m| |n|) (declare (special |$charBlank|)) (RETURN - (SEQ (SPADLET |k| (|checkTrim,wherePP| |s|)) + (SEQ (setq |k| (|checkTrim,wherePP| |s|)) (RETURN (SUBSTRING |s| (+ |k| 2) NIL)) - (SPADLET |m| (MAXINDEX |s|)) (SPADLET |n| (+ |k| 2)) + (setq |m| (MAXINDEX |s|)) (setq |n| (+ |k| 2)) (DO ((|j| (+ |k| 2) (+ |j| 1))) ((OR (> |j| |m|) (NULL (BOOT-EQUAL (ELT |s| |j|) |$charBlank|))) NIL) - (SEQ (EXIT (SPADLET |n| (+ |n| 1))))) + (SEQ (EXIT (setq |n| (+ |n| 1))))) (EXIT (SUBSTRING |s| |n| NIL)))))) (DEFUN |checkTrim,wherePP| (|u|) (PROG (|k|) (declare (special |$charPlus|)) (RETURN - (SEQ (SPADLET |k| (|charPosition| |$charPlus| |u| 0)) + (SEQ (setq |k| (|charPosition| |$charPlus| |u| 0)) (IF (OR (BOOT-EQUAL |k| (|#| |u|)) (NEQUAL (|charPosition| |$charPlus| |u| (+ |k| 1)) @@ -928,14 +928,14 @@ (PROG (|j| |s|) (RETURN (SEQ (PROGN - (SPADLET |s| + (setq |s| (CONS (|checkTrim,wherePP| (CAR |lines|)) NIL)) (DO ((G167356 (CDR |lines|) (CDR G167356)) (|x| NIL)) ((OR (ATOM G167356) (PROGN (SETQ |x| (CAR G167356)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |j| (|checkTrim,wherePP| |x|)) + (setq |j| (|checkTrim,wherePP| |x|)) (COND ((NULL (member |j| |s|)) (|checkDocError| @@ -943,10 +943,10 @@ (CONS " has varying indentation levels" NIL))) - (SPADLET |s| (CONS |j| |s|))) + (setq |s| (CONS |j| |s|))) ('T NIL)))))) (PROG (G167366) - (SPADLET G167366 NIL) + (setq G167366 NIL) (RETURN (DO ((G167371 |lines| (CDR G167371)) (|y| NIL)) ((OR (ATOM G167371) @@ -990,28 +990,28 @@ (SEQ (PROGN (DO () ((NULL |lines|) NIL) (SEQ (EXIT (PROGN - (SPADLET |line| (CAR |lines|)) - (SPADLET |k| + (setq |line| (CAR |lines|)) + (setq |k| (|firstNonBlankPosition| |line|)) (COND ((|substring?| |header| |line| |k|) (RETURN NIL)) - ('T (SPADLET |lines| (CDR |lines|)))))))) + ('T (setq |lines| (CDR |lines|)))))))) (COND ((NULL |lines|) NIL) - ('T (SPADLET |u| (CAR |lines|)) - (SPADLET |j| (|charPosition| (|char| '|:|) |u| |k|)) - (SPADLET |margin| |k|) - (SPADLET |firstLines| + ('T (setq |u| (CAR |lines|)) + (setq |j| (|charPosition| (|char| '|:|) |u| |k|)) + (setq |margin| |k|) + (setq |firstLines| (COND - ((NEQUAL (SPADLET |k| + ((NEQUAL (setq |k| (|firstNonBlankPosition| |u| (+ |j| 1))) (SPADDIFFERENCE 1)) (CONS (SUBSTRING |u| (+ |j| 1) NIL) (CDR |lines|))) ('T (CDR |lines|)))) - (SPADLET |acc| NIL) + (setq |acc| NIL) (DO ((G167406 |firstLines| (CDR G167406)) (|line| NIL)) ((OR (ATOM G167406) @@ -1019,10 +1019,10 @@ NIL) (SEQ (EXIT (PROGN (|do| (PROGN - (SPADLET |m| (|#| |line|)) + (setq |m| (|#| |line|)) (COND ((BOOT-EQUAL - (SPADLET |k| + (setq |k| (|firstNonBlankPosition| |line|)) (SPADDIFFERENCE 1)) @@ -1033,19 +1033,19 @@ (ELT |line| |k|))) '|skip|) ((BOOT-EQUAL - (SPADLET |j| + (setq |j| (|charPosition| (|char| '|:|) |line| |k|)) |m|) '|skip|) ((> |j| - (SPADLET |i| + (setq |i| (|charPosition| (|char| '| |) |line| (+ |k| 1)))) '|skip|) ('T (RETURN NIL))))) - (SPADLET |acc| (CONS |line| |acc|)))))) + (setq |acc| (CONS |line| |acc|)))))) (NREVERSE |acc|)))))))) ;checkFixCommonProblem u == @@ -1066,14 +1066,14 @@ (declare (special |$charLbrace| |$HTspadmacros|)) (RETURN (SEQ (PROGN - (SPADLET |acc| NIL) + (setq |acc| NIL) (DO () ((NULL |u|) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| (CAR |u|)) + (setq |x| (CAR |u|)) (COND ((AND (BOOT-EQUAL |x| |$charLbrace|) (|member| - (SPADLET |next| (IFCAR (CDR |u|))) + (setq |next| (IFCAR (CDR |u|))) |$HTspadmacros|) (NEQUAL (IFCAR (IFCDR (CDR |u|))) |$charLbrace|)) @@ -1083,12 +1083,12 @@ (CONS " and left brace" NIL)))) - (SPADLET |acc| + (setq |acc| (CONS |$charLbrace| (CONS |next| |acc|))) - (SPADLET |u| (CDR (CDR |u|)))) - ('T (SPADLET |acc| (CONS |x| |acc|)) - (SPADLET |u| (CDR |u|)))))))) + (setq |u| (CDR (CDR |u|)))) + ('T (setq |acc| (CONS |x| |acc|)) + (setq |u| (CDR |u|)))))))) (NREVERSE |acc|)))))) ;checkDecorate u == @@ -1163,23 +1163,23 @@ |$charExclusions| |$checkingXmptex?|)) (RETURN (SEQ (PROGN - (SPADLET |count| 0) - (SPADLET |spadflag| NIL) - (SPADLET |mathSymbolsOk| NIL) - (SPADLET |acc| NIL) - (SPADLET |verbatim| NIL) + (setq |count| 0) + (setq |spadflag| NIL) + (setq |mathSymbolsOk| NIL) + (setq |acc| NIL) + (setq |verbatim| NIL) (DO () ((NULL |u|) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| (CAR |u|)) + (setq |x| (CAR |u|)) (COND ((NULL |verbatim|) (COND ((BOOT-EQUAL |x| "\\em") (COND ((> |count| 0) - (SPADLET |mathSymbolsOk| + (setq |mathSymbolsOk| (SPADDIFFERENCE |count| 1)) - (SPADLET |spadflag| + (setq |spadflag| (SPADDIFFERENCE |count| 1))) ('T (|checkDocError| @@ -1190,7 +1190,7 @@ ((|member| |x| '("\\spadpaste" "\\spad" "\\spadop")) - (SPADLET |mathSymbolsOk| |count|))) + (setq |mathSymbolsOk| |count|))) (COND ((|member| |x| '("\\s" "\\spadtype" "\\spadsys" @@ -1198,19 +1198,19 @@ "\\spadop" "\\spad" "\\spadignore" "\\spadpaste" "\\spadcommand" "\\footnote")) - (SPADLET |spadflag| |count|)) + (setq |spadflag| |count|)) ((BOOT-EQUAL |x| |$charLbrace|) - (SPADLET |count| (+ |count| 1))) + (setq |count| (+ |count| 1))) ((BOOT-EQUAL |x| |$charRbrace|) - (SPADLET |count| + (setq |count| (SPADDIFFERENCE |count| 1)) (COND ((BOOT-EQUAL |mathSymbolsOk| |count|) - (SPADLET |mathSymbolsOk| NIL))) + (setq |mathSymbolsOk| NIL))) (COND ((BOOT-EQUAL |spadflag| |count|) - (SPADLET |spadflag| NIL)) + (setq |spadflag| NIL)) ('T NIL))) ((AND (NULL |mathSymbolsOk|) (|member| |x| @@ -1225,33 +1225,33 @@ NIL))))) ('T NIL))) ('T NIL)))) - (SPADLET |acc| + (setq |acc| (COND ((BOOT-EQUAL |x| "\\end{verbatim}") - (SPADLET |verbatim| NIL) + (setq |verbatim| NIL) (CONS |x| |acc|)) (|verbatim| (CONS |x| |acc|)) ((BOOT-EQUAL |x| "\\begin{verbatim}") - (SPADLET |verbatim| 'T) + (setq |verbatim| 'T) (CONS |x| |acc|)) ((AND (BOOT-EQUAL |x| "\\begin") (BOOT-EQUAL (CAR - (SPADLET |v| (IFCDR |u|))) + (setq |v| (IFCDR |u|))) |$charLbrace|) (BOOT-EQUAL (CAR - (SPADLET |v| (IFCDR |v|))) + (setq |v| (IFCDR |v|))) "detail") (BOOT-EQUAL (CAR - (SPADLET |v| (IFCDR |v|))) + (setq |v| (IFCDR |v|))) |$charRbrace|)) - (SPADLET |u| |v|) + (setq |u| |v|) (CONS "\\blankline " |acc|)) @@ -1260,17 +1260,17 @@ "\\end") (BOOT-EQUAL (CAR - (SPADLET |v| (IFCDR |u|))) + (setq |v| (IFCDR |u|))) |$charLbrace|) (BOOT-EQUAL (CAR - (SPADLET |v| (IFCDR |v|))) + (setq |v| (IFCDR |v|))) "detail") (BOOT-EQUAL (CAR - (SPADLET |v| (IFCDR |v|))) + (setq |v| (IFCDR |v|))) |$charRbrace|)) - (SPADLET |u| |v|) |acc|) + (setq |u| |v|) |acc|) ((OR (BOOT-EQUAL |x| (|char| '$)) (BOOT-EQUAL |x| @@ -1321,7 +1321,7 @@ (CONS |$charLbrace| (CONS "\\spad" |acc|))))) - ('T (SPADLET |xcount| (|#| |x|)) + ('T (setq |xcount| (|#| |x|)) (COND ((AND (EQL |xcount| 3) (BOOT-EQUAL (ELT |x| 1) @@ -1370,7 +1370,7 @@ (CONS (|checkAddBackSlashes| |x|) |acc|)))))) - (SPADLET |u| (CDR |u|)))))) + (setq |u| (CDR |u|)))))) (NREVERSE |acc|)))))) ;hasNoVowels x == @@ -1382,12 +1382,12 @@ (PROG (|max|) (RETURN (SEQ (PROGN - (SPADLET |max| (MAXINDEX |x|)) + (setq |max| (MAXINDEX |x|)) (COND ((BOOT-EQUAL (ELT |x| |max|) (|char| '|y|)) NIL) ('T (PROG (G167501) - (SPADLET G167501 'T) + (setq G167501 'T) (RETURN (DO ((G167507 NIL (NULL G167501)) (|i| 0 (QSADD1 |i|))) @@ -1429,25 +1429,25 @@ (declare (special |$charBack| |$charEscapeList|)) (RETURN (SEQ (COND - ((OR (AND (CHARP |s|) (SPADLET |c| |s|)) - (AND (EQL (|#| |s|) 1) (SPADLET |c| (ELT |s| 0)))) + ((OR (AND (CHARP |s|) (setq |c| |s|)) + (AND (EQL (|#| |s|) 1) (setq |c| (ELT |s| 0)))) (COND ((member |s| |$charEscapeList|) (STRCONC |$charBack| |c|)) ('T |s|))) - ('T (SPADLET |k| 0) (SPADLET |m| (MAXINDEX |s|)) - (SPADLET |insertIndex| NIL) + ('T (setq |k| 0) (setq |m| (MAXINDEX |s|)) + (setq |insertIndex| NIL) (DO () ((NULL (<= |k| |m|)) NIL) (SEQ (EXIT (PROGN (|do| (PROGN - (SPADLET |char| (ELT |s| |k|)) + (setq |char| (ELT |s| |k|)) (COND ((BOOT-EQUAL |char| |$charBack|) - (SPADLET |k| (+ |k| 2))) + (setq |k| (+ |k| 2))) ((member |char| |$charEscapeList|) (RETURN - (SPADLET |insertIndex| |k|)))))) - (SPADLET |k| (+ |k| 1)))))) + (setq |insertIndex| |k|)))))) + (setq |k| (+ |k| 1)))))) (COND (|insertIndex| (|checkAddBackSlashes| @@ -1484,7 +1484,7 @@ (SEQ (COND ((NULL |u|) NIL) ((NULL (CDR |u|)) |u|) - ('T (SPADLET |space| |$charBlank|) (SPADLET |u2| NIL) + ('T (setq |space| |$charBlank|) (setq |u2| NIL) (DO ((|i| 1 (QSADD1 |i|)) (G167557 |u| (CDR G167557)) (|f| NIL)) ((OR (ATOM G167557) @@ -1494,26 +1494,26 @@ (COND ((BOOT-EQUAL |f| "\\begin{verbatim}") - (SPADLET |space| |$charFauxNewline|) + (setq |space| |$charFauxNewline|) (COND ((NULL |u2|) - (SPADLET |u2| (CONS |space| NIL))) + (setq |u2| (CONS |space| NIL))) ('T NIL)))) (COND ((> |i| 1) - (SPADLET |u2| + (setq |u2| (APPEND |u2| (CONS |space| (CONS |f| NIL))))) ('T - (SPADLET |u2| + (setq |u2| (APPEND |u2| (CONS |f| NIL))))) (COND ((BOOT-EQUAL |f| "\\end{verbatim}") - (SPADLET |u2| + (setq |u2| (APPEND |u2| (CONS |space| NIL))) - (SPADLET |space| |$charBlank|)) + (setq |space| |$charBlank|)) ('T NIL)))))) |u2|)))))) @@ -1535,9 +1535,9 @@ (SEQ (COND ((CHARP |x|) (CONS |x| NIL)) ((EQL (|#| |x|) 1) (CONS (ELT |x| 0) NIL)) - ((AND (SPADLET |u| (|checkSplitBackslash| |x|)) (CDR |u|)) + ((AND (setq |u| (|checkSplitBackslash| |x|)) (CDR |u|)) (PROG (G167644) - (SPADLET G167644 NIL) + (setq G167644 NIL) (RETURN (DO ((G167649 |u| (CDR G167649)) (|y| NIL)) ((OR (ATOM G167649) @@ -1546,11 +1546,11 @@ (SEQ (EXIT (SETQ G167644 (APPEND G167644 (|checkSplitBrace| |y|))))))))) - ('T (SPADLET |m| (MAXINDEX |x|)) + ('T (setq |m| (MAXINDEX |x|)) (COND - ((AND (SPADLET |u| (|checkSplitOn| |x|)) (CDR |u|)) + ((AND (setq |u| (|checkSplitOn| |x|)) (CDR |u|)) (PROG (G167655) - (SPADLET G167655 NIL) + (setq G167655 NIL) (RETURN (DO ((G167660 |u| (CDR G167660)) (|y| NIL)) ((OR (ATOM G167660) @@ -1559,10 +1559,10 @@ (SEQ (EXIT (SETQ G167655 (APPEND G167655 (|checkSplitBrace| |y|))))))))) - ((AND (SPADLET |u| (|checkSplitPunctuation| |x|)) + ((AND (setq |u| (|checkSplitPunctuation| |x|)) (CDR |u|)) (PROG (G167666) - (SPADLET G167666 NIL) + (setq G167666 NIL) (RETURN (DO ((G167671 |u| (CDR G167671)) (|y| NIL)) ((OR (ATOM G167671) @@ -1595,22 +1595,22 @@ (RETURN (COND ((NULL (STRINGP |x|)) (CONS |x| NIL)) - ('T (SPADLET |m| (MAXINDEX |x|)) + ('T (setq |m| (MAXINDEX |x|)) (COND - ((> |m| (SPADLET |k| (|charPosition| |$charBack| |x| 0))) + ((> |m| (setq |k| (|charPosition| |$charBack| |x| 0))) (COND ((OR (EQL |m| 1) (ALPHA-CHAR-P (ELT |x| (+ |k| 1)))) (COND ((> |m| - (SPADLET |k| (|charPosition| |$charBack| |x| 1))) + (setq |k| (|charPosition| |$charBack| |x| 1))) (CONS (SUBSTRING |x| 0 |k|) (|checkSplitBackslash| (SUBSTRING |x| |k| NIL)))) ('T (CONS |x| NIL)))) ((EQL |k| 0) (CONS (SUBSTRING |x| 0 2) (|checkSplitBackslash| (SUBSTRING |x| 2 NIL)))) - ('T (SPADLET |u| (SUBSTRING |x| 0 |k|)) - (SPADLET |v| (SUBSTRING |x| |k| 2)) + ('T (setq |u| (SUBSTRING |x| 0 |k|)) + (setq |v| (SUBSTRING |x| |k| 2)) (COND ((BOOT-EQUAL (+ |k| 1) |m|) (CONS |u| (CONS |v| NIL))) @@ -1655,10 +1655,10 @@ (RETURN (COND ((CHARP |x|) (CONS |x| NIL)) - ('T (SPADLET |m| (MAXINDEX |x|)) + ('T (setq |m| (MAXINDEX |x|)) (COND ((> 1 |m|) (CONS |x| NIL)) - ('T (SPADLET |lastchar| (ELT |x| |m|)) + ('T (setq |lastchar| (ELT |x| |m|)) (COND ((AND (BOOT-EQUAL |lastchar| |$charPeriod|) (BOOT-EQUAL (ELT |x| (SPADDIFFERENCE |m| 1)) @@ -1685,22 +1685,22 @@ (CONS (SUBSTRING |x| 0 (SPADDIFFERENCE |m| 1)) (CONS (SUBSTRING |x| (SPADDIFFERENCE |m| 1) NIL) NIL))) - ((> |m| (SPADLET |k| (|charPosition| |$charBack| |x| 0))) + ((> |m| (setq |k| (|charPosition| |$charBack| |x| 0))) (COND ((EQL |k| 0) (COND ((OR (EQL |m| 1) (HGET |$htMacroTable| |x|) (ALPHA-CHAR-P (ELT |x| 1))) (CONS |x| NIL)) - ('T (SPADLET |v| (SUBSTRING |x| 2 NIL)) + ('T (setq |v| (SUBSTRING |x| 2 NIL)) (CONS (SUBSTRING |x| 0 2) (|checkSplitPunctuation| |v|))))) - ('T (SPADLET |u| (SUBSTRING |x| 0 |k|)) - (SPADLET |v| (SUBSTRING |x| |k| NIL)) + ('T (setq |u| (SUBSTRING |x| 0 |k|)) + (setq |v| (SUBSTRING |x| |k| NIL)) (APPEND (|checkSplitPunctuation| |u|) (|checkSplitPunctuation| |v|))))) - ((> |m| (SPADLET |k| (|charPosition| |$charDash| |x| 1))) - (SPADLET |u| (SUBSTRING |x| (+ |k| 1) NIL)) + ((> |m| (setq |k| (|charPosition| |$charDash| |x| 1))) + (setq |u| (SUBSTRING |x| (+ |k| 1) NIL)) (CONS (SUBSTRING |x| 0 |k|) (CONS |$charDash| (|checkSplitPunctuation| |u|)))) ('T (CONS |x| NIL)))))))))) @@ -1729,19 +1729,19 @@ (RETURN (SEQ (COND ((CHARP |x|) (CONS |x| NIL)) - ('T (SPADLET |l| |$charSplitList|) - (SPADLET |m| (MAXINDEX |x|)) + ('T (setq |l| |$charSplitList|) + (setq |m| (MAXINDEX |x|)) (DO () ((NULL |l|) NIL) (SEQ (EXIT (PROGN - (SPADLET |char| (CAR |l|)) + (setq |char| (CAR |l|)) (|do| (COND ((AND (EQL |m| 0) (BOOT-EQUAL (ELT |x| 0) |char|)) (RETURN - (SPADLET |k| + (setq |k| (SPADDIFFERENCE 1)))) ('T - (SPADLET |k| + (setq |k| (|charPosition| |char| |x| 0)) (COND ((AND (> |k| 0) @@ -1751,7 +1751,7 @@ |$charBack|)) (CONS |x| NIL)) ((<= |k| |m|) (RETURN |k|)))))) - (SPADLET |l| (CDR |l|)))))) + (setq |l| (CDR |l|)))))) (COND ((NULL |l|) (CONS |x| NIL)) ((BOOT-EQUAL |k| (SPADDIFFERENCE 1)) (CONS |char| NIL)) @@ -1778,7 +1778,7 @@ ((BOOT-EQUAL |s| "") NIL) ('T (PROG (G167927) - (SPADLET G167927 'T) + (setq G167927 'T) (RETURN (DO ((G167933 NIL (NULL G167927)) (G167934 (MAXINDEX |s|)) (|i| 0 (QSADD1 |i|))) @@ -1828,10 +1828,10 @@ (declare (special |$outStream|)) (RETURN (PROGN - (SPADLET |filename| + (setq |filename| (STRCONC "/tmp/" (STRINGIMAGE |nam|) (INTERN ".docreport" "BOOT"))) - (SPADLET |$outStream| (MAKE-OUTSTREAM |filename|)))))) + (setq |$outStream| (MAKE-OUTSTREAM |filename|)))))) ;--======================================================================= ;-- Report Documentation Error diff --git a/src/interp/c-util.lisp.pamphlet b/src/interp/c-util.lisp.pamphlet index 65e3560..f242d3a 100644 --- a/src/interp/c-util.lisp.pamphlet +++ b/src/interp/c-util.lisp.pamphlet @@ -54,8 +54,8 @@ (COND ((NULL |l|) (|same|)) ((AND (CONSP |l|) (EQ (QCDR |l|) NIL) - (PROGN (SPADLET |n| (QCAR |l|)) 'T) (INTEGERP |n|)) - (|displayComp| (SPADLET |$level| |n|))) + (PROGN (setq |n| (QCAR |l|)) 'T) (INTEGERP |n|)) + (|displayComp| (setq |$level| |n|))) ('T (SAY "Correct format: (level n) where n is the level you want to go to" ))))))) @@ -72,7 +72,7 @@ (DEFUN |up| () (declare (special |$level|)) - (|displayComp| (SPADLET |$level| (SPADDIFFERENCE |$level| 1)))) + (|displayComp| (setq |$level| (SPADDIFFERENCE |$level| 1)))) ; ;SAME() == same() @@ -102,7 +102,7 @@ (DEFUN |down| () (declare (special |$level|)) - (|displayComp| (SPADLET |$level| (+ |$level| 1)))) + (|displayComp| (setq |$level| (+ |$level| 1)))) ; ;displaySemanticErrors() == @@ -122,13 +122,13 @@ (declare (special |$semanticErrorStack|)) (RETURN (PROGN - (SPADLET |n| - (|#| (SPADLET |$semanticErrorStack| + (setq |n| + (|#| (setq |$semanticErrorStack| (REMDUP |$semanticErrorStack|)))) (COND ((EQL |n| 0) NIL) - ('T (SPADLET |l| (NREVERSE |$semanticErrorStack|)) - (SPADLET |$semanticErrorStack| NIL) + ('T (setq |l| (NREVERSE |$semanticErrorStack|)) + (setq |$semanticErrorStack| NIL) (|sayBrightly| (|bright| " Semantic Errors:")) (|displaySemanticError| |l| CUROUTSTREAM) (|sayBrightly| " ") (|displayWarnings|))))))) @@ -167,15 +167,15 @@ (declare (special |$warningStack|)) (RETURN (PROGN - (SPADLET |n| - (|#| (SPADLET |$warningStack| + (setq |n| + (|#| (setq |$warningStack| (REMDUP |$warningStack|)))) (COND ((EQL |n| 0) NIL) ('T (|sayBrightly| (|bright| " Warnings:")) - (SPADLET |l| (NREVERSE |$warningStack|)) + (setq |l| (NREVERSE |$warningStack|)) (|displayWarning| |l| CUROUTSTREAM) - (SPADLET |$warningStack| NIL) + (setq |$warningStack| NIL) (|sayBrightly| " "))))))) ; @@ -221,9 +221,9 @@ $X $M $F)) (RETURN (PROGN - (SPADLET |$tripleCache| NIL) - (SPADLET |$bright| '| << |) - (SPADLET |$dim| '| >> |) + (setq |$tripleCache| NIL) + (setq |$bright| '| << |) + (setq |$dim| '| >> |) (COND ((BOOT-EQUAL |$insideCapsuleFunctionIfTrue| 'T) (|sayBrightly| @@ -234,14 +234,14 @@ (CONS "****** level" (CONS |level| (CONS " ******" NIL)))) - (SPADLET |LETTMP#1| (ELEM |$s| |level|)) - (SPADLET |$x| (CAR |LETTMP#1|)) - (SPADLET |$m| (CADR |LETTMP#1|)) - (SPADLET |$f| (CADDR |LETTMP#1|)) - (SPADLET |$exitModeStack| (CADDDR |LETTMP#1|)) - (SPADLET $X |$x|) - (SPADLET $M |$m|) - (SPADLET $F |$f|) + (setq |LETTMP#1| (ELEM |$s| |level|)) + (setq |$x| (CAR |LETTMP#1|)) + (setq |$m| (CADR |LETTMP#1|)) + (setq |$f| (CADDR |LETTMP#1|)) + (setq |$exitModeStack| (CADDDR |LETTMP#1|)) + (setq $X |$x|) + (setq $M |$m|) + (setq $F |$f|) (SAY "$x:= " |$x|) (SAY "$m:= " |$m|) (SAY "$f:=") @@ -275,7 +275,7 @@ (RETURN (SEQ (IF (ATOM |a|) (EXIT |a|)) (IF (AND (CONSP |a|) (EQUAL (QCAR |a|) |b|) - (PROGN (SPADLET |c| (QCDR |a|)) 'T)) + (PROGN (setq |c| (QCDR |a|)) 'T)) (EXIT (CONS |$bright| (CONS |b| (CONS |$dim| |c|))))) (EXIT (CONS (|mkErrorExpr,highlight1| |b| (CAR |a|)) (|mkErrorExpr,highlight1| |b| (CDR |a|)))))))) @@ -289,7 +289,7 @@ (RETURN (SEQ (IF (ATOM |b|) (EXIT (PROGN - (SPADLET |var| + (setq |var| (INTERN (STRCONC (STRINGIMAGE |$bright|) (STRINGIMAGE |b|) @@ -305,10 +305,10 @@ (SEQ (IF (QSLESSP (|#| |l|) 2) (EXIT |l|)) (IF (AND (CONSP |l|) (PROGN - (SPADLET |a| (QCAR |l|)) - (SPADLET |ISTMP#1| (QCDR |l|)) + (setq |a| (QCAR |l|)) + (setq |ISTMP#1| (QCDR |l|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |b| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |b| (QCAR |ISTMP#1|)) 'T)))) (EXIT (|mkErrorExpr,highlight| |b| |a|))) (EXIT (MSUBST (|mkErrorExpr,bracket| (CDR |l|)) (CAR (CDR |l|)) (CAR |l|))))))) @@ -335,13 +335,13 @@ (PROG (|x| |m| |e| T$) (RETURN (PROGN - (SPADLET |x| (CAR G2621)) - (SPADLET |m| (CADR G2621)) - (SPADLET |e| (CADDR G2621)) + (setq |x| (CAR G2621)) + (setq |m| (CADR G2621)) + (setq |e| (CADDR G2621)) (SAY "tracing comp, compFormWithModemap of: " |x|) (|TRACE,1| (CONS '|comp| (CONS '|compFormWithModemap| NIL)) NIL) - (SPADLET T$ (|comp| |x| |m| |e|)) + (setq T$ (|comp| |x| |m| |e|)) (|UNTRACE,1| '|comp|) (|UNTRACE,1| '|compFormWithModemap|) T$)))) @@ -388,7 +388,7 @@ (|semchkProplist| |var| |proplist| |prop| |val|) (COND ((AND |$InteractiveMode| - (SPADLET |u| (|assoc| |prop| |proplist|))) + (setq |u| (|assoc| |prop| |proplist|))) (RPLACD |u| |val|) |proplist|) ('T (CONS (CONS |prop| |val|) |proplist|))))))) @@ -418,11 +418,11 @@ (PROG (|ce| |ic| |e''|) (RETURN (PROGN - (SPADLET |ce| (|makeCommonEnvironment| |e| |e'|)) - (SPADLET |ic| + (setq |ce| (|makeCommonEnvironment| |e| |e'|)) + (setq |ic| (|intersectionContour| (|deltaContour| |e| |ce|) (|deltaContour| |e'| |ce|))) - (SPADLET |e''| + (setq |e''| (COND (|ic| (|addContour| |ic| |ce|)) ('T |ce|))))))) ; --$ie:= e'' this line is for debugging purposes only @@ -447,10 +447,10 @@ (RETURN (SEQ (IF (AND (CONSP |contour|) (PROGN - (SPADLET |ISTMP#1| (QCAR |contour|)) + (setq |ISTMP#1| (QCAR |contour|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |x| (QCAR |ISTMP#1|)) 'T))) - (PROGN (SPADLET |contour'| (QCDR |contour|)) 'T)) + (PROGN (setq |x| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |contour'| (QCDR |contour|)) 'T)) (EXIT (SEQ (IF (LASSOC |x| |contour'|) (EXIT (CONS (CAR |contour|) (DELLASOS |x| @@ -467,7 +467,7 @@ (PROG () (RETURN (SEQ (PROG (G2679) - (SPADLET G2679 NIL) + (setq G2679 NIL) (RETURN (DO ((|x| |c| (CDR |x|))) ((OR (ATOM |x|) (NULL (NEQUAL |x| |c'|))) @@ -480,12 +480,12 @@ (PROG (|c'| |cl'| |el'| |c| |cl| |el|) (RETURN (PROGN - (SPADLET |c'| (CAAR G2706)) - (SPADLET |cl'| (CDAR G2706)) - (SPADLET |el'| (CDR G2706)) - (SPADLET |c| (CAAR G2695)) - (SPADLET |cl| (CDAR G2695)) - (SPADLET |el| (CDR G2695)) + (setq |c'| (CAAR G2706)) + (setq |cl'| (CDAR G2706)) + (setq |el'| (CDR G2706)) + (setq |c| (CAAR G2695)) + (setq |cl| (CDAR G2695)) + (setq |el| (CDR G2695)) (COND ((NULL (BOOT-EQUAL |el| |el'|)) (|systemError| "deltaContour")) @@ -558,7 +558,7 @@ (declare (special |$e|)) (RETURN (SEQ (IF (BOOT-EQUAL |m1| |m2|) (EXIT |m1|)) - (SPADLET |m| + (setq |m| (SEQ (IF (AND (CONSP |m1|) (EQ (QCAR |m1|) '|Union|)) (EXIT (SEQ @@ -586,10 +586,10 @@ (SEQ (EXIT (IF (AND (AND (CONSP |u|) (EQ (QCAR |u|) '|Union|) (PROGN - (SPADLET |u'| (QCDR |u|)) + (setq |u'| (QCDR |u|)) 'T)) (PROG (G2754) - (SPADLET G2754 'T) + (setq G2754 'T) (RETURN (DO ((G2760 NIL @@ -616,11 +616,11 @@ (PROG (|pair| |m''| |pair'|) (declare (special |$var|)) (RETURN - (SEQ (IF (SPADLET |pair| (|assoc| '|mode| |p|)) - (EXIT (SEQ (IF (SPADLET |pair'| (|assoc| '|mode| |p'|)) + (SEQ (IF (setq |pair| (|assoc| '|mode| |p|)) + (EXIT (SEQ (IF (setq |pair'| (|assoc| '|mode| |p'|)) (EXIT (SEQ (IF - (SPADLET |m''| + (setq |m''| (|intersectionContour,unifiable| (CDR |pair|) (CDR |pair'|))) (EXIT @@ -632,7 +632,7 @@ NIL))))) (EXIT (LIST (CONS '|conditionalmode| (CDR |pair|))))))) - (EXIT (IF (SPADLET |pair'| (|assoc| '|mode| |p'|)) + (EXIT (IF (setq |pair'| (|assoc| '|mode| |p'|)) (EXIT (LIST (CONS '|conditionalmode| (CDR |pair'|)))))))))) @@ -642,15 +642,15 @@ (PROG (|prop| |val| |pair'| |val'| |m|) (RETURN (SEQ (PROGN - (SPADLET |prop| (CAR |pair|)) - (SPADLET |val| (CDR |pair|)) + (setq |prop| (CAR |pair|)) + (setq |val| (CDR |pair|)) |pair| (SEQ (IF (BOOT-EQUAL |pair| - (SPADLET |pair'| (|assoc| |prop| |p'|))) + (setq |pair'| (|assoc| |prop| |p'|))) (EXIT |pair|)) - (IF (AND (AND (SPADLET |val'| (KDR |pair'|)) + (IF (AND (AND (setq |val'| (KDR |pair'|)) (BOOT-EQUAL |prop| '|value|)) - (SPADLET |m| + (setq |m| (|intersectionContour,unifiable| (CADR |val|) (CADR |val'|)))) (EXIT (CONS '|value| @@ -664,14 +664,14 @@ (PROG (|mp|) (RETURN (SEQ (PROG (G2802) - (SPADLET G2802 NIL) + (setq G2802 NIL) (RETURN (DO ((G2808 |varlist| (CDR G2808)) (|x| NIL)) ((OR (ATOM G2808) (PROGN (SETQ |x| (CAR G2808)) NIL)) (NREVERSE0 G2802)) (SEQ (EXIT (COND - ((SPADLET |mp| + ((setq |mp| (|intersectionContour,modeCompare| (LASSOC |x| |c|) (LASSOC |x| |c'|))) @@ -685,7 +685,7 @@ (RETURN (SEQ (APPEND (|intersectionContour,modeCompare| |p| |p'|) (PROG (G2824) - (SPADLET G2824 NIL) + (setq G2824 NIL) (RETURN (DO ((G2830 |p| (CDR G2830)) (|pair| NIL)) ((OR (ATOM G2830) @@ -694,7 +694,7 @@ NIL)) (NREVERSE0 G2824)) (SEQ (EXIT (COND - ((SPADLET |pair'| + ((setq |pair'| (|intersectionContour,compare| |pair| |p'|)) (SETQ G2824 @@ -707,17 +707,17 @@ |modeAssoc| |x| |y| |proplist|) (declare (special |$var|)) (RETURN - (SEQ (SPADLET |varlist| (REMDUP (ASSOCLEFT |c|))) - (SPADLET |varlist'| (REMDUP (ASSOCLEFT |c'|))) - (SPADLET |interVars| (|intersection| |varlist| |varlist'|)) - (SPADLET |unionVars| (|union| |varlist| |varlist'|)) - (SPADLET |diffVars| (SETDIFFERENCE |unionVars| |interVars|)) - (SPADLET |modeAssoc| + (SEQ (setq |varlist| (REMDUP (ASSOCLEFT |c|))) + (setq |varlist'| (REMDUP (ASSOCLEFT |c'|))) + (setq |interVars| (|intersection| |varlist| |varlist'|)) + (setq |unionVars| (|union| |varlist| |varlist'|)) + (setq |diffVars| (SETDIFFERENCE |unionVars| |interVars|)) + (setq |modeAssoc| (|intersectionContour,buildModeAssoc| |diffVars| |c| |c'|)) (EXIT (APPEND |modeAssoc| (PROG (G2847) - (SPADLET G2847 NIL) + (setq G2847 NIL) (RETURN (DO ((G2854 |c| (CDR G2854)) (G2731 NIL)) @@ -727,18 +727,18 @@ NIL) (PROGN (PROGN - (SPADLET |x| (CAR G2731)) - (SPADLET |y| (CDR G2731)) + (setq |x| (CAR G2731)) + (setq |y| (CDR G2731)) G2731) NIL)) (NREVERSE0 G2847)) (SEQ (EXIT (COND ((AND (|member| |x| |interVars|) - (SPADLET |proplist| + (setq |proplist| (|intersectionContour,interProplist| |y| - (LASSOC (SPADLET |$var| |x|) + (LASSOC (setq |$var| |x|) |c'|)))) (SETQ G2847 (CONS (CONS |x| |proplist|) @@ -751,7 +751,7 @@ (DECLARE (SPECIAL |$var|)) (RETURN (PROGN - (SPADLET |$var| NIL) + (setq |$var| NIL) (|intersectionContour,computeIntersection| |c| |c'|))))) ; --this loop will return NIL if not satisfied @@ -783,14 +783,14 @@ (declare (special |$getPutTrace|)) (RETURN (SEQ (PROGN - (SPADLET |p| (CAR |pv|)) - (SPADLET |v| (CDR |pv|)) + (setq |p| (CAR |pv|)) + (setq |v| (CDR |pv|)) |pv|) (IF (|member| |x| |$getPutTrace|) (|pp| (CONS |x| (CONS '|has| (CONS |pv| NIL)))) NIL) (EXIT (IF (BOOT-EQUAL |p| '|conditionalmode|) (SEQ (RPLACA |pv| '|mode|) - (EXIT (IF (SPADLET |vv| (LASSOC '|mode| |e|)) + (EXIT (IF (setq |vv| (LASSOC '|mode| |e|)) (IF (NEQUAL |v| |vv|) (|stackWarning| (CONS '|The conditional modes | @@ -820,8 +820,8 @@ (PROGN (SETQ G2908 (CAR G2917)) NIL) (PROGN (PROGN - (SPADLET |x| (CAR G2908)) - (SPADLET |proplist| (CDR G2908)) + (setq |x| (CAR G2908)) + (setq |proplist| (CDR G2908)) G2908) NIL)) NIL) @@ -835,8 +835,8 @@ (PROG (|cur| |tail|) (RETURN (PROGN - (SPADLET |cur| (CAR E)) - (SPADLET |tail| (CDR E)) + (setq |cur| (CAR E)) + (setq |tail| (CDR E)) (CONS (NCONC (|addContour,fn| |c| E) |cur|) |tail|))))) ; @@ -881,8 +881,8 @@ (PROG (|c| |c'|) (RETURN (SEQ (PROGN - (SPADLET |c| (CAR G2954)) - (SPADLET |c'| (CADR G2954)) + (setq |c| (CAR G2954)) + (setq |c'| (CADR G2954)) G2954 (SEQ (IF (BOOT-EQUAL |c| |c'|) (EXIT |c|)) (EXIT (|makeCommonEnvironment,interC| @@ -894,8 +894,8 @@ (PROG (|le| |le'|) (RETURN (SEQ (PROGN - (SPADLET |le| (CAR G2968)) - (SPADLET |le'| (CADR G2968)) + (setq |le| (CAR G2968)) + (setq |le'| (CADR G2968)) G2968 (SEQ (IF (BOOT-EQUAL (CDR |le|) (CDR |le'|)) (EXIT (CONS (|makeCommonEnvironment,interC| @@ -911,8 +911,8 @@ (PROG (|e| |e'|) (RETURN (SEQ (PROGN - (SPADLET |e| (CAR G2982)) - (SPADLET |e'| (CADR G2982)) + (setq |e| (CAR G2982)) + (setq |e'| (CADR G2982)) G2982 (SEQ (IF (BOOT-EQUAL (CDR |e|) (CDR |e'|)) (EXIT (CONS (|makeCommonEnvironment,interLocalE| @@ -1095,7 +1095,7 @@ (PROG (|modemap| |listOfOperatorsSeenSoFar|) (RETURN (SEQ (PROGN - (SPADLET |listOfOperatorsSeenSoFar| NIL) + (setq |listOfOperatorsSeenSoFar| NIL) (DO ((G3160 E (CDR G3160)) (|x| NIL) (|i| 1 (QSADD1 |i|))) ((OR (ATOM G3160) @@ -1123,11 +1123,11 @@ (NULL (|member| (CAR |z|) |listOfOperatorsSeenSoFar|)) - (SPADLET |modemap| + (setq |modemap| (LASSOC '|modemap| (CDR |z|)))) (PROGN - (SPADLET + (setq |listOfOperatorsSeenSoFar| (CONS (CAR |z|) |listOfOperatorsSeenSoFar|)) @@ -1173,16 +1173,16 @@ (declare (special |$CategoryFrame|)) (RETURN (SEQ (PROGN - (SPADLET |new| NIL) - (SPADLET |old| (CAAR |$CategoryFrame|)) + (setq |new| NIL) + (setq |old| (CAAR |$CategoryFrame|)) (DO ((G3211 |old| (CDR G3211)) (|u| NIL)) ((OR (ATOM G3211) (PROGN (SETQ |u| (CAR G3211)) NIL)) NIL) (SEQ (EXIT (COND ((NULL (ASSQ (CAR |u|) |new|)) - (SPADLET |uold| (CDR |u|)) - (SPADLET |unew| NIL) + (setq |uold| (CDR |u|)) + (setq |unew| NIL) (DO ((G3220 |uold| (CDR G3220)) (|v| NIL)) ((OR (ATOM G3220) @@ -1193,16 +1193,16 @@ (SEQ (EXIT (COND ((NULL (ASSQ (CAR |v|) |unew|)) - (SPADLET |unew| + (setq |unew| (CONS |v| |unew|))) ('T NIL))))) - (SPADLET |new| + (setq |new| (CONS (CONS (CAR |u|) (NREVERSE |unew|)) |new|))) ('T NIL))))) - (SPADLET |$CategoryFrame| + (setq |$CategoryFrame| (CONS (CONS (NREVERSE |new|) NIL) NIL)) NIL))))) @@ -1226,7 +1226,7 @@ (COND ((IDENTP |name|) (COND - ((SPADLET |pl| (|getProplist| |name| |e|)) + ((setq |pl| (|getProplist| |name| |e|)) (COND ((OR (LASSOC '|value| |pl|) (LASSOC '|mode| |pl|)) NIL) ('T 'T))) @@ -1261,7 +1261,7 @@ (OR (|get| |x| '|modemap| |e|) (GETL |x| 'SPECIAL) (BOOT-EQUAL |x| '|case|) (PROGN - (SPADLET |ISTMP#1| (|getmode| |x| |e|)) + (setq |ISTMP#1| (|getmode| |x| |e|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Mapping|))))))) ; @@ -1287,7 +1287,7 @@ (DEFUN |isSomeDomainVariable| (|s|) (PROG (|x|) (RETURN - (AND (IDENTP |s|) (> (|#| (SPADLET |x| (PNAME |s|))) 2) + (AND (IDENTP |s|) (> (|#| (setq |x| (PNAME |s|))) 2) (BOOT-EQUAL (ELT |x| 0) '|#|) (BOOT-EQUAL (ELT |x| 1) '|#|))))) ; @@ -1329,7 +1329,7 @@ (PROG (|domainList| |name|) (RETURN (PROGN - (SPADLET |domainList| (|getDomainsInScope| |e|)) + (setq |domainList| (|getDomainsInScope| |e|)) (COND ((ATOM |domain|) (COND @@ -1338,7 +1338,7 @@ (|isSomeDomainVariable| |domain|)) 'T) ('T NIL))) - ((BOOT-EQUAL (SPADLET |name| (CAR |domain|)) '|Category|) 'T) + ((BOOT-EQUAL (setq |name| (CAR |domain|)) '|Category|) 'T) ((ASSQ |name| |domainList|) 'T) ((|isFunctor| |name|) NIL) ('T 'T)))))) @@ -1367,12 +1367,12 @@ ('T (AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |argl| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |argl| (QCDR |x|)) 'T) (|isSideEffectFree| |op|) (PROG (G3282) - (SPADLET G3282 'T) + (setq G3282 'T) (RETURN (DO ((G3288 NIL (NULL G3282)) (G3289 |argl| (CDR G3289)) (|y| NIL)) @@ -1396,14 +1396,14 @@ (OR (|member| |op| |$SideEffectFreeFunctionList|) (AND (CONSP |op|) (EQ (QCAR |op|) '|elt|) (PROGN - (SPADLET |ISTMP#1| (QCDR |op|)) + (setq |ISTMP#1| (QCDR |op|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |op'| (QCAR |ISTMP#2|)) + (setq |op'| (QCAR |ISTMP#2|)) 'T))))) (|isSideEffectFree| |op'|)))))) @@ -1435,7 +1435,7 @@ (DEFUN |isAlmostSimple,setAssignment| (|x|) (declare (special |$assignmentList|)) (SEQ (IF (BOOT-EQUAL |$assignmentList| '|failed|) (EXIT NIL)) - (EXIT (SPADLET |$assignmentList| (APPEND |$assignmentList| |x|))))) + (EXIT (setq |$assignmentList| (APPEND |$assignmentList| |x|))))) ;;; *** |isAlmostSimple,fn| REDEFINED @@ -1445,9 +1445,9 @@ (RETURN (SEQ (IF (OR (ATOM |x|) (NULL (CDR |x|))) (EXIT |x|)) (PROGN - (SPADLET |op| (CAR |x|)) - (SPADLET |y| (CADR |x|)) - (SPADLET |l| (CDDR |x|)) + (setq |op| (CAR |x|)) + (setq |y| (CADR |x|)) + (setq |l| (CDDR |x|)) |x|) (IF (BOOT-EQUAL |op| '|has|) (EXIT |x|)) (IF (BOOT-EQUAL |op| '|is|) (EXIT |x|)) @@ -1464,7 +1464,7 @@ (CONS (CONS 'LET (CONS - (SPADLET |g| (|genVariable|)) + (setq |g| (|genVariable|)) |l|)) (CONS (CONS 'LET @@ -1474,7 +1474,7 @@ (IF (|isSideEffectFree| |op|) (EXIT (CONS |op| (|mapInto| (CDR |x|) '|isAlmostSimple,fn|)))) - (EXIT (IF 'T (EXIT (SPADLET |$assignmentList| '|failed|)))))))) + (EXIT (IF 'T (EXIT (setq |$assignmentList| '|failed|)))))))) ;;; *** |isAlmostSimple| REDEFINED @@ -1483,8 +1483,8 @@ (DECLARE (SPECIAL |$assignmentList|)) (RETURN (PROGN - (SPADLET |$assignmentList| NIL) - (SPADLET |transform| (|isAlmostSimple,fn| |x|)) + (setq |$assignmentList| NIL) + (setq |transform| (|isAlmostSimple,fn| |x|)) (COND ((BOOT-EQUAL |$assignmentList| '|failed|) NIL) ('T @@ -1516,14 +1516,14 @@ (SEQ (IF (ATOM |x|) (EXIT |x|)) (IF (AND (CONSP |x|) (EQ (QCAR |x|) '|exit|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) 0) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |u| (QCAR |ISTMP#2|)) + (setq |u| (QCAR |ISTMP#2|)) 'T)))))) (EXIT (|decExitLevel,removeExit0| |u|))) (EXIT (CONS (|decExitLevel,removeExit0| (CAR |x|)) @@ -1554,8 +1554,8 @@ ((ATOM |x|) |x|) ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |l| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |l| (QCDR |x|)) 'T) (member |op| '(SEQ REPEAT COLLECT))) (DO ((G3401 |l| (CDR G3401)) (|u| NIL)) @@ -1565,15 +1565,15 @@ (SEQ (EXIT (|adjExitLevel| |u| (+ |seqnum| 1) |inc|))))) ((AND (CONSP |x|) (EQ (QCAR |x|) '|exit|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |n| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |n| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |u| (QCAR |ISTMP#2|)) + (setq |u| (QCAR |ISTMP#2|)) 'T)))))) (|adjExitLevel| |u| |seqnum| |inc|) (COND @@ -1581,8 +1581,8 @@ ('T (|rplac| (CADR |x|) (+ |n| |inc|))))) ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |l| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |l| (QCDR |x|)) 'T)) (DO ((G3410 |l| (CDR G3410)) (|u| NIL)) ((OR (ATOM G3410) @@ -1604,9 +1604,9 @@ (SEQ (COND ((NULL (CDR |l|)) (CAR |l|)) ('T - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (PROG (G3441) - (SPADLET G3441 NIL) + (setq G3441 NIL) (RETURN (DO ((G3446 |l| (CDR G3446)) (|u| NIL)) ((OR (ATOM G3446) @@ -1617,9 +1617,9 @@ (SEQ (EXIT (SETQ G3441 (CONS (|incExitLevel| |u|) G3441)))))))) - (SPADLET |LETTMP#2| (REVERSE |LETTMP#1|)) - (SPADLET |x| (CAR |LETTMP#2|)) - (SPADLET |c| (NREVERSE (CDR |LETTMP#2|))) + (setq |LETTMP#2| (REVERSE |LETTMP#1|)) + (setq |x| (CAR |LETTMP#2|)) + (setq |c| (NREVERSE (CDR |LETTMP#2|))) (CONS 'SEQ (APPEND |c| (CONS (CONS '|exit| @@ -1671,11 +1671,11 @@ (COND ((NULL |l|) NIL) ((AND (PROGN - (SPADLET |ISTMP#1| (CAR |l|)) + (setq |ISTMP#1| (CAR |l|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |k| (QCAR |ISTMP#1|)) - (SPADLET |r| (QCDR |ISTMP#1|)) + (setq |k| (QCAR |ISTMP#1|)) + (setq |r| (QCDR |ISTMP#1|)) 'T))) (BOOT-EQUAL |k| |key|)) (APPEND |r| (|flatten| (CDR |l|) |key|))) @@ -1691,7 +1691,7 @@ (DEFUN |genDomainVar| () (declare (special |$Index|)) (PROGN - (SPADLET |$Index| (+ |$Index| 1)) + (setq |$Index| (+ |$Index| 1)) (INTERNL (STRCONC '|#D| (STRINGIMAGE |$Index|))))) ; @@ -1704,7 +1704,7 @@ (declare (special |$genSDVar|)) (INTERNL (STRCONC '|#G| (STRINGIMAGE - (SPADLET |$genSDVar| (+ |$genSDVar| 1)))))) + (setq |$genSDVar| (+ |$genSDVar| 1)))))) ; ;genSomeVariable() == @@ -1716,7 +1716,7 @@ (declare (special |$genSDVar|)) (INTERNL (STRCONC '|##| (STRINGIMAGE - (SPADLET |$genSDVar| (+ |$genSDVar| 1)))))) + (setq |$genSDVar| (+ |$genSDVar| 1)))))) ; ;listOfIdentifiersIn x == @@ -1733,11 +1733,11 @@ ((IDENTP |x|) (CONS |x| NIL)) ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |l| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |l| (QCDR |x|)) 'T)) (REMDUP (PROG (G3499) - (SPADLET G3499 NIL) + (setq G3499 NIL) (RETURN (DO ((G3504 |l| (CDR G3504)) (|y| NIL)) ((OR (ATOM G3504) @@ -1759,7 +1759,7 @@ (PROG () (RETURN (SEQ (PROG (G3520) - (SPADLET G3520 NIL) + (setq G3520 NIL) (RETURN (DO ((G3525 |x| (CDR G3525)) (|y| NIL)) ((OR (ATOM G3525) @@ -1834,12 +1834,12 @@ (BUMPERRORCOUNT '|semantic|) (COND (|$insideCapsuleFunctionIfTrue| - (SPADLET |msg| (CONS |$op| (CONS '|: | |msg|))))) - (COND ((ATOM |msg|) (SPADLET |msg| (LIST |msg|)))) - (SPADLET |entry| (CONS |msg| (CONS |expr| NIL))) + (setq |msg| (CONS |$op| (CONS '|: | |msg|))))) + (COND ((ATOM |msg|) (setq |msg| (LIST |msg|)))) + (setq |entry| (CONS |msg| (CONS |expr| NIL))) (COND ((NULL (|member| |entry| |$semanticErrorStack|)) - (SPADLET |$semanticErrorStack| + (setq |$semanticErrorStack| (CONS |entry| |$semanticErrorStack|)))) (COND ((AND |$scanIfTrue| @@ -1863,10 +1863,10 @@ (PROGN (COND (|$insideCapsuleFunctionIfTrue| - (SPADLET |msg| (CONS |$op| (CONS '|: | |msg|))))) + (setq |msg| (CONS |$op| (CONS '|: | |msg|))))) (COND ((NULL (|member| |msg| |$warningStack|)) - (SPADLET |$warningStack| (CONS |msg| |$warningStack|)))) + (setq |$warningStack| (CONS |msg| |$warningStack|)))) NIL)) ; @@ -1882,8 +1882,8 @@ (PROGN (COND (|$insideCapsuleFunctionIfTrue| - (SPADLET |msg| (CONS |$op| (CONS '|: | |msg|))))) - (SPADLET |$warningStack| + (setq |msg| (CONS |$op| (CONS '|: | |msg|))))) + (setq |$warningStack| (delete |msg| |$warningStack| :count 1 :test #'equal)) NIL)) @@ -1897,7 +1897,7 @@ (DEFUN |stackMessage| (|msg|) (declare (special |$compErrorMessageStack|)) (PROGN - (SPADLET |$compErrorMessageStack| + (setq |$compErrorMessageStack| (CONS |msg| |$compErrorMessageStack|)) NIL)) @@ -1915,7 +1915,7 @@ (PROGN (COND ((NULL |$compErrorMessageStack|) - (SPADLET |$compErrorMessageStack| + (setq |$compErrorMessageStack| (CONS |msg| |$compErrorMessageStack|)))) NIL)) @@ -1929,7 +1929,7 @@ (DEFUN |stackAndThrow| (|msg|) (declare (special |$compErrorMessageStack|)) (PROGN - (SPADLET |$compErrorMessageStack| + (setq |$compErrorMessageStack| (CONS |msg| |$compErrorMessageStack|)) (THROW '|compOrCroak| NIL))) @@ -1967,8 +1967,8 @@ (PROG (|target| |argSigList|) (RETURN (SEQ (PROGN - (SPADLET |target| (CAR G3594)) - (SPADLET |argSigList| (CDR G3594)) + (setq |target| (CAR G3594)) + (setq |argSigList| (CDR G3594)) (|printString| |before|) (|printString| |op|) (|printString| '|: (|) @@ -2012,12 +2012,12 @@ (COND ((BOOT-EQUAL |s| |$EmptyMode|) NIL) ((BOOT-EQUAL |s| |p|) |al|) - ((SPADLET |v| (|assoc| |p| |al|)) + ((setq |v| (|assoc| |p| |al|)) (OR (BOOT-EQUAL |s| (CDR |v|)) |al|)) ((member |p| |$PatternVariableList|) (CONS (CONS |p| |s|) |al|)) ('T (AND (NULL (ATOM |p|)) (NULL (ATOM |s|)) - (SPADLET |al'| (|pmatchWithSl| (CAR |s|) (CAR |p|) |al|)) + (setq |al'| (|pmatchWithSl| (CAR |s|) (CAR |p|) |al|)) (|pmatchWithSl| (CDR |s|) (CDR |p|) |al'|))))))) ; @@ -2034,14 +2034,14 @@ (declare (special |$previousTime| |$timerTicksPerSecond|)) (RETURN (PROGN - (SPADLET |currentTime| (get-internal-run-time)) - (SPADLET |elapsedSeconds| + (setq |currentTime| (get-internal-run-time)) + (setq |elapsedSeconds| (QUOTIENT (TIMES (SPADDIFFERENCE |currentTime| |$previousTime|) 1.0) |$timerTicksPerSecond|)) - (SPADLET |$previousTime| |currentTime|) + (setq |$previousTime| |currentTime|) |elapsedSeconds|)))) ; @@ -2053,10 +2053,10 @@ (PROG (|c| |d| |a| |b|) (RETURN (PROGN - (SPADLET |c| (CAR G3644)) - (SPADLET |d| (CADR G3644)) - (SPADLET |a| (CAR G3635)) - (SPADLET |b| (CADR G3635)) + (setq |c| (CAR G3644)) + (setq |d| (CADR G3644)) + (setq |a| (CAR G3635)) + (setq |b| (CADR G3635)) (CONS (+ |a| |c|) (CONS (+ |b| |d|) NIL)))))) ; @@ -2073,9 +2073,9 @@ (PROG (|byteCount| |elapsedSeconds| |timeString|) (RETURN (PROGN - (SPADLET |byteCount| (CAR G3665)) - (SPADLET |elapsedSeconds| (CADR G3665)) - (SPADLET |timeString| + (setq |byteCount| (CAR G3665)) + (setq |elapsedSeconds| (CADR G3665)) + (setq |timeString| (|normalizeStatAndStringify| |elapsedSeconds|)) (COND ((EQL |byteCount| 0) @@ -2138,9 +2138,9 @@ ((BOOT-EQUAL |form| |form'|) 'T) ((BOOT-EQUAL |form| |$Category|) NIL) ((AND (CONSP |form'|) (EQ (QCAR |form'|) '|Join|) - (PROGN (SPADLET |l| (QCDR |form'|)) 'T)) + (PROGN (setq |l| (QCDR |form'|)) 'T)) (PROG (G3729) - (SPADLET G3729 'T) + (setq G3729 'T) (RETURN (DO ((G3735 NIL (NULL G3729)) (G3736 |l| (CDR G3736)) (|x| NIL)) @@ -2153,11 +2153,11 @@ |form| |x|))))))))) ((AND (CONSP |form'|) (EQ (QCAR |form'|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |form'|)) + (setq |ISTMP#1| (QCDR |form'|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |l| (QCDR |ISTMP#1|)) 'T)))) + (PROGN (setq |l| (QCDR |ISTMP#1|)) 'T)))) (PROG (G3743) - (SPADLET G3743 'T) + (setq G3743 'T) (RETURN (DO ((G3749 NIL (NULL G3743)) (G3750 |l| (CDR G3750)) (|x| NIL)) @@ -2171,22 +2171,22 @@ ((AND (CONSP |form'|) (EQ (QCAR |form'|) '|SubsetCategory|) (PROGN - (SPADLET |ISTMP#1| (QCDR |form'|)) + (setq |ISTMP#1| (QCDR |form'|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |cat| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |cat| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |dom| (QCAR |ISTMP#2|)) + (setq |dom| (QCAR |ISTMP#2|)) 'T)))))) (AND (|extendsCategoryForm| |domain| |form| |cat|) (|isSubset| |domain| |dom| |$e|))) ((AND (CONSP |form|) (EQ (QCAR |form|) '|Join|) - (PROGN (SPADLET |l| (QCDR |form|)) 'T)) + (PROGN (setq |l| (QCDR |form|)) 'T)) (PROG (G3757) - (SPADLET G3757 NIL) + (setq G3757 NIL) (RETURN (DO ((G3763 NIL G3757) (G3764 |l| (CDR G3764)) (|x| NIL)) @@ -2199,9 +2199,9 @@ |x| |form'|))))))))) ((AND (CONSP |form|) (EQ (QCAR |form|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |l| (QCDR |ISTMP#1|)) 'T)))) + (PROGN (setq |l| (QCDR |ISTMP#1|)) 'T)))) (OR (|member| |form'| |l|) (|stackWarning| (CONS '|not known that | @@ -2210,19 +2210,19 @@ (CONS |form| NIL))))) 'T)) ((|isCategoryForm| |form| |$EmptyEnvironment|) - (SPADLET |formVec| + (setq |formVec| (CAR (|compMakeCategoryObject| |form| |$e|))) (COND ((AND (CONSP |form'|) (EQ (QCAR |form'|) 'SIGNATURE) (PROGN - (SPADLET |ISTMP#1| (QCDR |form'|)) + (setq |ISTMP#1| (QCDR |form'|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |op| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |op| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |args| (QCAR |ISTMP#2|)) + (setq |args| (QCAR |ISTMP#2|)) 'T)))))) (OR (|assoc| (CONS |op| (CONS |args| NIL)) (ELT |formVec| 1)) @@ -2231,23 +2231,23 @@ (SUBSTQ |domain| '$ (ELT |formVec| 1))))) ((AND (CONSP |form'|) (EQ (QCAR |form'|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |form'|)) + (setq |ISTMP#1| (QCDR |form'|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |at| (QCAR |ISTMP#1|)) + (setq |at| (QCAR |ISTMP#1|)) 'T)))) (OR (|assoc| |at| (ELT |formVec| 2)) (|assoc| (SUBSTQ |domain| '$ |at|) (SUBSTQ |domain| '$ (ELT |formVec| 2))))) ((AND (CONSP |form'|) (EQ (QCAR |form'|) 'IF)) 'T) ((EQL (|#| |formVec|) 1) (|newHasTest| |form| |form'|)) - ('T (SPADLET |catvlist| (ELT |formVec| 4)) + ('T (setq |catvlist| (ELT |formVec| 4)) (OR (|member| |form'| (CAR |catvlist|)) (|member| |form'| (SUBSTQ |domain| '$ (CAR |catvlist|))) (PROG (G3771) - (SPADLET G3771 NIL) + (setq G3771 NIL) (RETURN (DO ((G3778 NIL G3771) (G3779 (CADR |catvlist|) (CDR G3779)) @@ -2258,7 +2258,7 @@ NIL) (PROGN (PROGN - (SPADLET |cat| (CAR G3724)) + (setq |cat| (CAR G3724)) G3724) NIL)) G3771) @@ -2281,9 +2281,9 @@ (PROG (|prop| |u|) (RETURN (PROGN - (SPADLET |prop| (|getProplist| |x| |e|)) + (setq |prop| (|getProplist| |x| |e|)) (COND - ((SPADLET |u| (LASSQ '|value| |prop|)) (CADR |u|)) + ((setq |u| (LASSQ '|value| |prop|)) (CADR |u|)) ('T (LASSQ '|mode| |prop|))))))) ; @@ -2298,21 +2298,21 @@ (PROG (|u| |ISTMP#1| |ISTMP#2| |ISTMP#3| |map| |ISTMP#4|) (RETURN (COND - ((SPADLET |u| (|getmode| |x| |e|)) |u|) + ((setq |u| (|getmode| |x| |e|)) |u|) ((PROGN - (SPADLET |ISTMP#1| (SPADLET |u| (|get| |x| '|modemap| |e|))) + (setq |ISTMP#1| (setq |u| (|get| |x| '|modemap| |e|))) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |ISTMP#3| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |map| (QCDR |ISTMP#3|)) + (setq |map| (QCDR |ISTMP#3|)) 'T))) (PROGN - (SPADLET |ISTMP#4| (QCDR |ISTMP#2|)) + (setq |ISTMP#4| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL))))))) (CONS '|Mapping| |map|)) @@ -2333,7 +2333,7 @@ ((NULL |l|) (LIST NIL)) ('T (PROG (G3855) - (SPADLET G3855 NIL) + (setq G3855 NIL) (RETURN (DO ((G3860 (CAR |l|) (CDR G3860)) (|x| NIL)) ((OR (ATOM G3860) @@ -2342,7 +2342,7 @@ (SEQ (EXIT (SETQ G3855 (APPEND G3855 (PROG (G3870) - (SPADLET G3870 NIL) + (setq G3870 NIL) (RETURN (DO ((G3875 @@ -2373,11 +2373,11 @@ (RETURN (SEQ (COND ((ATOM |u|) |u|) - ((SPADLET |y| + ((setq |y| (|rassoc| - (SPADLET |t| + (setq |t| (PROG (G3891) - (SPADLET G3891 NIL) + (setq G3891 NIL) (RETURN (DO ((G3896 |u| (CDR G3896)) @@ -2410,10 +2410,10 @@ ((ATOM |x|) |x|) ('T (CONS (COND - ((BOOT-EQUAL |op| (SPADLET |f| (CAR |x|))) |op'|) + ((BOOT-EQUAL |op| (setq |f| (CAR |x|))) |op'|) ('T |f|)) (PROG (G3914) - (SPADLET G3914 NIL) + (setq G3914 NIL) (RETURN (DO ((G3919 (CDR |x|) (CDR G3919)) (|y| NIL)) @@ -2453,7 +2453,7 @@ (IF (|isCategory| |e|) (EXIT (LIST2REFVEC (PROG (G3936) - (SPADLET G3936 NIL) + (setq G3936 NIL) (RETURN (DO ((G3941 (MAXINDEX |e|)) (|i| 0 (QSADD1 |i|))) @@ -2466,11 +2466,11 @@ (ELT |e| |i|)) G3936)))))))))) (IF (ATOM |e|) - (EXIT (SEQ (IF (SPADLET |y| (ASSQ |e| |p|)) + (EXIT (SEQ (IF (setq |y| (ASSQ |e| |p|)) (EXIT (CDR |y|))) (EXIT |e|)))) - (SPADLET |u| (|sublisV,suba| |p| (QCAR |e|))) - (SPADLET |v| (|sublisV,suba| |p| (QCDR |e|))) + (setq |u| (|sublisV,suba| |p| (QCAR |e|))) + (setq |v| (|sublisV,suba| |p| (QCDR |e|))) (IF (AND (EQ (QCAR |e|) |u|) (EQ (QCDR |e|) |v|)) (EXIT |e|)) (EXIT (CONS |u| |v|)))))) @@ -2503,7 +2503,7 @@ (declare (special |$f| |$insideCapsuleFunctionIfTrue| |$CapsuleModemapFrame|)) (RETURN (PROGN - (SPADLET |env| + (setq |env| (COND ((BOOT-EQUAL |$insideCapsuleFunctionIfTrue| 'T) |$CapsuleModemapFrame|) @@ -2523,15 +2523,15 @@ (PROG (|dcSig| |pred|) (RETURN (SEQ (PROG (G3975) - (SPADLET G3975 NIL) + (setq G3975 NIL) (RETURN (DO ((G3981 |x| (CDR G3981)) (G3966 NIL)) ((OR (ATOM G3981) (PROGN (SETQ G3966 (CAR G3981)) NIL) (PROGN (PROGN - (SPADLET |dcSig| (CAR G3966)) - (SPADLET |pred| (CAADR G3966)) + (setq |dcSig| (CAR G3966)) + (setq |pred| (CAADR G3966)) G3966) NIL)) (NREVERSE0 G3975)) @@ -2562,7 +2562,7 @@ (PROGN (SETQ |y| (CAR G3999)) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |u| + ((setq |u| (|comp| |y| |$EmptyMode| |$f|)) (|sayBrightly| (CONS |y| @@ -2593,7 +2593,7 @@ (declare (special |$EmptyMode| |$f|)) (RETURN (COND - ((SPADLET |u| (|comp| |x| |$EmptyMode| |$f|)) (CADR |u|)) + ((setq |u| (|comp| |x| |$EmptyMode| |$f|)) (CADR |u|)) ('T NIL))))) ; @@ -2609,13 +2609,13 @@ (declare (special |$x| |$f|)) (RETURN (SEQ (COND - ((SPADLET |mmList| (|getFormModemaps| |$x| |$f|)) + ((setq |mmList| (|getFormModemaps| |$x| |$f|)) (DO ((G4021 |mmList| (CDR G4021)) (|mm| NIL)) ((OR (ATOM G4021) (PROGN (SETQ |mm| (CAR G4021)) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |u| (|qModemap| |mm|)) + ((setq |u| (|qModemap| |mm|)) (RETURN |u|)) ('T NIL)))))) ('T (|sayBrightly| "no modemaps for $x"))))))) @@ -2637,13 +2637,13 @@ (|sayBrightly| (CONS "modemap" (|formatModemap| |mm|))) - (SPADLET |dc| (CAAR |mm|)) - (SPADLET |target| (CADAR |mm|)) - (SPADLET |sl| (CDDAR |mm|)) - (SPADLET |pred| (CAADR |mm|)) + (setq |dc| (CAAR |mm|)) + (setq |target| (CADAR |mm|)) + (setq |sl| (CDDAR |mm|)) + (setq |pred| (CAADR |mm|)) (COND ((PROG (G4038) - (SPADLET G4038 'T) + (setq G4038 'T) (RETURN (DO ((G4045 NIL (NULL G4038)) (G4046 (CDR |$x|) (CDR G4046)) (|a| NIL) @@ -2676,9 +2676,9 @@ (declare (special |$f|)) (RETURN (PROGN - (SPADLET |yesOrNo| + (setq |yesOrNo| (COND - ((SPADLET |u| (|comp| |a| |m| |$f|)) '|yes|) + ((setq |u| (|comp| |a| |m| |$f|)) '|yes|) ('T '|no|))) (|sayBrightly| (CONS |a| @@ -2708,9 +2708,9 @@ (declare (special |$EmptyMode| |$f|)) (RETURN (PROGN - (SPADLET |msg| + (setq |msg| (COND - ((SPADLET |u| (|comp| |x| |$EmptyMode| |$f|)) + ((setq |u| (|comp| |x| |$EmptyMode| |$f|)) (CONS "compiles to mode" (CONS (CADR |u|) nil))) ('T NIL))) @@ -2795,15 +2795,15 @@ (RETURN (SEQ (IF (AND (CONSP |alist|) (PROGN - (SPADLET |ISTMP#1| (QCAR |alist|)) + (setq |ISTMP#1| (QCAR |alist|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |prop| (QCAR |ISTMP#1|)) - (SPADLET |val| (QCDR |ISTMP#1|)) + (setq |prop| (QCAR |ISTMP#1|)) + (setq |val| (QCDR |ISTMP#1|)) 'T))) - (PROGN (SPADLET |l| (QCDR |alist|)) 'T)) + (PROGN (setq |l| (QCDR |alist|)) 'T)) (EXIT (SEQ (IF (BOOT-EQUAL |prop| '|value|) - (SPADLET |val| + (setq |val| (CONS (CAR |val|) (CONS (CADR |val|) (CONS "..." NIL)))) @@ -2841,7 +2841,7 @@ (PROG (|modemaps| |listOfOperatorsSeenSoFar|) (RETURN (SEQ (PROGN - (SPADLET |listOfOperatorsSeenSoFar| NIL) + (setq |listOfOperatorsSeenSoFar| NIL) (DO ((G4136 E (CDR G4136)) (|x| NIL) (|i| 1 (QSADD1 |i|))) ((OR (ATOM G4136) @@ -2869,11 +2869,11 @@ (NULL (|member| (CAR |z|) |listOfOperatorsSeenSoFar|)) - (SPADLET |modemaps| + (setq |modemaps| (LASSOC '|modemap| (CDR |z|)))) (PROGN - (SPADLET + (setq |listOfOperatorsSeenSoFar| (CONS (CAR |z|) |listOfOperatorsSeenSoFar|)) @@ -2909,7 +2909,7 @@ (DEFUN |GEQNSUBSTLIST,GSUBSTinner| (|alist| |ob|) (PROG (|pr|) (RETURN - (SEQ (IF (SPADLET |pr| (ASSQ |ob| |alist|)) (EXIT (CDR |pr|))) + (SEQ (IF (setq |pr| (ASSQ |ob| |alist|)) (EXIT (CDR |pr|))) (EXIT |ob|))))) ;;; *** GEQNSUBSTLIST REDEFINED @@ -2920,7 +2920,7 @@ (SEQ (COND ((REDUCE-N 'OR2 NIL (PROG (G4183) - (SPADLET G4183 NIL) + (setq G4183 NIL) (RETURN (DO ((G4188 |new| (CDR G4188)) (|n| NIL)) ((OR (ATOM G4188) @@ -2929,7 +2929,7 @@ (SEQ (EXIT (SETQ G4183 (APPEND G4183 (PROG (G4198) - (SPADLET G4198 NIL) + (setq G4198 NIL) (RETURN (DO ((G4203 |old| @@ -2946,9 +2946,9 @@ (CONS (EQ |o| |n|) G4198)))))))))))))) NIL) - (SPADLET |mid| + (setq |mid| (PROG (G4213) - (SPADLET G4213 NIL) + (setq G4213 NIL) (RETURN (DO ((G4218 |old| (CDR G4218)) (|o| NIL)) @@ -2962,9 +2962,9 @@ (GEQNSUBSTLIST |old| |mid| |body|) (GEQNSUBSTLIST |mid| |new| |body|)) ('T - (SPADLET |alist| + (setq |alist| (PROG (G4229) - (SPADLET G4229 NIL) + (setq G4229 NIL) (RETURN (DO ((G4235 |old| (CDR G4235)) (|o| NIL) (G4236 |new| (CDR G4236)) @@ -3045,36 +3045,36 @@ (PROG (|nob| |n| |keys| |e| |nk| |ne| |s| |ns|) (declare (special |$seen| |$notseen|)) (RETURN - (SEQ (SPADLET |e| (HGET |$seen| |ob| |$notseen|)) + (SEQ (setq |e| (HGET |$seen| |ob| |$notseen|)) (IF (NULL (EQ |e| |$notseen|)) (EXIT |e|)) - (SPADLET |nob| (FUNCALL |fn| |arg| |ob|)) + (setq |nob| (FUNCALL |fn| |arg| |ob|)) (HPUT |$seen| |ob| |nob|) (IF (NULL (EQ |nob| |ob|)) (EXIT |nob|)) (IF (CONSP |ob|) - (EXIT (SEQ (SPADLET |ne| + (EXIT (SEQ (setq |ne| (|traverse,traverseInner| (QCAR |ob|) |fn| |arg|)) (IF (NULL (EQ |ne| (QCAR |ob|))) (QRPLACA |ob| |ne|) NIL) - (SPADLET |ne| + (setq |ne| (|traverse,traverseInner| (QCDR |ob|) |fn| |arg|)) (IF (NULL (EQ |ne| (QCDR |ob|))) (QRPLACD |ob| |ne|) NIL) (EXIT |ob|)))) (IF (VECP |ob|) - (EXIT (SEQ (SPADLET |n| (QVMAXINDEX |ob|)) + (EXIT (SEQ (setq |n| (QVMAXINDEX |ob|)) (DO ((|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) - (SEQ (SPADLET |e| (QVELT |ob| |i|)) - (SPADLET |ne| + (SEQ (setq |e| (QVELT |ob| |i|)) + (setq |ne| (|traverse,traverseInner| |e| |fn| |arg|)) (EXIT (IF (NULL (EQ |ne| |e|)) (QSETVELT |ob| |i| |ne|) NIL)))) (EXIT |ob|)))) (IF (HASHTABLEP |ob|) - (EXIT (SEQ (SPADLET |keys| (HKEYS |ob|)) + (EXIT (SEQ (setq |keys| (HKEYS |ob|)) (DO ((G4276 |keys| (CDR G4276)) (|k| NIL)) ((OR (ATOM G4276) @@ -3082,11 +3082,11 @@ (SETQ |k| (CAR G4276)) NIL)) NIL) - (SEQ (SPADLET |e| (HGET |ob| |k|)) - (SPADLET |nk| + (SEQ (setq |e| (HGET |ob| |k|)) + (setq |nk| (|traverse,traverseInner| |k| |fn| |arg|)) - (SPADLET |ne| + (setq |ne| (|traverse,traverseInner| |e| |fn| |arg|)) (EXIT (IF @@ -3100,18 +3100,18 @@ (EXIT (SEQ (DO ((G4285 (PA-SPEC-COUNT |ob|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G4285) NIL) - (SEQ (SPADLET |s| (PA-SPEC |ob| |i|)) + (SEQ (setq |s| (PA-SPEC |ob| |i|)) (IF (NULL (CONSP |s|)) (EXIT (SEQ - (SPADLET |ns| + (setq |ns| (|traverse,traverseInner| |s| |fn| |arg|)) (EXIT (IF (NULL (EQ |s| |ns|)) (SET-PA-SPEC |ob| |i| |ns|) NIL))))) - (SPADLET |ns| + (setq |ns| (|traverse,traverseInner| (QCDR |s|) |fn| |arg|)) (EXIT (IF (NULL (EQ |ns| (QCDR |s|))) @@ -3130,8 +3130,8 @@ (DECLARE (SPECIAL |$seen| |$notseen|)) (RETURN (PROGN - (SPADLET |$seen| (MAKE-HASHTABLE 'EQ)) - (SPADLET |$notseen| (GENSYM)) + (setq |$seen| (MAKE-HASHTABLE 'EQ)) + (setq |$notseen| (GENSYM)) (|traverse,traverseInner| |ob| |fn| |arg|))))) \end{chunk} diff --git a/src/interp/category.lisp.pamphlet b/src/interp/category.lisp.pamphlet index 8bc12d2..ee57038 100644 --- a/src/interp/category.lisp.pamphlet +++ b/src/interp/category.lisp.pamphlet @@ -78,7 +78,7 @@ Sorry to say, this hack is needed by isCategoryType (DO ((G166085 (MAXINDEX D)) (|j| 6 (+ |j| 1))) ((> |j| G166085) NIL) (SEQ (EXIT (PROGN - (SPADLET |u| (ELT D |j|)) + (setq |u| (ELT D |j|)) (COND ((NULL |u|) (SAY "another domain")) @@ -139,7 +139,7 @@ It is set in init.lisp.pamphlet. (IF (ATOM |v|) (EXIT (CONS |v| |l|))) (IF (member (CAR |v|) |$PrimitiveDomainNames|) (EXIT |l|)) (IF (AND (CONSP |v|) (EQ (QCAR |v|) '|Union|) - (PROGN (SPADLET |w| (QCDR |v|)) 'T)) + (PROGN (setq |w| (QCDR |v|)) 'T)) (EXIT (SEQ (DO ((G166101 (|stripUnionTags| |w|) (CDR G166101)) (|x| NIL)) @@ -148,11 +148,11 @@ It is set in init.lisp.pamphlet. (SETQ |x| (CAR G166101)) NIL)) NIL) - (SEQ (EXIT (SPADLET |l| + (SEQ (EXIT (setq |l| (|sigParams,Prepare2| |x| |l|))))) (EXIT |l|)))) (IF (AND (CONSP |v|) (EQ (QCAR |v|) '|Mapping|) - (PROGN (SPADLET |w| (QCDR |v|)) 'T)) + (PROGN (setq |w| (QCDR |v|)) 'T)) (EXIT (SEQ (DO ((G166110 |w| (CDR G166110)) (|x| NIL)) ((OR (ATOM G166110) @@ -160,14 +160,14 @@ It is set in init.lisp.pamphlet. (SETQ |x| (CAR G166110)) NIL)) NIL) - (SEQ (EXIT (SPADLET |l| + (SEQ (EXIT (setq |l| (|sigParams,Prepare2| |x| |l|))))) (EXIT |l|)))) (IF (AND (CONSP |v|) (EQ (QCAR |v|) '|List|) - (PROGN (SPADLET |w| (QCDR |v|)) 'T)) + (PROGN (setq |w| (QCDR |v|)) 'T)) (EXIT (|sigParams,Prepare2| |w| |l|))) (IF (AND (CONSP |v|) (EQ (QCAR |v|) '|Record|) - (PROGN (SPADLET |w| (QCDR |v|)) 'T)) + (PROGN (setq |w| (QCDR |v|)) 'T)) (EXIT (SEQ (DO ((G166119 |w| (CDR G166119)) (|x| NIL)) ((OR (ATOM G166119) @@ -175,7 +175,7 @@ It is set in init.lisp.pamphlet. (SETQ |x| (CAR G166119)) NIL)) NIL) - (SEQ (EXIT (SPADLET |l| + (SEQ (EXIT (setq |l| (|sigParams,Prepare2| (CADDR |x|) |l|))))) (EXIT |l|)))) @@ -186,20 +186,20 @@ It is set in init.lisp.pamphlet. ((OR (ATOM G166138) (PROGN (SETQ |v| (CAR G166138)) NIL)) NIL) - (SEQ (EXIT (SPADLET |l| (|sigParams,Prepare2| |v| |l|))))))) + (SEQ (EXIT (setq |l| (|sigParams,Prepare2| |v| |l|))))))) (DEFUN |sigParams| (|sigList|) (PROG (|myhash| |NewLocals| |result|) (RETURN (SEQ (PROGN - (SPADLET |result| NIL) - (SPADLET |myhash| (MAKE-HASHTABLE 'EQUAL)) - (SPADLET |NewLocals| NIL) + (setq |result| NIL) + (setq |myhash| (MAKE-HASHTABLE 'EQUAL)) + (setq |NewLocals| NIL) (DO ((G166154 |sigList| (CDR G166154)) (|s| NIL)) ((OR (ATOM G166154) (PROGN (SETQ |s| (CAR G166154)) NIL)) NIL) - (SEQ (EXIT (SPADLET |NewLocals| + (SEQ (EXIT (setq |NewLocals| (|sigParams,Prepare| (CADAR |s|) |NewLocals|))))) (DO ((G166163 |NewLocals| (CDR G166163)) (|s| NIL)) @@ -209,7 +209,7 @@ It is set in init.lisp.pamphlet. (SEQ (EXIT (COND ((NULL (HGET |myhash| |s|)) (HPUT |myhash| |s| 'T) - (SPADLET |result| (CONS |s| |result|))) + (setq |result| (CONS |s| |result|))) ('T NIL))))) |result|))))) @@ -267,13 +267,13 @@ of category object. |NewLocals| |OldLocals| |count| |v| |nsig| |sequence|) (RETURN (SEQ (PROGN - (SPADLET |NSigList| NIL) + (setq |NSigList| NIL) (COND - ((NULL |PrincipalAncestor|) (SPADLET |count| 6)) - ('T (SPADLET |count| (SIZE |PrincipalAncestor|)))) - (SPADLET |sigList| + ((NULL |PrincipalAncestor|) (setq |count| 6)) + ('T (setq |count| (SIZE |PrincipalAncestor|)))) + (setq |sigList| (PROG (G166221) - (SPADLET G166221 NIL) + (setq G166221 NIL) (RETURN (DO ((G166239 |sigList| (CDR G166239)) (|s| NIL)) @@ -287,20 +287,20 @@ of category object. (COND ((AND (CONSP |s|) (PROGN - (SPADLET |sig| + (setq |sig| (QCAR |s|)) - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |s|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) (COND ((PROG (G166245) - (SPADLET G166245 + (setq G166245 NIL) (RETURN (DO @@ -325,7 +325,7 @@ of category object. (AND (CONSP |x|) (PROGN - (SPADLET + (setq |ISTMP#1| (QCAR |x|)) (AND @@ -336,7 +336,7 @@ of category object. |ISTMP#1|) |sig|) (PROGN - (SPADLET + (setq |ISTMP#2| (QCDR |ISTMP#1|)) @@ -344,20 +344,20 @@ of category object. (CONSP |ISTMP#2|) (PROGN - (SPADLET + (setq |impl| (QCDR |ISTMP#2|)) 'T))))) (PROGN - (SPADLET + (setq |num| (QCDR |x|)) 'T))))))))) (CONS |sig| (CONS |pred| |impl|))) ('T - (SPADLET |num| + (setq |num| (COND ((BOOT-EQUAL |domainOrPackage| @@ -366,25 +366,25 @@ of category object. ('T (SPADDIFFERENCE |count| 5)))) - (SPADLET |nsig| + (setq |nsig| (|mkOperatorEntry| '|domain| |sig| |pred| |num|)) - (SPADLET |NSigList| + (setq |NSigList| (CONS (CONS |nsig| |count|) |NSigList|)) - (SPADLET |count| + (setq |count| (+ |count| 1)) |nsig|))) ('T |s|)) G166221)))))))) - (SPADLET |NewLocals| (|sigParams| |sigList|)) - (SPADLET |OldLocals| NIL) + (setq |NewLocals| (|sigParams| |sigList|)) + (setq |OldLocals| NIL) (COND (|PrincipalAncestor| (DO ((G166270 - (SPADLET |OldLocals| + (setq |OldLocals| (CADDR (ELT |PrincipalAncestor| 4))) (CDR G166270)) @@ -392,7 +392,7 @@ of category object. ((OR (ATOM G166270) (PROGN (SETQ |u| (CAR G166270)) NIL)) NIL) - (SEQ (EXIT (SPADLET |NewLocals| + (SEQ (EXIT (setq |NewLocals| (|delete| (CAR |u|) |NewLocals|))))))) (DO ((G166281 |NewLocals| (CDR G166281)) (|u| NIL)) @@ -400,11 +400,11 @@ of category object. (PROGN (SETQ |u| (CAR G166281)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |OldLocals| + (setq |OldLocals| (CONS (CONS |u| |count|) |OldLocals|)) - (SPADLET |count| (+ |count| 1)))))) - (SPADLET |v| (make-array |count|)) + (setq |count| (+ |count| 1)))))) + (setq |v| (make-array |count|)) (SETELT |v| 0 NIL) (SETELT |v| 1 |sigList|) (SETELT |v| 2 |attList|) @@ -431,8 +431,8 @@ of category object. (PROGN (SETQ G166199 (CAR G166298)) NIL) (PROGN (PROGN - (SPADLET |nsig| (CAR G166199)) - (SPADLET |sequence| (CDR G166199)) + (setq |nsig| (CAR G166199)) + (setq |sequence| (CDR G166199)) G166199) NIL)) NIL) @@ -454,9 +454,9 @@ of category object. (PROG (|op| |sig| |flag|) (RETURN (PROGN - (SPADLET |op| (CAR |opSig|)) - (SPADLET |sig| (CADR |opSig|)) - (SPADLET |flag| (CDDR |opSig|)) + (setq |op| (CAR |opSig|)) + (setq |sig| (CADR |opSig|)) + (setq |flag| (CDDR |opSig|)) (COND ((NEQUAL |domainOrPackage| '|domain|) (CONS |opSig| @@ -505,15 +505,15 @@ Subsumption code (for operators) (PROG (|sig| |pred| |implem| |ISTMP#1| |q|) (RETURN (PROGN - (SPADLET |sig| (CAR |a|)) - (SPADLET |pred| (CADR |a|)) - (SPADLET |implem| (CDDR |a|)) + (setq |sig| (CAR |a|)) + (setq |pred| (CADR |a|)) + (setq |implem| (CDDR |a|)) (COND ((AND (CONSP |implem|) (EQ (QCDR |implem|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |implem|)) + (setq |ISTMP#1| (QCAR |implem|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |q| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |q| (QCAR |ISTMP#1|)) 'T))) (OR (BOOT-EQUAL |q| 'ELT) (BOOT-EQUAL |q| 'CONST))) (COND ((BOOT-EQUAL |q| 'ELT) (CONS |sig| (CONS |pred| NIL))) @@ -586,9 +586,9 @@ Subsumption code (for operators) (PROGN (SETQ |o| (CAR G166422)) NIL) (PROGN (PROGN - (SPADLET |ofn| (CAAR |o|)) - (SPADLET |osig| (CADAR |o|)) - (SPADLET |opred| (CADR |o|)) + (setq |ofn| (CAAR |o|)) + (setq |osig| (CADAR |o|)) + (setq |opred| (CADR |o|)) |o|) NIL)) NIL) @@ -602,9 +602,9 @@ Subsumption code (for operators) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |xfn| (CAAR |x|)) - (SPADLET |xsig| (CADAR |x|)) - (SPADLET |xpred| (CADR |x|)) + (setq |xfn| (CAAR |x|)) + (setq |xsig| (CADAR |x|)) + (setq |xpred| (CADR |x|)) (COND ((AND (BOOT-EQUAL |xfn| |ofn|) @@ -612,26 +612,26 @@ Subsumption code (for operators) (COND ((BOOT-EQUAL |xpred| |opred|) - (SPADLET |extra| + (setq |extra| (|delete| |x| |extra|))) ((BOOT-EQUAL |opred| 'T) - (SPADLET |extra| + (setq |extra| (|delete| |x| |extra|))))) ((NULL (|MachineLevelSubsume| (QCAR |o|) (QCAR |x|))) "Source level subsumption not implemented") ('T - (SPADLET |extra| + (setq |extra| (|delete| |x| |extra|))))))))))) (DO ((G166463 |extra| (CDR G166463)) (|e| NIL)) ((OR (ATOM G166463) (PROGN (SETQ |e| (CAR G166463)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |esig| (CAR |e|)) - (SPADLET |epred| (CADR |e|)) - (SPADLET |eimplem| NIL) + (setq |esig| (CAR |e|)) + (setq |epred| (CADR |e|)) + (setq |eimplem| NIL) (DO ((G166485 (|SigListOpSubsume| |e| |original|) @@ -647,15 +647,15 @@ Subsumption code (for operators) ((NULL (|MachineLevelSubsume| (QCAR |e|) (QCAR |x|))) - (SPADLET |original| + (setq |original| (CONS |e| |original|)) (RETURN)) ('T - (SPADLET |original| + (setq |original| (|delete| |x| |original|)) - (SPADLET |xsig| (CAR |x|)) - (SPADLET |xpred| (CADR |x|)) - (SPADLET |ximplem| (CDDR |x|)) + (setq |xsig| (CAR |x|)) + (setq |xpred| (CADR |x|)) + (setq |ximplem| (CDDR |x|)) (COND ((OR (NEQUAL (CAR |xsig|) @@ -665,15 +665,15 @@ Subsumption code (for operators) (COND ((AND (CONSP |ximplem|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |ximplem|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Subsumed|)))) - (SPADLET |original| + (setq |original| (CONS |x| |original|))) ('T - (SPADLET |original| + (setq |original| (CONS (CONS |xsig| (CONS |xpred| @@ -683,41 +683,41 @@ Subsumption code (for operators) NIL))) |original|))))) ('T - (SPADLET |epred| + (setq |epred| (|mkOr| |epred| |xpred|)))) (COND ((NULL (AND (CONSP |ximplem|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |ximplem|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Subsumed|))))) - (SPADLET |eimplem| |ximplem|))) + (setq |eimplem| |ximplem|))) (COND (|eimplem| - (SPADLET |esig| + (setq |esig| (CONS (CAR |esig|) (CONS (CADR |esig|) NIL))))) - (SPADLET |e| + (setq |e| (CONS |esig| (CONS |epred| |eimplem|))) (COND ((AND (CONSP |ximplem|) (EQ (QCDR |ximplem|) NIL) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |ximplem|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |q| + (setq |q| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) @@ -725,7 +725,7 @@ Subsumption code (for operators) (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#3|)) 'T))))))) (INTEGERP |index|) @@ -734,7 +734,7 @@ Subsumption code (for operators) (SETELT |$NewCatVec| |index| |e|)) ('T NIL))))))) - (SPADLET |original| (CONS |e| |original|)))))) + (setq |original| (CONS |e| |original|)))))) |original|))))) \end{chunk} @@ -769,60 +769,60 @@ Subsumption code (for operators) ((BOOT-EQUAL |b| 'T) 'T) ((BOOT-EQUAL |b| |a|) |a|) ('T - (SPADLET |l| + (setq |l| (COND ((AND (CONSP |a|) (EQ (QCAR |a|) 'OR) - (PROGN (SPADLET |a'| (QCDR |a|)) 'T)) + (PROGN (setq |a'| (QCDR |a|)) 'T)) (COND ((AND (CONSP |b|) (EQ (QCAR |b|) 'OR) - (PROGN (SPADLET |b'| (QCDR |b|)) 'T)) + (PROGN (setq |b'| (QCDR |b|)) 'T)) (|union| |a'| |b'|)) ('T (|mkOr2| |b| |a'|)))) ((AND (CONSP |b|) (EQ (QCAR |b|) 'OR) - (PROGN (SPADLET |b'| (QCDR |b|)) 'T)) + (PROGN (setq |b'| (QCDR |b|)) 'T)) (|mkOr2| |a| |b'|)) ((AND (CONSP |a|) (EQ (QCAR |a|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |avar| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |avar| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |acat| (QCAR |ISTMP#2|)) + (setq |acat| (QCAR |ISTMP#2|)) 'T))))) (CONSP |b|) (EQ (QCAR |b|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |b|)) + (setq |ISTMP#1| (QCDR |b|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |avar|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |bcat| (QCAR |ISTMP#2|)) + (setq |bcat| (QCAR |ISTMP#2|)) 'T)))))) (COND ((|DescendantP| |acat| |bcat|) (LIST |b|)) ((|DescendantP| |bcat| |acat|) (LIST |a|)) ('T (CONS |a| (CONS |b| NIL))))) ((AND (CONSP |a|) (EQ (QCAR |a|) 'AND) - (PROGN (SPADLET |a'| (QCDR |a|)) 'T) + (PROGN (setq |a'| (QCDR |a|)) 'T) (|member| |b| |a'|)) (LIST |b|)) ((AND (CONSP |b|) (EQ (QCAR |b|) 'AND) - (PROGN (SPADLET |b'| (QCDR |b|)) 'T) + (PROGN (setq |b'| (QCDR |b|)) 'T) (|member| |a| |b'|)) (LIST |a|)) ((AND (CONSP |a|) (EQ (QCAR |a|) '|and|) - (PROGN (SPADLET |a'| (QCDR |a|)) 'T) + (PROGN (setq |a'| (QCDR |a|)) 'T) (|member| |b| |a'|)) (LIST |b|)) ((AND (CONSP |b|) (EQ (QCAR |b|) '|and|) - (PROGN (SPADLET |b'| (QCDR |b|)) 'T) + (PROGN (setq |b'| (QCDR |b|)) 'T) (|member| |a| |b'|)) (LIST |a|)) ('T (CONS |a| (CONS |b| NIL))))) @@ -851,17 +851,17 @@ Subsumption code (for operators) ((|member| |a| |b|) |b|) ((AND (CONSP |a|) (EQ (QCAR |a|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |avar| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |avar| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |acat| (QCAR |ISTMP#2|)) + (setq |acat| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |aRedundant| NIL) + (setq |aRedundant| NIL) (DO ((G166606 |b| (CDR G166606)) (|c| NIL)) ((OR (ATOM G166606) (PROGN (SETQ |c| (CAR G166606)) NIL)) @@ -869,23 +869,23 @@ Subsumption code (for operators) (SEQ (EXIT (COND ((AND (CONSP |c|) (EQ (QCAR |c|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |c|)) + (setq |ISTMP#1| (QCDR |c|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |avar|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ccat| + (setq |ccat| (QCAR |ISTMP#2|)) 'T)))))) (COND ((|DescendantP| |acat| |ccat|) - (RETURN (SPADLET |aRedundant| 'T))) + (RETURN (setq |aRedundant| 'T))) ((|DescendantP| |ccat| |acat|) - (SPADLET |b| (|delete| |c| |b|))) + (setq |b| (|delete| |c| |b|))) ('T NIL))))))) (COND (|aRedundant| |b|) ('T (CONS |a| |b|)))) ('T (CONS |a| |b|))))))) @@ -918,41 +918,41 @@ Subsumption code (for operators) ((BOOT-EQUAL |b| 'T) |a|) ((BOOT-EQUAL |b| |a|) |a|) ('T - (SPADLET |l| + (setq |l| (COND ((AND (CONSP |a|) (EQ (QCAR |a|) 'AND) - (PROGN (SPADLET |a'| (QCDR |a|)) 'T)) + (PROGN (setq |a'| (QCDR |a|)) 'T)) (COND ((AND (CONSP |b|) (EQ (QCAR |b|) 'AND) - (PROGN (SPADLET |b'| (QCDR |b|)) 'T)) + (PROGN (setq |b'| (QCDR |b|)) 'T)) (|union| |a'| |b'|)) ('T (|mkAnd2| |b| |a'|)))) ((AND (CONSP |b|) (EQ (QCAR |b|) 'AND) - (PROGN (SPADLET |b'| (QCDR |b|)) 'T)) + (PROGN (setq |b'| (QCDR |b|)) 'T)) (|mkAnd2| |a| |b'|)) ((AND (CONSP |a|) (EQ (QCAR |a|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |avar| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |avar| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |acat| (QCAR |ISTMP#2|)) + (setq |acat| (QCAR |ISTMP#2|)) 'T))))) (CONSP |b|) (EQ (QCAR |b|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |b|)) + (setq |ISTMP#1| (QCDR |b|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |avar|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |bcat| (QCAR |ISTMP#2|)) + (setq |bcat| (QCAR |ISTMP#2|)) 'T)))))) (COND ((|DescendantP| |acat| |bcat|) (LIST |a|)) @@ -984,17 +984,17 @@ Subsumption code (for operators) ((|member| |a| |b|) |b|) ((AND (CONSP |a|) (EQ (QCAR |a|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |avar| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |avar| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |acat| (QCAR |ISTMP#2|)) + (setq |acat| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |aRedundant| NIL) + (setq |aRedundant| NIL) (DO ((G166702 |b| (CDR G166702)) (|c| NIL)) ((OR (ATOM G166702) (PROGN (SETQ |c| (CAR G166702)) NIL)) @@ -1002,23 +1002,23 @@ Subsumption code (for operators) (SEQ (EXIT (COND ((AND (CONSP |c|) (EQ (QCAR |c|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |c|)) + (setq |ISTMP#1| (QCDR |c|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |avar|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ccat| + (setq |ccat| (QCAR |ISTMP#2|)) 'T)))))) (COND ((|DescendantP| |ccat| |acat|) - (RETURN (SPADLET |aRedundant| 'T))) + (RETURN (setq |aRedundant| 'T))) ((|DescendantP| |acat| |ccat|) - (SPADLET |b| (|delete| |c| |b|))) + (setq |b| (|delete| |c| |b|))) ('T NIL))))))) (COND (|aRedundant| |b|) ('T (CONS |a| |b|)))) ('T (CONS |a| |b|))))))) @@ -1048,10 +1048,10 @@ Subsumption code (for operators) (PROG (|sig2| |pred2| |sig1| |pred1|) (RETURN (PROGN - (SPADLET |sig2| (CAR G166734)) - (SPADLET |pred2| (CADR G166734)) - (SPADLET |sig1| (CAR G166725)) - (SPADLET |pred1| (CADR G166725)) + (setq |sig2| (CAR G166734)) + (setq |pred2| (CADR G166734)) + (setq |sig1| (CAR G166725)) + (setq |pred1| (CADR G166725)) (AND (BOOT-EQUAL |sig1| |sig2|) (|PredImplies| |pred2| |pred1|)))))) @@ -1087,17 +1087,17 @@ Subsumption code (for operators) (PROG (|name1| |sig1| |lsig1| |name2| |sig2| |ans|) (RETURN (SEQ (PROGN - (SPADLET |name1| (CAAR G166762)) - (SPADLET |sig1| (CADAR G166762)) - (SPADLET |lsig1| (LENGTH |sig1|)) - (SPADLET |ans| NIL) + (setq |name1| (CAAR G166762)) + (setq |sig1| (CADAR G166762)) + (setq |lsig1| (LENGTH |sig1|)) + (setq |ans| NIL) (SEQ (DO ((G166778 LIST (CDR G166778)) (|n| NIL)) ((OR (ATOM G166778) (PROGN (SETQ |n| (CAR G166778)) NIL) (PROGN (PROGN - (SPADLET |name2| (CAAR |n|)) - (SPADLET |sig2| (CADAR |n|)) + (setq |name2| (CAAR |n|)) + (setq |sig2| (CADAR |n|)) |n|) NIL)) NIL) @@ -1106,7 +1106,7 @@ Subsumption code (for operators) (EQ |lsig1| (LENGTH |sig2|)) (|SourceLevelSubsume| |sig1| |sig2|)) - (EXIT (SPADLET |ans| + (EXIT (setq |ans| (CONS |n| |ans|)))))))) (RETURN |ans|))))))) @@ -1121,14 +1121,14 @@ Subsumption code (for operators) (PROG (|name2| |sig2| |flag2| |pred2| |name1| |sig1| |flag1| |pred1|) (RETURN (PROGN - (SPADLET |name2| (CAAR G166808)) - (SPADLET |sig2| (CADAR G166808)) - (SPADLET |flag2| (CDDAR G166808)) - (SPADLET |pred2| (CADR G166808)) - (SPADLET |name1| (CAAR G166795)) - (SPADLET |sig1| (CADAR G166795)) - (SPADLET |flag1| (CDDAR G166795)) - (SPADLET |pred1| (CADR G166795)) + (setq |name2| (CAAR G166808)) + (setq |sig2| (CADAR G166808)) + (setq |flag2| (CDDAR G166808)) + (setq |pred2| (CADR G166808)) + (setq |name1| (CAAR G166795)) + (setq |sig1| (CADAR G166795)) + (setq |flag1| (CDDAR G166795)) + (setq |pred1| (CADR G166795)) (AND (BOOT-EQUAL |name1| |name2|) (BOOT-EQUAL (LENGTH |sig1|) (LENGTH |sig2|)) (|SourceLevelSubsume| |sig1| |sig2|)))))) @@ -1146,13 +1146,13 @@ Subsumption code (for operators) (PROG (|out2| |in2| |out1| |in1|) (RETURN (SEQ (PROGN - (SPADLET |out2| (CAR G166847)) - (SPADLET |in2| (CDR G166847)) - (SPADLET |out1| (CAR G166838)) - (SPADLET |in1| (CDR G166838)) + (setq |out2| (CAR G166847)) + (setq |in2| (CDR G166847)) + (setq |out1| (CAR G166838)) + (setq |in1| (CDR G166838)) (AND (|SourceLevelSubset| |out1| |out2|) (PROG (G166860) - (SPADLET G166860 'T) + (setq G166860 'T) (RETURN (DO ((G166867 NIL (NULL G166860)) (G166868 |in1| (CDR G166868)) @@ -1194,14 +1194,14 @@ Subsumption code (for operators) ((BOOT-EQUAL |a| |b|) 'T) ((BOOT-EQUAL |$noSubsumption| 'T) NIL) ((AND (CONSP |b|) (EQ (QCAR |b|) '|Union|) - (PROGN (SPADLET |blist| (QCDR |b|)) 'T) + (PROGN (setq |blist| (QCDR |b|)) 'T) (|member| |a| |blist|)) 'T) ((AND (BOUNDP '|$noSubsets|) |$noSubsets|) NIL) ((AND (ATOM |b|) (|assoc| |a| (GETL |b| '|Subsets|))) 'T) ((AND (CONSP |a|) (EQ (QCDR |a|) NIL) - (PROGN (SPADLET |a1| (QCAR |a|)) 'T) (CONSP |b|) - (EQ (QCDR |b|) NIL) (PROGN (SPADLET |b1| (QCAR |b|)) 'T) + (PROGN (setq |a1| (QCAR |a|)) 'T) (CONSP |b|) + (EQ (QCDR |b|) NIL) (PROGN (setq |b1| (QCAR |b|)) 'T) (|assoc| |a1| (GETL |b1| '|Subsets|))) 'T) ('T NIL))))) @@ -1221,18 +1221,18 @@ Subsumption code (for operators) (PROG (|name2| |out2| |in2| |flag2| |name1| |out1| |in1| |flag1|) (RETURN (SEQ (PROGN - (SPADLET |name2| (CAR G166907)) - (SPADLET |out2| (CAADR G166907)) - (SPADLET |in2| (CDADR G166907)) - (SPADLET |flag2| (CDDR G166907)) - (SPADLET |name1| (CAR G166894)) - (SPADLET |out1| (CAADR G166894)) - (SPADLET |in1| (CDADR G166894)) - (SPADLET |flag1| (CDDR G166894)) + (setq |name2| (CAR G166907)) + (setq |out2| (CAADR G166907)) + (setq |in2| (CDADR G166907)) + (setq |flag2| (CDDR G166907)) + (setq |name1| (CAR G166894)) + (setq |out1| (CAADR G166894)) + (setq |in1| (CDADR G166894)) + (setq |flag1| (CDDR G166894)) (AND (BOOT-EQUAL |name1| |name2|) (|MachineLevelSubset| |out1| |out2|) (PROG (G166926) - (SPADLET G166926 'T) + (setq G166926 'T) (RETURN (DO ((G166933 NIL (NULL G166926)) (G166934 |in1| (CDR G166934)) @@ -1273,10 +1273,10 @@ Subsumption code (for operators) (SEQ (COND ((BOOT-EQUAL |a| |b|) 'T) ((AND (CONSP |b|) (EQ (QCAR |b|) '|Union|) - (PROGN (SPADLET |blist| (QCDR |b|)) 'T) + (PROGN (setq |blist| (QCDR |b|)) 'T) (|member| |a| |blist|) (PROG (G166958) - (SPADLET G166958 'T) + (setq G166958 'T) (RETURN (DO ((G166965 NIL (NULL G166958)) (G166966 |blist| (CDR G166966)) @@ -1291,9 +1291,9 @@ Subsumption code (for operators) 'T) ((AND (ATOM |b|) (|assoc| |a| (GETL |b| '|Subsets|))) 'T) ((AND (CONSP |a|) (EQ (QCDR |a|) NIL) - (PROGN (SPADLET |a1| (QCAR |a|)) 'T) (CONSP |b|) + (PROGN (setq |a1| (QCAR |a|)) 'T) (CONSP |b|) (EQ (QCDR |b|) NIL) - (PROGN (SPADLET |b1| (QCAR |b|)) 'T) + (PROGN (setq |b1| (QCAR |b|)) 'T) (|assoc| |a1| (GETL |b1| '|Subsets|))) 'T) ('T NIL)))))) @@ -1333,13 +1333,13 @@ Ancestor chasing code (RETURN (SEQ (COND ((NULL |l|) NIL) - ('T (SPADLET |f1| (|CatEval| (CAAR |l|))) + ('T (setq |f1| (|CatEval| (CAAR |l|))) (COND ((NULL (ELT |f1| 0)) (|FindFundAncs| (CDR |l|))) - ('T (SPADLET |ans| (|FindFundAncs| (CDR |l|))) + ('T (setq |ans| (|FindFundAncs| (CDR |l|))) (DO ((G166986 (|FindFundAncs| (PROG (G166996) - (SPADLET G166996 NIL) + (setq G166996 NIL) (RETURN (DO ((G167001 @@ -1369,8 +1369,8 @@ Ancestor chasing code (PROGN (SETQ |u| (CAR G166986)) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |x| (ASSQ (CAR |u|) |ans|)) - (SPADLET |ans| + ((setq |x| (ASSQ (CAR |u|) |ans|)) + (setq |ans| (CONS (CONS (CAR |u|) (CONS @@ -1378,9 +1378,9 @@ Ancestor chasing code (CADR |u|)) NIL)) (|delete| |x| |ans|)))) - ('T (SPADLET |ans| (CONS |u| |ans|))))))) + ('T (setq |ans| (CONS |u| |ans|))))))) (COND - ((SPADLET |x| (ASSQ (CAAR |l|) |ans|)) + ((setq |x| (ASSQ (CAAR |l|) |ans|)) (CONS (CONS (CAAR |l|) (CONS (|mkOr| (CADAR |l|) (CADR |x|)) NIL)) @@ -1392,9 +1392,9 @@ Ancestor chasing code (PROGN (SETQ |x| (CAR G167010)) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |y| + ((setq |y| (ASSQ (|CatEval| |x|) |ans|)) - (SPADLET |ans| + (setq |ans| (|delete| |y| |ans|))) ('T NIL))))) (CONS (CAR |l|) |ans|)) @@ -1405,9 +1405,9 @@ Ancestor chasing code (PROGN (SETQ |x| (CAR G167019)) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |y| + ((setq |y| (ASSQ (|CatEval| |x|) |ans|)) - (SPADLET |ans| + (setq |ans| (CONS (CONS (CAR |y|) (CONS @@ -1478,8 +1478,8 @@ Ancestor chasing code (PROGN (SETQ |u| (CAR G167064)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |u'| (CAR |u|)) - (SPADLET |ucond| + (setq |u'| (CAR |u|)) + (setq |ucond| (COND ((NULL (CDR |u|)) 'T) ('T (CAR (CDR |u|))))) @@ -1514,23 +1514,23 @@ Ancestor chasing code ((BOOT-EQUAL |a| |b|) 'T) ((AND (CONSP |a|) (EQ (QCAR |a|) 'ATTRIBUTE)) NIL) ((AND (CONSP |a|) (EQ (QCAR |a|) 'SIGNATURE)) NIL) - ('T (SPADLET |a| (|CatEval| |a|)) + ('T (setq |a| (|CatEval| |a|)) (SEQ (COND ((AND (CONSP |b|) (EQ (QCAR |b|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |b|)) + (setq |ISTMP#1| (QCDR |b|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |b'| (QCAR |ISTMP#1|)) + (setq |b'| (QCAR |ISTMP#1|)) 'T)))) (COND - ((SPADLET |l| (|assoc| |b'| (ELT |a| 2))) + ((setq |l| (|assoc| |b'| (ELT |a| 2))) (EXIT (|TruthP| (CADR |l|)))))) ((|member| |b| (CAR (ELT |a| 4))) 'T) ((|AncestorP| |b| (PROG (G167084) - (SPADLET G167084 NIL) + (setq G167084 NIL) (RETURN (DO ((G167089 (CADR (ELT |a| 4)) (CDR G167089)) @@ -1762,9 +1762,9 @@ copy. (PROG (|sig| |oldpred| |implem|) (RETURN (SEQ (PROGN - (SPADLET |sig| (CAR |op|)) - (SPADLET |oldpred| (CADR |op|)) - (SPADLET |implem| (CDDR |op|)) + (setq |sig| (CAR |op|)) + (setq |oldpred| (CADR |op|)) + (setq |implem| (CDDR |op|)) |op| (SEQ (IF (BOOT-EQUAL |newpred| 'T) (EXIT |op|)) (IF (BOOT-EQUAL |oldpred| 'T) @@ -1787,8 +1787,8 @@ copy. (DECLARE (SPECIAL |$NewCatVec| |$Information| |$Attributes|)) (RETURN (SEQ (PROGN - (SPADLET |$NewCatVec| NIL) - (SPADLET |CondList| NIL) + (setq |$NewCatVec| NIL) + (setq |CondList| NIL) (DO ((G167173 |l| (CDR G167173)) (|u| NIL)) ((OR (ATOM G167173) (PROGN (SETQ |u| (CAR G167173)) NIL)) @@ -1801,10 +1801,10 @@ copy. NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |at2| (CAR |at|)) + (setq |at2| (CAR |at|)) (COND ((ATOM |at2|) - (SPADLET |at2| + (setq |at2| (CONS |at2| NIL)))) (COND ((member (QCAR |at2|) @@ -1813,18 +1813,18 @@ copy. ((NULL (|isCategoryForm| |at2| |$e|)) - (SPADLET |$Attributes| + (setq |$Attributes| (CONS (QCAR |at2|) |$Attributes|)) NIL) ('T - (SPADLET |pred| + (setq |pred| (CAR (CDR |at|))) (COND ((|member| |pred| (|get| '|$Information| 'special |$e|)) - (SPADLET |l| + (setq |l| (APPEND |l| (CONS (|CatEval| |at2|) @@ -1833,16 +1833,16 @@ copy. (AND (CONSP |pred|) (EQ (QCAR |pred|) '|and|))) - (SPADLET |CondList| + (setq |CondList| (CONS (CONS (|CatEval| |at2|) (CONS |pred| NIL)) |CondList|))) ('T - (SPADLET |pred'| + (setq |pred'| (PROG (G167196) - (SPADLET G167196 + (setq G167196 NIL) (RETURN (DO @@ -1879,21 +1879,21 @@ copy. G167196)))))))))) (COND ((NULL |pred'|) - (SPADLET |l| + (setq |l| (APPEND |l| (CONS (|CatEval| |at2|) NIL)))) ((EQL (LENGTH |pred'|) 1) - (SPADLET |CondList| + (setq |CondList| (CONS (CONS (|CatEval| |at2|) (CONS |pred'| NIL)) |CondList|))) ('T - (SPADLET |CondList| + (setq |CondList| (CONS (CONS (|CatEval| |at2|) @@ -1902,13 +1902,13 @@ copy. |pred'|) NIL)) |CondList|))))))))))))))) - (SPADLET |LETTMP#1| |l|) - (SPADLET |$NewCatVec| (CAR |LETTMP#1|)) - (SPADLET |l| (CDR |LETTMP#1|)) - (SPADLET |l'| + (setq |LETTMP#1| |l|) + (setq |$NewCatVec| (CAR |LETTMP#1|)) + (setq |l| (CDR |LETTMP#1|)) + (setq |l'| (APPEND |CondList| (PROG (G167212) - (SPADLET G167212 NIL) + (setq G167212 NIL) (RETURN (DO ((G167217 |l| (CDR G167217)) (|u| NIL)) @@ -1922,41 +1922,41 @@ copy. (SETQ G167212 (CONS (CONS |u| (CONS 'T NIL)) G167212))))))))) - (SPADLET |sigl| (ELT |$NewCatVec| 1)) - (SPADLET |attl| (ELT |$NewCatVec| 2)) - (SPADLET |globalDomains| (ELT |$NewCatVec| 5)) - (SPADLET |FundamentalAncestors| + (setq |sigl| (ELT |$NewCatVec| 1)) + (setq |attl| (ELT |$NewCatVec| 2)) + (setq |globalDomains| (ELT |$NewCatVec| 5)) + (setq |FundamentalAncestors| (CADR (ELT |$NewCatVec| 4))) (COND ((ELT |$NewCatVec| 0) - (SPADLET |FundamentalAncestors| + (setq |FundamentalAncestors| (CONS (CONS (ELT |$NewCatVec| 0) NIL) |FundamentalAncestors|)))) - (SPADLET |copied| NIL) - (SPADLET |originalVector| 'T) - (SPADLET |originalVector| NIL) + (setq |copied| NIL) + (setq |originalVector| 'T) + (setq |originalVector| NIL) (DO ((G167229 (|FindFundAncs| |l'|) (CDR G167229)) (G167138 NIL)) ((OR (ATOM G167229) (PROGN (SETQ G167138 (CAR G167229)) NIL) (PROGN (PROGN - (SPADLET |b| (CAR G167138)) - (SPADLET |condition| (CADR G167138)) + (setq |b| (CAR G167138)) + (setq |condition| (CADR G167138)) G167138) NIL)) NIL) (SEQ (EXIT (COND ((NULL (NULL (ELT |b| 0))) - (SPADLET |bname| (ELT |b| 0)) + (setq |bname| (ELT |b| 0)) (COND ((|CondAncestorP| |bname| |FundamentalAncestors| |condition|) NIL) - ((SPADLET |f| + ((setq |f| (|AncestorP| |bname| (PROG (G167240) - (SPADLET G167240 NIL) + (setq G167240 NIL) (RETURN (DO ((G167245 @@ -1974,21 +1974,21 @@ copy. (SETQ G167240 (CONS (CAR |u|) G167240))))))))) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|assoc| |f| |FundamentalAncestors|)) - (SPADLET |index| (CADDR |LETTMP#1|)) - (SPADLET |FundamentalAncestors| + (setq |index| (CADDR |LETTMP#1|)) + (setq |FundamentalAncestors| (CONS (CONS |bname| (CONS |condition| (CONS |index| NIL))) |FundamentalAncestors|))) ('T - (SPADLET |PrinAncb| + (setq |PrinAncb| (CAR (ELT (|CatEval| |bname|) 4))) - (SPADLET |reallynew| 'T) + (setq |reallynew| 'T) (DO ((G167256 |FundamentalAncestors| (CDR G167256)) (|anc| NIL)) @@ -2003,16 +2003,16 @@ copy. |PrinAncb|) (COND ((CDR |anc|) - (SPADLET |anccond| + (setq |anccond| (CADR |anc|)) - (SPADLET |ancindex| + (setq |ancindex| (CADDR |anc|))) - ('T (SPADLET |anccond| 'T) - (SPADLET |ancindex| NIL))) + ('T (setq |anccond| 'T) + (setq |ancindex| NIL))) (COND ((|PredImplies| |condition| |anccond|) - (SPADLET + (setq |FundamentalAncestors| (CONS (CONS |bname| @@ -2026,7 +2026,7 @@ copy. |anccond| |condition|) 'T)) - (SPADLET |newentry| + (setq |newentry| (CONS |bname| (CONS |condition| (CONS |ancindex| NIL)))) @@ -2034,50 +2034,50 @@ copy. ((NULL (|member| |newentry| |FundamentalAncestors|)) - (SPADLET + (setq |FundamentalAncestors| (CONS |newentry| |FundamentalAncestors|))) ('T NIL))) ('T - (SPADLET |ancindex| NIL))) + (setq |ancindex| NIL))) (COND ((NULL |copied|) - (SPADLET |$NewCatVec| + (setq |$NewCatVec| (COPY-SEQ |$NewCatVec|)) - (SPADLET |copied| 'T))) + (setq |copied| 'T))) (COND (|ancindex| (SETELT |$NewCatVec| |ancindex| |bname|) - (SPADLET |reallynew| NIL)) + (setq |reallynew| NIL)) ((AND |originalVector| (BOOT-EQUAL |condition| 'T)) - (SPADLET |$NewCatVec| + (setq |$NewCatVec| (|CatEval| |bname|)) - (SPADLET |copied| NIL) - (SPADLET + (setq |copied| NIL) + (setq |FundamentalAncestors| (CONS (CONS |bname| NIL) (CADR (ELT |$NewCatVec| 4)))) - (SPADLET |reallynew| NIL) + (setq |reallynew| NIL) (COND ((member |b| |l|) - (SPADLET |sigl| + (setq |sigl| (ELT |$NewCatVec| 1)) - (SPADLET |attl| + (setq |attl| (ELT |$NewCatVec| 2)) - (SPADLET |l| + (setq |l| (|delete| |b| |l|))) ('T - (SPADLET |bCond| + (setq |bCond| (ASSQ |b| |CondList|)) - (SPADLET |CondList| + (setq |CondList| (|delete| |bCond| |CondList|)) - (SPADLET + (setq |globalDomains| (ELT |$NewCatVec| 5)) (DO @@ -2098,16 +2098,16 @@ copy. ((NULL (|member| |u| |sigl|)) - (SPADLET |s| + (setq |s| (CAR |u|)) - (SPADLET |c| + (setq |c| (CADR |u|)) - (SPADLET |i| + (setq |i| (CADDR |u|)) (COND ((BOOT-EQUAL |c| 'T) - (SPADLET + (setq |sigl| (CONS (CONS |s| @@ -2118,7 +2118,7 @@ copy. NIL))) |sigl|))) ('T - (SPADLET + (setq |sigl| (CONS (CONS |s| @@ -2153,14 +2153,14 @@ copy. ((NULL (|member| |u| |attl|)) - (SPADLET |a| + (setq |a| (CAR |u|)) - (SPADLET |c| + (setq |c| (CADR |u|)) (COND ((BOOT-EQUAL |c| 'T) - (SPADLET + (setq |attl| (CONS (CONS |a| @@ -2169,7 +2169,7 @@ copy. NIL)) |attl|))) ('T - (SPADLET + (setq |attl| (CONS (CONS |a| @@ -2188,34 +2188,34 @@ copy. ('T NIL))))) (COND (|reallynew| - (SPADLET |n| (SIZE |$NewCatVec|)) - (SPADLET |FundamentalAncestors| + (setq |n| (SIZE |$NewCatVec|)) + (setq |FundamentalAncestors| (CONS (CONS (ELT |b| 0) (CONS |condition| (CONS |n| NIL))) |FundamentalAncestors|)) - (SPADLET |$NewCatVec| + (setq |$NewCatVec| (LENGTHENVEC |$NewCatVec| (+ |n| 1))) - (SPADLET |copied| NIL) - (SPADLET |originalvector| NIL) + (setq |copied| NIL) + (setq |originalvector| NIL) (SETELT |$NewCatVec| |n| (ELT |b| 0))) ('T NIL))))) ('T NIL))))) (COND ((NULL |copied|) - (SPADLET |$NewCatVec| (COPY-SEQ |$NewCatVec|)))) + (setq |$NewCatVec| (COPY-SEQ |$NewCatVec|)))) (DO ((G167286 |l| (CDR G167286)) (|b| NIL)) ((OR (ATOM G167286) (PROGN (SETQ |b| (CAR G167286)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |sigl| + (setq |sigl| (|SigListUnion| (PROG (G167296) - (SPADLET G167296 NIL) + (setq G167296 NIL) (RETURN (DO ((G167301 (ELT |b| 1) @@ -2235,14 +2235,14 @@ copy. |u|) G167296))))))) |sigl|)) - (SPADLET |attl| + (setq |attl| (COND ((member |attl| (ELT |b| 2)) (ELT |b| 2)) ((member (ELT |b| 2) |attl|) |attl|) ('T (S+ (ELT |b| 2) |attl|)))) - (SPADLET |globalDomains| + (setq |globalDomains| (APPEND |globalDomains| (S- (ELT |b| 5) |globalDomains|))))))) (DO ((G167315 |CondList| (CDR G167315)) (|b| NIL)) @@ -2250,7 +2250,7 @@ copy. (PROGN (SETQ |b| (CAR G167315)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |newpred| (CAR (CDR |b|))) + (setq |newpred| (CAR (CDR |b|))) (DO ((G167326 (ELT (CAR |b|) 2) (CDR G167326)) (|u| NIL)) @@ -2261,11 +2261,11 @@ copy. NIL) (SEQ (EXIT (PROGN - (SPADLET |v| + (setq |v| (|assoc| (CAR |u|) |attl|)) (COND ((NULL |v|) - (SPADLET |attl| + (setq |attl| (COND ((BOOT-EQUAL (CADR |u|) 'T) (CONS @@ -2284,9 +2284,9 @@ copy. ((BOOT-EQUAL (CADR |v|) 'T) NIL) ('T - (SPADLET |attl| + (setq |attl| (|delete| |v| |attl|)) - (SPADLET |attl| + (setq |attl| (COND ((BOOT-EQUAL (CADR |u|) 'T) (CONS @@ -2305,10 +2305,10 @@ copy. (CADR |u|))) NIL)) |attl|)))))))))) - (SPADLET |sigl| + (setq |sigl| (|SigListUnion| (PROG (G167336) - (SPADLET G167336 NIL) + (setq G167336 NIL) (RETURN (DO ((G167341 @@ -2331,9 +2331,9 @@ copy. |newpred|) G167336))))))) |sigl|)))))) - (SPADLET |FundamentalAncestors| + (setq |FundamentalAncestors| (PROG (G167352) - (SPADLET G167352 NIL) + (setq G167352 NIL) (RETURN (DO ((G167358 |FundamentalAncestors| (CDR G167358)) @@ -2347,11 +2347,11 @@ copy. ((CDR |x|) (SETQ G167352 (CONS |x| G167352)))))))))) - (SPADLET |c| (CAR (ELT |$NewCatVec| 4))) - (SPADLET |pName| (ELT |$NewCatVec| 0)) + (setq |c| (CAR (ELT |$NewCatVec| 4))) + (setq |pName| (ELT |$NewCatVec| 0)) (COND ((AND |pName| (NULL (|member| |pName| |c|))) - (SPADLET |c| (CONS |pName| |c|)))) + (setq |c| (CONS |pName| |c|)))) (SETELT |$NewCatVec| 4 (CONS |c| (CONS |FundamentalAncestors| @@ -2371,11 +2371,11 @@ copy. (PROG (|name| |u|) (RETURN (SEQ (COND - ((AND (CONSP |x|) (PROGN (SPADLET |name| (QCAR |x|)) 'T)) + ((AND (CONSP |x|) (PROGN (setq |name| (QCAR |x|)) 'T)) (|categoryForm?| |name|)) ((ATOM |x|) (COND - ((SPADLET |u| (|get| |x| '|macro| |e|)) + ((setq |u| (|get| |x| '|macro| |e|)) (EXIT (|isCategoryForm| |u| |e|)))))))))) \end{chunk} diff --git a/src/interp/cattable.lisp.pamphlet b/src/interp/cattable.lisp.pamphlet index 242cc71..17162a9 100644 --- a/src/interp/cattable.lisp.pamphlet +++ b/src/interp/cattable.lisp.pamphlet @@ -26,7 +26,7 @@ (declare (special *HASCATEGORY-HASH*)) (RETURN (SEQ (PROG (G166069) - (SPADLET G166069 NIL) + (setq G166069 NIL) (RETURN (DO ((G166076 (HKEYS *HASCATEGORY-HASH*) (CDR G166076)) @@ -35,14 +35,14 @@ (PROGN (SETQ |key| (CAR G166076)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR |key|)) - (SPADLET |b| (CDR |key|)) + (setq |a| (CAR |key|)) + (setq |b| (CDR |key|)) |key|) NIL)) (NREVERSE0 G166069)) (SEQ (EXIT (COND ((AND (BOOT-EQUAL |a| |con|) - (SPADLET |val| + (setq |val| (HGET *HASCATEGORY-HASH* |key|))) (SETQ G166069 (CONS (CONS |b| |val|) G166069))))))))))))) @@ -62,7 +62,7 @@ (declare (special |$ct| *HASCATEGORY-HASH*)) (RETURN (SEQ (PROGN - (SPADLET |conList| (IFCAR |options|)) + (setq |conList| (IFCAR |options|)) (SETQ |$ct| (MAKE-HASHTABLE 'ID)) (DO ((G166099 (HKEYS *HASCATEGORY-HASH*) (CDR G166099)) @@ -71,8 +71,8 @@ (PROGN (SETQ |key| (CAR G166099)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR |key|)) - (SPADLET |b| (CDR |key|)) + (setq |a| (CAR |key|)) + (setq |b| (CDR |key|)) |key|) NIL)) NIL) @@ -123,9 +123,9 @@ (SETQ *ANCESTORS-HASH* (MAKE-HASHTABLE 'ID)) (SETQ *HASCATEGORY-HASH* (MAKE-HASHTABLE 'UEQUAL)) (|genTempCategoryTable|) - (SPADLET |domainList| + (setq |domainList| (PROG (G166139) - (SPADLET G166139 NIL) + (setq G166139 NIL) (RETURN (DO ((G166145 (|allConstructors|) (CDR G166145)) @@ -142,9 +142,9 @@ '|domain|) (SETQ G166139 (CONS |con| G166139)))))))))) - (SPADLET |domainTable| + (setq |domainTable| (PROG (G166156) - (SPADLET G166156 NIL) + (setq G166156 NIL) (RETURN (DO ((G166162 |domainList| (CDR G166162)) (|con| NIL)) @@ -154,7 +154,7 @@ NIL)) (NREVERSE0 G166156)) (SEQ (EXIT (COND - ((SPADLET |catl| + ((setq |catl| (GETDATABASE |con| 'CONSTRUCTORCATEGORY)) (SETQ G166156 @@ -162,12 +162,12 @@ (|addDomainToTable| |con| (|getConstrCat| |catl|)) G166156)))))))))) - (SPADLET |specialDs| + (setq |specialDs| (SETDIFFERENCE |$nonLisplibDomains| |$noCategoryDomains|)) - (SPADLET |domainTable| + (setq |domainTable| (APPEND (PROG (G166172) - (SPADLET G166172 NIL) + (setq G166172 NIL) (RETURN (DO ((G166177 |specialDs| (CDR G166177)) @@ -193,8 +193,8 @@ (PROGN (SETQ G166129 (CAR G166190)) NIL) (PROGN (PROGN - (SPADLET |id| (CAR G166129)) - (SPADLET |entry| (CDR G166129)) + (setq |id| (CAR G166129)) + (setq |entry| (CDR G166129)) G166129) NIL)) NIL) @@ -208,8 +208,8 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G166125)) - (SPADLET |b| (CDR G166125)) + (setq |a| (CAR G166125)) + (setq |b| (CDR G166125)) G166125) NIL)) NIL) @@ -242,8 +242,8 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR |u|)) - (SPADLET |b| (CDR |u|)) + (setq |a| (CAR |u|)) + (setq |b| (CDR |u|)) |u|) NIL)) NIL) @@ -272,19 +272,19 @@ (PROGN (SETQ |key| (CAR G166277)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |entry| + (setq |entry| (HGET *HASCATEGORY-HASH* |key|)) (COND ((NULL |entry|) (HREM *HASCATEGORY-HASH* |key|)) ('T - (SPADLET |change| + (setq |change| (COND ((ATOM (|opOf| |entry|)) (|simpHasPred| |entry|)) ('T (PROG (G166289) - (SPADLET G166289 NIL) + (setq G166289 NIL) (RETURN (DO ((G166296 |entry| @@ -297,9 +297,9 @@ NIL) (PROGN (PROGN - (SPADLET |x| + (setq |x| (CAR G166259)) - (SPADLET |pred| + (setq |pred| (CDR G166259)) G166259) NIL)) @@ -307,7 +307,7 @@ (SEQ (EXIT (COND - ((SPADLET |npred| + ((setq |npred| (|simpHasPred| |pred|)) (SETQ G166289 @@ -362,14 +362,14 @@ (PROG (|d| |cat| |x| |y| |args| |p| |npred|) (RETURN (SEQ (PROGN - (SPADLET |d| (CADR |pred|)) - (SPADLET |cat| (CADDR |pred|)) + (setq |d| (CADR |pred|)) + (setq |cat| (CADDR |pred|)) |pred| - (SEQ (SPADLET |x| (|hasCat| (CAR |d|) (CAR |cat|))) - (IF (SPADLET |y| (CDR |cat|)) - (EXIT (SEQ (IF (SPADLET |npred| + (SEQ (setq |x| (|hasCat| (CAR |d|) (CAR |cat|))) + (IF (setq |y| (CDR |cat|)) + (EXIT (SEQ (IF (setq |npred| (PROG (G166367) - (SPADLET G166367 NIL) + (setq G166367 NIL) (RETURN (DO ((G166375 NIL G166367) @@ -384,9 +384,9 @@ NIL) (PROGN (PROGN - (SPADLET |args| + (setq |args| (CAR G166350)) - (SPADLET |p| + (setq |p| (CDR G166350)) G166350) NIL)) @@ -408,27 +408,27 @@ (RETURN (SEQ (IF (AND (CONSP |b|) (EQ (QCAR |b|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |b|)) + (setq |ISTMP#1| (QCDR |b|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |attr| (QCAR |ISTMP#1|)) + (setq |attr| (QCAR |ISTMP#1|)) 'T)))) (EXIT (|simpHasAttribute| |pred| |a| |attr|))) (IF (AND (CONSP |b|) (EQ (QCAR |b|) 'SIGNATURE) (PROGN - (SPADLET |ISTMP#1| (QCDR |b|)) + (setq |ISTMP#1| (QCDR |b|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |op| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |op| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |sig| (QCAR |ISTMP#2|)) + (setq |sig| (QCAR |ISTMP#2|)) 'T)))))) (EXIT (|simpHasSignature| |pred| |a| |op| |sig|))) (IF (OR (IDENTP |a|) (|hasIdent| |b|)) (EXIT |pred|)) - (SPADLET |npred| (|simpHasPred,eval| |pred|)) + (setq |npred| (|simpHasPred,eval| |pred|)) (IF (OR (IDENTP |npred|) (NULL (|hasIdent| |npred|))) (EXIT |npred|)) (EXIT |pred|))))) @@ -442,8 +442,8 @@ (RETURN (SEQ (IF (AND (CONSP |pred|) (PROGN - (SPADLET |op| (QCAR |pred|)) - (SPADLET |r| (QCDR |pred|)) + (setq |op| (QCAR |pred|)) + (setq |r| (QCDR |pred|)) 'T)) (EXIT (SEQ (IF (BOOT-EQUAL |op| '|has|) (EXIT (|simpHasPred,simpHas| |pred| @@ -459,11 +459,11 @@ (IF (BOOT-EQUAL |op| '|HasSignature|) (EXIT (SEQ (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|simpHasPred,simpDevaluate| (CADR |r|))) - (SPADLET |op| (CAR |LETTMP#1|)) - (SPADLET |sig| + (setq |op| (CAR |LETTMP#1|)) + (setq |sig| (CADR |LETTMP#1|)) |LETTMP#1|) (EXIT @@ -475,13 +475,13 @@ NIL))))))) (IF (BOOT-EQUAL |op| '|HasAttribute|) (EXIT (SEQ - (SPADLET |form| + (setq |form| (CONS '|has| - (CONS (SPADLET |a| (CAR |r|)) + (CONS (setq |a| (CAR |r|)) (CONS (CONS 'ATTRIBUTE (CONS - (SPADLET |b| + (setq |b| (|simpHasPred,simpDevaluate| (CADR |r|))) NIL)) @@ -493,10 +493,10 @@ (EXIT (SEQ (IF (NULL - (SPADLET |u| + (setq |u| (MKPF (PROG (G166412) - (SPADLET G166412 NIL) + (setq G166412 NIL) (RETURN (DO ((G166417 |r| @@ -529,7 +529,7 @@ (BOOT-EQUAL (|opOf| |op|) '|has|)) (EXIT (|simpHasPred,simp| (CAR |pred|)))) (IF (EQUAL |pred| ''T) (EXIT 'T)) - (IF (SPADLET |op1| + (IF (setq |op1| (LASSOC |op| '((|and| . AND) (|or| . OR) (|not| . NOT)))) @@ -545,7 +545,7 @@ (DECLARE (SPECIAL |$hasArgs|)) (RETURN (PROGN - (SPADLET |$hasArgs| (IFCDR (IFCAR |options|))) + (setq |$hasArgs| (IFCDR (IFCAR |options|))) (|simpHasPred,simp| |pred|))))) ;simpHasSignature(pred,conform,op,sig) == --eval w/o loading @@ -564,15 +564,15 @@ (RETURN (SEQ (COND ((IDENTP |conform|) |pred|) - ('T (SPADLET |conname| (CAR |conform|)) - (SPADLET |args| (CDR |conform|)) - (SPADLET |n| (|#| |sig|)) - (SPADLET |u| + ('T (setq |conname| (CAR |conform|)) + (setq |args| (CDR |conform|)) + (setq |n| (|#| |sig|)) + (setq |u| (LASSOC |op| (GETDATABASE |conname| 'OPERATIONALIST))) - (SPADLET |candidates| + (setq |candidates| (OR (PROG (G166468) - (SPADLET G166468 NIL) + (setq G166468 NIL) (RETURN (DO ((G166475 |u| (CDR G166475)) (|x| NIL)) @@ -582,7 +582,7 @@ NIL) (PROGN (PROGN - (SPADLET |sig1| (CAR |x|)) + (setq |sig1| (CAR |x|)) |x|) NIL)) (NREVERSE0 G166468)) @@ -593,9 +593,9 @@ (SETQ G166468 (CONS |x| G166468))))))))) (RETURN NIL))) - (SPADLET |match| + (setq |match| (OR (PROG (G166482) - (SPADLET G166482 NIL) + (setq G166482 NIL) (RETURN (DO ((G166490 NIL G166482) (G166491 |candidates| @@ -607,7 +607,7 @@ NIL) (PROGN (PROGN - (SPADLET |sig1| (CAR |x|)) + (setq |sig1| (CAR |x|)) |x|) NIL)) G166482) @@ -622,11 +622,11 @@ (|simpHasPred| (OR (AND (CONSP |match|) (PROGN - (SPADLET |sig| (QCAR |match|)) - (SPADLET |ISTMP#1| (QCDR |match|)) + (setq |sig| (QCAR |match|)) + (setq |ISTMP#1| (QCDR |match|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |p| (QCDR |ISTMP#1|)) + (setq |p| (QCDR |ISTMP#1|)) 'T))) (|sublisFormal| |args| |p|)) 'T)))))))) @@ -653,7 +653,7 @@ (RETURN (SEQ (COND ((IDENTP |conform|) |pred|) - ('T (SPADLET |conname| (|opOf| |conform|)) + ('T (setq |conname| (|opOf| |conform|)) (COND ((BOOT-EQUAL (GETDATABASE |conname| 'CONSTRUCTORKIND) '|category|) @@ -662,20 +662,20 @@ (SEQ (COND ((|asharpConstructorName?| |conname|) (EXIT (COND - ((SPADLET |p| + ((setq |p| (LASSOC |attr| (GETDATABASE |conname| '|attributes|))) (EXIT (|simpHasPred| (|sublisFormal| (CDR |conform|) |p|)))))))) - (SPADLET |infovec| (|dbInfovec| |conname|)) - (SPADLET |k| + (setq |infovec| (|dbInfovec| |conname|)) + (setq |k| (OR (LASSOC |attr| (ELT |infovec| 2)) (RETURN NIL))) (COND ((EQL |k| 0) (EXIT 'T))) (COND (|$domain| (EXIT (|kTestPred| |k|)))) - (SPADLET |predvec| + (setq |predvec| (OR |$predvec| (|sublisFormal| (CDR |conform|) (GETDATABASE |conname| 'PREDICATES)))) @@ -696,12 +696,12 @@ (PROG (|conform| |catval| |u| |pred|) (RETURN (PROGN - (SPADLET |conform| (|getConstructorForm| (|opOf| |domform|))) - (SPADLET |catval| (EVAL (|mkEvalable| |conform|))) - (COND ((ATOM (KDR |attr|)) (SPADLET |attr| (IFCAR |attr|)))) - (SPADLET |pred| + (setq |conform| (|getConstructorForm| (|opOf| |domform|))) + (setq |catval| (EVAL (|mkEvalable| |conform|))) + (COND ((ATOM (KDR |attr|)) (setq |attr| (IFCAR |attr|)))) + (setq |pred| (COND - ((SPADLET |u| (LASSOC |attr| (ELT |catval| 2))) + ((setq |u| (LASSOC |attr| (ELT |catval| 2))) (CAR |u|)) ('T (RETURN NIL)))) (COND @@ -723,14 +723,14 @@ (SEQ (COND ((AND (CONSP |pred|) (PROGN - (SPADLET |op| (QCAR |pred|)) - (SPADLET |r| (QCDR |pred|)) + (setq |op| (QCAR |pred|)) + (setq |r| (QCDR |pred|)) 'T)) (COND ((BOOT-EQUAL |op| 'QUOTE) NIL) ('T (PROG (G166539) - (SPADLET G166539 NIL) + (setq G166539 NIL) (RETURN (DO ((G166545 NIL G166539) (G166546 |r| (CDR G166546)) (|x| NIL)) @@ -758,7 +758,7 @@ (PROG (|ISTMP#1| |pred| |ISTMP#2| |cat1| |a| |b| |newAlist| |alist|) (RETURN (SEQ (PROGN - (SPADLET |alist| NIL) + (setq |alist| NIL) (DO ((G166595 |catl| (CDR G166595)) (|cat| NIL)) ((OR (ATOM G166595) (PROGN (SETQ |cat| (CAR G166595)) NIL)) @@ -769,21 +769,21 @@ NIL) ((AND (CONSP |cat|) (EQ (QCAR |cat|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |cat|)) + (setq |ISTMP#1| (QCDR |cat|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |cat1| + (setq |cat1| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |newAlist| + (setq |newAlist| (PROG (G166606) - (SPADLET G166606 NIL) + (setq G166606 NIL) (RETURN (DO ((G166612 @@ -798,9 +798,9 @@ NIL) (PROGN (PROGN - (SPADLET |a| + (setq |a| (CAR G166575)) - (SPADLET |b| + (setq |b| (CDR G166575)) G166575) NIL)) @@ -813,10 +813,10 @@ (|quickAnd| |pred| |b|)) G166606)))))))) - (SPADLET |alist| + (setq |alist| (APPEND |alist| |newAlist|))) ('T - (SPADLET |alist| + (setq |alist| (APPEND |alist| (|getCategoryExtensionAlist0| |cat|)))))))) @@ -829,8 +829,8 @@ (PROG (|id| |a|) (RETURN (PROGN - (SPADLET |id| (CAR |key|)) - (SPADLET |a| (CDR |key|)) + (setq |id| (CAR |key|)) + (setq |a| (CDR |key|)) (HPUT |table| |key| |b|))))) ;genTempCategoryTable() == @@ -867,7 +867,7 @@ (PROGN (SETQ |id| (CAR G166667)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |item| (HGET *ANCESTORS-HASH* |id|)) + (setq |item| (HGET *ANCESTORS-HASH* |id|)) (DO ((G166677 |item| (CDR G166677)) (|u| NIL)) ((OR (ATOM G166677) @@ -876,7 +876,7 @@ NIL) (PROGN (PROGN - (SPADLET |b| (CDR |u|)) + (setq |b| (CDR |u|)) |u|) NIL)) NIL) @@ -899,8 +899,8 @@ (declare (special *ANCESTORS-HASH*)) (RETURN (PROGN - (SPADLET |u| (CAAR (GETDATABASE |con| 'CONSTRUCTORMODEMAP))) - (SPADLET |alist| (|getCategoryExtensionAlist| |u|)) + (setq |u| (CAAR (GETDATABASE |con| 'CONSTRUCTORMODEMAP))) + (setq |alist| (|getCategoryExtensionAlist| |u|)) (HPUT *ANCESTORS-HASH* (CAR |u|) |alist|) |alist|)))) @@ -924,34 +924,34 @@ (PROG (|a| |b| |key| |argl| |newEntry| |u| |p| |newAl|) (RETURN (SEQ (PROGN - (SPADLET |newAl| NIL) + (setq |newAl| NIL) (DO ((G166715 |alist| (CDR G166715)) (G166702 NIL)) ((OR (ATOM G166715) (PROGN (SETQ G166702 (CAR G166715)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR G166702)) - (SPADLET |b| (CDR G166702)) + (setq |a| (CAR G166702)) + (setq |b| (CDR G166702)) G166702) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |key| (CAR |a|)) - (SPADLET |argl| (CDR |a|)) - (SPADLET |newEntry| + (setq |key| (CAR |a|)) + (setq |argl| (CDR |a|)) + (setq |newEntry| (COND (|argl| (CONS (CONS |argl| |b|) NIL)) ('T |b|))) (COND - ((SPADLET |u| (|assoc| |key| |newAl|)) + ((setq |u| (|assoc| |key| |newAl|)) (COND (|argl| (RPLACD |u| (|encodeUnion| |id| (CAR |newEntry|) (CDR |u|)))) ((NEQUAL |newEntry| (CDR |u|)) (COND - ((SPADLET |p| + ((setq |p| (|moreGeneralCategoryPredicate| |id| |newEntry| (CDR |u|))) (RPLACD |u| |p|)) @@ -963,7 +963,7 @@ (CONS (CDR |u|) NIL)))))) ('T NIL))) ('T - (SPADLET |newAl| + (setq |newAl| (CONS (CONS |key| |newEntry|) |newAl|)))))))) |newAl|))))) @@ -978,10 +978,10 @@ (PROG (|a| |b| |u|) (RETURN (PROGN - (SPADLET |a| (CAR |new|)) - (SPADLET |b| (CDR |new|)) + (setq |a| (CAR |new|)) + (setq |b| (CDR |new|)) (COND - ((SPADLET |u| (|assoc| |a| |alist|)) + ((setq |u| (|assoc| |a| |alist|)) (RPLACD |u| (|moreGeneralCategoryPredicate| |id| |b| (CDR |u|))) |alist|) @@ -1003,21 +1003,21 @@ ((OR (BOOT-EQUAL |old| 'T) (BOOT-EQUAL |new| 'T)) 'T) ((AND (CONSP |old|) (EQ (QCAR |old|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |old|)) + (setq |ISTMP#1| (QCDR |old|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |a| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) - (PROGN (SPADLET |b| (QCAR |ISTMP#2|)) 'T))))) + (PROGN (setq |b| (QCAR |ISTMP#2|)) 'T))))) (CONSP |new|) (EQ (QCAR |new|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |new|)) + (setq |ISTMP#1| (QCDR |new|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |a|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) - (PROGN (SPADLET |c| (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq |c| (QCAR |ISTMP#2|)) 'T)))))) (COND ((|tempExtendsCat| |b| |c|) |new|) ((|tempExtendsCat| |c| |b|) |old|) @@ -1033,7 +1033,7 @@ (RETURN (COND ((AND (CONSP |old|) (EQ (QCAR |old|) 'OR) - (PROGN (SPADLET |l| (QCDR |old|)) 'T)) + (PROGN (setq |l| (QCDR |old|)) 'T)) (|simpCategoryOr| |new| |l|)) ('T (CONS 'OR (CONS |old| (CONS |new| NIL)))))))) @@ -1057,11 +1057,11 @@ |newExtendsAnOld| |newList|) (RETURN (SEQ (PROGN - (SPADLET |newExtendsAnOld| NIL) - (SPADLET |anOldExtendsNew| NIL) - (SPADLET |a| (CADR |new|)) - (SPADLET |b| (CADDR |new|)) - (SPADLET |newList| NIL) + (setq |newExtendsAnOld| NIL) + (setq |anOldExtendsNew| NIL) + (setq |a| (CADR |new|)) + (setq |b| (CADDR |new|)) + (setq |newList| NIL) (DO ((G166818 |l| (CDR G166818)) (|pred| NIL)) ((OR (ATOM G166818) (PROGN (SETQ |pred| (CAR G166818)) NIL)) @@ -1070,33 +1070,33 @@ ((AND (CONSP |pred|) (EQ (QCAR |pred|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |a|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |c| + (setq |c| (QCAR |ISTMP#2|)) 'T)))))) (COND ((|tempExtendsCat| |c| |b|) - (SPADLET |anOldExtendsNew| 'T)) + (setq |anOldExtendsNew| 'T)) ('T (COND ((|tempExtendsCat| |b| |c|) - (SPADLET |newExtendsAnOld| 'T))) - (SPADLET |newList| + (setq |newExtendsAnOld| 'T))) + (setq |newList| (CONS |pred| |newList|))))) ('T - (SPADLET |newList| + (setq |newList| (CONS |pred| |newList|))))))) (COND ((NULL |newExtendsAnOld|) - (SPADLET |newList| (CONS |new| |newList|)))) + (setq |newList| (CONS |new| |newList|)))) (COND ((AND (CONSP |newList|) (EQ (QCDR |newList|) NIL)) (CAR |newList|)) @@ -1109,7 +1109,7 @@ (PROG (|a|) (RETURN (SEQ (PROG (G166843) - (SPADLET G166843 NIL) + (setq G166843 NIL) (RETURN (DO ((G166850 NIL G166843) (G166851 (GETDATABASE (CAR |b|) 'ANCESTORS) @@ -1119,7 +1119,7 @@ (PROGN (SETQ G166840 (CAR G166851)) NIL) (PROGN (PROGN - (SPADLET |a| (CAAR G166840)) + (setq |a| (CAAR G166840)) G166840) NIL)) G166843) @@ -1142,7 +1142,7 @@ (PROG (|u|) (RETURN (COND - ((SPADLET |u| (GETDATABASE (CAR |cform|) 'ANCESTORS)) + ((setq |u| (GETDATABASE (CAR |cform|) 'ANCESTORS)) (|formalSubstitute| |cform| |u|)) ('T (|mkCategoryExtensionAlist| |cform|)))))) @@ -1155,7 +1155,7 @@ (declare (special |$FormalMapVariableList|)) (RETURN (PROGN - (SPADLET |argl| (CDR |form|)) + (setq |argl| (CDR |form|)) (COND ((|isFormalArgumentList| |argl|) |u|) ('T (EQSUBSTLIST |argl| |$FormalMapVariableList| |u|))))))) @@ -1168,7 +1168,7 @@ (declare (special |$FormalMapVariableList|)) (RETURN (SEQ (PROG (G166883) - (SPADLET G166883 'T) + (setq G166883 'T) (RETURN (DO ((G166890 NIL (NULL G166883)) (G166891 |argl| (CDR G166891)) (|x| NIL) @@ -1204,37 +1204,37 @@ (RETURN (SEQ (COND ((NULL (CONSP |cform|)) NIL) - ('T (SPADLET |cop| (CAR |cform|)) + ('T (setq |cop| (CAR |cform|)) (COND ((member |cop| |$CategoryNames|) (|mkCategoryExtensionAlistBasic| |cform|)) ('T - (SPADLET |catlist| + (setq |catlist| (|formalSubstitute| |cform| (CAR (|getConstructorExports| |cform| 'T)))) - (SPADLET |extendsList| NIL) + (setq |extendsList| NIL) (DO ((G166927 |catlist| (CDR G166927)) (G166912 NIL)) ((OR (ATOM G166927) (PROGN (SETQ G166912 (CAR G166927)) NIL) (PROGN (PROGN - (SPADLET |cat| (CAR G166912)) - (SPADLET |pred| (CDR G166912)) + (setq |cat| (CAR G166912)) + (setq |pred| (CDR G166912)) G166912) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |newList| + (setq |newList| (|getCategoryExtensionAlist0| |cat|)) - (SPADLET |finalList| + (setq |finalList| (COND ((BOOT-EQUAL |pred| 'T) |newList|) ('T (PROG (G166939) - (SPADLET G166939 NIL) + (setq G166939 NIL) (RETURN (DO ((G166945 |newList| @@ -1247,9 +1247,9 @@ NIL) (PROGN (PROGN - (SPADLET |a| + (setq |a| (CAR G166906)) - (SPADLET |b| + (setq |b| (CDR G166906)) G166906) NIL)) @@ -1262,7 +1262,7 @@ (|quickAnd| |b| |pred|)) G166939)))))))))) - (SPADLET |extendsList| + (setq |extendsList| (|catPairUnion| |extendsList| |finalList| |cop| |cat|)))))) |extendsList|)))))))) @@ -1288,14 +1288,14 @@ |extendsList|) (RETURN (SEQ (PROGN - (SPADLET |cop| (CAR |cform|)) - (SPADLET |category| + (setq |cop| (CAR |cform|)) + (setq |category| (COND ((|macrop| |cop|) (|eval| |cform|)) ('T (APPLY |cop| (CDR |cform|))))) - (SPADLET |extendsList| + (setq |extendsList| (PROG (G166982) - (SPADLET G166982 NIL) + (setq G166982 NIL) (RETURN (DO ((G166987 (ELT (ELT |category| 4) 0) (CDR G166987)) @@ -1314,22 +1314,22 @@ (PROGN (SETQ G166973 (CAR G167003)) NIL) (PROGN (PROGN - (SPADLET |cat| (CAR G166973)) - (SPADLET |pred| (CADR G166973)) + (setq |cat| (CAR G166973)) + (setq |pred| (CADR G166973)) G166973) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |newList| + (setq |newList| (|getCategoryExtensionAlist0| |cat|)) - (SPADLET |finalList| + (setq |finalList| (COND ((BOOT-EQUAL |pred| 'T) |newList|) ('T (PROG (G167015) - (SPADLET G167015 NIL) + (setq G167015 NIL) (RETURN (DO ((G167021 |newList| @@ -1342,9 +1342,9 @@ NIL) (PROGN (PROGN - (SPADLET |a| + (setq |a| (CAR G166967)) - (SPADLET |b| + (setq |b| (CDR G166967)) G166967) NIL)) @@ -1357,7 +1357,7 @@ (|quickAnd| |b| |pred|)) G167015)))))))))) - (SPADLET |extendsList| + (setq |extendsList| (|catPairUnion| |extendsList| |finalList| |cop| |cat|)))))) |extendsList|))))) @@ -1384,7 +1384,7 @@ (PROGN (SETQ |pair| (CAR G167053)) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |u| + ((setq |u| (|assoc| (CAR |pair|) |oldList|)) (COND ((BOOT-EQUAL (CDR |u|) (CDR |pair|)) @@ -1394,7 +1394,7 @@ (|catPairUnion,addConflict| (CDR |pair|) (CDR |u|)))))) ('T - (SPADLET |oldList| + (setq |oldList| (CONS |pair| |oldList|))))))) |oldList|))))) @@ -1409,12 +1409,12 @@ (RETURN (COND ((AND (CONSP |p|) (EQ (QCAR |p|) 'OR) - (PROGN (SPADLET |l| (QCDR |p|)) 'T)) + (PROGN (setq |l| (QCDR |p|)) 'T)) (COND ((PROGN - (SPADLET |ISTMP#1| (SPADLET |u| (|simpOrUnion| |l|))) + (setq |ISTMP#1| (setq |u| (|simpOrUnion| |l|))) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |p| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |p| (QCAR |ISTMP#1|)) 'T))) |p|) ('T (CONS 'OR |u|)))) ('T |p|))))) @@ -1438,7 +1438,7 @@ (RETURN (COND ((NULL |l|) (CONS |x| NIL)) - ((SPADLET |p| (|mergeOr| |x| (CAR |l|))) (CONS |p| (CDR |l|))) + ((setq |p| (|mergeOr| |x| (CAR |l|))) (CONS |p| (CDR |l|))) ('T (CONS (CAR |l|) (|simpOrUnion1| |x| (CDR |l|)))))))) ;mergeOr(x,y) == @@ -1454,21 +1454,21 @@ (COND ((AND (CONSP |x|) (EQ (QCAR |x|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |a| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) - (PROGN (SPADLET |b| (QCAR |ISTMP#2|)) 'T))))) + (PROGN (setq |b| (QCAR |ISTMP#2|)) 'T))))) (CONSP |y|) (EQ (QCAR |y|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |y|)) + (setq |ISTMP#1| (QCDR |y|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |a|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) - (PROGN (SPADLET |c| (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq |c| (QCAR |ISTMP#2|)) 'T)))))) (COND ((|testExtend| |b| |c|) |y|) ((|testExtend| |c| |b|) |x|) @@ -1484,11 +1484,11 @@ (PROG (|op| |argl| |u| |val|) (RETURN (PROGN - (SPADLET |op| (CAR |a|)) - (SPADLET |argl| (CDR |a|)) + (setq |op| (CAR |a|)) + (setq |argl| (CDR |a|)) (COND - ((AND (SPADLET |u| (GETDATABASE |op| 'ANCESTORS)) - (SPADLET |val| (LASSOC |b| |u|))) + ((AND (setq |u| (GETDATABASE |op| 'ANCESTORS)) + (setq |val| (LASSOC |b| |u|))) (|formalSubstitute| |a| |val|)) ('T NIL)))))) @@ -1508,13 +1508,13 @@ (PROG (|y| |ISTMP#1| |z| |cats|) (RETURN (SEQ (PROGN - (SPADLET |x| + (setq |x| (COND ((AND (CONSP |x|) (EQ (QCAR |x|) '|Join|) - (PROGN (SPADLET |y| (QCDR |x|)) 'T)) + (PROGN (setq |y| (QCDR |x|)) 'T)) |y|) ('T (CONS |x| NIL)))) - (SPADLET |cats| NIL) + (setq |cats| NIL) (DO ((G167152 |x| (CDR G167152)) (|y| NIL)) ((OR (ATOM G167152) (PROGN (SETQ |y| (CAR G167152)) NIL)) @@ -1522,10 +1522,10 @@ (SEQ (EXIT (COND ((AND (CONSP |y|) (EQ (QCAR |y|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |y|)) + (setq |ISTMP#1| (QCDR |y|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |z| (QCDR |ISTMP#1|)) + (setq |z| (QCDR |ISTMP#1|)) 'T)))) (DO ((G167161 |z| (CDR G167161)) (|zz| NIL)) @@ -1535,10 +1535,10 @@ NIL)) NIL) (SEQ (EXIT - (SPADLET |cats| + (setq |cats| (|makeCatPred| |zz| |cats| 'T)))))) - ('T (SPADLET |cats| (CONS |y| |cats|))))))) - (SPADLET |cats| (NREVERSE |cats|)) + ('T (setq |cats| (CONS |y| |cats|))))))) + (setq |cats| (NREVERSE |cats|)) |cats|))))) ;makeCatPred(zz, cats, thePred) == @@ -1560,43 +1560,43 @@ (COND ((AND (CONSP |zz|) (EQ (QCAR |zz|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |zz|)) + (setq |ISTMP#1| (QCDR |zz|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) '|has|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |z1| (QCAR |ISTMP#3|)) - (SPADLET |ISTMP#4| + (setq |z1| (QCAR |ISTMP#3|)) + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |z2| + (setq |z2| (QCAR |ISTMP#4|)) 'T))))))) (PROGN - (SPADLET |curPred| (QCAR |ISTMP#1|)) + (setq |curPred| (QCAR |ISTMP#1|)) 'T) (PROGN - (SPADLET |ISTMP#5| (QCDR |ISTMP#1|)) + (setq |ISTMP#5| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#5|) (PROGN - (SPADLET |ats| (QCAR |ISTMP#5|)) - (SPADLET |ISTMP#6| + (setq |ats| (QCAR |ISTMP#5|)) + (setq |ISTMP#6| (QCDR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) (EQ (QCDR |ISTMP#6|) NIL)))))))) - (SPADLET |ats| + (setq |ats| (COND ((AND (CONSP |ats|) (EQ (QCAR |ats|) 'PROGN) (PROGN - (SPADLET |atl| (QCDR |ats|)) + (setq |atl| (QCDR |ats|)) 'T)) |atl|) ('T (CONS |ats| NIL)))) @@ -1609,17 +1609,17 @@ ((AND (CONSP |at|) (EQ (QCAR |at|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |at|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |z3| + (setq |z3| (QCAR |ISTMP#1|)) 'T))) (NULL (ATOM |z3|)) (|constructor?| (CAR |z3|))) - (SPADLET |cats| + (setq |cats| (CONS (CONS 'IF (CONS @@ -1635,14 +1635,14 @@ ((AND (CONSP |at|) (EQ (QCAR |at|) 'IF) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |at|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |cats| + (setq |cats| (|makeCatPred| |at| |cats| |curPred|)))))))))) |cats|))))) @@ -1695,24 +1695,24 @@ (RETURN (SEQ (IF (AND (CONSP |target|) (EQ (QCAR |target|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |r| (QCDR |ISTMP#1|)) 'T)))) + (PROGN (setq |r| (QCDR |ISTMP#1|)) 'T)))) (EXIT |r|)) (IF (AND (CONSP |target|) (EQ (QCAR |target|) '|Join|) (PROGN - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (AND (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |f| (QCAR |ISTMP#2|)) - (SPADLET |r| (QCDR |ISTMP#2|)) + (setq |f| (QCAR |ISTMP#2|)) + (setq |r| (QCDR |ISTMP#2|)) 'T)) - (PROGN (SPADLET |r| (NREVERSE |r|)) 'T)))) + (PROGN (setq |r| (NREVERSE |r|)) 'T)))) (EXIT (SEQ (DO ((G167385 |r| (CDR G167385)) (|x| NIL)) ((OR (ATOM G167385) @@ -1720,11 +1720,11 @@ (SETQ |x| (CAR G167385)) NIL)) NIL) - (SEQ (EXIT (SPADLET |$conslist| + (SEQ (EXIT (setq |$conslist| (CONS (CONS |x| 'T) |$conslist|))))) (EXIT (|categoryParts,exportsOf| |f|))))) - (SPADLET |$conslist| (CONS (CONS |target| 'T) |$conslist|)) + (setq |$conslist| (CONS (CONS |target| 'T) |$conslist|)) (EXIT NIL))))) (DEFUN |categoryParts,build| (|item| |pred|) @@ -1734,71 +1734,71 @@ (RETURN (SEQ (IF (AND (CONSP |item|) (EQ (QCAR |item|) 'SIGNATURE) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (setq |ISTMP#1| (QCDR |item|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |op| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |op| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |sig| (QCAR |ISTMP#2|)) + (setq |sig| (QCAR |ISTMP#2|)) 'T)))))) - (EXIT (SPADLET |$oplist| + (EXIT (setq |$oplist| (CONS (CONS (|opOf| |op|) (CONS |sig| |pred|)) |$oplist|)))) (IF (AND (CONSP |item|) (EQ (QCAR |item|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (setq |ISTMP#1| (QCDR |item|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |attr| (QCAR |ISTMP#1|)) + (setq |attr| (QCAR |ISTMP#1|)) 'T)))) (EXIT (SEQ (IF (|constructor?| (|opOf| |attr|)) (EXIT (SEQ - (SPADLET |$conslist| + (setq |$conslist| (CONS (CONS |attr| |pred|) |$conslist|)) (EXIT NIL)))) (IF (BOOT-EQUAL (|opOf| |attr|) '|nothing|) (EXIT '|skip|)) - (EXIT (SPADLET |$attrlist| + (EXIT (setq |$attrlist| (CONS (CONS (|opOf| |attr|) (CONS (IFCDR |attr|) |pred|)) |$attrlist|)))))) (IF (AND (CONSP |item|) (EQ (QCAR |item|) 'TYPE) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (setq |ISTMP#1| (QCDR |item|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |op| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |op| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |type| (QCAR |ISTMP#2|)) + (setq |type| (QCAR |ISTMP#2|)) 'T)))))) - (EXIT (SPADLET |$oplist| + (EXIT (setq |$oplist| (CONS (CONS |op| (CONS (CONS |type| NIL) |pred|)) |$oplist|)))) (IF (AND (CONSP |item|) (EQ (QCAR |item|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (setq |ISTMP#1| (QCDR |item|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |pred1| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |pred1| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |s1| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |s1| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |s2| (QCAR |ISTMP#3|)) + (setq |s2| (QCAR |ISTMP#3|)) 'T)))))))) (EXIT (SEQ (|categoryParts,build| |s1| (|quickAnd| |pred| |pred1|)) @@ -1808,7 +1808,7 @@ (|quickAnd| |pred| (CONS 'NOT (CONS |pred1| NIL)))))))))) (IF (AND (CONSP |item|) (EQ (QCAR |item|) 'PROGN) - (PROGN (SPADLET |r| (QCDR |item|)) 'T)) + (PROGN (setq |r| (QCDR |item|)) 'T)) (EXIT (DO ((G167406 |r| (CDR G167406)) (|x| NIL)) ((OR (ATOM G167406) (PROGN (SETQ |x| (CAR G167406)) NIL)) @@ -1826,11 +1826,11 @@ |$FormalMapVariableList| |$TriangleVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |cons?| (IFCAR |options|)) - (SPADLET |$attrlist| NIL) - (SPADLET |$oplist| NIL) - (SPADLET |$conslist| NIL) - (SPADLET |conname| (|opOf| |conform|)) + (setq |cons?| (IFCAR |options|)) + (setq |$attrlist| NIL) + (setq |$oplist| NIL) + (setq |$conslist| NIL) + (setq |conname| (|opOf| |conform|)) (DO ((G167440 (|categoryParts,exportsOf| |category|) (CDR G167440)) (|x| NIL)) @@ -1838,13 +1838,13 @@ (PROGN (SETQ |x| (CAR G167440)) NIL)) NIL) (SEQ (EXIT (|categoryParts,build| |x| 'T)))) - (SPADLET |$attrlist| + (setq |$attrlist| (|listSort| #'GLESSEQP |$attrlist|)) - (SPADLET |$oplist| + (setq |$oplist| (|listSort| #'GLESSEQP |$oplist|)) - (SPADLET |res| (CONS |$attrlist| |$oplist|)) + (setq |res| (CONS |$attrlist| |$oplist|)) (COND - (|cons?| (SPADLET |res| + (|cons?| (setq |res| (CONS (|listSort| #'GLESSEQP |$conslist|) @@ -1852,10 +1852,10 @@ (COND ((BOOT-EQUAL (GETDATABASE |conname| 'CONSTRUCTORKIND) '|category|) - (SPADLET |tvl| + (setq |tvl| (TAKE (|#| (CDR |conform|)) |$TriangleVariableList|)) - (SPADLET |res| + (setq |res| (SUBLISLIS |$FormalMapVariableList| |tvl| |res|)))) |res|))))) @@ -1877,7 +1877,7 @@ (RETURN (COND ((ATOM |x|) NIL) - ((SPADLET |u| (HGET |$found| |x|)) + ((setq |u| (HGET |$found| |x|)) (COND (|left| (RPLACA |left| |u|)) (|right| (RPLACD |right| |u|)) @@ -1893,7 +1893,7 @@ (DEFUN |squeezeList| (|l|) (PROG (|$found|) (DECLARE (SPECIAL |$found|)) - (RETURN (PROGN (SPADLET |$found| NIL) (|squeeze1| |l|))))) + (RETURN (PROGN (setq |$found| NIL) (|squeeze1| |l|))))) ;squeeze1(l) == ;-- recursive version of squeezeList @@ -1917,20 +1917,20 @@ (declare (special |$found|)) (RETURN (PROGN - (SPADLET |x| (CAR |l|)) - (SPADLET |y| + (setq |x| (CAR |l|)) + (setq |y| (COND ((ATOM |x|) |x|) - ((SPADLET |z| (|member| |x| |$found|)) (CAR |z|)) - ('T (SPADLET |$found| (CONS |x| |$found|)) + ((setq |z| (|member| |x| |$found|)) (CAR |z|)) + ('T (setq |$found| (CONS |x| |$found|)) (|squeeze1| |x|)))) (RPLACA |l| |y|) - (SPADLET |x| (CDR |l|)) - (SPADLET |y| + (setq |x| (CDR |l|)) + (setq |y| (COND ((ATOM |x|) |x|) - ((SPADLET |z| (|member| |x| |$found|)) (CAR |z|)) - ('T (SPADLET |$found| (CONS |x| |$found|)) + ((setq |z| (|member| |x| |$found|)) (CAR |z|)) + ('T (setq |$found| (CONS |x| |$found|)) (|squeeze1| |x|)))) (RPLACD |l| |y|))))) @@ -1990,7 +1990,7 @@ NIL) (PROGN (PROGN - (SPADLET |b| (CDR |u|)) + (setq |b| (CDR |u|)) |u|) NIL)) NIL) @@ -2013,10 +2013,10 @@ (RETURN (SEQ (PROGN (|clearCategoryTable| |cname|) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|addDomainToTable| |cname| |category|)) - (SPADLET |cname| (CAR |LETTMP#1|)) - (SPADLET |domainEntry| (CDR |LETTMP#1|)) + (setq |cname| (CAR |LETTMP#1|)) + (setq |domainEntry| (CDR |LETTMP#1|)) (DO ((G167560 (|encodeCategoryAlist| |cname| |domainEntry|) (CDR G167560)) @@ -2025,8 +2025,8 @@ (PROGN (SETQ G167551 (CAR G167560)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR G167551)) - (SPADLET |b| (CDR G167551)) + (setq |a| (CAR G167551)) + (setq |b| (CDR G167551)) G167551) NIL)) NIL) @@ -2075,7 +2075,7 @@ NIL) (SEQ (EXIT (COND ((member |key| |catNames|) NIL) - ('T (SPADLET |extensions| NIL) + ('T (setq |extensions| NIL) (DO ((G167602 (GETDATABASE |key| 'ANCESTORS) (CDR G167602)) @@ -2087,7 +2087,7 @@ NIL) (PROGN (PROGN - (SPADLET |catForm| + (setq |catForm| (CAR |extension|)) |extension|) NIL)) @@ -2097,7 +2097,7 @@ |catNames|) NIL) ('T - (SPADLET |extensions| + (setq |extensions| (CONS |extension| |extensions|))))))) (HPUT *ANCESTORS-HASH* |key| |extensions|)))))))))) diff --git a/src/interp/clam.lisp.pamphlet b/src/interp/clam.lisp.pamphlet index 36e5cbb..bc9e65b 100644 --- a/src/interp/clam.lisp.pamphlet +++ b/src/interp/clam.lisp.pamphlet @@ -21,7 +21,7 @@ (PROG (|$highlightDelta|) (DECLARE (SPECIAL |$highlightDelta|)) (RETURN - (PROGN (SPADLET |$highlightDelta| 0) (|maprinSpecial| |x| 0 79))))) + (PROGN (setq |$highlightDelta| 0) (|maprinSpecial| |x| 0 79))))) ;--% Cache Lambda Facility ;-- for remembering previous values to functions @@ -169,30 +169,30 @@ (|$InteractiveMode| (|startTimingProcess| '|compilation|))) (COND ((NULL (PROGN - (SPADLET |ISTMP#1| - (SPADLET |u| (LASSQ |op| |$clamList|))) + (setq |ISTMP#1| + (setq |u| (LASSQ |op| |$clamList|))) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |kind| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |kind| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |eqEtc| (QCAR |ISTMP#2|)) - (SPADLET |options| (QCDR |ISTMP#2|)) + (setq |eqEtc| (QCAR |ISTMP#2|)) + (setq |options| (QCDR |ISTMP#2|)) 'T)))))) (|keyedSystemError| (format nil "The structure for the clammed function %1 on $clammedList is ~ not correct. It must have three entries after the function name.") (CONS |op| NIL)))) - (SPADLET |$clamList| NIL) + (setq |$clamList| NIL) (COND - ((SPADLET |u| (S- |options| '(|shift| |count|))) + ((setq |u| (S- |options| '(|shift| |count|))) (|keyedSystemError| (format nil "Illegal options for CLAMming function %1: %2 %3 %4") (CONS |op| |u|)))) - (SPADLET |shiftFl| (member '|shift| |options|)) - (SPADLET |countFl| (member '|count| |options|)) + (setq |shiftFl| (member '|shift| |options|)) + (setq |countFl| (member '|count| |options|)) (COND ((AND (> (|#| |argl|) 1) (BOOT-EQUAL |eqEtc| 'EQ)) (|keyedSystemError| @@ -216,7 +216,7 @@ (|compHash| |op| |argl| |body| (COND ((BOOT-EQUAL |kind| '|hash|) NIL) ('T |kind|)) |eqEtc| |countFl|)))) - ('T (SPADLET |cacheCount| |kind|) + ('T (setq |cacheCount| |kind|) (COND ((NULL |argl|) (|keyedSystemError| @@ -224,7 +224,7 @@ "Circular CLAMing illegal for 0-argument functions and you ~ are trying to that for %1") (cons |op| NIL)))) - (SPADLET |phrase| + (setq |phrase| (COND ((EQL |cacheCount| 1) (CONS "computed value only" NIL)) @@ -235,9 +235,9 @@ (|sayBrightly| (APPEND (|bright| |op|) (CONS "will save last" |phrase|))) - (SPADLET |auxfn| (INTERNL |op| ";")) - (SPADLET |g1| (GENSYM)) - (SPADLET |LETTMP#1| + (setq |auxfn| (INTERNL |op| ";")) + (setq |g1| (GENSYM)) + (setq |LETTMP#1| (COND ((AND (CONSP |argl|) (EQ (QCDR |argl|) NIL)) (CONS (CONS |g1| NIL) @@ -250,16 +250,16 @@ (CONS |auxfn| NIL)) (CONS |g1| NIL))) NIL))))) - (SPADLET |arg| (CAR |LETTMP#1|)) - (SPADLET |computeValue| (CADR |LETTMP#1|)) - (SPADLET |cacheName| (INTERNL |op| ";AL")) + (setq |arg| (CAR |LETTMP#1|)) + (setq |computeValue| (CADR |LETTMP#1|)) + (setq |cacheName| (INTERNL |op| ";AL")) (COND ((BOOT-EQUAL |$reportCounts| 'T) - (SPADLET |hitCounter| (INTERNL |op| ";hit")) - (SPADLET |callCounter| + (setq |hitCounter| (INTERNL |op| ";hit")) + (setq |callCounter| (INTERNL |op| ";calls")) (SET |hitCounter| 0) (SET |callCounter| 0) - (SPADLET |callCountCode| + (setq |callCountCode| (CONS (CONS 'SETQ (CONS |callCounter| (CONS @@ -267,7 +267,7 @@ (CONS |callCounter| NIL)) NIL))) NIL)) - (SPADLET |hitCountCode| + (setq |hitCountCode| (CONS (CONS 'SETQ (CONS |hitCounter| (CONS @@ -275,8 +275,8 @@ (CONS |hitCounter| NIL)) NIL))) NIL)))) - (SPADLET |g2| (GENSYM)) (SPADLET |g3| (GENSYM)) - (SPADLET |lookUpFunction| + (setq |g2| (GENSYM)) (setq |g3| (GENSYM)) + (setq |lookUpFunction| (COND (|shiftFl| (COND @@ -284,15 +284,15 @@ ('T '|assocCacheShift|))) (|countFl| '|assocCacheCount|) ('T '|assocCache|))) - (SPADLET |returnFoundValue| + (setq |returnFoundValue| (COND (|countFl| (CONS 'CDDR (CONS |g3| NIL))) ('T (CONS 'CDR (CONS |g3| NIL))))) - (SPADLET |namePart| + (setq |namePart| (COND (|countFl| |cacheName|) ('T (MKQ |cacheName|)))) - (SPADLET |secondPredPair| + (setq |secondPredPair| (CONS (CONS 'SETQ (CONS |g3| (CONS @@ -303,11 +303,11 @@ NIL))) (APPEND |hitCountCode| (CONS |returnFoundValue| NIL)))) - (SPADLET |resetCacheEntry| + (setq |resetCacheEntry| (COND (|countFl| (CONS 'CONS (CONS 1 (CONS |g2| NIL)))) ('T |g2|))) - (SPADLET |thirdPredPair| + (setq |thirdPredPair| (CONS ''T (CONS (CONS 'SETQ (CONS |g2| @@ -326,7 +326,7 @@ (CONS |g3| (CONS |resetCacheEntry| NIL))) (CONS |g2| NIL))))))) - (SPADLET |codeBody| + (setq |codeBody| (CONS 'PROG (CONS (CONS |g2| (CONS |g3| NIL)) (APPEND |callCountCode| @@ -338,10 +338,10 @@ (CONS |thirdPredPair| NIL))) NIL)) NIL))))) - (SPADLET |lamex| + (setq |lamex| (CONS 'LAM (CONS |arg| (CONS |codeBody| NIL)))) - (SPADLET |mainFunction| (CONS |op| (CONS |lamex| NIL))) - (SPADLET |computeFunction| + (setq |mainFunction| (CONS |op| (CONS |lamex| NIL))) + (setq |computeFunction| (CONS |auxfn| (CONS (CONS 'LAMBDA (CONS |argl| |body|)) NIL))) @@ -352,17 +352,17 @@ (|bright| "Generated LISP code for function:")) (|pp| |computeFunction|))) (|compileQuietly| (CONS |computeFunction| NIL)) - (SPADLET |cacheType| 'function) - (SPADLET |cacheResetCode| + (setq |cacheType| 'function) + (setq |cacheResetCode| (CONS 'SETQ (CONS |cacheName| (CONS (CONS '|initCache| (CONS |cacheCount| NIL)) NIL)))) - (SPADLET |cacheCountCode| + (setq |cacheCountCode| (CONS '|countCircularAlist| (CONS |cacheName| (CONS |cacheCount| NIL)))) - (SPADLET |cacheVector| + (setq |cacheVector| (|mkCacheVec| |op| |cacheName| |cacheType| |cacheResetCode| |cacheCountCode|)) (|LAM,EVALANDFILEACTQ| @@ -526,15 +526,15 @@ "For hash option, only EQ, CVEC, and UEQUAL are allowed and you ~ are trying to do otherwise for %1") (CONS |op| NIL))) - ('T (SPADLET |auxfn| (INTERNL |op| ";")) - (SPADLET |g1| (GENSYM)) - (SPADLET |LETTMP#1| + ('T (setq |auxfn| (INTERNL |op| ";")) + (setq |g1| (GENSYM)) + (setq |LETTMP#1| (COND ((NULL |argl|) (CONS NIL (CONS NIL (CONS (CONS |auxfn| NIL) NIL)))) ((AND (CONSP |argl|) (EQ (QCDR |argl|) NIL)) - (SPADLET |key| + (setq |key| (COND (|cacheNameOrNil| (CONS '|devaluate| @@ -545,7 +545,7 @@ (CONS (CONS |auxfn| (CONS |g1| NIL)) NIL)))) ('T - (SPADLET |key| + (setq |key| (COND (|cacheNameOrNil| (CONS '|devaluateList| @@ -560,19 +560,19 @@ (CONS |auxfn| NIL)) (CONS |g1| NIL))) NIL)))))) - (SPADLET |arg| (CAR |LETTMP#1|)) - (SPADLET |cacheArgKey| (CADR |LETTMP#1|)) - (SPADLET |computeValue| (CADDR |LETTMP#1|)) - (SPADLET |cacheName| + (setq |arg| (CAR |LETTMP#1|)) + (setq |cacheArgKey| (CADR |LETTMP#1|)) + (setq |computeValue| (CADDR |LETTMP#1|)) + (setq |cacheName| (OR |cacheNameOrNil| (INTERNL |op| ";AL"))) (COND ((BOOT-EQUAL |$reportCounts| 'T) - (SPADLET |hitCounter| (INTERNL |op| ";hit")) - (SPADLET |callCounter| + (setq |hitCounter| (INTERNL |op| ";hit")) + (setq |callCounter| (INTERNL |op| ";calls")) (SET |hitCounter| 0) (SET |callCounter| 0) - (SPADLET |callCountCode| + (setq |callCountCode| (CONS (CONS 'SETQ (CONS |callCounter| (CONS @@ -580,7 +580,7 @@ (CONS |callCounter| NIL)) NIL))) NIL)) - (SPADLET |hitCountCode| + (setq |hitCountCode| (CONS (CONS 'SETQ (CONS |hitCounter| (CONS @@ -588,8 +588,8 @@ (CONS |hitCounter| NIL)) NIL))) NIL)))) - (SPADLET |g2| (GENSYM)) - (SPADLET |returnFoundValue| + (setq |g2| (GENSYM)) + (setq |returnFoundValue| (COND ((NULL |argl|) (COND @@ -601,7 +601,7 @@ (|countFl| (CONS '|CDRwithIncrement| (CONS |g2| NIL))) ('T |g2|))) - (SPADLET |getCode| + (setq |getCode| (COND ((NULL |argl|) (CONS 'HGET @@ -626,11 +626,11 @@ NIL)))))) ('T (CONS 'HGET (CONS |cacheName| (CONS |g1| NIL)))))) - (SPADLET |secondPredPair| + (setq |secondPredPair| (CONS (CONS 'SETQ (CONS |g2| (CONS |getCode| NIL))) (APPEND |hitCountCode| (CONS |returnFoundValue| NIL)))) - (SPADLET |putCode| + (setq |putCode| (COND ((NULL |argl|) (COND @@ -688,7 +688,7 @@ (CONS |computeValue| NIL))))))) (COND (|cacheNameOrNil| - (SPADLET |putCode| + (setq |putCode| (CONS 'UNWIND-PROTECT (CONS (CONS 'PROG1 (CONS |putCode| @@ -708,8 +708,8 @@ NIL)) NIL)) NIL)))))) - (SPADLET |thirdPredPair| (CONS ''T (CONS |putCode| NIL))) - (SPADLET |codeBody| + (setq |thirdPredPair| (CONS ''T (CONS |putCode| NIL))) + (setq |codeBody| (CONS 'PROG (CONS (CONS |g2| NIL) (APPEND |callCountCode| @@ -721,10 +721,10 @@ (CONS |thirdPredPair| NIL))) NIL)) NIL))))) - (SPADLET |lamex| + (setq |lamex| (CONS 'LAM (CONS |arg| (CONS |codeBody| NIL)))) - (SPADLET |mainFunction| (CONS |op| (CONS |lamex| NIL))) - (SPADLET |computeFunction| + (setq |mainFunction| (CONS |op| (CONS |lamex| NIL))) + (setq |computeFunction| (CONS |auxfn| (CONS (CONS 'LAMBDA (CONS |argl| |body|)) NIL))) @@ -737,22 +737,22 @@ (|compileQuietly| (CONS |computeFunction| NIL)) (COND ((NULL |cacheNameOrNil|) - (SPADLET |cacheType| + (setq |cacheType| (COND (|countFl| '|hash-tableWithCounts|) ('T '|hash-table|))) - (SPADLET |weakStrong| + (setq |weakStrong| (COND (|countFl| 'STRONG) ('T 'WEAK))) - (SPADLET |cacheResetCode| + (setq |cacheResetCode| (CONS 'SETQ (CONS |cacheName| (CONS (CONS 'MAKE-HASHTABLE (CONS (MKQ |eqEtc|) NIL)) NIL)))) - (SPADLET |cacheCountCode| + (setq |cacheCountCode| (CONS '|hashCount| (CONS |cacheName| NIL))) - (SPADLET |cacheVector| + (setq |cacheVector| (|mkCacheVec| |op| |cacheName| |cacheType| |cacheResetCode| |cacheCountCode|)) (|LAM,EVALANDFILEACTQ| @@ -812,11 +812,11 @@ ((NULL (member |eqEtc| '(UEQUAL))) (|sayBrightly| "for hash option, only EQ, CVEC, and UEQUAL are allowed"))) - (SPADLET |auxfn| (INTERNL |op| ";")) - (SPADLET |g1| (GENSYM)) - (SPADLET |LETTMP#1| + (setq |auxfn| (INTERNL |op| ";")) + (setq |g1| (GENSYM)) + (setq |LETTMP#1| (PROGN - (SPADLET |application| + (setq |application| (COND ((NULL |argl|) (CONS |auxfn| NIL)) ((AND (CONSP |argl|) @@ -832,24 +832,24 @@ (CONS (CONS '|consForHashLookup| (CONS (MKQ |op|) (CONS |g1| NIL))) (CONS |application| NIL))))) - (SPADLET |arg| (CAR |LETTMP#1|)) - (SPADLET |cacheArgKey| (CADR |LETTMP#1|)) - (SPADLET |computeValue| (CADDR |LETTMP#1|)) - (SPADLET |g2| (GENSYM)) - (SPADLET |returnFoundValue| + (setq |arg| (CAR |LETTMP#1|)) + (setq |cacheArgKey| (CADR |LETTMP#1|)) + (setq |computeValue| (CADDR |LETTMP#1|)) + (setq |g2| (GENSYM)) + (setq |returnFoundValue| (COND (|countFl| (CONS '|CDRwithIncrement| (CONS |g2| NIL))) ('T |g2|))) - (SPADLET |getCode| + (setq |getCode| (CONS 'HGET (CONS |cacheName| (CONS |cacheArgKey| NIL)))) - (SPADLET |secondPredPair| + (setq |secondPredPair| (CONS (CONS 'SETQ (CONS |g2| (CONS |getCode| NIL))) (CONS |returnFoundValue| NIL))) - (SPADLET |putForm| + (setq |putForm| (CONS 'CONS (CONS (MKQ |op|) (CONS |g1| NIL)))) - (SPADLET |putCode| + (setq |putCode| (COND (|countFl| (CONS 'HPUT @@ -865,8 +865,8 @@ (CONS |cacheName| (CONS |putForm| (CONS |computeValue| NIL))))))) - (SPADLET |thirdPredPair| (CONS ''T (CONS |putCode| NIL))) - (SPADLET |codeBody| + (setq |thirdPredPair| (CONS ''T (CONS |putCode| NIL))) + (setq |codeBody| (CONS 'PROG (CONS (CONS |g2| NIL) (CONS (CONS 'RETURN @@ -876,10 +876,10 @@ (CONS |thirdPredPair| NIL))) NIL)) NIL)))) - (SPADLET |lamex| + (setq |lamex| (CONS 'LAM (CONS |arg| (CONS |codeBody| NIL)))) - (SPADLET |mainFunction| (CONS |op| (CONS |lamex| NIL))) - (SPADLET |computeFunction| + (setq |mainFunction| (CONS |op| (CONS |lamex| NIL))) + (setq |computeFunction| (CONS |auxfn| (CONS (CONS 'LAMBDA (CONS |argl| |body|)) NIL))) (|compileInteractive| |mainFunction|) @@ -920,7 +920,7 @@ (PROG (|u|) (RETURN (PROGN - (SPADLET |u| (OR (HGET |hashTable| |prop|) (RETURN NIL))) + (setq |u| (OR (HGET |hashTable| |prop|) (RETURN NIL))) (RPLACA |u| (QSADD1 (CAR |u|))) |u|)))) @@ -939,8 +939,8 @@ (PROGN (SETQ G2465 (CAR G2474)) NIL) (PROGN (PROGN - (SPADLET |fn| (CAR G2465)) - (SPADLET |kind| (CADR G2465)) + (setq |fn| (CAR G2465)) + (setq |kind| (CADR G2465)) G2465) NIL)) NIL) @@ -959,7 +959,7 @@ (PROG (|infovec|) (RETURN (PROGN - (SPADLET |infovec| + (setq |infovec| (OR (GETL |fn| '|cacheInfo|) (|keyedSystemError| (format nil "The cache for %1 cannot be cleared because that ~ @@ -997,7 +997,7 @@ (DECLARE (SPECIAL |$ConstructorCache|)) (RETURN (SEQ (COND - ((SPADLET |kind| (GETDATABASE |cname| 'CONSTRUCTORKIND)) + ((setq |kind| (GETDATABASE |cname| 'CONSTRUCTORKIND)) (EXIT (COND ((BOOT-EQUAL |kind| '|category|) (|clearCategoryCache| |cname|)) @@ -1036,14 +1036,14 @@ (GETDATABASE |name| 'CONSTRUCTORKIND) '|category|) (COND - ((BOUNDP (SPADLET |cacheName| + ((BOUNDP (setq |cacheName| (INTERNL (STRCONC (PNAME |name|) ";AL")))) (SET |cacheName| NIL)) ('T NIL)))) (COND - ((BOUNDP (SPADLET |cacheName| + ((BOUNDP (setq |cacheName| (INTERNL (STRCONC (PNAME |name|) ";CAT")))) @@ -1060,7 +1060,7 @@ (PROG (|cacheName|) (RETURN (PROGN - (SPADLET |cacheName| + (setq |cacheName| (INTERNL (STRCONC (PNAME |catName|) ";AL"))) (SET |cacheName| NIL))))) @@ -1077,11 +1077,11 @@ (PROG (|l| |a| |b|) (RETURN (SEQ (PROGN - (SPADLET |l| + (setq |l| (NREVERSE (SORTBY 'CAR (PROG (G2540) - (SPADLET G2540 NIL) + (setq G2540 NIL) (RETURN (DO ((G2545 (HKEYS |x|) @@ -1105,8 +1105,8 @@ (PROGN (SETQ G2531 (CAR G2557)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR G2531)) - (SPADLET |b| (CADR G2531)) + (setq |a| (CAR G2531)) + (setq |b| (CADR G2531)) G2531) NIL)) NIL) @@ -1134,9 +1134,9 @@ (PROGN (SETQ G2572 (CAR G2581)) NIL) (PROGN (PROGN - (SPADLET |fn| (CAR G2572)) - (SPADLET |kind| (CADR G2572)) - (SPADLET |u| (CDDR G2572)) + (setq |fn| (CAR G2572)) + (setq |kind| (CADR G2572)) + (setq |u| (CDDR G2572)) G2572) NIL)) NIL) @@ -1171,11 +1171,11 @@ (DECLARE (SPECIAL |$failed|)) (RETURN (SEQ (PROGN - (SPADLET |infovec| (GETL |fn| '|cacheInfo|)) - (SPADLET |circList| (|eval| (CADR |infovec|))) - (SPADLET |numberUsed| + (setq |infovec| (GETL |fn| '|cacheInfo|)) + (setq |circList| (|eval| (CADR |infovec|))) + (setq |numberUsed| (PROG (G2595) - (SPADLET G2595 0) + (setq G2595 0) (RETURN (DO ((|i| 1 (QSADD1 |i|)) (G2602 |circList| (CDR G2602)) @@ -1215,15 +1215,15 @@ (PROG (|a| |b|) (RETURN (SEQ (PROGN - (SPADLET |al| (NREVERSE (SORTBY 'CAR |al|))) + (setq |al| (NREVERSE (SORTBY 'CAR |al|))) (|sayBrightlyNT| '| #hits/#occurrences: |) (DO ((G2626 |al| (CDR G2626)) (G2617 NIL)) ((OR (ATOM G2626) (PROGN (SETQ G2617 (CAR G2626)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR G2617)) - (SPADLET |b| (CDR G2617)) + (setq |a| (CAR G2617)) + (setq |b| (CDR G2617)) G2617) NIL)) NIL) @@ -1255,15 +1255,15 @@ (PROGN (SETQ G2641 (CAR G2652)) NIL) (PROGN (PROGN - (SPADLET |x| (CAR G2641)) - (SPADLET |count| (CADR G2641)) + (setq |x| (CAR G2641)) + (setq |count| (CADR G2641)) G2641) NIL) (QSGREATERP |i| |len|) (NULL (NEQUAL |x| '|$failed|))) NIL) (SEQ (EXIT (COND - ((SPADLET |u| (|assoc| |count| |al|)) + ((setq |u| (|assoc| |count| |al|)) (RPLACD |u| (+ 1 (CDR |u|)))) ('T (COND @@ -1275,7 +1275,7 @@ (CONS '| | (CONS |count| (CONS '| | NIL)))) (|pp| |x|))) - (SPADLET |al| + (setq |al| (CONS (CONS |count| 1) |al|))))))) |al|))))) @@ -1293,11 +1293,11 @@ (PROG (|infovec| |hashTable| |hashValues|) (RETURN (SEQ (PROGN - (SPADLET |infovec| (GETL |fn| '|cacheInfo|)) - (SPADLET |hashTable| (|eval| (CADR |infovec|))) - (SPADLET |hashValues| + (setq |infovec| (GETL |fn| '|cacheInfo|)) + (setq |hashTable| (|eval| (CADR |infovec|))) + (setq |hashValues| (PROG (G2673) - (SPADLET G2673 NIL) + (setq G2673 NIL) (RETURN (DO ((G2678 (HKEYS |hashTable|) (CDR G2678)) @@ -1338,15 +1338,15 @@ (PROGN (SETQ G2692 (CAR G2700)) NIL) (PROGN (PROGN - (SPADLET |count| (CAR G2692)) + (setq |count| (CAR G2692)) G2692) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |u| (|assoc| |count| |al|)) + ((setq |u| (|assoc| |count| |al|)) (RPLACD |u| (+ 1 (CDR |u|)))) ('T - (SPADLET |al| + (setq |al| (CONS (CONS |count| 1) |al|))))))) |al|))))) @@ -1400,10 +1400,10 @@ (DECLARE (SPECIAL |$failed|)) (RETURN (SEQ (PROGN - (SPADLET |tail| '(0 . |$failed|)) - (SPADLET |l| + (setq |tail| '(0 . |$failed|)) + (setq |l| (PROG (G2740) - (SPADLET G2740 NIL) + (setq G2740 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) @@ -1432,18 +1432,18 @@ (PROG (|al| |val| |backPointer| |forwardPointer|) (RETURN (SEQ (PROGN - (SPADLET |al| (|eval| |cacheName|)) - (SPADLET |forwardPointer| |al|) - (SPADLET |val| NIL) + (setq |al| (|eval| |cacheName|)) + (setq |forwardPointer| |al|) + (setq |val| NIL) (DO ((G2759 NIL (EQ |forwardPointer| |al|))) (G2759 NIL) (SEQ (EXIT (COND ((FUNCALL |fn| (CAAR |forwardPointer|) |x|) (RETURN - (SPADLET |val| (CAR |forwardPointer|)))) + (setq |val| (CAR |forwardPointer|)))) ('T - (SPADLET |backPointer| |forwardPointer|) - (SPADLET |forwardPointer| + (setq |backPointer| |forwardPointer|) + (setq |forwardPointer| (CDR |forwardPointer|))))))) (COND (|val| |val|) @@ -1472,25 +1472,25 @@ (PROG (|al| |y| |val| |backPointer| |forwardPointer|) (RETURN (SEQ (PROGN - (SPADLET |al| (|eval| |cacheName|)) - (SPADLET |forwardPointer| |al|) - (SPADLET |val| NIL) + (setq |al| (|eval| |cacheName|)) + (setq |forwardPointer| |al|) + (setq |val| NIL) (DO ((G2779 NIL (EQ |forwardPointer| |al|))) (G2779 NIL) (SEQ (EXIT (COND ((FUNCALL |fn| (CAR - (SPADLET |y| + (setq |y| (CAR |forwardPointer|))) |x|) (COND ((NULL (EQ |forwardPointer| |al|)) (RPLACA |forwardPointer| (CAR |al|)) (RPLACA |al| |y|))) - (RETURN (SPADLET |val| |y|))) + (RETURN (setq |val| |y|))) ('T - (SPADLET |backPointer| |forwardPointer|) - (SPADLET |forwardPointer| + (setq |backPointer| |forwardPointer|) + (setq |forwardPointer| (CDR |forwardPointer|))))))) (COND (|val| |val|) @@ -1526,33 +1526,33 @@ |temp|) (RETURN (SEQ (PROGN - (SPADLET |forwardPointer| |al|) - (SPADLET |val| NIL) - (SPADLET |minCount| 10000) + (setq |forwardPointer| |al|) + (setq |val| NIL) + (setq |minCount| 10000) (DO ((G2801 NIL (EQ |forwardPointer| |al|))) (G2801 NIL) (SEQ (EXIT (COND ((FUNCALL |fn| (CAR - (SPADLET |y| + (setq |y| (CAR |forwardPointer|))) |x|) - (SPADLET |newFrontPointer| + (setq |newFrontPointer| |forwardPointer|) (RPLAC (CADR |y|) (QSADD1 (CADR |y|))) - (RETURN (SPADLET |val| |y|))) + (RETURN (setq |val| |y|))) ('T (COND - ((QSLESSP (SPADLET |c| (CADR |y|)) + ((QSLESSP (setq |c| (CADR |y|)) |minCount|) - (SPADLET |minCount| |c|) - (SPADLET |newFrontPointer| + (setq |minCount| |c|) + (setq |newFrontPointer| |forwardPointer|))) - (SPADLET |forwardPointer| + (setq |forwardPointer| (CDR |forwardPointer|))))))) (COND ((NULL (EQ |newFrontPointer| |al|)) - (SPADLET |temp| (CAR |newFrontPointer|)) + (setq |temp| (CAR |newFrontPointer|)) (RPLACA |newFrontPointer| (CAR |al|)) (RPLACA |al| |temp|))) |val|))))) @@ -1589,35 +1589,35 @@ (PROGN (SETQ G2822 (CAR G2836)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G2822)) - (SPADLET |kind| (CADR G2822)) + (setq |op| (CAR G2822)) + (setq |kind| (CADR G2822)) G2822) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |cacheVec| + (setq |cacheVec| (OR (GETL |op| '|cacheInfo|) (|systemErrorHere| '|clamStats|))) - (SPADLET |prefix| + (setq |prefix| (COND ((NEQUAL |$reportCounts| 'T) NIL) ('T - (SPADLET |hitCounter| + (setq |hitCounter| (INTERNL |op| ";hit")) - (SPADLET |callCounter| + (setq |callCounter| (INTERNL |op| ";calls")) - (SPADLET |res| + (setq |res| (CONS (|eval| |hitCounter|) (CONS '/ (CONS (|eval| |callCounter|) (CONS '|calls to | NIL))))) (SET |hitCounter| 0) (SET |callCounter| 0) |res|))) - (SPADLET |postString| + (setq |postString| (PROGN - (SPADLET |cacheValue| + (setq |cacheValue| (|eval| (CADR |cacheVec|))) (COND ((BOOT-EQUAL |kind| '|hash|) @@ -1627,7 +1627,7 @@ |cacheValue|) (CONS '|entries)| NIL)))) ('T - (SPADLET |empties| + (setq |empties| (|numberOfEmptySlots| (|eval| (CADR |cacheVec|)))) (COND @@ -1658,7 +1658,7 @@ (DECLARE (SPECIAL |$failed|)) (RETURN (SEQ (PROGN - (SPADLET |count| + (setq |count| (COND ((BOOT-EQUAL (CAAR |cache|) '|$failed|) 1) ('T 0))) @@ -1666,7 +1666,7 @@ ((OR (ATOM |x|) (NULL (NE |x| |cache|))) NIL) (SEQ (EXIT (COND ((BOOT-EQUAL (CAAR |x|) '|$failed|) - (SPADLET |count| (+ |count| 1))) + (setq |count| (+ |count| 1))) ('T NIL))))) |count|))))) @@ -1683,17 +1683,17 @@ (DECLARE (SPECIAL |$mutableDomain|)) (RETURN (SEQ (PROGN - (SPADLET |name| (CAR G2872)) - (SPADLET |argnames| (CDR G2872)) + (setq |name| (CAR G2872)) + (setq |argnames| (CDR G2872)) (COND (|$mutableDomain| (RETURN NIL)) ((NULL |argnames|) (|addToConstructorCache| |name| NIL |shell|)) ('T - (SPADLET |args| + (setq |args| (CONS 'LIST (PROG (G2885) - (SPADLET G2885 NIL) + (setq G2885 NIL) (RETURN (DO ((G2890 |argnames| (CDR G2890)) @@ -1759,11 +1759,11 @@ (|recordInstantiation| |op| |prop| NIL) (|stopTimingProcess| '|debug|))) (COND - ((SPADLET |u| (HGET |ht| |op|)) + ((setq |u| (HGET |ht| |op|)) (COND ((|assoc| |prop| |u|) |val|) ('T (RPLACD |u| (CONS (CAR |u|) (CDR |u|))) - (RPLACA |u| (CONS |prop| |val|)) (SPADLET |$op| |op|) + (RPLACA |u| (CONS |prop| |val|)) (setq |$op| |op|) (|listTruncate| |u| 20) |val|))) ('T (HPUT |ht| |op| (CONS (CONS |prop| |val|) NIL)) |val|)))))) @@ -1823,25 +1823,25 @@ ('T (COND ((BOOT-EQUAL |$reportEachInstantiation| 'T) - (SPADLET |trailer| + (setq |trailer| (COND (|dropIfTrue| " dropped") ('T " instantiated"))) (COND ((BOOT-EQUAL |$insideCoerceInteractive| 'T) - (SPADLET |$instantCoerceCount| + (setq |$instantCoerceCount| (+ 1 |$instantCoerceCount|)))) (COND ((AND (CONSP |$insideCanCoerceFrom|) (PROGN - (SPADLET |m1| (QCAR |$insideCanCoerceFrom|)) - (SPADLET |ISTMP#1| (QCDR |$insideCanCoerceFrom|)) + (setq |m1| (QCAR |$insideCanCoerceFrom|)) + (setq |ISTMP#1| (QCDR |$insideCanCoerceFrom|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |m2| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |m2| (QCAR |ISTMP#1|)) 'T))) (NULL |dropIfTrue|)) - (SPADLET |$instantCanCoerceCount| + (setq |$instantCanCoerceCount| (+ 1 |$instantCanCoerceCount|)) - (SPADLET |xtra| + (setq |xtra| (CONS " for " (CONS (|outputDomainConstructor| |m1|) (CONS "-->" @@ -1851,7 +1851,7 @@ (COND ((AND (BOOT-EQUAL |$insideEvalMmCondIfTrue| 'T) (NULL |dropIfTrue|)) - (SPADLET |$instantMmCondCount| + (setq |$instantMmCondCount| (+ |$instantMmCondCount| 1)))) (|typeTimePrin| (CONS 'CONCAT @@ -1860,20 +1860,20 @@ (CONS |trailer| |xtra|)))))) (COND ((NULL |$reportInstantiations|) NIL) - ((SPADLET |u| (HGET |$instantRecord| |op|)) + ((setq |u| (HGET |$instantRecord| |op|)) (COND - ((SPADLET |v| (LASSOC |prop| |u|)) + ((setq |v| (LASSOC |prop| |u|)) (COND (|dropIfTrue| (RPLAC (CDR |v|) (+ 1 (CDR |v|)))) ('T (RPLAC (CAR |v|) (+ 1 (CAR |v|)))))) ('T (RPLACD |u| (CONS (CAR |u|) (CDR |u|))) - (SPADLET |val| + (setq |val| (COND (|dropIfTrue| (CONS 0 1)) ('T (CONS 1 0)))) (RPLACA |u| (CONS |prop| |val|))))) ('T - (SPADLET |val| + (setq |val| (COND (|dropIfTrue| (CONS 0 1)) ('T (CONS 1 0)))) (HPUT |$instantRecord| |op| (CONS (CONS |prop| |val|) NIL))))))))) @@ -1907,9 +1907,9 @@ |$instantCoerceCount| |$instantRecord|)) (RETURN (SEQ (PROGN - (SPADLET |conList| + (setq |conList| (PROG (G2964) - (SPADLET G2964 NIL) + (setq G2964 NIL) (RETURN (DO ((G2973 (HKEYS |$instantRecord|) (CDR G2973)) @@ -1922,7 +1922,7 @@ (SEQ (EXIT (SETQ G2964 (APPEND G2964 (PROG (G2984) - (SPADLET G2984 NIL) + (setq G2984 NIL) (RETURN (DO ((G2990 @@ -1937,11 +1937,11 @@ NIL) (PROGN (PROGN - (SPADLET |argList| + (setq |argList| (CAR G2952)) - (SPADLET |n| + (setq |n| (CADR G2952)) - (SPADLET |m| + (setq |m| (CDDR G2952)) G2952) NIL)) @@ -1962,9 +1962,9 @@ (CONS "%l" (CONS "------------------------------------" NIL)))) - (SPADLET |nTotal| - (SPADLET |mTotal| - (SPADLET |rTotal| (SPADLET |nForms| 0)))) + (setq |nTotal| + (setq |mTotal| + (setq |rTotal| (setq |nForms| 0)))) (DO ((G3006 (NREVERSE (SORTBY 'CADDR |conList|)) (CDR G3006)) (G2958 NIL)) @@ -1972,21 +1972,21 @@ (PROGN (SETQ G2958 (CAR G3006)) NIL) (PROGN (PROGN - (SPADLET |n| (CAR G2958)) - (SPADLET |m| (CADR G2958)) - (SPADLET |form| (CADDR G2958)) + (setq |n| (CAR G2958)) + (setq |m| (CADR G2958)) + (setq |form| (CADDR G2958)) G2958) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |nTotal| (+ |nTotal| |n|)) - (SPADLET |mTotal| (+ |mTotal| |m|)) + (setq |nTotal| (+ |nTotal| |n|)) + (setq |mTotal| (+ |mTotal| |m|)) (COND ((> |n| 1) - (SPADLET |rTotal| + (setq |rTotal| (SPADDIFFERENCE (+ |rTotal| |n|) 1)))) - (SPADLET |nForms| (+ |nForms| 1)) + (setq |nForms| (+ |nForms| 1)) (|typeTimePrin| (CONS 'CONCATB (CONS |n| @@ -2048,9 +2048,9 @@ (PROG (|prop|) (RETURN (SEQ (PROGN - (SPADLET |prop| + (setq |prop| (PROG (G3038) - (SPADLET G3038 NIL) + (setq G3038 NIL) (RETURN (DO ((G3043 |argList| (CDR G3043)) (|x| NIL)) @@ -2083,12 +2083,12 @@ (DECLARE (SPECIAL |$op| |$reportInstantiations|)) (RETURN (SEQ (PROGN - (SPADLET |u| |l|) - (SPADLET |n| (QSSUB1 |n|)) + (setq |u| |l|) + (setq |n| (QSSUB1 |n|)) (DO () ((NULL (AND (NEQ |n| 0) (NULL (ATOM |u|)))) NIL) (SEQ (EXIT (PROGN - (SPADLET |n| (QSSUB1 |n|)) - (SPADLET |u| (QCDR |u|)))))) + (setq |n| (QSSUB1 |n|)) + (setq |u| (QCDR |u|)))))) (COND ((NULL (ATOM |u|)) (COND @@ -2116,12 +2116,12 @@ (PROG (|result| |y|) (RETURN (SEQ (PROGN - (SPADLET |y| |l|) + (setq |y| |l|) (DO () ((NULL (NULL (ATOM |y|))) NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |x| (CAR (QCAR |y|))) - (RETURN (SPADLET |result| (QCAR |y|)))) - ('T (SPADLET |y| (QCDR |y|))))))) + (RETURN (setq |result| (QCAR |y|)))) + ('T (setq |y| (QCDR |y|))))))) (COND (|result| (COND ((NEQ |y| |l|) (QRPLACA |y| (CAR |l|)) @@ -2147,12 +2147,12 @@ (PROG (|result| |y|) (RETURN (SEQ (PROGN - (SPADLET |y| |l|) + (setq |y| |l|) (DO () ((NULL (NULL (ATOM |y|))) NIL) (SEQ (EXIT (COND ((FUNCALL |fn| |x| (CAR (QCAR |y|))) - (RETURN (SPADLET |result| (QCAR |y|)))) - ('T (SPADLET |y| (QCDR |y|))))))) + (RETURN (setq |result| (QCAR |y|)))) + ('T (setq |y| (QCDR |y|))))))) (COND (|result| (COND ((NEQ |y| |l|) (QRPLACA |y| (CAR |l|)) @@ -2178,12 +2178,12 @@ (PROG (|result| |y|) (RETURN (SEQ (PROGN - (SPADLET |y| |l|) + (setq |y| |l|) (DO () ((NULL (NULL (ATOM |y|))) NIL) (SEQ (EXIT (COND ((EQ |x| (CAR (CAR |y|))) - (RETURN (SPADLET |result| (CAR |y|)))) - ('T (SPADLET |y| (CDR |y|))))))) + (RETURN (setq |result| (CAR |y|)))) + ('T (setq |y| (CDR |y|))))))) (COND (|result| (COND ((NEQ |y| |l|) (RPLACA |y| (CAR |l|)) @@ -2223,13 +2223,13 @@ (PROG (|keys| |u| |argList| |argList1| |reportList| |n| |fn| |args|) (RETURN (SEQ (PROGN - (SPADLET |keys| (HKEYS |x|)) + (setq |keys| (HKEYS |x|)) (DO ((G3141 |keys| (CDR G3141)) (|key| NIL)) ((OR (ATOM G3141) (PROGN (SETQ |key| (CAR G3141)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |u| (HGET |x| |key|)) + (setq |u| (HGET |x| |key|)) (DO ((G3151 |u| (CDR G3151)) (G3121 NIL)) ((OR (ATOM G3151) @@ -2238,9 +2238,9 @@ NIL) (PROGN (PROGN - (SPADLET |argList| + (setq |argList| (CAR G3121)) - (SPADLET |n| (CADR G3121)) + (setq |n| (CADR G3121)) G3121) NIL)) NIL) @@ -2251,9 +2251,9 @@ "%1 has the wrong format: the reference counts are missing." (CONS |x| NIL))) ('T - (SPADLET |argList1| + (setq |argList1| (PROG (G3162) - (SPADLET G3162 NIL) + (setq G3162 NIL) (RETURN (DO ((G3167 |argList| @@ -2272,7 +2272,7 @@ (|constructor2ConstructorForm| |x|) G3162)))))))) - (SPADLET |reportList| + (setq |reportList| (CONS (CONS |n| (CONS |key| @@ -2287,9 +2287,9 @@ (PROGN (SETQ G3127 (CAR G3179)) NIL) (PROGN (PROGN - (SPADLET |n| (CAR G3127)) - (SPADLET |fn| (CADR G3127)) - (SPADLET |args| (CADDR G3127)) + (setq |n| (CAR G3127)) + (setq |fn| (CADR G3127)) + (setq |args| (CADDR G3127)) G3127) NIL)) NIL) @@ -2320,7 +2320,7 @@ (PROG (SIZE) (RETURN (PROGN - (SPADLET SIZE (|#| (|atom2String| |x|))) + (setq SIZE (|#| (|atom2String| |x|))) (COND ((> SIZE |maxWidth|) (|keyedSystemError| "%1 is too large" (CONS |x| NIL))) @@ -2349,18 +2349,18 @@ (SEQ (PROGN (DO () ((NULL (AND |argl1| |argl2|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |item1| + (setq |item1| (|devaluate| (CAR |argl1|))) - (SPADLET |item2| (CAR |argl2|)) - (SPADLET |partsMatch| + (setq |item2| (CAR |argl2|)) + (setq |partsMatch| (COND ((BOOT-EQUAL |item1| |item2|) 'T) ('T NIL))) (COND ((NULL |partsMatch|) (RETURN NIL)) - ('T (SPADLET |argl1| (CDR |argl1|)) - (SPADLET |argl2| (CDR |argl2|)))))))) + ('T (setq |argl1| (CDR |argl1|)) + (setq |argl2| (CDR |argl2|)))))))) (COND ((OR |argl1| |argl2|) NIL) ('T 'T))))))) ;removeAllClams() == @@ -2378,7 +2378,7 @@ ((OR (ATOM G3239) (PROGN (SETQ G3230 (CAR G3239)) NIL) (PROGN - (PROGN (SPADLET |fun| (CAR G3230)) G3230) + (PROGN (setq |fun| (CAR G3230)) G3230) NIL)) NIL) (SEQ (EXIT (PROGN diff --git a/src/interp/clammed.lisp.pamphlet b/src/interp/clammed.lisp.pamphlet index 63356ca..33d3a24 100644 --- a/src/interp/clammed.lisp.pamphlet +++ b/src/interp/clammed.lisp.pamphlet @@ -43,7 +43,7 @@ (DECLARE (SPECIAL |$insideCanCoerceFrom|)) (RETURN (PROGN - (SPADLET |$insideCanCoerceFrom| (CONS |mr| (CONS |m| NIL))) + (setq |$insideCanCoerceFrom| (CONS |mr| (CONS |m| NIL))) (|canCoerceFrom0| |mr| |m|))))) (PUT '|canCoerceFrom| '|cacheInfo| @@ -81,9 +81,9 @@ (PROG (|val| |newMode|) (RETURN (COND - ((SPADLET |val| (|canCoerce1| |t1| |t2|)) |val|) + ((setq |val| (|canCoerce1| |t1| |t2|)) |val|) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Variable|)) - (SPADLET |newMode| (|getMinimalVarMode| |t1| NIL)) + (setq |newMode| (|getMinimalVarMode| |t1| NIL)) (AND (|canCoerce1| |t1| |newMode|) (|canCoerce1| |newMode| |t2|))) ('T NIL))))) @@ -127,14 +127,14 @@ (DECLARE (SPECIAL |$declaredMode| |$reportBottomUpFlag|)) (RETURN (SEQ (PROGN - (SPADLET |$declaredMode| NIL) - (SPADLET |$reportBottomUpFlag| NIL) - (SPADLET |l| + (setq |$declaredMode| NIL) + (setq |$reportBottomUpFlag| NIL) + (setq |l| (|selectMms1| |funName| |m2| (CONS |m1| NIL) (CONS |m1| NIL) NIL)) - (SPADLET |mmS| + (setq |mmS| (PROG (G166113) - (SPADLET G166113 NIL) + (setq G166113 NIL) (RETURN (DO ((G166119 |l| (CDR G166119)) (|x| NIL)) @@ -146,27 +146,27 @@ (SEQ (EXIT (COND ((AND (CONSP |x|) (PROGN - (SPADLET |sig| (QCAR |x|)) + (setq |sig| (QCAR |x|)) 'T) (|hasCorrectTarget| |m2| |sig|) (CONSP |sig|) (PROGN - (SPADLET |dc| + (setq |dc| (QCAR |sig|)) - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |sig|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |targ| + (setq |targ| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |oarg| + (setq |oarg| (QCAR |ISTMP#2|)) 'T))))) (|isEqualOrSubDomain| |m1| @@ -286,9 +286,9 @@ '((|Mode|) (|Domain|) (|SubDomain| (|Domain|)))) 'T) ((AND (CONSP |form|) (EQ (QCAR |form|) '|Record|) - (PROGN (SPADLET |selectors| (QCDR |form|)) 'T)) + (PROGN (setq |selectors| (QCDR |form|)) 'T)) (PROG (G166262) - (SPADLET G166262 'T) + (setq G166262 'T) (RETURN (DO ((G166269 NIL (NULL G166262)) (G166270 |selectors| (CDR G166270)) @@ -299,8 +299,8 @@ NIL) (PROGN (PROGN - (SPADLET |LETTMP#1| (REVERSE G166158)) - (SPADLET |type| (CAR |LETTMP#1|)) + (setq |LETTMP#1| (REVERSE G166158)) + (setq |type| (CAR |LETTMP#1|)) G166158) NIL)) G166262) @@ -308,10 +308,10 @@ (AND G166262 (|isValidType| |type|))))))))) ((AND (CONSP |form|) (EQ (QCAR |form|) '|Enumeration|) - (PROGN (SPADLET |args| (QCDR |form|)) 'T)) + (PROGN (setq |args| (QCDR |form|)) 'T)) (COND ((NULL (PROG (G166278) - (SPADLET G166278 'T) + (setq G166278 'T) (RETURN (DO ((G166284 NIL (NULL G166278)) (G166285 |args| (CDR G166285)) @@ -327,12 +327,12 @@ ((BOOT-EQUAL (|#| |args|) (|#| (REMDUP |args|))) 'T) ('T NIL))) ((AND (CONSP |form|) (EQ (QCAR |form|) '|Mapping|) - (PROGN (SPADLET |mapargs| (QCDR |form|)) 'T)) + (PROGN (setq |mapargs| (QCDR |form|)) 'T)) (COND ((NULL |mapargs|) NIL) ('T (PROG (G166292) - (SPADLET G166292 'T) + (setq G166292 'T) (RETURN (DO ((G166298 NIL (NULL G166292)) (G166299 |mapargs| (CDR G166299)) @@ -346,15 +346,15 @@ (AND G166292 (|isValidType| |type|))))))))))) ((AND (CONSP |form|) (EQ (QCAR |form|) '|Union|) - (PROGN (SPADLET |args| (QCDR |form|)) 'T)) + (PROGN (setq |args| (QCDR |form|)) 'T)) (COND ((AND |args| (PROGN - (SPADLET |ISTMP#1| (CAR |args|)) + (setq |ISTMP#1| (CAR |args|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|:|)))) (PROG (G166306) - (SPADLET G166306 'T) + (setq G166306 'T) (RETURN (DO ((G166313 NIL (NULL G166306)) (G166314 |args| (CDR G166314)) @@ -365,9 +365,9 @@ NIL) (PROGN (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (REVERSE G166166)) - (SPADLET |type| (CAR |LETTMP#1|)) + (setq |type| (CAR |LETTMP#1|)) G166166) NIL)) G166306) @@ -375,7 +375,7 @@ (AND G166306 (|isValidType| |type|))))))))) ((NULL (PROG (G166322) - (SPADLET G166322 'T) + (setq G166322 'T) (RETURN (DO ((G166328 NIL (NULL G166322)) (G166329 |args| (CDR G166329)) @@ -397,59 +397,59 @@ the same type more than once.") (cons |form| nil)) nil))) ('T - (SPADLET |badDoubles| + (setq |badDoubles| (CONS |$QuotientField| '(|Gaussian| |Complex| |Polynomial| |Expression|))) (COND ((AND (CONSP |form|) (PROGN - (SPADLET T1 (QCAR |form|)) - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq T1 (QCAR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET T2 (QCAR |ISTMP#2|)) + (setq T2 (QCAR |ISTMP#2|)) 'T))))) (BOOT-EQUAL T1 T2) (|member| T1 |badDoubles|)) NIL) ((AND (CONSP |form|) (EQUAL (QCAR |form|) |$QuotientField|) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET D (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq D (QCAR |ISTMP#1|)) 'T))) (NULL (|isPartialMode| D)) (|ofCategory| D '(|Field|))) NIL) ((AND (CONSP |form|) (EQ (QCAR |form|) '|UnivariatePolynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |x| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |x| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCAR |ISTMP#3|) '|UnivariatePolynomial|) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |y| + (setq |y| (QCAR |ISTMP#4|)) - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL))))))))))) @@ -459,46 +459,46 @@ NIL) ((AND (CONSP |form|) (EQ (QCAR |form|) '|Expression|) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) '|Kernel|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL)))))))) NIL) ((AND (CONSP |form|) (PROGN - (SPADLET |op| (QCAR |form|)) - (SPADLET |argl| (QCDR |form|)) + (setq |op| (QCAR |form|)) + (setq |argl| (QCDR |form|)) 'T)) (COND ((NULL (|constructor?| |op|)) NIL) - ('T (SPADLET |cosig| (GETDATABASE |op| 'COSIG)) + ('T (setq |cosig| (GETDATABASE |op| 'COSIG)) (COND ((AND |cosig| (NULL (CDR |cosig|))) (COND ((NULL |argl|) 'T) ('T NIL))) - ((NULL (SPADLET |sig| + ((NULL (setq |sig| (|getConstructorSignature| |form|))) NIL) - ('T (SPADLET |cl| (CDR |sig|)) + ('T (setq |cl| (CDR |sig|)) (COND ((AND (NEQUAL (|#| |cl|) (|#| |argl|)) (GENSYMP (|last| |argl|))) - (SPADLET |argl| + (setq |argl| (DROP (SPADDIFFERENCE 1) |argl|)))) (COND ((NEQUAL (|#| |cl|) (|#| |argl|)) NIL) ('T - (SPADLET |cl| (|replaceSharps| |cl| |form|)) + (setq |cl| (|replaceSharps| |cl| |form|)) (PROG (G166336) - (SPADLET G166336 'T) + (setq G166336 'T) (RETURN (DO ((G166343 NIL (NULL G166336)) (G166344 |argl| (CDR G166344)) @@ -615,7 +615,7 @@ (PROGN (|startTimingProcess| '|resolve|) (COND - ((NULL (SPADLET |t| (|resolveTT1| |t1| |t2|))) + ((NULL (setq |t| (|resolveTT1| |t1| |t2|))) (|stopTimingProcess| '|resolve|) NIL) ((|isValidType| |t|) (|stopTimingProcess| '|resolve|) |t|) @@ -700,45 +700,45 @@ ((STRINGP |t|) 'T) ((ATOM |t|) NIL) ('T - (SPADLET |badDoubles| + (setq |badDoubles| (CONS |$QuotientField| '(|Gaussian| |Complex| |Polynomial| |Expression|))) (COND ((AND (CONSP |t|) (PROGN - (SPADLET T1 (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq T1 (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET T2 (QCAR |ISTMP#2|)) + (setq T2 (QCAR |ISTMP#2|)) 'T))))) (BOOT-EQUAL T1 T2) (|member| T1 |badDoubles|)) NIL) ((AND (CONSP |t|) (EQUAL (QCAR |t|) |$QuotientField|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET D (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq D (QCAR |ISTMP#1|)) 'T))) (NULL (|isPartialMode| D)) (|ofCategory| D '(|Field|))) NIL) ((BOOT-EQUAL |t| '(|Complex| (|AlgebraicNumber|))) NIL) ('T (SEQ (COND - ((SPADLET |vl| (|isPolynomialMode| |t|)) + ((setq |vl| (|isPolynomialMode| |t|)) (PROGN (COND ((NEQUAL |vl| '|all|) (COND - ((SPADLET |var| + ((setq |var| (PROG (G166460) - (SPADLET G166460 NIL) + (setq G166460 NIL) (RETURN (DO ((G166466 NIL @@ -766,12 +766,12 @@ ((|listOfDuplicates| |vl|) (RETURN NIL)) ('T - (SPADLET |polyVarList| + (setq |polyVarList| (|union| |vl| |polyVarList|)))))) (COND (|hasPolyMode| NIL) - ('T (SPADLET |con| (CAR |t|)) - (SPADLET |poly?| + ('T (setq |con| (CAR |t|)) + (setq |poly?| (OR (BOOT-EQUAL |con| '|Polynomial|) @@ -785,7 +785,7 @@ |hasPolyMode| |polyVarList|) (EXIT |t|)))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Mapping|) - (PROGN (SPADLET |ml| (QCDR |t|)) 'T)) + (PROGN (setq |ml| (QCDR |t|)) 'T)) (COND ((NULL |ml|) NIL) ((NULL (|isLegitimateMode| (CAR |ml|) NIL @@ -809,16 +809,16 @@ (RETURN NIL)))))) 'T))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Union|) - (PROGN (SPADLET |ml| (QCDR |t|)) 'T)) + (PROGN (setq |ml| (QCDR |t|)) 'T)) (COND ((AND |ml| (PROGN - (SPADLET |ISTMP#1| (CAR |ml|)) + (setq |ISTMP#1| (CAR |ml|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|:|)))) (|isLegitimateRecordOrTaggedUnion| |ml|)) ((NULL (PROG (G166483) - (SPADLET G166483 'T) + (setq G166483 'T) (RETURN (DO ((G166489 NIL @@ -842,14 +842,14 @@ 'T) ('T NIL))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Record|) - (PROGN (SPADLET |r| (QCDR |t|)) 'T)) + (PROGN (setq |r| (QCDR |t|)) 'T)) (|isLegitimateRecordOrTaggedUnion| |r|)) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Enumeration|) - (PROGN (SPADLET |r| (QCDR |t|)) 'T)) + (PROGN (setq |r| (QCDR |t|)) 'T)) (COND ((NULL (PROG (G166497) - (SPADLET G166497 'T) + (setq G166497 'T) (RETURN (DO ((G166503 NIL @@ -905,10 +905,10 @@ (COND ((BOOT-EQUAL |t| |$RationalNumber|) |$Integer|) ((NULL (CONSP |t|)) NIL) - ('T (SPADLET |d| (|deconstructT| |t|)) + ('T (setq |d| (|deconstructT| |t|)) (COND ((EQL 1 (|#| |d|)) NIL) - ((SPADLET |u| (|getUnderModeOf| |t|)) |u|) + ((setq |u| (|getUnderModeOf| |t|)) |u|) ('T (|last| |d|)))))))) (PUT '|underDomainOf| '|cacheInfo| diff --git a/src/interp/compress.lisp.pamphlet b/src/interp/compress.lisp.pamphlet index a8ed532..6ebd1bb 100644 --- a/src/interp/compress.lisp.pamphlet +++ b/src/interp/compress.lisp.pamphlet @@ -48,20 +48,20 @@ (PROG (|y|) (DECLARE (SPECIAL |$hash|)) (RETURN - (SEQ (SPADLET |y| (HGET |$hash| |x|)) (IF |y| (EXIT |y|)) + (SEQ (setq |y| (HGET |$hash| |x|)) (IF |y| (EXIT |y|)) (HPUT |$hash| |x| |x|) (EXIT |x|))))) (DEFUN |minimalise,min| (|x|) (PROG (|y| |z|) (DECLARE (SPECIAL |$hash|)) (RETURN - (SEQ (SPADLET |y| (HGET |$hash| |x|)) (IF |y| (EXIT |y|)) + (SEQ (setq |y| (HGET |$hash| |x|)) (IF |y| (EXIT |y|)) (IF (CONSP |x|) (EXIT (SEQ (IF (BOOT-EQUAL |x| ''T) (EXIT ''T)) - (SPADLET |z| (|minimalise,min| (CAR |x|))) + (setq |z| (|minimalise,min| (CAR |x|))) (IF (NULL (EQ |z| (CAR |x|))) (RPLACA |x| |z|) NIL) - (SPADLET |z| (|minimalise,min| (CDR |x|))) + (setq |z| (|minimalise,min| (CDR |x|))) (IF (NULL (EQ |z| (CDR |x|))) (RPLACD |x| |z|) NIL) (EXIT (|minimalise,HashCheck| |x|))))) @@ -81,7 +81,7 @@ (DECLARE (SPECIAL |$hash|)) (RETURN (PROGN - (SPADLET |$hash| (MAKE-HASHTABLE 'UEQUAL)) + (setq |$hash| (MAKE-HASHTABLE 'UEQUAL)) (|minimalise,min| |x|) |x|)))) diff --git a/src/interp/format.lisp.pamphlet b/src/interp/format.lisp.pamphlet index 1ec5ab5..367a3e3 100644 --- a/src/interp/format.lisp.pamphlet +++ b/src/interp/format.lisp.pamphlet @@ -664,7 +664,7 @@ code which fixes bug 7217 bad title generated in Axiom 3D output. (DEFUN |reportOpSymbol,sayMms| (|op| |mms| |label|) (PROG (|m|) (RETURN - (SEQ (SPADLET |m| (|#| |mms|)) + (SEQ (setq |m| (|#| |mms|)) (|sayMSG| (SEQ (IF (EQL |m| 1) (EXIT (CONS "There is one" @@ -690,14 +690,14 @@ code which fixes bug 7217 bad title generated in Axiom 3D output. |docs|) (RETURN (SEQ (PROGN - (SPADLET |op| + (setq |op| (COND ((STRINGP |op1|) (INTERN |op1|)) ('T |op1|))) - (SPADLET |modemaps| + (setq |modemaps| (|getAllModemapsFromDatabase| |op| NIL)) (COND - ((NULL |modemaps|) (SPADLET |ok| 'T) + ((NULL |modemaps|) (setq |ok| 'T) (|sayKeyedMsg| (format nil "%1 is not a known function. Axiom will try to list its ~ @@ -707,7 +707,7 @@ code which fixes bug 7217 bad title generated in Axiom 3D output. (CONS |op1| NIL)) (COND ((> 3 (SIZE (PNAME |op1|))) - (SPADLET |x| + (setq |x| (UPCASE (|queryUserKeyedMsg| (format nil "%l There are possibly a great many ~ @@ -718,7 +718,7 @@ code which fixes bug 7217 bad title generated in Axiom 3D output. (COND ((NULL (member (STRING2ID-N |x| 1) '(Y YES))) (PROGN - (SPADLET |ok| NIL) + (setq |ok| NIL) (|sayKeyedMsg| (format nil "Since you did not respond with y or yes the list ~ @@ -726,21 +726,21 @@ code which fixes bug 7217 bad title generated in Axiom 3D output. displayed.") (CONS |op1| NIL))))))) (COND (|ok| (|apropos| (CONS |op1| NIL))))) - ('T (terpri) (SPADLET |mmsE| (SPADLET |mmsU| NIL)) - (SPADLET |domlist| NIL) + ('T (terpri) (setq |mmsE| (setq |mmsU| NIL)) + (setq |domlist| NIL) (DO ((G166497 |modemaps| (CDR G166497)) (|mm| NIL)) ((OR (ATOM G166497) (PROGN (SETQ |mm| (CAR G166497)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |dom| (|getDomainFromMm| |mm|)) + (setq |dom| (|getDomainFromMm| |mm|)) (PUSHNEW |dom| |domlist|) (COND ((OR (|isFreeFunctionFromMm| |mm|) (|isExposedConstructor| |dom|)) - (SPADLET |mmsE| (CONS |mm| |mmsE|))) + (setq |mmsE| (CONS |mm| |mmsE|))) ('T - (SPADLET |mmsU| (CONS |mm| |mmsU|)))))))) + (setq |mmsU| (CONS |mm| |mmsU|)))))))) (COND (|mmsE| (|reportOpSymbol,sayMms| |op| |mmsE| "exposed"))) @@ -754,10 +754,10 @@ code which fixes bug 7217 bad title generated in Axiom 3D output. (PROGN (SETQ |adom| (CAR G166512)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |doc| + (setq |doc| (GETDATABASE |adom| 'DOCUMENTATION)) - (SPADLET |docs| + (setq |docs| (CDR (|assoc| |op| |doc|))) (terpri) (|sayBrightly| diff --git a/src/interp/fortcall.lisp.pamphlet b/src/interp/fortcall.lisp.pamphlet index 322ea3a..eb327f7 100644 --- a/src/interp/fortcall.lisp.pamphlet +++ b/src/interp/fortcall.lisp.pamphlet @@ -33,14 +33,14 @@ (DEFUN |makeFort,untangle2| (|u|) (PROG (|v|) (RETURN - (SEQ (IF (ATOM (SPADLET |v| (CDR |u|))) (EXIT |v|)) + (SEQ (IF (ATOM (setq |v| (CDR |u|))) (EXIT |v|)) (EXIT (CAR |v|)))))) (DEFUN |makeFort,untangle| (|u|) (PROG () (RETURN (SEQ (PROG (G166067) - (SPADLET G166067 NIL) + (setq G166067 NIL) (RETURN (DO ((G166072 |u| (CDR G166072)) (|v| NIL)) ((OR (ATOM G166072) @@ -49,7 +49,7 @@ (SEQ (EXIT (SETQ G166067 (CONS (IF (ATOM (CDR |v|)) (CDR |v|) (PROG (G166082) - (SPADLET G166082 NIL) + (setq G166082 NIL) (RETURN (DO ((G166087 (CDR |v|) @@ -75,9 +75,9 @@ (PROG (|dummies| |userArgs|) (RETURN (SEQ (PROGN - (SPADLET |dummies| + (setq |dummies| (PROG (G166105) - (SPADLET G166105 NIL) + (setq G166105 NIL) (RETURN (DO ((G166111 |args| (CDR G166111)) (|u| NIL)) @@ -91,9 +91,9 @@ (SETQ G166105 (CONS (SECOND |u|) G166105)))))))))) - (SPADLET |args| + (setq |args| (PROG (G166121) - (SPADLET G166121 NIL) + (setq G166121 NIL) (RETURN (DO ((G166126 |args| (CDR G166126)) (|u| NIL)) @@ -106,9 +106,9 @@ (CONS (|makeFort,untangle2| |u|) G166121)))))))) - (SPADLET |userArgs| + (setq |userArgs| (PROG (G166137) - (SPADLET G166137 NIL) + (setq G166137 NIL) (RETURN (DO ((G166143 |args| (CDR G166143)) (|u| NIL)) @@ -122,9 +122,9 @@ (|member| |u| |dummies|)) (SETQ G166137 (CONS |u| G166137)))))))))) - (SPADLET |decls| + (setq |decls| (PROG (G166153) - (SPADLET G166153 NIL) + (setq G166153 NIL) (RETURN (DO ((G166158 |decls| (CDR G166158)) (|u| NIL)) @@ -163,9 +163,9 @@ (declare (special |$fortranDirectory|)) (RETURN (SEQ (PROGN - (SPADLET |asps| + (setq |asps| (PROG (G166180) - (SPADLET G166180 NIL) + (setq G166180 NIL) (RETURN (DO ((G166185 |aspInfo| (CDR G166185)) (|u| NIL)) @@ -176,9 +176,9 @@ (NREVERSE0 G166180)) (SEQ (EXIT (SETQ G166180 (CONS (CAR |u|) G166180)))))))) - (SPADLET |scalarArgs| + (setq |scalarArgs| (PROG (G166196) - (SPADLET G166196 NIL) + (setq G166196 NIL) (RETURN (DO ((G166202 |args| (CDR G166202)) (|u| NIL)) @@ -193,9 +193,9 @@ |decls|)) (SETQ G166196 (CONS |u| G166196)))))))))) - (SPADLET |arrayArgs| + (setq |arrayArgs| (PROG (G166213) - (SPADLET G166213 NIL) + (setq G166213 NIL) (RETURN (DO ((G166219 |args| (CDR G166219)) (|u| NIL)) @@ -209,8 +209,8 @@ (|member| |u| |scalarArgs|)) (SETQ G166213 (CONS |u| G166213)))))))))) - (SPADLET |orderedArgs| (APPEND |scalarArgs| |arrayArgs|)) - (SPADLET |file| + (setq |orderedArgs| (APPEND |scalarArgs| |arrayArgs|)) + (setq |file| (COND (|$fortranDirectory| (STRCONC |$fortranDirectory| '/ @@ -240,11 +240,11 @@ (declare (special |$fortranLibraries|)) (RETURN (PROGN - (SPADLET |fp| + (setq |fp| (MAKE-OUTSTREAM (STRCONC |file| (INTERN ".c" "BOOT")))) (|writeCFile| |name| |args| |fortranArgs| |dummies| |decls| |results| |returnType| |asps| |fp|) - (COND ((NULL |dir|) (SPADLET |dir| "."))) + (COND ((NULL |dir|) (setq |dir| "."))) (COND (|asps| (SYSTEM (STRCONC '|cc -c | |file| (INTERN ".c ; mv " "BOOT") |file| @@ -336,11 +336,11 @@ (WRITE-LINE " {" |fp|) (COND (|$addUnderscoreToFortranNames| - (SPADLET |routineName| (STRCONC |name| (STRING 95)))) - ('T (SPADLET |routineName| |name|))) + (setq |routineName| (STRCONC |name| (STRING 95)))) + ('T (setq |routineName| |name|))) (COND (|returnType| - (SPADLET |returnName| + (setq |returnName| (INTERN (STRCONC |name| '|_result|))) (|wl| (CONS " " (CONS (|getCType| |returnType|) @@ -350,13 +350,13 @@ (CONS |routineName| (CONS "();" NIL))))))) |fp|))) - (SPADLET |argList| NIL) + (setq |argList| NIL) (DO ((G166252 |args| (CDR G166252)) (|a| NIL)) ((OR (ATOM G166252) (PROGN (SETQ |a| (CAR G166252)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |argList| + (setq |argList| (CONS (CONS |a| (CONS @@ -366,7 +366,7 @@ |argList|)) (|printDec| (SECOND (CAR |argList|)) |a| |asps| |fp|))))) - (SPADLET |argList| (NREVERSE |argList|)) + (setq |argList| (NREVERSE |argList|)) (WRITE-LINE" xdrstdio_create(&xdrs, stdin, XDR_DECODE);" |fp|) (DO ((G166263 |argList| (CDR G166263)) (|a| NIL)) @@ -456,7 +456,7 @@ (DEFUN |isString?| (|u| |decls|) (PROG (|ty|) (RETURN - (OR (BOOT-EQUAL (SPADLET |ty| (|getFortranType| |u| |decls|)) + (OR (BOOT-EQUAL (setq |ty| (|getFortranType| |u| |decls|)) '|character|) (AND (LISTP |ty|) (BOOT-EQUAL (CAR |ty|) '|character|)))))) @@ -468,7 +468,7 @@ (PROG (|ty|) (RETURN (PROGN - (SPADLET |ty| (|getFortranType| |u| |decls|)) + (setq |ty| (|getFortranType| |u| |decls|)) (OR (LISTP |ty|) (|member| |ty| (CONS '|character| @@ -506,7 +506,7 @@ (PROG (|result|) (RETURN (SEQ (PROGN - (SPADLET |result| NIL) + (setq |result| NIL) (DO ((G166329 |decls| (CDR G166329)) (|d| NIL)) ((OR (ATOM G166329) (PROGN (SETQ |d| (CAR G166329)) NIL)) @@ -522,12 +522,12 @@ ((AND (ATOM |dec|) (BOOT-EQUAL |dec| |u|)) (RETURN - (SPADLET |result| + (setq |result| (CAR |d|)))) ((AND (LISTP |dec|) (BOOT-EQUAL (CAR |dec|) |u|)) (RETURN - (SPADLET |result| + (setq |result| (CONS (CAR |d|) (CDR |dec|)))))))))))) (COND @@ -589,7 +589,7 @@ (PROG (|ty|) (RETURN (COND - ((LISTP (SPADLET |ty| (SECOND |t|))) + ((LISTP (setq |ty| (SECOND |t|))) (COND ((BOOT-EQUAL (CAR |ty|) "char") "wrapstring") @@ -654,7 +654,7 @@ (PROG (|underscore| |ty|) (RETURN (PROGN - (SPADLET |underscore| (STRING (CHAR '|_:| 0))) + (setq |underscore| (STRING (CHAR '|_:| 0))) (|wt| (CONS " CHECK(xdr" (CONS |underscore| (CONS (|XDRFun| |v|) @@ -664,7 +664,7 @@ (CONS (CAR |v|) NIL))))))) |fp|) (COND - ((AND (LISTP (SPADLET |ty| (SECOND |v|))) + ((AND (LISTP (setq |ty| (SECOND |v|))) (NULL (BOOT-EQUAL (CAR |ty|) "char"))) (|wt| (CONS ",&" (CONS (CAR |v|) @@ -724,7 +724,7 @@ (|prefix2Infix| (CAR |dims|)) (APPEND (PROG (G166377) - (SPADLET G166377 NIL) + (setq G166377 NIL) (RETURN (DO ((G166382 (CDR |dims|) @@ -871,7 +871,7 @@ (SEQ (IF (ATOM |u|) (EXIT (CONS 'QUOTE (CONS |u| NIL)))) (EXIT (CONS '|construct| (PROG (G166427) - (SPADLET G166427 NIL) + (setq G166427 NIL) (RETURN (DO ((G166432 |u| (CDR G166432)) (|v| NIL)) @@ -888,7 +888,7 @@ (PROG () (RETURN (SEQ (PROG (G166447) - (SPADLET G166447 NIL) + (setq G166447 NIL) (RETURN (DO ((G166452 |l| (CDR G166452)) (|u| NIL)) ((OR (ATOM G166452) @@ -910,12 +910,12 @@ (PROG (|outputList|) (RETURN (SEQ (PROGN - (SPADLET |outputList| NIL) + (setq |outputList| NIL) (DO ((G166466 |l| (CDR G166466)) (|u| NIL)) ((OR (ATOM G166466) (PROGN (SETQ |u| (CAR G166466)) NIL)) NIL) - (SEQ (EXIT (SPADLET |outputList| + (SEQ (EXIT (setq |outputList| (APPEND |outputList| (CONS (COND @@ -972,7 +972,7 @@ |decPar| |fargNames| |resPar| |call| |aspId| |body|) (RETURN (SEQ (PROGN - (SPADLET |fType| + (setq |fType| (CONS '|List| (CONS (CONS '|Record| (CONS @@ -987,16 +987,16 @@ NIL))) (COND (|returnType| - (SPADLET |returnName| + (setq |returnName| (INTERN (STRCONC |name| '|Result|))) - (SPADLET |decls| + (setq |decls| (CONS (CONS |returnType| (CONS |returnName| NIL)) |decls|)) - (SPADLET |results| (CONS |returnName| |results|)))) - (SPADLET |argNames| + (setq |results| (CONS |returnName| |results|)))) + (setq |argNames| (PROG (G166484) - (SPADLET G166484 NIL) + (setq G166484 NIL) (RETURN (DO ((G166489 |userArgs| (CDR G166489)) (|u| NIL)) @@ -1011,9 +1011,9 @@ (STRCONC (STRINGIMAGE |u|) "_arg")) G166484)))))))) - (SPADLET |aType| + (setq |aType| (PROG (G166499) - (SPADLET G166499 NIL) + (setq G166499 NIL) (RETURN (DO ((G166504 |userArgs| (CDR G166504)) (|a| NIL)) @@ -1027,9 +1027,9 @@ (|axiomType| |a| |decls| |asps| |aspInfo|) G166499)))))))) - (SPADLET |aspTypes| + (setq |aspTypes| (PROG (G166514) - (SPADLET G166514 NIL) + (setq G166514 NIL) (RETURN (DO ((G166519 |asps| (CDR G166519)) (|u| NIL)) @@ -1045,15 +1045,15 @@ (POSITION |u| |userArgs|) |aType|)) G166514)))))))) - (SPADLET |nilLst| (MAKE-LIST (+ (|#| |args|) 1))) - (SPADLET |decPar| + (setq |nilLst| (MAKE-LIST (+ (|#| |args|) 1))) + (setq |decPar| (CONS (CONS '|$elt| (CONS '|Lisp| (CONS '|construct| NIL))) (|makeLispList| |decls|))) - (SPADLET |fargNames| + (setq |fargNames| (PROG (G166530) - (SPADLET G166530 NIL) + (setq G166530 NIL) (RETURN (DO ((G166536 |args| (CDR G166536)) (|u| NIL)) @@ -1076,13 +1076,13 @@ ((OR (ATOM G166545) (PROGN (SETQ |u| (CAR G166545)) NIL)) NIL) - (SEQ (EXIT (SPADLET |fargNames| + (SEQ (EXIT (setq |fargNames| (|delete| (INTERN (STRCONC (STRINGIMAGE |u|) "_arg")) |fargNames|))))) - (SPADLET |resPar| + (setq |resPar| (CONS '|construct| (CONS (CONS '@ (CONS @@ -1093,7 +1093,7 @@ (CONS (CONS '|Any| NIL) NIL)) NIL))) NIL))) - (SPADLET |call| + (setq |call| (CONS (CONS '|$elt| (CONS '|Lisp| (CONS '|invokeFortran| NIL))) @@ -1120,11 +1120,11 @@ (|mkQuote| |results|)) (CONS |resPar| NIL)))))))) (COND - (|asps| (SPADLET |aspId| + (|asps| (setq |aspId| (STRCONC (|getEnv| "SPADNUM") (GENTEMP "NAG"))) - (SPADLET |body| + (setq |body| (CONS 'SEQ (APPEND (|makeAspGenerators| |asps| @@ -1138,7 +1138,7 @@ (CONS |fType| NIL))) NIL)))))) ('T - (SPADLET |body| + (setq |body| (CONS '|pretend| (CONS |call| (CONS |fType| NIL)))))) (|interpret| @@ -1196,9 +1196,9 @@ (RETURN (SEQ (COND ((|member| |a| |asps|) - (SPADLET |entry| + (setq |entry| (CAR (PROG (G166587) - (SPADLET G166587 NIL) + (setq G166587 NIL) (RETURN (DO ((G166593 |aspInfo| (CDR G166593)) @@ -1213,11 +1213,11 @@ ((BOOT-EQUAL (CAR |u|) |a|) (SETQ G166587 (CONS |u| G166587))))))))))) - (SPADLET |ftc| + (setq |ftc| (CONS '|$elt| (CONS '|FortranType| (CONS '|construct| NIL)))) - (SPADLET |rc| + (setq |rc| (CONS '|$elt| (CONS (CONS '|Record| (CONS @@ -1245,7 +1245,7 @@ (CONS (CONS '|construct| (PROG (G166603) - (SPADLET G166603 NIL) + (setq G166603 NIL) (RETURN (DO ((G166608 @@ -1283,7 +1283,7 @@ (PROG () (RETURN (SEQ (PROG (G166622) - (SPADLET G166622 NIL) + (setq G166622 NIL) (RETURN (DO ((G166628 |asps| (CDR G166628)) (|u| NIL) (G166629 |types| (CDR G166629)) (|v| NIL)) @@ -1354,7 +1354,7 @@ (CONS '|Lisp| (CONS '|compileAndLink| NIL))) (CONS (CONS '|construct| (PROG (G166652) - (SPADLET G166652 NIL) + (setq G166652 NIL) (RETURN (DO ((G166657 |asps| (CDR G166657)) @@ -1396,12 +1396,12 @@ (PROG (|l|) (RETURN (SEQ (PROGN - (SPADLET |l| '| |) + (setq |l| '| |) (DO ((G166674 |stringList| (CDR G166674)) (|s| NIL)) ((OR (ATOM G166674) (PROGN (SETQ |s| (CAR G166674)) NIL)) NIL) - (SEQ (EXIT (SPADLET |l| (STRCONC |l| |s| '| |))))) + (SEQ (EXIT (setq |l| (STRCONC |l| |s| '| |))))) |l|))))) ;complexRows z == @@ -1413,7 +1413,7 @@ (PROG () (RETURN (SEQ (PROG (G166685) - (SPADLET G166685 NIL) + (setq G166685 NIL) (RETURN (DO ((G166690 (SPADDIFFERENCE (|#| (ELT |z| 0)) 1)) (|i| 0 (QSADD1 |i|))) @@ -1421,7 +1421,7 @@ (SEQ (EXIT (SETQ G166685 (APPEND G166685 (PROG (G166694) - (SPADLET G166694 NIL) + (setq G166694 NIL) (RETURN (DO ((G166699 |z| @@ -1450,7 +1450,7 @@ (PROG () (RETURN (SEQ (PROG (G166717) - (SPADLET G166717 NIL) + (setq G166717 NIL) (RETURN (DO ((G166722 (SPADDIFFERENCE (|#| |u|) 1)) (|i| 0 (QSADD1 |i|))) @@ -1464,7 +1464,7 @@ (PROG () (RETURN (SEQ (PROG (G166734) - (SPADLET G166734 NIL) + (setq G166734 NIL) (RETURN (DO ((G166739 (SPADDIFFERENCE (|#| |u|) 1)) (|i| 0 (QSADD1 |i|))) @@ -1512,9 +1512,9 @@ (PROG (|returnedValues|) (RETURN (SEQ (PROGN - (SPADLET |actual| + (setq |actual| (PROG (G166756) - (SPADLET G166756 NIL) + (setq G166756 NIL) (RETURN (DO ((G166761 (CAR |actual|) (CDR G166761)) @@ -1527,7 +1527,7 @@ (SEQ (EXIT (SETQ G166756 (CONS (|spad2lisp| |u|) G166756)))))))) - (SPADLET |returnedValues| + (setq |returnedValues| (|spadify| (|fortCall| |objFile| (|prepareData| |args| |dummies| |actual| @@ -1658,18 +1658,18 @@ (RETURN (SEQ (PROGN (SETQ RESULTS |l|) - (SPADLET |spadForms| NIL) + (setq |spadForms| NIL) (DO ((G166820 (SPADDIFFERENCE (|#| |l|) 1)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G166820) NIL) (SEQ (EXIT (PROGN - (SPADLET |fort| (NTH |i| |l|)) - (SPADLET |name| (NTH |i| |results|)) - (SPADLET |ty| + (setq |fort| (NTH |i| |l|)) + (setq |name| (NTH |i| |results|)) + (setq |ty| (|getFortranType| |name| |decls|)) (COND ((STRINGP |fort|) - (SPADLET |spadForms| + (setq |spadForms| (CONS (|makeResultRecord| |name| |ty| |fort|) @@ -1677,7 +1677,7 @@ ((|member| |ty| (CONS '|double complex| (CONS '|complex| NIL))) - (SPADLET |spadForms| + (setq |spadForms| (CONS (|makeResultRecord| |name| |ty| @@ -1688,9 +1688,9 @@ (|member| (CAR |ty|) (CONS '|double complex| (CONS '|complex| NIL)))) - (SPADLET |dims| + (setq |dims| (PROG (G166828) - (SPADLET G166828 NIL) + (setq G166828 NIL) (RETURN (DO ((G166833 (CDR |ty|) @@ -1709,14 +1709,14 @@ (|getVal| |u| |names| |actual|) G166828)))))))) - (SPADLET |els| NIL) + (setq |els| NIL) (COND ((EQL (|#| |dims|) 1) - (SPADLET |els| + (setq |els| (CONS (|makeVector| (PROG (G166843) - (SPADLET G166843 NIL) + (setq G166843 NIL) (RETURN (DO ((G166848 @@ -1749,7 +1749,7 @@ (SEQ (EXIT (PROGN - (SPADLET |innerEls| NIL) + (setq |innerEls| NIL) (DO ((G166869 (SPADDIFFERENCE @@ -1760,20 +1760,20 @@ (SEQ (EXIT (PROGN - (SPADLET |offset| + (setq |offset| (TIMES 2 (+ (TIMES |c| (CAR |dims|)) |r|))) - (SPADLET |innerEls| + (setq |innerEls| (CONS (CONS (ELT |fort| |offset|) (ELT |fort| (+ |offset| 1))) |innerEls|)))))) - (SPADLET |els| + (setq |els| (CONS (|makeVector| (NREVERSE |innerEls|) NIL) @@ -1782,7 +1782,7 @@ (|error| (CONS "Can't cope with complex output dimensions higher than 2" NIL)))) - (SPADLET |spadForms| + (setq |spadForms| (CONS (|makeResultRecord| |name| |ty| @@ -1792,15 +1792,15 @@ ((AND (LISTP |ty|) (BOOT-EQUAL (CAR |ty|) '|logical|) (EQL (|#| |ty|) 2)) - (SPADLET |dim| + (setq |dim| (|getVal| (CAR (CDR |ty|)) |names| |actual|)) - (SPADLET |spadForms| + (setq |spadForms| (CONS (|makeResultRecord| |name| |ty| (PROG (G166877) - (SPADLET G166877 NIL) + (setq G166877 NIL) (RETURN (DO ((G166882 @@ -1820,9 +1820,9 @@ |spadForms|))) ((AND (LISTP |ty|) (BOOT-EQUAL (CAR |ty|) '|logical|)) - (SPADLET |dims| + (setq |dims| (PROG (G166890) - (SPADLET G166890 NIL) + (setq G166890 NIL) (RETURN (DO ((G166895 (CDR |ty|) @@ -1841,7 +1841,7 @@ (|getVal| |u| |names| |actual|) G166890)))))))) - (SPADLET |els| NIL) + (setq |els| NIL) (COND ((EQL (|#| |dims|) 2) (DO ((G166907 @@ -1851,7 +1851,7 @@ (SEQ (EXIT (PROGN - (SPADLET |innerEls| NIL) + (setq |innerEls| NIL) (DO ((G166914 (SPADDIFFERENCE @@ -1861,7 +1861,7 @@ NIL) (SEQ (EXIT - (SPADLET |innerEls| + (setq |innerEls| (CONS (|int2Bool| (ELT |fort| @@ -1870,22 +1870,22 @@ (CAR |dims|)) |r|))) |innerEls|))))) - (SPADLET |els| + (setq |els| (CONS (NREVERSE |innerEls|) |els|))))))) ('T (|error| (CONS "Can't cope with logical output dimensions higher than 2" NIL)))) - (SPADLET |spadForms| + (setq |spadForms| (CONS (|makeResultRecord| |name| |ty| (NREVERSE |els|)) |spadForms|))) ((VECTORP |fort|) - (SPADLET |dims| + (setq |dims| (PROG (G166922) - (SPADLET G166922 NIL) + (setq G166922 NIL) (RETURN (DO ((G166927 (CDR |ty|) @@ -1904,16 +1904,16 @@ (|getVal| |u| |names| |actual|) G166922)))))))) - (SPADLET |els| NIL) + (setq |els| NIL) (COND ((member 0 |dims|) - (SPADLET |els| (CONS NIL NIL))) + (setq |els| (CONS NIL NIL))) ((EQL (|#| |dims|) 1) - (SPADLET |els| + (setq |els| (CONS (|makeVector| (PROG (G166937) - (SPADLET G166937 NIL) + (setq G166937 NIL) (RETURN (DO ((G166942 @@ -1940,7 +1940,7 @@ (SEQ (EXIT (PROGN - (SPADLET |innerEls| NIL) + (setq |innerEls| NIL) (DO ((G166959 (SPADDIFFERENCE @@ -1950,7 +1950,7 @@ NIL) (SEQ (EXIT - (SPADLET |innerEls| + (setq |innerEls| (CONS (ELT |fort| (+ @@ -1958,15 +1958,15 @@ (CAR |dims|)) |r|)) |innerEls|))))) - (SPADLET |els| + (setq |els| (CONS (|makeVector| (NREVERSE |innerEls|) NIL) |els|))))))) ((EQL (|#| |dims|) 3) - (SPADLET |iDim| (CAR |dims|)) - (SPADLET |jDim| (SECOND |dims|)) - (SPADLET |kDim| (THIRD |dims|)) + (setq |iDim| (CAR |dims|)) + (setq |jDim| (SECOND |dims|)) + (setq |kDim| (THIRD |dims|)) (DO ((G166974 (SPADDIFFERENCE |iDim| 1)) (|r| 0 (QSADD1 |r|))) @@ -1974,7 +1974,7 @@ (SEQ (EXIT (PROGN - (SPADLET |middleEls| NIL) + (setq |middleEls| NIL) (DO ((G166986 (SPADDIFFERENCE |jDim| 1)) @@ -1984,7 +1984,7 @@ (SEQ (EXIT (PROGN - (SPADLET |innerEls| NIL) + (setq |innerEls| NIL) (DO ((G166995 (SPADDIFFERENCE |kDim| @@ -1996,7 +1996,7 @@ (SEQ (EXIT (PROGN - (SPADLET |offset| + (setq |offset| (+ (+ (TIMES |p| @@ -2004,18 +2004,18 @@ (TIMES |c| |kDim|)) |r|)) - (SPADLET |innerEls| + (setq |innerEls| (CONS (ELT |fort| |offset|) |innerEls|)))))) - (SPADLET |middleEls| + (setq |middleEls| (CONS (|makeVector| (NREVERSE |innerEls|) NIL) |middleEls|)))))) - (SPADLET |els| + (setq |els| (CONS (|makeVector| (NREVERSE |middleEls|) NIL) @@ -2026,23 +2026,23 @@ NIL)))) (COND ((NULL (member 0 |dims|)) - (SPADLET |els| + (setq |els| (|makeVector| (NREVERSE |els|) NIL)))) - (SPADLET |spadForms| + (setq |spadForms| (CONS (|makeResultRecord| |name| |ty| |els|) |spadForms|))) ((AND (ATOM |fort|) (BOOT-EQUAL |ty| '|logical|)) - (SPADLET |spadForms| + (setq |spadForms| (CONS (|makeResultRecord| |name| |ty| (|int2Bool| |fort|)) |spadForms|))) ((ATOM |fort|) - (SPADLET |spadForms| + (setq |spadForms| (CONS (|makeResultRecord| |name| |ty| |fort|) @@ -2096,7 +2096,7 @@ ((LISTP |u|) (|eval| (CONS (CAR |u|) (PROG (G167059) - (SPADLET G167059 NIL) + (setq G167059 NIL) (RETURN (DO ((G167064 (CDR |u|) (CDR G167064)) @@ -2112,7 +2112,7 @@ (|getVal| |v| |names| |values|) G167059)))))))))) - ((SPADLET |place| (POSITION |u| |names|)) + ((setq |place| (POSITION |u| |names|)) (NTH |place| |values|)) ('T (|error| (CONS "No value found for parameter: " @@ -2178,7 +2178,7 @@ (TIMES 2 (APPLY '* (PROG (G167087) - (SPADLET G167087 NIL) + (setq G167087 NIL) (RETURN (DO ((G167092 (CDR |type|) @@ -2206,7 +2206,7 @@ (|makeList| (APPLY '* (PROG (G167102) - (SPADLET G167102 NIL) + (setq G167102 NIL) (RETURN (DO ((G167107 (CDR |type|) @@ -2251,17 +2251,17 @@ (DECLARE (SPECIAL |shortZero| |longZero|)) (RETURN (SEQ (PROGN - (SPADLET |shortZero| (COERCE 0.0 'SHORT-FLOAT)) - (SPADLET |longZero| (COERCE 0.0 'DOUBLE-FLOAT)) - (SPADLET |data| NIL) + (setq |shortZero| (COERCE 0.0 'SHORT-FLOAT)) + (setq |longZero| (COERCE 0.0 'DOUBLE-FLOAT)) + (setq |data| NIL) (DO ((G167126 |results| (CDR G167126)) (|u| NIL)) ((OR (ATOM G167126) (PROGN (SETQ |u| (CAR G167126)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |type| + (setq |type| (|getFortranType| |u| |decls|)) - (SPADLET |data| + (setq |data| (CONS (|prepareResults,defaultValue| |type| @@ -2344,12 +2344,12 @@ |planes|) (RETURN (SEQ (PROGN - (SPADLET |str| (MAKE-OUTSTREAM |tmpFile|)) - (SPADLET |xstr| (|xdrOpen| |str| 'T)) - (SPADLET |args| (CAR |indata|)) - (SPADLET |dummies| (CADR |indata|)) - (SPADLET |values| (CADDR |indata|)) - (SPADLET |decls| (CADDDR |indata|)) + (setq |str| (MAKE-OUTSTREAM |tmpFile|)) + (setq |xstr| (|xdrOpen| |str| 'T)) + (setq |args| (CAR |indata|)) + (setq |dummies| (CADR |indata|)) + (setq |values| (CADDR |indata|)) + (setq |decls| (CADDDR |indata|)) (DO ((G167158 |values| (CDR G167158)) (|v| NIL)) ((OR (ATOM G167158) (PROGN (SETQ |v| (CAR G167158)) NIL)) @@ -2359,17 +2359,17 @@ ((NULL |v|) (|xdrWrite| |xstr| 0)) ((STRINGP |v|) (|xdrWrite| |xstr| |v|)) ((VECTORP |v|) - (SPADLET |rows| + (setq |rows| (CAR (ARRAY-DIMENSIONS |v|))) (COND ((VECTORP (ELT |v| 0)) - (SPADLET |cols| + (setq |cols| (CAR (ARRAY-DIMENSIONS (ELT |v| 0)))) (COND ((VECTORP (ELT (ELT |v| 0) 0)) - (SPADLET |planes| + (setq |planes| (CAR (ARRAY-DIMENSIONS (ELT (ELT |v| 0) 0)))) @@ -2471,11 +2471,11 @@ (PROG (|str| |xstr|) (RETURN (SEQ (PROGN - (SPADLET |str| (MAKE-INSTREAM |tmpFile|)) - (SPADLET |xstr| (|xdrOpen| |str| NIL)) - (SPADLET |results| + (setq |str| (MAKE-INSTREAM |tmpFile|)) + (setq |xstr| (|xdrOpen| |str| NIL)) + (setq |results| (PROG (G167237) - (SPADLET G167237 NIL) + (setq G167237 NIL) (RETURN (DO ((G167242 |results| (CDR G167242)) (|r| NIL)) @@ -2524,10 +2524,10 @@ (PROG (|tmpFile1| |tmpFile2|) (RETURN (PROGN - (SPADLET |tmpFile1| (|writeData| (|generateDataName|) |data|)) - (SPADLET |tmpFile2| (|generateResultsName|)) + (setq |tmpFile1| (|writeData| (|generateDataName|) |data|)) + (setq |tmpFile2| (|generateResultsName|)) (SYSTEM (STRCONC |objFile| '| < | |tmpFile1| '| > | |tmpFile2|)) - (SPADLET |results| (|readData| |tmpFile2| |results|)) + (setq |results| (|readData| |tmpFile2| |results|)) (AND (PROBE-FILE |tmpFile1|) (DELETE-FILE |tmpFile1|)) (AND (PROBE-FILE |tmpFile2|) (DELETE-FILE |tmpFile2|)) |results|)))) @@ -2548,9 +2548,9 @@ (PROG (|result|) (RETURN (SEQ (PROGN - (SPADLET |actual| + (setq |actual| (PROG (G167273) - (SPADLET G167273 NIL) + (setq G167273 NIL) (RETURN (DO ((G167278 (CAR |actual|) (CDR G167278)) @@ -2563,7 +2563,7 @@ (SEQ (EXIT (SETQ G167273 (CONS (|spad2lisp| |u|) G167273)))))))) - (SPADLET |result| + (setq |result| (|spadify| (|protectedNagCall| |objFiles| |nfile| (|prepareData| |args| |dummies| |actual| @@ -2601,12 +2601,12 @@ (declare (special |$fortPersistence| |$nagHost| |$nagMessages|)) (RETURN (PROGN - (SPADLET |nagMessagesString| + (setq |nagMessagesString| (COND (|$nagMessages| "on") ('T "off"))) (|writeData| |tmpFiled| |data|) - (SPADLET |toSend| + (setq |toSend| (STRCONC |$nagHost| '| | |nfile| '| | |tmpFiler| '| | |tmpFiled| '| | (STRINGIMAGE |$fortPersistence|) '| | @@ -2615,7 +2615,7 @@ (|sockSendString| 8 |toSend|) (COND ((EQL (|sockGetInt| 8) 1) - (SPADLET |results| (|readData| |tmpFiler| |results|))) + (setq |results| (|readData| |tmpFiler| |results|))) ('T (|error| (CONS "An error was detected while reading data: " (CONS "perhaps an incorrect array index was given ?" @@ -2635,16 +2635,16 @@ (PROG (|td| |tr| |val| |errors|) (RETURN (SEQ (PROGN - (SPADLET |errors| 'T) - (SPADLET |val| NIL) - (SPADLET |td| (|generateDataName|)) - (SPADLET |tr| (|generateResultsName|)) + (setq |errors| 'T) + (setq |val| NIL) + (setq |td| (|generateDataName|)) + (setq |tr| (|generateResultsName|)) (SEQ (UNWIND-PROTECT (PROGN - (SPADLET |val| + (setq |val| (|nagCall| |objFiles| |nfile| |data| |results| |td| |tr|)) - (SPADLET |errors| NIL)) + (setq |errors| NIL)) (COND (|errors| (EXIT (PROGN @@ -2688,7 +2688,7 @@ (PROG () (RETURN (SEQ (PROG (G167340) - (SPADLET G167340 NIL) + (setq G167340 NIL) (RETURN (DO ((G167346 |f| (CDR G167346)) (|i| NIL)) ((OR (ATOM G167346) @@ -2724,20 +2724,20 @@ (|error| '|in multiToUnivariate: not an AnonymousFunction|)) ('T (COND - ((CONSP (CADR |f|)) (SPADLET |vars| (CDADR |f|))) - ('T (SPADLET |vars| (CONS (CADR |f|) NIL)))) - (SPADLET |body| (COPY-TREE (CADDR |f|))) - (SPADLET |newVariable| (GENSYM)) + ((CONSP (CADR |f|)) (setq |vars| (CDADR |f|))) + ('T (setq |vars| (CONS (CADR |f|) NIL)))) + (setq |body| (COPY-TREE (CADDR |f|))) + (setq |newVariable| (GENSYM)) (DO ((G167360 (SPADDIFFERENCE (|#| |vars|) 1)) (|index| 0 (QSADD1 |index|))) ((QSGREATERP |index| G167360) NIL) - (SEQ (EXIT (SPADLET |body| + (SEQ (EXIT (setq |body| (NSUBST (CONS '|elt| (CONS |newVariable| (CONS (+ |index| 1) NIL))) (ELT |vars| |index|) |body|))))) - (SPADLET |target| + (setq |target| (CONS (CONS '|DoubleFloat| NIL) (CONS (CONS '|Vector| (CONS (CONS '|DoubleFloat| NIL) @@ -2793,15 +2793,15 @@ (|error| '|in functionAndJacobian: not an AnonymousFunction|)) ('T (COND - ((CONSP (CADR |f|)) (SPADLET |vars| (CDADR |f|))) - ('T (SPADLET |vars| (CONS (CADR |f|) NIL)))) + ((CONSP (CADR |f|)) (setq |vars| (CDADR |f|))) + ('T (setq |vars| (CONS (CADR |f|) NIL)))) (COND ((NEQUAL (|#| |vars|) (|#| (CDADDR |f|))) (|error| '|number of variables should equal number of functions|)) - ('T (SPADLET |funBodies| (COPY-TREE (CDADDR |f|))) - (SPADLET |jacBodies| + ('T (setq |funBodies| (COPY-TREE (CDADDR |f|))) + (setq |jacBodies| (PROG (G167379) - (SPADLET G167379 NIL) + (setq G167379 NIL) (RETURN (DO ((G167384 |funBodies| (CDR G167384)) @@ -2815,7 +2815,7 @@ (SETQ G167379 (APPEND G167379 (PROG (G167394) - (SPADLET G167394 NIL) + (setq G167394 NIL) (RETURN (DO ((G167399 |vars| @@ -2834,7 +2834,7 @@ (|functionAndJacobian,DF| |f| |v|) G167394))))))))))))))) - (SPADLET |jacBodies| + (setq |jacBodies| (CDDR (|interpret| (CONS (CONS '|$elt| @@ -2844,26 +2844,26 @@ NIL)) (CONS '|construct| NIL))) |jacBodies|)))) - (SPADLET |newVariable| (GENSYM)) + (setq |newVariable| (GENSYM)) (DO ((G167410 (SPADDIFFERENCE (|#| |vars|) 1)) (|index| 0 (QSADD1 |index|))) ((QSGREATERP |index| G167410) NIL) (SEQ (EXIT (PROGN - (SPADLET |funBodies| + (setq |funBodies| (NSUBST (CONS '|elt| (CONS |newVariable| (CONS (+ |index| 1) NIL))) (ELT |vars| |index|) |funBodies|)) - (SPADLET |jacBodies| + (setq |jacBodies| (NSUBST (CONS '|elt| (CONS |newVariable| (CONS (+ |index| 1) NIL))) (ELT |vars| |index|) |jacBodies|)))))) - (SPADLET |target| + (setq |target| (CONS (CONS '|Vector| (CONS (CONS '|DoubleFloat| NIL) NIL)) @@ -2923,20 +2923,20 @@ (|error| '|in vectorOfFunctions: not an AnonymousFunction|)) ('T (COND - ((CONSP (CADR |f|)) (SPADLET |vars| (CDADR |f|))) - ('T (SPADLET |vars| (CONS (CADR |f|) NIL)))) - (SPADLET |funBodies| (COPY-TREE (CDADDR |f|))) - (SPADLET |newVariable| (GENSYM)) + ((CONSP (CADR |f|)) (setq |vars| (CDADR |f|))) + ('T (setq |vars| (CONS (CADR |f|) NIL)))) + (setq |funBodies| (COPY-TREE (CDADDR |f|))) + (setq |newVariable| (GENSYM)) (DO ((G167432 (SPADDIFFERENCE (|#| |vars|) 1)) (|index| 0 (QSADD1 |index|))) ((QSGREATERP |index| G167432) NIL) - (SEQ (EXIT (SPADLET |funBodies| + (SEQ (EXIT (setq |funBodies| (NSUBST (CONS '|elt| (CONS |newVariable| (CONS (+ |index| 1) NIL))) (ELT |vars| |index|) |funBodies|))))) - (SPADLET |target| + (setq |target| (CONS (CONS '|Vector| (CONS (CONS '|DoubleFloat| NIL) NIL)) (CONS (CONS '|Vector| diff --git a/src/interp/functor.lisp.pamphlet b/src/interp/functor.lisp.pamphlet index 1f96591..536fc22 100644 --- a/src/interp/functor.lisp.pamphlet +++ b/src/interp/functor.lisp.pamphlet @@ -57,10 +57,10 @@ |$EmptyEnvironment|)) (RETURN (SEQ (PROGN - (SPADLET |$WhereList| NIL) - (SPADLET |$Sublis| NIL) - (SPADLET |$WhereCounter| 1) - (SPADLET |env| + (setq |$WhereList| NIL) + (setq |$Sublis| NIL) + (setq |$WhereCounter| 1) + (setq |env| (COND ((NULL (BOUNDP '|$e|)) |$EmptyEnvironment|) ((BOOT-EQUAL |$e| '|$e|) |$EmptyEnvironment|) @@ -68,14 +68,14 @@ (COND ((|isCategory| D) (|CategoryPrint| D |env|)) ('T - (SPADLET |$Sublis| + (setq |$Sublis| (CONS (CONS (|keyItem| D) '|original|) NIL)) (SAY "-----------------------------------------------------------------------") (|DomainPrint1| D NIL |env|) (DO () ((NULL |$WhereList|) NIL) (SEQ (EXIT (PROGN - (SPADLET |s| |$WhereList|) - (SPADLET |$WhereList| NIL) + (setq |s| |$WhereList|) + (setq |$WhereList| NIL) (DO ((G166083 |s| (CDR G166083)) (|u| NIL)) ((OR (ATOM G166083) @@ -150,10 +150,10 @@ (RETURN (SEQ (COND ((AND (REFVECP D) (NULL (|isDomain| D))) (|PacPrint| D)) - ('T (COND ((REFVECP D) (SPADLET D (ELT D 4)))) - (SPADLET |Sublis| + ('T (COND ((REFVECP D) (setq D (ELT D 4)))) + (setq |Sublis| (APPEND (PROG (G166124) - (SPADLET G166124 NIL) + (setq G166124 NIL) (RETURN (DO ((G166130 D (CDR G166130)) @@ -180,7 +180,7 @@ NIL) (SEQ (EXIT (COND ((AND |brief| (> |i| 1)) NIL) - ('T (SPADLET |uu| (COPY-SEQ (CDR |u|))) + ('T (setq |uu| (COPY-SEQ (CDR |u|))) (SETELT |uu| 4 "This domain") (COND @@ -193,7 +193,7 @@ (COND ((AND (EQL |i| 1) (REFVECP (ELT |uu| 5))) - (SPADLET |vv| (COPY-SEQ (ELT |uu| 5))) + (setq |vv| (COPY-SEQ (ELT |uu| 5))) (SETELT |uu| 5 |vv|) (DO ((G166156 (MAXINDEX |vv|)) (|j| 0 (QSADD1 |j|))) @@ -202,26 +202,26 @@ (EXIT (COND ((REFVECP (ELT |vv| |j|)) - (SPADLET |l| + (setq |l| (ASSQ (|keyItem| (ELT |vv| |j|)) |Sublis|)) (COND (|l| - (SPADLET |name| (CDR |l|))) + (setq |name| (CDR |l|))) ('T - (SPADLET |name| (|DPname|)) - (SPADLET |Sublis| + (setq |name| (|DPname|)) + (setq |Sublis| (CONS (CONS (|keyItem| (ELT |vv| |j|)) |name|) |Sublis|)) - (SPADLET |$Sublis| + (setq |$Sublis| (CONS (CAR |Sublis|) |$Sublis|)) - (SPADLET |$WhereList| + (setq |$WhereList| (CONS (CONS |name| (ELT |vv| |j|)) @@ -243,18 +243,18 @@ (ELT |uu| |i|) |Sublis|)) (COND ((REFVECP (ELT |uu| |i|)) - (SPADLET |name| (|DPname|)) - (SPADLET |Sublis| + (setq |name| (|DPname|)) + (setq |Sublis| (CONS (CONS (|keyItem| (ELT |uu| |i|)) |name|) |Sublis|)) - (SPADLET |$Sublis| + (setq |$Sublis| (CONS (CAR |Sublis|) |$Sublis|)) - (SPADLET |$WhereList| + (setq |$WhereList| (CONS (CONS |name| (ELT |uu| |i|)) @@ -263,24 +263,24 @@ (COND ((AND (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (ELT |uu| |i|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |v| + (setq |v| (QCDR |ISTMP#1|)) 'T))) (REFVECP |v|)) - (SPADLET |name| (|DPname|)) - (SPADLET |Sublis| + (setq |name| (|DPname|)) + (setq |Sublis| (CONS (CONS (|keyItem| |v|) |name|) |Sublis|)) - (SPADLET |$Sublis| + (setq |$Sublis| (CONS (CAR |Sublis|) |$Sublis|)) - (SPADLET |$WhereList| + (setq |$WhereList| (CONS (CONS |name| |v|) |$WhereList|)) (SETELT |uu| |i| @@ -301,10 +301,10 @@ (declare (special |$WhereCounter|)) (RETURN (PROGN - (SPADLET |name| + (setq |name| (INTERNL (STRCONC "Where" (STRINGIMAGE |$WhereCounter|)))) - (SPADLET |$WhereCounter| (+ |$WhereCounter| 1)) + (setq |$WhereCounter| (+ |$WhereCounter| 1)) |name|)))) ;PacPrint v == @@ -337,29 +337,29 @@ (declare (special |$WhereList| |$Sublis|)) (RETURN (SEQ (PROGN - (SPADLET |vv| (COPY-SEQ |v|)) + (setq |vv| (COPY-SEQ |v|)) (DO ((G166216 (MAXINDEX |vv|)) (|j| 0 (QSADD1 |j|))) ((QSGREATERP |j| G166216) NIL) (SEQ (EXIT (PROGN (COND ((REFVECP (ELT |vv| |j|)) - (SPADLET |l| + (setq |l| (ASSQ (|keyItem| (ELT |vv| |j|)) |Sublis|)) (COND - (|l| (SPADLET |name| (CDR |l|))) - ('T (SPADLET |name| (|DPname|)) - (SPADLET |Sublis| + (|l| (setq |name| (CDR |l|))) + ('T (setq |name| (|DPname|)) + (setq |Sublis| (CONS (CONS (|keyItem| (ELT |vv| |j|)) |name|) |Sublis|)) - (SPADLET |$Sublis| + (setq |$Sublis| (CONS (CAR |Sublis|) |$Sublis|)) - (SPADLET |$WhereList| + (setq |$WhereList| (CONS (CONS |name| (ELT |vv| |j|)) @@ -368,21 +368,21 @@ (COND ((AND (CONSP (ELT |vv| |j|)) (REFVECP - (SPADLET |u| (CDR (ELT |vv| |j|))))) - (SPADLET |l| + (setq |u| (CDR (ELT |vv| |j|))))) + (setq |l| (ASSQ (|keyItem| |u|) |Sublis|)) (COND - (|l| (SPADLET |name| (CDR |l|))) - ('T (SPADLET |name| (|DPname|)) - (SPADLET |Sublis| + (|l| (setq |name| (CDR |l|))) + ('T (setq |name| (|DPname|)) + (setq |Sublis| (CONS (CONS (|keyItem| |u|) |name|) |Sublis|)) - (SPADLET |$Sublis| + (setq |$Sublis| (CONS (CAR |Sublis|) |$Sublis|)) - (SPADLET |$WhereList| + (setq |$WhereList| (CONS (CONS |name| |u|) |$WhereList|)))) (RPLACD (ELT |vv| |j|) |name|)) @@ -407,18 +407,18 @@ (COND ((AND (CONSP |item|) (PROGN - (SPADLET |a| (QCAR |item|)) - (SPADLET |b| (QCDR |item|)) + (setq |a| (QCAR |item|)) + (setq |b| (QCDR |item|)) 'T)) - (SPADLET |c1| (|DomainPrintSubst| |a| |Sublis|)) - (SPADLET |c2| (|DomainPrintSubst| |b| |Sublis|)) + (setq |c1| (|DomainPrintSubst| |a| |Sublis|)) + (setq |c2| (|DomainPrintSubst| |b| |Sublis|)) (COND ((AND (EQ |c1| |a|) (EQ |c2| |b|)) |item|) ('T (CONS |c1| |c2|)))) - ('T (SPADLET |l| (ASSQ |item| |Sublis|)) + ('T (setq |l| (ASSQ |item| |Sublis|)) (COND (|l| (CDR |l|)) - ('T (SPADLET |l| (ASSQ (|keyItem| |item|) |Sublis|)) + ('T (setq |l| (ASSQ (|keyItem| |item|) |Sublis|)) (COND (|l| (CDR |l|)) ('T |item|))))))))) ;--% Utilities @@ -438,9 +438,9 @@ ((NULL |a|) NIL) ((AND (CONSP |a|) (EQ (QCAR |a|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |a'| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |a'| (QCAR |ISTMP#1|)) 'T)))) (COND (|a'| |a|) ('T NIL))) ((BOOT-EQUAL |a| '$) (MKQ '$)) ((AND (CONSP |a|) (EQ (QCDR |a|) NIL) (EQ (QCAR |a|) 'LIST)) @@ -463,10 +463,10 @@ (PROG (|c| |u|) (RETURN (COND - ((SPADLET |u| (|HasCategory| |domain| |catform|)) |u|) - ('T (SPADLET |c| (|eval| |catform|)) + ((setq |u| (|HasCategory| |domain| |catform|)) |u|) + ('T (setq |c| (|eval| |catform|)) (COND - ((SPADLET |u| (|HasCategory| |domain| (ELT |c| 0))) |u|) + ((setq |u| (|HasCategory| |domain| (ELT |c| 0))) |u|) ('T (|throwKeyedMsg| "The domain %1p does not belong to the category %2p ." @@ -481,20 +481,20 @@ (PROG (|view| |pview|) (RETURN (SEQ (PROGN - (SPADLET |pview| |domain|) + (setq |pview| |domain|) (DO ((G166277 (ELT |domain| 4) (CDR G166277)) (G166269 NIL)) ((OR (ATOM G166277) (PROGN (SETQ G166269 (CAR G166277)) NIL) (PROGN (PROGN - (SPADLET |view| (CDR G166269)) + (setq |view| (CDR G166269)) G166269) NIL)) NIL) (SEQ (EXIT (COND ((> (|#| |view|) (|#| |pview|)) - (SPADLET |pview| |view|)) + (setq |pview| |view|)) ('T NIL))))) |pview|))))) @@ -511,20 +511,20 @@ ((ATOM |x|) NIL) ((AND (CONSP |x|) (EQ (QCAR |x|) 'LIST) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) - (SPADLET |b| (QCDR |ISTMP#1|)) + (setq |a| (QCAR |ISTMP#1|)) + (setq |b| (QCDR |ISTMP#1|)) 'T))) (CONSP |a|) (EQ (QCAR |a|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |a'| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |a'| (QCAR |ISTMP#1|)) 'T)))) (|union| (LIST (LIST |a'|)) (PROG (G166307) - (SPADLET G166307 NIL) + (setq G166307 NIL) (RETURN (DO ((G166312 |b| (CDR G166312)) (|u| NIL)) @@ -538,11 +538,11 @@ (|CategoriesFromGDC| |u|)))))))))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |a| (QCAR |ISTMP#1|)) 'T))) (CONSP |a|) (EQ (QCDR |a|) NIL) - (PROGN (SPADLET |b| (QCAR |a|)) 'T)) + (PROGN (setq |b| (QCAR |a|)) 'T)) (CONS |a| NIL))))))) ;compCategories u == @@ -584,7 +584,7 @@ ((BOOT-EQUAL (CAR |u|) '|Record|) (CONS (CAR |u|) (PROG (G166346) - (SPADLET G166346 NIL) + (setq G166346 NIL) (RETURN (DO ((G166351 (CDR |u|) (CDR G166351)) (|a| NIL)) @@ -607,7 +607,7 @@ (BOOT-EQUAL (CAR |u|) '|Mapping|)) (CONS (CAR |u|) (PROG (G166361) - (SPADLET G166361 NIL) + (setq G166361 NIL) (RETURN (DO ((G166366 (CDR |u|) (CDR G166366)) (|a| NIL)) @@ -623,15 +623,15 @@ G166361))))))))) ((AND (CONSP |u|) (EQ (QCAR |u|) '|SubDomain|) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET D (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq D (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL)))))) (|compCategories| D)) - ('T (SPADLET |v| (|get| (CAR |u|) '|modemap| |$e|)) + ('T (setq |v| (|get| (CAR |u|) '|modemap| |$e|)) (COND ((ATOM |v|) (|error| (CONS @@ -648,13 +648,13 @@ (|pp| (CDR |v|)))) (COND ((AND (CDR |v|) (NULL (CAAAR |v|))) - (SPADLET |v| (CDR |v|)))) - (SPADLET |v| (CDDAAR |v|)) - (SPADLET |v| (|resolvePatternVars| |v| (CDR |u|))) - (SPADLET |u| + (setq |v| (CDR |v|)))) + (setq |v| (CDDAAR |v|)) + (setq |v| (|resolvePatternVars| |v| (CDR |u|))) + (setq |u| (CONS (CAR |u|) (PROG (G166377) - (SPADLET G166377 NIL) + (setq G166377 NIL) (RETURN (DO ((G166383 (CDR |u|) @@ -694,9 +694,9 @@ ((ATOM |u|) |u|) ((|isCategoryForm| |v| |$e|) (|compCategories| |u|)) ((PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|comp| (|macroExpand| |u| |$e|) |v| |$e|)) - (SPADLET |c| (CAR |LETTMP#1|)) + (setq |c| (CAR |LETTMP#1|)) |LETTMP#1|) |c|) ('T (|error| '|compCategories1|)))))) @@ -711,7 +711,7 @@ (PROG (|v|) (RETURN (SEQ (PROGN - (SPADLET |v| (make-array (SIZE |u|))) + (setq |v| (make-array (SIZE |u|))) (DO ((|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| 5) NIL) (SEQ (EXIT (SETELT |v| |i| (ELT |u| |i|))))) (DO ((G166429 (MAXINDEX |v|)) (|i| 6 (+ |i| 1))) @@ -768,8 +768,8 @@ (PROG (|pred| |conseq|) (RETURN (PROGN - (SPADLET |pred| (CAR G166458)) - (SPADLET |conseq| (CDR G166458)) + (setq |pred| (CAR G166458)) + (setq |conseq| (CDR G166458)) G166458 (CONS (|optFunctorBody| |pred|) (|optFunctorPROGN| |conseq|)))))) @@ -779,31 +779,31 @@ (SEQ (COND ((ATOM |x|) |x|) ((AND (CONSP |x|) (EQ (QCAR |x|) 'QUOTE) - (PROGN (SPADLET |l| (QCDR |x|)) 'T)) + (PROGN (setq |l| (QCDR |x|)) 'T)) |x|) ((AND (CONSP |x|) (EQ (QCAR |x|) '|DomainSubstitutionMacro|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |parms| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |parms| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |body| (QCAR |ISTMP#2|)) + (setq |body| (QCAR |ISTMP#2|)) 'T)))))) (|optFunctorBody| (|DomainSubstitutionFunction| |parms| |body|))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'LIST) - (PROGN (SPADLET |l| (QCDR |x|)) 'T)) + (PROGN (setq |l| (QCDR |x|)) 'T)) (COND ((NULL |l|) NIL) ('T - (SPADLET |l| + (setq |l| (PROG (G166481) - (SPADLET G166481 NIL) + (setq G166481 NIL) (RETURN (DO ((G166486 |l| (CDR G166486)) (|u| NIL)) @@ -818,7 +818,7 @@ G166481)))))))) (COND ((PROG (G166492) - (SPADLET G166492 'T) + (setq G166492 'T) (RETURN (DO ((G166498 NIL (NULL G166492)) (G166499 |l| (CDR G166499)) (|u| NIL)) @@ -832,7 +832,7 @@ (|optFunctorBodyQuotable| |u|)))))))) (CONS 'QUOTE (CONS (PROG (G166510) - (SPADLET G166510 NIL) + (setq G166510 NIL) (RETURN (DO ((G166515 |l| (CDR G166515)) @@ -852,13 +852,13 @@ ((BOOT-EQUAL |l| (CDR |x|)) |x|) ('T (CONS 'LIST |l|)))))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'PROGN) - (PROGN (SPADLET |l| (QCDR |x|)) 'T)) + (PROGN (setq |l| (QCDR |x|)) 'T)) (CONS 'PROGN (|optFunctorPROGN| |l|))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'COND) - (PROGN (SPADLET |l| (QCDR |x|)) 'T)) - (SPADLET |l| + (PROGN (setq |l| (QCDR |x|)) 'T)) + (setq |l| (PROG (G166526) - (SPADLET G166526 NIL) + (setq G166526 NIL) (RETURN (DO ((G166532 |l| (CDR G166532)) (|u| NIL)) @@ -874,7 +874,7 @@ (|optFunctorBody,CondClause| |u|) G166526)))))))))) - (SPADLET |l| + (setq |l| (delete '('T) |l| :count 1 :test #'equal)) (COND ((NULL |l|) NIL) @@ -884,7 +884,7 @@ ((NULL (CDDAR |l|)) (CADAR |l|)) ('T (CONS 'PROGN (CDAR |l|))))) ((AND (NULL (CDR |l|)) (NULL (CDAR |l|))) - (SPADLET |pred| (CAAR |l|)) + (setq |pred| (CAAR |l|)) (COND ((ATOM |pred|) NIL) ((BOOT-EQUAL (CAR |pred|) '|HasCategory|) NIL) @@ -892,7 +892,7 @@ ('T (CONS 'COND |l|)))) ('T (PROG (G166542) - (SPADLET G166542 NIL) + (setq G166542 NIL) (RETURN (DO ((G166547 |x| (CDR G166547)) (|u| NIL)) ((OR (ATOM G166547) @@ -941,8 +941,8 @@ (EXIT (MKQ |body|))) (EXIT |body|)))) (IF (|member| |body| |parameters|) - (EXIT (SEQ (SPADLET |g| (GENSYM)) - (SPADLET |$extraParms| + (EXIT (SEQ (setq |g| (GENSYM)) + (setq |$extraParms| (PUSH (CONS |g| |body|) |$extraParms|)) (EXIT (MKQ |g|))))) @@ -952,7 +952,7 @@ (NEQUAL (CAR |body|) (CAR |$definition|))) (EXIT (CONS 'QUOTE (CONS (|optimize| |body|) NIL)))) (EXIT (PROG (G170613) - (SPADLET G170613 NIL) + (setq G170613 NIL) (RETURN (DO ((G170618 |body| (CDR G170618)) (|u| NIL)) ((OR (ATOM G170618) @@ -971,7 +971,7 @@ (PROGN (COND (|parameters| - (SPADLET |body| + (setq |body| (|DomainSubstitutionFunction,Subst| |parameters| |body|)))) (COND @@ -980,10 +980,10 @@ ((ATOM |$definition|) |body|) ((NULL (CDR |$definition|)) |body|) ('T - (SPADLET |name| + (setq |name| (INTERN (STRCONC (KAR |$definition|) '|;CAT|))) (SETANDFILE |name| NIL) - (SPADLET |body| + (setq |body| (CONS 'COND (CONS (CONS |name| NIL) (CONS (CONS ''T @@ -1022,9 +1022,9 @@ ((ATOM |u|) |u|) ((AND (CONSP |u|) (EQ (QCAR |u|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |v| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |v| (QCAR |ISTMP#1|)) 'T)))) |v|) ('T (|systemErrorHere| "optFunctorBodyRequote")))))) @@ -1042,12 +1042,12 @@ (COND ((AND (CONSP |l|) (PROGN - (SPADLET |x| (QCAR |l|)) - (SPADLET |l'| (QCDR |l|)) + (setq |x| (QCAR |l|)) + (setq |l'| (QCDR |l|)) 'T)) (COND ((|worthlessCode| |x|) (|optFunctorPROGN| |l'|)) - ('T (SPADLET |l'| (|optFunctorBody| |l'|)) + ('T (setq |l'| (|optFunctorBody| |l'|)) (COND ((BOOT-EQUAL |l'| (CONS NIL NIL)) (CONS (|optFunctorBody| |x|) NIL)) @@ -1066,9 +1066,9 @@ (RETURN (SEQ (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'COND) - (PROGN (SPADLET |l| (QCDR |x|)) 'T) + (PROGN (setq |l| (QCDR |x|)) 'T) (PROG (G166604) - (SPADLET G166604 'T) + (setq G166604 'T) (RETURN (DO ((G166614 NIL (NULL G166604)) (G166615 |l| (CDR G166615)) (|x| NIL)) @@ -1079,19 +1079,19 @@ (AND G166604 (AND (CONSP |x|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |y| + (setq |y| (QCAR |ISTMP#1|)) 'T))) (|worthlessCode| |y|)))))))))) 'T) ((AND (CONSP |x|) (EQ (QCAR |x|) 'PROGN) - (PROGN (SPADLET |l| (QCDR |x|)) 'T)) + (PROGN (setq |l| (QCDR |x|)) 'T)) (COND - ((NULL (SPADLET |l'| (|optFunctorPROGN| |l|))) 'T) + ((NULL (setq |l'| (|optFunctorPROGN| |l|))) 'T) ('T NIL))) ((AND (CONSP |x|) (EQ (QCDR |x|) NIL) (EQ (QCAR |x|) 'LIST)) @@ -1133,12 +1133,12 @@ (DEFUN |setVector0| (|catNames| |definition|) (declare (special |$QuickCode|)) (SEQ (PROGN - (SPADLET |definition| (|mkDomainConstructor| |definition|)) + (setq |definition| (|mkDomainConstructor| |definition|)) (DO ((G166640 |catNames| (CDR G166640)) (|u| NIL)) ((OR (ATOM G166640) (PROGN (SETQ |u| (CAR G166640)) NIL)) NIL) - (SEQ (EXIT (SPADLET |definition| + (SEQ (EXIT (setq |definition| (CONS (COND (|$QuickCode| 'QSETREFV) ('T 'SETELT)) @@ -1190,14 +1190,14 @@ (RETURN (SEQ (COND ((NULL |args|) NIL) - ('T (SPADLET |args1| (SPADLET |args2| |args|)) + ('T (setq |args1| (setq |args2| |args|)) (DO ((G166663 |$extraParms| (CDR G166663)) (|u| NIL)) ((OR (ATOM G166663) (PROGN (SETQ |u| (CAR G166663)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |args1| (CONS (CAR |u|) |args1|)) - (SPADLET |args2| (CONS (CDR |u|) |args2|)))))) + (setq |args1| (CONS (CAR |u|) |args1|)) + (setq |args2| (CONS (CDR |u|) |args2|)))))) (COND ((AND (|setVector12,freeof| (ELT |$domainShell| 1) |args1|) @@ -1226,12 +1226,12 @@ (PROG (|l|) (RETURN (SEQ (PROGN - (SPADLET |l| (PAIR |names| |vals|)) + (setq |l| (PAIR |names| |vals|)) (SETELT |vec| 1 (|sublisProp| |l| (ELT |vec| 1))) (SETELT |vec| 2 (|sublisProp| |l| (ELT |vec| 2))) - (SPADLET |l| + (setq |l| (PROG (G166682) - (SPADLET G166682 NIL) + (setq G166682 NIL) (RETURN (DO ((G166688 |names| (CDR G166688)) (|a| NIL) @@ -1281,15 +1281,15 @@ (declare (special |$CategoryFrame|)) (RETURN (SEQ (PROGN - (SPADLET |a| (CAR |cp|)) - (SPADLET |cond| (CADR |cp|)) - (SPADLET |l| (CDDR |cp|)) + (setq |a| (CAR |cp|)) + (setq |cond| (CADR |cp|)) + (setq |l| (CDDR |cp|)) |cp| (SEQ (IF (BOOT-EQUAL |cond| 'T) (EXIT |cp|)) (IF (AND (CONSP |cond|) (EQ (QCAR |cond|) '|or|) - (PROGN (SPADLET |x| (QCDR |cond|)) 'T)) + (PROGN (setq |x| (QCDR |cond|)) 'T)) (EXIT (SEQ (IF (PROG (G166762) - (SPADLET G166762 NIL) + (setq G166762 NIL) (RETURN (DO ((G166768 NIL G166762) @@ -1314,33 +1314,33 @@ (IF (AND (AND (CONSP |cond|) (EQ (QCAR |cond|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |cond|)) + (setq |ISTMP#1| (QCDR |cond|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |nam| + (setq |nam| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |val| (ASSQ |nam| |subst|))) - (EXIT (SEQ (SPADLET |ev| + (setq |val| (ASSQ |nam| |subst|))) + (EXIT (SEQ (setq |ev| (SEQ (IF (AND (CONSP |b|) (EQ (QCAR |b|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |b|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |c| + (setq |c| (QCAR |ISTMP#1|)) 'T)))) (EXIT @@ -1350,13 +1350,13 @@ (AND (CONSP |b|) (EQ (QCAR |b|) 'SIGNATURE) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |b|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |c| + (setq |c| (QCAR |ISTMP#1|)) 'T)))) (EXIT @@ -1381,12 +1381,12 @@ (RETURN (COND ((NULL |props|) NIL) - ('T (SPADLET |cp| (CAR |props|)) - (SPADLET |props'| (CDR |props|)) - (SPADLET |a'| (|sublisProp,inspect| |cp| |subst|)) + ('T (setq |cp| (CAR |props|)) + (setq |props'| (CDR |props|)) + (setq |a'| (|sublisProp,inspect| |cp| |subst|)) (COND ((NULL |a'|) (|sublisProp| |subst| |props'|)) - ('T (SPADLET |props'| (|sublisProp| |subst| |props'|)) + ('T (setq |props'| (|sublisProp| |subst| |props'|)) (COND ((AND (EQ |a'| |cp|) (EQ |props'| (CDR |props|))) |props|) @@ -1407,13 +1407,13 @@ ((AND (CONSP |instantiator|) (EQ (QCAR |instantiator|) '|DomainSubstitutionMacro|) (PROGN - (SPADLET |ISTMP#1| (QCDR |instantiator|)) + (setq |ISTMP#1| (QCDR |instantiator|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |body| (QCAR |ISTMP#2|)) + (setq |body| (QCAR |ISTMP#2|)) 'T)))))) (|setVector3| |name| |body|)) ('T @@ -1440,18 +1440,18 @@ (COND ((AND (CONSP |x|) (EQ (QCAR |x|) '|DomainSubstitutionMacro|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |parms| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |parms| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |body| (QCAR |ISTMP#2|)) + (setq |body| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |x| (|DomainSubstitutionFunction| |parms| |body|)) - (SPADLET |x| (SUBLIS |$extraParms| |x|)))) + (setq |x| (|DomainSubstitutionFunction| |parms| |body|)) + (setq |x| (SUBLIS |$extraParms| |x|)))) (COND ((AND (CONSP |x|) (EQ (QCAR |x|) '|Join|)) (CONS '|eval| (CONS (CONS 'QUOTE (CONS |x| NIL)) NIL))) @@ -1491,15 +1491,15 @@ (MKQ |x|)) ((AND (CONSP |x|) (EQ (QCAR |x|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |selector| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |selector| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |dom| (QCAR |ISTMP#2|)) + (setq |dom| (QCAR |ISTMP#2|)) 'T)))))) (CONS 'LIST (CONS (MKQ '|:|) @@ -1507,11 +1507,11 @@ (CONS (|mkDomainConstructor| |dom|) NIL))))) ((AND (CONSP |x|) (EQ (QCAR |x|) '|Record|) - (PROGN (SPADLET |argl| (QCDR |x|)) 'T)) + (PROGN (setq |argl| (QCDR |x|)) 'T)) (CONS 'LIST (CONS (MKQ '|Record|) (PROG (G166872) - (SPADLET G166872 NIL) + (setq G166872 NIL) (RETURN (DO ((G166877 |argl| (CDR G166877)) (|y| NIL)) @@ -1526,11 +1526,11 @@ (|mkDomainConstructor| |y|) G166872)))))))))) ((AND (CONSP |x|) (EQ (QCAR |x|) '|Join|) - (PROGN (SPADLET |argl| (QCDR |x|)) 'T)) + (PROGN (setq |argl| (QCDR |x|)) 'T)) (CONS 'LIST (CONS (MKQ '|Join|) (PROG (G166887) - (SPADLET G166887 NIL) + (setq G166887 NIL) (RETURN (DO ((G166892 |argl| (CDR G166892)) (|y| NIL)) @@ -1545,20 +1545,20 @@ (|mkDomainConstructor| |y|) G166887)))))))))) ((AND (CONSP |x|) (EQ (QCAR |x|) '|call|) - (PROGN (SPADLET |argl| (QCDR |x|)) 'T)) + (PROGN (setq |argl| (QCDR |x|)) 'T)) (CONS 'MKQ (CONS (|optCall| |x|) NIL))) ((AND (CONSP |x|) (EQ (QCDR |x|) NIL) - (PROGN (SPADLET |op| (QCAR |x|)) 'T)) + (PROGN (setq |op| (QCAR |x|)) 'T)) (MKQ |x|)) ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |argl| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |argl| (QCDR |x|)) 'T)) (CONS 'LIST (CONS (MKQ |op|) (PROG (G166902) - (SPADLET G166902 NIL) + (setq G166902 NIL) (RETURN (DO ((G166907 |argl| (CDR G166907)) (|a| NIL)) @@ -1602,24 +1602,24 @@ NIL) (PROGN (PROGN - (SPADLET |name| (CADR G166929)) - (SPADLET |cond| (CADDR G166929)) + (setq |name| (CADR G166929)) + (setq |cond| (CADDR G166929)) G166929) NIL)) NIL) - (SEQ (EXIT (SPADLET |$HackSlot4| + (SEQ (EXIT (setq |$HackSlot4| (MSUBST |name| |cond| |$HackSlot4|))))))) - (SPADLET |code| + (setq |code| (CONS 'SETELT (CONS '$ (CONS 4 (CONS '|TrueDomain| NIL))))) - (SPADLET |code| + (setq |code| (CONS '(LET |TrueDomain| (NREVERSE |TrueDomain|)) (APPEND |$HackSlot4| (CONS |code| NIL)))) - (SPADLET |code| + (setq |code| (APPEND (PROG (G166951) - (SPADLET G166951 NIL) + (setq G166951 NIL) (RETURN (DO ((G166958 |catNames| (CDR G166958)) @@ -1690,10 +1690,10 @@ (PROG (|cat| |cond| |u|) (RETURN (SEQ (PROGN - (SPADLET |cat| (CAR G166993)) - (SPADLET |cond| (CDR G166993)) + (setq |cat| (CAR G166993)) + (setq |cond| (CDR G166993)) G166993 - (SEQ (SPADLET |u| + (SEQ (setq |u| (CONS 'QUOTE (CONS (CONS |cat| (CAR (ELT (|eval| |cat|) 4))) @@ -1718,9 +1718,9 @@ (PROG (|slist|) (declare (special |$supplementaries|)) (RETURN - (SEQ (SPADLET |slist| + (SEQ (setq |slist| (PROG (G167015) - (SPADLET G167015 NIL) + (setq G167015 NIL) (RETURN (DO ((G167021 |$supplementaries| (CDR G167021)) @@ -1736,14 +1736,14 @@ (SETQ G167015 (CONS |u| G167015)))))))))) (IF (NULL |slist|) (EXIT NIL)) - (SPADLET |$supplementaries| (S- |$supplementaries| |slist|)) + (setq |$supplementaries| (S- |$supplementaries| |slist|)) (PRETTYPRINT (CONS |instantiator| (CONS " should solve" NIL))) (PRETTYPRINT |slist|) - (SPADLET |slist| + (setq |slist| (PROG (G167031) - (SPADLET G167031 NIL) + (setq G167031 NIL) (RETURN (DO ((G167036 |slist| (CDR G167036)) (|u| NIL)) @@ -1759,7 +1759,7 @@ G167031)))))))) (IF (EQL (LENGTH |slist|) 1) (EXIT (CONS (CADAR |slist|) NIL))) - (SPADLET |slist| (CONS 'PROGN |slist|)) + (setq |slist| (CONS 'PROGN |slist|)) (EXIT (CONS (CONS ''T (CONS |slist| NIL)) NIL)))))) (DEFUN |setVector4Onecat| (|name| |instantiator| |info|) @@ -1769,17 +1769,17 @@ ((AND (CONSP |instantiator|) (EQ (QCAR |instantiator|) '|DomainSubstitutionMacro|) (PROGN - (SPADLET |ISTMP#1| (QCDR |instantiator|)) + (setq |ISTMP#1| (QCDR |instantiator|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |body| (QCAR |ISTMP#2|)) + (setq |body| (QCAR |ISTMP#2|)) 'T)))))) (|setVector4Onecat| |name| |body| |info|)) ('T - (SPADLET |data| + (setq |data| (CONS 'CONS (CONS (CONS 'CONS (CONS @@ -1793,7 +1793,7 @@ NIL)) NIL))) (CONS |name| NIL)))) - (SPADLET |data| + (setq |data| (CONS 'SETQ (CONS '|TrueDomain| (CONS (CONS 'CONS @@ -1831,7 +1831,7 @@ (declare (special |$epilogue| |$QuickCode|)) (RETURN (SEQ (PROGN - (SPADLET |generated| NIL) + (setq |generated| NIL) (DO ((G167072 |catvecList| (CDR G167072)) (|u| NIL) (G167073 |catNames| (CDR G167073)) (|uname| NIL)) ((OR (ATOM G167072) @@ -1848,7 +1848,7 @@ NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |w| + ((setq |w| (|assoc| (CAR |v|) |generated|)) (RPLACD |w| @@ -1856,27 +1856,27 @@ (CONS (CDR |v|) |uname|) (CDR |w|)))) ('T - (SPADLET |generated| + (setq |generated| (CONS (CONS (CAR |v|) (CONS (CONS (CDR |v|) |uname|) NIL)) |generated|)))))))))) - (SPADLET |codeList| NIL) + (setq |codeList| NIL) (DO ((G167098 |generated| (CDR G167098)) (G167063 NIL)) ((OR (ATOM G167098) (PROGN (SETQ G167063 (CAR G167098)) NIL) (PROGN (PROGN - (SPADLET |w| (CAR G167063)) - (SPADLET |u| (CDR G167063)) + (setq |w| (CAR G167063)) + (setq |u| (CDR G167063)) G167063) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |code| (|compCategories| |w|)) + (setq |code| (|compCategories| |w|)) (DO ((G167108 |u| (CDR G167108)) (|v| NIL)) ((OR (ATOM G167108) @@ -1885,7 +1885,7 @@ NIL)) NIL) (SEQ (EXIT - (SPADLET |code| + (setq |code| (CONS (COND (|$QuickCode| 'QSETREFV) @@ -1895,10 +1895,10 @@ (CONS |code| NIL)))))))) (COND ((CONTAINED '$ |w|) - (SPADLET |$epilogue| + (setq |$epilogue| (CONS |code| |$epilogue|))) ('T - (SPADLET |codeList| + (setq |codeList| (CONS |code| |codeList|)))))))) |codeList|))))) @@ -1923,7 +1923,7 @@ (declare (special |$QuickCode|)) (RETURN (SEQ (PROGN - (SPADLET |generated| NIL) + (setq |generated| NIL) (DO ((G167137 |locals| (CDR G167137)) (|u| NIL) (G167138 |catNames| (CDR G167138)) (|uname| NIL)) ((OR (ATOM G167137) @@ -1932,15 +1932,15 @@ (PROGN (SETQ |uname| (CAR G167138)) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |w| (|assoc| |u| |generated|)) + ((setq |w| (|assoc| |u| |generated|)) (RPLACD |w| (CONS |uname| (CDR |w|)))) ('T - (SPADLET |generated| + (setq |generated| (CONS (CONS |u| (CONS |uname| NIL)) |generated|))))))) (PROG (G167154) - (SPADLET G167154 NIL) + (setq G167154 NIL) (RETURN (DO ((G167162 |generated| (CDR G167162)) (|u| NIL)) @@ -1950,7 +1950,7 @@ (SEQ (EXIT (SETQ G167154 (CONS (PROGN - (SPADLET |w| + (setq |w| (|mkVectorWithDeferral| (CAR |u|) (CAR (CDR |u|)))) (DO @@ -1964,7 +1964,7 @@ NIL) (SEQ (EXIT - (SPADLET |w| + (setq |w| (CONS (COND (|$QuickCode| 'QSETREFV) @@ -1995,7 +1995,7 @@ (RETURN (SEQ (CONS 'VECTOR (PROG (G167194) - (SPADLET G167194 NIL) + (setq G167194 NIL) (RETURN (DO ((G167200 |objects| (CDR G167200)) (|u| NIL) (|count| 0 (QSADD1 |count|))) @@ -2006,7 +2006,7 @@ (CONS (COND ((CONTAINED '$ |u|) - (SPADLET + (setq |$ConstantAssignments| (APPEND |$ConstantAssignments| @@ -2052,23 +2052,23 @@ (RETURN (SEQ (COND ((ATOM |base|) (|DescendCodeVarAdd| |base| |flag|)) - ((NULL (SPADLET |modemap| + ((NULL (setq |modemap| (|get| (|opOf| |base|) '|modemap| |$CategoryFrame|))) (COND ((PROGN - (SPADLET |ISTMP#1| (|getmode| (|opOf| |base|) |$e|)) + (setq |ISTMP#1| (|getmode| (|opOf| |base|) |$e|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Mapping|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |target| (QCAR |ISTMP#2|)) - (SPADLET |formalArgModes| + (setq |target| (QCAR |ISTMP#2|)) + (setq |formalArgModes| (QCDR |ISTMP#2|)) 'T))))) - (SPADLET |formalArgs| + (setq |formalArgs| (TAKE (|#| |formalArgModes|) |$FormalMapVariableList|))) ('T @@ -2085,16 +2085,16 @@ NIL) (PROGN (PROGN - (SPADLET |formalArgs| + (setq |formalArgs| (CDAAR G167227)) - (SPADLET |target| (CADAR G167227)) - (SPADLET |formalArgModes| + (setq |target| (CADAR G167227)) + (setq |formalArgModes| (CDDAR G167227)) G167227) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |ans| + ((setq |ans| (|DescendCodeAdd1| |base| |flag| |target| |formalArgs| |formalArgModes|)) @@ -2169,24 +2169,24 @@ (EXIT 'T)))) (EXIT (IF (AND (AND (CONSP |code|) (PROGN - (SPADLET |x| (QCAR |code|)) - (SPADLET |ISTMP#1| (QCDR |code|)) + (setq |x| (QCAR |code|)) + (setq |ISTMP#1| (QCDR |code|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |name| + (setq |name| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |number| + (setq |number| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |u'| + (setq |u'| (QCAR |ISTMP#3|)) 'T)))))))) (member |x| '(SETELT QSETREFV))) @@ -2200,13 +2200,13 @@ (declare (special |$QuickCode| |$addFormLhs| |$e|)) (RETURN (SEQ (PROGN - (SPADLET |slist| + (setq |slist| (|pairList| |formalArgs| (CDR |$addFormLhs|))) - (SPADLET |e| |$e|) - (SPADLET |newModes| (SUBLIS |slist| |formalArgModes|)) + (setq |e| |$e|) + (setq |newModes| (SUBLIS |slist| |formalArgModes|)) (COND ((PROG (G167334) - (SPADLET G167334 NIL) + (setq G167334 NIL) (RETURN (DO ((G167341 NIL G167334) (G167342 (CDR |$addFormLhs|) @@ -2232,20 +2232,20 @@ (PROGN (SETQ |m| (CAR G167361)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|compMakeDeclaration| (CONS '|:| (CONS |u| (CONS |m| NIL))) |m| |e|)) - (SPADLET |e| (CADDR |LETTMP#1|)) + (setq |e| (CADDR |LETTMP#1|)) |LETTMP#1|)))) - (SPADLET |cat| + (setq |cat| (CAR (|compMakeCategoryObject| |target| |e|))) - (SPADLET |instantiatedBase| (GENVAR)) - (SPADLET |n| (MAXINDEX |cat|)) - (SPADLET |code| + (setq |instantiatedBase| (GENVAR)) + (setq |n| (MAXINDEX |cat|)) + (setq |code| (PROG (G167375) - (SPADLET G167375 NIL) + (setq G167375 NIL) (RETURN (DO ((|i| 6 (+ |i| 1))) ((> |i| |n|) (NREVERSE0 G167375)) @@ -2255,10 +2255,10 @@ (NULL (ATOM (ELT |cat| |i|))) (NULL (ATOM - (SPADLET |sig| + (setq |sig| (CAR (ELT |cat| |i|))))) (NEQUAL - (SPADLET |u| + (setq |u| (|SetFunctionSlots| (SUBLIS |slist| |sig|) (CONS 'ELT @@ -2268,7 +2268,7 @@ NIL)) (SETQ G167375 (CONS |u| G167375)))))))))) - (SPADLET |copyvec| (make-array (+ 1 |n|))) + (setq |copyvec| (make-array (+ 1 |n|))) (DO ((G167387 |code| (CDR G167387)) (|u| NIL)) ((OR (ATOM G167387) (PROGN (SETQ |u| (CAR G167387)) NIL)) @@ -2276,7 +2276,7 @@ (SEQ (EXIT (COND ((|DescendCodeAdd1,update| |u| |copyvec| NIL) - (SPADLET |code| (|delete| |u| |code|))) + (setq |code| (|delete| |u| |code|))) ('T NIL))))) (DO ((|i| 6 (+ |i| 1))) ((> |i| |n|) NIL) (SEQ (EXIT (PROGN @@ -2290,9 +2290,9 @@ NIL) (SEQ (EXIT (PROGN - (SPADLET |name| (CAR |u|)) - (SPADLET |count| (CDR |u|)) - (SPADLET |j| (+ |i| 1)) + (setq |name| (CAR |u|)) + (setq |count| (CDR |u|)) + (setq |j| (+ |i| 1)) (DO () ((NULL (AND @@ -2306,8 +2306,8 @@ NIL) (SEQ (EXIT - (SPADLET |j| (+ |j| 1))))) - (SPADLET |j| + (setq |j| (+ |j| 1))))) + (setq |j| (SPADDIFFERENCE |j| 1)) (COND ((> |j| (+ |i| 2)) @@ -2324,7 +2324,7 @@ |k|) |i|)) (ELT |copyvec| |k|)))))) - (SPADLET |code| + (setq |code| (CONS (CONS 'REPLACE (CONS |name| @@ -2345,7 +2345,7 @@ (COND ((ELT |copyvec| |i|) (PROGN - (SPADLET |v| + (setq |v| (CONS (COND (|$QuickCode| 'QREFELT) @@ -2364,9 +2364,9 @@ (SEQ (EXIT (PROGN - (SPADLET |name| (CAR |u|)) - (SPADLET |count| (CDR |u|)) - (SPADLET |v| + (setq |name| (CAR |u|)) + (setq |count| (CDR |u|)) + (setq |v| (CONS (COND (|$QuickCode| 'QSETREFV) @@ -2374,7 +2374,7 @@ (CONS |name| (CONS |count| (CONS |v| NIL))))))))) - (SPADLET |code| (CONS |v| |code|))))))))) + (setq |code| (CONS |v| |code|))))))))) (CONS (CONS 'LET (CONS |instantiatedBase| (CONS |base| NIL))) |code|)))))))) @@ -2467,15 +2467,15 @@ ((|isMacro| |code| |$e|) NIL) ((AND (CONSP |code|) (EQ (QCAR |code|) '|add|) (PROGN - (SPADLET |ISTMP#1| (QCDR |code|)) + (setq |ISTMP#1| (QCDR |code|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |base| (QCAR |ISTMP#1|)) - (SPADLET |codelist| (QCDR |ISTMP#1|)) + (setq |base| (QCAR |ISTMP#1|)) + (setq |codelist| (QCDR |ISTMP#1|)) 'T)))) - (SPADLET |codelist| + (setq |codelist| (PROG (G167595) - (SPADLET G167595 NIL) + (setq G167595 NIL) (RETURN (DO ((G167601 |codelist| (CDR G167601)) (|u| NIL)) @@ -2486,7 +2486,7 @@ (NREVERSE0 G167595)) (SEQ (EXIT (COND ((NEQUAL - (SPADLET |v| + (setq |v| (|DescendCode| |u| |flag| |viewAssoc| |EnvToPass|)) NIL) @@ -2496,11 +2496,11 @@ (APPEND (|DescendCodeAdd| |base| |flag|) |codelist|))) ((AND (CONSP |code|) (EQ (QCAR |code|) 'PROGN) - (PROGN (SPADLET |codelist| (QCDR |code|)) 'T)) + (PROGN (setq |codelist| (QCDR |code|)) 'T)) (CONS 'PROGN (NREVERSE (PROG (G167612) - (SPADLET G167612 NIL) + (setq G167612 NIL) (RETURN (DO ((G167618 (REVERSE |codelist|) (CDR G167618)) @@ -2513,17 +2513,17 @@ (SEQ (EXIT (COND ((NEQUAL - (SPADLET |v| + (setq |v| (|DescendCode| |u| |flag| |viewAssoc| |EnvToPass|)) NIL) (SETQ G167612 (CONS |v| G167612)))))))))))) ((AND (CONSP |code|) (EQ (QCAR |code|) 'COND) - (PROGN (SPADLET |condlist| (QCDR |code|)) 'T)) - (SPADLET |c| + (PROGN (setq |condlist| (QCDR |code|)) 'T)) + (setq |c| (PROG (G167637) - (SPADLET G167637 NIL) + (setq G167637 NIL) (RETURN (DO ((G167651 |condlist| (CDR G167651)) (|u| NIL)) @@ -2535,23 +2535,23 @@ (SEQ (EXIT (SETQ G167637 (CONS (CONS - (SPADLET |u2| + (setq |u2| (|ProcessCond| (CAR |u|) |viewAssoc|)) (COND ((NULL |u2|) NIL) ('T - (SPADLET |f| + (setq |f| (COND ((|TruthP| |u2|) |flag|) ((|TruthP| |flag|) - (SPADLET |flag| + (setq |flag| (CONS 'NOT (CONS |u2| NIL))) |u2|) ('T - (SPADLET |flag| + (setq |flag| (CONS 'AND (CONS |flag| (CONS @@ -2562,7 +2562,7 @@ (CONS |flag| (CONS |u2| NIL)))))) (PROG (G167670) - (SPADLET G167670 NIL) + (setq G167670 NIL) (RETURN (DO ((G167684 @@ -2585,7 +2585,7 @@ |v| |f| (COND ((PROGN - (SPADLET + (setq |ISTMP#1| (CAR |u|)) @@ -2597,7 +2597,7 @@ |ISTMP#1|) '|HasCategory|) (PROGN - (SPADLET + (setq |ISTMP#2| (QCDR |ISTMP#1|)) @@ -2605,11 +2605,11 @@ (CONSP |ISTMP#2|) (PROGN - (SPADLET + (setq |dom| (QCAR |ISTMP#2|)) - (SPADLET + (setq |ISTMP#3| (QCDR |ISTMP#2|)) @@ -2621,7 +2621,7 @@ |ISTMP#3|) NIL) (PROGN - (SPADLET + (setq |cat| (QCAR |ISTMP#3|)) @@ -2642,20 +2642,20 @@ (DO () ((NULL (AND |c| (OR (PROGN - (SPADLET |ISTMP#1| (|last| |c|)) + (setq |ISTMP#1| (|last| |c|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |c1| + (setq |c1| (QCAR |ISTMP#1|)) 'T))) (PROGN - (SPADLET |ISTMP#1| (|last| |c|)) + (setq |ISTMP#1| (|last| |c|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |c1| + (setq |c1| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) @@ -2664,32 +2664,32 @@ (AND (CONSP |c1|) (EQ (QCAR |c1|) '|HasAttribute|))))) NIL) - (SEQ (EXIT (SPADLET |c| + (SEQ (EXIT (setq |c| (NREVERSE (CDR (NREVERSE |c|))))))) (COND ((NULL |c|) '(LIST)) ('T (CONS 'COND |c|)))))) ((AND (CONSP |code|) (EQ (QCAR |code|) 'LET) (PROGN - (SPADLET |ISTMP#1| (QCDR |code|)) + (setq |ISTMP#1| (QCDR |code|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |name| (QCAR |ISTMP#1|)) - (SPAD