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|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |name| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |body| (QCAR |ISTMP#2|)) + (setq |body| (QCAR |ISTMP#2|)) 'T)))))) (COND ((AND (CONSP |body|) - (PROGN (SPADLET |a| (QCAR |body|)) 'T) + (PROGN (setq |a| (QCAR |body|)) 'T) (|isFunctor| |a|)) - (SPADLET |$packagesUsed| + (setq |$packagesUsed| (CONS |body| |$packagesUsed|)))) (COND - ((SPADLET |u| (|member| |name| |$locals|)) + ((setq |u| (|member| |name| |$locals|)) (COND ((AND (CONTAINED '$ |body|) (|isDomainForm| |body| |$e|)) - (SPADLET |code| + (setq |code| (CONS (COND (|$QuickCode| 'QSETREFV) ('T 'SETELT)) @@ -2703,7 +2703,7 @@ (SPADDIFFERENCE (|#| |$locals|) (|#| |u|)) (CONS |code| NIL))))) - (SPADLET |$epilogue| + (setq |$epilogue| (COND ((|TruthP| |flag|) (CONS |code| |$epilogue|)) @@ -2721,40 +2721,40 @@ ('T |code|))) ((AND (CONSP |code|) (EQ (QCAR |code|) '|CodeDefine|) (PROGN - (SPADLET |ISTMP#1| (QCDR |code|)) + (setq |ISTMP#1| (QCDR |code|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |sig| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |sig| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |implem| (QCAR |ISTMP#2|)) + (setq |implem| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |dom| |EnvToPass|) - (SPADLET |dom| + (setq |dom| |EnvToPass|) + (setq |dom| (COND - ((SPADLET |u| (LASSOC |dom| |viewAssoc|)) + ((setq |u| (LASSOC |dom| |viewAssoc|)) (CONS '|getDomainView| (CONS |dom| (CONS |u| NIL)))) ('T |dom|))) - (SPADLET |body| + (setq |body| (CONS 'CONS (CONS |implem| (CONS |dom| NIL)))) - (SPADLET |u| + (setq |u| (|SetFunctionSlots| |sig| |body| |flag| '|original|)) (COND ((|ConstantCreator| |u|) (COND ((NULL (BOOT-EQUAL |flag| 'T)) - (SPADLET |u| + (setq |u| (CONS 'COND (CONS (CONS (|ProcessCond| |flag| |viewAssoc|) (CONS |u| NIL)) NIL))))) - (SPADLET |$ConstantAssignments| + (setq |$ConstantAssignments| (CONS |u| |$ConstantAssignments|)) NIL) ('T |u|))) @@ -2785,18 +2785,18 @@ ((NULL |u|) NIL) ((AND (CONSP |u|) (PROGN - (SPADLET |q| (QCAR |u|)) - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |q| (QCAR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |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) (PROGN - (SPADLET |u'| (QCAR |ISTMP#3|)) + (setq |u'| (QCAR |ISTMP#3|)) 'T))))))) (OR (BOOT-EQUAL |q| 'SETELT) (BOOT-EQUAL |q| 'QSETREFV))) (|ConstantCreator| |u'|)) @@ -2814,7 +2814,7 @@ (declare (special |$NRTslot1PredicateList| |$pairlis|)) (RETURN (PROGN - (SPADLET |ncond| (SUBLIS |$pairlis| |cond|)) + (setq |ncond| (SUBLIS |$pairlis| |cond|)) (COND ((INTEGERP (POSN1 |ncond| |$NRTslot1PredicateList|)) (|predicateBitRef| |ncond|)) @@ -2840,8 +2840,8 @@ (SEQ (COND ((ATOM |cond|) |cond|) ((AND (CONSP |cond|) (EQ (QCAR |cond|) '|HasCategory|) - (PROGN (SPADLET |l| (QCDR |cond|)) 'T)) - (SPADLET |solved| NIL) + (PROGN (setq |l| (QCDR |cond|)) 'T)) + (setq |solved| NIL) (DO ((G167813 |$getDomainCode| (CDR G167813)) (|u| NIL)) ((OR (ATOM G167813) @@ -2852,18 +2852,18 @@ (COND ((AND (CONSP |u|) (EQ (QCAR |u|) 'LET) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (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|) (EQ (QCDR |ISTMP#2|) NIL) (EQUAL (QCAR |ISTMP#2|) |cond|)))))) - (SPADLET |solved| |name|)) + (setq |solved| |name|)) ('T NIL))))))) (COND (|solved| |solved|) ('T |cond|))) ('T |cond|)))))) @@ -2913,7 +2913,7 @@ |$catvecList|)) (RETURN (SEQ (PROGN - (SPADLET |catNames| (CONS '$ NIL)) + (setq |catNames| (CONS '$ NIL)) (DO ((G167890 |$catvecList| (CDR G167890)) (|u| NIL) (G167891 |catNames| (CDR G167891)) (|v| NIL)) ((OR (ATOM G167890) @@ -2939,19 +2939,19 @@ (COND ((AND (CONSP |catImplem|) (PROGN - (SPADLET |q| + (setq |q| (QCAR |catImplem|)) - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |catImplem|)) (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 |index| + (setq |index| (QCAR |ISTMP#2|)) 'T))))) (OR (BOOT-EQUAL |q| 'ELT) @@ -2961,22 +2961,22 @@ (CONSP |body|) (EQ (QCAR |body|) 'CONS) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |body|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| + (setq |a| (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 |body| + (setq |body| (CONS 'CONS (CONS 'IDENTITY (CONS @@ -2984,7 +2984,7 @@ (CONS |a| (CONS |b| NIL))) NIL)))))) - (SPADLET |body| + (setq |body| (CONS (COND (|$QuickCode| 'QSETREFV) @@ -3012,7 +3012,7 @@ ((|TruthP| (ELT |$SetFunctions| |index|)) - (SPADLET |body| NIL) + (setq |body| NIL) (RETURN NIL)) ('T (SETELT @@ -3039,7 +3039,7 @@ (EQ (QCAR |catImplem|) '|Subsumed|) (PROGN - (SPADLET |truename| + (setq |truename| (QCDR |catImplem|)) 'T)) (COND @@ -3048,14 +3048,14 @@ (COND ((AND (CONSP |truename|) (PROGN - (SPADLET |fn| + (setq |fn| (QCAR |truename|)) 'T) (member |fn| '(|Zero| |One|))) NIL) ('T - (SPADLET |body| + (setq |body| (|SetFunctionSlots| |truename| |body| NIL |mode|))))) @@ -3089,11 +3089,11 @@ (SEQ (PROGN (COND (|$insideCategoryPackageIfTrue| - (SPADLET |sig| + (setq |sig| (MSUBST '$ (CADR |$functorForm|) |sig|)))) - (SPADLET |siglist| |$lisplibOperationAlist|) + (setq |siglist| |$lisplibOperationAlist|) (REMDUP (PROG (G167951) - (SPADLET G167951 NIL) + (setq G167951 NIL) (RETURN (DO ((G167957 |siglist| (CDR G167957)) (|u| NIL)) @@ -3106,7 +3106,7 @@ ((AND (|SigSlotsMatch| |sig| (CAR |u|) - (SPADLET |implem| + (setq |implem| (CADDR |u|))) (KADDR |implem|)) (SETQ G167951 @@ -3135,8 +3135,8 @@ (LENGTH (CADR |pattern|)))) NIL) ((NULL (BOOT-EQUAL (CAR |sig|) (CAR |pattern|))) NIL) - ('T (SPADLET |pat'| (SUBSTQ |$definition| '$ (CADR |pattern|))) - (SPADLET |sig'| (SUBSTQ |$definition| '$ (CADR |sig|))) + ('T (setq |pat'| (SUBSTQ |$definition| '$ (CADR |pattern|))) + (setq |sig'| (SUBSTQ |$definition| '$ (CADR |sig|))) (COND ((BOOT-EQUAL |sig'| |pat'|) 'T) ((AND (CONSP |implem|) (EQ (QCAR |implem|) '|Subsumed|)) @@ -3175,10 +3175,10 @@ |$getDomainCode|)) (RETURN (SEQ (PROGN - (SPADLET |code| NIL) - (SPADLET |condAlist| + (setq |code| NIL) + (setq |condAlist| (PROG (G167989) - (SPADLET G167989 NIL) + (setq G167989 NIL) (RETURN (DO ((G167995 |$getDomainCode| (CDR G167995)) @@ -3189,8 +3189,8 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CADR G167976)) - (SPADLET |b| (CDDR G167976)) + (setq |a| (CADR G167976)) + (setq |b| (CDDR G167976)) G167976) NIL)) (NREVERSE0 G167989)) @@ -3200,7 +3200,7 @@ (DO ((G168007 (MAXINDEX |vec|)) (|i| 6 (+ |i| 1))) ((> |i| G168007) NIL) (SEQ (EXIT (PROGN - (SPADLET |v| (ELT |vec| |i|)) + (setq |v| (ELT |vec| |i|)) (COND ((BOOT-EQUAL |v| 'T) NIL) ((NULL |v|) NIL) @@ -3226,7 +3226,7 @@ (SEQ (EXIT (COND ((BOOT-EQUAL |y| |v|) - (SPADLET |code| + (setq |code| (CONS (CONS (COND @@ -3242,7 +3242,7 @@ |$CheckVectorList|) NIL) ('T - (SPADLET |$CheckVectorList| + (setq |$CheckVectorList| (CONS (CONS (CAR |v|) (|makeMissingFunctionEntry| @@ -3263,37 +3263,37 @@ (RETURN (SEQ (IF (AND (CONSP |x|) (EQ (QCAR |x|) '|HasCategory|) (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 |ISTMP#3| + (setq |ISTMP#3| (QCAR |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 |b| + (setq |b| (QCAR |ISTMP#4|)) 'T)))))))))) (EXIT (CONS '|has| (CONS |a| (CONS |b| NIL))))) (IF (AND (AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |l| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |l| (QCDR |x|)) 'T)) (|member| |op| '(AND OR NOT))) (EXIT (CONS |op| (PROG (G168082) - (SPADLET G168082 NIL) + (setq G168082 NIL) (RETURN (DO ((G168087 |l| (CDR G168087)) (|y| NIL)) @@ -3435,13 +3435,13 @@ (IF (AND (CONSP |a|) (EQ (QCAR |a|) 'SIGNATURE)) (EXIT |a|)) (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 |cond| (QCAR |ISTMP#1|)) + (setq |cond| (QCAR |ISTMP#1|)) 'T)))) (EXIT (SEQ (IF (NULL (|member| |cond| |$Conditions|)) - (SPADLET |$Conditions| + (setq |$Conditions| (CONS |cond| |$Conditions|)) NIL) (EXIT NIL)))) @@ -3455,41 +3455,41 @@ (IF (AND (CONSP |code|) (EQ (QCAR |code|) '|DomainSubstitutionMacro|) (PROGN - (SPADLET |ISTMP#1| (QCDR |code|)) + (setq |ISTMP#1| (QCDR |code|)) (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 |b| (QCAR |ISTMP#2|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (EXIT (|InvestigateConditions,Conds| |b| |previous|))) (IF (AND (CONSP |code|) (EQ (QCAR |code|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |code|)) + (setq |ISTMP#1| (QCDR |code|)) (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|) (PROGN - (SPADLET |b| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |b| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |c| (QCAR |ISTMP#3|)) + (setq |c| (QCAR |ISTMP#3|)) 'T)))))))) (EXIT (|union| (|InvestigateConditions,Conds| |b| (CONS |a| |previous|)) (|InvestigateConditions,Conds| |c| |previous|)))) (IF (AND (CONSP |code|) (EQ (QCAR |code|) 'PROGN) - (PROGN (SPADLET |l| (QCDR |code|)) 'T)) + (PROGN (setq |l| (QCDR |code|)) 'T)) (EXIT (PROG (G168178) - (SPADLET G168178 NIL) + (setq G168178 NIL) (RETURN (DO ((G168183 |l| (CDR G168183)) (|u| NIL)) @@ -3503,9 +3503,9 @@ (|InvestigateConditions,Conds| |u| |previous|)))))))))) (IF (AND (CONSP |code|) (EQ (QCAR |code|) 'CATEGORY) - (PROGN (SPADLET |l| (QCDR |code|)) 'T)) + (PROGN (setq |l| (QCDR |code|)) 'T)) (EXIT (PROG (G168189) - (SPADLET G168189 NIL) + (setq G168189 NIL) (RETURN (DO ((G168194 |l| (CDR G168194)) (|u| NIL)) @@ -3519,9 +3519,9 @@ (|InvestigateConditions,Conds| |u| |previous|)))))))))) (IF (AND (CONSP |code|) (EQ (QCAR |code|) '|Join|) - (PROGN (SPADLET |l| (QCDR |code|)) 'T)) + (PROGN (setq |l| (QCDR |code|)) 'T)) (EXIT (PROG (G168200) - (SPADLET G168200 NIL) + (setq G168200 NIL) (RETURN (DO ((G168205 |l| (CDR G168205)) (|u| NIL)) @@ -3548,18 +3548,18 @@ (PROGN (SETQ G168243 (CAR G168252)) NIL) (PROGN (PROGN - (SPADLET |newS2| (CAR G168243)) - (SPADLET |morecond| (CDR G168243)) + (setq |newS2| (CAR G168243)) + (setq |morecond| (CDR G168243)) G168243) NIL)) NIL) - (SEQ (EXIT (SPADLET |old| + (SEQ (EXIT (setq |old| (SEQ (IF (NULL (|AncestorP| |sec| (CONS |newS2| NIL))) (EXIT |old|)) - (SPADLET |cond2| + (setq |cond2| (|mkAnd| |cond| |morecond|)) (IF (NULL |old|) (EXIT |cond2|)) (EXIT (|mkOr| |cond2| |old|))))))) @@ -3569,9 +3569,9 @@ (LIST |cond| |secondaries| |newS|) (PROG (|list2|) (RETURN - (SEQ (SPADLET |list2| + (SEQ (setq |list2| (PROG (G168273) - (SPADLET G168273 NIL) + (setq G168273 NIL) (RETURN (DO ((G168279 |secondaries| (CDR G168279)) (|sec| NIL) @@ -3620,19 +3620,19 @@ |$HackSlot4| |$domainShell|)) (RETURN (SEQ (PROGN - (SPADLET |$Conditions| NIL) - (SPADLET |$principal| (CAR |catvecListMaker|)) - (SPADLET |secondaries| (CDR |catvecListMaker|)) + (setq |$Conditions| NIL) + (setq |$principal| (CAR |catvecListMaker|)) + (setq |secondaries| (CDR |catvecListMaker|)) (COND ((NULL |secondaries|) '(T)) ('T (COND ((AND (CONSP |$principal|) - (PROGN (SPADLET |op| (QCAR |$principal|)) 'T)) - (SPADLET |LETTMP#1| + (PROGN (setq |op| (QCAR |$principal|)) 'T)) + (setq |LETTMP#1| (|compMakeCategoryObject| |$principal| |$e|)) - (SPADLET |principal'| (CAR |LETTMP#1|)) + (setq |principal'| (CAR |LETTMP#1|)) (DO ((G168306 (CADR (ELT |principal'| 4)) (CDR G168306)) (|u| NIL)) @@ -3642,8 +3642,8 @@ (SEQ (EXIT (COND ((NULL (|TruthP| - (SPADLET |cond| (CADR |u|)))) - (SPADLET |new| + (setq |cond| (CADR |u|)))) + (setq |new| (CONS 'CATEGORY (CONS '|domain| (CONS @@ -3660,30 +3660,30 @@ (EQ (QCAR |$principal|) '|Join|) (PROGN - (SPADLET |l| + (setq |l| (QCDR |$principal|)) 'T)) (COND ((NULL (|member| |new| |l|)) (EXIT - (SPADLET |$principal| + (setq |$principal| (CONS '|Join| (APPEND |l| (CONS |new| NIL)))))))) ('T - (SPADLET |$principal| + (setq |$principal| (CONS '|Join| (CONS |$principal| (CONS |new| NIL)))))))) ('T NIL))))))) - (SPADLET |principal'| + (setq |principal'| (|InvestigateConditions,pessimise| |$principal|)) (COND ((NULL |$Conditions|) (CONS 'T (PROG (G168316) - (SPADLET G168316 NIL) + (setq G168316 NIL) (RETURN (DO ((G168321 |secondaries| (CDR G168321)) @@ -3697,15 +3697,15 @@ (SETQ G168316 (CONS 'T G168316))))))))) ('T - (SPADLET |PrincipalSecondaries| + (setq |PrincipalSecondaries| (|getViewsConditions| |principal'|)) - (SPADLET |MinimalPrimary| + (setq |MinimalPrimary| (CAR (CAR |PrincipalSecondaries|))) - (SPADLET |MaximalPrimary| + (setq |MaximalPrimary| (CAAR (ELT |$domainShell| 4))) - (SPADLET |necessarySecondaries| + (setq |necessarySecondaries| (PROG (G168332) - (SPADLET G168332 NIL) + (setq G168332 NIL) (RETURN (DO ((G168338 |PrincipalSecondaries| (CDR G168338)) @@ -3722,7 +3722,7 @@ (CONS (CAR |u|) G168332)))))))))) (COND ((PROG (G168344) - (SPADLET G168344 'T) + (setq G168344 'T) (RETURN (DO ((G168350 NIL (NULL G168344)) (G168351 |secondaries| @@ -3739,7 +3739,7 @@ |necessarySecondaries|)))))))) (CONS 'T (PROG (G168362) - (SPADLET G168362 NIL) + (setq G168362 NIL) (RETURN (DO ((G168367 |secondaries| (CDR G168367)) @@ -3753,31 +3753,31 @@ (SETQ G168362 (CONS 'T G168362))))))))) ('T - (SPADLET |$HackSlot4| + (setq |$HackSlot4| (COND ((BOOT-EQUAL |MinimalPrimary| |MaximalPrimary|) NIL) ('T - (SPADLET |MaximalPrimaries| + (setq |MaximalPrimaries| (CONS |MaximalPrimary| (CAR (ELT (|CatEval| |MaximalPrimary|) 4)))) - (SPADLET |MinimalPrimaries| + (setq |MinimalPrimaries| (CONS |MinimalPrimary| (CAR (ELT (|CatEval| |MinimalPrimary|) 4)))) - (SPADLET |MaximalPrimaries| + (setq |MaximalPrimaries| (S- |MaximalPrimaries| |MinimalPrimaries|)) (PROG (G168377) - (SPADLET G168377 NIL) + (setq G168377 NIL) (RETURN (DO ((G168382 |MaximalPrimaries| @@ -3793,13 +3793,13 @@ (SETQ G168377 (CONS (CONS |x| NIL) G168377)))))))))) - (SPADLET |$Conditions| + (setq |$Conditions| (|InvestigateConditions,Conds| |$principal| NIL)) - (SPADLET |$Conditions| + (setq |$Conditions| (delete NIL (PROG (G168392) - (SPADLET G168392 NIL) + (setq G168392 NIL) (RETURN (DO ((G168397 |$Conditions| (CDR G168397)) @@ -3813,9 +3813,9 @@ (SETQ G168392 (CONS (delete NIL |u| :count 1 :test #'equal) G168392))))))) :count 1 :test #'equal)) - (SPADLET |partList| + (setq |partList| (PROG (G168407) - (SPADLET G168407 NIL) + (setq G168407 NIL) (RETURN (DO ((G168412 |$Conditions| @@ -3834,7 +3834,7 @@ (|partPessimise| |$principal| |cond|)) G168407)))))))) - (SPADLET |masterSecondaries| |secondaries|) + (setq |masterSecondaries| |secondaries|) (DO ((G168423 |partList| (CDR G168423)) (|u| NIL)) ((OR (ATOM G168423) @@ -3850,7 +3850,7 @@ NIL) (PROGN (PROGN - (SPADLET |v| (CAR G168230)) + (setq |v| (CAR G168230)) G168230) NIL)) NIL) @@ -3859,12 +3859,12 @@ (COND ((NULL (|member| |v| |secondaries|)) - (SPADLET |secondaries| + (setq |secondaries| (CONS |v| |secondaries|))) ('T NIL)))))))) - (SPADLET LIST + (setq LIST (PROG (G168444) - (SPADLET G168444 NIL) + (setq G168444 NIL) (RETURN (DO ((G168449 |secondaries| @@ -3895,7 +3895,7 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |u| + (setq |u| (COND ((EQL (LENGTH |u|) 1) (CAR |u|)) @@ -3911,7 +3911,7 @@ NIL) (PROGN (PROGN - (SPADLET |v| + (setq |v| (CAR G168239)) G168239) NIL)) @@ -3934,7 +3934,7 @@ (SEQ (EXIT (COND - ((SPADLET |w| + ((setq |w| (|assoc| |v'| |$HackSlot4|)) (RPLAC (CDR |w|) @@ -3944,12 +3944,12 @@ (CDR |w|))) ('T |u|)))) ('T NIL)))))))) - (SPADLET LIST + (setq LIST (|InvestigateConditions,update| LIST |u| |secondaries| |newS|)))))) - (SPADLET LIST + (setq LIST (PROG (G168499) - (SPADLET G168499 NIL) + (setq G168499 NIL) (RETURN (DO ((G168505 LIST (CDR G168505)) @@ -3972,10 +3972,10 @@ (CONS (CONS |sec| (|ICformat| |u|)) G168499)))))))) - (SPADLET |pv| (|getPossibleViews| |$principal|)) - (SPADLET |$HackSlot4| + (setq |pv| (|getPossibleViews| |$principal|)) + (setq |$HackSlot4| (PROG (G168519) - (SPADLET G168519 NIL) + (setq G168519 NIL) (RETURN (DO ((G168524 |$HackSlot4| @@ -3993,9 +3993,9 @@ (|InvestigateConditions,reshape| |u|) G168519)))))))) - (SPADLET |$supplementaries| + (setq |$supplementaries| (PROG (G168535) - (SPADLET G168535 NIL) + (setq G168535 NIL) (RETURN (DO ((G168541 LIST (CDR G168541)) @@ -4020,7 +4020,7 @@ (CONS |u| G168535)))))))))) (CONS 'T (PROG (G168551) - (SPADLET G168551 NIL) + (setq G168551 NIL) (RETURN (DO ((G168556 |masterSecondaries| (CDR G168556)) @@ -4104,7 +4104,7 @@ (IF (OR (|member| |v| |u|) (PROG (G168643) - (SPADLET G168643 'T) + (setq G168643 'T) (RETURN (DO ((G168649 NIL @@ -4125,7 +4125,7 @@ (AND G168643 (|member| |w| |u|))))))))) - (SPADLET |l| + (setq |l| (|delete| |u| |l|)) NIL))))))))))) (EXIT |l|))))) @@ -4142,28 +4142,28 @@ ((AND (AND (CONSP |u|) (EQ (QCAR |u|) '|HasCategory|) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (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|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |cond| + (setq |cond| (QCAR |ISTMP#2|)) 'T)))))) (AND (CONSP |cond|) (EQ (QCAR |cond|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |cond|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |cond| + (setq |cond| (QCAR |ISTMP#1|)) 'T))))) (DO ((G168784 |l| (CDR G168784)) @@ -4180,20 +4180,20 @@ (EQ (QCAR |v|) '|HasCategory|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |v|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |name|) (PROGN - (SPADLET |ISTMP#2| + (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|) @@ -4201,7 +4201,7 @@ (QCAR |ISTMP#3|) 'QUOTE) (PROGN - (SPADLET + (setq |ISTMP#4| (QCDR |ISTMP#3|)) @@ -4213,7 +4213,7 @@ |ISTMP#4|) NIL) (PROGN - (SPADLET + (setq |cond2| (QCAR |ISTMP#4|)) @@ -4221,7 +4221,7 @@ (IF (|DescendantP| |cond| |cond2|) - (SPADLET |l| + (setq |l| (|delete| |u| |l|)) NIL))))))))))) (DO ((G168815 |l| (CDR G168815)) (|u| NIL)) @@ -4231,11 +4231,11 @@ (SEQ (EXIT (COND ((OR (AND (CONSP |u|) (EQ (QCAR |u|) 'AND) (PROGN - (SPADLET |l'| (QCDR |u|)) + (setq |l'| (QCDR |u|)) 'T)) (AND (CONSP |u|) (EQ (QCAR |u|) '|and|) (PROGN - (SPADLET |l'| (QCDR |u|)) + (setq |l'| (QCDR |u|)) 'T))) (DO ((G168835 |l'| (CDR G168835)) (|u'| NIL)) @@ -4250,32 +4250,32 @@ (EQ (QCAR |u'|) '|HasCategory|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |u'|)) (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|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |cond| + (setq |cond| (QCAR |ISTMP#2|)) 'T)))))) (AND (CONSP |cond|) (EQ (QCAR |cond|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |cond|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |cond| + (setq |cond| (QCAR |ISTMP#1|)) 'T))))) (DO @@ -4295,7 +4295,7 @@ (EQ (QCAR |v|) '|HasCategory|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |v|)) (AND (CONSP |ISTMP#1|) @@ -4303,7 +4303,7 @@ (QCAR |ISTMP#1|) |name|) (PROGN - (SPADLET + (setq |ISTMP#2| (QCDR |ISTMP#1|)) @@ -4315,7 +4315,7 @@ |ISTMP#2|) NIL) (PROGN - (SPADLET + (setq |ISTMP#3| (QCAR |ISTMP#2|)) @@ -4327,7 +4327,7 @@ |ISTMP#3|) 'QUOTE) (PROGN - (SPADLET + (setq |ISTMP#4| (QCDR |ISTMP#3|)) @@ -4339,7 +4339,7 @@ |ISTMP#4|) NIL) (PROGN - (SPADLET + (setq |cond2| (QCAR |ISTMP#4|)) @@ -4347,7 +4347,7 @@ (IF (|DescendantP| |cond| |cond2|) - (SPADLET |l| + (setq |l| (|delete| |u| |l|)) NIL)))))))))))))))) (EXIT |l|))))) @@ -4360,20 +4360,20 @@ ((AND (CONSP |u|) (EQ (QCAR |u|) '|has|)) (|compHasFormat| |u|)) ((OR (AND (CONSP |u|) (EQ (QCAR |u|) 'AND) - (PROGN (SPADLET |l| (QCDR |u|)) 'T)) + (PROGN (setq |l| (QCDR |u|)) 'T)) (AND (CONSP |u|) (EQ (QCAR |u|) '|and|) - (PROGN (SPADLET |l| (QCDR |u|)) 'T))) - (SPADLET |l| + (PROGN (setq |l| (QCDR |u|)) 'T))) + (setq |l| (REMDUP (PROG (G168889) - (SPADLET G168889 NIL) + (setq G168889 NIL) (RETURN (DO ((G168617 |l| (CDR G168617))) ((OR (ATOM G168617) (PROGN (PROGN - (SPADLET |v| (CAR G168617)) - (SPADLET |l'| + (setq |v| (CAR G168617)) + (setq |l'| (CDR G168617)) G168617) NIL)) @@ -4387,23 +4387,23 @@ G168889))))))))))) (COND ((EQL (LENGTH |l|) 1) (CAR |l|)) - ('T (SPADLET |l1| (CAR |l|)) + ('T (setq |l1| (CAR |l|)) (DO ((G168903 (CDR |l|) (CDR G168903)) (|u| NIL)) ((OR (ATOM G168903) (PROGN (SETQ |u| (CAR G168903)) NIL)) NIL) - (SEQ (EXIT (SPADLET |l1| (|mkAnd| |u| |l1|))))) + (SEQ (EXIT (setq |l1| (|mkAnd| |u| |l1|))))) |l1|))) ((AND (CONSP |u|) (EQ (QCAR |u|) 'OR) - (PROGN (SPADLET |l| (QCDR |u|)) 'T)) - (SPADLET |l| (|ICformat,ORreduce| |l|)) + (PROGN (setq |l| (QCDR |u|)) 'T)) + (setq |l| (|ICformat,ORreduce| |l|)) (COND ((EQL (LENGTH |l|) 1) (|ICformat| (CAR |l|))) ('T - (SPADLET |l| + (setq |l| (|ICformat,ORreduce| (REMDUP (PROG (G168913) - (SPADLET G168913 NIL) + (setq G168913 NIL) (RETURN (DO ((G168918 |l| @@ -4420,7 +4420,7 @@ (SETQ G168913 (CONS (|ICformat| |u|) G168913)))))))))) - (SPADLET |l| (|ICformat,Hasreduce| |l|)) + (setq |l| (|ICformat,Hasreduce| |l|)) (COND ((EQL (LENGTH |l|) 1) (CAR |l|)) ('T (CONS 'OR |l|)))))) @@ -4440,9 +4440,9 @@ ((AND (CONSP |a|) (EQ (QCAR |a|) 'SIGNATURE)) |a|) ((AND (CONSP |a|) (EQ (QCAR |a|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |cond| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |cond| (QCAR |ISTMP#1|)) 'T)))) (COND ((|member| |cond| |trueconds|) |a|) ('T NIL))) ('T (CONS (|partPessimise| (CAR |a|) |trueconds|) @@ -4461,14 +4461,14 @@ (declare (special |$e|)) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (OR (|compMakeCategoryObject| |u| |$e|) (|systemErrorHere| "getPossibleViews"))) - (SPADLET |vec| (CAR |LETTMP#1|)) - (SPADLET |views| + (setq |vec| (CAR |LETTMP#1|)) + (setq |views| (PROG (G168961) - (SPADLET G168961 NIL) + (setq G168961 NIL) (RETURN (DO ((G168966 (CADR (ELT |vec| 4)) (CDR G168966)) @@ -4506,14 +4506,14 @@ (declare (special |$e|)) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (OR (|compMakeCategoryObject| |u| |$e|) (|systemErrorHere| "getViewsConditions"))) - (SPADLET |vec| (CAR |LETTMP#1|)) - (SPADLET |views| + (setq |vec| (CAR |LETTMP#1|)) + (setq |views| (PROG (G168990) - (SPADLET G168990 NIL) + (setq G168990 NIL) (RETURN (DO ((G168995 (CADR (ELT |vec| 4)) (CDR G168995)) @@ -4551,40 +4551,40 @@ (declare (special |$e| |$catvecList|)) (RETURN (SEQ (PROGN - (SPADLET |princview| (CAR |$catvecList|)) + (setq |princview| (CAR |$catvecList|)) (PROG (G169068) - (SPADLET G169068 NIL) + (setq G169068 NIL) (RETURN (DO ((G169074 (MAXINDEX |princview|)) (|i| 6 (+ |i| 1))) ((> |i| G169074) (NREVERSE0 G169068)) (SEQ (EXIT (COND ((AND (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (ELT |princview| |i|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |op| + (setq |op| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |types| + (setq |types| (QCAR |ISTMP#3|)) 'T))))) (PROGN - (SPADLET |sig| + (setq |sig| (QCAR |ISTMP#1|)) 'T))) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (LASSOC (CONS |base| (MSUBST |base| '$ |types|)) @@ -4592,19 +4592,19 @@ (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |implem| + (setq |implem| (QCAR |ISTMP#3|)) 'T)))))))) (SETQ G169068 @@ -4637,7 +4637,7 @@ (DEFUN |resolvePatternVars| (|p| |args|) (declare (special |$FormalMapVariableList| |$TriangleVariableList|)) (PROGN - (SPADLET |p| (SUBLISLIS |args| |$TriangleVariableList| |p|)) + (setq |p| (SUBLISLIS |args| |$TriangleVariableList| |p|)) (SUBLISLIS |args| |$FormalMapVariableList| |p|))) \end{chunk} diff --git a/src/interp/g-boot.lisp.pamphlet b/src/interp/g-boot.lisp.pamphlet index 87cbf41..f21650b 100644 --- a/src/interp/g-boot.lisp.pamphlet +++ b/src/interp/g-boot.lisp.pamphlet @@ -22,7 +22,7 @@ ; ;$LET := 'SPADLET -- LET is a standard macro in Common Lisp -(SPADLET $LET 'SPADLET) +;(setq $LET 'SPADLET) ;nakedEXIT? c == ; ATOM c => NIL @@ -41,7 +41,7 @@ (RETURN (SEQ (COND ((ATOM |c|) NIL) - ('T (SPADLET |a| (CAR |c|)) (SPADLET |d| (CDR |c|)) + ('T (setq |a| (CAR |c|)) (setq |d| (CDR |c|)) (COND ((IDENTP |a|) (COND @@ -72,31 +72,31 @@ (SEQ (COND ((OR (ATOM |x|) (NULL (AND (CONSP |x|) (EQ (QCAR |x|) 'COND) - (PROGN (SPADLET |cls| (QCDR |x|)) 'T)))) + (PROGN (setq |cls| (QCDR |x|)) 'T)))) NIL) - ('T (SPADLET |ok| 'T) + ('T (setq |ok| 'T) (DO () ((NULL (AND |cls| |ok|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| |cls|) - (SPADLET |p| (CAAR |LETTMP#1|)) - (SPADLET |r| (CDAR |LETTMP#1|)) - (SPADLET |cls| (CDR |LETTMP#1|)) + (setq |LETTMP#1| |cls|) + (setq |p| (CAAR |LETTMP#1|)) + (setq |r| (CDAR |LETTMP#1|)) + (setq |cls| (CDR |LETTMP#1|)) (COND - ((CONSP (QCDR |r|)) (SPADLET |ok| NIL)) + ((CONSP (QCDR |r|)) (setq |ok| NIL)) ((NULL (PROGN - (SPADLET |ISTMP#1| (CAR |r|)) + (setq |ISTMP#1| (CAR |r|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'EXIT) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL)))))) - (SPADLET |ok| NIL)) + (setq |ok| NIL)) ((AND (NULL |cls|) (ATOM |p|)) - (SPADLET |ok| NIL)) + (setq |ok| NIL)) ((AND (NULL |cls|) (BOOT-EQUAL |p| ''T)) - (SPADLET |ok| NIL))))))) + (setq |ok| NIL))))))) |ok|)))))) ;mergeCONDsWithEXITs l == @@ -127,27 +127,27 @@ ((NULL |l|) NIL) ((ATOM |l|) |l|) ((NULL (CONSP (QCDR |l|))) |l|) - ('T (SPADLET |a| (QCAR |l|)) + ('T (setq |a| (QCAR |l|)) (COND ((AND (CONSP |a|) (EQ (QCAR |a|) 'COND)) - (SPADLET |a| (|flattenCOND| |a|)))) - (SPADLET |am| (|mergeableCOND| |a|)) + (setq |a| (|flattenCOND| |a|)))) + (setq |am| (|mergeableCOND| |a|)) (COND ((AND (PROGN - (SPADLET |ISTMP#1| (CDR |l|)) + (setq |ISTMP#1| (CDR |l|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |b| (QCAR |ISTMP#1|)) - (SPADLET |k| (QCDR |ISTMP#1|)) + (setq |b| (QCAR |ISTMP#1|)) + (setq |k| (QCDR |ISTMP#1|)) 'T))) |am| (|mergeableCOND| |b|)) - (SPADLET |b| (|flattenCOND| |b|)) - (SPADLET |c| (CONS 'COND (APPEND (QCDR |a|) (QCDR |b|)))) + (setq |b| (|flattenCOND| |b|)) + (setq |c| (CONS 'COND (APPEND (QCDR |a|) (QCDR |b|)))) (|mergeCONDsWithEXITs| (CONS (|flattenCOND| |c|) |k|))) ((AND (PROGN - (SPADLET |ISTMP#1| (CDR |l|)) + (setq |ISTMP#1| (CDR |l|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |b| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |b| (QCAR |ISTMP#1|)) 'T))) |am|) (CONS (|removeEXITFromCOND| (|flattenCOND| @@ -178,37 +178,37 @@ (PROG (|p| |r| |LETTMP#1| |r1| |f| |ISTMP#1| |r2| |ok|) (RETURN (SEQ (PROGN - (SPADLET |ok| 'T) - (SPADLET |c| (CDR |c|)) + (setq |ok| 'T) + (setq |c| (CDR |c|)) (DO () ((NULL (AND |ok| |c|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| |c|) - (SPADLET |p| (CAAR |LETTMP#1|)) - (SPADLET |r| (CDAR |LETTMP#1|)) - (SPADLET |c| (CDR |LETTMP#1|)) + (setq |LETTMP#1| |c|) + (setq |p| (CAAR |LETTMP#1|)) + (setq |r| (CDAR |LETTMP#1|)) + (setq |c| (CDR |LETTMP#1|)) (COND - ((|nakedEXIT?| |p|) (SPADLET |ok| NIL)) - ('T (SPADLET |LETTMP#1| (REVERSE |r|)) - (SPADLET |r1| (CAR |LETTMP#1|)) - (SPADLET |f| + ((|nakedEXIT?| |p|) (setq |ok| NIL)) + ('T (setq |LETTMP#1| (REVERSE |r|)) + (setq |r1| (CAR |LETTMP#1|)) + (setq |f| (NREVERSE (CDR |LETTMP#1|))) (COND ((|nakedEXIT?| |f|) - (SPADLET |ok| NIL)) + (setq |ok| NIL)) ((NULL (AND (CONSP |r1|) (EQ (QCAR |r1|) 'EXIT) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |r1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |r2| + (setq |r2| (QCAR |ISTMP#1|)) 'T))))) - (SPADLET |ok| NIL)) + (setq |ok| NIL)) ((|nakedEXIT?| |r2|) - (SPADLET |ok| NIL))))))))) + (setq |ok| NIL))))))))) |ok|))))) ;removeEXITFromCOND c == @@ -235,35 +235,35 @@ (PROG (|cond| |cl'| |lastSE| |z|) (RETURN (SEQ (PROGN - (SPADLET |z| NIL) + (setq |z| NIL) (DO ((G1988 (CDR |c|) (CDR G1988)) (|cl| NIL)) ((OR (ATOM G1988) (PROGN (SETQ |cl| (CAR G1988)) NIL)) NIL) (SEQ (EXIT (COND - ((ATOM |cl|) (SPADLET |z| (CONS |cl| |z|))) - ('T (SPADLET |cond| (QCAR |cl|)) + ((ATOM |cl|) (setq |z| (CONS |cl| |z|))) + ('T (setq |cond| (QCAR |cl|)) (COND ((|length1?| |cl|) (COND ((AND (CONSP |cond|) (EQCAR |cond| 'EXIT)) - (SPADLET |z| + (setq |z| (CONS (QCDR |cond|) |z|))) - ('T (SPADLET |z| (CONS |cl| |z|))))) - ('T (SPADLET |cl'| (REVERSE |cl|)) - (SPADLET |lastSE| (QCAR |cl'|)) + ('T (setq |z| (CONS |cl| |z|))))) + ('T (setq |cl'| (REVERSE |cl|)) + (setq |lastSE| (QCAR |cl'|)) (COND ((ATOM |lastSE|) - (SPADLET |z| (CONS |cl| |z|))) + (setq |z| (CONS |cl| |z|))) ((EQCAR |lastSE| 'EXIT) - (SPADLET |z| + (setq |z| (CONS (REVERSE (CONS (CADR |lastSE|) (CDR |cl'|))) |z|))) - ('T (SPADLET |z| (CONS |cl| |z|))))))))))) + ('T (setq |z| (CONS |cl| |z|))))))))))) (CONS 'COND (NREVERSE |z|))))))) ;flattenCOND body == @@ -296,36 +296,36 @@ (COND ((AND (CONSP |clauses|) (EQ (QCAR |clauses|) 'COND) (PROGN - (SPADLET |ISTMP#1| (QCDR |clauses|)) + (setq |ISTMP#1| (QCDR |clauses|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |pred1| (QCAR |ISTMP#2|)) - (SPADLET |act1| (QCDR |ISTMP#2|)) + (setq |pred1| (QCAR |ISTMP#2|)) + (setq |act1| (QCDR |ISTMP#2|)) 'T))) (PROGN - (SPADLET |restClauses| (QCDR |ISTMP#1|)) + (setq |restClauses| (QCDR |ISTMP#1|)) 'T)))) (COND ((AND (CONSP |act1|) (EQ (QCDR |act1|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |act1|)) + (setq |ISTMP#1| (QCAR |act1|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'PROGN) - (PROGN (SPADLET |acts| (QCDR |ISTMP#1|)) 'T)))) - (SPADLET |act1| |acts|))) + (PROGN (setq |acts| (QCDR |ISTMP#1|)) 'T)))) + (setq |act1| |acts|))) (COND ((AND (CONSP |restClauses|) (EQ (QCDR |restClauses|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |restClauses|)) + (setq |ISTMP#1| (QCAR |restClauses|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) ''T) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |restCond| (QCAR |ISTMP#2|)) + (setq |restCond| (QCAR |ISTMP#2|)) 'T)))))) (CONS (CONS |pred1| |act1|) (|extractCONDClauses| |restCond|))) @@ -348,16 +348,16 @@ (COND ((AND (CONSP |c|) (PROGN - (SPADLET |ISTMP#1| (QCDR |c|)) + (setq |ISTMP#1| (QCDR |c|)) (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|) (EQ (QCDR |ISTMP#2|) NIL) - (PROGN (SPADLET |t| (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq |t| (QCAR |ISTMP#2|)) 'T)))))) (|bootCOND| (CONS 'COND (CONS (CONS |p| (CONS |t| NIL)) NIL)))) - ('T (SPADLET |p| (CADR |c|)) (SPADLET |t| (CADDR |c|)) - (SPADLET |e| (CADDDR |c|)) + ('T (setq |p| (CADR |c|)) (setq |t| (CADDR |c|)) + (setq |e| (CADDDR |c|)) (|bootCOND| (CONS 'COND (CONS (CONS |p| (CONS |t| NIL)) @@ -391,82 +391,82 @@ |ISTMP#2| |mcls| |ncls|) (RETURN (SEQ (PROGN - (SPADLET |cls| (CDR |c|)) + (setq |cls| (CDR |c|)) (COND ((NULL |cls|) NIL) ((AND (CONSP |cls|) (PROGN - (SPADLET |ISTMP#1| (QCAR |cls|)) + (setq |ISTMP#1| (QCAR |cls|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) ''T) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |r| (QCAR |ISTMP#2|)) + (setq |r| (QCAR |ISTMP#2|)) 'T)))))) |r|) - ('T (SPADLET |LETTMP#1| (REVERSE |cls|)) - (SPADLET |fcls| (CAR |LETTMP#1|)) - (SPADLET |icls| (NREVERSE (CDR |LETTMP#1|))) - (SPADLET |ncls| NIL) + ('T (setq |LETTMP#1| (REVERSE |cls|)) + (setq |fcls| (CAR |LETTMP#1|)) + (setq |icls| (NREVERSE (CDR |LETTMP#1|))) + (setq |ncls| NIL) (DO ((G2144 |icls| (CDR G2144)) (|cl| NIL)) ((OR (ATOM G2144) (PROGN (SETQ |cl| (CAR G2144)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |p| (CAR |cl|)) - (SPADLET |r| (CDR |cl|)) - (SPADLET |ncls| + (setq |p| (CAR |cl|)) + (setq |r| (CDR |cl|)) + (setq |ncls| (COND ((AND (CONSP |r|) (EQ (QCDR |r|) NIL) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |r|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'PROGN) (PROGN - (SPADLET |r1| + (setq |r1| (QCDR |ISTMP#1|)) 'T)))) (CONS (CONS |p| |r1|) |ncls|)) ('T (CONS |cl| |ncls|)))))))) - (SPADLET |fcls| (|bootPushEXITintoCONDclause| |fcls|)) - (SPADLET |ncls| + (setq |fcls| (|bootPushEXITintoCONDclause| |fcls|)) + (setq |ncls| (COND ((AND (CONSP |fcls|) (EQUAL (QCAR |fcls|) ''T) (PROGN - (SPADLET |ISTMP#1| (QCDR |fcls|)) + (setq |ISTMP#1| (QCDR |fcls|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'COND) (PROGN - (SPADLET |mcls| + (setq |mcls| (QCDR |ISTMP#2|)) 'T)))))) (APPEND (REVERSE |mcls|) |ncls|)) ((AND (CONSP |fcls|) (EQUAL (QCAR |fcls|) ''T) (PROGN - (SPADLET |ISTMP#1| (QCDR |fcls|)) + (setq |ISTMP#1| (QCDR |fcls|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'PROGN) (PROGN - (SPADLET |mcls| + (setq |mcls| (QCDR |ISTMP#2|)) 'T)))))) (CONS (CONS ''T |mcls|) |ncls|)) @@ -493,43 +493,43 @@ (SEQ (COND ((NULL (AND (CONSP |e|) (EQUAL (QCAR |e|) ''T) (PROGN - (SPADLET |ISTMP#1| (QCDR |e|)) + (setq |ISTMP#1| (QCDR |e|)) (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|) 'EXIT) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCAR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCAR |ISTMP#4|) 'COND) (PROGN - (SPADLET |cls| + (setq |cls| (QCDR |ISTMP#4|)) 'T))))))))))) |e|) - ('T (SPADLET |ncls| NIL) + ('T (setq |ncls| NIL) (DO ((G2220 |cls| (CDR G2220)) (|cl| NIL)) ((OR (ATOM G2220) (PROGN (SETQ |cl| (CAR G2220)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |p| (CAR |cl|)) - (SPADLET |r| (CDR |cl|)) - (SPADLET |ncls| + (setq |p| (CAR |cl|)) + (setq |r| (CDR |cl|)) + (setq |ncls| (COND ((AND (CONSP |r|) (EQ (QCDR |r|) NIL) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |r|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) @@ -538,7 +538,7 @@ ((AND (CONSP |r|) (EQ (QCDR |r|) NIL) (PROGN - (SPADLET |r1| (QCAR |r|)) + (setq |r1| (QCAR |r|)) 'T)) (CONS (CONS |p| @@ -586,44 +586,44 @@ (SEQ (COND ((NULL (AND (CONSP |e|) (EQ (QCAR |e|) 'SEQ) (PROGN - (SPADLET |ISTMP#1| (QCDR |e|)) + (setq |ISTMP#1| (QCDR |e|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |cl| (QCAR |ISTMP#1|)) - (SPADLET |cls| (QCDR |ISTMP#1|)) + (setq |cl| (QCAR |ISTMP#1|)) + (setq |cls| (QCDR |ISTMP#1|)) 'T))))) NIL) ((|nakedEXIT?| |cl|) (COND ((AND (CONSP |cl|) (EQ (QCAR |cl|) 'COND) (PROGN - (SPADLET |ISTMP#1| (QCDR |cl|)) + (setq |ISTMP#1| (QCDR |cl|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |p| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |p| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCAR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCAR |ISTMP#4|) 'EXIT) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |r| + (setq |r| (QCAR |ISTMP#5|)) 'T))))))))) (PROGN - (SPADLET |ccls| (QCDR |ISTMP#1|)) + (setq |ccls| (QCDR |ISTMP#1|)) 'T)))) (COND ((OR (|nakedEXIT?| |p|) (|nakedEXIT?| |r|)) |e|) @@ -696,38 +696,38 @@ (IF (ATOM |x|) (EXIT NIL)) (IF (AND (CONSP |x|) (EQ (QCAR |x|) 'PROGN) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |lpcl| (QCAR |ISTMP#2|)) - (SPADLET |pcls| (QCDR |ISTMP#2|)) + (setq |lpcl| (QCAR |ISTMP#2|)) + (setq |pcls| (QCDR |ISTMP#2|)) 'T)) (PROGN - (SPADLET |pcls| (NREVERSE |pcls|)) + (setq |pcls| (NREVERSE |pcls|)) 'T)))) (EXIT (SEQ (IF (ATOM |lpcl|) (EXIT |pcls|)) (EXIT (CDR |x|))))) (IF (AND (CONSP |x|) (EQ (QCAR |x|) 'COND) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |y| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |y| (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|) (EQUAL (QCAR |ISTMP#3|) ''T) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) @@ -743,12 +743,12 @@ (RETURN (SEQ (COND ((ATOM |e|) |e|) - ('T (SPADLET |LETTMP#1| (REVERSE |e|)) - (SPADLET |lcl| (CAR |LETTMP#1|)) - (SPADLET |cls| (NREVERSE (CDR |LETTMP#1|))) - (SPADLET |g| + ('T (setq |LETTMP#1| (REVERSE |e|)) + (setq |lcl| (CAR |LETTMP#1|)) + (setq |cls| (NREVERSE (CDR |LETTMP#1|))) + (setq |g| (PROG (G2445) - (SPADLET G2445 NIL) + (setq G2445 NIL) (RETURN (DO ((G2450 |cls| (CDR G2450)) (|f| NIL)) @@ -764,57 +764,57 @@ (DO () ((NULL (AND (CONSP |lcl|) (EQ (QCAR |lcl|) 'EXIT) (PROGN - (SPADLET |ISTMP#1| (QCDR |lcl|)) + (setq |ISTMP#1| (QCDR |lcl|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |f| (QCAR |ISTMP#1|)) + (setq |f| (QCAR |ISTMP#1|)) 'T))))) NIL) - (SEQ (EXIT (SPADLET |lcl| |f|)))) + (SEQ (EXIT (setq |lcl| |f|)))) (COND ((AND (CONSP |lcl|) (EQ (QCAR |lcl|) 'PROGN) - (PROGN (SPADLET |pcls| (QCDR |lcl|)) 'T)) + (PROGN (setq |pcls| (QCDR |lcl|)) 'T)) (APPEND |g| |pcls|)) ((AND (CONSP |lcl|) (EQ (QCAR |lcl|) 'COND) (PROGN - (SPADLET |ISTMP#1| (QCDR |lcl|)) + (setq |ISTMP#1| (QCDR |lcl|)) (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|) (EQUAL (QCAR |ISTMP#2|) ''T) (PROGN - (SPADLET |pcls| (QCDR |ISTMP#2|)) + (setq |pcls| (QCDR |ISTMP#2|)) 'T)))))) (APPEND |g| |pcls|)) ((AND (CONSP |lcl|) (EQ (QCAR |lcl|) 'COND) (PROGN - (SPADLET |ISTMP#1| (QCDR |lcl|)) + (setq |ISTMP#1| (QCDR |lcl|)) (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 |pred| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |pred| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCAR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCAR |ISTMP#4|) 'EXIT) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |h| + (setq |h| (QCAR |ISTMP#5|)) 'T)))))))))))) (APPEND |g| @@ -849,52 +849,52 @@ (DECLARE (SPECIAL |$labelsForGO|)) (RETURN (SEQ (PROGN - (SPADLET |e| + (setq |e| (CONS 'SEQ (|mergeCONDsWithEXITs| (|bootAbsorbSEQsAndPROGNs| (CDR |e|))))) (COND ((AND (CONSP |e|) (PROGN - (SPADLET |ISTMP#1| (QCDR |e|)) + (setq |ISTMP#1| (QCDR |e|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (REVERSE |ISTMP#1|)) + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T) (CONSP |ISTMP#2|) (PROGN - (SPADLET |lcl| (QCAR |ISTMP#2|)) - (SPADLET |cls| (QCDR |ISTMP#2|)) + (setq |lcl| (QCAR |ISTMP#2|)) + (setq |cls| (QCDR |ISTMP#2|)) 'T) (PROGN - (SPADLET |cls| (NREVERSE |cls|)) + (setq |cls| (NREVERSE |cls|)) 'T))) (IDENTP |lcl|) (NULL (member |lcl| |$labelsForGO|))) - (SPADLET |e| + (setq |e| (CONS 'SEQ (APPEND |cls| (CONS (CONS 'EXIT (CONS |lcl| NIL)) NIL)))))) - (SPADLET |cls| (QCDR |e|)) + (setq |cls| (QCDR |e|)) (COND ((AND (CONSP |cls|) (EQ (QCDR |cls|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |cls|)) + (setq |ISTMP#1| (QCAR |cls|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'SEQ)))) (|tryToRemoveSEQ| (QCAR |cls|))) ((AND (CONSP |cls|) (EQ (QCDR |cls|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |cls|)) + (setq |ISTMP#1| (QCAR |cls|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'EXIT) (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)))))) (COND ((|nakedEXIT?| |body|) @@ -902,7 +902,7 @@ ('T |body|))) ((NULL (OR (|nakedEXIT?| |cls|) (PROG (G2596) - (SPADLET G2596 NIL) + (setq G2596 NIL) (RETURN (DO ((G2602 NIL G2596) (G2603 |cls| (CDR G2603)) @@ -919,45 +919,45 @@ (|bootTran| (CONS 'PROGN |cls|))) ((AND (CONSP |e|) (EQ (QCAR |e|) 'SEQ) (PROGN - (SPADLET |ISTMP#1| (QCDR |e|)) + (setq |ISTMP#1| (QCDR |e|)) (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|) 'COND) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCAR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#4|)) - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCAR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) (EQ (QCAR |ISTMP#6|) 'EXIT) (PROGN - (SPADLET |ISTMP#7| + (setq |ISTMP#7| (QCDR |ISTMP#6|)) (AND (CONSP |ISTMP#7|) (EQ (QCDR |ISTMP#7|) NIL) (PROGN - (SPADLET |r1| + (setq |r1| (QCAR |ISTMP#7|)) 'T))))))))))))) - (PROGN (SPADLET |r2| (QCDR |ISTMP#1|)) 'T)))) + (PROGN (setq |r2| (QCDR |ISTMP#1|)) 'T)))) (COND ((OR (|nakedEXIT?| |pred|) (|nakedEXIT?| |r1|) (|nakedEXIT?| |r2|)) @@ -982,13 +982,13 @@ (PROG (|cls| |body|) (RETURN (PROGN - (SPADLET |e| + (setq |e| (CONS 'PROGN (|bootAbsorbSEQsAndPROGNs| (CDR |e|)))) - (SPADLET |cls| (CDR |e|)) + (setq |cls| (CDR |e|)) (COND ((NULL |cls|) NIL) ((AND (CONSP |cls|) (EQ (QCDR |cls|) NIL) - (PROGN (SPADLET |body| (QCAR |cls|)) 'T)) + (PROGN (setq |body| (QCAR |cls|)) 'T)) |body|) ('T |e|)))))) @@ -1017,14 +1017,14 @@ (PROG (|cls| |ncls|) (RETURN (SEQ (PROGN - (SPADLET |cls| (CDR |e|)) + (setq |cls| (CDR |e|)) (COND ((NULL |cls|) NIL) ((NULL (CDR |cls|)) (CAR |cls|)) ('T - (SPADLET |ncls| + (setq |ncls| (PROG (G2934) - (SPADLET G2934 NIL) + (setq G2934 NIL) (RETURN (DO ((G2939 |cls| (CDR G2939)) (|c| NIL)) @@ -1062,14 +1062,14 @@ (PROG (|cls| |ncls|) (RETURN (SEQ (PROGN - (SPADLET |cls| (CDR |e|)) + (setq |cls| (CDR |e|)) (COND ((NULL |cls|) 'T) ((NULL (CDR |cls|)) (CAR |cls|)) ('T - (SPADLET |ncls| + (setq |ncls| (PROG (G2957) - (SPADLET G2957 NIL) + (setq G2957 NIL) (RETURN (DO ((G2962 |cls| (CDR G2962)) (|c| NIL)) @@ -1104,12 +1104,12 @@ (RETURN (COND ((ATOM |e|) NIL) - ('T (SPADLET |head| (CAR |e|)) (SPADLET |tail| (CDR |e|)) + ('T (setq |head| (CAR |e|)) (setq |tail| (CDR |e|)) (COND ((IDENTP |head|) (COND ((BOOT-EQUAL |head| 'GO) - (SPADLET |$labelsForGO| + (setq |$labelsForGO| (CONS (CAR |tail|) |$labelsForGO|))) ((BOOT-EQUAL |head| 'QUOTE) NIL) ('T (|bootLabelsForGO| |tail|)))) @@ -1138,13 +1138,13 @@ (RETURN (SEQ (COND ((ATOM |e|) |e|) - ('T (SPADLET |head| (CAR |e|)) (SPADLET |tail| (CDR |e|)) + ('T (setq |head| (CAR |e|)) (setq |tail| (CDR |e|)) (COND ((BOOT-EQUAL |head| 'QUOTE) |e|) ('T - (SPADLET |tail| + (setq |tail| (PROG (G2994) - (SPADLET G2994 NIL) + (setq G2994 NIL) (RETURN (DO ((G2999 |tail| (CDR G2999)) (|t| NIL)) @@ -1156,7 +1156,7 @@ (SEQ (EXIT (SETQ G2994 (CONS (|bootTran| |t|) G2994)))))))) - (SPADLET |e| (CONS |head| |tail|)) + (setq |e| (CONS |head| |tail|)) (COND ((IDENTP |head|) (COND @@ -1182,7 +1182,7 @@ (DECLARE (SPECIAL |$labelsForGO|)) (RETURN (PROGN - (SPADLET |$labelsForGO| NIL) + (setq |$labelsForGO| NIL) (|bootLabelsForGO| |e|) (|bootTran| |e|))))) diff --git a/src/interp/g-cndata.lisp.pamphlet b/src/interp/g-cndata.lisp.pamphlet index b490aa6..06238cd 100644 --- a/src/interp/g-cndata.lisp.pamphlet +++ b/src/interp/g-cndata.lisp.pamphlet @@ -27,7 +27,7 @@ (DEFUN |mkLowerCaseConTable| () (DECLARE (SPECIAL |$lowerCaseConTb|)) (SEQ (PROGN - (SPADLET |$lowerCaseConTb| (MAKE-HASH-TABLE)) + (setq |$lowerCaseConTb| (MAKE-HASH-TABLE)) (DO ((G166061 (|allConstructors|) (CDR G166061)) (|x| NIL)) ((OR (ATOM G166061) @@ -48,8 +48,8 @@ (DECLARE (SPECIAL |$lowerCaseConTb|)) (RETURN (PROGN - (SPADLET |y| (GETDATABASE |x| 'ABBREVIATION)) - (SPADLET |item| (CONS |x| (CONS |y| (CONS NIL NIL)))) + (setq |y| (GETDATABASE |x| 'ABBREVIATION)) + (setq |item| (CONS |x| (CONS |y| (CONS NIL NIL)))) (HPUT |$lowerCaseConTb| |x| |item|) (HPUT |$lowerCaseConTb| (DOWNCASE |x|) |item|) (HPUT |$lowerCaseConTb| |y| |item|))))) @@ -69,8 +69,8 @@ (RETURN (COND ((NULL (IDENTP |info|)) NIL) - ((SPADLET |entry| (HGET |$lowerCaseConTb| |info|)) - (SPADLET |name| (CAR |entry|)) (SPADLET |abb| (CADR |entry|)) + ((setq |entry| (HGET |$lowerCaseConTb| |info|)) + (setq |name| (CAR |entry|)) (setq |abb| (CADR |entry|)) (COND ((AND |isName| (EQ |name| |info|)) |entry|) ((AND (NULL |isName|) (EQ |abb| |info|)) |entry|) @@ -86,7 +86,7 @@ (PROG (|entry|) (RETURN (COND - ((NULL (SPADLET |entry| (|getCDTEntry| |name| 'T))) NIL) + ((NULL (setq |entry| (|getCDTEntry| |name| 'T))) NIL) ('T (RPLACD (CDR |entry|) (PUTALIST (CDDR |entry|) |prop| |val|)) 'T))))) @@ -133,7 +133,7 @@ (DECLARE (SPECIAL |$CategoryNames|)) (RETURN (PROGN - (SPADLET |op| (|opOf| |c|)) + (setq |op| (|opOf| |c|)) (COND ((member |op| |$CategoryNames|) 'T) ((BOOT-EQUAL (GETDATABASE |op| 'CONSTRUCTORKIND) '|category|) @@ -154,7 +154,7 @@ (PROG (|d'|) (RETURN (COND - ((SPADLET |d'| (GETDATABASE (|opOf| |d|) 'SUPERDOMAIN)) + ((setq |d'| (GETDATABASE (|opOf| |d|) 'SUPERDOMAIN)) (|maximalSuperType| (CAR |d'|))) ('T |d|))))) @@ -197,7 +197,7 @@ (DEFUN |mkUserConstructorAbbreviation| (|c| |a| |type|) (PROGN - (COND ((NULL (ATOM |c|)) (SPADLET |c| (CAR |c|)))) + (COND ((NULL (ATOM |c|)) (setq |c| (CAR |c|)))) (|constructorAbbreviationErrorCheck| |c| |a| |type| '|abbreviationError|) (|clearClams|) @@ -218,9 +218,9 @@ (DECLARE (SPECIAL |$lowerCaseConTb|)) (RETURN (COND - ((SPADLET |entry| (|getCDTEntry| |cname| 'T)) |entry|) + ((setq |entry| (|getCDTEntry| |cname| 'T)) |entry|) ('T - (SPADLET |item| + (setq |item| (CONS |cname| (CONS (GETDATABASE |cname| 'ABBREVIATION) (CONS NIL NIL)))) @@ -262,7 +262,7 @@ (PROG (|s| |siz| |abb| |name| |type|) (RETURN (PROGN - (SPADLET |siz| (SIZE (SPADLET |s| (PNAME |a|)))) + (setq |siz| (SIZE (setq |s| (PNAME |a|)))) (COND ((AND (BOOT-EQUAL |typ| '|category|) (> |siz| 7)) (|throwKeyedErrorMsg| '|precompilation| @@ -282,9 +282,9 @@ (format nil "Abbreviations must have 8 or fewer characters and should be ~ uppercase.") NIL))) - (SPADLET |abb| (GETDATABASE |c| 'ABBREVIATION)) - (SPADLET |name| (GETDATABASE |a| 'CONSTRUCTOR)) - (SPADLET |type| (GETDATABASE |c| 'CONSTRUCTORKIND)) + (setq |abb| (GETDATABASE |c| 'ABBREVIATION)) + (setq |name| (GETDATABASE |a| 'CONSTRUCTOR)) + (setq |type| (GETDATABASE |c| 'CONSTRUCTORKIND)) (COND ((AND (BOOT-EQUAL |a| |abb|) (NEQUAL |c| |name|)) (|lisplibError| |c| |a| |typ| |abb| |name| |type| @@ -336,10 +336,10 @@ (RETURN (SEQ (COND ((AND (CONSP |u|) (EQ (QCAR |u|) '|Union|) - (PROGN (SPADLET |arglist| (QCDR |u|)) 'T)) + (PROGN (setq |arglist| (QCDR |u|)) 'T)) (CONS '|Union| (PROG (G166167) - (SPADLET G166167 NIL) + (setq G166167 NIL) (RETURN (DO ((G166172 |arglist| (CDR G166172)) (|a| NIL)) @@ -353,11 +353,11 @@ G166167))))))))) ((AND (CONSP |u|) (PROGN - (SPADLET |op| (QCAR |u|)) - (SPADLET |arglist| (QCDR |u|)) + (setq |op| (QCAR |u|)) + (setq |arglist| (QCDR |u|)) 'T)) (COND - ((SPADLET |abb| (|constructor?| |op|)) + ((setq |abb| (|constructor?| |op|)) (CONS |abb| (|condAbbrev| |arglist| (|getPartialConstructorModemapSig| |op|)))) @@ -386,15 +386,15 @@ (DECLARE (SPECIAL |$doNotAddEmptyModeIfTrue| |$InteractiveFrame|)) (RETURN (PROGN - (SPADLET |$doNotAddEmptyModeIfTrue| 'T) + (setq |$doNotAddEmptyModeIfTrue| 'T) (COND - ((AND (SPADLET |val| + ((AND (setq |val| (|get| |x| '|value| |$InteractiveFrame|)) - (SPADLET |domain| (|objMode| |val|)) + (setq |domain| (|objMode| |val|)) (|member| |domain| '((|Mode|) (|Domain|) (|SubDomain| (|Domain|))))) 'T) - ('T (SPADLET |y| (|opOf| (|unabbrev| |x|))) + ('T (setq |y| (|opOf| (|unabbrev| |x|))) (|constructor?| |y|))))))) ;unabbrev1(u,modeIfTrue) == @@ -431,15 +431,15 @@ (COND (|modeIfTrue| (COND - ((SPADLET |d| (|isDomainValuedVariable| |u|)) + ((setq |d| (|isDomainValuedVariable| |u|)) |u|) - ((SPADLET |a| (|abbreviation?| |u|)) + ((setq |a| (|abbreviation?| |u|)) (COND ((GETDATABASE |a| 'NILADIC) (CONS |a| NIL)) ('T - (SPADLET |largs| + (setq |largs| (PROG (G166214) - (SPADLET G166214 NIL) + (setq G166214 NIL) (RETURN (DO ((G166219 @@ -460,16 +460,16 @@ G166214)))))))) (|unabbrev1| (CONS |u| |largs|) |modeIfTrue|)))) ('T |u|))) - ('T (SPADLET |a| (OR (|abbreviation?| |u|) |u|)) + ('T (setq |a| (OR (|abbreviation?| |u|) |u|)) (COND ((GETDATABASE |a| 'NILADIC) (CONS |a| NIL)) ('T |a|))))) - ('T (SPADLET |op| (CAR |u|)) (SPADLET |arglist| (CDR |u|)) + ('T (setq |op| (CAR |u|)) (setq |arglist| (CDR |u|)) (COND ((BOOT-EQUAL |op| '|Join|) (CONS '|Join| (PROG (G166229) - (SPADLET G166229 NIL) + (setq G166229 NIL) (RETURN (DO ((G166234 |arglist| (CDR G166234)) (|x| NIL)) @@ -483,17 +483,17 @@ (|unabbrev1| |x| |modeIfTrue|) G166229))))))))) - ((SPADLET |d| (|isDomainValuedVariable| |op|)) + ((setq |d| (|isDomainValuedVariable| |op|)) (|throwKeyedMsg| "Error: %1 has value %2p ." (CONS |op| (CONS |d| NIL)))) - ((SPADLET |r| + ((setq |r| (|unabbrevSpecialForms| |op| |arglist| |modeIfTrue|)) |r|) - ((OR (SPADLET |cname| (|abbreviation?| |op|)) - (AND (|constructor?| |op|) (SPADLET |cname| |op|))) + ((OR (setq |cname| (|abbreviation?| |op|)) + (AND (|constructor?| |op|) (setq |cname| |op|))) (COND - ((SPADLET |r| + ((setq |r| (|unabbrevSpecialForms| |cname| |arglist| |modeIfTrue|)) |r|) @@ -520,7 +520,7 @@ ((BOOT-EQUAL |op| '|Mapping|) (CONS |op| (PROG (G166261) - (SPADLET G166261 NIL) + (setq G166261 NIL) (RETURN (DO ((G166266 |arglist| (CDR G166266)) (|a| NIL)) @@ -536,7 +536,7 @@ ((BOOT-EQUAL |op| '|Union|) (CONS |op| (PROG (G166276) - (SPADLET G166276 NIL) + (setq G166276 NIL) (RETURN (DO ((G166281 |arglist| (CDR G166281)) (|a| NIL)) @@ -553,7 +553,7 @@ ((BOOT-EQUAL |op| '|Record|) (CONS |op| (PROG (G166291) - (SPADLET G166291 NIL) + (setq G166291 NIL) (RETURN (DO ((G166296 |arglist| (CDR G166296)) (|a| NIL)) @@ -580,27 +580,27 @@ (COND ((OR (AND (CONSP |a|) (EQ (QCAR |a|) '|Declare|) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |b| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |b| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET T$ (QCAR |ISTMP#2|)) + (setq T$ (QCAR |ISTMP#2|)) 'T)))))) (AND (CONSP |a|) (EQ (QCAR |a|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |b| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |b| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET T$ (QCAR |ISTMP#2|)) + (setq T$ (QCAR |ISTMP#2|)) 'T))))))) (CONS '|:| (CONS |b| (CONS (|unabbrev1| T$ |modeIfTrue|) NIL)))) @@ -617,27 +617,27 @@ (COND ((OR (AND (CONSP |a|) (EQ (QCAR |a|) '|Declare|) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |b| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |b| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET T$ (QCAR |ISTMP#2|)) + (setq T$ (QCAR |ISTMP#2|)) 'T)))))) (AND (CONSP |a|) (EQ (QCAR |a|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |b| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |b| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET T$ (QCAR |ISTMP#2|)) + (setq T$ (QCAR |ISTMP#2|)) 'T))))))) (CONS '|:| (CONS |b| (CONS (|unabbrev1| T$ |modeIfTrue|) NIL)))) @@ -654,7 +654,7 @@ (PROG (|res|) (RETURN (SEQ (PROGN - (SPADLET |res| NIL) + (setq |res| NIL) (DO ((G166404 |arglist| (CDR G166404)) (|arg| NIL) (G166405 |argtypes| (CDR G166405)) (|type| NIL)) ((OR (ATOM G166404) @@ -665,8 +665,8 @@ (SEQ (EXIT (PROGN (COND ((|categoryForm?| |type|) - (SPADLET |arg| (|abbreviate| |arg|)))) - (SPADLET |res| + (setq |arg| (|abbreviate| |arg|)))) + (setq |res| (APPEND |res| (CONS |arg| NIL))))))) |res|))))) @@ -691,7 +691,7 @@ (CONS (|bright| (|#| |arglist|)) NIL))))) ('T (PROG (G166428) - (SPADLET G166428 NIL) + (setq G166428 NIL) (RETURN (DO ((G166434 |arglist| (CDR G166434)) (|arg| NIL) @@ -729,7 +729,7 @@ (COND ((EQ |x| (ELT (QCAR |l|) |n|)) (RETURN (QCAR |l|)))) - (SPADLET |l| (QCDR |l|)))))))))) + (setq |l| (QCDR |l|)))))))))) \end{chunk} \eject diff --git a/src/interp/g-timer.lisp.pamphlet b/src/interp/g-timer.lisp.pamphlet index 6f0fa2e..30f2efb 100644 --- a/src/interp/g-timer.lisp.pamphlet +++ b/src/interp/g-timer.lisp.pamphlet @@ -34,9 +34,9 @@ (PROG (|total| |name| |n| |strname| |strval|) (RETURN (SEQ (PROGN - (SPADLET |total| + (setq |total| (PROG (G166065) - (SPADLET G166065 0) + (setq G166065 0) (RETURN (DO ((G166071 |listofnames| (CDR G166071)) @@ -47,7 +47,7 @@ NIL) (PROGN (PROGN - (SPADLET |name| (CAR G166057)) + (setq |name| (CAR G166057)) G166057) NIL)) G166065) @@ -60,14 +60,14 @@ (PROGN (SETQ G166061 (CAR G166086)) NIL) (PROGN (PROGN - (SPADLET |name| (CAR G166061)) + (setq |name| (CAR G166061)) G166061) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |n| (GETL |name| |property|)) - (SPADLET |strname| (STRINGIMAGE |name|)) - (SPADLET |strval| (STRINGIMAGE |n|)) + (setq |n| (GETL |name| |property|)) + (setq |strname| (STRINGIMAGE |name|)) + (setq |strval| (STRINGIMAGE |n|)) (|sayBrightly| (|concat| (|bright| |strname|) (|fillerSpaces| @@ -132,87 +132,87 @@ |total|) (RETURN (SEQ (PROGN - (SPADLET |total| 0) - (SPADLET |str| "") - (SPADLET |otherStatTotal| (GETL '|other| |property|)) + (setq |total| 0) + (setq |str| "") + (setq |otherStatTotal| (GETL '|other| |property|)) (DO ((G166123 |listofnames| (CDR G166123)) (G166105 NIL)) ((OR (ATOM G166123) (PROGN (SETQ G166105 (CAR G166123)) NIL) (PROGN (PROGN - (SPADLET |name| (CAR G166105)) - (SPADLET |class| (CADR G166105)) - (SPADLET |ab| (CDDR G166105)) + (setq |name| (CAR G166105)) + (setq |class| (CADR G166105)) + (setq |ab| (CDDR G166105)) G166105) NIL)) NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |name| '|other|) '|iterate|) ('T - (SPADLET |cl| + (setq |cl| (CAR (LASSOC |class| |listofclasses|))) - (SPADLET |n| (GETL |name| |property|)) + (setq |n| (GETL |name| |property|)) (PUT |cl| |classproperty| (+ |n| (GETL |cl| |classproperty|))) - (SPADLET |total| (+ |total| |n|)) + (setq |total| (+ |total| |n|)) (COND ((>= |n| 0.01) - (SPADLET |timestr| + (setq |timestr| (|normalizeStatAndStringify| |n|))) - ('T (SPADLET |timestr| "") - (SPADLET |otherStatTotal| + ('T (setq |timestr| "") + (setq |otherStatTotal| (+ |otherStatTotal| |n|)))) - (SPADLET |str| + (setq |str| (|makeStatString| |str| |timestr| |ab| |flag|))))))) - (SPADLET |otherStatTotal| |otherStatTotal|) + (setq |otherStatTotal| |otherStatTotal|) (PUT '|other| |property| |otherStatTotal|) (COND ((> |otherStatTotal| 0) - (SPADLET |str| + (setq |str| (|makeStatString| |str| (|normalizeStatAndStringify| |otherStatTotal|) 'O |flag|)) - (SPADLET |total| (+ |total| |otherStatTotal|)) - (SPADLET |cl| (CAR (LASSOC '|other| |listofnames|))) - (SPADLET |cl| (CAR (LASSOC |cl| |listofclasses|))) + (setq |total| (+ |total| |otherStatTotal|)) + (setq |cl| (CAR (LASSOC '|other| |listofnames|))) + (setq |cl| (CAR (LASSOC |cl| |listofclasses|))) (PUT |cl| |classproperty| (+ |otherStatTotal| (GETL |cl| |classproperty|))))) (COND - ((NEQUAL |flag| '|long|) (SPADLET |total| 0) - (SPADLET |str| "") + ((NEQUAL |flag| '|long|) (setq |total| 0) + (setq |str| "") (DO ((G166136 |listofclasses| (CDR G166136)) (G166112 NIL)) ((OR (ATOM G166136) (PROGN (SETQ G166112 (CAR G166136)) NIL) (PROGN (PROGN - (SPADLET |class| (CAR G166112)) - (SPADLET |name| (CADR G166112)) - (SPADLET |ab| (CDDR G166112)) + (setq |class| (CAR G166112)) + (setq |name| (CADR G166112)) + (setq |ab| (CDDR G166112)) G166112) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |n| + (setq |n| (GETL |name| |classproperty|)) (COND ((BOOT-EQUAL |n| 0.0) '|iterate|) ('T - (SPADLET |total| (+ |total| |n|)) - (SPADLET |timestr| + (setq |total| (+ |total| |n|)) + (setq |timestr| (|normalizeStatAndStringify| |n|)) - (SPADLET |str| + (setq |str| (|makeStatString| |str| |timestr| |ab| |flag|)))))))))) - (SPADLET |total| + (setq |total| (STRCONC (|normalizeStatAndStringify| |total|) " " |units|)) (COND @@ -236,11 +236,11 @@ (PROG (K M) (RETURN (COND - ((FLOATP |t|) (SPADLET |t| (|roundStat| |t|)) + ((FLOATP |t|) (setq |t| (|roundStat| |t|)) (COND ((BOOT-EQUAL |t| 0.0) "0") ('T (FORMAT NIL "~,2F" |t|)))) - ((integerp |t|) (SPADLET K 1024) (SPADLET M (TIMES K K)) + ((integerp |t|) (setq K 1024) (setq M (TIMES K K)) (COND ((> |t| (TIMES 9 M)) (CONCAT (STRINGIMAGE (QUOTIENT (+ |t| (TIMES 512 K)) M)) @@ -280,7 +280,7 @@ (COND ((BOOT-EQUAL |time| "") |oldstr|) ('T - (SPADLET |opening| + (setq |opening| (COND ((BOOT-EQUAL |flag| '|long|) "(") ('T " ("))) @@ -307,8 +307,8 @@ (DECLARE (SPECIAL |$timedNameStack|)) (RETURN (PROGN - (SPADLET |name| (IFCAR |$timedNameStack|)) - (SPADLET |$timedNameStack| (IFCDR |$timedNameStack|)) + (setq |name| (IFCAR |$timedNameStack|)) + (setq |$timedNameStack| (IFCDR |$timedNameStack|)) |name|)))) ;pushTimedName name == @@ -423,7 +423,7 @@ (PROGN (SETQ G166218 (CAR G166232)) NIL) (PROGN (PROGN - (SPADLET |name| (CAR G166218)) + (setq |name| (CAR G166218)) G166218) NIL)) NIL) @@ -436,14 +436,14 @@ (PROGN (SETQ G166222 (CAR G166245)) NIL) (PROGN (PROGN - (SPADLET |name| (CADR G166222)) + (setq |name| (CADR G166222)) G166222) NIL)) NIL) (SEQ (EXIT (PROGN (PUT |name| '|ClassTimeTotal| 0.0) (PUT |name| '|ClassSpaceTotal| 0))))) - (SPADLET |$timedNameStack| '(|other|)) + (setq |$timedNameStack| '(|other|)) (|computeElapsedTime|) (PUT '|gc| '|TimeTotal| 0.0) (PUT '|gc| '|SpaceTotal| 0) @@ -457,7 +457,7 @@ (PROG (|count|) (RETURN (PROGN - (SPADLET |count| + (setq |count| (+ (OR (GETL |name| '|TimeTotal|) 0) (|computeElapsedTime|))) (PUT |name| '|TimeTotal| |count|))))) @@ -516,11 +516,11 @@ |$timerTicksPerSecond|)) (RETURN (PROGN - (SPADLET |currentTime| (|elapsedUserTime|)) - (SPADLET |currentGCTime| (|elapsedGcTime|)) - (SPADLET |gcDelta| + (setq |currentTime| (|elapsedUserTime|)) + (setq |currentGCTime| (|elapsedGcTime|)) + (setq |gcDelta| (SPADDIFFERENCE |currentGCTime| |$oldElapsedGCTime|)) - (SPADLET |elapsedSeconds| + (setq |elapsedSeconds| (QUOTIENT (TIMES 1.0 (SPADDIFFERENCE @@ -532,8 +532,8 @@ (+ (GETL '|gc| '|TimeTotal|) (QUOTIENT (TIMES 1.0 |gcDelta|) |$timerTicksPerSecond|))) - (SPADLET |$oldElapsedTime| (|elapsedUserTime|)) - (SPADLET |$oldElapsedGCTime| (|elapsedGcTime|)) + (setq |$oldElapsedTime| (|elapsedUserTime|)) + (setq |$oldElapsedGCTime| (|elapsedGcTime|)) |elapsedSeconds|)))) ;computeElapsedSpace() == @@ -547,11 +547,11 @@ (DECLARE (SPECIAL |$oldElapsedSpace|)) (RETURN (PROGN - (SPADLET |currentElapsedSpace| (HEAPELAPSED)) - (SPADLET |elapsedBytes| + (setq |currentElapsedSpace| (HEAPELAPSED)) + (setq |elapsedBytes| (SPADDIFFERENCE |currentElapsedSpace| |$oldElapsedSpace|)) - (SPADLET |$oldElapsedSpace| |currentElapsedSpace|) + (setq |$oldElapsedSpace| |currentElapsedSpace|) |elapsedBytes|)))) ;timedAlgebraEvaluation(code) == @@ -565,7 +565,7 @@ (RETURN (PROGN (|startTimingProcess| '|algebra|) - (SPADLET |r| (|eval| |code|)) + (setq |r| (|eval| |code|)) (|stopTimingProcess| '|algebra|) |r|)))) @@ -585,8 +585,8 @@ (RETURN (PROGN (|startTimingProcess| '|optimization|) - (SPADLET |$getDomainCode| NIL) - (SPADLET |r| (|lispize| |code|)) + (setq |$getDomainCode| NIL) + (setq |r| (|lispize| |code|)) (COND (|$reportOptimization| (|sayBrightlyI| (|bright| "Optimized LISP code:")) @@ -605,7 +605,7 @@ (RETURN (PROGN (|startTimingProcess| '|evaluation|) - (SPADLET |r| (|timedEvaluate| |code|)) + (setq |r| (|timedEvaluate| |code|)) (|stopTimingProcess| '|evaluation|) |r|)))) @@ -619,10 +619,10 @@ (RETURN (SEQ (COND ((AND (CONSP |code|) (EQ (QCAR |code|) 'LIST) - (PROGN (SPADLET |a| (QCDR |code|)) 'T) + (PROGN (setq |a| (QCDR |code|)) 'T) (> (|#| |a|) 200)) (PROG (G166311) - (SPADLET G166311 NIL) + (setq G166311 NIL) (RETURN (DO ((G166316 (|splitIntoBlocksOf200| |a|) (CDR G166316)) diff --git a/src/interp/g-util.lisp.pamphlet b/src/interp/g-util.lisp.pamphlet index 9dd814b..e18570f 100644 --- a/src/interp/g-util.lisp.pamphlet +++ b/src/interp/g-util.lisp.pamphlet @@ -23,7 +23,7 @@ (PROG (|stream|) (RETURN (PROGN - (SPADLET |stream| + (setq |stream| (DEFIOSTREAM (CONS (CONS 'MODE 'OUTPUT) (CONS (CONS 'FILE |fname|) NIL)) @@ -48,7 +48,7 @@ ;length2? l == CONSP l and CONSP (l := QCDR l) and not CONSP QCDR l (DEFUN |length2?| (|l|) - (AND (CONSP |l|) (CONSP (SPADLET |l| (QCDR |l|))) (NULL (CONSP (QCDR |l|))))) + (AND (CONSP |l|) (CONSP (setq |l| (QCDR |l|))) (NULL (CONSP (QCDR |l|))))) ;pairList(u,v) == [[x,:y] for x in u for y in v] @@ -56,7 +56,7 @@ (PROG () (RETURN (SEQ (PROG (G1403) - (SPADLET G1403 NIL) + (setq G1403 NIL) (RETURN (DO ((G1404 |u| (CDR G1404)) (|x| NIL) (G1405 |v| (CDR G1405)) (|y| NIL)) @@ -87,7 +87,7 @@ (RETURN (COND ((NULL |alist|) (CONS (CONS |prop| |val|) NIL)) - ((SPADLET |pair| (|assoc| |prop| |alist|)) + ((setq |pair| (|assoc| |prop| |alist|)) (COND ((BOOT-EQUAL (CDR |pair|) |val|) |alist|) ('T (QRPLACD |pair| |val|) |alist|))) @@ -119,26 +119,26 @@ ((NULL |alist|) |alist|) ((AND (CONSP |alist|) (PROGN - (SPADLET |ISTMP#1| (QCAR |alist|)) + (setq |ISTMP#1| (QCAR |alist|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |prop|))) - (PROGN (SPADLET |r| (QCDR |alist|)) 'T)) + (PROGN (setq |r| (QCDR |alist|)) 'T)) (COND ((NULL |r|) NIL) ('T (QRPLACA |alist| (CAR |r|)) (QRPLACD |alist| (CDR |r|)) |alist|))) ((NULL (CDR |alist|)) |alist|) - ('T (SPADLET |l| |alist|) (SPADLET |ok| 'T) + ('T (setq |l| |alist|) (setq |ok| 'T) (DO () ((NULL |ok|) NIL) (SEQ (EXIT (PROGN - (SPADLET |p| (CAADR |l|)) - (SPADLET |r| (CDDR |l|)) + (setq |p| (CAADR |l|)) + (setq |r| (CDDR |l|)) (COND ((BOOT-EQUAL |p| |prop|) - (SPADLET |ok| NIL) (QRPLACD |l| |r|)) - ((OR (NULL (SPADLET |l| (QCDR |l|))) + (setq |ok| NIL) (QRPLACD |l| |r|)) + ((OR (NULL (setq |l| (QCDR |l|))) (NULL (CDR |l|))) - (SPADLET |ok| NIL)) + (setq |ok| NIL)) ('T NIL)))))) |alist|)))))) @@ -154,10 +154,10 @@ (COND ((AND (CONSP |y|) (PROGN - (SPADLET |ISTMP#1| (QCAR |y|)) + (setq |ISTMP#1| (QCAR |y|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T))) - (PROGN (SPADLET |y'| (QCDR |y|)) 'T)) + (PROGN (setq |a| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |y'| (QCDR |y|)) 'T)) (COND ((EQ |x| |a|) |y'|) ('T (CONS (CAR |y|) (|deleteLassoc| |x| |y'|))))) @@ -175,10 +175,10 @@ (COND ((AND (CONSP |y|) (PROGN - (SPADLET |ISTMP#1| (QCAR |y|)) + (setq |ISTMP#1| (QCAR |y|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T))) - (PROGN (SPADLET |y'| (QCDR |y|)) 'T)) + (PROGN (setq |a| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |y'| (QCDR |y|)) 'T)) (COND ((BOOT-EQUAL |a| |x|) (|deleteAssoc| |x| |y'|)) ('T (CONS (CAR |y|) (|deleteAssoc| |x| |y'|))))) @@ -198,17 +198,17 @@ (PROG (|h| |t| |ISTMP#1| |a| |t1|) (RETURN (SEQ (PROGN - (SPADLET |h| (CAR |y|)) - (SPADLET |t| (CDR |y|)) + (setq |h| (CAR |y|)) + (setq |t| (CDR |y|)) |y| (SEQ (IF (AND (CONSP |t|) (PROGN - (SPADLET |ISTMP#1| (QCAR |t|)) + (setq |ISTMP#1| (QCAR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) + (setq |a| (QCAR |ISTMP#1|)) 'T))) - (PROGN (SPADLET |t1| (QCDR |t|)) 'T)) + (PROGN (setq |t1| (QCDR |t|)) 'T)) (EXIT (SEQ (IF (BOOT-EQUAL |x| |a|) (EXIT (RPLACD |y| |t1|))) (EXIT (|deleteAssocWOC,fn| |x| |t|))))) @@ -219,7 +219,7 @@ (RETURN (COND ((NULL |y|) |y|) - ('T (SPADLET |a| (CAAR |y|)) (SPADLET |t| (CDR |y|)) + ('T (setq |a| (CAAR |y|)) (setq |t| (CDR |y|)) (COND ((BOOT-EQUAL |x| |a|) |t|) ('T (|deleteAssocWOC,fn| |x| |y|) |y|))))))) @@ -237,8 +237,8 @@ (PROG (|h| |t|) (RETURN (SEQ (PROGN - (SPADLET |h| (CAR |y|)) - (SPADLET |t| (CDR |y|)) + (setq |h| (CAR |y|)) + (setq |t| (CDR |y|)) |y| (SEQ (IF (BOOT-EQUAL |x| |h|) (EXIT NIL)) (IF (NULL |t|) @@ -264,20 +264,20 @@ (PROG (|wid| |f| |fill2| |fill1|) (RETURN (SEQ (PROGN - (SPADLET |wid| (|#| (|atom2String| |text|))) + (setq |wid| (|#| (|atom2String| |text|))) (COND ((>= |wid| |width|) |text|) ('T - (SPADLET |f| (DIVIDE (SPADDIFFERENCE |width| |wid|) 2)) - (SPADLET |fill1| '||) + (setq |f| (DIVIDE (SPADDIFFERENCE |width| |wid|) 2)) + (setq |fill1| '||) (DO ((G1407 (ELT |f| 0)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G1407) NIL) - (SEQ (EXIT (SPADLET |fill1| + (SEQ (EXIT (setq |fill1| (STRCONC |fillchar| |fill1|))))) - (SPADLET |fill2| |fill1|) + (setq |fill2| |fill1|) (COND ((NEQUAL (ELT |f| 1) 0) - (SPADLET |fill1| (STRCONC |fillchar| |fill1|)))) + (setq |fill1| (STRCONC |fillchar| |fill1|)))) (CONS |fill1| (CONS |text| (CONS |fill2| NIL)))))))))) ;stringChar2Integer(str,pos) == @@ -294,12 +294,12 @@ (PROG (|d|) (RETURN (PROGN - (COND ((IDENTP |str|) (SPADLET |str| (PNAME |str|)))) + (COND ((IDENTP |str|) (setq |str| (PNAME |str|)))) (COND ((NULL (AND (STRINGP |str|) (INTEGERP |pos|) (>= |pos| 0) (> (QCSIZE |str|) |pos|))) NIL) - ((NULL (DIGITP (SPADLET |d| (SCHAR |str| |pos|)))) NIL) + ((NULL (DIGITP (setq |d| (SCHAR |str| |pos|)))) NIL) ('T (DIG2FIX |d|))))))) ;dropLeadingBlanks str == @@ -318,15 +318,15 @@ (PROG (|l| |nb| |i|) (RETURN (SEQ (PROGN - (SPADLET |str| (|object2String| |str|)) - (SPADLET |l| (QCSIZE |str|)) - (SPADLET |nb| NIL) - (SPADLET |i| 0) + (setq |str| (|object2String| |str|)) + (setq |l| (QCSIZE |str|)) + (setq |nb| NIL) + (setq |i| 0) (DO () ((NULL (AND (> |l| |i|) (NULL |nb|))) NIL) (SEQ (EXIT (COND ((NEQUAL (SCHAR |str| |i|) '| |) - (SPADLET |nb| |i|)) - ('T (SPADLET |i| (+ |i| 1))))))) + (setq |nb| |i|)) + ('T (setq |i| (+ |i| 1))))))) (COND ((EQL |nb| 0) |str|) (|nb| (SUBSTRING |str| |nb| NIL)) @@ -347,8 +347,8 @@ (PROG (|x| |y|) (RETURN (PROGN - (SPADLET |x| (CAR G1409)) - (SPADLET |y| (CDR G1409)) + (setq |x| (CAR G1409)) + (setq |y| (CDR G1409)) (COND ((NULL |y|) |x|) ((NULL |x|) (|concatList| |y|)) @@ -472,7 +472,7 @@ (COND ((NULL |s|) |s|) ((ATOM |s|) |s|) - ('T (SPADLET |f| (CAR |s|)) (SPADLET |r| (CDR |s|)) + ('T (setq |f| (CAR |s|)) (setq |r| (CDR |s|)) (COND ((ATOM |f|) (CONS |f| (|flattenSexpr| |r|))) ('T (APPEND (|flattenSexpr| |f|) (|flattenSexpr| |r|))))))))) @@ -509,7 +509,7 @@ ((NULL |optional|) (|mergeSort| |pred| #'|Identity| LIST (LENGTH LIST))) - ('T (SPADLET |key| (CAR |optional|)) + ('T (setq |key| (CAR |optional|)) (COND ((NULL (canFuncall? |key|)) (|error| '|listSort: last arg must be a function|)) @@ -550,19 +550,19 @@ (COND ((FUNCALL |f| (FUNCALL |g| (QCAR |p|)) (FUNCALL |g| (QCAR |q|))) - (SPADLET |r| (SPADLET |t| |p|)) - (SPADLET |p| (QCDR |p|))) - ('T (SPADLET |r| (SPADLET |t| |q|)) - (SPADLET |q| (QCDR |q|)))) + (setq |r| (setq |t| |p|)) + (setq |p| (QCDR |p|))) + ('T (setq |r| (setq |t| |q|)) + (setq |q| (QCDR |q|)))) (DO () ((NULL (AND (NULL (NULL |p|)) (NULL (NULL |q|)))) NIL) (SEQ (EXIT (COND ((FUNCALL |f| (FUNCALL |g| (QCAR |p|)) (FUNCALL |g| (QCAR |q|))) - (QRPLACD |t| |p|) (SPADLET |t| |p|) - (SPADLET |p| (QCDR |p|))) - ('T (QRPLACD |t| |q|) (SPADLET |t| |q|) - (SPADLET |q| (QCDR |q|))))))) + (QRPLACD |t| |p|) (setq |t| |p|) + (setq |p| (QCDR |p|))) + ('T (QRPLACD |t| |q|) (setq |t| |q|) + (setq |q| (QCDR |q|))))))) (COND ((NULL |p|) (QRPLACD |t| |q|)) ('T (QRPLACD |t| |p|))) @@ -593,19 +593,19 @@ ((AND (EQ |n| 2) (FUNCALL |f| (FUNCALL |g| (QCADR |p|)) (FUNCALL |g| (QCAR |p|)))) - (SPADLET |t| |p|) (SPADLET |p| (QCDR |p|)) + (setq |t| |p|) (setq |p| (QCDR |p|)) (QRPLACD |p| |t|) (QRPLACD |t| NIL))) (COND ((QSLESSP |n| 3) (RETURN |p|))) - (SPADLET |l| (QSQUOTIENT |n| 2)) - (SPADLET |t| |p|) + (setq |l| (QSQUOTIENT |n| 2)) + (setq |t| |p|) (DO ((G1411 (SPADDIFFERENCE |l| 1)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G1411) NIL) - (SEQ (EXIT (SPADLET |t| (QCDR |t|))))) - (SPADLET |q| (CDR |t|)) + (SEQ (EXIT (setq |t| (QCDR |t|))))) + (setq |q| (CDR |t|)) (QRPLACD |t| NIL) - (SPADLET |p| (|mergeSort| |f| |g| |p| |l|)) - (SPADLET |q| + (setq |p| (|mergeSort| |f| |g| |p| |l|)) + (setq |q| (|mergeSort| |f| |g| |q| (QSDIFFERENCE |n| |l|))) (|mergeInPlace| |f| |g| |p| |q|)))))) @@ -642,14 +642,14 @@ (RETURN (COND ((NULL |sig|) (CONS '|() -> ()| NIL)) - ('T (SPADLET |target| (CAR |sig|)) (SPADLET |args| (CDR |sig|)) - (SPADLET |target| (|formatUnabbreviated| |target|)) + ('T (setq |target| (CAR |sig|)) (setq |args| (CDR |sig|)) + (setq |target| (|formatUnabbreviated| |target|)) (COND ((NULL |args|) (CONS "() -> " |target|)) ((NULL (CDR |args|)) (APPEND (|formatUnabbreviated| (QCAR |args|)) (CONS " -> " |target|))) - ('T (SPADLET |args| (|formatUnabbreviatedTuple| |args|)) + ('T (setq |args| (|formatUnabbreviatedTuple| |args|)) (CONS "(" (APPEND |args| (CONS ") -> " |target|)))))))))) @@ -669,7 +669,7 @@ (COND ((NULL |t|) |t|) ((ATOM |t|) (CONS |t| NIL)) - ('T (SPADLET |t0| (|formatUnabbreviated| (QCAR |t|))) + ('T (setq |t0| (|formatUnabbreviated| (QCAR |t|))) (COND ((NULL (CDR |t|)) |t0|) ('T @@ -705,49 +705,49 @@ ((NULL |t|) (CONS "()" NIL)) ((AND (CONSP |t|) (PROGN - (SPADLET |p| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |p| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |sel| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |sel| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |arg| (QCAR |ISTMP#2|)) + (setq |arg| (QCAR |ISTMP#2|)) 'T))))) (|member| |p| '(|:| ":"))) (CONS |sel| (CONS ": " (|formatUnabbreviated| |arg|)))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Union|) - (PROGN (SPADLET |args| (QCDR |t|)) 'T)) + (PROGN (setq |args| (QCDR |t|)) 'T)) (CONS '|Union| (CONS "(" (APPEND (|formatUnabbreviatedTuple| |args|) (CONS ")" NIL))))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Mapping|) - (PROGN (SPADLET |args| (QCDR |t|)) 'T)) + (PROGN (setq |args| (QCDR |t|)) 'T)) (|formatUnabbreviatedSig| |args|)) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Record|) - (PROGN (SPADLET |args| (QCDR |t|)) 'T)) + (PROGN (setq |args| (QCDR |t|)) 'T)) (CONS '|Record| (CONS "(" (APPEND (|formatUnabbreviatedTuple| |args|) (CONS ")" NIL))))) ((AND (CONSP |t|) (EQ (QCDR |t|) NIL) - (PROGN (SPADLET |arg| (QCAR |t|)) 'T)) + (PROGN (setq |arg| (QCAR |t|)) 'T)) |t|) ((AND (CONSP |t|) (PROGN - (SPADLET |arg| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |arg| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |arg1| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |arg1| (QCAR |ISTMP#1|)) 'T)))) (CONS |arg| (CONS " " (|formatUnabbreviated| |arg1|)))) ((AND (CONSP |t|) (PROGN - (SPADLET |arg| (QCAR |t|)) - (SPADLET |args| (QCDR |t|)) + (setq |arg| (QCAR |t|)) + (setq |args| (QCDR |t|)) 'T)) (CONS |arg| (CONS "(" @@ -781,11 +781,11 @@ (SEQ (EXIT (IF (EQ (CAR |x|) |e|) (EXIT (RETURN - (SPADLET |e| (CDR |x|)))))))) + (setq |e| (CDR |x|)))))))) (EXIT |e|)))) - (IF (EQ (SPADLET |a| (CAR |e|)) 'QUOTE) (EXIT |e|)) - (SPADLET |u| (|sublisNQ,fn| |al| |a|)) - (SPADLET |v| (|sublisNQ,fn| |al| (CDR |e|))) + (IF (EQ (setq |a| (CAR |e|)) 'QUOTE) (EXIT |e|)) + (setq |u| (|sublisNQ,fn| |al| |a|)) + (setq |v| (|sublisNQ,fn| |al| (CDR |e|))) (IF (AND (EQ |a| |u|) (EQ (CDR |e|) |v|)) (EXIT |e|)) (EXIT (CONS |u| |v|)))))) @@ -800,7 +800,7 @@ (PROG (|parse|) (RETURN (PROGN - (SPADLET |parse| + (setq |parse| (OR (|ncParseFromString| |s|) (|systemError| "String for TeX will not parse"))) @@ -820,12 +820,12 @@ (SEQ (COND ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |argl| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |argl| (QCDR |x|)) 'T)) - (SPADLET |nargl| + (setq |nargl| (PROG (G1413) - (SPADLET G1413 NIL) + (setq G1413 NIL) (RETURN (DO ((G1414 |argl| (CDR G1414)) (|y| NIL)) @@ -842,7 +842,7 @@ (CONS 'BRACKET (CONS (CONS 'ARGLST (PROG (G1415) - (SPADLET G1415 NIL) + (setq G1415 NIL) (RETURN (DO ((G1416 |argl| (CDR G1416)) @@ -861,11 +861,11 @@ ((AND (BOOT-EQUAL |op| '|brace|) (CONSP |nargl|) (EQ (QCDR |nargl|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |nargl|)) + (setq |ISTMP#1| (QCAR |nargl|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET BRACKET (QCAR |ISTMP#1|)) - (SPADLET |r| (QCDR |ISTMP#1|)) + (setq BRACKET (QCAR |ISTMP#1|)) + (setq |r| (QCDR |ISTMP#1|)) 'T)))) (CONS 'BRACE |r|)) ('T (CONS |op| |nargl|)))) @@ -881,11 +881,11 @@ (PROG (|outf| |val|) (RETURN (PROGN - (SPADLET |outf| (|str2Outform| |s|)) - (SPADLET |val| + (setq |outf| (|str2Outform| |s|)) + (setq |val| (|coerceInt| (mkObj (|wrap| |outf|) '(|OutputForm|)) '(|TexFormat|))) - (SPADLET |val| (|objValUnwrap| |val|)) + (setq |val| (|objValUnwrap| |val|)) (CAR (ELT |val| 1)))))) ;opOf x == @@ -915,17 +915,17 @@ (DO () ((NULL (AND (CONSP |proplist|) (PROGN - (SPADLET |ISTMP#1| (QCAR |proplist|)) + (setq |ISTMP#1| (QCAR |proplist|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |prop|))) (PROGN - (SPADLET |proplist'| (QCDR |proplist|)) + (setq |proplist'| (QCDR |proplist|)) 'T))) NIL) - (SEQ (EXIT (SPADLET |proplist| |proplist'|)))) + (SEQ (EXIT (setq |proplist| |proplist'|)))) (COND ((BOOT-EQUAL |val| - (SPADLET |u| (LASSOC |prop| |proplist|))) + (setq |u| (LASSOC |prop| |proplist|))) |proplist|) ((NULL |val|) (COND @@ -942,7 +942,7 @@ (PROG (|proplist|) (RETURN (PROGN - (SPADLET |proplist| (|getProplist| |var| |e|)) + (setq |proplist| (|getProplist| |var| |e|)) (|semchkProplist| |var| |proplist| |prop| |val|) (|augProplist| |proplist| |prop| |val|))))) @@ -1000,7 +1000,7 @@ (PROG (|r|) (RETURN (SEQ (PROGN - (SPADLET |r| |u|) + (setq |r| |u|) (DO ((G1421 |u| (CDR G1421)) (|x| NIL) (G1422 |v| (CDR G1422)) (|y| NIL)) ((OR (ATOM G1421) @@ -1008,12 +1008,12 @@ (ATOM G1422) (PROGN (SETQ |y| (CAR G1422)) NIL)) NIL) - (SEQ (EXIT (SPADLET |r| (CDR |r|))))) + (SEQ (EXIT (setq |r| (CDR |r|))))) |r|))))) ;$blank := char ('_ ) -(SPADLET |$blank| (|char| '| |)) +(defvar |$blank| (|char| '| |)) ;trimString s == ; leftTrim rightTrim s @@ -1033,7 +1033,7 @@ (DECLARE (SPECIAL |$blank|)) (RETURN (SEQ (PROGN - (SPADLET |k| (MAXINDEX |s|)) + (setq |k| (MAXINDEX |s|)) (COND ((MINUSP |k|) |s|) ((BOOT-EQUAL (ELT |s| 0) |$blank|) @@ -1041,7 +1041,7 @@ ((OR (QSGREATERP |i| |k|) (NULL (BOOT-EQUAL (ELT |s| |i|) |$blank|))) NIL) - (SEQ (EXIT (SPADLET |j| |i|)))) + (SEQ (EXIT (setq |j| |i|)))) (SUBSTRING |s| (+ |j| 1) NIL)) ('T |s|))))))) @@ -1058,7 +1058,7 @@ (DECLARE (SPECIAL |$blank|)) (RETURN (SEQ (PROGN - (SPADLET |k| (MAXINDEX |s|)) + (setq |k| (MAXINDEX |s|)) (COND ((MINUSP |k|) |s|) ((BOOT-EQUAL (ELT |s| |k|) |$blank|) @@ -1067,7 +1067,7 @@ ((OR (IF (MINUSP G1423) (< |i| 0) (> |i| 0)) (NULL (BOOT-EQUAL (ELT |s| |i|) |$blank|))) NIL) - (SEQ (EXIT (SPADLET |j| |i|)))) + (SEQ (EXIT (setq |j| |i|)))) (SUBSTRING |s| 0 |j|)) ('T |s|))))))) @@ -1136,21 +1136,21 @@ ;$htHash := MAKE_-HASH_-TABLE() -(SPADLET |$htHash| (MAKE-HASH-TABLE)) +(setq |$htHash| (MAKE-HASH-TABLE)) ;$glossHash := MAKE_-HASH_-TABLE() -(SPADLET |$glossHash| (MAKE-HASH-TABLE)) +(setq |$glossHash| (MAKE-HASH-TABLE)) ;$lispHash := MAKE_-HASH_-TABLE() -(SPADLET |$lispHash| (MAKE-HASH-TABLE)) +(setq |$lispHash| (MAKE-HASH-TABLE)) ;$sysHash := MAKE_-HASH_-TABLE() -(SPADLET |$sysHash| (MAKE-HASH-TABLE)) +(setq |$sysHash| (MAKE-HASH-TABLE)) -(spadlet |$htSystemCommands| +(defvar |$htSystemCommands| '(|clear| |display| (|fin| . |development|) |edit| |help| |frame| |history| |load| |quit| |read| |set| |show| |synonym| |system| |trace| @@ -1158,117 +1158,117 @@ ;$currentSysList := [opOf x for x in $htSystemCommands] --see ht-root -(SPADLET |$currentSysList| +(setq |$currentSysList| (COLLECT (IN |x| |$htSystemCommands|) (|opOf| |x|))) ;$outStream := nil -(SPADLET |$outStream| NIL) +(setq |$outStream| NIL) ;$recheckingFlag := false --see transformAndRecheckComments -(SPADLET |$recheckingFlag| NIL) +(setq |$recheckingFlag| NIL) ;$exposeFlag := false --if true, messages go to $outStream -(SPADLET |$exposeFlag| NIL) +(setq |$exposeFlag| NIL) ;$exposeFlagHeading := false --see htcheck.boot -(SPADLET |$exposeFlagHeading| NIL) +(setq |$exposeFlagHeading| NIL) ;$checkingXmptex? := false --see htcheck.boot -(SPADLET |$checkingXmptex?| NIL) +(setq |$checkingXmptex?| NIL) ;$exposeDocHeading:= nil --see htcheck.boot -(SPADLET |$exposeDocHeading| NIL) +(setq |$exposeDocHeading| NIL) ;$charPlus := char '_+ -(SPADLET |$charPlus| (|char| '+)) +(setq |$charPlus| (|char| '+)) ;$charBlank:= (char '_ ) -(SPADLET |$charBlank| (|char| '| |)) +(setq |$charBlank| (|char| '| |)) ;$charLbrace:= char '_{ -(SPADLET |$charLbrace| (|char| '{)) +(setq |$charLbrace| (|char| '{)) ;$charRbrace:= char '_} -(SPADLET |$charRbrace| (|char| '})) +(setq |$charRbrace| (|char| '})) ;$charBack := char '_\ -(SPADLET |$charBack| (|char| '|\\|)) +(setq |$charBack| (|char| '|\\|)) ;$charDash := char '_- -(SPADLET |$charDash| (|char| '-)) +(setq |$charDash| (|char| '-)) ;$charTab := CODE_-CHAR(9) -(SPADLET |$charTab| (CODE-CHAR 9)) +(setq |$charTab| (CODE-CHAR 9)) ;$charNewline := CODE_-CHAR(10) -(SPADLET |$charNewline| (CODE-CHAR 10)) +(setq |$charNewline| (CODE-CHAR 10)) ;$charFauxNewline := CODE_-CHAR(25) -(SPADLET |$charFauxNewline| (CODE-CHAR 25)) +(setq |$charFauxNewline| (CODE-CHAR 25)) ;$stringNewline := PNAME CODE_-CHAR(10) -(SPADLET |$stringNewline| (PNAME (CODE-CHAR 10))) +(setq |$stringNewline| (PNAME (CODE-CHAR 10))) ;$stringFauxNewline := PNAME CODE_-CHAR(25) -(SPADLET |$stringFauxNewline| (PNAME (CODE-CHAR 25))) +(setq |$stringFauxNewline| (PNAME (CODE-CHAR 25))) ;$charExclusions := [char 'a, char 'A] -(SPADLET |$charExclusions| (CONS (|char| '|a|) (CONS (|char| 'A) NIL))) +(setq |$charExclusions| (CONS (|char| '|a|) (CONS (|char| 'A) NIL))) ;$charQuote := char '_' -(SPADLET |$charQuote| (|char| '|'|)) +(setq |$charQuote| (|char| '|'|)) ;$charSemiColon := char '_; -(SPADLET |$charSemiColon| (|char| '|;|)) +(setq |$charSemiColon| (|char| '|;|)) ;$charComma := char '_, -(SPADLET |$charComma| (|char| '|,|)) +(setq |$charComma| (|char| '|,|)) ;$charPeriod := char '_. -(SPADLET |$charPeriod| (|char| (INTERN "." "BOOT"))) +(setq |$charPeriod| (|char| (INTERN "." "BOOT"))) ;$checkPrenAlist := [[char '_(,:char '_)],[char '_{,:char '_}],[char '_[,:char '_]]] -(SPADLET |$checkPrenAlist| +(setq |$checkPrenAlist| (CONS (CONS (|char| '|(|) (|char| '|)|)) (CONS (CONS (|char| '{) (|char| '})) (CONS (CONS (|char| '[) (|char| '])) NIL)))) ;$charEscapeList:= [char '_%,char '_#,$charBack] -(SPADLET |$charEscapeList| +(setq |$charEscapeList| (CONS (|char| '%) (CONS (|char| '|#|) (CONS |$charBack| NIL)))) ;$charIdentifierEndings := [char '__, char '_!, char '_?] -(SPADLET |$charIdentifierEndings| +(setq |$charIdentifierEndings| (CONS (|char| '_) (CONS (|char| '!) (CONS (|char| '?) NIL)))) ;$charSplitList := [$charComma,$charPeriod,char '_[, char '_],$charLbrace, $charRbrace, char '_(, char '_), char '_$, char '_%] -(SPADLET |$charSplitList| +(setq |$charSplitList| (CONS |$charComma| (CONS |$charPeriod| (CONS (|char| '[) @@ -1282,14 +1282,14 @@ ;$charDelimiters := [$charBlank, char '_(, char '_), $charBack] -(SPADLET |$charDelimiters| +(setq |$charDelimiters| (CONS |$charBlank| (CONS (|char| '|(|) (CONS (|char| '|)|) (CONS |$charBack| NIL))))) ;$HTspadmacros := '("\spadtype" "\spadcommand" "\spadop" "\spadfun" "\spadatt" "\spadsyscom" "\spad" "\s") -(SPADLET |$HTspadmacros| +(setq |$HTspadmacros| '("\\spadtype" "\\spadcommand" "\\spadop" "\\spadfun" "\\spadatt" "\\spadsyscom" "\\spad" "\\s")) @@ -1301,7 +1301,7 @@ ; ['"\beginscroll",$charRbrace,'"scroll",$charLbrace,'"\begin"], ; ['"\endscroll",$charRbrace,'"scroll",$charLbrace,'"\end"]] -(SPADLET |$HTmacs| +(setq |$HTmacs| (CONS (CONS "\\beginmenu" (CONS |$charRbrace| (CONS "menu" @@ -1349,7 +1349,7 @@ ; "\menuwindowlink" ; "\menumemolink") -(SPADLET |$HTlinks| +(setq |$HTlinks| '("\\downlink" "\\menulink" "\\menudownlink" "\\menuwindowlink" "\\menumemolink")) @@ -1361,7 +1361,7 @@ ; "\lispwindowlink" ; "\lispmemolink") -(SPADLET |$HTlisplinks| +(setq |$HTlisplinks| '("\\lispdownlink" "\\menulispdownlink" "\\menulispwindowlink" "\\menulispmemolink" "\\lispwindowlink" "\\lispmemolink")) @@ -1373,7 +1373,7 @@ ; "verbatim" ; "detail") -(SPADLET |$beginEndList| +(setq |$beginEndList| '("page" "items" "menu" "scroll" "verbatim" "detail")) ;isDefaultPackageName x == (s := PNAME x).(MAXINDEX s) = char '_& @@ -1381,7 +1381,7 @@ (DEFUN |isDefaultPackageName| (|x|) (PROG (|s|) (RETURN - (BOOT-EQUAL (ELT (SPADLET |s| (PNAME |x|)) (MAXINDEX |s|)) + (BOOT-EQUAL (ELT (setq |s| (PNAME |x|)) (MAXINDEX |s|)) (|char| '&))))) diff --git a/src/interp/hashcode.lisp.pamphlet b/src/interp/hashcode.lisp.pamphlet index f844c6a..61eaa9b 100644 --- a/src/interp/hashcode.lisp.pamphlet +++ b/src/interp/hashcode.lisp.pamphlet @@ -77,45 +77,45 @@ (|hashString| "Enumeration"))) ((AND (CONSP |type|) (EQ (QCAR |type|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |val| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |val| (QCAR |ISTMP#1|)) 'T)))) (|hashType| |val| |percentHash|)) ((AND (CONSP |type|) (EQ (QCDR |type|) NIL) - (PROGN (SPADLET |dom| (QCAR |type|)) 'T)) + (PROGN (setq |dom| (QCAR |type|)) 'T)) (|hashString| (SYMBOL-NAME |dom|))) ((AND (CONSP |type|) (EQ (QCAR |type|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (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 |type2| (QCAR |ISTMP#2|)) + (setq |type2| (QCAR |ISTMP#2|)) 'T)))))) (|hashType| |type2| |percentHash|)) ((|isDomain| |type|) (|getDomainHash| |type|)) - ('T (SPADLET |op| (CAR |type|)) - (SPADLET |args| (CDR |type|)) - (SPADLET |hash| (|hashString| (SYMBOL-NAME |op|))) + ('T (setq |op| (CAR |type|)) + (setq |args| (CDR |type|)) + (setq |hash| (|hashString| (SYMBOL-NAME |op|))) (COND ((BOOT-EQUAL |op| '|Mapping|) - (SPADLET |hash| (|hashString| "->")) - (SPADLET |retType| (CAR |args|)) - (SPADLET |mapArgs| (CDR |args|)) + (setq |hash| (|hashString| "->")) + (setq |retType| (CAR |args|)) + (setq |mapArgs| (CDR |args|)) (DO ((G166088 |mapArgs| (CDR G166088)) (|arg| NIL)) ((OR (ATOM G166088) (PROGN (SETQ |arg| (CAR G166088)) NIL)) NIL) - (SEQ (EXIT (SPADLET |hash| + (SEQ (EXIT (setq |hash| (|hashCombine| (|hashType| |arg| |percentHash|) |hash|))))) - (SPADLET |retCode| + (setq |retCode| (|hashType| |retType| |percentHash|)) (COND ((EQL |retCode| |$VoidHash|) |hash|) @@ -127,7 +127,7 @@ ((OR (ATOM G166097) (PROGN (SETQ |arg| (CAR G166097)) NIL)) NIL) - (SEQ (EXIT (SPADLET |hash| + (SEQ (EXIT (setq |hash| (|hashCombine| (|hashString| (STRING |arg|)) |hash|))))) @@ -137,15 +137,15 @@ ((OR (ATOM G166106) (PROGN (SETQ |arg| (CAR G166106)) NIL)) NIL) - (SEQ (EXIT (SPADLET |hash| + (SEQ (EXIT (setq |hash| (|hashCombine| (|hashType| |arg| |percentHash|) |hash|))))) |hash|) ('T - (SPADLET |cmm| (CDDAR (|getConstructorModemap| |op|))) - (SPADLET |cosig| (CDR (GETDATABASE |op| 'COSIG))) + (setq |cmm| (CDDAR (|getConstructorModemap| |op|))) + (setq |cosig| (CDR (GETDATABASE |op| 'COSIG))) (DO ((G166117 |args| (CDR G166117)) (|arg| NIL) (G166118 |cosig| (CDR G166118)) (|c| NIL) (G166119 |cmm| (CDR G166119)) (|ct| NIL)) @@ -157,19 +157,19 @@ (PROGN (SETQ |ct| (CAR G166119)) NIL)) NIL) (SEQ (EXIT (COND - (|c| (SPADLET |hash| + (|c| (setq |hash| (|hashCombine| (|hashType| |arg| |percentHash|) |hash|))) ('T - (SPADLET |hash| + (setq |hash| (|hashCombine| 7 |hash|))))))) |hash|)))))))) ;--The following are in cfuns.lisp ;$hashModulus := 1073741789 -- largest 30-bit prime -(SPADLET |$hashModulus| 1073741789) +(setq |$hashModulus| 1073741789) ;-- Produce a 30-bit hash code. This function must produce the same codes ;-- as the asharp string hasher in src/strops.c @@ -187,17 +187,17 @@ (declare (special |$hashModulus|)) (RETURN (SEQ (PROGN - (SPADLET |h| 0) + (setq |h| 0) (DO ((G166163 (SPADDIFFERENCE (|#| |str|) 1)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G166163) NIL) (SEQ (EXIT (PROGN - (SPADLET |j| + (setq |j| (CHAR-CODE (|char| (ELT |str| |i|)))) - (SPADLET |h| (LOGXOR |h| (ASH |h| 8))) - (SPADLET |h| (+ (+ |h| |j|) 200041)) - (SPADLET |h| (LOGAND |h| 1073741823)))))) + (setq |h| (LOGXOR |h| (ASH |h| 8))) + (setq |h| (+ (+ |h| |j|) 200041)) + (setq |h| (LOGAND |h| 1073741823)))))) (REM |h| |$hashModulus|)))))) ;-- Combine two hash codes to make a new one. Must be the same as in @@ -214,7 +214,7 @@ ;--putConstructorProperty('LocalAlgebra,'coSig,'(NIL T T T)) ;--putConstructorProperty('Localize,'coSig,'(NIL T T T)) -(SPADLET |$VoidHash| (|hashString| "Void")) +(setq |$VoidHash| (|hashString| "Void")) \end{chunk} \eject diff --git a/src/interp/i-analy.lisp.pamphlet b/src/interp/i-analy.lisp.pamphlet index e0676fa..55ee03f 100644 --- a/src/interp/i-analy.lisp.pamphlet +++ b/src/interp/i-analy.lisp.pamphlet @@ -77,7 +77,7 @@ (RETURN (COND ((INTEGERP |x|) - (SPADLET |t| + (setq |t| (COND ((NULL |$useIntegerSubdomain|) |$Integer|) ((> |x| 0) |$PositiveInteger|) @@ -121,33 +121,33 @@ ((BOOT-EQUAL |t| |$Symbol|) |t|) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |u| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |u| (QCAR |ISTMP#1|)) 'T)))) (COND ((BOOT-EQUAL |u| |var|) |t|) ('T NIL))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Polynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))) |t|) ((AND (CONSP |t|) (EQ (QCAR |t|) '|RationalFunction|) (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)))) (CONS '|Polynomial| (CONS D NIL))) ((AND (CONSP |t|) (PROGN - (SPADLET |up| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |up| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |t'| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |t'| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |u| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |u| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL))))))) (member |up| |$univariateDomains|)) @@ -156,33 +156,33 @@ ('T (|getMinimalVariableTower| |var| |t'|)))) ((AND (CONSP |t|) (PROGN - (SPADLET |up| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |up| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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 |t'| (QCAR |ISTMP#2|)) 'T))))) + (PROGN (setq |t'| (QCAR |ISTMP#2|)) 'T))))) (member |up| |$univariateDomains|)) (COND ((BOOT-EQUAL |u| |var|) |t|) ('T (|getMinimalVariableTower| |var| |t'|)))) ((AND (CONSP |t|) (PROGN - (SPADLET |mp| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |mp| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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 |t'| (QCAR |ISTMP#2|)) 'T))))) + (PROGN (setq |t'| (QCAR |ISTMP#2|)) 'T))))) (member |mp| |$multivariateDomains|)) (COND ((|member| |var| |u|) |t|) ('T (|getMinimalVariableTower| |var| |t'|)))) - ((NULL (SPADLET |t'| (|underDomainOf| |t|))) NIL) + ((NULL (setq |t'| (|underDomainOf| |t|))) NIL) ('T (|getMinimalVariableTower| |var| |t'|)))))) ;getMinimalVarMode(id,m) == @@ -207,13 +207,13 @@ (RETURN (COND ((AND (CONSP |m|) (EQ (QCAR |m|) '|Mapping|)) |m|) - ('T (SPADLET |defaultMode| |$Symbol|) + ('T (setq |defaultMode| |$Symbol|) (COND ((NULL |m|) |defaultMode|) - ((AND (SPADLET |vl| (|polyVarlist| |m|)) + ((AND (setq |vl| (|polyVarlist| |m|)) (OR (|member| |id| |vl|) (|member| '|all| |vl|))) (SUBSTQ '(|Integer|) |$EmptyMode| |m|)) - ((SPADLET |um| (|underDomainOf| |m|)) + ((setq |um| (|underDomainOf| |m|)) (|getMinimalVarMode| |id| |um|)) ('T |defaultMode|))))))) @@ -244,26 +244,26 @@ (COND ((AND (CONSP |m|) (EQUAL (QCAR |m|) |$QuotientField|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |op| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |op| (QCAR |ISTMP#1|)) 'T)))) (|polyVarlist| |op|)) ((AND (CONSP |m|) (PROGN - (SPADLET |op| (QCAR |m|)) - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |op| (QCAR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |a| (QCAR |ISTMP#1|)) 'T)))) (COND ((|member| |op| '(|UnivariateTaylorSeries| |UnivariateLaurentSeries| |UnivariatePuiseuxSeries|)) - (SPADLET |a| (CADDR |m|)) (SPADLET |a| (|removeQuote| |a|)) + (setq |a| (CADDR |m|)) (setq |a| (|removeQuote| |a|)) (CONS |a| NIL)) ((|member| |op| '(|Polynomial| |RationalFunction| |Expression|)) '(|all|)) - ('T (SPADLET |a| (|removeQuote| |a|)) + ('T (setq |a| (|removeQuote| |a|)) (COND ((|member| |op| '(|UnivariatePolynomial|)) (CONS |a| NIL)) @@ -321,21 +321,21 @@ (SEQ (COND ((BOOT-EQUAL |target| |$OutputForm|) NIL) ((BOOT-EQUAL |target| |$Any|) NIL) - ('T (SPADLET |n| (LENGTH |arglist|)) + ('T (setq |n| (LENGTH |arglist|)) (|pushDownOnArithmeticVariables| |op| |target| |arglist|) (COND - ((SPADLET |pdArgs| (|pushDownOp?| |op| |n|)) + ((setq |pdArgs| (|pushDownOp?| |op| |n|)) (DO ((G166265 |pdArgs| (CDR G166265)) (|i| NIL)) ((OR (ATOM G166265) (PROGN (SETQ |i| (CAR G166265)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| (ELT |arglist| |i|)) + (setq |x| (ELT |arglist| |i|)) (COND ((NULL (|getTarget| |x|)) (|putTarget| |x| |target|)) ('T NIL))))))) - ('T (SPADLET |nargs| (|#| |arglist|)) + ('T (setq |nargs| (|#| |arglist|)) (SEQ (COND ((EQL 1 |nargs|) (COND @@ -344,11 +344,11 @@ (EQ (QCAR |target|) '|UniversalSegment|) (PROGN - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET S (QCAR |ISTMP#1|)) + (setq S (QCAR |ISTMP#1|)) 'T)))) (EXIT (DO ((G166274 |arglist| (CDR G166274)) @@ -372,7 +372,7 @@ (|putTarget| (CADR |arglist|) |target|))) (COND ((|getTarget| - (SPADLET |x| (CAR |arglist|))) + (setq |x| (CAR |arglist|))) NIL) ((NEQUAL (|getUnname| |x|) |$immediateDataSymbol|) @@ -388,11 +388,11 @@ (CONSP |target|) (EQ (QCAR |target|) '|Equation|) (PROGN - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET S (QCAR |ISTMP#1|)) + (setq S (QCAR |ISTMP#1|)) 'T)))) (DO ((G166283 |arglist| (CDR G166283)) (|x| NIL)) @@ -410,11 +410,11 @@ (CONSP |target|) (EQ (QCAR |target|) '|Gaussian|) (PROGN - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET S (QCAR |ISTMP#1|)) + (setq S (QCAR |ISTMP#1|)) 'T)))) (DO ((G166292 |arglist| (CDR G166292)) (|x| NIL)) @@ -429,18 +429,18 @@ (|putTarget| |x| S)) ('T NIL)))))) ((BOOT-EQUAL |op| '/) - (SPADLET |targ| + (setq |targ| (COND ((AND (CONSP |target|) (EQ (QCAR |target|) '|Fraction|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |target|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET S + (setq S (QCAR |ISTMP#1|)) 'T)))) S) @@ -461,11 +461,11 @@ (CONSP |target|) (EQ (QCAR |target|) '|Segment|) (PROGN - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET S (QCAR |ISTMP#1|)) + (setq S (QCAR |ISTMP#1|)) 'T)))) (DO ((G166310 |arglist| (CDR G166310)) (|x| NIL)) @@ -484,11 +484,11 @@ (EQ (QCAR |target|) '|UniversalSegment|) (PROGN - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET S (QCAR |ISTMP#1|)) + (setq S (QCAR |ISTMP#1|)) 'T)))) (DO ((G166319 |arglist| (CDR G166319)) (|x| NIL)) @@ -541,14 +541,14 @@ (SEQ (EXIT (COND ((VECP |x|) (|transferPropsToNode| - (SPADLET |xn| (|getUnname| |x|)) |x|) + (setq |xn| (|getUnname| |x|)) |x|) (COND ((OR (|getValue| |x|) (BOOT-EQUAL |xn| |$immediateDataSymbol|)) NIL) ('T - (SPADLET |t| + (setq |t| (OR (|getMinimalVariableTower| |xn| |target|) @@ -557,8 +557,8 @@ ((NULL (|getTarget| |x|)) (|putTarget| |x| |t|)) ('T NIL))))) - ((CONSP |x|) (SPADLET |op'| (CAR |x|)) - (SPADLET |arglist'| (CDR |x|)) + ((CONSP |x|) (setq |op'| (CAR |x|)) + (setq |arglist'| (CDR |x|)) (|pushDownOnArithmeticVariables| (|getUnname| |op'|) |target| |arglist'|)))))) @@ -590,9 +590,9 @@ (PROG (|sig| |ops| |sameAsTarg| |numMms| |targ| |argl| |ok|) (RETURN (SEQ (PROGN - (SPADLET |ops| + (setq |ops| (PROG (G166383) - (SPADLET G166383 NIL) + (setq G166383 NIL) (RETURN (DO ((G166389 (|getModemapsFromDatabase| |op| |n|) @@ -604,7 +604,7 @@ NIL) (PROGN (PROGN - (SPADLET |sig| (CAR G166370)) + (setq |sig| (CAR G166370)) G166370) NIL)) (NREVERSE0 G166383)) @@ -614,15 +614,15 @@ ((NULL |ops|) NIL) ((|member| |op| '(+ * - |exquo|)) (PROG (G166400) - (SPADLET G166400 NIL) + (setq G166400 NIL) (RETURN (DO ((G166405 (SPADDIFFERENCE |n| 1)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G166405) (NREVERSE0 G166400)) (SEQ (EXIT (SETQ G166400 (CONS |i| G166400)))))))) - ('T (SPADLET |sameAsTarg| (GETZEROVEC |n|)) - (SPADLET |numMms| (LENGTH |ops|)) + ('T (setq |sameAsTarg| (GETZEROVEC |n|)) + (setq |numMms| (LENGTH |ops|)) (SEQ (DO ((G166413 |ops| (CDR G166413)) (G166373 NIL)) ((OR (ATOM G166413) @@ -631,8 +631,8 @@ NIL) (PROGN (PROGN - (SPADLET |targ| (CADR G166373)) - (SPADLET |argl| (CDDR G166373)) + (setq |targ| (CADR G166373)) + (setq |argl| (CDDR G166373)) G166373) NIL)) NIL) @@ -653,14 +653,14 @@ (SETELT |sameAsTarg| |i| (+ 1 (ELT |sameAsTarg| |i|)))))))))))) - (SPADLET |ok| NIL) + (setq |ok| NIL) (DO ((G166433 (SPADDIFFERENCE |n| 1)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G166433) NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |numMms| (ELT |sameAsTarg| |i|)) - (SPADLET |ok| (CONS |i| |ok|))) + (setq |ok| (CONS |i| |ok|))) ('T NIL))))) (REVERSE |ok|))))))))) @@ -678,9 +678,9 @@ (DECLARE (SPECIAL |$getUnexposedOperations|)) (RETURN (PROGN - (SPADLET |$getUnexposedOperations| NIL) + (setq |$getUnexposedOperations| NIL) (|startTimingProcess| '|diskread|) - (SPADLET |ans| (|getSystemModemaps| |op| |nargs|)) + (setq |ans| (|getSystemModemaps| |op| |nargs|)) (|stopTimingProcess| '|diskread|) |ans|)))) @@ -700,13 +700,13 @@ (DECLARE (SPECIAL |$getUnexposedOperations|)) (RETURN (SEQ (COND - ((SPADLET |mml| (GETDATABASE |op| 'OPERATION)) - (SPADLET |mms| NIL) + ((setq |mml| (GETDATABASE |op| 'OPERATION)) + (setq |mms| NIL) (DO ((G167451 |mml| (CDR G167451)) (|x| NIL)) ((OR (ATOM G167451) (PROGN (SETQ |x| (CAR G167451)) NIL) (PROGN - (PROGN (SPADLET |sig| (CDAR |x|)) |x|) + (PROGN (setq |sig| (CDAR |x|)) |x|) NIL)) NIL) (SEQ (EXIT (COND @@ -717,7 +717,7 @@ (|isFreeFunctionFromMm| |x|) (|isExposedConstructor| (|getDomainFromMm| |x|))) - (SPADLET |mms| (CONS |x| |mms|))) + (setq |mms| (CONS |x| |mms|))) ('T '|iterate|))))) |mms|) ('T NIL)))))) @@ -795,39 +795,39 @@ (SEQ (COND ((AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |argl| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |argl| (QCDR |t|)) 'T)) - (SPADLET |tar| (|getTarget| |op|)) + (setq |tar| (|getTarget| |op|)) (COND ((AND (NEQUAL (|getUnname| |op|) |$immediateDataSymbol|) - (SPADLET |v| (|getValue| |op|))) - (SPADLET |om| (|objMode| |v|)) + (setq |v| (|getValue| |op|))) + (setq |om| (|objMode| |v|)) (COND ((NULL |tar|) (CONS |om| NIL)) - ((SPADLET |r| (|resolveTM| |om| |tar|)) + ((setq |r| (|resolveTM| |om| |tar|)) (CONS |r| NIL)) ('T (CONS |om| NIL)))) ('T (COND - ((ATOM |op|) (SPADLET |opName| (|getUnname| |op|)) + ((ATOM |op|) (setq |opName| (|getUnname| |op|)) (COND ((|member| |opName| |$localVars|) (|putModeSet| |op| (|bottomUpIdentifier| |op| |opName|))) ('T (|transferPropsToNode| |opName| |op|)))) - ('T (SPADLET |opName| NIL) (|bottomUp| |op|))) - (SPADLET |opVal| (|getValue| |op|)) - (SPADLET |dol| + ('T (setq |opName| NIL) (|bottomUp| |op|))) + (setq |opVal| (|getValue| |op|)) + (setq |dol| (AND (|getAtree| |op| '|dollar|) (NEQUAL |opName| '|construct|))) (COND ((AND (NULL |dol|) - (SPADLET |fn| (GETL |opName| '|up|)) - (SPADLET |u| (FUNCALL |fn| |t|))) + (setq |fn| (GETL |opName| '|up|)) + (setq |u| (FUNCALL |fn| |t|))) |u|) - ('T (SPADLET |nargs| (|#| |argl|)) + ('T (setq |nargs| (|#| |argl|)) (COND (|opName| (DO ((G166479 |argl| (CDR G166479)) @@ -850,15 +850,15 @@ (COND ((AND |opVal| (PROGN - (SPADLET |ISTMP#1| (|objVal| |opVal|)) + (setq |ISTMP#1| (|objVal| |opVal|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'MAP))) (PROGN - (SPADLET |ISTMP#1| (|getMode| |op|)) + (setq |ISTMP#1| (|getMode| |op|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Mapping|) (PROGN - (SPADLET |ms| (QCDR |ISTMP#1|)) + (setq |ms| (QCDR |ISTMP#1|)) 'T))) (BOOT-EQUAL (+ |nargs| 1) (|#| |ms|))) (DO ((G166489 (CDR |ms|) (CDR G166489)) @@ -871,9 +871,9 @@ (PROGN (SETQ |x| (CAR G166490)) NIL)) NIL) (SEQ (EXIT (|putTarget| |x| |m|)))))) - (SPADLET |argModeSetList| + (setq |argModeSetList| (PROG (G166503) - (SPADLET G166503 NIL) + (setq G166503 NIL) (RETURN (DO ((G166508 |argl| (CDR G166508)) @@ -890,18 +890,18 @@ (COND ((AND (NULL |tar|) (BOOT-EQUAL |opName| '*) (EQL |nargs| 2)) - (SPADLET |t1| (CAAR |argModeSetList|)) - (SPADLET |t2| (CAADR |argModeSetList|)) - (SPADLET |tar| + (setq |t1| (CAAR |argModeSetList|)) + (setq |t2| (CAADR |argModeSetList|)) + (setq |tar| (|computeTypeWithVariablesTarget| |t1| |t2|)) (COND (|tar| (PROGN (|pushDownTargetInfo| |opName| |tar| |argl|) - (SPADLET |argModeSetList| + (setq |argModeSetList| (PROG (G166518) - (SPADLET G166518 NIL) + (setq G166518 NIL) (RETURN (DO ((G166523 |argl| @@ -919,26 +919,26 @@ (CONS (|bottomUp| |x|) G166518))))))))))))) - (SPADLET |ms| + (setq |ms| (|bottomUpForm| |t| |op| |opName| |argl| |argModeSetList|)) - (SPADLET |op| (CAR |t|)) + (setq |op| (CAR |t|)) (COND ((AND |$useIntegerSubdomain| (NULL |tar|) (NULL |dol|) (|isEqualOrSubDomain| (CAR |ms|) |$Integer|)) - (SPADLET |val| (|objVal| (|getValue| |op|))) + (setq |val| (|objVal| (|getValue| |op|))) (COND ((|isWrapped| |val|) - (SPADLET |val| (|unwrap| |val|)) - (SPADLET |bm| (|getBasicMode| |val|)) + (setq |val| (|unwrap| |val|)) + (setq |bm| (|getBasicMode| |val|)) (|putValue| |op| (mkObjWrap |val| |bm|)) (|putModeSet| |op| (CONS |bm| NIL))) ('T |ms|))) ('T |ms|))))))) - ((SPADLET |m| (|getBasicMode| |t|)) (CONS |m| NIL)) - ((IDENTP (SPADLET |id| (|getUnname| |t|))) + ((setq |m| (|getBasicMode| |t|)) (CONS |m| NIL)) + ((IDENTP (setq |id| (|getUnname| |t|))) (|putModeSet| |t| (|bottomUpIdentifier| |t| |id|))) ('T (|keyedSystemError| @@ -957,7 +957,7 @@ (RETURN (COND ((OR (|polyVarlist| |p|) (|polyVarlist| |q|)) - (SPADLET |t| (|resolveTT| |p| |q|)) + (setq |t| (|resolveTT| |p| |q|)) (COND ((|polyVarlist| |t|) |t|) ('T NIL))) ('T NIL))))) @@ -972,8 +972,8 @@ (DECLARE (SPECIAL |$genValue|)) (RETURN (PROGN - (SPADLET |$genValue| NIL) - (SPADLET |ms| (|bottomUp| |t|)) + (setq |$genValue| NIL) + (setq |ms| (|bottomUp| |t|)) (COMP-TRAN-1 (|objVal| (|getValue| |t|))) |ms|)))) @@ -994,18 +994,18 @@ |$immediateDataSymbol|)) (RETURN (PROGN - (SPADLET |$useIntegerSubdomain| 'T) - (SPADLET |ms| (|bottomUp| |t|)) + (setq |$useIntegerSubdomain| 'T) + (setq |ms| (|bottomUp| |t|)) (COND ((OR (NEQUAL |$immediateDataSymbol| (|getUnname| |t|)) (NEQUAL |$Integer| (CAR |ms|))) |ms|) ((NULL (INTEGERP - (SPADLET |num| (|objValUnwrap| (|getValue| |t|))))) + (setq |num| (|objValUnwrap| (|getValue| |t|))))) |ms|) - ('T (SPADLET |o| (|getBasicObject| |num|)) + ('T (setq |o| (|getBasicObject| |num|)) (|putValue| |t| |o|) - (SPADLET |ms| (CONS (|objMode| |o|) NIL)) + (setq |ms| (CONS (|objMode| |o|) NIL)) (|putModeSet| |t| |ms|) |ms|)))))) ;bottomUpPredicate(pred, name) == @@ -1020,7 +1020,7 @@ (RETURN (PROGN (|putTarget| |pred| |$Boolean|) - (SPADLET |ms| (|bottomUp| |pred|)) + (setq |ms| (|bottomUp| |pred|)) (COND ((NEQUAL |$Boolean| (CAR |ms|)) (|throwKeyedMsg| @@ -1039,7 +1039,7 @@ (DECLARE (SPECIAL |$genValue|)) (RETURN (PROGN - (SPADLET |$genValue| NIL) + (setq |$genValue| NIL) (|bottomUpPredicate| |pred| |name|))))) ;bottomUpIdentifier(t,id) == @@ -1077,7 +1077,7 @@ (DECLARE (SPECIAL |$genValue| |$EmptyMode|)) (RETURN (COND - ((SPADLET |m| (|isType| |t|)) (|bottomUpType| |t| |m|)) + ((setq |m| (|isType| |t|)) (|bottomUpType| |t| |m|)) ((EQ |id| '|noMapVal|) (|throwKeyedMsg| "The function is not defined for given value." NIL)) ((EQ |id| '|noBranch|) @@ -1086,25 +1086,25 @@ (CONS "bottomUpIdentifier" (CONS "trying to evaluate noBranch" NIL)))) ('T (|transferPropsToNode| |id| |t|) - (SPADLET |defaultType| (CONS '|Variable| (CONS |id| NIL))) + (setq |defaultType| (CONS '|Variable| (CONS |id| NIL))) (COND - ((SPADLET |u| (|getValue| |t|)) - (SPADLET |tar| (|getTarget| |t|)) - (SPADLET |expr| (|objVal| |u|)) - (SPADLET |om| (|objMode| |u|)) + ((setq |u| (|getValue| |t|)) + (setq |tar| (|getTarget| |t|)) + (setq |expr| (|objVal| |u|)) + (setq |om| (|objMode| |u|)) (COND ((AND (NEQUAL |om| |$EmptyMode|) (NULL (AND (CONSP |om|) (EQ (QCAR |om|) '|RuleCalled|) (PROGN - (SPADLET |ISTMP#1| (QCDR |om|)) + (setq |ISTMP#1| (QCDR |om|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))))) (COND ((OR |$genValue| (GENSYMP |id|)) (COND ((NULL |tar|) (CONS |om| NIL)) - ((SPADLET |r| (|resolveTM| |om| |tar|)) + ((setq |r| (|resolveTM| |om| |tar|)) (CONS |r| NIL)) ('T (CONS |om| NIL)))) ('T @@ -1189,7 +1189,7 @@ |$univariateDomains| |$Symbol|)) (RETURN (COND - ((SPADLET |m| (|getMode| |t|)) + ((setq |m| (|getMode| |t|)) (COND ((AND (CONSP |m|) (EQ (QCAR |m|) '|Mapping|)) (|throwKeyedMsg| @@ -1203,19 +1203,19 @@ ('T (COND ((|isPartialMode| |m|) - (SPADLET |m| + (setq |m| (|resolveTM| (CONS '|Variable| (CONS |id| NIL)) |m|)))) (COND ((AND |target| (NULL |isSub|) - (SPADLET |val| + (setq |val| (|coerceInteractive| (mkObjWrap |id| (CONS '|Variable| (CONS |id| NIL))) |target|))) (|putValue| |t| |val|) (CONS |target| NIL)) ((AND (NULL |target|) (NULL |isSub|) |m| - (SPADLET |val| + (setq |val| (|coerceInteractive| (mkObjWrap |id| (CONS '|Variable| (CONS |id| NIL))) @@ -1225,7 +1225,7 @@ (|throwKeyedMsg| "%1 is declared as being in %2p but has not been given a value." (CONS |id| (CONS |m| NIL)))))))) - ('T (SPADLET |val| (mkObjWrap |id| |defaultMode|)) + ('T (setq |val| (mkObjWrap |id| |defaultMode|)) (COND ((OR (NULL |target|) (BOOT-EQUAL |defaultMode| |target|)) (|putValue| |t| |val|) (CONS |defaultMode| NIL)) @@ -1236,12 +1236,12 @@ ((AND (BOOT-EQUAL |defaultMode| |$Symbol|) (CONSP |target|) (PROGN - (SPADLET D (QCAR |target|)) - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq D (QCAR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (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)))))) (COND @@ -1249,27 +1249,27 @@ (BOOT-EQUAL |x| |id|)) (AND (|member| D |$multivariateDomains|) (|member| |id| |x|))) - (SPADLET |dmode| + (setq |dmode| (CONS D (CONS |x| (CONS |$Integer| NIL)))) (COND - ((SPADLET |val'| + ((setq |val'| (|coerceInteractive| (mkObjWrap |id| (CONS '|Variable| (CONS |id| NIL))) |dmode|)) (PROGN - (SPADLET |defaultMode| |dmode|) - (SPADLET |val| |val'|))))) + (setq |defaultMode| |dmode|) + (setq |val| |val'|))))) ('T NIL)))) - (SPADLET |target| (|resolveTM| |defaultMode| |target|)))) + (setq |target| (|resolveTM| |defaultMode| |target|)))) (COND ((AND |target| - (SPADLET |tm| (|getMinimalVarMode| |id| |target|))) - (SPADLET |target| |tm|))) + (setq |tm| (|getMinimalVarMode| |id| |target|))) + (setq |target| |tm|))) (COND ((OR (NULL |target|) - (NULL (SPADLET |val'| + (NULL (setq |val'| (|coerceInteractive| |val| |target|)))) (|putValue| |t| |val|) (CONS |defaultMode| NIL)) ('T (|putValue| |t| |val'|) (CONS |target| NIL)))))))))) @@ -1308,13 +1308,13 @@ (DECLARE (SPECIAL |$immediateDataSymbol| |$localVars|)) (RETURN (SEQ (PROGN - (SPADLET |tmode| (|getMode| |t|)) - (SPADLET |tval| (|getValue| |t|)) - (SPADLET |expr| + (setq |tmode| (|getMode| |t|)) + (setq |tval| (|getValue| |t|)) + (setq |expr| (COND ((|member| |id| |$localVars|) |id|) ((OR |tmode| |tval|) - (SPADLET |envMode| + (setq |envMode| (OR |tmode| (|objMode| |tval|))) (COND ((AND (CONSP |envMode|) @@ -1328,11 +1328,11 @@ (CONS (MKQ |envMode|) NIL)))))) ('T (|wrap| |id|)))) (COND - ((AND |tmode| |tval| (SPADLET |mdv| (|objMode| |tval|))) + ((AND |tmode| |tval| (setq |mdv| (|objMode| |tval|))) (SEQ (COND ((|isPartialMode| |tmode|) (COND - ((NULL (SPADLET |tmode| + ((NULL (setq |tmode| (|resolveTM| |mdv| |tmode|))) (EXIT (|keyedMsgCompFailure| @@ -1341,13 +1341,13 @@ (|putValue| |t| (mkObj |expr| |tmode|)) (CONS |tmode| NIL))) ((OR |tmode| - (AND |tval| (SPADLET |tmode| (|objMode| |tval|)))) + (AND |tval| (setq |tmode| (|objMode| |tval|)))) (|putValue| |t| (mkObj |expr| |tmode|)) (CONS |tmode| NIL)) - ('T (SPADLET |obj| (mkObj |expr| |defaultMode|)) + ('T (setq |obj| (mkObj |expr| |defaultMode|)) (COND ((AND (|canCoerceFrom| |defaultMode| |target|) - (SPADLET |obj'| + (setq |obj'| (|coerceInteractive| |obj| |target|))) (|putValue| |t| |obj'|) (CONS |target| NIL)) ('T (|putValue| |t| |obj|) (CONS |defaultMode| NIL)))))))))) @@ -1365,8 +1365,8 @@ (RETURN (COND ((NULL (|get| |id| '|isInterpreterRule| |$e|)) NIL) - ((AND (SPADLET |ms| (|selectLocalMms| |t| |id| NIL NIL)) - (SPADLET |ms| (|evalForm| |t| |id| NIL |ms|))) + ((AND (setq |ms| (|selectLocalMms| |t| |id| NIL NIL)) + (setq |ms| (|evalForm| |t| |id| NIL |ms|))) |ms|) ('T NIL))))) @@ -1391,7 +1391,7 @@ (DECLARE (SPECIAL |$origArgModeSetList|)) (RETURN (PROGN - (SPADLET |$origArgModeSetList| (COPY |argModeSetList|)) + (setq |$origArgModeSetList| (COPY |argModeSetList|)) (|bottomUpForm2| |t| |op| |opName| |argl| |argModeSetList|))))) ;bottomUpForm2(t,op,opName,argl,argModeSetList) == @@ -1427,14 +1427,14 @@ (COND ((AND (NULL (ATOM |t|)) (EQ |opName| '%%)) (|bottomUpPercent| |t|)) - ('T (SPADLET |opVal| (|getValue| |op|)) - (SPADLET |lookForIt| + ('T (setq |opVal| (|getValue| |op|)) + (setq |lookForIt| (COND ((|getAtree| |op| '|dollar|) 'T) ((NULL |opVal|) 'T) - ('T (SPADLET |opMode| (|objMode| |opVal|)) + ('T (setq |opMode| (|objMode| |opVal|)) (COND - ((NULL (SPADLET |opModeTop| (IFCAR |opMode|))) + ((NULL (setq |opModeTop| (IFCAR |opMode|))) 'T) ((|member| |opModeTop| '(|Record| |Union|)) NIL) ((|member| |opModeTop| @@ -1447,40 +1447,40 @@ (NULL (AND (BOOT-EQUAL |opName| '=) (CONSP |argModeSetList|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |argModeSetList|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |m| (QCAR |ISTMP#1|)) + (setq |m| (QCAR |ISTMP#1|)) 'T))) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |argModeSetList|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (EQUAL (QCAR |ISTMP#3|) |m|))))) (CONSP |m|) (EQ (QCAR |m|) '|Union|))) - (SPADLET |u| + (setq |u| (|bottomUpFormUntaggedUnionRetract| |t| |op| |opName| |argl| |argModeSetList|))) |u|) ((AND |lookForIt| - (SPADLET |u| + (setq |u| (|bottomUpFormTuple| |t| |op| |opName| |argl| |argModeSetList|))) |u|) ((AND |lookForIt| - (SPADLET |mmS| + (setq |mmS| (|selectMms| |op| |argl| (|getTarget| |op|))) - (SPADLET |mS| + (setq |mS| (|evalForm| |op| - (SPADLET |opName| (|getUnname| |op|)) + (setq |opName| (|getUnname| |op|)) |argl| |mmS|))) (|putModeSet| |op| |mS|)) ('T @@ -1508,10 +1508,10 @@ (RETURN (SEQ (COND ((|getAtree| |op| '|dollar|) NIL) - ((NULL (SPADLET |singles| + ((NULL (setq |singles| (|getModemapsFromDatabase| |opName| 1))) NIL) - ('T (SPADLET |haveTuple| NIL) + ('T (setq |haveTuple| NIL) (DO ((G166755 |singles| (CDR G166755)) (|mm| NIL)) ((OR (ATOM G166755) (PROGN (SETQ |mm| (CAR G166755)) NIL) @@ -1519,50 +1519,50 @@ NIL) (SEQ (EXIT (COND ((PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (|getFirstArgTypeFromMm| |mm|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Tuple|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL))))) - (SPADLET |haveTuple| 'T)) + (setq |haveTuple| 'T)) ('T NIL))))) (COND ((NULL |haveTuple|) NIL) - ('T (SPADLET |nargs| (|#| |args|)) + ('T (setq |nargs| (|#| |args|)) (COND ((AND (EQL |nargs| 1) (BOOT-EQUAL (|getUnname| (CAR |args|)) '|Tuple|)) NIL) ((AND (EQL |nargs| 1) - (SPADLET |ms| (|bottomUp| (CAR |args|))) + (setq |ms| (|bottomUp| (CAR |args|))) (OR (AND (CONSP |ms|) (EQ (QCDR |ms|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |ms|)) + (setq |ISTMP#1| (QCAR |ms|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Tuple|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL)))))) (AND (CONSP |ms|) (EQ (QCDR |ms|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |ms|)) + (setq |ISTMP#1| (QCAR |ms|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|List|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL)))))))) NIL) ('T - (SPADLET |newArg| + (setq |newArg| (CONS (|mkAtreeNode| '|Tuple|) |args|)) (|bottomUp| (CONS |op| (CONS |newArg| NIL))))))))))))) @@ -1587,39 +1587,39 @@ |ISTMP#2| |dom| |type|) (RETURN (SEQ (PROGN - (SPADLET |pats| (CAR |mm|)) - (SPADLET |cond| (CADR |mm|)) - (SPADLET |args| (CDDR |pats|)) + (setq |pats| (CAR |mm|)) + (setq |cond| (CADR |mm|)) + (setq |args| (CDDR |pats|)) (COND ((NULL |args|) NIL) - ('T (SPADLET |arg1| (CAR |args|)) + ('T (setq |arg1| (CAR |args|)) (COND ((AND (CONSP |cond|) (EQ (QCAR |cond|) '|partial|) - (PROGN (SPADLET |c| (QCDR |cond|)) 'T)) - (SPADLET |cond| |c|))) - (SPADLET |condList| + (PROGN (setq |c| (QCDR |cond|)) 'T)) + (setq |cond| |c|))) + (setq |condList| (COND ((AND (CONSP |cond|) (EQ (QCAR |cond|) 'AND) (PROGN - (SPADLET |cl| (QCDR |cond|)) + (setq |cl| (QCDR |cond|)) 'T)) |cl|) ((AND (CONSP |cond|) (EQ (QCAR |cond|) 'OR) (PROGN - (SPADLET |ISTMP#1| (QCDR |cond|)) + (setq |ISTMP#1| (QCDR |cond|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'AND) (PROGN - (SPADLET |cl| + (setq |cl| (QCDR |ISTMP#2|)) 'T)))))) |cl|) ('T (CONS |cond| NIL)))) - (SPADLET |type| NIL) + (setq |type| NIL) (DO ((G167357 |condList| (CDR G167357)) (|condition| NIL)) ((OR (ATOM G167357) @@ -1633,22 +1633,22 @@ (EQ (QCAR |condition|) '|isDomain|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |condition|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a1| + (setq |a1| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |dom| + (setq |dom| (QCAR |ISTMP#2|)) 'T))))) (BOOT-EQUAL |a1| |arg1|)) - (SPADLET |type| |dom|)) + (setq |type| |dom|)) ('T NIL))))) |type|))))))) @@ -1682,18 +1682,18 @@ (PROGN (SETQ |ms| (CAR G166784)) NIL)) NIL) (SEQ (EXIT (COND - ((NULL (SPADLET |v| (|getValue| |arg|))) + ((NULL (setq |v| (|getValue| |arg|))) NIL) - ('T (SPADLET |m| (|objMode| |v|)) + ('T (setq |m| (|objMode| |v|)) (COND ((NULL (AND (CONSP |m|) (EQ (QCAR |m|) '|Union|))) NIL) - ('T (SPADLET |val| (|objVal| |v|)) + ('T (setq |val| (|objVal| |v|)) (COND ((NULL (|isWrapped| |val|)) NIL) - ('T (SPADLET |val'| (|retract| |v|)) - (SPADLET |m'| (|objMode| |val'|)) + ('T (setq |val'| (|retract| |v|)) + (setq |m'| (|objMode| |val'|)) (|putValue| |arg| |val'|) (|putModeSet| |arg| (CONS |m'| NIL)) @@ -1714,7 +1714,7 @@ (DECLARE (SPECIAL |$origArgModeSetList|)) (RETURN (SEQ (PROGN - (SPADLET |amsl| NIL) + (setq |amsl| NIL) (DO ((G166809 (REVERSE |$origArgModeSetList|) (CDR G166809)) (|a| NIL)) @@ -1722,12 +1722,12 @@ (PROGN (SETQ |a| (CAR G166809)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |b| (|prefix2String| (CAR |a|))) + (setq |b| (|prefix2String| (CAR |a|))) (COND - ((ATOM |b|) (SPADLET |b| (CONS |b| NIL)))) - (SPADLET |amsl| + ((ATOM |b|) (setq |b| (CONS |b| NIL)))) + (setq |amsl| (CONS '|%l| (APPEND |b| |amsl|))))))) - (COND (|amsl| (SPADLET |amsl| (CDR |amsl|)))) + (COND (|amsl| (setq |amsl| (CDR |amsl|)))) |amsl|))))) ;bottomUpForm0(t,op,opName,argl,argModeSetList) == @@ -1803,24 +1803,24 @@ |$HTCompanionWindowID|)) (RETURN (PROGN - (SPADLET |op0| |op|) - (SPADLET |opName0| |opName|) + (setq |op0| |op|) + (setq |opName0| |opName|) (COND - ((SPADLET |m| (|isType| |t|)) (|bottomUpType| |t| |m|)) + ((setq |m| (|isType| |t|)) (|bottomUpType| |t| |m|)) ((AND (BOOT-EQUAL |opName| '|copy|) (CONSP |argModeSetList|) (EQ (QCDR |argModeSetList|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |argModeSetList|)) + (setq |ISTMP#1| (QCAR |argModeSetList|)) (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|) '|Record|) (PROGN - (SPADLET |rargs| (QCDR |ISTMP#2|)) + (setq |rargs| (QCDR |ISTMP#2|)) 'T)))))) - (SPADLET |rtype| (CONS '|Record| |rargs|)) - (SPADLET |code| + (setq |rtype| (CONS '|Record| |rargs|)) + (setq |code| (|optRECORDCOPY| (CONS 'RECORDCOPY (CONS (|getArgValue| (CAR |argl|) @@ -1828,55 +1828,55 @@ (CONS (|#| |rargs|) NIL))))) (COND (|$genValue| - (SPADLET |code| (|wrap| (|timedEVALFUN| |code|))))) - (SPADLET |val| (mkObj |code| |rtype|)) + (setq |code| (|wrap| (|timedEVALFUN| |code|))))) + (setq |val| (mkObj |code| |rtype|)) (|putValue| |t| |val|) (|putModeSet| |t| (CONS |rtype| NIL))) - ('T (SPADLET |m| (|getModeOrFirstModeSetIfThere| |op|)) + ('T (setq |m| (|getModeOrFirstModeSetIfThere| |op|)) (COND ((AND (CONSP |m|) (EQ (QCAR |m|) '|Record|) (CONSP |argModeSetList|) (EQ (QCDR |argModeSetList|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |argModeSetList|)) + (setq |ISTMP#1| (QCAR |argModeSetList|)) (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|) '|Variable|) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |x| (QCAR |ISTMP#3|)) + (setq |x| (QCAR |ISTMP#3|)) 'T))))))) (|member| |x| (|getUnionOrRecordTags| |m|)) - (SPADLET |u| (|bottomUpElt| |t|))) + (setq |u| (|bottomUpElt| |t|))) |u|) ((AND (CONSP |m|) (EQ (QCAR |m|) '|Union|) (CONSP |argModeSetList|) (EQ (QCDR |argModeSetList|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |argModeSetList|)) + (setq |ISTMP#1| (QCAR |argModeSetList|)) (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|) '|Variable|) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |x| (QCAR |ISTMP#3|)) + (setq |x| (QCAR |ISTMP#3|)) 'T)))))))) (COND ((AND (|member| |x| (|getUnionOrRecordTags| |m|)) - (SPADLET |u| (|bottomUpElt| |t|))) + (setq |u| (|bottomUpElt| |t|))) |u|) ((NULL |$genValue|) - (SPADLET |amsl| (|printableArgModeSetList|)) + (setq |amsl| (|printableArgModeSetList|)) (|throwKeyedMsgSP| (format nil "Cannot find a definition or applicable library operation ~ @@ -1886,7 +1886,7 @@ you need.") (CONS "the union object" (CONS |amsl| NIL)) |op|)) - ('T (SPADLET |object| (|retract| (|getValue| |op|))) + ('T (setq |object| (|retract| (|getValue| |op|))) (COND ((BOOT-EQUAL |object| '|failed|) (|throwKeyedMsgSP| @@ -1902,46 +1902,46 @@ (|putModeSet| |op| (CONS (|objMode| |object|) NIL)) (|putValue| |op| |object|) (COND - ((SPADLET |u| (|bottomUpElt| |t|)) |u|) + ((setq |u| (|bottomUpElt| |t|)) |u|) ('T (|bottomUpForm0| |t| |op| |opName| |argl| |argModeSetList|)))))))) ((AND (NEQUAL |opName| '|elt|) (NEQUAL |opName| '|apply|) (EQL (|#| |argl|) 1) (PROGN - (SPADLET |ISTMP#1| (CAR (CAR |argModeSetList|))) + (setq |ISTMP#1| (CAR (CAR |argModeSetList|))) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Variable|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |var| (QCAR |ISTMP#2|)) + (setq |var| (QCAR |ISTMP#2|)) 'T))))) (|member| |var| '(|first| |last| |rest|)) (|isEltable| |op| |argl| (|#| |argl|)) - (SPADLET |u| (|bottomUpElt| |t|))) + (setq |u| (|bottomUpElt| |t|))) |u|) ((AND |$genValue| - (SPADLET |u| + (setq |u| (|bottomUpFormRetract| |t| |op| |opName| |argl| |argModeSetList|))) |u|) ((AND (NEQUAL |opName| '|elt|) (NEQUAL |opName| '|apply|) (|isEltable| |op| |argl| (|#| |argl|)) - (SPADLET |u| (|bottomUpElt| |t|))) + (setq |u| (|bottomUpElt| |t|))) |u|) ('T (COND ((integerp |$HTCompanionWindowID|) (|mkCompanionPage| '|operationError| |t|))) - (SPADLET |amsl| (|printableArgModeSetList|)) - (SPADLET |opName1| + (setq |amsl| (|printableArgModeSetList|)) + (setq |opName1| (COND ((BOOT-EQUAL |opName0| |$immediateDataSymbol|) (COND - ((SPADLET |o| + ((setq |o| (|coerceInteractive| (|getValue| |op0|) |$OutputForm|)) @@ -1950,12 +1950,12 @@ ('T |opName0|))) (COND ((NULL |opName1|) - (SPADLET |opName1| + (setq |opName1| (COND - ((SPADLET |o| (|getValue| |op0|)) + ((setq |o| (|getValue| |op0|)) (|prefix2String| (|objMode| |o|))) ('T ""))) - (SPADLET |msgKey| + (setq |msgKey| (COND ((NULL |amsl|) "Cannot find application of object of type %1 .") @@ -1964,14 +1964,14 @@ "Cannot find application of object of type %1 to ~ argument(s) of type(s) %ceon %2 %ceoff"))))) ('T - (SPADLET |msgKey| + (setq |msgKey| (COND ((NULL |amsl|) (format nil "Cannot find a no-argument definition or library ~ operation named %1 .")) - ((SPADLET |n| (|isSharpVarWithNum| |opName1|)) - (SPADLET |opName1| |n|) + ((setq |n| (|isSharpVarWithNum| |opName1|)) + (setq |opName1| |n|) "Cannot find sharp variable with that number") ('T (format nil @@ -2022,14 +2022,14 @@ (RETURN (COND ((NUMBERP |opName|) NIL) - ('T (SPADLET |oo| (|object2Identifier| (|opOf| |opName|))) + ('T (setq |oo| (|object2Identifier| (|opOf| |opName|))) (COND ((OR (BOOT-EQUAL |oo| '%) (BOOT-EQUAL |oo| '|Domain|) (|domainForm?| |opName|)) - (SPADLET |opName| '|elt|))) - (SPADLET |nAllExposedMmsWithName| + (setq |opName| '|elt|))) + (setq |nAllExposedMmsWithName| (|#| (|getModemapsFromDatabase| |opName| NIL))) - (SPADLET |nAllMmsWithName| + (setq |nAllMmsWithName| (|#| (|getAllModemapsFromDatabase| |opName| NIL))) (COND ((EQL |nAllMmsWithName| 0) @@ -2058,9 +2058,9 @@ about the available operations.") (CONS |opName| (CONS |nAllMmsWithName| NIL)))))) ('T - (SPADLET |nAllExposedMmsWithNameAndArgs| + (setq |nAllExposedMmsWithNameAndArgs| (|#| (|getModemapsFromDatabase| |opName| |nArgs|))) - (SPADLET |nAllMmsWithNameAndArgs| + (setq |nAllMmsWithNameAndArgs| (|#| (|getAllModemapsFromDatabase| |opName| |nArgs|))) (COND @@ -2127,9 +2127,9 @@ (DECLARE (SPECIAL |$getUnexposedOperations|)) (RETURN (PROGN - (SPADLET |$getUnexposedOperations| 'T) + (setq |$getUnexposedOperations| 'T) (|startTimingProcess| '|diskread|) - (SPADLET |ans| (|getSystemModemaps| |op| |nargs|)) + (setq |ans| (|getSystemModemaps| |op| |nargs|)) (|stopTimingProcess| '|diskread|) |ans|)))) @@ -2147,12 +2147,12 @@ (PROG (|mode| |val|) (RETURN (PROGN - (SPADLET |mode| + (setq |mode| (COND ((|isPartialMode| |type|) '(|Mode|)) ((|categoryForm?| |type|) '(|Category|)) ('T '(|Domain|)))) - (SPADLET |val| (mkObj |type| |mode|)) + (setq |val| (mkObj |type| |mode|)) (|putValue| |t| |val|) (|putModeSet| |t| (CONS |mode| NIL)))))) @@ -2176,18 +2176,18 @@ (DECLARE (SPECIAL |$Integer|)) (RETURN (PROGN - (SPADLET |op| (CAR |tree|)) - (SPADLET |argl| (CDR |tree|)) + (setq |op| (CAR |tree|)) + (setq |argl| (CDR |tree|)) (COND ((NULL |argl|) - (SPADLET |val| (|fetchOutput| (SPADDIFFERENCE 1))) + (setq |val| (|fetchOutput| (SPADDIFFERENCE 1))) (|putValue| |op| |val|) (|putModeSet| |op| (CONS (|objMode| |val|) NIL))) ((AND (CONSP |argl|) (EQ (QCDR |argl|) NIL) - (PROGN (SPADLET |t| (QCAR |argl|)) 'T)) + (PROGN (setq |t| (QCAR |argl|)) 'T)) (COND - ((SPADLET |i| (|getArgValue| |t| |$Integer|)) - (SPADLET |val| (|fetchOutput| |i|)) + ((setq |i| (|getArgValue| |t| |$Integer|)) + (setq |val| (|fetchOutput| |i|)) (|putValue| |op| |val|) (|putModeSet| |op| (CONS (|objMode| |val|) NIL))) ('T (|throwKeyedMsgSP| @@ -2241,17 +2241,17 @@ (DECLARE (SPECIAL |$inRetract| |$EmptyMode|)) (RETURN (SEQ (PROGN - (SPADLET |$inRetract| 'T) + (setq |$inRetract| 'T) (COND ((NULL (|getAllModemapsFromDatabase| (|getUnname| |op|) (|#| |argl|))) NIL) - ((SPADLET |u| + ((setq |u| (|bottomUpFormAnyUnionRetract| |t| |op| |opName| |argl| |amsl|)) |u|) - ('T (SPADLET |a| NIL) (SPADLET |b| NIL) - (SPADLET |ms| NIL) + ('T (setq |a| NIL) (setq |b| NIL) + (setq |ms| NIL) (DO ((G166983 |argl| (CDR G166983)) (|x| NIL) (G166984 |amsl| (CDR G166984)) (|m| NIL) (|i| 1 (QSADD1 |i|))) @@ -2263,37 +2263,37 @@ (SEQ (EXIT (COND ((AND (EQL |i| 1) (BOOT-EQUAL |opName| '|setelt|)) - (SPADLET |a| (CONS |x| |a|)) - (SPADLET |ms| (CONS |m| |ms|))) + (setq |a| (CONS |x| |a|)) + (setq |ms| (CONS |m| |ms|))) ((AND (EQL |i| 1) (BOOT-EQUAL |opName| '|set!|)) - (SPADLET |a| (CONS |x| |a|)) - (SPADLET |ms| (CONS |m| |ms|))) + (setq |a| (CONS |x| |a|)) + (setq |ms| (CONS |m| |ms|))) ('T (COND ((AND (CONSP |m|) (BOOT-EQUAL (CAR |m|) |$EmptyMode|)) (RETURN NIL))) - (SPADLET |object| + (setq |object| (|retract| (|getValue| |x|))) - (SPADLET |a| (CONS |x| |a|)) + (setq |a| (CONS |x| |a|)) (COND ((EQ |object| '|failed|) (|putAtree| |x| '|retracted| NIL) - (SPADLET |ms| (CONS |m| |ms|))) - ('T (SPADLET |b| 'T) + (setq |ms| (CONS |m| |ms|))) + ('T (setq |b| 'T) (RPLACA |m| (|objMode| |object|)) - (SPADLET |ms| + (setq |ms| (CONS (COPY-TREE |m|) |ms|)) (|putAtree| |x| '|retracted| 'T) (|putValue| |x| |object|) (|putModeSet| |x| (CONS (|objMode| |object|) NIL))))))))) - (SPADLET |a| (NREVERSE |a|)) - (SPADLET |ms| (NREVERSE |ms|)) - (SPADLET |typesHad| (|getAtree| |t| '|typesHad|)) + (setq |a| (NREVERSE |a|)) + (setq |ms| (NREVERSE |ms|)) + (setq |typesHad| (|getAtree| |t| '|typesHad|)) (COND - ((|member| |ms| |typesHad|) (SPADLET |b| NIL)) + ((|member| |ms| |typesHad|) (setq |b| NIL)) ('T (|putAtree| |t| '|typesHad| (CONS |ms| |typesHad|)))) (AND |b| (|bottomUpForm| |t| |op| |opName| |a| |amsl|))))))))) @@ -2312,7 +2312,7 @@ (PROG (|object|) (RETURN (PROGN - (SPADLET |object| (|retract| (|getValue| |atr|))) + (setq |object| (|retract| (|getValue| |atr|))) (COND ((EQ |object| '|failed|) (|putAtree| |atr| '|retracted| NIL) NIL) @@ -2346,7 +2346,7 @@ (DECLARE (SPECIAL |$Any|)) (RETURN (SEQ (PROGN - (SPADLET |ok| NIL) + (setq |ok| NIL) (DO ((G167032 |amsl| (CDR G167032)) (|m| NIL)) ((OR (ATOM G167032) (PROGN (SETQ |m| (CAR G167032)) NIL) @@ -2356,12 +2356,12 @@ (COND ((ATOM (CAR |m|)) (RETURN NIL))) (COND ((BOOT-EQUAL (CAR |m|) |$Any|) - (SPADLET |ok| 'T)) + (setq |ok| 'T)) ((BOOT-EQUAL (CAR (CAR |m|)) '|Union|) - (SPADLET |ok| 'T))))))) + (setq |ok| 'T))))))) (COND ((NULL |ok|) NIL) - ('T (SPADLET |a| NIL) (SPADLET |b| NIL) + ('T (setq |a| NIL) (setq |b| NIL) (DO ((G167047 |argl| (CDR G167047)) (|x| NIL) (G167048 |amsl| (CDR G167048)) (|m| NIL) (|i| 0 (QSADD1 |i|))) @@ -2371,20 +2371,20 @@ (PROGN (SETQ |m| (CAR G167048)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |m0| (CAR |m|)) + (setq |m0| (CAR |m|)) (COND ((AND (OR (BOOT-EQUAL |m0| |$Any|) (BOOT-EQUAL (CAR |m0|) '|Union|)) (NEQUAL '|failed| - (SPADLET |object| + (setq |object| (|retract| (|getValue| |x|))))) - (SPADLET |b| 'T) + (setq |b| 'T) (RPLACA |m| (|objMode| |object|)) (|putModeSet| |x| (CONS (|objMode| |object|) NIL)) (|putValue| |x| |object|))) - (SPADLET |a| (CONS |x| |a|)))))) + (setq |a| (CONS |x| |a|)))))) (AND |b| (|bottomUpForm| |t| |op| |opName| (NREVERSE |a|) |amsl|))))))))) @@ -2414,13 +2414,13 @@ (PROG (|m| |ok| |m0| |object| |b| |a|) (RETURN (SEQ (PROGN - (SPADLET |ok| NIL) + (setq |ok| NIL) (DO ((G167083 |amsl| (CDR G167083)) (G167070 NIL)) ((OR (ATOM G167083) (PROGN (SETQ G167070 (CAR G167083)) NIL) (PROGN (PROGN - (SPADLET |m| (CAR G167070)) + (setq |m| (CAR G167070)) G167070) NIL) (NULL (NULL |ok|))) @@ -2431,11 +2431,11 @@ ((AND (CONSP |m|) (EQ (QCAR |m|) '|Union|) (NULL (|getUnionOrRecordTags| |m|))) - (SPADLET |ok| 'T)) + (setq |ok| 'T)) ('T NIL)))))) (COND ((NULL |ok|) NIL) - ('T (SPADLET |a| NIL) (SPADLET |b| NIL) + ('T (setq |a| NIL) (setq |b| NIL) (DO ((G167099 |argl| (CDR G167099)) (|x| NIL) (G167100 |amsl| (CDR G167100)) (|m| NIL) (|i| 0 (QSADD1 |i|))) @@ -2445,21 +2445,21 @@ (PROGN (SETQ |m| (CAR G167100)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |m0| (CAR |m|)) + (setq |m0| (CAR |m|)) (COND ((AND (CONSP |m0|) (EQ (QCAR |m0|) '|Union|) (NULL (|getUnionOrRecordTags| |m0|)) (NEQUAL '|failed| - (SPADLET |object| + (setq |object| (|retract| (|getValue| |x|))))) - (SPADLET |b| 'T) + (setq |b| 'T) (RPLACA |m| (|objMode| |object|)) (|putModeSet| |x| (CONS (|objMode| |object|) NIL)) (|putValue| |x| |object|))) - (SPADLET |a| (CONS |x| |a|)))))) + (setq |a| (CONS |x| |a|)))))) (AND |b| (|bottomUpForm| |t| |op| |opName| (NREVERSE |a|) |amsl|))))))))) @@ -2494,47 +2494,47 @@ (PROG (|op| |argl| |ms| |ISTMP#1| |target| |newOps| |newArgs| |u|) (RETURN (SEQ (PROGN - (SPADLET |op| (CAR |form|)) - (SPADLET |argl| (CDR |form|)) - (SPADLET |ms| (|bottomUp| |op|)) + (setq |op| (CAR |form|)) + (setq |argl| (CDR |form|)) + (setq |ms| (|bottomUp| |op|)) (COND ((AND |ms| (OR (AND (CONSP |ms|) (EQ (QCDR |ms|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |ms|)) + (setq |ISTMP#1| (QCAR |ms|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Union|)))) (AND (CONSP |ms|) (EQ (QCDR |ms|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |ms|)) + (setq |ISTMP#1| (QCAR |ms|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Record|)))))) (RPLAC (CDR |form|) (CONS |op| |argl|)) (RPLAC (CAR |form|) (|mkAtreeNode| '|elt|)) (|bottomUp| |form|)) - ('T (SPADLET |target| (|getTarget| |form|)) - (SPADLET |newOps| + ('T (setq |target| (|getTarget| |form|)) + (setq |newOps| (CONS (|mkAtreeNode| '|elt|) (CONS (|mkAtreeNode| '|apply|) NIL))) - (SPADLET |u| NIL) + (setq |u| NIL) (DO ((G167149 |newOps| (CDR G167149)) (|newOp| NIL)) ((OR (NULL (NULL |u|)) (ATOM G167149) (PROGN (SETQ |newOp| (CAR G167149)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |newArgs| (CONS |op| |argl|)) + (setq |newArgs| (CONS |op| |argl|)) (COND ((|selectMms| |newOp| |newArgs| |target|) (RPLAC (CDR |form|) |newArgs|) (RPLAC (CAR |form|) |newOp|) - (SPADLET |u| (|bottomUp| |form|))) + (setq |u| (|bottomUp| |form|))) ('T NIL)))))) (DO () ((NULL (AND (NULL |u|) (PROG (G167164) - (SPADLET G167164 'T) + (setq G167164 'T) (RETURN (DO ((G167170 NIL (NULL G167164)) @@ -2562,7 +2562,7 @@ NIL) (SEQ (EXIT (PROGN - (SPADLET |newArgs| + (setq |newArgs| (CONS |op| |argl|)) (COND ((|selectMms| |newOp| @@ -2570,7 +2570,7 @@ (RPLAC (CDR |form|) |newArgs|) (RPLAC (CAR |form|) |newOp|) - (SPADLET |u| + (setq |u| (|bottomUp| |form|))) ('T NIL))))))))) |u|))))))) @@ -2600,28 +2600,28 @@ (PROG (|v| |ISTMP#1| |mapDef| |m| |name| |arg|) (RETURN (COND - ((SPADLET |v| (|getValue| |op|)) + ((setq |v| (|getValue| |op|)) (COND ((ZEROP |numArgs|) 'T) - ((NULL (SPADLET |m| (|objMode| |v|))) NIL) + ((NULL (setq |m| (|objMode| |v|))) NIL) ((AND (CONSP |m|) (EQ (QCAR |m|) '|Mapping|)) NIL) ((AND (PROGN - (SPADLET |ISTMP#1| (|objVal| |v|)) + (setq |ISTMP#1| (|objVal| |v|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'MAP) - (PROGN (SPADLET |mapDef| (QCDR |ISTMP#1|)) 'T))) + (PROGN (setq |mapDef| (QCDR |ISTMP#1|)) 'T))) (> (|numMapArgs| |mapDef|) 0)) NIL) ('T 'T))) - ((SPADLET |m| (|getMode| |op|)) + ((setq |m| (|getMode| |op|)) (COND ((ZEROP |numArgs|) 'T) ((AND (CONSP |m|) (EQ (QCAR |m|) '|Mapping|)) NIL) ('T 'T))) ((NEQUAL |numArgs| 1) NIL) - ('T (SPADLET |name| (|getUnname| |op|)) + ('T (setq |name| (|getUnname| |op|)) (COND ((BOOT-EQUAL |name| 'SEQ) NIL) - ('T (SPADLET |arg| (CAR |argl|)) + ('T (setq |arg| (CAR |argl|)) (COND ((NEQUAL (|getUnname| |arg|) '|construct|) NIL) ('T 'T))))))))) diff --git a/src/interp/i-code.lisp.pamphlet b/src/interp/i-code.lisp.pamphlet index 768860d..63b18e0 100755 --- a/src/interp/i-code.lisp.pamphlet +++ b/src/interp/i-code.lisp.pamphlet @@ -90,32 +90,32 @@ |$EmptyMode|)) (RETURN (SEQ (PROGN - (SPADLET |t1| (|objMode| |triple|)) + (setq |t1| (|objMode| |triple|)) (COND ((BOOT-EQUAL |t1| |$EmptyMode|) NIL) ((BOOT-EQUAL |t1| |t2|) |triple|) - ('T (SPADLET |val| (|objVal| |triple|)) + ('T (setq |val| (|objVal| |triple|)) (COND ((AND (CONSP |val|) (EQ (QCAR |val|) '|coerceOrCroak|) (PROGN - (SPADLET |ISTMP#1| (QCDR |val|)) + (setq |ISTMP#1| (QCDR |val|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |trip| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |trip| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |t1'| + (setq |t1'| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL))))))) - (SPADLET |t0| (|objCodeMode| |trip|)) + (setq |t0| (|objCodeMode| |trip|)) (PROGN - (SPADLET |LETTMP#1| (|objCodeVal| |trip|)) - (SPADLET |val0| (CADR |LETTMP#1|)) + (setq |LETTMP#1| (|objCodeVal| |trip|)) + (setq |val0| (CADR |LETTMP#1|)) |LETTMP#1|) (OR (BOOT-EQUAL |t1| |$Void|) (|canCoerceFrom| (|removeQuote| |t0|) |t2|))) @@ -123,27 +123,27 @@ (mkObj |val0| (|removeQuote| |t0|)) |t2|)) ((AND (CONSP |val|) (EQ (QCAR |val|) 'THROW) (PROGN - (SPADLET |ISTMP#1| (QCDR |val|)) + (setq |ISTMP#1| (QCDR |val|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |label| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |label| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |code| + (setq |code| (QCAR |ISTMP#2|)) 'T)))))) (COND ((AND (CONSP |label|) (EQ (QCAR |label|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |label|)) + (setq |ISTMP#1| (QCDR |label|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |l| (QCAR |ISTMP#1|)) + (setq |l| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |label| |l|))) + (setq |label| |l|))) (COND ((OR (NULL |$compilingMap|) (NEQUAL |label| (|mapCatchName| |$mapName|))) @@ -160,19 +160,19 @@ ('T (mkObj |val| |t2|)))) ((AND (CONSP |val|) (EQ (QCAR |val|) 'PROGN) (PROGN - (SPADLET |ISTMP#1| (QCDR |val|)) + (setq |ISTMP#1| (QCDR |val|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T) (CONSP |ISTMP#2|) (PROGN - (SPADLET |lastCode| (QCAR |ISTMP#2|)) - (SPADLET |code| (QCDR |ISTMP#2|)) + (setq |lastCode| (QCAR |ISTMP#2|)) + (setq |code| (QCDR |ISTMP#2|)) 'T) (PROGN - (SPADLET |code| (NREVERSE |code|)) + (setq |code| (NREVERSE |code|)) 'T)))) (mkObj (CONS 'PROGN @@ -186,11 +186,11 @@ NIL))) |t2|)) ((AND (CONSP |val|) (EQ (QCAR |val|) 'COND) - (PROGN (SPADLET |conds| (QCDR |val|)) 'T)) + (PROGN (setq |conds| (QCDR |val|)) 'T)) (mkObj (CONS 'COND (PROG (G166151) - (SPADLET G166151 NIL) + (setq G166151 NIL) (RETURN (DO ((G166157 |conds| (CDR G166157)) @@ -202,9 +202,9 @@ NIL) (PROGN (PROGN - (SPADLET |p| + (setq |p| (CAR G166119)) - (SPADLET |v| + (setq |v| (CADR G166119)) G166119) NIL)) @@ -231,15 +231,15 @@ ((AND (BOOT-EQUAL |t1| '(|Any|)) (CONSP |val|) (EQUAL (QCAR |val|) 'CONS) (PROGN - (SPADLET |ISTMP#1| (QCDR |val|)) + (setq |ISTMP#1| (QCDR |val|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |t1'| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |t1'| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |val'| + (setq |val'| (QCAR |ISTMP#2|)) 'T)))))) (|intCodeGenCOERCE| @@ -250,13 +250,13 @@ ((AND (BOOT-EQUAL |t1| '|$NoValueMode|) (CONSP |val|) (EQ (QCAR |val|) 'COND) (PROGN - (SPADLET |ISTMP#1| (QCDR |val|)) + (setq |ISTMP#1| (QCDR |val|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| (QCAR |ISTMP#1|)) + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |code| + (setq |code| (CONS 'COND (CONS |pred| (CONS @@ -281,7 +281,7 @@ (|canCoerceByFunction| |t1| |t2|)) (COND ((AND (NULL (|canCoerceByMap| |t1| |t2|)) - (SPADLET |code| + (setq |code| (|coerceByFunction| |triple| |t2|))) |code|) ('T (|intCodeGenCoerce1| |val| |t1| |t2|)))) @@ -326,47 +326,47 @@ ((EQL |$mapThrowCount| 0) |body|) ((AND (CONSP |body|) (EQ (QCAR |body|) '|failCheck|) (PROGN - (SPADLET |ISTMP#1| (QCDR |body|)) + (setq |ISTMP#1| (QCDR |body|)) (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|) '|coerceOrFail|) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |trip| (QCAR |ISTMP#3|)) - (SPADLET |ISTMP#4| + (setq |trip| (QCAR |ISTMP#3|)) + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |targ| + (setq |targ| (QCAR |ISTMP#4|)) - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |mapn| + (setq |mapn| (QCAR |ISTMP#5|)) 'T)))))))))))) (COND ((AND (CONSP |trip|) (EQ (QCAR |trip|) 'LIST) (PROGN - (SPADLET |ISTMP#1| (QCDR |trip|)) + (setq |ISTMP#1| (QCDR |trip|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |v| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |v| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |m| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |m| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |e| (QCAR |ISTMP#3|)) + (setq |e| (QCAR |ISTMP#3|)) 'T)))))))) (CONS '|failCheck| (CONS (CONS '|coerceOrFail| diff --git a/src/interp/i-coerce.lisp.pamphlet b/src/interp/i-coerce.lisp.pamphlet index 3ba67b8..e1e1539 100644 --- a/src/interp/i-coerce.lisp.pamphlet +++ b/src/interp/i-coerce.lisp.pamphlet @@ -55,7 +55,7 @@ The special routines that do the coercions typically involve a "2" (RETURN (COND ((BOOT-EQUAL |t| |$NoValueMode|) |triple|) - ('T (SPADLET |t'| (|coerceInteractive| |triple| |t|)) + ('T (setq |t'| (|coerceInteractive| |triple| |t|)) (COND (|t'| (|objValUnwrap| |t'|)) ('T @@ -81,7 +81,7 @@ The special routines that do the coercions typically involve a "2" (RETURN (COND ((BOOT-EQUAL |t| |$NoValueMode|) |triple|) - ('T (SPADLET |t'| (|coerceOrConvertOrRetract| |triple| |t|)) + ('T (setq |t'| (|coerceOrConvertOrRetract| |triple| |t|)) (COND (|t'| (|objValUnwrap| |t'|)) ((BOOT-EQUAL |mapName| '|noMapName|) @@ -102,7 +102,7 @@ The special routines that do the coercions typically involve a "2" (PROG (|result|) (RETURN (PROGN - (OR (SPADLET |result| + (OR (setq |result| (|coerceOrRetract| (mkObjWrap |value| |t1|) |t2|)) (|coercionFailure|)) @@ -122,17 +122,17 @@ The special routines that do the coercions typically involve a "2" (PROG (|ud| |LETTMP#1| |c| |args| |type''| |object'|) (RETURN (COND - ((NULL (SPADLET |ud| (|underDomainOf| |underDomain|))) + ((NULL (setq |ud| (|underDomainOf| |underDomain|))) '|failed|) - ('T (SPADLET |LETTMP#1| (|deconstructT| |type|)) - (SPADLET |c| (CAR |LETTMP#1|)) - (SPADLET |args| (CDR |LETTMP#1|)) + ('T (setq |LETTMP#1| (|deconstructT| |type|)) + (setq |c| (CAR |LETTMP#1|)) + (setq |args| (CDR |LETTMP#1|)) (COND ((NEQUAL 1 (|#| |args|)) '|failed|) ((NEQUAL 1 (|#| |c|)) '|failed|) - ('T (SPADLET |type''| (|constructT| |c| (CONS |ud| NIL))) + ('T (setq |type''| (|constructT| |c| (CONS |ud| NIL))) (COND - ((SPADLET |object'| (|coerceInt| |object| |type''|)) + ((setq |object'| (|coerceInt| |object| |type''|)) |object'|) ('T '|failed|))))))))) @@ -244,15 +244,15 @@ The special routines that do the coercions typically involve a "2" |$NonNegativeInteger| |$PositiveInteger|)) (RETURN (SEQ (PROGN - (SPADLET |val| (|objVal| |object|)) - (SPADLET |val'| (|unwrap| |val|)) - (SPADLET |type| (|objMode| |object|)) + (setq |val| (|objVal| |object|)) + (setq |val'| (|unwrap| |val|)) + (setq |type| (|objMode| |object|)) (COND - ((BOOT-EQUAL |type| |$Any|) (SPADLET |dom| (CAR |val'|)) - (SPADLET |obj| (CDR |val'|)) + ((BOOT-EQUAL |type| |$Any|) (setq |dom| (CAR |val'|)) + (setq |obj| (CDR |val'|)) (mkObjWrap |obj| |dom|)) ((AND (CONSP |type|) (EQ (QCAR |type|) '|Union|) - (PROGN (SPADLET |unionDoms| (QCDR |type|)) 'T)) + (PROGN (setq |unionDoms| (QCDR |type|)) 'T)) (|coerceUnion2Branch| |object|)) ((BOOT-EQUAL |type| |$Symbol|) (mkObjWrap 1 @@ -261,10 +261,10 @@ The special routines that do the coercions typically involve a "2" ((AND (CONSP |type|) (EQ (QCAR |type|) '|OrderedVariableList|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) + (setq |var| (QCAR |ISTMP#1|)) 'T)))) (|coerceInt| (mkObjWrap (ELT |var| (SPADDIFFERENCE |val'| 1)) @@ -272,18 +272,18 @@ The special routines that do the coercions typically involve a "2" '(|Polynomial| (|Integer|)))) ((AND (CONSP |type|) (EQ (QCAR |type|) '|Polynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET D (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq D (QCAR |ISTMP#1|)) 'T)))) (COND ((AND (CONSP |val'|) (EQUAL (QCAR |val'|) 1) (PROGN - (SPADLET |ISTMP#1| (QCDR |val'|)) + (setq |ISTMP#1| (QCDR |val'|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |x| (QCAR |ISTMP#1|)) + (setq |x| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |vl| + (setq |vl| (REMDUP (REVERSE (|varsInPoly| |val'|)))) (COND ((EQL 1 (|#| |vl|)) @@ -296,11 +296,11 @@ The special routines that do the coercions typically involve a "2" ('T NIL))) ((AND (CONSP |type|) (EQ (QCAR |type|) '|Matrix|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET D (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |n| (|#| |val'|)) - (SPADLET |m| (|#| (ELT |val'| 0))) + (PROGN (setq D (QCAR |ISTMP#1|)) 'T)))) + (setq |n| (|#| |val'|)) + (setq |m| (|#| (ELT |val'| 0))) (COND ((BOOT-EQUAL |n| |m|) (mkObj |val| @@ -312,20 +312,20 @@ The special routines that do the coercions typically involve a "2" ((AND (CONSP |type|) (EQ (QCAR |type|) '|RectangularMatrix|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (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|) (PROGN - (SPADLET |m| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |m| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET D (QCAR |ISTMP#3|)) + (setq D (QCAR |ISTMP#3|)) 'T)))))))) (COND ((BOOT-EQUAL |n| |m|) @@ -334,10 +334,10 @@ The special routines that do the coercions typically involve a "2" ('T NIL))) ((AND (CONSP |type|) (PROGN - (SPADLET |agg| (QCAR |type|)) - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |agg| (QCAR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET D (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq D (QCAR |ISTMP#1|)) 'T))) (|member| |agg| '(|Vector| |Segment| |UniversalSegment|))) (COND @@ -349,15 +349,15 @@ The special routines that do the coercions typically involve a "2" ('T NIL))) ((AND (CONSP |type|) (EQ (QCAR |type|) '|Array|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |bds| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |bds| (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)))))) (COND ((BOOT-EQUAL D |$PositiveInteger|) @@ -372,17 +372,17 @@ The special routines that do the coercions typically involve a "2" ('T NIL))) ((AND (CONSP |type|) (EQ (QCAR |type|) '|List|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET D (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq D (QCAR |ISTMP#1|)) 'T)))) (COND ((NULL (AND (CONSP D) (EQ (QCAR D) '|List|) (PROGN - (SPADLET |ISTMP#1| (QCDR D)) + (setq |ISTMP#1| (QCDR D)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |D'| (QCAR |ISTMP#1|)) + (setq |D'| (QCAR |ISTMP#1|)) 'T))))) (COND ((BOOT-EQUAL D |$PositiveInteger|) @@ -393,8 +393,8 @@ The special routines that do the coercions typically involve a "2" (mkObj |val| (CONS '|List| (CONS |$Integer| NIL)))) ((NULL |val'|) NIL) - ('T (SPADLET |vl| NIL) (SPADLET |tl| NIL) - (SPADLET |bad| NIL) + ('T (setq |vl| NIL) (setq |tl| NIL) + (setq |bad| NIL) (DO ((G166347 |val'| (CDR G166347)) (|e| NIL)) ((OR (ATOM G166347) @@ -403,25 +403,25 @@ The special routines that do the coercions typically involve a "2" NIL) (SEQ (EXIT (COND ((BOOT-EQUAL - (SPADLET |e'| + (setq |e'| (|retract| (mkObjWrap |e| D))) '|failed|) - (SPADLET |bad| 'T)) + (setq |bad| 'T)) ('T - (SPADLET |vl| + (setq |vl| (CONS (|objValUnwrap| |e'|) |vl|)) - (SPADLET |tl| + (setq |tl| (CONS (|objMode| |e'|) |tl|))))))) (COND (|bad| NIL) ((BOOT-EQUAL - (SPADLET |m| (|resolveTypeListAny| |tl|)) + (setq |m| (|resolveTypeListAny| |tl|)) D) NIL) ((BOOT-EQUAL D |m|) NIL) - ('T (SPADLET |vl'| NIL) + ('T (setq |vl'| NIL) (DO ((G166358 |vl| (CDR G166358)) (|e| NIL) (G166359 |tl| (CDR G166359)) @@ -437,16 +437,16 @@ The special routines that do the coercions typically involve a "2" NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |t| |m|) - (SPADLET |vl'| + (setq |vl'| (CONS |e| |vl'|))) ('T - (SPADLET |e'| + (setq |e'| (|coerceInt| (mkObjWrap |e| |t|) |m|)) (COND ((NULL |e'|) (RETURN NIL)) ('T - (SPADLET |vl'| + (setq |vl'| (CONS (|objValUnwrap| |e'|) |vl'|))))))))) @@ -465,21 +465,21 @@ The special routines that do the coercions typically involve a "2" NIL)))) ((OR (AND (CONSP |D'|) (EQ (QCAR |D'|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |D'|)) + (setq |ISTMP#1| (QCDR |D'|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))) (AND (CONSP |D'|) (EQ (QCAR |D'|) '|OrderedVariableList|) (PROGN - (SPADLET |ISTMP#1| (QCDR |D'|)) + (setq |ISTMP#1| (QCDR |D'|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL))))) (|coerceInt| |object| (CONS '|List| (CONS (CONS '|List| (CONS |$Symbol| NIL)) NIL)))) - ('T (SPADLET |n| (|#| |val'|)) - (SPADLET |m| (|#| (ELT |val'| 0))) + ('T (setq |n| (|#| |val'|)) + (setq |m| (|#| (ELT |val'| 0))) (COND ((NULL (|isRectangularList| |val'| |n| |m|)) NIL) ('T @@ -487,17 +487,17 @@ The special routines that do the coercions typically involve a "2" (CONS '|Matrix| (CONS |D'| NIL)))))))) ((AND (CONSP |type|) (EQ (QCAR |type|) '|Expression|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET D (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |num| (CAR |val'|)) - (SPADLET |den| (CDR |val'|)) + (PROGN (setq D (QCAR |ISTMP#1|)) 'T)))) + (setq |num| (CAR |val'|)) + (setq |den| (CDR |val'|)) (COND ((NULL (AND (CONSP |num|) (EQUAL (QCAR |num|) 0) - (PROGN (SPADLET |num| (QCDR |num|)) 'T))) + (PROGN (setq |num| (QCDR |num|)) 'T))) NIL) ((NULL (AND (CONSP |den|) (EQUAL (QCAR |den|) 0) - (PROGN (SPADLET |den| (QCDR |den|)) 'T))) + (PROGN (setq |den| (QCDR |den|)) 'T))) NIL) ('T (mkObjWrap (CONS |num| |den|) @@ -505,43 +505,43 @@ The special routines that do the coercions typically involve a "2" ((AND (CONSP |type|) (EQ (QCAR |type|) '|SimpleAlgebraicExtension|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |k| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |k| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |rep| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |rep| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL)))))))) - (SPADLET |val'| (|retract| (mkObj |val| |rep|))) + (setq |val'| (|retract| (mkObj |val| |rep|))) (DO () ((NULL (AND (NEQUAL |val'| '|failed|) (NEQUAL (|objMode| |val'|) |k|))) NIL) - (SEQ (EXIT (SPADLET |val'| (|retract| |val'|))))) + (SEQ (EXIT (setq |val'| (|retract| |val'|))))) (COND ((BOOT-EQUAL |val'| '|failed|) NIL) ('T |val'|))) ((AND (CONSP |type|) (EQ (QCAR |type|) '|UnivariatePuiseuxSeries|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |coef| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |coef| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |var| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |var| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |cen| + (setq |cen| (QCAR |ISTMP#3|)) 'T)))))))) (|coerceInt| |object| @@ -550,20 +550,20 @@ The special routines that do the coercions typically involve a "2" ((AND (CONSP |type|) (EQ (QCAR |type|) '|UnivariateLaurentSeries|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |coef| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |coef| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |var| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |var| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |cen| + (setq |cen| (QCAR |ISTMP#3|)) 'T)))))))) (|coerceInt| |object| @@ -572,13 +572,13 @@ The special routines that do the coercions typically involve a "2" ((AND (CONSP |type|) (EQ (QCAR |type|) '|FunctionCalled|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |name| (QCAR |ISTMP#1|)) + (setq |name| (QCAR |ISTMP#1|)) 'T)))) (COND - ((NULL (SPADLET |m| (|get| |name| '|mode| |$e|))) + ((NULL (setq |m| (|get| |name| '|mode| |$e|))) NIL) ((|isPartialMode| |m|) NIL) ('T (mkObj |val| |m|)))) @@ -593,7 +593,7 @@ The special routines that do the coercions typically involve a "2" (DECLARE (SPECIAL |$useConvertForCoercions|)) (RETURN (PROGN - (SPADLET |$useConvertForCoercions| 'T) + (setq |$useConvertForCoercions| 'T) (|coerceOrRetract| T$ |m|))))) ;coerceOrRetract(T,m) == @@ -611,17 +611,17 @@ The special routines that do the coercions typically involve a "2" (PROG (|t'| |t| |ans|) (RETURN (SEQ (COND - ((SPADLET |t'| (|coerceInteractive| T$ |m|)) |t'|) - ('T (SPADLET |t| T$) (SPADLET |ans| NIL) + ((setq |t'| (|coerceInteractive| T$ |m|)) |t'|) + ('T (setq |t| T$) (setq |ans| NIL) (DO () (NIL NIL) (SEQ (EXIT (COND (|ans| (RETURN |ans|)) - ('T (SPADLET |t| (|retract| |t|)) + ('T (setq |t| (|retract| |t|)) (COND ((BOOT-EQUAL |t| '|failed|) (RETURN |ans|)) ('T - (SPADLET |ans| + (setq |ans| (|coerceInteractive| |t| |m|))))))))) |ans|)))))) @@ -653,10 +653,10 @@ The special routines that do the coercions typically involve a "2" |$Integer|)) (RETURN (COND - ((BOOT-EQUAL (SPADLET |val| (|objValUnwrap| |object|)) + ((BOOT-EQUAL (setq |val| (|objValUnwrap| |object|)) '|$fromCoerceable$|) NIL) - ('T (SPADLET |t1| (|objMode| |object|)) + ('T (setq |t1| (|objMode| |object|)) (COND ((BOOT-EQUAL |t2| |$OutputForm|) NIL) ((AND (|isEqualOrSubDomain| |t1| |$Integer|) @@ -665,15 +665,15 @@ The special routines that do the coercions typically involve a "2" ((BOOT-EQUAL |t1| |$Integer|) NIL) ((BOOT-EQUAL |t1| |$Symbol|) NIL) ((BOOT-EQUAL |t1| |$OutputForm|) NIL) - ((SPADLET |c| (|retractByFunction| |object| |t2|)) |c|) - ((AND (CONSP |t1|) (PROGN (SPADLET D (QCAR |t1|)) 'T)) - (SPADLET |fun| + ((setq |c| (|retractByFunction| |object| |t2|)) |c|) + ((AND (CONSP |t1|) (PROGN (setq D (QCAR |t1|)) 'T)) + (setq |fun| (OR (GETL D '|retract|) (INTERN (STRCONC "retract" (STRINGIMAGE D))))) (COND ((canFuncall? |fun|) (PUT D '|retract| |fun|) - (SPADLET |c| + (setq |c| (CATCH '|coerceFailure| (FUNCALL |fun| |object| |t2|))) (COND ((BOOT-EQUAL |c| |$coerceFailure|) NIL) ('T |c|))) @@ -726,26 +726,26 @@ The special routines that do the coercions typically involve a "2" (DECLARE (SPECIAL |$reportBottomUpFlag| $)) (RETURN (PROGN - (SPADLET |$reportBottomUpFlag| NIL) - (SPADLET |t| (|objMode| |object|)) - (SPADLET |val| (|objValUnwrap| |object|)) - (SPADLET |target| + (setq |$reportBottomUpFlag| NIL) + (setq |t| (|objMode| |object|)) + (setq |val| (|objValUnwrap| |object|)) + (setq |target| (CONS '|Union| (CONS |u| (CONS "failed" NIL)))) - (SPADLET |funName| '|retractIfCan|) + (setq |funName| '|retractIfCan|) (COND (|$reportBottomUpFlag| (|sayFunctionSelection| |funName| (CONS |t| NIL) |target| NIL "coercion facility (retraction)"))) (COND - ((SPADLET |mms| + ((setq |mms| (APPEND (|findFunctionInDomain| |funName| |t| |target| (CONS |t| NIL) (CONS |t| NIL) NIL 'T) (|findFunctionInDomain| |funName| |u| |target| (CONS |t| NIL) (CONS |t| NIL) NIL 'T))) - (SPADLET |mms| + (setq |mms| (|orderMms| |funName| |mms| (CONS |t| NIL) (CONS |t| NIL) |target|)))) (COND @@ -754,21 +754,21 @@ The special routines that do the coercions typically involve a "2" |mms|))) (COND ((NULL |mms|) NIL) - ('T (SPADLET |dc| (CAAAR |mms|)) - (SPADLET |slot| (CADAR |mms|)) - (SPADLET |dcVector| (|evalDomain| |dc|)) - (SPADLET |fun| + ('T (setq |dc| (CAAAR |mms|)) + (setq |slot| (CADAR |mms|)) + (setq |dcVector| (|evalDomain| |dc|)) + (setq |fun| (|compiledLookup| |funName| (CONS |target| (CONS |t| NIL)) |dcVector|)) (COND ((NULL |fun|) NIL) ((BOOT-EQUAL (CAR |fun|) #'|Undef|) NIL) - ('T (SPADLET $ |dcVector|) - (SPADLET |object'| + ('T (setq $ |dcVector|) + (setq |object'| (|coerceUnion2Branch| (mkObjWrap (SPADCALL |val| |fun|) |target|))) - (SPADLET |u'| (|objMode| |object'|)) + (setq |u'| (|objMode| |object'|)) (COND ((BOOT-EQUAL |u| |u'|) |object'|) ('T NIL)))))))))) ;--% Coercion utilities @@ -789,28 +789,28 @@ The special routines that do the coercions typically involve a "2" |ISTMP#4| |type|) (RETURN (PROGN - (SPADLET |opAlist| + (setq |opAlist| (|getOperationAlistFromLisplib| (CAR |domainForm|))) - (SPADLET |key| (|opOf| |form|)) - (SPADLET |entryList| (LASSOC |key| |opAlist|)) + (setq |key| (|opOf| |form|)) + (setq |entryList| (LASSOC |key| |opAlist|)) (COND ((AND (CONSP |entryList|) (EQ (QCDR |entryList|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |entryList|)) + (setq |ISTMP#1| (QCAR |entryList|)) (AND (CONSP |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|) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |type| + (setq |type| (QCAR |ISTMP#4|)) 'T))))))))) (|member| |type| '(CONST ASCONST))) @@ -852,25 +852,25 @@ that the domain is not fully formed. In this case we return [[NIL]]. (COND ((|isPartialMode| |domainForm|) NIL) ('T - (SPADLET |opAlist| + (setq |opAlist| (|getOperationAlistFromLisplib| (CAR |domainForm|))) - (SPADLET |key| (|opOf| |form|)) - (SPADLET |entryList| (LASSOC |key| |opAlist|)) + (setq |key| (|opOf| |form|)) + (setq |entryList| (LASSOC |key| |opAlist|)) (COND ((NULL (AND (CONSP |entryList|) (EQ (QCDR |entryList|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |entryList|)) + (setq |ISTMP#1| (QCAR |entryList|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |sig| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |sig| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL))))))))))) @@ -882,7 +882,7 @@ that the domain is not fully formed. In this case we return [[NIL]]. ('T (|throwKeyedMsg| "No such constant %1 in domain %2p ." (CONS |form| (CONS |domainForm| NIL)))))) - ('T (SPADLET |domain| (|evalDomain| |domainForm|)) + ('T (setq |domain| (|evalDomain| |domainForm|)) (SPADCALL (|compiledLookupCheck| |key| |sig| |domain|))))))))) ;domainOne(domain) == getConstantFromDomain('(One),domain) @@ -926,7 +926,7 @@ that the domain is not fully formed. In this case we return [[NIL]]. (DECLARE (SPECIAL |$Boolean|)) (RETURN (PROGN - (SPADLET |eqfunc| + (setq |eqfunc| (|compiledLookupCheck| '= (CONS |$Boolean| (CONS '$ (CONS '$ NIL))) (|evalDomain| |domain|))) @@ -1036,13 +1036,13 @@ Interpreter Coercion Query Functions (COND ((BOOT-EQUAL |t2| |$OutputForm|) 'T) ('T NIL))) ((OR (AND (CONSP |t1|) (EQ (QCAR |t1|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (EQUAL (QCAR |ISTMP#1|) |t2|)))) (AND (CONSP |t2|) (EQ (QCAR |t2|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (EQUAL (QCAR |ISTMP#1|) |t1|))))) @@ -1055,11 +1055,11 @@ Interpreter Coercion Query Functions (|canCoerceUnion| |t1| |t2|)) ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |v| (QCAR |ISTMP#1|)) + (setq |v| (QCAR |ISTMP#1|)) 'T))) (BOOT-EQUAL |t1| (PNAME |v|))) 'T) @@ -1068,11 +1068,11 @@ Interpreter Coercion Query Functions (COND ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |v| (QCAR |ISTMP#1|)) + (setq |v| (QCAR |ISTMP#1|)) 'T))) (BOOT-EQUAL |t2| (PNAME |v|))) 'T) @@ -1080,8 +1080,8 @@ Interpreter Coercion Query Functions ((OR (ATOM |t1|) (ATOM |t2|)) NIL) ((NULL (|isValidType| |t2|)) NIL) ((|absolutelyCannotCoerce| |t1| |t2|) NIL) - ('T (SPADLET |nt1| (CAR |t1|)) - (SPADLET |nt2| (CAR |t2|)) + ('T (setq |nt1| (CAR |t1|)) + (setq |nt2| (CAR |t2|)) (COND ((EQ |nt1| '|Mapping|) (EQ |nt2| '|Any|)) ((EQ |nt2| '|Mapping|) @@ -1094,39 +1094,39 @@ Interpreter Coercion Query Functions (|canCoerceUnion| |t1| |t2|)) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Segment|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |s1| (QCAR |ISTMP#1|)) + (setq |s1| (QCAR |ISTMP#1|)) 'T))) (CONSP |t2|) (EQ (QCAR |t2|) '|UniversalSegment|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |s2| (QCAR |ISTMP#1|)) + (setq |s2| (QCAR |ISTMP#1|)) 'T))) (OR (|isEqualOrSubDomain| |s1| |s2|) (|canCoerce| |s1| |s2|))) 'T) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Tuple|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET S (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq S (QCAR |ISTMP#1|)) 'T))) (NEQUAL |t2| '(|OutputForm|))) (|canCoerce| (CONS '|List| (CONS S NIL)) |t2|)) ('T - (SPADLET |isRingT2| (|ofCategory| |t2| '(|Ring|))) + (setq |isRingT2| (|ofCategory| |t2| '(|Ring|))) (COND ((AND |isRingT2| (|isEqualOrSubDomain| |t1| |$Integer|)) 'T) - ((NEQUAL (SPADLET |ans| + ((NEQUAL (setq |ans| (|canCoerceTopMatching| |t1| |t2| |nt1| |nt2|)) '|maybe|) @@ -1134,15 +1134,15 @@ Interpreter Coercion Query Functions ((BOOT-EQUAL |t2| |$Integer|) (|canCoerceLocal| |t1| |t2|)) ('T - (SPADLET |ans| + (setq |ans| (OR (|canCoerceTower| |t1| |t2|) (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|deconstructT| |t2|)) - (SPADLET |arg| (CDR |LETTMP#1|)) + (setq |arg| (CDR |LETTMP#1|)) (AND |arg| (PROGN - (SPADLET |t| (|last| |arg|)) + (setq |t| (|last| |arg|)) (AND (|canCoerce| |t1| |t|) (|canCoerceByFunction| |t| |t2|) @@ -1178,16 +1178,16 @@ Interpreter Coercion Query Functions (RETURN (PROGN (|startTimingProcess| '|querycoerce|) - (SPADLET |q| + (setq |q| (OR (|isEqualOrSubDomain| |t1| |t2|) (BOOT-EQUAL |t1| '(|None|)) (BOOT-EQUAL |t2| '(|Any|)) (PROGN (COND ((BOOT-EQUAL |t2| |$OutputForm|) - (SPADLET |s1| |t1|) (SPADLET |s2| |t2|)) - ('T (SPADLET |s1| |t1|) - (SPADLET |s2| |t2|))) + (setq |s1| |t1|) (setq |s2| |t2|)) + ('T (setq |s1| |t1|) + (setq |s2| |t2|))) (COND ((NULL (|isValidType| |t2|)) NIL) ((NULL (|isLegitimateMode| |t2| NIL NIL)) NIL) @@ -1214,7 +1214,7 @@ Interpreter Coercion Query Functions (RETURN (COND ((|isEqualOrSubDomain| |t1| |t2|) 'T) - ((NULL (SPADLET |u| (|underDomainOf| |t2|))) NIL) + ((NULL (setq |u| (|underDomainOf| |t2|))) NIL) ('T (|isSubTowerOf| |t1| |u|)))))) ;canCoerceTopMatching(t1,t2,tt1,tt2) == @@ -1240,7 +1240,7 @@ Interpreter Coercion Query Functions (COND ((NULL (EQ |tt1| |tt2|)) '|maybe|) ('T - (SPADLET |doms| + (setq |doms| '(|Polynomial| |List| |Matrix| |FiniteSet| |Vector| |Stream| |Gaussian|)) (COND @@ -1248,10 +1248,10 @@ Interpreter Coercion Query Functions ((NULL (OR (member |tt1| |$univariateDomains|) (member |tt2| |$multivariateDomains|))) '|maybe|) - ('T (SPADLET |u2| (|deconstructT| |t2|)) + ('T (setq |u2| (|deconstructT| |t2|)) (COND ((EQL 1 (|#| |u2|)) NIL) - ('T (SPADLET |u1| (|deconstructT| |t1|)) + ('T (setq |u1| (|deconstructT| |t1|)) (COND ((EQL 1 (|#| |u1|)) NIL) ((NEQUAL (CAR |u1|) (CAR |u2|)) '|maybe|) @@ -1290,22 +1290,22 @@ Interpreter Coercion Query Functions (DECLARE (SPECIAL |$useCoerceOrCroak|)) (RETURN (SEQ (PROGN - (SPADLET |target| (CADR |t|)) - (SPADLET |argl| (CDDR |t|)) - (SPADLET |$useCoerceOrCroak| NIL) + (setq |target| (CADR |t|)) + (setq |argl| (CDDR |t|)) + (setq |$useCoerceOrCroak| NIL) (COND ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) + (setq |var| (QCAR |ISTMP#1|)) 'T)))) (COND - ((NULL (SPADLET |mms| + ((NULL (setq |mms| (|selectMms1| |var| |target| |argl| (PROG (G166754) - (SPADLET G166754 NIL) + (setq G166754 NIL) (RETURN (DO ((G166759 |argl| @@ -1323,14 +1323,14 @@ Interpreter Coercion Query Functions (CONS NIL G166754))))))) 'T))) NIL) - ('T (SPADLET |mm| (CAAR |mms|)) + ('T (setq |mm| (CAAR |mms|)) (COND ((AND (CONSP |mm|) (PROGN - (SPADLET |ISTMP#1| (QCDR |mm|)) + (setq |ISTMP#1| (QCDR |mm|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |targ| (QCAR |ISTMP#1|)) + (setq |targ| (QCAR |ISTMP#1|)) 'T)))) (COND ((BOOT-EQUAL |targ| |target|) 'T) @@ -1338,14 +1338,14 @@ Interpreter Coercion Query Functions ('T NIL))))) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|FunctionCalled|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |fun| (QCAR |ISTMP#1|)) + (setq |fun| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |funNode| (|mkAtreeNode| |fun|)) + (setq |funNode| (|mkAtreeNode| |fun|)) (|transferPropsToNode| |fun| |funNode|) - (SPADLET |mms| + (setq |mms| (CATCH '|coerceOrCroaker| (|selectLocalMms| |funNode| |fun| |argl| |target|))) @@ -1354,23 +1354,23 @@ Interpreter Coercion Query Functions (COND ((AND (CONSP |mms|) (EQ (QCDR |mms|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |mms|)) + (setq |ISTMP#1| (QCAR |mms|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) '|interpOnly|)))))) NIL) - ('T (SPADLET |mm| (CAAR |mms|)) + ('T (setq |mm| (CAAR |mms|)) (COND ((AND (CONSP |mm|) (PROGN - (SPADLET |ISTMP#1| (QCDR |mm|)) + (setq |ISTMP#1| (QCDR |mm|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |targ| + (setq |targ| (QCAR |ISTMP#1|)) 'T)))) (COND @@ -1411,18 +1411,18 @@ Interpreter Coercion Query Functions (RETURN (SEQ (PROGN (COND - ((SPADLET |isUnion1| + ((setq |isUnion1| (AND (CONSP |t1|) (EQ (QCAR |t1|) '|Union|) - (PROGN (SPADLET |uds1| (QCDR |t1|)) 'T))) - (SPADLET |unionDoms1| + (PROGN (setq |uds1| (QCDR |t1|)) 'T))) + (setq |unionDoms1| (COND ((AND |uds1| (PROGN - (SPADLET |ISTMP#1| (CAR |uds1|)) + (setq |ISTMP#1| (CAR |uds1|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|:|)))) (PROG (G166818) - (SPADLET G166818 NIL) + (setq G166818 NIL) (RETURN (DO ((G166824 |uds1| (CDR G166824)) (G166791 NIL)) @@ -1433,7 +1433,7 @@ Interpreter Coercion Query Functions NIL) (PROGN (PROGN - (SPADLET |t| + (setq |t| (CADDR G166791)) G166791) NIL)) @@ -1443,18 +1443,18 @@ Interpreter Coercion Query Functions (CONS |t| G166818)))))))) ('T |uds1|))))) (COND - ((SPADLET |isUnion2| + ((setq |isUnion2| (AND (CONSP |t2|) (EQ (QCAR |t2|) '|Union|) - (PROGN (SPADLET |uds2| (QCDR |t2|)) 'T))) - (SPADLET |unionDoms2| + (PROGN (setq |uds2| (QCDR |t2|)) 'T))) + (setq |unionDoms2| (COND ((AND |uds2| (PROGN - (SPADLET |ISTMP#1| (CAR |uds2|)) + (setq |ISTMP#1| (CAR |uds2|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|:|)))) (PROG (G166836) - (SPADLET G166836 NIL) + (setq G166836 NIL) (RETURN (DO ((G166842 |uds2| (CDR G166842)) (G166797 NIL)) @@ -1465,7 +1465,7 @@ Interpreter Coercion Query Functions NIL) (PROGN (PROGN - (SPADLET |t| + (setq |t| (CADDR G166797)) G166797) NIL)) @@ -1480,7 +1480,7 @@ Interpreter Coercion Query Functions ((|member| |t1| |unionDoms2|) 'T) (|isUnion1| (PROG (G166849) - (SPADLET G166849 'T) + (setq G166849 'T) (RETURN (DO ((G166855 NIL (NULL G166849)) (G166856 |unionDoms1| @@ -1495,7 +1495,7 @@ Interpreter Coercion Query Functions (SETQ G166849 (AND G166849 (PROG (G166863) - (SPADLET G166863 NIL) + (setq G166863 NIL) (RETURN (DO ((G166869 NIL G166863) @@ -1517,7 +1517,7 @@ Interpreter Coercion Query Functions |ud2|)))))))))))))))) ('T (PROG (G166877) - (SPADLET G166877 NIL) + (setq G166877 NIL) (RETURN (DO ((G166883 NIL G166877) (G166884 |unionDoms2| (CDR G166884)) @@ -1532,11 +1532,11 @@ Interpreter Coercion Query Functions (|canCoerce| |t1| |ud|))))))))))) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Union|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |d1| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |d1| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (EQUAL (QCAR |ISTMP#2|) '"failed"))))) @@ -1544,7 +1544,7 @@ Interpreter Coercion Query Functions 'T) (|isUnion1| (PROG (G166891) - (SPADLET G166891 'T) + (setq G166891 'T) (RETURN (DO ((G166897 NIL (NULL G166891)) (G166898 |unionDoms1| (CDR G166898)) @@ -1589,20 +1589,20 @@ Interpreter Coercion Query Functions (PROG (|top| |u1| |u2| |know|) (RETURN (PROGN - (SPADLET |u2| (|deconstructT| |t2|)) + (setq |u2| (|deconstructT| |t2|)) (COND ((EQL 1 (|#| |u2|)) NIL) - ('T (SPADLET |u1| (|deconstructT| |t1|)) + ('T (setq |u1| (|deconstructT| |t1|)) (COND ((EQL 1 (|#| |u1|)) NIL) ((NEQUAL (CAR |u1|) (CAR |u2|)) NIL) - ('T (SPADLET |top| (CAAR |u1|)) - (SPADLET |u1| (|underDomainOf| |t1|)) - (SPADLET |u2| (|underDomainOf| |t2|)) + ('T (setq |top| (CAAR |u1|)) + (setq |u1| (|underDomainOf| |t1|)) + (setq |u2| (|underDomainOf| |t2|)) (COND ((|absolutelyCannotCoerce| |u1| |u2|) NIL) ('T - (SPADLET |know| + (setq |know| '(|List| |Vector| |Segment| |Stream| |UniversalSegment| |Array| |Polynomial| |UnivariatePolynomial| @@ -1653,30 +1653,30 @@ Interpreter Coercion Query Functions (|canCoerceLocal| |t1| |t2|) (|canCoercePermute| |t1| |t2|) (PROGN - (SPADLET |LETTMP#1| (|deconstructT| |t1|)) - (SPADLET |c1| (CAR |LETTMP#1|)) - (SPADLET |arg1| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|deconstructT| |t1|)) + (setq |c1| (CAR |LETTMP#1|)) + (setq |arg1| (CDR |LETTMP#1|)) (AND |arg1| (PROGN - (SPADLET TL NIL) - (SPADLET |arg| |arg1|) + (setq TL NIL) + (setq |arg| |arg1|) (DO ((G166978 NIL (OR |x| (NULL |arg|)))) (G166978 NIL) - (SEQ (EXIT (SPADLET |x| + (SEQ (EXIT (setq |x| (PROGN - (SPADLET |t| (|last| |arg|)) - (SPADLET |LETTMP#1| + (setq |t| (|last| |arg|)) + (setq |LETTMP#1| (|deconstructT| |t|)) - (SPADLET |c| (CAR |LETTMP#1|)) - (SPADLET |arg| + (setq |c| (CAR |LETTMP#1|)) + (setq |arg| (CDR |LETTMP#1|)) - (SPADLET TL + (setq TL (CONS |c| (CONS |arg| TL))) (AND |arg| (|coerceIntTest| |t| |t2|) (COND ((CDDR TL) - (SPADLET |s| + (setq |s| (|constructT| |c1| (|replaceLast| |arg1| (|bubbleConstructor| TL)))) @@ -1684,14 +1684,14 @@ Interpreter Coercion Query Functions (|canCoerceLocal| |t1| |s|) (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|deconstructT| (|last| |s|))) - (SPADLET |c2| + (setq |c2| (CAR |LETTMP#1|)) - (SPADLET |arg2| + (setq |arg2| (CDR |LETTMP#1|)) - (SPADLET |s1| + (setq |s1| (|bubbleConstructor| (CONS |c2| (CONS |arg2| @@ -1703,7 +1703,7 @@ Interpreter Coercion Query Functions (|canCoerceLocal| |s1| |t2|))))) ('T - (SPADLET |s| + (setq |s| (|bubbleConstructor| (CONS |c| (CONS |arg| @@ -1732,29 +1732,29 @@ Interpreter Coercion Query Functions (DECLARE (SPECIAL |$coerceFailure| |$CoerceTable|)) (RETURN (PROGN - (SPADLET |p| (ASSQ (CAR |t1|) |$CoerceTable|)) + (setq |p| (ASSQ (CAR |t1|) |$CoerceTable|)) (COND ((AND |p| (PROGN - (SPADLET |ISTMP#1| (ASSQ (CAR |t2|) (CDR |p|))) + (setq |ISTMP#1| (ASSQ (CAR |t2|) (CDR |p|))) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |tag| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |tag| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |fun| (QCAR |ISTMP#3|)) + (setq |fun| (QCAR |ISTMP#3|)) 'T)))))))) (COND ((BOOT-EQUAL |tag| '|partial|) NIL) ((BOOT-EQUAL |tag| '|total|) 'T) ('T (OR (AND (canFuncall? |fun|) - (SPADLET |v| + (setq |v| (CATCH '|coerceFailure| (FUNCALL |fun| '|$fromCoerceable$| |t1| |t2|))) @@ -1777,22 +1777,22 @@ Interpreter Coercion Query Functions (RETURN (COND ((AND (|member| (CAR |t1|) - (SPADLET |l| + (setq |l| (CONS |$QuotientField| (CONS '|Gaussian| NIL)))) (|member| (CAR |t2|) |l|)) 'T) - ('T (SPADLET |p| (ASSQ (CAR |t1|) |$CommuteTable|)) + ('T (setq |p| (ASSQ (CAR |t1|) |$CommuteTable|)) (AND |p| (PROGN - (SPADLET |ISTMP#1| (ASSQ (CAR |t2|) (CDR |p|))) + (setq |ISTMP#1| (ASSQ (CAR |t2|) (CDR |p|))) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) '|commute|) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL))))))))))))) @@ -1826,13 +1826,13 @@ Interpreter Coercion Query Functions (SEQ (COND ((|member| |t2| '((|Integer|) (|OutputForm|))) NIL) ('T - (SPADLET |towers| (|computeTTTranspositions| |t1| |t2|)) + (setq |towers| (|computeTTTranspositions| |t1| |t2|)) (COND ((OR (NULL |towers|) (NULL (CDR |towers|))) NIL) ((AND (NULL (CDDR |towers|)) (BOOT-EQUAL |t2| (CADR |towers|))) NIL) - ('T (SPADLET |ok| 'T) + ('T (setq |ok| 'T) (DO ((G167071 (CDR |towers|) (CDR G167071)) (|t| NIL)) ((OR (ATOM G167071) @@ -1840,9 +1840,9 @@ Interpreter Coercion Query Functions (NULL |ok|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |ok| (|canCoerce| |t1| |t|)) + (setq |ok| (|canCoerce| |t1| |t|)) (COND - (|ok| (SPADLET |t1| |t|)) + (|ok| (setq |t1| |t|)) ('T NIL)))))) |ok|)))))))) @@ -1884,13 +1884,13 @@ Interpreter Coercion Query Functions (DECLARE (SPECIAL |$declaredMode| |$reportBottomUpFlag|)) (RETURN (SEQ (PROGN - (SPADLET |$declaredMode| NIL) - (SPADLET |$reportBottomUpFlag| NIL) - (SPADLET |l1| + (setq |$declaredMode| NIL) + (setq |$reportBottomUpFlag| NIL) + (setq |l1| (REMDUP (CONS |m1| (CONS |m1| NIL)))) - (SPADLET |l2| + (setq |l2| (REMDUP (CONS |m2| (CONS |m2| NIL)))) - (SPADLET |ans| NIL) + (setq |ans| NIL) (DO ((G167106 |l1| (CDR G167106)) (|t1| NIL)) ((OR (ATOM G167106) (PROGN (SETQ |t1| (CAR G167106)) NIL) @@ -1905,14 +1905,14 @@ Interpreter Coercion Query Functions (NULL (NULL |ans|))) NIL) (SEQ (EXIT (PROGN - (SPADLET |l| + (setq |l| (|selectMms1| |fun| |t2| (CONS |t1| NIL) (CONS |t1| NIL) NIL)) - (SPADLET |ans| + (setq |ans| (AND (PROG (G167135) - (SPADLET G167135 NIL) + (setq G167135 NIL) (RETURN (DO ((G167141 |l| @@ -1929,7 +1929,7 @@ Interpreter Coercion Query Functions (COND ((AND (CONSP |x|) (PROGN - (SPADLET |sig| + (setq |sig| (QCAR |x|)) 'T) (BOOT-EQUAL @@ -1940,7 +1940,7 @@ Interpreter Coercion Query Functions |t1|) (NULL (PROGN - (SPADLET + (setq |ISTMP#1| (CAR |sig|)) (AND @@ -1982,12 +1982,12 @@ Interpreter Coercion Query Functions (BOOT-EQUAL |t2| |$Integer|)) 'T) ((OR (ATOM |t1|) (ATOM |t2|)) NIL) - ('T (SPADLET |LETTMP#1| (|deconstructT| |t1|)) - (SPADLET |tl1| (CAR |LETTMP#1|)) - (SPADLET |u1| (CDR |LETTMP#1|)) - (SPADLET |LETTMP#1| (|deconstructT| |t2|)) - (SPADLET |tl2| (CAR |LETTMP#1|)) - (SPADLET |u2| (CDR |LETTMP#1|)) + ('T (setq |LETTMP#1| (|deconstructT| |t1|)) + (setq |tl1| (CAR |LETTMP#1|)) + (setq |u1| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|deconstructT| |t2|)) + (setq |tl2| (CAR |LETTMP#1|)) + (setq |u2| (CDR |LETTMP#1|)) (COND ((AND (BOOT-EQUAL |tl1| '(|Stream|)) (BOOT-EQUAL |tl2| '(|InfiniteTuple|))) @@ -1995,7 +1995,7 @@ Interpreter Coercion Query Functions ((NEQUAL (|#| |u1|) (|#| |u2|)) NIL) ('T (PROG (G167180) - (SPADLET G167180 'T) + (setq G167180 'T) (RETURN (DO ((G167187 NIL (NULL G167180)) (G167188 |u1| (CDR G167188)) @@ -2019,7 +2019,7 @@ Interpreter Coercion Query Functions ((NEQUAL (|#| |u1|) (|#| |u2|)) NIL) ('T (PROG (G167199) - (SPADLET G167199 'T) + (setq G167199 'T) (RETURN (DO ((G167206 NIL (NULL G167199)) (G167207 |u1| (CDR G167207)) (|x1| NIL) @@ -2085,46 +2085,46 @@ Interpreter Coercion Query Functions (COND ((OR (ATOM |t1|) (ATOM |t2|)) NIL) ((BOOT-EQUAL |t2| '(|None|)) 'T) - ('T (SPADLET |n1| (CAR |t1|)) (SPADLET |n2| (CAR |t2|)) - (SPADLET QFI (CONS |$QuotientField| (CONS |$Integer| NIL))) - (SPADLET |int2| (|isEqualOrSubDomain| |t2| |$Integer|)) - (SPADLET |scalars| + ('T (setq |n1| (CAR |t1|)) (setq |n2| (CAR |t2|)) + (setq QFI (CONS |$QuotientField| (CONS |$Integer| NIL))) + (setq |int2| (|isEqualOrSubDomain| |t2| |$Integer|)) + (setq |scalars| '(|BigFloat| |NewFloat| |Float| |DoubleFloat| |RationalNumber|)) (COND ((AND (member |n1| |scalars|) |int2|) 'T) ((AND (BOOT-EQUAL |t1| QFI) |int2|) 'T) ('T - (SPADLET |num2| + (setq |num2| (OR |int2| (member |n2| |scalars|) (BOOT-EQUAL |t2| QFI))) - (SPADLET |isVar1| (member |n1| '(|Variable| |Symbol|))) + (setq |isVar1| (member |n1| '(|Variable| |Symbol|))) (COND ((AND |num2| |isVar1|) 'T) ((AND |num2| (member |n1| |$univariateDomains|)) 'T) ((AND |num2| (member |n1| |$multivariateDomains|)) 'T) ('T - (SPADLET |miscpols| + (setq |miscpols| '(|Polynomial| |ElementaryFunction| |SimpleAlgebraicExtension|)) (COND ((AND |num2| (member |n1| |miscpols|)) 'T) ('T - (SPADLET |aggs| + (setq |aggs| '(|Matrix| |List| |Vector| |Stream| |Array| |RectangularMatrix| |FiniteSet|)) - (SPADLET |u1| (|underDomainOf| |t1|)) - (SPADLET |u2| (|underDomainOf| |t2|)) + (setq |u1| (|underDomainOf| |t1|)) + (setq |u2| (|underDomainOf| |t2|)) (COND ((AND (member |n1| |aggs|) (BOOT-EQUAL |u1| |t2|)) 'T) ((AND (member |n2| |aggs|) (BOOT-EQUAL |u2| |t1|)) 'T) ('T - (SPADLET |algs| + (setq |algs| '(|SquareMatrix| |Gaussian| |RectangularMatrix| |Quaternion|)) - (SPADLET |nonpols| (APPEND |aggs| |algs|)) + (setq |nonpols| (APPEND |aggs| |algs|)) (COND ((AND |num2| (member |n1| |nonpols|)) 'T) ((AND |isVar1| (member |n2| |nonpols|) @@ -2135,10 +2135,10 @@ Interpreter Coercion Query Functions (BOOT-EQUAL |t2| '(|Polynomial| (|Integer|)))) 'T) - ('T (SPADLET |v2| (|deconstructT| |t2|)) + ('T (setq |v2| (|deconstructT| |t2|)) (COND ((EQL 1 (|#| |v2|)) NIL) - ('T (SPADLET |v1| (|deconstructT| |t1|)) + ('T (setq |v1| (|deconstructT| |t1|)) (COND ((EQL 1 (|#| |v1|)) NIL) ((NEQUAL (CAR |v1|) (CAR |v2|)) NIL) @@ -2188,8 +2188,8 @@ Interpreter Coercion Query Functions |$EmptyMode|)) (RETURN (PROGN - (SPADLET |t1| (|objMode| |triple|)) - (SPADLET |val| (|objVal| |triple|)) + (setq |t1| (|objMode| |triple|)) + (setq |val| (|objVal| |triple|)) (COND ((OR (NULL |t2|) (BOOT-EQUAL |t2| |$EmptyMode|)) NIL) ((BOOT-EQUAL |t2| |t1|) |triple|) @@ -2198,14 +2198,14 @@ Interpreter Coercion Query Functions (COND ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|SubDomain|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (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)))))) - (SPADLET |t2| |x|))) + (setq |t2| |x|))) (COND ((|member| |t1| '((|Category|) (|Mode|) (|Domain|) @@ -2223,23 +2223,23 @@ Interpreter Coercion Query Functions are trying to convert this to the type %1p . The following ~ information may help: possible function name: %2p") (CONS |t2| (CONS |$mapName| NIL)))) - ('T (SPADLET |$insideCoerceInteractive| 'T) - (SPADLET |expr2| (BOOT-EQUAL |t2| |$OutputForm|)) + ('T (setq |$insideCoerceInteractive| 'T) + (setq |expr2| (BOOT-EQUAL |t2| |$OutputForm|)) (COND (|expr2| (|startTimingProcess| '|print|)) ('T (|startTimingProcess| '|coercion|))) - (SPADLET |result| + (setq |result| (COND ((AND |expr2| (BOOT-EQUAL |t1| |val|)) (mkObj |val| |$OutputForm|)) ((AND |expr2| (CONSP |t1|) (EQ (QCAR |t1|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| + (setq |var| (QCAR |ISTMP#1|)) 'T)))) (mkObjWrap |var| |$OutputForm|)) @@ -2284,18 +2284,18 @@ Interpreter Coercion Query Functions (DECLARE (SPECIAL |$OutputForm| |$Any| |$genValue|)) (RETURN (PROGN - (SPADLET |val| (|objVal| |triple|)) - (SPADLET |t1| (|objMode| |triple|)) + (setq |val| (|objVal| |triple|)) + (setq |t1| (|objMode| |triple|)) (COND ((BOOT-EQUAL |val| '|$fromCoerceable$|) (|canCoerceFrom| |t1| |t2|)) ((BOOT-EQUAL |t1| |t2|) |triple|) ('T (COND - ((BOOT-EQUAL |t2| |$OutputForm|) (SPADLET |s1| |t1|) - (SPADLET |s2| |t2|)) - ('T (SPADLET |s1| |t1|) - (SPADLET |s2| |t2|) + ((BOOT-EQUAL |t2| |$OutputForm|) (setq |s1| |t1|) + (setq |s2| |t2|)) + ('T (setq |s1| |t1|) + (setq |s2| |t2|) (COND ((BOOT-EQUAL |s1| |s2|) (RETURN (mkObj |val| |t2|)))))) (COND @@ -2306,20 +2306,20 @@ Interpreter Coercion Query Functions (|intCodeGenCOERCE| |triple| |t2|)) ((AND (BOOT-EQUAL |t1| |$Any|) (NEQUAL |t2| |$OutputForm|) (PROGN - (SPADLET |LETTMP#1| (|unwrap| |val|)) - (SPADLET |t1'| (CAR |LETTMP#1|)) - (SPADLET |val'| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|unwrap| |val|)) + (setq |t1'| (CAR |LETTMP#1|)) + (setq |val'| (CDR |LETTMP#1|)) |LETTMP#1|) - (SPADLET |ans| + (setq |ans| (|coerceInt0| (mkObjWrap |val'| |t1'|) |t2|))) |ans|) ('T (COND ((NULL (EQ |s1| |t1|)) - (SPADLET |triple| (mkObj |val| |s1|)))) + (setq |triple| (mkObj |val| |s1|)))) (COND - ((SPADLET |x| (|coerceInt| |triple| |s2|)) + ((setq |x| (|coerceInt| |triple| |s2|)) (COND ((EQ |s2| |t2|) |x|) ('T (|objSetMode| |x| |t2|) |x|))) @@ -2338,14 +2338,14 @@ Interpreter Coercion Query Functions (PROG (|val| |t1| |newMode| |newVal|) (RETURN (COND - ((SPADLET |val| (|coerceInt1| |triple| |t2|)) |val|) - ('T (SPADLET |t1| (|objMode| |triple|)) + ((setq |val| (|coerceInt1| |triple| |t2|)) |val|) + ('T (setq |t1| (|objMode| |triple|)) (COND ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Variable|)) - (SPADLET |newMode| + (setq |newMode| (|getMinimalVarMode| (|unwrap| (|objVal| |triple|)) NIL)) - (SPADLET |newVal| (|coerceInt| |triple| |newMode|)) + (setq |newVal| (|coerceInt| |triple| |newMode|)) (|coerceInt| |newVal| |t2|)) ('T NIL))))))) @@ -2465,13 +2465,13 @@ Interpreter Coercion Query Functions |$EmptyMode|)) (RETURN (SEQ (PROGN - (SPADLET |$useCoerceOrCroak| 'T) + (setq |$useCoerceOrCroak| 'T) (COND ((BOOT-EQUAL |t2| |$EmptyMode|) NIL) - ('T (SPADLET |t1| (|objMode| |triple|)) + ('T (setq |t1| (|objMode| |triple|)) (COND ((BOOT-EQUAL |t1| |t2|) |triple|) - ('T (SPADLET |val| (|objVal| |triple|)) + ('T (setq |val| (|objVal| |triple|)) (COND ((|absolutelyCanCoerceByCheating| |t1| |t2|) (mkObj |val| |t2|)) @@ -2484,7 +2484,7 @@ Interpreter Coercion Query Functions ((OR (BOOT-EQUAL |t2| |$Integer|) (|typeIsASmallInteger| |t2|)) (RETURN (mkObj |val| |t2|))) - ('T (SPADLET |sintp| (typep |val| 'fixnum)) + ('T (setq |sintp| (typep |val| 'fixnum)) (COND ((AND |sintp| (BOOT-EQUAL |t2| @@ -2511,11 +2511,11 @@ Interpreter Coercion Query Functions ((AND (BOOT-EQUAL |t1| |$Any|) (NEQUAL |t2| |$OutputForm|) (PROGN - (SPADLET |LETTMP#1| (|unwrap| |val|)) - (SPADLET |t1'| (CAR |LETTMP#1|)) - (SPADLET |val'| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|unwrap| |val|)) + (setq |t1'| (CAR |LETTMP#1|)) + (setq |val'| (CDR |LETTMP#1|)) |LETTMP#1|) - (SPADLET |ans| + (setq |ans| (|coerceInt| (mkObjWrap |val'| |t1'|) |t2|))) @@ -2523,14 +2523,14 @@ Interpreter Coercion Query Functions ((OR (AND (CONSP |t1|) (EQ (QCAR |t1|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (EQUAL (QCAR |ISTMP#1|) |t2|)))) (AND (CONSP |t2|) (EQ (QCAR |t2|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (EQUAL (QCAR |ISTMP#1|) |t1|))))) @@ -2540,15 +2540,15 @@ Interpreter Coercion Query Functions ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |v| (QCAR |ISTMP#1|)) + (setq |v| (QCAR |ISTMP#1|)) 'T))) (BOOT-EQUAL |t2| (PNAME |v|))) (mkObjWrap |t2| |t2|)) - ('T (SPADLET |val'| (|unwrap| |val|)) + ('T (setq |val'| (|unwrap| |val|)) (COND ((AND (BOOT-EQUAL |t2| |val'|) (OR (BOOT-EQUAL |val'| |t1|) @@ -2557,11 +2557,11 @@ Interpreter Coercion Query Functions ('T NIL))))) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Tuple|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET S (QCAR |ISTMP#1|)) + (setq S (QCAR |ISTMP#1|)) 'T)))) (|coerceInt1| (mkObjWrap @@ -2578,11 +2578,11 @@ Interpreter Coercion Query Functions ((AND (STRINGP |t1|) (CONSP |t2|) (EQ (QCAR |t2|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |v| (QCAR |ISTMP#1|)) + (setq |v| (QCAR |ISTMP#1|)) 'T)))) (COND ((BOOT-EQUAL |t1| (PNAME |v|)) @@ -2601,19 +2601,19 @@ Interpreter Coercion Query Functions (CONSP |t2|) (EQ (QCAR |t2|) '|Mapping|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |target| + (setq |target| (QCAR |ISTMP#1|)) - (SPADLET |margl| + (setq |margl| (QCDR |ISTMP#1|)) 'T)))) - (SPADLET |$useCoerceOrCroak| NIL) - (SPADLET |LETTMP#1| (|unwrap| |val|)) - (SPADLET |vars| (CADR |LETTMP#1|)) - (SPADLET |body| (CDDR |LETTMP#1|)) - (SPADLET |vars| + (setq |$useCoerceOrCroak| NIL) + (setq |LETTMP#1| (|unwrap| |val|)) + (setq |vars| (CADR |LETTMP#1|)) + (setq |body| (CDDR |LETTMP#1|)) + (setq |vars| (COND ((ATOM |vars|) (CONS |vars| NIL)) @@ -2625,7 +2625,7 @@ Interpreter Coercion Query Functions ((NEQUAL (|#| |margl|) (|#| |vars|)) '|continue|) ('T - (SPADLET |tree| + (setq |tree| (|mkAtree| (CONS 'ADEF (CONS |vars| @@ -2633,7 +2633,7 @@ Interpreter Coercion Query Functions (CONS |target| |margl|) (CONS (PROG (G167455) - (SPADLET G167455 NIL) + (setq G167455 NIL) (RETURN (DO ((G167460 @@ -2665,32 +2665,32 @@ Interpreter Coercion Query Functions (CONSP |t2|) (EQ (QCAR |t2|) '|Mapping|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |target| + (setq |target| (QCAR |ISTMP#1|)) - (SPADLET |margl| + (setq |margl| (QCDR |ISTMP#1|)) 'T)))) (COND - ((NULL (SPADLET |mms| + ((NULL (setq |mms| (|selectMms1| (|unwrap| |val|) NIL |margl| |margl| |target|))) NIL) - ('T (SPADLET |LETTMP#1| (CAAR |mms|)) - (SPADLET |dc| (CAR |LETTMP#1|)) - (SPADLET |targ| (CADR |LETTMP#1|)) - (SPADLET |argl| (CDDR |LETTMP#1|)) + ('T (setq |LETTMP#1| (CAAR |mms|)) + (setq |dc| (CAR |LETTMP#1|)) + (setq |targ| (CADR |LETTMP#1|)) + (setq |argl| (CDDR |LETTMP#1|)) (COND ((NEQUAL |targ| |target|) NIL) (|$genValue| - (SPADLET |fun| + (setq |fun| (|getFunctionFromDomain| (|unwrap| |val|) |dc| |argl|)) (mkObjWrap |fun| |t2|)) ('T - (SPADLET |val| + (setq |val| (|NRTcompileEvalForm| (|unwrap| |val|) (CDR (CAAR |mms|)) @@ -2699,46 +2699,46 @@ Interpreter Coercion Query Functions ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |sym| (QCAR |ISTMP#1|)) + (setq |sym| (QCAR |ISTMP#1|)) 'T))) (CONSP |t2|) (EQ (QCAR |t2|) '|Mapping|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |target| + (setq |target| (QCAR |ISTMP#1|)) - (SPADLET |margl| + (setq |margl| (QCDR |ISTMP#1|)) 'T)))) (SEQ (COND ((NULL - (SPADLET |mms| + (setq |mms| (|selectMms1| |sym| |target| |margl| |margl| NIL))) (EXIT (COND ((NULL - (SPADLET |mms| + (setq |mms| (|selectMms1| |sym| |target| |margl| |margl| T))) (EXIT NIL)))))) - (SPADLET |LETTMP#1| (CAAR |mms|)) - (SPADLET |dc| (CAR |LETTMP#1|)) - (SPADLET |targ| (CADR |LETTMP#1|)) - (SPADLET |argl| (CDDR |LETTMP#1|)) + (setq |LETTMP#1| (CAAR |mms|)) + (setq |dc| (CAR |LETTMP#1|)) + (setq |targ| (CADR |LETTMP#1|)) + (setq |argl| (CDDR |LETTMP#1|)) (COND ((NEQUAL |targ| |target|) (EXIT NIL)) ((AND (CONSP |dc|) (EQ (QCAR |dc|) '|_FreeFunction_|) (PROGN - (SPADLET |freeFun| (QCDR |dc|)) + (setq |freeFun| (QCDR |dc|)) 'T)) (EXIT (mkObj |freeFun| |t2|)))) (COND @@ -2748,7 +2748,7 @@ Interpreter Coercion Query Functions (|getFunctionFromDomain| |sym| |dc| |argl|) |t2|)))) - (SPADLET |val| + (setq |val| (|NRTcompileEvalForm| |sym| (CDR (CAAR |mms|)) (|evalDomain| |dc|))) @@ -2756,43 +2756,43 @@ Interpreter Coercion Query Functions ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|FunctionCalled|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |sym| (QCAR |ISTMP#1|)) + (setq |sym| (QCAR |ISTMP#1|)) 'T))) (CONSP |t2|) (EQ (QCAR |t2|) '|Mapping|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |target| + (setq |target| (QCAR |ISTMP#1|)) - (SPADLET |margl| + (setq |margl| (QCDR |ISTMP#1|)) 'T)))) - (SPADLET |symNode| (|mkAtreeNode| |sym|)) + (setq |symNode| (|mkAtreeNode| |sym|)) (|transferPropsToNode| |sym| |symNode|) (COND - ((NULL (SPADLET |mms| + ((NULL (setq |mms| (|selectLocalMms| |symNode| |sym| |margl| |target|))) NIL) - ('T (SPADLET |LETTMP#1| (CAAR |mms|)) - (SPADLET |dc| (CAR |LETTMP#1|)) - (SPADLET |targ| (CADR |LETTMP#1|)) - (SPADLET |argl| (CDDR |LETTMP#1|)) + ('T (setq |LETTMP#1| (CAAR |mms|)) + (setq |dc| (CAR |LETTMP#1|)) + (setq |targ| (CADR |LETTMP#1|)) + (setq |argl| (CDDR |LETTMP#1|)) (COND ((NEQUAL |targ| |target|) NIL) ('T - (SPADLET |ml| + (setq |ml| (CONS |target| |margl|)) - (SPADLET |intName| + (setq |intName| (COND ((PROG (G167466) - (SPADLET G167466 NIL) + (setq G167466 NIL) (RETURN (DO ((G167473 NIL @@ -2813,7 +2813,7 @@ Interpreter Coercion Query Functions ((AND (CONSP |mm|) (PROGN - (SPADLET + (setq |ISTMP#1| (QCAR |mm|)) @@ -2821,13 +2821,13 @@ Interpreter Coercion Query Functions (CONSP |ISTMP#1|) (PROGN - (SPADLET + (setq |ml1| (QCDR |ISTMP#1|)) 'T))) (PROGN - (SPADLET + (setq |ISTMP#2| (QCDR |mm|)) @@ -2835,7 +2835,7 @@ Interpreter Coercion Query Functions (CONSP |ISTMP#2|) (PROGN - (SPADLET + (setq |oldName| (QCAR |ISTMP#2|)) @@ -2854,19 +2854,19 @@ Interpreter Coercion Query Functions ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|FunctionCalled|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |sym| (QCAR |ISTMP#1|)) + (setq |sym| (QCAR |ISTMP#1|)) 'T)))) (COND - ((AND (SPADLET |t3| + ((AND (setq |t3| (|get| |sym| '|mode| |$e|)) (CONSP |t3|) (EQ (QCAR |t3|) '|Mapping|)) (COND - ((SPADLET |triple'| + ((setq |triple'| (|coerceInt| |triple| |t3|)) (|coerceInt| |triple'| |t2|)) ('T NIL))) @@ -2884,18 +2884,18 @@ Interpreter Coercion Query Functions |DoubleFloat|)))) NIL) ('T - (SPADLET |ans| + (setq |ans| (OR (|coerceRetract| |triple| |t2|) (|coerceIntTower| |triple| |t2|) (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|deconstructT| |t2|)) - (SPADLET |arg| + (setq |arg| (CDR |LETTMP#1|)) (AND |arg| (PROGN - (SPADLET |t| + (setq |t| (|coerceInt| |triple| (|last| |arg|))) (AND |t| @@ -2925,8 +2925,8 @@ Interpreter Coercion Query Functions (RETURN (COND ((BOOT-EQUAL |val| '|$fromCoerceable$|) NIL) - ('T (SPADLET |super| (GETDATABASE (CAR |tSub|) 'SUPERDOMAIN)) - (SPADLET |superDomain| (CAR |super|)) + ('T (setq |super| (GETDATABASE (CAR |tSub|) 'SUPERDOMAIN)) + (setq |superDomain| (CAR |super|)) (COND ((BOOT-EQUAL |superDomain| |tSuper|) (|coerceImmediateSubDomain| |val| |tSuper| |tSub| @@ -2945,7 +2945,7 @@ Interpreter Coercion Query Functions (PROG (|predfn|) (RETURN (PROGN - (SPADLET |predfn| + (setq |predfn| (|getSubDomainPredicate| |tSuper| |tSub| |pred|)) (COND ((FUNCALL |predfn| |val| NIL) (mkObj |val| |tSub|)) @@ -2973,31 +2973,31 @@ Interpreter Coercion Query Functions |$InteractiveFrame|)) (RETURN (PROGN - (SPADLET |$env| |$InteractiveFrame|) + (setq |$env| |$InteractiveFrame|) (COND - ((SPADLET |predfn| + ((setq |predfn| (HGET |$superHash| (CONS |tSuper| |tSub|))) |predfn|) - ('T (SPADLET |name| (GENSYM)) - (SPADLET |decl| + ('T (setq |name| (GENSYM)) + (setq |decl| (CONS '|:| (CONS |name| (CONS (CONS '|Mapping| (CONS |$Boolean| (CONS |tSuper| NIL))) NIL)))) - (|interpret| |decl| NIL) (SPADLET |arg| (GENSYM)) - (SPADLET |pred'| (MSUBST |arg| '|#1| |pred|)) - (SPADLET |defn| + (|interpret| |decl| NIL) (setq |arg| (GENSYM)) + (setq |pred'| (MSUBST |arg| '|#1| |pred|)) + (setq |defn| (CONS 'DEF (CONS (CONS |name| (CONS |arg| NIL)) (CONS '(NIL NIL) (CONS '(NIL NIL) (CONS (|removeZeroOne| |pred'|) NIL)))))) - (|interpret| |defn| NIL) (SPADLET |op| (|mkAtree| |name|)) + (|interpret| |defn| NIL) (setq |op| (|mkAtree| |name|)) (|transferPropsToNode| |name| |op|) - (SPADLET |predfn| + (setq |predfn| (CADAR (|selectLocalMms| |op| |name| (CONS |tSuper| NIL) |$Boolean|))) (HPUT |$superHash| (CONS |tSuper| |tSub|) |predfn|) @@ -3022,7 +3022,7 @@ Interpreter Coercion Query Functions (COND ((NULL (|unwrap| |val|)) (COND - ((NULL (SPADLET |t0| (|underDomainOf| |t2|))) NIL) + ((NULL (setq |t0| (|underDomainOf| |t2|))) NIL) ('T (|coerceInt| (mkObjWrap |val| (CONS '|List| (CONS |t0| NIL))) @@ -3068,8 +3068,8 @@ Interpreter Coercion Query Functions (PROG (|t1| |val|) (RETURN (PROGN - (SPADLET |t1| (|objMode| |object|)) - (SPADLET |val| (|objValUnwrap| |object|)) + (setq |t1| (|objMode| |object|)) + (setq |val| (|objValUnwrap| |object|)) (COND ((AND (|ofCategory| |t1| '(|Monoid|)) (|ofCategory| |t2| '(|Monoid|)) @@ -3090,7 +3090,7 @@ Interpreter Coercion Query Functions (PROG (|ISTMP#1| |ISTMP#2| |dom'|) (RETURN (SEQ (PROG (G167639) - (SPADLET G167639 NIL) + (setq G167639 NIL) (RETURN (DO ((G167650 |doms| (CDR G167650)) (|dom| NIL)) ((OR (ATOM G167650) @@ -3101,17 +3101,17 @@ Interpreter Coercion Query Functions ((AND (CONSP |dom|) (EQ (QCAR |dom|) '|:|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |dom|)) (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 |dom'| + (setq |dom'| (QCAR |ISTMP#2|)) 'T)))))) |dom'|) @@ -3125,15 +3125,15 @@ Interpreter Coercion Query Functions (PROG (|tl| |ISTMP#1| |ISTMP#2| |ISTMP#3|) (RETURN (AND (CONSP |u|) (EQ (QCAR |u|) '|Union|) - (PROGN (SPADLET |tl| (QCDR |u|)) 'T) |tl| + (PROGN (setq |tl| (QCDR |u|)) 'T) |tl| (PROGN - (SPADLET |ISTMP#1| (CAR |tl|)) + (setq |ISTMP#1| (CAR |tl|)) (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))))))) 'T)))) @@ -3149,12 +3149,12 @@ Interpreter Coercion Query Functions (PROG (|tl| |ISTMP#1| |tag| |ISTMP#2| |tags|) (RETURN (SEQ (PROGN - (SPADLET |tags| NIL) + (setq |tags| NIL) (COND ((OR (AND (CONSP |u|) (EQ (QCAR |u|) '|Union|) - (PROGN (SPADLET |tl| (QCDR |u|)) 'T)) + (PROGN (setq |tl| (QCDR |u|)) 'T)) (AND (CONSP |u|) (EQ (QCAR |u|) '|Record|) - (PROGN (SPADLET |tl| (QCDR |u|)) 'T))) + (PROGN (setq |tl| (QCDR |u|)) 'T))) (DO ((G167701 |tl| (CDR G167701)) (|t| NIL)) ((OR (ATOM G167701) (PROGN (SETQ |t| (CAR G167701)) NIL)) @@ -3162,16 +3162,16 @@ Interpreter Coercion Query Functions (SEQ (EXIT (COND ((AND (CONSP |t|) (EQ (QCAR |t|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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)))))) - (SPADLET |tags| (CONS |tag| |tags|))) + (setq |tags| (CONS |tag| |tags|))) ('T NIL))))))) |tags|))))) @@ -3200,14 +3200,14 @@ Interpreter Coercion Query Functions |targetType| |ISTMP#1| |ISTMP#2| |p|) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| (|objMode| |object|)) - (SPADLET |unionDoms| (CDR |LETTMP#1|)) - (SPADLET |doms| (|orderUnionEntries| |unionDoms|)) - (SPADLET |predList| (|mkPredList| |doms|)) - (SPADLET |doms| (|stripUnionTags| |doms|)) - (SPADLET |val'| (|objValUnwrap| |object|)) - (SPADLET |predicate| NIL) - (SPADLET |targetType| NIL) + (setq |LETTMP#1| (|objMode| |object|)) + (setq |unionDoms| (CDR |LETTMP#1|)) + (setq |doms| (|orderUnionEntries| |unionDoms|)) + (setq |predList| (|mkPredList| |doms|)) + (setq |doms| (|stripUnionTags| |doms|)) + (setq |val'| (|objValUnwrap| |object|)) + (setq |predicate| NIL) + (setq |targetType| NIL) (SEQ (DO ((G167741 |doms| (CDR G167741)) (|typ| NIL) (G167742 |predList| (CDR G167742)) (|pred| NIL)) @@ -3220,8 +3220,8 @@ Interpreter Coercion Query Functions (SEQ (EXIT (COND ((|evalSharpOne| |pred| |val'|) (EXIT (PROGN - (SPADLET |predicate| |pred|) - (SPADLET |targetType| |typ|)))))))) + (setq |predicate| |pred|) + (setq |targetType| |typ|)))))))) (COND ((NULL |targetType|) (|keyedSystemError| @@ -3229,14 +3229,14 @@ Interpreter Coercion Query Functions ((AND (CONSP |predicate|) (EQ (QCAR |predicate|) 'EQCAR) (PROGN - (SPADLET |ISTMP#1| (QCDR |predicate|)) + (setq |ISTMP#1| (QCDR |predicate|)) (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 |p| (QCAR |ISTMP#2|)) + (setq |p| (QCAR |ISTMP#2|)) 'T)))))) (mkObjWrap (CDR |val'|) |targetType|)) ('T (mkObj (|objVal| |object|) |targetType|))))))))) @@ -3259,29 +3259,29 @@ Interpreter Coercion Query Functions |ISTMP#3| |tag|) (RETURN (PROGN - (SPADLET |unionDoms| (CDR |union|)) - (SPADLET |doms| (|orderUnionEntries| |unionDoms|)) - (SPADLET |predList| (|mkPredList| |doms|)) - (SPADLET |doms| (|stripUnionTags| |doms|)) - (SPADLET |p| (|position| (|objMode| |object|) |doms|)) + (setq |unionDoms| (CDR |union|)) + (setq |doms| (|orderUnionEntries| |unionDoms|)) + (setq |predList| (|mkPredList| |doms|)) + (setq |doms| (|stripUnionTags| |doms|)) + (setq |p| (|position| (|objMode| |object|) |doms|)) (COND ((BOOT-EQUAL |p| (SPADDIFFERENCE 1)) (|keyedSystemError| "The type %1p is not branch of %2p" (CONS (|objMode| |object|) (CONS |union| NIL)))) - ('T (SPADLET |val| (|objVal| |object|)) + ('T (setq |val| (|objVal| |object|)) (COND ((PROGN - (SPADLET |ISTMP#1| (ELT |predList| |p|)) + (setq |ISTMP#1| (ELT |predList| |p|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'EQCAR) (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) (PROGN - (SPADLET |tag| (QCAR |ISTMP#3|)) + (setq |tag| (QCAR |ISTMP#3|)) 'T))))))) (mkObjWrap (CONS (|removeQuote| |tag|) (|unwrap| |val|)) @@ -3310,19 +3310,19 @@ Interpreter Coercion Query Functions (DECLARE (SPECIAL |$String|)) (RETURN (SEQ (PROGN - (SPADLET |unionDoms| (|stripUnionTags| (CDR |union|))) - (SPADLET |t1| (|objMode| |object|)) + (setq |unionDoms| (|stripUnionTags| (CDR |union|))) + (setq |t1| (|objMode| |object|)) (COND ((|member| |t1| |unionDoms|) (|coerceBranch2Union| |object| |union|)) - ('T (SPADLET |val| (|objVal| |object|)) - (SPADLET |val'| (|unwrap| |val|)) + ('T (setq |val| (|objVal| |object|)) + (setq |val'| (|unwrap| |val|)) (COND ((AND (BOOT-EQUAL |t1| |$String|) (|member| |val'| |unionDoms|)) (|coerceBranch2Union| (mkObj |val| |val'|) |union|)) - ('T (SPADLET |noCoerce| 'T) (SPADLET |val'| NIL) + ('T (setq |noCoerce| 'T) (setq |val'| NIL) (SEQ (DO ((G167805 |unionDoms| (CDR G167805)) (|d| NIL)) ((OR (ATOM G167805) @@ -3332,9 +3332,9 @@ Interpreter Coercion Query Functions (NULL |noCoerce|)) NIL) (SEQ (EXIT (COND - ((SPADLET |val'| + ((setq |val'| (|coerceInt| |object| |d|)) - (EXIT (SPADLET |noCoerce| NIL))))))) + (EXIT (setq |noCoerce| NIL))))))) (COND (|val'| (EXIT (|coerceBranch2Union| |val'| |union|)))) @@ -3394,20 +3394,20 @@ Interpreter Coercion Query Functions (DECLARE (SPECIAL |$coerceFailure| |$reportBottomUpFlag|)) (RETURN (PROGN - (SPADLET |t1| (|objMode| |triple|)) + (setq |t1| (|objMode| |triple|)) (COND ((BOOT-EQUAL |t2| |t1|) |triple|) - ('T (SPADLET |u2| (|deconstructT| |t2|)) + ('T (setq |u2| (|deconstructT| |t2|)) (COND ((EQL 1 (|#| |u2|)) NIL) - ('T (SPADLET |u1| (|deconstructT| |t1|)) + ('T (setq |u1| (|deconstructT| |t1|)) (COND ((EQL 1 (|#| |u1|)) NIL) ((NEQUAL (CAAR |u1|) (CAAR |u2|)) NIL) ((NULL (|valueArgsEqual?| |t1| |t2|)) NIL) - ('T (SPADLET |top| (CAAR |u1|)) - (SPADLET |u1| (|underDomainOf| |t1|)) - (SPADLET |u2| (|underDomainOf| |t2|)) + ('T (setq |top| (CAAR |u1|)) + (setq |u1| (|underDomainOf| |t1|)) + (setq |u2| (|underDomainOf| |t2|)) (COND ((AND (|member| |top| '(|List| |Vector| |Segment| |Stream| @@ -3415,7 +3415,7 @@ Interpreter Coercion Query Functions (|isSubDomain| |u1| |u2|)) (mkObj (|objVal| |triple|) |t2|)) ('T - (SPADLET |args| + (setq |args| (CONS (CONS '|Mapping| (CONS |u2| (CONS |u1| NIL))) (CONS |t1| NIL))) @@ -3424,7 +3424,7 @@ Interpreter Coercion Query Functions (|sayFunctionSelection| '|map| |args| |t2| NIL "coercion facility (map)"))) - (SPADLET |mms| + (setq |mms| (|selectMms1| '|map| |t2| |args| |args| NIL)) (COND @@ -3433,22 +3433,22 @@ Interpreter Coercion Query Functions |mms|))) (COND ((NULL |mms|) NIL) - ('T (SPADLET |LETTMP#1| (CAR |mms|)) - (SPADLET |dc| (CAAR |LETTMP#1|)) - (SPADLET |sig| (CDAR |LETTMP#1|)) - (SPADLET |slot| (CADR |LETTMP#1|)) - (SPADLET |fun| + ('T (setq |LETTMP#1| (CAR |mms|)) + (setq |dc| (CAAR |LETTMP#1|)) + (setq |sig| (CDAR |LETTMP#1|)) + (setq |slot| (CADR |LETTMP#1|)) + (setq |fun| (|compiledLookup| '|map| |sig| (|evalDomain| |dc|))) (COND ((NULL |fun|) NIL) - ('T (SPADLET |fn| (CAR |fun|)) - (SPADLET |d| (CDR |fun|)) + ('T (setq |fn| (CAR |fun|)) + (setq |d| (CDR |fun|)) (COND ((BOOT-EQUAL |fn| #'|Undef|) NIL) ('T - (SPADLET |code| + (setq |code| (CONS 'SPADCALL (CONS (CONS 'CONS @@ -3462,7 +3462,7 @@ Interpreter Coercion Query Functions (|wrapped2Quote| (|objVal| |triple|)) (CONS (MKQ |fun|) NIL))))) - (SPADLET |val| + (setq |val| (CATCH '|coerceFailure| (|timedEvaluate| |code|))) (COND @@ -3476,8 +3476,8 @@ Interpreter Coercion Query Functions (PROG (|u1| |u2|) (RETURN (PROGN - (SPADLET |u1| (CAR G167859)) - (SPADLET |u2| (CDR G167859)) + (setq |u1| (CAR G167859)) + (setq |u2| (CDR G167859)) (|coerceOrThrowFailure| |arg| |u1| |u2|))))) ;-- [u1,:u2] gets passed as the "environment", which is why we have this @@ -3507,14 +3507,14 @@ Interpreter Coercion Query Functions |value|) (RETURN (SEQ (PROGN - (SPADLET |coSig| (CDR (GETDATABASE (CAR |t1|) 'COSIG))) - (SPADLET |constrSig| + (setq |coSig| (CDR (GETDATABASE (CAR |t1|) 'COSIG))) + (setq |constrSig| (CDR (|getConstructorSignature| (CAR |t1|)))) - (SPADLET |tl1| (|replaceSharps| |constrSig| |t1|)) - (SPADLET |tl2| (|replaceSharps| |constrSig| |t2|)) + (setq |tl1| (|replaceSharps| |constrSig| |t1|)) + (setq |tl2| (|replaceSharps| |constrSig| |t2|)) (COND ((NULL (member NIL |coSig|)) 'T) - ('T (SPADLET |done| NIL) (SPADLET |value| 'T) + ('T (setq |done| NIL) (setq |value| 'T) (SEQ (DO ((G167888 (CDR |t1|) (CDR G167888)) (|a1| NIL) (G167889 (CDR |t2|) (CDR G167889)) @@ -3539,20 +3539,20 @@ Interpreter Coercion Query Functions ((NULL |cs|) (EXIT (PROGN - (SPADLET |trip| + (setq |trip| (mkObjWrap |a1| |m1|)) - (SPADLET |newVal| + (setq |newVal| (|coerceInt| |trip| |m2|)) (COND ((NULL |newVal|) - (SPADLET |done| 'T) - (SPADLET |value| NIL)) + (setq |done| 'T) + (setq |value| NIL)) ((NULL (|algEqual| |a2| (|objValUnwrap| |newVal|) |m2|)) - (SPADLET |done| 'T) - (SPADLET |value| NIL)))))))))) + (setq |done| 'T) + (setq |value| NIL)))))))))) (EXIT |value|))))))))) ;coerceIntTower(triple,t2) == @@ -3596,57 +3596,57 @@ Interpreter Coercion Query Functions |x|) (RETURN (SEQ (COND - ((SPADLET |x| (|coerceIntByMap| |triple| |t2|)) |x|) - ((SPADLET |x| (|coerceIntCommute| |triple| |t2|)) |x|) - ((SPADLET |x| (|coerceIntPermute| |triple| |t2|)) |x|) - ((SPADLET |x| (|coerceIntSpecial| |triple| |t2|)) |x|) - ((SPADLET |x| (|coerceIntTableOrFunction| |triple| |t2|)) + ((setq |x| (|coerceIntByMap| |triple| |t2|)) |x|) + ((setq |x| (|coerceIntCommute| |triple| |t2|)) |x|) + ((setq |x| (|coerceIntPermute| |triple| |t2|)) |x|) + ((setq |x| (|coerceIntSpecial| |triple| |t2|)) |x|) + ((setq |x| (|coerceIntTableOrFunction| |triple| |t2|)) |x|) - ('T (SPADLET |t1| (|objMode| |triple|)) - (SPADLET |LETTMP#1| (|deconstructT| |t1|)) - (SPADLET |c1| (CAR |LETTMP#1|)) - (SPADLET |arg1| (CDR |LETTMP#1|)) + ('T (setq |t1| (|objMode| |triple|)) + (setq |LETTMP#1| (|deconstructT| |t1|)) + (setq |c1| (CAR |LETTMP#1|)) + (setq |arg1| (CDR |LETTMP#1|)) (AND |arg1| (PROGN - (SPADLET TL NIL) - (SPADLET |arg| |arg1|) + (setq TL NIL) + (setq |arg| |arg1|) (DO ((G167962 NIL (OR |x| (NULL |arg|)))) (G167962 NIL) (SEQ (EXIT (PROGN - (SPADLET |t| (|last| |arg|)) - (SPADLET |LETTMP#1| + (setq |t| (|last| |arg|)) + (setq |LETTMP#1| (|deconstructT| |t|)) - (SPADLET |c| (CAR |LETTMP#1|)) - (SPADLET |arg| (CDR |LETTMP#1|)) - (SPADLET TL + (setq |c| (CAR |LETTMP#1|)) + (setq |arg| (CDR |LETTMP#1|)) + (setq TL (CONS |c| (CONS |arg| TL))) (COND - ((SPADLET |x| + ((setq |x| (AND |arg| (|coerceIntTest| |t| |t2|))) (COND ((CDDR TL) - (SPADLET |s| + (setq |s| (|constructT| |c1| (|replaceLast| |arg1| (|bubbleConstructor| TL)))) (COND ((NULL (|isValidType| |s|)) - (SPADLET |x| NIL)) - ((SPADLET |x| + (setq |x| NIL)) + ((setq |x| (OR (|coerceIntByMap| |triple| |s|) (|coerceIntTableOrFunction| |triple| |s|))) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|deconstructT| (|last| |s|))) - (SPADLET |c2| + (setq |c2| (CAR |LETTMP#1|)) - (SPADLET |arg2| + (setq |arg2| (CDR |LETTMP#1|)) - (SPADLET |s| + (setq |s| (|bubbleConstructor| (CONS |c2| (CONS |arg2| @@ -3655,18 +3655,18 @@ Interpreter Coercion Query Functions (COND ((NULL (|isValidType| |s|)) - (SPADLET |x| NIL)) - ((SPADLET |x| + (setq |x| NIL)) + ((setq |x| (|coerceIntCommute| |x| |s|)) - (SPADLET |x| + (setq |x| (OR (|coerceIntByMap| |x| |t2|) (|coerceIntTableOrFunction| |x| |t2|)))))))) ('T - (SPADLET |s| + (setq |s| (|bubbleConstructor| (CONS |c| (CONS |arg| @@ -3674,11 +3674,11 @@ Interpreter Coercion Query Functions (CONS |arg1| NIL)))))) (COND ((NULL (|isValidType| |s|)) - (SPADLET |x| NIL)) - ((SPADLET |x| + (setq |x| NIL)) + ((setq |x| (|coerceIntCommute| |triple| |s|)) - (SPADLET |x| + (setq |x| (OR (|coerceIntByMap| |x| |t2|) @@ -3697,25 +3697,25 @@ Interpreter Coercion Query Functions (PROG (|t1| |ISTMP#1| R |ISTMP#2| U |ISTMP#3| |x|) (RETURN (PROGN - (SPADLET |t1| (|objMode| |triple|)) + (setq |t1| (|objMode| |triple|)) (COND ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|SimpleAlgebraicExtension|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET R (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq R (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET U (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq U (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL))))))) (BOOT-EQUAL |t1| R)) (COND - ((NULL (SPADLET |x| (|coerceInt| |triple| U))) NIL) + ((NULL (setq |x| (|coerceInt| |triple| U))) NIL) ('T (|coerceInt| |x| |t2|)))) ('T NIL)))))) @@ -3741,26 +3741,26 @@ Interpreter Coercion Query Functions (COND ((NULL (|isValidType| |t2|)) NIL) ((NULL (|isLegitimateMode| |t2| NIL NIL)) NIL) - ('T (SPADLET |t1| (|objMode| |triple|)) - (SPADLET |p| (ASSQ (CAR |t1|) |$CoerceTable|)) + ('T (setq |t1| (|objMode| |triple|)) + (setq |p| (ASSQ (CAR |t1|) |$CoerceTable|)) (COND ((AND |p| (PROGN - (SPADLET |ISTMP#1| (ASSQ (CAR |t2|) (CDR |p|))) + (setq |ISTMP#1| (ASSQ (CAR |t2|) (CDR |p|))) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |tag| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |tag| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |fun| + (setq |fun| (QCAR |ISTMP#3|)) 'T)))))))) - (SPADLET |val| (|objVal| |triple|)) + (setq |val| (|objVal| |triple|)) (COND ((BOOT-EQUAL |fun| '|Identity|) (mkObj |val| |t2|)) ((BOOT-EQUAL |tag| '|total|) @@ -3788,10 +3788,10 @@ Interpreter Coercion Query Functions (RETURN (COND ((NULL (|isLegitimateMode| |t2| NIL NIL)) NIL) - ((NULL (SPADLET |u1| (|underDomainOf| |t1|))) NIL) - ((NULL (SPADLET |u2| (|underDomainOf| |t2|))) NIL) - ((NULL (SPADLET |v1| (|underDomainOf| |u1|))) NIL) - ((NULL (SPADLET |v2| (|underDomainOf| |u2|))) NIL) + ((NULL (setq |u1| (|underDomainOf| |t1|))) NIL) + ((NULL (setq |u2| (|underDomainOf| |t2|))) NIL) + ((NULL (setq |v1| (|underDomainOf| |u1|))) NIL) + ((NULL (setq |v2| (|underDomainOf| |u2|))) NIL) ('T (AND (BOOT-EQUAL (CAR (|deconstructT| |t1|)) (CAR (|deconstructT| |u2|))) @@ -3823,23 +3823,23 @@ Interpreter Coercion Query Functions (DECLARE (SPECIAL |$coerceFailure|)) (RETURN (PROGN - (SPADLET |source| (|objMode| |obj|)) + (setq |source| (|objMode| |obj|)) (COND ((NULL (|coerceCommuteTest| |source| |target|)) NIL) - ('T (SPADLET S (|underDomainOf| |source|)) - (SPADLET T$ (|underDomainOf| |target|)) + ('T (setq S (|underDomainOf| |source|)) + (setq T$ (|underDomainOf| |target|)) (COND ((BOOT-EQUAL |source| T$) NIL) ((AND (CONSP |source|) - (PROGN (SPADLET D (QCAR |source|)) 'T)) - (SPADLET |fun| + (PROGN (setq D (QCAR |source|)) 'T)) + (setq |fun| (OR (GETL D '|coerceCommute|) (INTERN (STRCONC "commute" (STRINGIMAGE D))))) (COND ((canFuncall? |fun|) (PUT D '|coerceCommute| |fun|) - (SPADLET |u| (|objValUnwrap| |obj|)) - (SPADLET |c| + (setq |u| (|objValUnwrap| |obj|)) + (setq |c| (CATCH '|coerceFailure| (FUNCALL |fun| |u| |source| S |target| T$))) (COND @@ -3871,14 +3871,14 @@ Interpreter Coercion Query Functions (RETURN (SEQ (COND ((|member| |t2| '((|Integer|) (|OutputForm|))) NIL) - ('T (SPADLET |t1| (|objMode| |object|)) - (SPADLET |towers| (|computeTTTranspositions| |t1| |t2|)) + ('T (setq |t1| (|objMode| |object|)) + (setq |towers| (|computeTTTranspositions| |t1| |t2|)) (COND ((OR (NULL |towers|) (NULL (CDR |towers|))) NIL) ((AND (NULL (CDDR |towers|)) (BOOT-EQUAL |t2| (CADR |towers|))) NIL) - ('T (SPADLET |ok| 'T) + ('T (setq |ok| 'T) (SEQ (DO ((G168100 (CDR |towers|) (CDR G168100)) (|t| NIL)) ((OR (ATOM G168100) @@ -3887,9 +3887,9 @@ Interpreter Coercion Query Functions NIL) (SEQ (EXIT (COND ((NULL - (SPADLET |object| + (setq |object| (|coerceInt| |object| |t|))) - (EXIT (SPADLET |ok| NIL))))))) + (EXIT (setq |ok| NIL))))))) (COND (|ok| (EXIT |object|))) NIL))))))))) ;computeTTTranspositions(t1,t2) == @@ -3938,7 +3938,7 @@ Interpreter Coercion Query Functions (+ |start| 1) |len|))) (EXIT (|computeTTTranspositions,compress| (PROG (G168121) - (SPADLET G168121 NIL) + (setq G168121 NIL) (RETURN (DO ((G168126 |l| (CDR G168126)) (|i| NIL)) @@ -3960,14 +3960,14 @@ Interpreter Coercion Query Functions (PROG (|tl1| |tl2| |p2'| |n1| |p2| |perms| |tower| |t| |towers|) (RETURN (SEQ (PROGN - (SPADLET |tl1| (|decomposeTypeIntoTower| |t1|)) - (SPADLET |tl2| (|decomposeTypeIntoTower| |t2|)) + (setq |tl1| (|decomposeTypeIntoTower| |t1|)) + (setq |tl2| (|decomposeTypeIntoTower| |t2|)) (COND ((NULL (AND (CDR |tl1|) (CDR |tl2|))) NIL) ('T - (SPADLET |p2| + (setq |p2| (PROG (G168143) - (SPADLET G168143 NIL) + (setq G168143 NIL) (RETURN (DO ((G168148 |tl1| (CDR G168148)) (|d1| NIL)) @@ -3982,20 +3982,20 @@ Interpreter Coercion Query Functions G168143)))))))) (COND ((|member| (SPADDIFFERENCE 1) |p2|) NIL) - ('T (SPADLET |p2'| (MSORT |p2|)) + ('T (setq |p2'| (MSORT |p2|)) (COND ((BOOT-EQUAL |p2| |p2'|) NIL) ((NEQUAL |p2'| (MSORT (REMDUP |p2'|))) NIL) - ('T (SPADLET |n1| (|#| |tl1|)) - (SPADLET |p2| + ('T (setq |n1| (|#| |tl1|)) + (setq |p2| (LIST2VEC (|computeTTTranspositions,compress| |p2| 0 (|#| (REMDUP |tl1|))))) - (SPADLET |perms| + (setq |perms| (|permuteToOrder| |p2| (SPADDIFFERENCE |n1| 1) 0)) - (SPADLET |towers| (CONS |tl1| NIL)) - (SPADLET |tower| (LIST2VEC |tl1|)) + (setq |towers| (CONS |tl1| NIL)) + (setq |tower| (LIST2VEC |tl1|)) (DO ((G168161 |perms| (CDR G168161)) (|perm| NIL)) ((OR (ATOM G168161) @@ -4004,17 +4004,17 @@ Interpreter Coercion Query Functions NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |t| + (setq |t| (ELT |tower| (CAR |perm|))) (SETELT |tower| (CAR |perm|) (ELT |tower| (CDR |perm|))) (SETELT |tower| (CDR |perm|) |t|) - (SPADLET |towers| + (setq |towers| (CONS (VEC2LIST |tower|) |towers|)))))) - (SPADLET |towers| + (setq |towers| (PROG (G168171) - (SPADLET G168171 NIL) + (setq G168171 NIL) (RETURN (DO ((G168176 |towers| @@ -4034,7 +4034,7 @@ Interpreter Coercion Query Functions G168171)))))))) (COND ((NEQUAL (CAR |towers|) |t2|) - (SPADLET |towers| (CONS |t2| |towers|)))) + (setq |towers| (CONS |t2| |towers|)))) (NREVERSE |towers|)))))))))))) ;decomposeTypeIntoTower t == @@ -4049,10 +4049,10 @@ Interpreter Coercion Query Functions (RETURN (COND ((ATOM |t|) (CONS |t| NIL)) - ('T (SPADLET |d| (|deconstructT| |t|)) + ('T (setq |d| (|deconstructT| |t|)) (COND ((NULL (CDR |d|)) (CONS |t| NIL)) - ('T (SPADLET |rd| (REVERSE |t|)) + ('T (setq |rd| (REVERSE |t|)) (CONS (REVERSE (QCDR |rd|)) (|decomposeTypeIntoTower| (QCAR |rd|)))))))))) @@ -4068,9 +4068,9 @@ Interpreter Coercion Query Functions (COND ((ATOM |tower|) |tower|) ((NULL (CDR |tower|)) (CAR |tower|)) - ('T (SPADLET |LETTMP#1| (REVERSE |tower|)) - (SPADLET |s| (CAR |LETTMP#1|)) (SPADLET |t| (CADR |LETTMP#1|)) - (SPADLET |top| (NREVERSE (CDDR |LETTMP#1|))) + ('T (setq |LETTMP#1| (REVERSE |tower|)) + (setq |s| (CAR |LETTMP#1|)) (setq |t| (CADR |LETTMP#1|)) + (setq |top| (NREVERSE (CDDR |LETTMP#1|))) (|reassembleTowerIntoType| (APPEND |top| (CONS (APPEND |t| (CONS |s| NIL)) NIL)))))))) @@ -4102,7 +4102,7 @@ Interpreter Coercion Query Functions (PROG (|r| |x| |perms| |t| |stpos|) (RETURN (SEQ (PROGN - (SPADLET |r| (SPADDIFFERENCE |n| |start|)) + (setq |r| (SPADDIFFERENCE |n| |start|)) (COND ((<= |r| 0) NIL) ((EQL |r| 1) @@ -4111,24 +4111,24 @@ Interpreter Coercion Query Functions ('T (CONS (CONS |r| (+ |r| 1)) NIL)))) ((BOOT-EQUAL (ELT |p| |start|) |start|) (|permuteToOrder| |p| |n| (+ |start| 1))) - ('T (SPADLET |stpos| NIL) + ('T (setq |stpos| NIL) (DO ((|i| (+ |start| 1) (+ |i| 1))) ((OR (> |i| |n|) (NULL (NULL |stpos|))) NIL) (SEQ (EXIT (COND ((BOOT-EQUAL (ELT |p| |i|) |start|) - (SPADLET |stpos| |i|)) + (setq |stpos| |i|)) ('T NIL))))) - (SPADLET |perms| NIL) + (setq |perms| NIL) (DO () ((NULL (NEQUAL |stpos| |start|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| (SPADDIFFERENCE |stpos| 1)) - (SPADLET |perms| + (setq |x| (SPADDIFFERENCE |stpos| 1)) + (setq |perms| (CONS (CONS |x| |stpos|) |perms|)) - (SPADLET |t| (ELT |p| |stpos|)) + (setq |t| (ELT |p| |stpos|)) (SETELT |p| |stpos| (ELT |p| |x|)) (SETELT |p| |x| |t|) - (SPADLET |stpos| |x|))))) + (setq |stpos| |x|))))) (APPEND (NREVERSE |perms|) (|permuteToOrder| |p| |n| (+ |start| 1)))))))))) @@ -4149,9 +4149,9 @@ Interpreter Coercion Query Functions (RETURN (OR (BOOT-EQUAL |t1| |t2|) (PROGN - (SPADLET |b| + (setq |b| (PROGN - (SPADLET |p| (ASSQ (CAR |t1|) |$CoerceTable|)) + (setq |p| (ASSQ (CAR |t1|) |$CoerceTable|)) (AND |p| (ASSQ (CAR |t2|) (CDR |p|))))) (OR |b| (|coerceConvertMmSelection| '|coerce| |t1| |t2|) (AND |$useConvertForCoercions| @@ -4175,8 +4175,8 @@ Interpreter Coercion Query Functions (COND ((equal |t2| |$OutputForm|) NIL) - ((|isWrapped| |x|) (SPADLET |x| (|unwrap| |x|)) - (SPADLET |c| + ((|isWrapped| |x|) (setq |x| (|unwrap| |x|)) + (setq |c| (CATCH '|coerceFailure| (FUNCALL |fn| |x| |t1| |t2|))) (COND @@ -4208,7 +4208,7 @@ Interpreter Coercion Query Functions (DECLARE (SPECIAL |$coerceFailure|)) (RETURN (PROGN - (SPADLET |c| + (setq |c| (CATCH '|coerceFailure| (FUNCALL |fn| |x| |t1| |t2|))) (COND ((BOOT-EQUAL |c| |$coerceFailure|) @@ -4278,20 +4278,20 @@ Interpreter Coercion Query Functions (DECLARE (SPECIAL $ |$coerceFailure| |$Boolean|)) (RETURN (PROGN - (SPADLET |x| (|objVal| T$)) + (setq |x| (|objVal| T$)) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) NIL) ((AND (CONSP |m2|) (EQ (QCAR |m2|) '|Union|)) NIL) - ('T (SPADLET |m1| (|objMode| T$)) + ('T (setq |m1| (|objMode| T$)) (COND ((AND (CONSP |m2|) (EQ (QCAR |m2|) '|Boolean|) (CONSP |m1|) (EQ (QCAR |m1|) '|Equation|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m1|)) + (setq |ISTMP#1| (QCDR |m1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |ud| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |dcVector| (|evalDomain| |ud|)) - (SPADLET |fun| + (PROGN (setq |ud| (QCAR |ISTMP#1|)) 'T)))) + (setq |dcVector| (|evalDomain| |ud|)) + (setq |fun| (COND ((|isWrapped| |x|) (|NRTcompiledLookup| '= @@ -4301,46 +4301,46 @@ Interpreter Coercion Query Functions (|NRTcompileEvalForm| '= (CONS |$Boolean| (CONS '$ (CONS '$ NIL))) |dcVector|)))) - (SPADLET |fn| (CAR |fun|)) (SPADLET |d| (CDR |fun|)) + (setq |fn| (CAR |fun|)) (setq |d| (CDR |fun|)) (COND - ((|isWrapped| |x|) (SPADLET |x| (|unwrap| |x|)) + ((|isWrapped| |x|) (setq |x| (|unwrap| |x|)) (mkObjWrap (SPADCALL (CAR |x|) (CDR |x|) |fun|) |m2|)) ((NULL (AND (CONSP |x|) (EQ (QCAR |x|) 'SPADCALL) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |a| (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))))))) (|keyedSystemError| "Generated code is incorrect for equation" NIL)) ('T - (SPADLET |code| + (setq |code| (CONS 'SPADCALL (CONS |a| (CONS |b| (CONS |fun| NIL))))) (mkObj |code| |$Boolean|)))) ('T (COND - ((NULL (SPADLET |mm| + ((NULL (setq |mm| (|coerceConvertMmSelection| - (SPADLET |funName| '|coerce|) |m1| + (setq |funName| '|coerce|) |m1| |m2|))) - (SPADLET |mm| + (setq |mm| (|coerceConvertMmSelection| - (SPADLET |funName| '|convert|) |m1| |m2|)))) + (setq |funName| '|convert|) |m1| |m2|)))) (COND - (|mm| (SPADLET |dc| (CAAR |mm|)) - (SPADLET |tar| (CADAR |mm|)) - (SPADLET |args| (CDDAR |mm|)) - (SPADLET |slot| (CADR |mm|)) - (SPADLET |dcVector| (|evalDomain| |dc|)) - (SPADLET |fun| + (|mm| (setq |dc| (CAAR |mm|)) + (setq |tar| (CADAR |mm|)) + (setq |args| (CDDAR |mm|)) + (setq |slot| (CADR |mm|)) + (setq |dcVector| (|evalDomain| |dc|)) + (setq |fun| (COND ((|isWrapped| |x|) (|NRTcompiledLookup| |funName| |slot| @@ -4348,27 +4348,27 @@ Interpreter Coercion Query Functions ('T (|NRTcompileEvalForm| |funName| |slot| |dcVector|)))) - (SPADLET |fn| (CAR |fun|)) - (SPADLET |d| (CDR |fun|)) + (setq |fn| (CAR |fun|)) + (setq |d| (CDR |fun|)) (COND ((BOOT-EQUAL |fn| #'|Undef|) NIL) - ((|isWrapped| |x|) (SPADLET $ |dcVector|) - (SPADLET |val| + ((|isWrapped| |x|) (setq $ |dcVector|) + (setq |val| (CATCH '|coerceFailure| (SPADCALL (|unwrap| |x|) |fun|))) (COND ((BOOT-EQUAL |val| |$coerceFailure|) NIL) ('T (mkObjWrap |val| |m2|)))) - ('T (SPADLET |env| |fun|) - (SPADLET |code| + ('T (setq |env| |fun|) + (setq |code| (CONS '|failCheck| (CONS (CONS 'SPADCALL (CONS |x| (CONS |env| NIL))) NIL))) (mkObj |code| |m2|)))) - ('T (SPADLET |m1'| |m1|) - (SPADLET |m2'| |m2|) + ('T (setq |m1'| |m1|) + (setq |m2'| |m2|) (COND ((OR (NEQUAL |m1| |m1'|) (NEQUAL |m2| |m2'|)) (|coerceByFunction| (mkObj |x| |m1'|) |m2'|)) @@ -4387,18 +4387,18 @@ Interpreter Coercion Query Functions (PROG (|dc| |tar| |ISTMP#1| |ISTMP#2| |t|) (RETURN (PROGN - (SPADLET |dc| (CAR |sig|)) - (SPADLET |tar| (CADR |sig|)) + (setq |dc| (CAR |sig|)) + (setq |tar| (CADR |sig|)) (COND ((AND (CONSP |dc|) (EQ (QCAR |dc|) '|TypeEquivalence|)) NIL) ((BOOT-EQUAL |m| |tar|) 'T) ((AND (CONSP |tar|) (EQ (QCAR |tar|) '|Union|) (PROGN - (SPADLET |ISTMP#1| (QCDR |tar|)) + (setq |ISTMP#1| (QCDR |tar|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |t| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |t| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (EQ (QCAR |ISTMP#2|) '|failed|)))))) @@ -4406,15 +4406,15 @@ Interpreter Coercion Query Functions ('T (AND (CONSP |tar|) (EQ (QCAR |tar|) '|Union|) (PROGN - (SPADLET |ISTMP#1| (QCDR |tar|)) + (setq |ISTMP#1| (QCDR |tar|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|failed|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |t| (QCAR |ISTMP#2|)) + (setq |t| (QCAR |ISTMP#2|)) 'T))))) (BOOT-EQUAL |t| |m|)))))))) diff --git a/src/interp/i-coerfn.lisp.pamphlet b/src/interp/i-coerfn.lisp.pamphlet index 27ac07c..07043d0 100755 --- a/src/interp/i-coerfn.lisp.pamphlet +++ b/src/interp/i-coerfn.lisp.pamphlet @@ -97,14 +97,14 @@ all these coercion functions have the following result: (PROG (|m| T$ |n| S |u'|) (RETURN (PROGN - (SPADLET |m| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |n| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |m| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |n| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((NEQUAL |n| |m|) NIL) ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S T$)) - ((NULL (SPADLET |u'| + ((NULL (setq |u'| (|coerceInt| (mkObjWrap |u| (CONS '|Vector| (CONS S NIL))) @@ -138,23 +138,23 @@ all these coercion functions have the following result: |w1|) (RETURN (SEQ (PROGN - (SPADLET |v2| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |dmp| (CAR |source|)) - (SPADLET |v1| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |v2| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |dmp| (CAR |source|)) + (setq |v1| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) - (SPADLET |v| (|intersection| |v1| |v2|)) + (setq |v| (|intersection| |v1| |v2|)) (AND |v| (PROGN - (SPADLET |w2| (SETDIFFERENCE |v2| |v|)) - (SPADLET |t1| + (setq |w2| (SETDIFFERENCE |v2| |v|)) + (setq |t1| (COND (|w1| (CONS |dmp| (CONS |w1| (CONS S NIL)))) ('T S))) - (SPADLET |t2| + (setq |t2| (COND (|w2| (CONS |dmp| (CONS |w2| (CONS T$ NIL)))) @@ -163,16 +163,16 @@ all these coercion functions have the following result: ((NULL |u|) (|domainZero| |target|)) ((AND (CONSP |u|) (EQ (QCDR |u|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |e| (QCAR |ISTMP#1|)) - (SPADLET |c| (QCDR |ISTMP#1|)) + (setq |e| (QCAR |ISTMP#1|)) + (setq |c| (QCDR |ISTMP#1|)) 'T))) (BOOT-EQUAL |e| (LIST2VEC (PROG (G166139) - (SPADLET G166139 NIL) + (setq G166139 NIL) (RETURN (DO ((G166144 |v1| (CDR G166144)) (|v| NIL)) @@ -186,13 +186,13 @@ all these coercion functions have the following result: (SETQ G166139 (CONS 0 G166139)))))))))) (COND - ((SPADLET |z| + ((setq |z| (|coerceInt| (mkObjWrap |c| S) |target|)) (|objValUnwrap| |z|)) ('T (|coercionFailure|)))) - ((SPADLET |v| (|intersection| |v1| |v2|)) + ((setq |v| (|intersection| |v1| |v2|)) (COND - ((SPADLET |w1| (SETDIFFERENCE |v1| |v|)) + ((setq |w1| (SETDIFFERENCE |v1| |v|)) (|coerceDmp1| |u| |source| |target| |v| |w1|)) ('T (|coerceDmp2| |u| |source| |target|)))) ('T (|coercionFailure|)))))))) @@ -222,24 +222,24 @@ all these coercion functions have the following result: |pat3| |e| |c| |exp| |z| |li| |a| |x|) (RETURN (SEQ (PROGN - (SPADLET |v2| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |v1| (CADR |source|)) - (SPADLET S (CADDR |source|)) - (SPADLET |t| + (setq |v2| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |v1| (CADR |source|)) + (setq S (CADDR |source|)) + (setq |t| (CONS '|DistributedMultivariatePolynomial| (CONS |w| (CONS S NIL)))) - (SPADLET |x| (|domainZero| |target|)) - (SPADLET |one| (|domainOne| T$)) - (SPADLET |plusfunc| + (setq |x| (|domainZero| |target|)) + (setq |one| (|domainOne| T$)) + (setq |plusfunc| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |multfunc| + (setq |multfunc| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |pat1| + (setq |pat1| (PROG (G166206) - (SPADLET G166206 NIL) + (setq G166206 NIL) (RETURN (DO ((G166211 |v1| (CDR G166211)) (|x| NIL)) @@ -251,9 +251,9 @@ all these coercion functions have the following result: (SEQ (EXIT (SETQ G166206 (CONS (|member| |x| |v|) G166206)))))))) - (SPADLET |pat2| + (setq |pat2| (PROG (G166221) - (SPADLET G166221 NIL) + (setq G166221 NIL) (RETURN (DO ((G166226 |v1| (CDR G166226)) (|x| NIL)) @@ -265,9 +265,9 @@ all these coercion functions have the following result: (SEQ (EXIT (SETQ G166221 (CONS (|member| |x| |w|) G166221)))))))) - (SPADLET |pat3| + (setq |pat3| (PROG (G166236) - (SPADLET G166236 NIL) + (setq G166236 NIL) (RETURN (DO ((G166241 |v2| (CDR G166241)) (|x| NIL)) @@ -287,17 +287,17 @@ all these coercion functions have the following result: (PROGN (SETQ G166171 (CAR G166257)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G166171)) - (SPADLET |c| (CDR G166171)) + (setq |e| (CAR G166171)) + (setq |c| (CDR G166171)) G166171) NIL) G166258) NIL) (SEQ (EXIT (PROGN - (SPADLET |exp| + (setq |exp| (LIST2VEC (PROG (G166272) - (SPADLET G166272 NIL) + (setq G166272 NIL) (RETURN (DO ((G166279 |pat2| @@ -324,16 +324,16 @@ all these coercion functions have the following result: (SETQ G166272 (CONS |y| G166272))))))))))) (COND - ((SPADLET |z| + ((setq |z| (|coerceInt| (mkObjWrap (CONS (CONS |exp| |c|) NIL) |t|) |target|)) (PROGN - (SPADLET |li| + (setq |li| (PROG (G166295) - (SPADLET G166295 NIL) + (setq G166295 NIL) (RETURN (DO ((G166302 |pat1| @@ -361,12 +361,12 @@ all these coercion functions have the following result: (SETQ G166295 (CONS |y| G166295)))))))))) - (SPADLET |a| + (setq |a| (CONS (CONS (LIST2VEC (PROG (G166316) - (SPADLET G166316 NIL) + (setq G166316 NIL) (RETURN (DO ((G166321 |pat3| @@ -391,7 +391,7 @@ all these coercion functions have the following result: G166316)))))))) |one|) NIL)) - (SPADLET |x| + (setq |x| (SPADCALL |x| (SPADCALL (|objValUnwrap| |z|) |a| @@ -420,21 +420,21 @@ all these coercion functions have the following result: |li| |a| |x|) (RETURN (SEQ (PROGN - (SPADLET |v2| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |v1| (CADR |source|)) - (SPADLET S (CADDR |source|)) - (SPADLET |x| (|domainZero| |target|)) - (SPADLET |one| (|domainOne| T$)) - (SPADLET |plusfunc| + (setq |v2| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |v1| (CADR |source|)) + (setq S (CADDR |source|)) + (setq |x| (|domainZero| |target|)) + (setq |one| (|domainOne| T$)) + (setq |plusfunc| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |multfunc| + (setq |multfunc| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |pat| + (setq |pat| (PROG (G166392) - (SPADLET G166392 NIL) + (setq G166392 NIL) (RETURN (DO ((G166397 |v2| (CDR G166397)) (|x| NIL)) @@ -454,23 +454,23 @@ all these coercion functions have the following result: (PROGN (SETQ G166357 (CAR G166408)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G166357)) - (SPADLET |c| (CDR G166357)) + (setq |e| (CAR G166357)) + (setq |c| (CDR G166357)) G166357) NIL) G166409) NIL) (SEQ (EXIT (COND - ((SPADLET |z| + ((setq |z| (|coerceInt| (mkObjWrap |c| S) |target|)) - (SPADLET |li| (VEC2LIST |e|)) - (SPADLET |a| + (setq |li| (VEC2LIST |e|)) + (setq |a| (CONS (CONS (LIST2VEC (PROG (G166421) - (SPADLET G166421 NIL) + (setq G166421 NIL) (RETURN (DO ((G166426 |pat| @@ -493,7 +493,7 @@ all these coercion functions have the following result: G166421)))))))) |one|) NIL)) - (SPADLET |x| + (setq |x| (SPADCALL |x| (SPADCALL (|objValUnwrap| |z|) |a| |multfunc|) @@ -529,25 +529,25 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer| |$Symbol|)) (RETURN (SEQ (PROGN - (SPADLET |Expr| (CAR |target|)) - (SPADLET T$ (CADR |target|)) - (SPADLET |dmp| (CAR |source|)) - (SPADLET |vars| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |Expr| (CAR |target|)) + (setq T$ (CADR |target|)) + (setq |dmp| (CAR |source|)) + (setq |vars| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S |target|)) - ((NULL |vars|) (SPADLET |c| (CDAR |u|)) + ((NULL |vars|) (setq |c| (CDAR |u|)) (COND - ((NULL (SPADLET |c| + ((NULL (setq |c| (|coerceInt| (mkObjWrap |c| S) |target|))) (|coercionFailure|)) ('T (|objValUnwrap| |c|)))) ('T - (SPADLET |syms| + (setq |syms| (PROG (G166499) - (SPADLET G166499 NIL) + (setq G166499 NIL) (RETURN (DO ((G166504 |vars| (CDR G166504)) (|var| NIL)) @@ -564,14 +564,14 @@ all these coercion functions have the following result: (mkObjWrap |var| |$Symbol|) |target|)) G166499)))))))) - (SPADLET |sum| (|domainZero| |target|)) - (SPADLET |plus| + (setq |sum| (|domainZero| |target|)) + (setq |plus| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |mult| + (setq |mult| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |expn| + (setq |expn| (|getFunctionFromDomain| '** |target| (CONS |target| (CONS |$Integer| NIL)))) (DO ((G166516 |u| (CDR G166516)) (G166457 NIL)) @@ -579,18 +579,18 @@ all these coercion functions have the following result: (PROGN (SETQ G166457 (CAR G166516)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G166457)) - (SPADLET |c| (CDR G166457)) + (setq |e| (CAR G166457)) + (setq |c| (CDR G166457)) G166457) NIL)) NIL) (SEQ (EXIT (COND - ((NULL (SPADLET |c| + ((NULL (setq |c| (|coerceInt| (mkObjWrap |c| S) |target|))) (|coercionFailure|)) - ('T (SPADLET |c| (|objValUnwrap| |c|)) - (SPADLET |term| (|domainOne| |target|)) + ('T (setq |c| (|objValUnwrap| |c|)) + (setq |term| (|domainOne| |target|)) (DO ((|i| 0 (QSADD1 |i|)) (G166529 |syms| (CDR G166529)) (|sym| NIL)) @@ -601,15 +601,15 @@ all these coercion functions have the following result: NIL) (SEQ (EXIT (PROGN - (SPADLET |exp| (ELT |e| |i|)) + (setq |exp| (ELT |e| |i|)) (COND ((> (ELT |e| |i|) 0) - (SPADLET |term| + (setq |term| (SPADCALL |term| (SPADCALL |sym| (ELT |e| |i|) |expn|) |mult|)))))))) - (SPADLET |sum| + (setq |sum| (SPADCALL |sum| (SPADCALL |c| |term| |mult|) |plus|))))))) @@ -641,13 +641,13 @@ all these coercion functions have the following result: (PROG (|mp| |y| T$ |dmp| |x| S |source'| |u'| |plusfunc| |u''|) (RETURN (SEQ (PROGN - (SPADLET |mp| (CAR |target|)) - (SPADLET |y| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |dmp| (CAR |source|)) - (SPADLET |x| (CADR |source|)) - (SPADLET S (CADDR |source|)) - (SPADLET |source'| (CONS |dmp| (CONS |y| (CONS T$ NIL)))) + (setq |mp| (CAR |target|)) + (setq |y| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |dmp| (CAR |source|)) + (setq |x| (CADR |source|)) + (setq S (CADDR |source|)) + (setq |source'| (CONS |dmp| (CONS |y| (CONS T$ NIL)))) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND @@ -655,11 +655,11 @@ all these coercion functions have the following result: ('T (|canCoerce| |source'| |target|)))) ((NULL |u|) (|domainZero| |target|)) ((NEQUAL |x| |y|) - (OR (SPADLET |u'| + (OR (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) |source'|)) (|coercionFailure|)) - (OR (SPADLET |u'| (|coerceInt| |u'| |target|)) + (OR (setq |u'| (|coerceInt| |u'| |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) ((AND (BOOT-EQUAL |x| |y|) (EQL 1 (|#| |u|)) @@ -669,18 +669,18 @@ all these coercion functions have the following result: (CONS (CONS (ELT (CAAR |u|) 0) (CONS 0 (CDAR |u|))) NIL)))) - ((BOOT-EQUAL (SPADLET |u'| (|coerceDmpCoeffs| |u| S T$)) + ((BOOT-EQUAL (setq |u'| (|coerceDmpCoeffs| |u| S T$)) '|failed|) (|coercionFailure|)) ('T - (SPADLET |plusfunc| + (setq |plusfunc| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |u''| (|genMpFromDmpTerm| (ELT |u'| 0) 0)) + (setq |u''| (|genMpFromDmpTerm| (ELT |u'| 0) 0)) (DO ((G166590 (SPADDIFFERENCE (|#| |u'|) 1)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166590) NIL) - (SEQ (EXIT (SPADLET |u''| + (SEQ (EXIT (setq |u''| (SPADCALL |u''| (|genMpFromDmpTerm| (ELT |u'| |i|) 0) @@ -704,25 +704,25 @@ all these coercion functions have the following result: (RETURN (SEQ (COND ((BOOT-EQUAL S T$) |u|) - ('T (SPADLET |u'| NIL) (SPADLET |bad| NIL) + ('T (setq |u'| NIL) (setq |bad| NIL) (DO ((G166620 |u| (CDR G166620)) (G166611 NIL)) ((OR (ATOM G166620) (PROGN (SETQ G166611 (CAR G166620)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G166611)) - (SPADLET |c| (CDR G166611)) + (setq |e| (CAR G166611)) + (setq |c| (CDR G166611)) G166611) NIL)) NIL) (SEQ (EXIT (COND (|bad| NIL) - ((NULL (SPADLET |c'| + ((NULL (setq |c'| (|coerceInt| (mkObjWrap |c| S) T$))) - (RETURN (SPADLET |bad| 'T))) + (RETURN (setq |bad| 'T))) ('T - (SPADLET |u'| + (setq |u'| (CONS (CONS |e| (|objValUnwrap| |c'|)) @@ -745,32 +745,32 @@ all these coercion functions have the following result: (PROG (|vl'| |n| |pos| |e| |c| |e'| |u'|) (RETURN (SEQ (PROGN - (SPADLET |vl'| (REVERSE (MSORT |vl|))) - (SPADLET |n| (+ (SPADDIFFERENCE 1) (|#| |vl|))) - (SPADLET |pos| (LIST2VEC (|LZeros| (+ |n| 1)))) + (setq |vl'| (REVERSE (MSORT |vl|))) + (setq |n| (+ (SPADDIFFERENCE 1) (|#| |vl|))) + (setq |pos| (LIST2VEC (|LZeros| (+ |n| 1)))) (DO ((|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (SETELT |pos| |i| (|position| (ELT |vl| |i|) |vl'|))))) - (SPADLET |u'| NIL) + (setq |u'| NIL) (DO ((G166656 |u| (CDR G166656)) (G166638 NIL)) ((OR (ATOM G166656) (PROGN (SETQ G166638 (CAR G166656)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G166638)) - (SPADLET |c| (CDR G166638)) + (setq |e| (CAR G166638)) + (setq |c| (CDR G166638)) G166638) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |e'| + (setq |e'| (LIST2VEC (|LZeros| (+ |n| 1)))) (DO ((|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (SETELT |e'| (ELT |pos| |i|) (ELT |e| |i|))))) - (SPADLET |u'| (CONS (CONS |e'| |c|) |u'|)))))) + (setq |u'| (CONS (CONS |e'| |c|) |u'|)))))) (REVERSE |u'|)))))) ;domain2NDmp(u, source, target is [., y, T]) == @@ -786,18 +786,18 @@ all these coercion functions have the following result: (PROG (|y| T$ |target'| |u'| |u''|) (RETURN (PROGN - (SPADLET |y| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |target'| + (setq |y| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |target'| (CONS '|DistributedMultivariatePolynomial| (CONS |y| (CONS T$ NIL)))) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| |target'|)) - ((SPADLET |u'| + ((setq |u'| (|coerceInt| (mkObjWrap |u| |source|) |target'|)) (COND - ((SPADLET |u''| (|coerceInt| |u'| |target|)) + ((setq |u''| (|coerceInt| |u'| |target|)) (|objValUnwrap| |u''|)) ('T (|coercionFailure|)))) ('T (|coercionFailure|))))))) @@ -814,19 +814,19 @@ all these coercion functions have the following result: (PROG (|ndmp| |y| T$ |dmp| |x| S |target'| |u'|) (RETURN (PROGN - (SPADLET |ndmp| (CAR |target|)) - (SPADLET |y| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |dmp| (CAR |source|)) - (SPADLET |x| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |ndmp| (CAR |target|)) + (setq |y| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |dmp| (CAR |source|)) + (setq |x| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((NULL |u|) (|domainZero| |target|)) - ('T (SPADLET |target'| (CONS |dmp| (CONS |y| (CONS T$ NIL)))) + ('T (setq |target'| (CONS |dmp| (CONS |y| (CONS T$ NIL)))) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|Dmp2Dmp| |u| |source| |target'|)) - ((SPADLET |u'| (|Dmp2Dmp| |u| |source| |target'|)) + ((setq |u'| (|Dmp2Dmp| |u| |source| |target'|)) (|addDmpLikeTermsAsTarget| |u'| |target|)) ('T (|coercionFailure|))))))))) @@ -840,15 +840,15 @@ all these coercion functions have the following result: (PROG (|func| |u'|) (RETURN (SEQ (PROGN - (SPADLET |u'| (|domainZero| |target|)) - (SPADLET |func| + (setq |u'| (|domainZero| |target|)) + (setq |func| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) (DO ((G166739 |u| (CDR G166739)) (|t| NIL)) ((OR (ATOM G166739) (PROGN (SETQ |t| (CAR G166739)) NIL)) NIL) - (SEQ (EXIT (SPADLET |u'| + (SEQ (EXIT (setq |u'| (SPADCALL |u'| (CONS |t| NIL) |func|))))) |u'|))))) @@ -900,54 +900,54 @@ all these coercion functions have the following result: |t| |u'|) (RETURN (SEQ (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET |dmp| (CAR |source|)) - (SPADLET |vl| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq T$ (CADR |target|)) + (setq |dmp| (CAR |source|)) + (setq |vl| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((NULL |u|) (|domainZero| |target|)) ((BOOT-EQUAL |u| '|$fromCoerceable$|) - (SPADLET |t| (|canCoerce| S T$)) + (setq |t| (|canCoerce| S T$)) (COND ((NULL |t|) (|canCoerce| S |target|)) ('T |t|))) ((AND (CONSP S) (EQ (QCAR S) '|Polynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR S)) + (setq |ISTMP#1| (QCDR S)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))) - (SPADLET |mp| + (setq |mp| (OR (|coerceInt| (mkObjWrap |u| |source|) (CONS '|MultivariatePolynomial| (CONS |vl| (CONS S NIL)))) (|coercionFailure|))) - (SPADLET |p| + (setq |p| (OR (|coerceInt| |mp| |target|) (|coercionFailure|))) (|objValUnwrap| |p|)) ((AND (EQL 1 (|#| |u|)) (EQL 1 (|#| |vl|)) (BOOT-EQUAL S T$)) (COND - ((EQL (SPADLET |lexp| (ELT (CAAR |u|) 0)) 0) + ((EQL (setq |lexp| (ELT (CAAR |u|) 0)) 0) (CONS 1 (CDAR |u|))) ('T (CONS 1 (CONS (ELT |vl| 0) (CONS (CONS |lexp| (CONS 0 (CDAR |u|))) NIL)))))) - ('T (SPADLET |vl'| (REVERSE (MSORT |vl|))) - (SPADLET |source'| + ('T (setq |vl'| (REVERSE (MSORT |vl|))) + (setq |source'| (CONS |dmp| (CONS |vl'| (CONS S NIL)))) - (SPADLET |target'| + (setq |target'| (CONS '|MultivariatePolynomial| (CONS |vl'| (CONS S NIL)))) - (SPADLET |u'| (|sortAndReorderDmpExponents| |u| |vl|)) - (SPADLET |u'| + (setq |u'| (|sortAndReorderDmpExponents| |u| |vl|)) + (setq |u'| (|coerceInt| (mkObjWrap |u'| |source'|) |target'|)) (COND - (|u'| (SPADLET |u'| + (|u'| (setq |u'| (|translateMpVars2PVars| (|objValUnwrap| |u'|) |vl'|)) - (SPADLET |u'| + (setq |u'| (|coerceInt| (mkObjWrap |u'| (CONS '|Polynomial| (CONS S NIL))) @@ -955,14 +955,14 @@ all these coercion functions have the following result: (COND (|u'| (|objValUnwrap| |u'|)) ('T - (SPADLET |source'| + (setq |source'| (CONS |dmp| (CONS |vl| (CONS T$ NIL)))) - (SPADLET |u'| (|domainZero| |target|)) - (SPADLET |oneT| (|domainOne| T$)) - (SPADLET |plusfunc| + (setq |u'| (|domainZero| |target|)) + (setq |oneT| (|domainOne| T$)) + (setq |plusfunc| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |multfunc| + (setq |multfunc| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) (DO ((G166802 |u| (CDR G166802)) @@ -973,29 +973,29 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| (CAR G166758)) - (SPADLET |c| (CDR G166758)) + (setq |e| (CAR G166758)) + (setq |c| (CDR G166758)) G166758) NIL)) NIL) (SEQ (EXIT (PROGN - (OR (SPADLET |c'| + (OR (setq |c'| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) - (OR (SPADLET |e'| + (OR (setq |e'| (|coerceInt| (mkObjWrap (CONS (CONS |e| |oneT|) NIL) |source'|) |target|)) (|coercionFailure|)) - (SPADLET |t| + (setq |t| (SPADCALL (|objValUnwrap| |e'|) (|objValUnwrap| |c'|) |multfunc|)) - (SPADLET |u'| + (setq |u'| (SPADCALL |u'| |t| |plusfunc|)))))) (|coercionFailure|)))))))))) @@ -1012,16 +1012,16 @@ all these coercion functions have the following result: (SEQ (COND ((AND (CONSP |u|) (EQUAL (QCAR |u|) 1) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |v| (QCAR |ISTMP#1|)) - (SPADLET |termlist| (QCDR |ISTMP#1|)) + (setq |v| (QCAR |ISTMP#1|)) + (setq |termlist| (QCDR |ISTMP#1|)) 'T)))) (CONS 1 (CONS (ELT |vl| (SPADDIFFERENCE |v| 1)) (PROG (G166857) - (SPADLET G166857 NIL) + (setq G166857 NIL) (RETURN (DO ((G166863 |termlist| (CDR G166863)) @@ -1032,8 +1032,8 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| (CAR G166847)) - (SPADLET |c| (CDR G166847)) + (setq |e| (CAR G166847)) + (setq |c| (CDR G166847)) G166847) NIL)) (NREVERSE0 G166857)) @@ -1098,18 +1098,18 @@ all these coercion functions have the following result: |zero| |pos| |e| |c| |exp| |e1| |y| |p| |c'| |x|) (RETURN (SEQ (PROGN - (SPADLET |up| (CAR |target|)) - (SPADLET |var| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |dmp| (CAR |source|)) - (SPADLET |vl| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |up| (CAR |target|)) + (setq |var| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |dmp| (CAR |source|)) + (setq |vl| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((NULL |u|) (|domainZero| |target|)) ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND ((|member| |var| |vl|) - (SPADLET |vl'| (|remove| |vl| |var|)) + (setq |vl'| (|remove| |vl| |var|)) (COND ((NULL |vl'|) (|canCoerce| S T$)) ((NULL (CDR |vl'|)) @@ -1122,14 +1122,14 @@ all these coercion functions have the following result: ('T (|canCoerce| |source| T$)))) ((AND (NULL (CDR |u|)) (PROGN - (SPADLET |ISTMP#1| (CAR |u|)) + (setq |ISTMP#1| (CAR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |e| (QCAR |ISTMP#1|)) - (SPADLET |c| (QCDR |ISTMP#1|)) + (setq |e| (QCAR |ISTMP#1|)) + (setq |c| (QCDR |ISTMP#1|)) 'T))) (PROG (G166951) - (SPADLET G166951 'T) + (setq G166951 'T) (RETURN (DO ((G166957 NIL (NULL G166951)) (G166958 @@ -1140,25 +1140,25 @@ all these coercion functions have the following result: (SEQ (EXIT (SETQ G166951 (AND G166951 (EQL 0 (ELT |e| |i|)))))))))) - (OR (SPADLET |x| + (OR (setq |x| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) (|objValUnwrap| |x|)) ((NULL (|member| |var| |vl|)) - (OR (SPADLET |u'| + (OR (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) T$)) (|coercionFailure|)) (CONS (CONS 0 (|objValUnwrap| |u'|)) NIL)) - ('T (SPADLET |vl'| (|remove| |vl| |var|)) + ('T (setq |vl'| (|remove| |vl| |var|)) (COND ((NULL |vl'|) - (SPADLET |u'| + (setq |u'| (NREVERSE (SORTBY 'CAR (PROG (G166968) - (SPADLET G166968 NIL) + (setq G166968 NIL) (RETURN (DO ((G166974 |u| @@ -1171,9 +1171,9 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| + (setq |e| (CAR G166891)) - (SPADLET |c| + (setq |c| (CDR G166891)) G166891) NIL)) @@ -1185,7 +1185,7 @@ all these coercion functions have the following result: (CONS (ELT |e| 0) |c|) G166968)))))))))) - (OR (SPADLET |u'| + (OR (setq |u'| (|coerceInt| (mkObjWrap |u'| (CONS |up| @@ -1194,13 +1194,13 @@ all these coercion functions have the following result: (|coercionFailure|)) (|objValUnwrap| |u'|)) ('T - (SPADLET S1 (CONS |dmp| (CONS |vl'| (CONS S NIL)))) - (SPADLET |plusfunc| + (setq S1 (CONS |dmp| (CONS |vl'| (CONS S NIL)))) + (setq |plusfunc| (|getFunctionFromDomain| '+ T$ (CONS T$ (CONS T$ NIL)))) - (SPADLET |zero| + (setq |zero| (|getConstantFromDomain| '(|Zero|) T$)) - (SPADLET |x| NIL) (SPADLET |pos| (POSN1 |var| |vl|)) + (setq |x| NIL) (setq |pos| (POSN1 |var| |vl|)) (DO ((G166989 |u| (CDR G166989)) (G166899 NIL) (G166990 NIL (NULL |y|))) ((OR (ATOM G166989) @@ -1209,39 +1209,39 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| (CAR G166899)) - (SPADLET |c| (CDR G166899)) + (setq |e| (CAR G166899)) + (setq |c| (CDR G166899)) G166899) NIL) G166990) NIL) (SEQ (EXIT (PROGN - (SPADLET |exp| (ELT |e| |pos|)) - (SPADLET |e1| + (setq |exp| (ELT |e| |pos|)) + (setq |e1| (|removeVectorElt| |e| |pos|)) (COND - ((SPADLET |y| + ((setq |y| (|coerceInt| (mkObjWrap (CONS (CONS |e1| |c|) NIL) S1) T$)) (COND - ((SPADLET |p| (ASSQ |exp| |x|)) - (SPADLET |c'| + ((setq |p| (ASSQ |exp| |x|)) + (setq |c'| (SPADCALL (CDR |p|) (|objValUnwrap| |y|) |plusfunc|)) (COND ((BOOT-EQUAL |c'| |zero|) - (SPADLET |x| + (setq |x| (REMALIST |x| |exp|))) ('T (RPLACD |p| |c'|)))) ((BOOT-EQUAL |zero| (|objValUnwrap| |y|)) '|iterate|) ('T - (SPADLET |x| + (setq |x| (CONS (CONS |exp| (|objValUnwrap| |y|)) @@ -1259,7 +1259,7 @@ all these coercion functions have the following result: (RETURN (SEQ (LIST2VEC (PROG (G167040) - (SPADLET G167040 NIL) + (setq G167040 NIL) (RETURN (DO ((G167047 (VEC2LIST |v|) (CDR G167047)) (|x| NIL) (|y| 0 (QSADD1 |y|))) @@ -1297,20 +1297,20 @@ all these coercion functions have the following result: (PROG (|ndmp| |x| S |dmp| |source'| |u'| |u''|) (RETURN (PROGN - (SPADLET |ndmp| (CAR |source|)) - (SPADLET |x| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |ndmp| (CAR |source|)) + (setq |x| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((NULL |u|) (|domainZero| |target|)) - ('T (SPADLET |dmp| '|DistributedMultivariatePolynomial|) - (SPADLET |source'| (CONS |dmp| (CONS |x| (CONS S NIL)))) + ('T (setq |dmp| '|DistributedMultivariatePolynomial|) + (setq |source'| (CONS |dmp| (CONS |x| (CONS S NIL)))) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source'| |target|)) ('T - (SPADLET |u'| (|addDmpLikeTermsAsTarget| |u| |source'|)) + (setq |u'| (|addDmpLikeTermsAsTarget| |u| |source'|)) (COND - ((SPADLET |u''| + ((setq |u''| (|coerceInt| (mkObjWrap |u'| |source'|) |target|)) (|objValUnwrap| |u''|)) @@ -1332,23 +1332,23 @@ all these coercion functions have the following result: (PROG (|y| T$ |ndmp| |x| S |dmp| |source'| |target'| |u'| |u''|) (RETURN (PROGN - (SPADLET |y| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |ndmp| (CAR |source|)) - (SPADLET |x| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |y| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |ndmp| (CAR |source|)) + (setq |x| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((NULL |u|) (|domainZero| |target|)) - ('T (SPADLET |dmp| '|DistributedMultivariatePolynomial|) - (SPADLET |source'| (CONS |dmp| (CONS |x| (CONS S NIL)))) - (SPADLET |target'| (CONS |dmp| (CONS |y| (CONS T$ NIL)))) + ('T (setq |dmp| '|DistributedMultivariatePolynomial|) + (setq |source'| (CONS |dmp| (CONS |x| (CONS S NIL)))) + (setq |target'| (CONS |dmp| (CONS |y| (CONS T$ NIL)))) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source'| |target'|)) ('T - (SPADLET |u'| (|addDmpLikeTermsAsTarget| |u| |source'|)) + (setq |u'| (|addDmpLikeTermsAsTarget| |u| |source'|)) (COND - ((SPADLET |u''| + ((setq |u''| (|coerceInt| (mkObjWrap |u'| |source'|) |target'|)) (|addDmpLikeTermsAsTarget| (|objValUnwrap| |u''|) @@ -1374,8 +1374,8 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$DoubleFloat| |$Float|)) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) NIL) ((NULL (|member| S @@ -1386,15 +1386,15 @@ all these coercion functions have the following result: (CONS |$Float| (CONS |$DoubleFloat| NIL)))) (|coercionFailure|)) ('T - (SPADLET |complexNumeric| + (setq |complexNumeric| (|getFunctionFromDomain| '|complexNumeric| (CONS '|Numeric| (CONS S NIL)) (CONS |source| NIL))) - (SPADLET |cf| (SPADCALL |u| |complexNumeric|)) + (setq |cf| (SPADCALL |u| |complexNumeric|)) (COND ((BOOT-EQUAL T$ |$DoubleFloat|) (COND - ((NULL (SPADLET |z| + ((NULL (setq |z| (|coerceInt| (mkObjWrap |cf| (CONS '|Complex| @@ -1444,25 +1444,25 @@ all these coercion functions have the following result: |plus| |sum|) (RETURN (SEQ (PROGN - (SPADLET |dmp| (CAR |target|)) - (SPADLET |v2| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |Expr| (CAR |source|)) - (SPADLET S (CADR |source|)) + (setq |dmp| (CAR |target|)) + (setq |v2| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |Expr| (CAR |source|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| T$)) ((NULL |v2|) (COND - ((NULL (SPADLET |z| + ((NULL (setq |z| (|coerceInt| (mkObjWrap |u| |source|) T$))) (|coercionFailure|)) ('T (CONS (CONS (LIST2VEC NIL) (|objValUnwrap| |z|)) NIL)))) - ('T (SPADLET |obj| (mkObjWrap |u| |source|)) - (SPADLET |univ| + ('T (setq |obj| (mkObjWrap |u| |source|)) + (setq |univ| (|coerceInt| |obj| (CONS '|UnivariatePolynomial| (CONS (CAR |v2|) (CONS T$ NIL))))) @@ -1470,12 +1470,12 @@ all these coercion functions have the following result: ((NULL |univ|) (COND ((BOOT-EQUAL T$ |source|) (|coercionFailure|)) - ((NULL (SPADLET |z| + ((NULL (setq |z| (|coerceInt| |obj| (CONS |dmp| (CONS |v2| (CONS |source| NIL)))))) (|coercionFailure|)) - ('T (SPADLET |z| (|objValUnwrap| |z|)) + ('T (setq |z| (|objValUnwrap| |z|)) (DO ((G167192 |z| (CDR G167192)) (|term| NIL)) ((OR (ATOM G167192) @@ -1484,10 +1484,10 @@ all these coercion functions have the following result: NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |c| (CDR |term|)) + (setq |c| (CDR |term|)) (COND ((NULL - (SPADLET |c| + (setq |c| (|coerceInt| (mkObjWrap |c| |source|) T$))) @@ -1496,7 +1496,7 @@ all these coercion functions have the following result: (RPLACD |term| (|objValUnwrap| |c|)))))))) |z|))) - ('T (SPADLET |univ| (|objValUnwrap| |univ|)) + ('T (setq |univ| (|objValUnwrap| |univ|)) (COND ((NULL (CDR |v2|)) (DO ((G167201 |univ| (CDR G167201)) @@ -1509,7 +1509,7 @@ all these coercion functions have the following result: (SEQ (EXIT (RPLACA |term| (VECTOR (CAR |term|)))))) |univ|) - ('T (SPADLET |summands| NIL) + ('T (setq |summands| NIL) (DO ((G167211 |univ| (CDR G167211)) (G167150 NIL)) ((OR (ATOM G167211) @@ -1518,17 +1518,17 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| (CAR G167150)) - (SPADLET |c| (CDR G167150)) + (setq |e| (CAR G167150)) + (setq |c| (CDR G167150)) G167150) NIL)) NIL) - (SEQ (EXIT (SPADLET |summands| + (SEQ (EXIT (setq |summands| (|Expr2Dmp1| |summands| (LIST2VEC (CONS |e| (PROG (G167222) - (SPADLET G167222 NIL) + (setq G167222 NIL) (RETURN (DO ((G167227 (CDR |v2|) @@ -1545,10 +1545,10 @@ all these coercion functions have the following result: (SETQ G167222 (CONS 0 G167222))))))))) |c| T$ 1 (CDR |v2|) T$))))) - (SPADLET |plus| + (setq |plus| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |sum| (|domainZero| |target|)) + (setq |sum| (|domainZero| |target|)) (DO ((G167236 |summands| (CDR G167236)) (|summand| NIL)) ((OR (ATOM G167236) @@ -1556,7 +1556,7 @@ all these coercion functions have the following result: (SETQ |summand| (CAR G167236)) NIL)) NIL) - (SEQ (EXIT (SPADLET |sum| + (SEQ (EXIT (setq |sum| (SPADCALL (CONS |summand| NIL) |sum| |plus|))))) |sum|))))))))))) @@ -1586,33 +1586,33 @@ all these coercion functions have the following result: (COND ((NULL (BOOT-EQUAL |source| T$)) (COND - ((NULL (SPADLET |c| + ((NULL (setq |c| (|coerceInt| (mkObjWrap |c| |source|) T$))) (|coercionFailure|)) - ('T (SPADLET |c| (|objValUnwrap| |c|)))))) - (SPADLET |summands| (CONS (CONS |vec| |c|) |summands|))) + ('T (setq |c| (|objValUnwrap| |c|)))))) + (setq |summands| (CONS (CONS |vec| |c|) |summands|))) ('T - (SPADLET |univ| + (setq |univ| (|coerceInt| (mkObjWrap |c| |source|) (CONS '|UnivariatePolynomial| (CONS (CAR |varList|) (CONS T$ NIL))))) - (SPADLET |univ| (|objValUnwrap| |univ|)) + (setq |univ| (|objValUnwrap| |univ|)) (DO ((G167282 |univ| (CDR G167282)) (G167269 NIL)) ((OR (ATOM G167282) (PROGN (SETQ G167269 (CAR G167282)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G167269)) - (SPADLET |c| (CDR G167269)) + (setq |e| (CAR G167269)) + (setq |c| (CDR G167269)) G167269) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |vec| (COPY-SEQ |vec|)) + (setq |vec| (COPY-SEQ |vec|)) (SETELT |vec| |index| |e|) - (SPADLET |summands| + (setq |summands| (|Expr2Dmp1| |summands| |vec| |c| T$ (+ |index| 1) (CDR |varList|) T$)))))))) @@ -1629,20 +1629,20 @@ all these coercion functions have the following result: (PROG (|v2| T$ |Expr| S |dmp| |d| |m|) (RETURN (PROGN - (SPADLET |v2| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |Expr| (CAR |source|)) - (SPADLET S (CADR |source|)) + (setq |v2| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |Expr| (CAR |source|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| T$)) ('T - (SPADLET |dmp| + (setq |dmp| (CONS '|DistributedMultivariatePolynomial| (CONS |v2| (CONS T$ NIL)))) - (SPADLET |d| (|Expr2Dmp| |u| |source| |dmp|)) + (setq |d| (|Expr2Dmp| |u| |source| |dmp|)) (COND - ((NULL (SPADLET |m| + ((NULL (setq |m| (|coerceInt| (mkObjWrap |d| |dmp|) |target|))) (|coercionFailure|)) @@ -1674,26 +1674,26 @@ all these coercion functions have the following result: |denom| |numer| |uniType| |z|) (RETURN (SEQ (PROGN - (SPADLET |var| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |Expr| (CAR |source|)) - (SPADLET S (CADR |source|)) + (setq |var| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |Expr| (CAR |source|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| T$)) ('T - (SPADLET |kernelFunc| + (setq |kernelFunc| (|getFunctionFromDomain| '|kernels| |source| (CONS |source| NIL))) - (SPADLET |kernelDom| + (setq |kernelDom| (CONS '|Kernel| (CONS |source| NIL))) - (SPADLET |nameFunc| + (setq |nameFunc| (|getFunctionFromDomain| '|name| |kernelDom| (CONS |kernelDom| NIL))) - (SPADLET |kernels| (SPADCALL |u| |kernelFunc|)) - (SPADLET |v1| + (setq |kernels| (SPADCALL |u| |kernelFunc|)) + (setq |v1| (PROG (G167357) - (SPADLET G167357 NIL) + (setq G167357 NIL) (RETURN (DO ((G167362 |kernels| (CDR G167362)) (|kernel| NIL)) @@ -1710,27 +1710,27 @@ all these coercion functions have the following result: (COND ((NULL (|member| |var| |v1|)) (|coercionFailure|)) ('T - (SPADLET |varKernel| + (setq |varKernel| (ELT |kernels| (POSN1 |var| |v1|))) - (SPADLET |univFunc| + (setq |univFunc| (|getFunctionFromDomain| '|univariate| |source| (CONS |source| (CONS |kernelDom| NIL)))) - (SPADLET |sup| + (setq |sup| (CONS '|SparseUnivariatePolynomial| (CONS |source| NIL))) - (SPADLET |fracUniv| + (setq |fracUniv| (SPADCALL |u| |varKernel| |univFunc|)) - (SPADLET |denom| (CDR |fracUniv|)) + (setq |denom| (CDR |fracUniv|)) (COND ((NULL (|equalOne| |denom| |sup|)) (|coercionFailure|)) - ('T (SPADLET |numer| (CAR |fracUniv|)) - (SPADLET |uniType| + ('T (setq |numer| (CAR |fracUniv|)) + (setq |uniType| (CONS '|UnivariatePolynomial| (CONS |var| (CONS |source| NIL)))) (COND - ((SPADLET |z| + ((setq |z| (|coerceInt| (mkObjWrap |numer| |uniType|) |target|)) @@ -1751,21 +1751,21 @@ all these coercion functions have the following result: (PROG (T$ S |m| |u'| |m'| |u''| |m''|) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S T$)) - ((NULL (SPADLET |m| + ((NULL (setq |m| (|coerceInt| (mkObjWrap |u| |source|) S))) (|coercionFailure|)) - ('T (SPADLET |u'| (|objValUnwrap| |m|)) + ('T (setq |u'| (|objValUnwrap| |m|)) (COND - ((NULL (SPADLET |m'| + ((NULL (setq |m'| (|coerceInt| (mkObjWrap |u'| S) T$))) (|coercionFailure|)) - ('T (SPADLET |u''| (|objValUnwrap| |m'|)) + ('T (setq |u''| (|objValUnwrap| |m'|)) (COND - ((NULL (SPADLET |m''| + ((NULL (setq |m''| (|coerceInt| (mkObjWrap |u''| T$) |target|))) (|coercionFailure|)) @@ -1782,17 +1782,17 @@ all these coercion functions have the following result: (PROG (S |m| |u'| |m'|) (RETURN (PROGN - (SPADLET S (CADR |source|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S |target|)) - ((NULL (SPADLET |m| + ((NULL (setq |m| (|coerceByFunction| (mkObjWrap |u| |source|) S))) (|coercionFailure|)) - ('T (SPADLET |u'| (|objValUnwrap| |m|)) + ('T (setq |u'| (|objValUnwrap| |m|)) (COND - ((NULL (SPADLET |m'| + ((NULL (setq |m'| (|coerceInt| (mkObjWrap |u'| S) |target|))) (|coercionFailure|)) @@ -1815,22 +1815,22 @@ all these coercion functions have the following result: (PROG (|oldargmode| |newargmode| |u'| |unit'| |factors| |factors'|) (RETURN (SEQ (PROGN - (SPADLET |oldargmode| (CADR |oldmode|)) - (SPADLET |newargmode| (CADR |newmode|)) + (setq |oldargmode| (CADR |oldmode|)) + (setq |newargmode| (CADR |newmode|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |oldargmode| |newargmode|)) - ('T (SPADLET |u'| (|unwrap| |u|)) - (SPADLET |unit'| + ('T (setq |u'| (|unwrap| |u|)) + (setq |unit'| (|coerceInt| (mkObjWrap (CAR |u'|) |oldargmode|) |newargmode|)) (COND ((NULL |unit'|) (|coercionFailure|)) - ('T (SPADLET |factors| (KDR |u'|)) - (SPADLET |factors'| + ('T (setq |factors| (KDR |u'|)) + (setq |factors'| (PROG (G167438) - (SPADLET G167438 NIL) + (setq G167438 NIL) (RETURN (DO ((G167443 |factors| (CDR G167443)) @@ -1860,7 +1860,7 @@ all these coercion functions have the following result: (PROG (|fac'|) (RETURN (PROGN - (SPADLET |fac'| + (setq |fac'| (|coerceInt| (mkObjWrap (ELT |ffe| 1) |oldmode|) |newmode|)) (COND @@ -1885,16 +1885,16 @@ all these coercion functions have the following result: (PROG (S |r| |i| |LETTMP#1| |r'|) (RETURN (PROGN - (SPADLET S (CADR G167474)) + (setq S (CADR G167474)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) NIL) - ('T (SPADLET |r| (CAR |u|)) (SPADLET |i| (CDR |u|)) + ('T (setq |r| (CAR |u|)) (setq |i| (CDR |u|)) (COND ((BOOT-EQUAL |i| (|domainZero| S)) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (OR (|coerceInt| (mkObjWrap |r| S) |target|) (|coercionFailure|))) - (SPADLET |r'| (CAR |LETTMP#1|)) |r'|) + (setq |r'| (CAR |LETTMP#1|)) |r'|) ('T (|coercionFailure|))))))))) ;Complex2FR(u,S is [.,R],target is [.,T]) == @@ -1914,8 +1914,8 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer|)) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET R (CADR S)) + (setq T$ (CADR |target|)) + (setq R (CADR S)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND @@ -1924,12 +1924,12 @@ all these coercion functions have the following result: ('T NIL))) ((NEQUAL S T$) (|coercionFailure|)) ('T - (SPADLET |package| + (setq |package| (COND ((BOOT-EQUAL R |$Integer|) (CONS '|GaussianFactorizationPackage| NIL)) ('T (|coercionFailure|)))) - (SPADLET |factor| + (setq |factor| (|getFunctionFromDomain| '|factor| |package| (CONS S NIL))) (SPADCALL |u| |factor|))))))) @@ -1966,60 +1966,60 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer|)) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (OR (AND (CONSP T$) (EQ (QCAR T$) '|Complex|) (PROGN - (SPADLET |ISTMP#1| (QCDR T$)) + (setq |ISTMP#1| (QCDR T$)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET T1 (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq T1 (QCAR |ISTMP#1|)) 'T))) (|canCoerceFrom| S T1)) (|coercionFailure|))) - ('T (SPADLET E (|defaultTargetFE| |source|)) - (SPADLET |negOne| + ('T (setq E (|defaultTargetFE| |source|)) + (setq |negOne| (|coerceInt| (mkObjWrap (SPADDIFFERENCE 1) |$Integer|) E)) (COND ((NULL |negOne|) (|coercionFailure|)) ('T - (SPADLET |sqrtFun| + (setq |sqrtFun| (|getFunctionFromDomain| '|sqrt| E (CONS E NIL))) - (SPADLET |i| + (setq |i| (SPADCALL (|objValUnwrap| |negOne|) |sqrtFun|)) - (SPADLET |realFun| + (setq |realFun| (|getFunctionFromDomain| '|real| |source| (CONS |source| NIL))) - (SPADLET |imagFun| + (setq |imagFun| (|getFunctionFromDomain| '|imag| |source| (CONS |source| NIL))) - (SPADLET |real| (SPADCALL |u| |realFun|)) - (SPADLET |imag| (SPADCALL |u| |imagFun|)) - (SPADLET |realExp| + (setq |real| (SPADCALL |u| |realFun|)) + (setq |imag| (SPADCALL |u| |imagFun|)) + (setq |realExp| (|coerceInt| (mkObjWrap |real| S) E)) (COND ((NULL |realExp|) (|coercionFailure|)) ('T - (SPADLET |imagExp| + (setq |imagExp| (|coerceInt| (mkObjWrap |imag| S) E)) (COND ((NULL |imagExp|) (|coercionFailure|)) ('T - (SPADLET |timesFun| + (setq |timesFun| (|getFunctionFromDomain| '* E (CONS E (CONS E NIL)))) - (SPADLET |plusFun| + (setq |plusFun| (|getFunctionFromDomain| '+ E (CONS E (CONS E NIL)))) - (SPADLET |newVal| + (setq |newVal| (SPADCALL (|objValUnwrap| |realExp|) (SPADCALL |i| (|objValUnwrap| |imagExp|) |timesFun|) |plusFun|)) - (SPADLET |newObj| (mkObjWrap |newVal| E)) - (SPADLET |finalObj| + (setq |newObj| (mkObjWrap |newVal| E)) + (setq |finalObj| (|coerceInt| |newObj| |target|)) (COND (|finalObj| (|objValUnwrap| |finalObj|)) @@ -2081,11 +2081,11 @@ all these coercion functions have the following result: (PROG (T$ S |object|) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |val| '|$fromCoerceable$|) (|canCoerce| S T$)) - ((NULL (SPADLET |object| + ((NULL (setq |object| (|coerceInt1| (mkObjWrap |val| |source|) (CONS '|List| (CONS T$ NIL))))) (|coercionFailure|)) @@ -2103,14 +2103,14 @@ all these coercion functions have the following result: (PROG (|n| T$ S |v|) (RETURN (PROGN - (SPADLET |n| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET S (CADR |source|)) + (setq |n| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |l| '|$fromCoerceable$|) NIL) ((NEQUAL |n| (SIZE |l|)) (|coercionFailure|)) ('T - (OR (SPADLET |v| + (OR (setq |v| (|coerceInt| (mkObjWrap (LIST2VEC |l|) (CONS '|Vector| (CONS S NIL))) @@ -2132,18 +2132,18 @@ all these coercion functions have the following result: (PROG (|n| T$ S |v1| |dpFun|) (RETURN (PROGN - (SPADLET |n| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET S (CADR |source|)) + (setq |n| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |v| '|$fromCoerceable$|) NIL) ((NEQUAL |n| (SIZE |v|)) (|coercionFailure|)) ('T - (OR (SPADLET |v1| + (OR (setq |v1| (|coerceInt| (mkObjWrap |v| |source|) (CONS '|Vector| (CONS T$ NIL)))) (|coercionFailure|)) - (SPADLET |dpFun| + (setq |dpFun| (|getFunctionFromDomain| '|directProduct| |target| (CONS (CONS '|Vector| (CONS T$ NIL)) NIL))) (SPADCALL (|objValUnwrap| |v1|) |dpFun|))))))) @@ -2158,12 +2158,12 @@ all these coercion functions have the following result: (PROG (T$ S |v|) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |l| '|$fromCoerceable$|) (|canCoerce| S T$)) ('T - (OR (SPADLET |v| + (OR (setq |v| (|coerceInt| (mkObjWrap (LIST2VEC |l|) (CONS '|Vector| (CONS S NIL))) @@ -2181,12 +2181,12 @@ all these coercion functions have the following result: (PROG (T$ S |l|) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |v| '|$fromCoerceable$|) (|canCoerce| S T$)) ('T - (OR (SPADLET |l| + (OR (setq |l| (|coerceInt| (mkObjWrap (VEC2LIST |v|) (CONS '|List| (CONS S NIL))) @@ -2211,24 +2211,24 @@ all these coercion functions have the following result: (PROG (R D |ISTMP#1| E |y'| |x'| |u'|) (RETURN (SEQ (PROGN - (SPADLET R (CADR G167722)) - (SPADLET D (CADR G167711)) + (setq R (CADR G167722)) + (setq D (CADR G167711)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) NIL) ((AND (CONSP D) (EQ (QCAR D) '|List|) (PROGN - (SPADLET |ISTMP#1| (QCDR D)) + (setq |ISTMP#1| (QCDR D)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET E (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq E (QCAR |ISTMP#1|)) 'T))) (|isRectangularList| |u| (|#| |u|) (|#| (CAR |u|)))) - (SPADLET |u'| NIL) + (setq |u'| NIL) (DO ((G167744 |u| (CDR G167744)) (|x| NIL)) ((OR (ATOM G167744) (PROGN (SETQ |x| (CAR G167744)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |x'| NIL) + (setq |x'| NIL) (DO ((G167755 |x| (CDR G167755)) (|y| NIL)) ((OR (ATOM G167755) @@ -2239,14 +2239,14 @@ all these coercion functions have the following result: (SEQ (EXIT (PROGN (OR - (SPADLET |y'| + (setq |y'| (|coerceInt| (mkObjWrap |y| E) R)) (|coercionFailure|)) - (SPADLET |x'| + (setq |x'| (CONS (|objValUnwrap| |y'|) |x'|)))))) - (SPADLET |u'| + (setq |u'| (CONS (LIST2VEC (REVERSE |x'|)) |u'|)))))) (LIST2VEC (REVERSE |u'|))) @@ -2267,14 +2267,14 @@ all these coercion functions have the following result: (PROG (|al| D |D'| T$ |v|) (RETURN (SEQ (PROGN - (SPADLET |al| (CDR G167791)) - (SPADLET D (CADR G167782)) + (setq |al| (CDR G167791)) + (setq D (CADR G167782)) (COND ((BOOT-EQUAL |l| '|$fromCoerceable$|) NIL) ((BOOT-EQUAL (|#| |l|) (|#| |al|)) - (SPADLET |v| + (setq |v| (PROG (G167811) - (SPADLET G167811 NIL) + (setq G167811 NIL) (RETURN (DO ((G167820 |l| (CDR G167820)) (|x| NIL) @@ -2291,7 +2291,7 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |D'| + (setq |D'| (CADDR G167774)) G167774) NIL)) @@ -2300,7 +2300,7 @@ all these coercion functions have the following result: (SETQ G167811 (CONS (PROGN - (SPADLET T$ + (setq T$ (OR (|coerceInt| (mkObjWrap |x| D) |D'|) @@ -2323,17 +2323,17 @@ all these coercion functions have the following result: (PROG (|n| |m| R D |ISTMP#1| E) (RETURN (PROGN - (SPADLET |n| (CADR |target|)) - (SPADLET |m| (CADDR |target|)) - (SPADLET R (CADDDR |target|)) - (SPADLET D (CADR |source|)) + (setq |n| (CADR |target|)) + (setq |m| (CADDR |target|)) + (setq R (CADDDR |target|)) + (setq D (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) NIL) ((AND (CONSP D) (EQ (QCAR D) '|List|) (PROGN - (SPADLET |ISTMP#1| (QCDR D)) + (setq |ISTMP#1| (QCDR D)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET E (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq E (QCAR |ISTMP#1|)) 'T))) (|isRectangularList| |u| |n| |m|)) (L2M |u| |source| (CONS '|Matrix| (CONS R NIL)))) ('T (|coercionFailure|))))))) @@ -2348,16 +2348,16 @@ all these coercion functions have the following result: (PROG (|n| R D |ISTMP#1| E) (RETURN (PROGN - (SPADLET |n| (CADR G167896)) - (SPADLET R (CADDR G167896)) - (SPADLET D (CADR |source|)) + (setq |n| (CADR G167896)) + (setq R (CADDR G167896)) + (setq D (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) NIL) ((AND (CONSP D) (EQ (QCAR D) '|List|) (PROGN - (SPADLET |ISTMP#1| (QCDR D)) + (setq |ISTMP#1| (QCDR D)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET E (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq E (QCAR |ISTMP#1|)) 'T))) (|isRectangularList| |u| |n| |n|)) (L2M |u| |source| (CONS '|Matrix| (CONS R NIL)))) ('T (|coercionFailure|))))))) @@ -2376,18 +2376,18 @@ all these coercion functions have the following result: (PROG (T$ S |target'| |u|) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) (|canCoerce| S T$)) - ('T (SPADLET |target'| (CONS '|Set| (CONS S NIL))) - (SPADLET |u| + ('T (setq |target'| (CONS '|Set| (CONS S NIL))) + (setq |u| (mkObjWrap (SPADCALL |x| (|getFunctionFromDomain| '|brace| |target'| (CONS |source| NIL))) |target'|)) - (OR (SPADLET |u| (|coerceInt| |u| |target|)) + (OR (setq |u| (|coerceInt| |u| |target|)) (|coercionFailure|)) (|objValUnwrap| |u|))))))) @@ -2405,18 +2405,18 @@ all these coercion functions have the following result: (PROG (T$ S |u|) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) (|canCoerce| S T$)) ('T - (SPADLET |u| + (setq |u| (mkObjWrap (SPADCALL |x| (|getFunctionFromDomain| '|destruct| |source| (CONS |source| NIL))) (CONS '|List| (CONS S NIL)))) - (OR (SPADLET |u| (|coerceInt| |u| |target|)) + (OR (setq |u| (|coerceInt| |u| |target|)) (|coercionFailure|)) (|objValUnwrap| |u|))))))) @@ -2432,18 +2432,18 @@ all these coercion functions have the following result: (PROG (T$ |agg1| S |target'| |u|) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET |agg1| (CAR |source|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq |agg1| (CAR |source|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) (|canCoerce| S T$)) ((BOOT-EQUAL S T$) (|coercionFailure|)) - ('T (SPADLET |target'| (CONS |agg1| (CONS T$ NIL))) - (OR (SPADLET |u| + ('T (setq |target'| (CONS |agg1| (CONS T$ NIL))) + (OR (setq |u| (|coerceInt| (mkObjWrap |x| |source|) |target'|)) (|coercionFailure|)) - (OR (SPADLET |u| (|coerceInt| |u| |target|)) + (OR (setq |u| (|coerceInt| |u| |target|)) (|coercionFailure|)) (|objValUnwrap| |u|))))))) @@ -2460,17 +2460,17 @@ all these coercion functions have the following result: (PROG (S |mid| |u|) (RETURN (PROGN - (SPADLET S (CADR |source|)) - (SPADLET |mid| (CONS '|List| (CONS S NIL))) + (setq S (CADR |source|)) + (setq |mid| (CONS '|List| (CONS S NIL))) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) (AND (|canCoerce| |source| |mid|) (|canCoerce| |mid| |target|))) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |x| |source|) |mid|)) (|coercionFailure|)) - (OR (SPADLET |u| (|coerceInt| |u| |target|)) + (OR (setq |u| (|coerceInt| |u| |target|)) (|coercionFailure|)) (|objValUnwrap| |u|))))))) @@ -2485,10 +2485,10 @@ all these coercion functions have the following result: (SEQ (COND ((OR (EQL |p| 0) (BOOT-EQUAL |p| (|#| |x|))) (EXIT (PROGN - (SPADLET |n| (|#| (CAR |x|))) + (setq |n| (|#| (CAR |x|))) (COND ((PROG (G168010) - (SPADLET G168010 'T) + (setq G168010 'T) (RETURN (DO ((G168016 NIL (NULL G168010)) (G168017 (CDR |x|) (CDR G168017)) @@ -2515,15 +2515,15 @@ all these coercion functions have the following result: (PROG (S |mid| |u|) (RETURN (PROGN - (SPADLET S (CADR G168030)) - (SPADLET |mid| + (setq S (CADR G168030)) + (setq |mid| (CONS '|Vector| (CONS (CONS '|Vector| (CONS S NIL)) NIL))) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) (|canCoerce| |mid| |target|)) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |x| |mid|) |target|)) (|coercionFailure|)) (|objValUnwrap| |u|))))))) @@ -2546,33 +2546,33 @@ all these coercion functions have the following result: (PROG (S R |n| |m| |y| |y'| |u| |v|) (RETURN (SEQ (PROGN - (SPADLET S (CADR G168053)) - (SPADLET R (CADR G168046)) + (setq S (CADR G168053)) + (setq R (CADR G168046)) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) (|canCoerce| R S)) - ('T (SPADLET |n| (|#| |x|)) - (SPADLET |m| (|#| (ELT |x| 0))) (SPADLET |v| NIL) + ('T (setq |n| (|#| |x|)) + (setq |m| (|#| (ELT |x| 0))) (setq |v| NIL) (DO ((G168072 (SPADDIFFERENCE |n| 1)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G168072) NIL) (SEQ (EXIT (PROGN - (SPADLET |u| NIL) + (setq |u| NIL) (DO ((G168082 (SPADDIFFERENCE |m| 1)) (|j| 0 (QSADD1 |j|))) ((QSGREATERP |j| G168082) NIL) (SEQ (EXIT (PROGN - (SPADLET |y| + (setq |y| (ELT (ELT |x| |i|) |j|)) (OR - (SPADLET |y'| + (setq |y'| (|coerceInt| (mkObjWrap |y| R) S)) (|coercionFailure|)) - (SPADLET |u| + (setq |u| (CONS (|objValUnwrap| |y'|) |u|)))))) - (SPADLET |v| + (setq |v| (CONS (LIST2VEC (REVERSE |u|)) |v|)))))) (LIST2VEC (REVERSE |v|))))))))) @@ -2588,13 +2588,13 @@ all these coercion functions have the following result: (PROG (|p| |q| S R |n| |m|) (RETURN (PROGN - (SPADLET |p| (CADR G168106)) - (SPADLET |q| (CADDR G168106)) - (SPADLET S (CADDDR G168106)) - (SPADLET R (CADR |source|)) + (setq |p| (CADR G168106)) + (setq |q| (CADDR G168106)) + (setq S (CADDDR G168106)) + (setq R (CADR |source|)) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) NIL) - ('T (SPADLET |n| (|#| |x|)) (SPADLET |m| (|#| (ELT |x| 0))) + ('T (setq |n| (|#| |x|)) (setq |m| (|#| (ELT |x| 0))) (COND ((AND (BOOT-EQUAL |n| |p|) (BOOT-EQUAL |m| |q|)) (M2M |x| |source| (CONS NIL (CONS S NIL)))) @@ -2611,12 +2611,12 @@ all these coercion functions have the following result: (PROG (|p| S R |n| |m|) (RETURN (PROGN - (SPADLET |p| (CADR G168136)) - (SPADLET S (CADDR G168136)) - (SPADLET R (CADR |source|)) + (setq |p| (CADR G168136)) + (setq S (CADDR G168136)) + (setq R (CADR |source|)) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) NIL) - ('T (SPADLET |n| (|#| |x|)) (SPADLET |m| (|#| (ELT |x| 0))) + ('T (setq |n| (|#| |x|)) (setq |m| (|#| (ELT |x| 0))) (COND ((AND (BOOT-EQUAL |n| |m|) (BOOT-EQUAL |m| |p|)) (M2M |x| |source| (CONS NIL (CONS S NIL)))) @@ -2632,15 +2632,15 @@ all these coercion functions have the following result: (PROG (S |mid| |u|) (RETURN (PROGN - (SPADLET S (CADR G168157)) - (SPADLET |mid| + (setq S (CADR G168157)) + (setq |mid| (CONS '|Vector| (CONS (CONS '|Vector| (CONS S NIL)) NIL))) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) (|canCoerce| |mid| |target|)) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |x| |mid|) |target|)) (|coercionFailure|)) (|objValUnwrap| |u|))))))) @@ -2669,33 +2669,33 @@ all these coercion functions have the following result: |u'|) (RETURN (PROGN - (SPADLET |dmp| (CAR |target|)) - (SPADLET |y| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |x| (CADR |source|)) - (SPADLET S (CADDR |source|)) - (SPADLET |target'| (CONS |dmp| (CONS |x| (CONS S NIL)))) + (setq |dmp| (CAR |target|)) + (setq |y| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |x| (CADR |source|)) + (setq S (CADDR |source|)) + (setq |target'| (CONS |dmp| (CONS |x| (CONS S NIL)))) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |target'| |target|)) ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) + (PROGN (setq |c| (QCDR |u|)) 'T)) (COND - ((NULL (SPADLET |u'| + ((NULL (setq |u'| (|coerceInt| (mkObjWrap |c| S) |target|))) (|coercionFailure|)) ('T (|objValUnwrap| |u'|)))) ('T - (SPADLET |plus| + (setq |plus| (|getFunctionFromDomain| '+ |target'| (CONS |target'| (CONS |target'| NIL)))) - (SPADLET |mult| + (setq |mult| (|getFunctionFromDomain| '* |target'| (CONS |target'| (CONS |target'| NIL)))) - (SPADLET |one| (|domainOne| S)) - (SPADLET |zero| (|domainZero| S)) - (OR (SPADLET |u'| + (setq |one| (|domainOne| S)) + (setq |zero| (|domainZero| S)) + (OR (setq |u'| (|coerceInt| (mkObjWrap (|Mp2SimilarDmp| |u| S (|#| |x|) |plus| @@ -2724,39 +2724,39 @@ all these coercion functions have the following result: (RETURN (SEQ (COND ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) + (PROGN (setq |c| (QCDR |u|)) 'T)) (COND ((BOOT-EQUAL |c| |zero|) NIL) ('T (CONS (CONS (LIST2VEC (|LZeros| |n|)) |c|) NIL)))) ((AND (CONSP |u|) (EQUAL (QCAR |u|) 1) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |x| (QCAR |ISTMP#1|)) - (SPADLET |terms| (QCDR |ISTMP#1|)) + (setq |x| (QCAR |ISTMP#1|)) + (setq |terms| (QCDR |ISTMP#1|)) 'T)))) - (SPADLET |u'| NIL) + (setq |u'| NIL) (DO ((G168239 |terms| (CDR G168239)) (G168224 NIL)) ((OR (ATOM G168239) (PROGN (SETQ G168224 (CAR G168239)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G168224)) - (SPADLET |c| (CDR G168224)) + (setq |e| (CAR G168224)) + (setq |c| (CDR G168224)) G168224) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |e'| (LIST2VEC (|LZeros| |n|))) + (setq |e'| (LIST2VEC (|LZeros| |n|))) (SETELT |e'| (SPADDIFFERENCE |x| 1) |e|) - (SPADLET |t| (CONS (CONS |e'| |one|) NIL)) - (SPADLET |t| + (setq |t| (CONS (CONS |e'| |one|) NIL)) + (setq |t| (SPADCALL |t| (|Mp2SimilarDmp| |c| S |n| |plus| |mult| |one| |zero|) |mult|)) - (SPADLET |u'| (SPADCALL |u'| |t| |plus|)))))) + (setq |u'| (SPADCALL |u'| |t| |plus|)))))) |u'|)))))) ;Mp2Expr(u,source is [mp,vars,S], target is [Expr,T]) == @@ -2769,20 +2769,20 @@ all these coercion functions have the following result: (PROG (|Expr| T$ |mp| |vars| S |dmp| |d|) (RETURN (PROGN - (SPADLET |Expr| (CAR |target|)) - (SPADLET T$ (CADR |target|)) - (SPADLET |mp| (CAR |source|)) - (SPADLET |vars| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |Expr| (CAR |target|)) + (setq T$ (CADR |target|)) + (setq |mp| (CAR |source|)) + (setq |vars| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S |target|)) ('T - (SPADLET |dmp| + (setq |dmp| (CONS '|DistributedMultivariatePolynomial| (CONS |vars| (CONS S NIL)))) (COND - ((NULL (SPADLET |d| + ((NULL (setq |d| (|coerceInt| (mkObjWrap |u| |source|) |dmp|))) (|coercionFailure|)) @@ -2810,9 +2810,9 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer|)) (RETURN (PROGN - (SPADLET T$ (CADR G168315)) - (SPADLET |vl| (CADR S)) - (SPADLET R (CADDR S)) + (setq T$ (CADR G168315)) + (setq |vl| (CADR S)) + (setq R (CADDR S)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND @@ -2821,10 +2821,10 @@ all these coercion functions have the following result: ('T NIL))) ((NEQUAL S T$) (|coercionFailure|)) ('T - (SPADLET |package| + (setq |package| (COND ((BOOT-EQUAL R |$Integer|) - (SPADLET |ovl| + (setq |ovl| (CONS '|OrderedVariableList| (CONS |vl| NIL))) (CONS '|MultivariateFactorize| @@ -2835,16 +2835,16 @@ all these coercion functions have the following result: (CONS R (CONS S NIL)))))) ((AND (CONSP R) (EQ (QCAR R) '|Fraction|) (PROGN - (SPADLET |ISTMP#1| (QCDR R)) + (setq |ISTMP#1| (QCDR R)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET D (QCAR |ISTMP#1|)) + (setq D (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |ovl| + (setq |ovl| (CONS '|OrderedVariableList| (CONS |vl| NIL))) - (SPADLET |package| + (setq |package| (CONS '|MRationalFactorize| (CONS (CONS '|IndexedExponents| @@ -2852,7 +2852,7 @@ all these coercion functions have the following result: (CONS |ovl| (CONS D (CONS S NIL))))))) ('T (|coercionFailure|)))) - (SPADLET |factor| + (setq |factor| (|getFunctionFromDomain| '|factor| |package| (CONS S NIL))) (SPADCALL |u| |factor|))))))) @@ -2904,14 +2904,14 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$NonNegativeInteger|)) (RETURN (PROGN - (SPADLET |y| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |mp| (CAR |source|)) - (SPADLET |x| (CADR |source|)) - (SPADLET S (CADDR |source|)) - (SPADLET |common| (|intersection| |y| |x|)) - (SPADLET |x'| (SETDIFFERENCE |x| |common|)) - (SPADLET |y'| (SETDIFFERENCE |y| |common|)) + (setq |y| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |mp| (CAR |source|)) + (setq |x| (CADR |source|)) + (setq S (CADDR |source|)) + (setq |common| (|intersection| |y| |x|)) + (setq |x'| (SETDIFFERENCE |x| |common|)) + (setq |y'| (SETDIFFERENCE |y| |common|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND @@ -2924,27 +2924,27 @@ all these coercion functions have the following result: (|canCoerce| (CONS |mp| (CONS |x'| (CONS S NIL))) (CONS |mp| (CONS |y'| (CONS T$ NIL))))))) ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) - (OR (SPADLET |u'| + (PROGN (setq |c| (QCDR |u|)) 'T)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) ('T - (SPADLET |plus| + (setq |plus| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) (COND ((NULL |common|) - (SPADLET |times| + (setq |times| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |expn| + (setq |expn| (|getFunctionFromDomain| '** |target| (CONS |target| (CONS |$NonNegativeInteger| NIL)))) (|Mp2MpAux0| |u| S |target| |x| |plus| |times| |expn|)) ((NULL |x'|) - (SPADLET |monom| + (setq |monom| (|getFunctionFromDomain| '|monomial| |target| (CONS |target| (CONS (CONS '|OrderedVariableList| @@ -2952,16 +2952,16 @@ all these coercion functions have the following result: (CONS |$NonNegativeInteger| NIL))))) (|Mp2MpAux1| |u| S |target| |x| |y| |plus| |monom|)) ((NULL |y'|) - (SPADLET |univariate| + (setq |univariate| (|getFunctionFromDomain| '|univariate| |source| (CONS |source| (CONS (CONS '|OrderedVariableList| (CONS |x| NIL)) NIL)))) - (SPADLET |u'| + (setq |u'| (|Mp2MpAux2| |u| |x| |common| |x'| |common| |x'| |univariate| S NIL)) - (OR (SPADLET |u'| + (OR (setq |u'| (|coerceInt| (mkObjWrap |u'| (CONS |mp| @@ -2974,7 +2974,7 @@ all these coercion functions have the following result: (|coercionFailure|)) (|objValUnwrap| |u'|)) ('T - (OR (SPADLET |u'| + (OR (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) (CONS |mp| (CONS |common| @@ -2983,7 +2983,7 @@ all these coercion functions have the following result: (CONS |x'| (CONS S NIL))) NIL))))) (|coercionFailure|)) - (OR (SPADLET |u'| (|coerceInt| |u'| |target|)) + (OR (setq |u'| (|coerceInt| |u'| |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|))))))))) @@ -3011,16 +3011,16 @@ all these coercion functions have the following result: (RETURN (SEQ (COND ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) - (OR (SPADLET |u'| + (PROGN (setq |c| (QCDR |u|)) 'T)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) - ('T (SPADLET |var| (CADR |u|)) - (SPADLET |terms| (CDDR |u|)) - (SPADLET |mp| (CAR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |x| + ('T (setq |var| (CADR |u|)) + (setq |terms| (CDDR |u|)) + (setq |mp| (CAR |target|)) + (setq T$ (CADDR |target|)) + (setq |x| (OR (|coerceInt| (mkObjWrap (ELT |vars| @@ -3034,28 +3034,28 @@ all these coercion functions have the following result: (CONS |vars| (CONS |$Integer| NIL)))) (|coercionFailure|))) - (OR (SPADLET |x| (|coerceInt| |x| T$)) + (OR (setq |x| (|coerceInt| |x| T$)) (|coercionFailure|)) - (SPADLET |x| (CONS 0 (|objValUnwrap| |x|))) - (SPADLET |sum| (|domainZero| |target|)) + (setq |x| (CONS 0 (|objValUnwrap| |x|))) + (setq |sum| (|domainZero| |target|)) (DO ((G168417 |terms| (CDR G168417)) (G168406 NIL)) ((OR (ATOM G168417) (PROGN (SETQ G168406 (CAR G168417)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G168406)) - (SPADLET |c| (CDR G168406)) + (setq |e| (CAR G168406)) + (setq |c| (CDR G168406)) G168406) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |prod| + (setq |prod| (SPADCALL (SPADCALL |x| |e| |expn|) (|Mp2MpAux0| |c| S |target| |vars| |plus| |times| |expn|) |times|)) - (SPADLET |sum| + (setq |sum| (SPADCALL |sum| |prod| |plus|)))))) |sum|)))))) @@ -3077,26 +3077,26 @@ all these coercion functions have the following result: (RETURN (SEQ (COND ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) - (OR (SPADLET |u'| + (PROGN (setq |c| (QCDR |u|)) 'T)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) - ('T (SPADLET |var| (CADR |u|)) - (SPADLET |terms| (CDDR |u|)) - (SPADLET |sum| (|domainZero| |target|)) + ('T (setq |var| (CADR |u|)) + (setq |terms| (CDDR |u|)) + (setq |sum| (|domainZero| |target|)) (DO ((G168457 |terms| (CDR G168457)) (G168446 NIL)) ((OR (ATOM G168457) (PROGN (SETQ G168446 (CAR G168457)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G168446)) - (SPADLET |c| (CDR G168446)) + (setq |e| (CAR G168446)) + (setq |c| (CDR G168446)) G168446) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |mon| + (setq |mon| (SPADCALL (|Mp2MpAux1| |c| S |target| |varl1| |varl2| |plus| |monom|) @@ -3105,7 +3105,7 @@ all these coercion functions have the following result: (SPADDIFFERENCE |var| 1)) |varl2|) |e| |monom|)) - (SPADLET |sum| + (setq |sum| (SPADCALL |sum| |mon| |plus|)))))) |sum|)))))) @@ -3140,7 +3140,7 @@ all these coercion functions have the following result: (PROG (|mp2| |LETTMP#1| |var| |u'| |e| |c|) (RETURN (SEQ (PROGN - (SPADLET |mp2| + (setq |mp2| (CONS '|MultivariatePolynomial| (CONS |oldcomm| (CONS (CONS '|MultivariatePolynomial| @@ -3150,16 +3150,16 @@ all these coercion functions have the following result: (|common| (COND ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) - (OR (SPADLET |u'| + (PROGN (setq |c| (QCDR |u|)) 'T)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |c| S) |mp2|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) - ('T (SPADLET |LETTMP#1| |common|) - (SPADLET |var| (CAR |LETTMP#1|)) - (SPADLET |common| (CDR |LETTMP#1|)) - (SPADLET |u'| + ('T (setq |LETTMP#1| |common|) + (setq |var| (CAR |LETTMP#1|)) + (setq |common| (CDR |LETTMP#1|)) + (setq |u'| (SPADCALL |u| (|position1| |var| |x|) |univariate|)) (COND @@ -3172,7 +3172,7 @@ all these coercion functions have the following result: (CONS 1 (CONS (|position1| |var| |oldcomm|) (PROG (G168506) - (SPADLET G168506 NIL) + (setq G168506 NIL) (RETURN (DO ((G168512 |u'| @@ -3185,9 +3185,9 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| + (setq |e| (CAR G168484)) - (SPADLET |c| + (setq |c| (CDR G168484)) G168484) NIL)) @@ -3208,12 +3208,12 @@ all these coercion functions have the following result: (|Mp2MpAux2| |u| |x| |oldcomm| |oldrest| |common| |restvars| |univariate| S 'T))) ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) + (PROGN (setq |c| (QCDR |u|)) 'T)) |u|) - ('T (SPADLET |LETTMP#1| |restvars|) - (SPADLET |var| (CAR |LETTMP#1|)) - (SPADLET |restvars| (CDR |LETTMP#1|)) - (SPADLET |u'| + ('T (setq |LETTMP#1| |restvars|) + (setq |var| (CAR |LETTMP#1|)) + (setq |restvars| (CDR |LETTMP#1|)) + (setq |u'| (SPADCALL |u| (|position1| |var| |x|) |univariate|)) (COND @@ -3224,7 +3224,7 @@ all these coercion functions have the following result: (CONS 1 (CONS (|position1| |var| |oldrest|) (PROG (G168524) - (SPADLET G168524 NIL) + (setq G168524 NIL) (RETURN (DO ((G168530 |u'| (CDR G168530)) @@ -3236,8 +3236,8 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| (CAR G168496)) - (SPADLET |c| (CDR G168496)) + (setq |e| (CAR G168496)) + (setq |c| (CDR G168496)) G168496) NIL)) (NREVERSE0 G168524)) @@ -3269,10 +3269,10 @@ all these coercion functions have the following result: (PROG (|e| |c| |numexps| |patlen|) (RETURN (SEQ (PROGN - (SPADLET |patlen| |oldlen|) - (SPADLET |e| (CAR |u|)) - (SPADLET |c| (CDR |u|)) - (SPADLET |numexps| (|#| |e|)) + (setq |patlen| |oldlen|) + (setq |e| (CAR |u|)) + (setq |c| (CDR |u|)) + (setq |numexps| (|#| |e|)) (COND ((>= |patlen| |numexps|) (CONS 0 |c|)) ('T @@ -3281,7 +3281,7 @@ all these coercion functions have the following result: ((> |i| G168566) NIL) (SEQ (EXIT (COND ((EQL (ELT |e| |i|) 0) - (SPADLET |patlen| (+ |patlen| 1))) + (setq |patlen| (+ |patlen| 1))) ('T (RETURN NIL)))))) (COND ((>= |patlen| |numexps|) (CONS 0 |c|)) @@ -3307,25 +3307,25 @@ all these coercion functions have the following result: (PROG (|p| R |mp| |vl| S |ISTMP#1| |vl'| |u'|) (RETURN (PROGN - (SPADLET |p| (CAR |target|)) - (SPADLET R (CADR |target|)) - (SPADLET |mp| (CAR |source|)) - (SPADLET |vl| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |p| (CAR |target|)) + (setq R (CADR |target|)) + (setq |mp| (CAR |source|)) + (setq |vl| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S |target|)) ((AND (CONSP S) (EQ (QCAR S) '|Polynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR S)) + (setq |ISTMP#1| (QCDR S)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))) (|MpP2P| |u| |vl| S R)) - ('T (SPADLET |vl'| (REVERSE (MSORT |vl|))) - (SPADLET |u'| + ('T (setq |vl'| (REVERSE (MSORT |vl|))) + (setq |u'| (|Mp2Mp| |u| |source| (CONS |mp| (CONS |vl'| (CONS S NIL))))) - (SPADLET |u'| (|translateMpVars2PVars| |u'| |vl'|)) - (OR (SPADLET |u'| + (setq |u'| (|translateMpVars2PVars| |u'| |vl'|)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |u'| (CONS |p| (CONS S NIL))) |target|)) @@ -3350,23 +3350,23 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Symbol|)) (RETURN (SEQ (PROGN - (SPADLET PR (CONS '|Polynomial| (CONS R NIL))) + (setq PR (CONS '|Polynomial| (CONS R NIL))) (COND ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) - (OR (SPADLET |u'| + (PROGN (setq |c| (QCDR |u|)) 'T)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |c| PS) PR)) (|coercionFailure|)) (|objValUnwrap| |u'|)) - ('T (SPADLET |pos| (CADR |u|)) (SPADLET |ec| (CDDR |u|)) - (SPADLET |multivariate| + ('T (setq |pos| (CADR |u|)) (setq |ec| (CDDR |u|)) + (setq |multivariate| (|getFunctionFromDomain| '|multivariate| PR (CONS (CONS '|SparseUnivariatePolynomial| (CONS PR NIL)) (CONS |$Symbol| NIL)))) - (SPADLET |sup| + (setq |sup| (PROG (G168635) - (SPADLET G168635 NIL) + (setq G168635 NIL) (RETURN (DO ((G168641 |ec| (CDR G168641)) (G168625 NIL)) @@ -3377,8 +3377,8 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| (CAR G168625)) - (SPADLET |c| (CDR G168625)) + (setq |e| (CAR G168625)) + (setq |c| (CDR G168625)) G168625) NIL)) (NREVERSE0 G168635)) @@ -3388,7 +3388,7 @@ all these coercion functions have the following result: (CONS |e| (|MpP2P| |c| |vl| PS R)) G168635)))))))) - (SPADLET |p| + (setq |p| (SPADCALL |sup| (ELT |vl| (SPADDIFFERENCE |pos| 1)) |multivariate|))))))))) @@ -3426,12 +3426,12 @@ all these coercion functions have the following result: |u'|) (RETURN (SEQ (PROGN - (SPADLET |up| (CAR |target|)) - (SPADLET |x| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |mp| (CAR |source|)) - (SPADLET |vl| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |up| (CAR |target|)) + (setq |x| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |mp| (CAR |source|)) + (setq |vl| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND @@ -3446,22 +3446,22 @@ all these coercion functions have the following result: T$)))) ('T (|canCoerce| |source| T$)))) ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) - (OR (SPADLET |u'| + (PROGN (setq |c| (QCDR |u|)) 'T)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) ((NULL (|member| |x| |vl|)) - (OR (SPADLET |u'| + (OR (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) T$)) (|coercionFailure|)) (CONS (CONS 0 (|objValUnwrap| |u'|)) NIL)) ((BOOT-EQUAL |vl| (CONS |x| NIL)) - (SPADLET |u'| + (setq |u'| (PROG (G168712) - (SPADLET G168712 NIL) + (setq G168712 NIL) (RETURN (DO ((G168718 (CDDR |u|) (CDR G168718)) @@ -3473,8 +3473,8 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| (CAR G168666)) - (SPADLET |c| + (setq |e| (CAR G168666)) + (setq |c| (CDDR G168666)) G168666) NIL)) @@ -3482,7 +3482,7 @@ all these coercion functions have the following result: (SEQ (EXIT (SETQ G168712 (CONS (CONS |e| |c|) G168712)))))))) - (OR (SPADLET |u'| + (OR (setq |u'| (|coerceInt| (mkObjWrap |u'| (CONS |up| @@ -3490,11 +3490,11 @@ all these coercion functions have the following result: |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) - ('T (SPADLET |var| (|position1| |x| |vl|)) - (SPADLET UPP + ('T (setq |var| (|position1| |x| |vl|)) + (setq UPP (CONS '|UnivariatePolynomial| (CONS |x| (CONS |source| NIL)))) - (SPADLET |univariate| + (setq |univariate| (|getFunctionFromDomain| '|univariate| |source| (CONS |source| @@ -3502,8 +3502,8 @@ all these coercion functions have the following result: (CONS '|OrderedVariableList| (CONS |vl| NIL)) NIL)))) - (SPADLET |upU| (SPADCALL |u| |var| |univariate|)) - (OR (SPADLET |u'| + (setq |upU| (SPADCALL |u| |var| |univariate|)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |upU| UPP) |target|)) (|coercionFailure|)) @@ -3521,8 +3521,8 @@ all these coercion functions have the following result: (PROG (|tvl| |svl|) (RETURN (PROGN - (SPADLET |tvl| (CADR |target|)) - (SPADLET |svl| (CADR |source|)) + (setq |tvl| (CADR |target|)) + (setq |svl| (CADR |source|)) (COND ((BOOT-EQUAL |svl| (|intersection| |svl| |tvl|)) (COND @@ -3541,12 +3541,12 @@ all these coercion functions have the following result: (PROG (T$ |svl| |v|) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET |svl| (CADR |source|)) + (setq T$ (CADR |target|)) + (setq |svl| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) 'T) ('T - (SPADLET |v| (ELT |svl| (SPADDIFFERENCE (|unwrap| |u|) 1))) + (setq |v| (ELT |svl| (SPADDIFFERENCE (|unwrap| |u|) 1))) (CONS 1 (CONS |v| (CONS (CONS 1 (CONS 0 (|domainOne| T$))) NIL))))))))) @@ -3571,10 +3571,10 @@ all these coercion functions have the following result: (PROG (|p| |vl| T$ |svl| |v| |val'| |source'| |u'|) (RETURN (SEQ (PROGN - (SPADLET |p| (CAR |target|)) - (SPADLET |vl| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |svl| (CADR |source|)) + (setq |p| (CAR |target|)) + (setq |vl| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |svl| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND @@ -3583,7 +3583,7 @@ all these coercion functions have the following result: (BOOT-EQUAL |p| (ELT |svl| 0)))) ('T (PROG (G168813) - (SPADLET G168813 'T) + (setq G168813 'T) (RETURN (DO ((G168819 NIL (NULL G168813)) (G168820 |svl| (CDR G168820)) @@ -3595,9 +3595,9 @@ all these coercion functions have the following result: (AND G168813 (|member| |v| |vl|))))))))))) ('T - (SPADLET |v| + (setq |v| (ELT |svl| (SPADDIFFERENCE (|unwrap| |u|) 1))) - (SPADLET |val'| (CONS 1 (|domainOne| T$))) + (setq |val'| (CONS 1 (|domainOne| T$))) (COND ((BOOT-EQUAL |p| '|UnivariatePolynomial|) (COND @@ -3605,12 +3605,12 @@ all these coercion functions have the following result: ('T (CONS (CONS 1 (|domainOne| T$)) NIL)))) ((NULL (|member| |v| |vl|)) (|coercionFailure|)) ('T - (SPADLET |val'| + (setq |val'| (CONS (CONS 1 (|domainOne| T$)) NIL)) - (SPADLET |source'| + (setq |source'| (CONS '|UnivariatePolynomial| (CONS |v| (CONS T$ NIL)))) - (OR (SPADLET |u'| + (OR (setq |u'| (|coerceInt| (mkObjWrap |val'| |source'|) |target|)) @@ -3626,7 +3626,7 @@ all these coercion functions have the following result: (PROG (|svl|) (RETURN (PROGN - (SPADLET |svl| (CADR |source|)) + (setq |svl| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) 'T) ('T (ELT |svl| (SPADDIFFERENCE (|unwrap| |u|) 1)))))))) @@ -3640,7 +3640,7 @@ all these coercion functions have the following result: (PROG (|svl|) (RETURN (PROGN - (SPADLET |svl| (CADR |source|)) + (setq |svl| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) 'T) ('T (ELT |svl| (SPADDIFFERENCE (|unwrap| |u|) 1)))))))) @@ -3657,14 +3657,14 @@ all these coercion functions have the following result: (SEQ (COND ((AND (CONSP |u|) (EQUAL (QCAR |u|) 1) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |v| (QCAR |ISTMP#1|)) - (SPADLET |termlist| (QCDR |ISTMP#1|)) + (setq |v| (QCAR |ISTMP#1|)) + (setq |termlist| (QCDR |ISTMP#1|)) 'T)))) (PROG (G168875) - (SPADLET G168875 NIL) + (setq G168875 NIL) (RETURN (DO ((G168881 |termlist| (CDR G168881)) (G168870 NIL)) @@ -3674,8 +3674,8 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| (CAR G168870)) - (SPADLET |c| (CDR G168870)) + (setq |e| (CAR G168870)) + (setq |c| (CDR G168870)) G168870) NIL)) G168875) @@ -3705,8 +3705,8 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Symbol| |$Integer|)) (RETURN (PROGN - (SPADLET T$ (CADR G168914)) - (SPADLET R (CADR S)) + (setq T$ (CADR G168914)) + (setq R (CADR S)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND @@ -3715,7 +3715,7 @@ all these coercion functions have the following result: ('T NIL))) ((NEQUAL S T$) (|coercionFailure|)) ('T - (SPADLET |package| + (setq |package| (COND ((BOOT-EQUAL R |$Integer|) (CONS '|MultivariateFactorize| @@ -3726,13 +3726,13 @@ all these coercion functions have the following result: (CONS R (CONS S NIL)))))) ((AND (CONSP R) (EQ (QCAR R) '|Fraction|) (PROGN - (SPADLET |ISTMP#1| (QCDR R)) + (setq |ISTMP#1| (QCDR R)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET D (QCAR |ISTMP#1|)) + (setq D (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |package| + (setq |package| (CONS '|MRationalFactorize| (CONS (CONS '|IndexedExponents| @@ -3740,7 +3740,7 @@ all these coercion functions have the following result: (CONS |$Symbol| (CONS D (CONS S NIL))))))) ('T (|coercionFailure|)))) - (SPADLET |factor| + (setq |factor| (|getFunctionFromDomain| '|factor| |package| (CONS S NIL))) (SPADCALL |u| |factor|))))))) @@ -3764,26 +3764,26 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$NonNegativeInteger| |$Symbol|)) (RETURN (PROGN - (SPADLET |y| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET S (CADR |source|)) + (setq |y| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| T$)) ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) - (OR (SPADLET |u'| + (PROGN (setq |c| (QCDR |u|)) 'T)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) ('T - (SPADLET |univariate| + (setq |univariate| (|getFunctionFromDomain| '|univariate| |source| (CONS |source| (CONS |$Symbol| NIL)))) - (SPADLET |plus| + (setq |plus| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |monom| + (setq |monom| (|getFunctionFromDomain| '|monomial| |target| (CONS |target| (CONS (CONS '|OrderedVariableList| @@ -3807,17 +3807,17 @@ all these coercion functions have the following result: (PROG (T$ S |newS| |val|) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S T$)) ((BOOT-EQUAL S T$) (|coercionFailure|)) - ('T (SPADLET |newS| (CONS '|Polynomial| (CONS T$ NIL))) - (SPADLET |val| + ('T (setq |newS| (CONS '|Polynomial| (CONS T$ NIL))) + (setq |val| (|coerceInt| (mkObjWrap |u| |source|) |newS|)) (COND ((NULL |val|) (|coercionFailure|)) - ('T (SPADLET |val| (|coerceInt| |val| |target|)) + ('T (setq |val| (|coerceInt| |val| |target|)) (COND ((NULL |val|) (|coercionFailure|)) ('T (|objValUnwrap| |val|))))))))))) @@ -3857,53 +3857,53 @@ all these coercion functions have the following result: (RETURN (SEQ (COND ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) - (OR (SPADLET |u'| + (PROGN (setq |c| (QCDR |u|)) 'T)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) ((NULL |vars|) - (OR (SPADLET |u'| + (OR (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) T$)) (|coercionFailure|)) - (OR (SPADLET |u'| (|coerceByFunction| |u'| |target|)) + (OR (setq |u'| (|coerceByFunction| |u'| |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) - ('T (SPADLET |LETTMP#1| |vars|) - (SPADLET |x| (CAR |LETTMP#1|)) - (SPADLET |vars| (CDR |LETTMP#1|)) - (SPADLET |sup| (SPADCALL |u| |x| |univariate|)) + ('T (setq |LETTMP#1| |vars|) + (setq |x| (CAR |LETTMP#1|)) + (setq |vars| (CDR |LETTMP#1|)) + (setq |sup| (SPADCALL |u| |x| |univariate|)) (COND ((NULL |sup|) (|domainZero| |target|)) ((AND (NULL (CDR |sup|)) (PROGN - (SPADLET |ISTMP#1| (CAR |sup|)) + (setq |ISTMP#1| (CAR |sup|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) 0) - (PROGN (SPADLET |c| (QCDR |ISTMP#1|)) 'T)))) + (PROGN (setq |c| (QCDR |ISTMP#1|)) 'T)))) (|P2DmpAux| |c| |source| S |target| |varlist| |vars| T$ |univariate| |plus| |monom|)) - ('T (SPADLET |var| (|position1| |x| |varlist|)) - (SPADLET |u'| (|domainZero| |target|)) + ('T (setq |var| (|position1| |x| |varlist|)) + (setq |u'| (|domainZero| |target|)) (DO ((G169021 |sup| (CDR G169021)) (G169010 NIL)) ((OR (ATOM G169021) (PROGN (SETQ G169010 (CAR G169021)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G169010)) - (SPADLET |c| (CDR G169010)) + (setq |e| (CAR G169010)) + (setq |c| (CDR G169010)) G169010) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |u''| + (setq |u''| (SPADCALL (|P2DmpAux| |c| |source| S |target| |varlist| |vars| T$ |univariate| |plus| |monom|) |var| |e| |monom|)) - (SPADLET |u'| + (setq |u'| (SPADCALL |u'| |u''| |plus|)))))) |u'|)))))))) @@ -3921,14 +3921,14 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Symbol|)) (RETURN (PROGN - (SPADLET |y| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET S (CADR |source|)) + (setq |y| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| T$)) ('T - (SPADLET |univariate| + (setq |univariate| (|getFunctionFromDomain| '|univariate| |source| (CONS |source| (CONS |$Symbol| NIL)))) (|P2MpAux| |u| |source| S |target| (COPY |y|) |y| T$ @@ -3964,34 +3964,34 @@ all these coercion functions have the following result: (RETURN (SEQ (COND ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) - (OR (SPADLET |u'| + (PROGN (setq |c| (QCDR |u|)) 'T)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) ((NULL |vars|) - (OR (SPADLET |u'| + (OR (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) T$)) (|coercionFailure|)) (CONS 0 (|objValUnwrap| |u'|))) - ('T (SPADLET |LETTMP#1| |vars|) - (SPADLET |x| (CAR |LETTMP#1|)) - (SPADLET |vars| (CDR |LETTMP#1|)) - (SPADLET |sup| (SPADCALL |u| |x| |univariate|)) + ('T (setq |LETTMP#1| |vars|) + (setq |x| (CAR |LETTMP#1|)) + (setq |vars| (CDR |LETTMP#1|)) + (setq |sup| (SPADCALL |u| |x| |univariate|)) (COND ((NULL |sup|) (|domainZero| |target|)) ((AND (NULL (CDR |sup|)) (PROGN - (SPADLET |ISTMP#1| (CAR |sup|)) + (setq |ISTMP#1| (CAR |sup|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) 0) - (PROGN (SPADLET |c| (QCDR |ISTMP#1|)) 'T)))) + (PROGN (setq |c| (QCDR |ISTMP#1|)) 'T)))) (|P2MpAux| |c| |source| S |target| |varlist| |vars| T$ |univariate|)) ('T - (SPADLET |terms| + (setq |terms| (PROG (G169095) - (SPADLET G169095 NIL) + (setq G169095 NIL) (RETURN (DO ((G169101 |sup| (CDR G169101)) (G169085 NIL)) @@ -4001,8 +4001,8 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| (CAR G169085)) - (SPADLET |c| (CDR G169085)) + (setq |e| (CAR G169085)) + (setq |c| (CDR G169085)) G169085) NIL)) (NREVERSE0 G169095)) @@ -4028,17 +4028,17 @@ all these coercion functions have the following result: (SEQ (COND ((AND (CONSP |u|) (EQUAL (QCAR |u|) 1) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |v| (QCAR |ISTMP#1|)) - (SPADLET |termlist| (QCDR |ISTMP#1|)) + (setq |v| (QCAR |ISTMP#1|)) + (setq |termlist| (QCDR |ISTMP#1|)) 'T)))) (COND ((NEQUAL |v| |var|) NIL) ('T (PROG (G169138) - (SPADLET G169138 'T) + (setq G169138 'T) (RETURN (DO ((G169145 NIL (NULL G169138)) (G169146 |termlist| (CDR G169146)) @@ -4049,8 +4049,8 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| (CAR G169132)) - (SPADLET |c| (CDR G169132)) + (setq |e| (CAR G169132)) + (setq |c| (CDR G169132)) G169132) NIL)) G169138) @@ -4084,38 +4084,38 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Symbol|)) (RETURN (PROGN - (SPADLET |x| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET S (CADR |source|)) + (setq |x| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| T$)) ((AND (CONSP |u|) (EQUAL (QCAR |u|) 0) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) - (OR (SPADLET |u'| + (PROGN (setq |c| (QCDR |u|)) 'T)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) ('T - (SPADLET |varsFun| + (setq |varsFun| (|getFunctionFromDomain| '|variables| |source| (CONS |source| NIL))) - (SPADLET |vars| (SPADCALL |u| |varsFun|)) + (setq |vars| (SPADCALL |u| |varsFun|)) (COND ((NULL (|member| |x| |vars|)) - (OR (SPADLET |u'| + (OR (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) T$)) (|coercionFailure|)) (CONS (CONS 0 (|objValUnwrap| |u'|)) NIL)) ('T - (SPADLET UPP + (setq UPP (CONS '|UnivariatePolynomial| (CONS |x| (CONS |source| NIL)))) - (SPADLET |univariate| + (setq |univariate| (|getFunctionFromDomain| '|univariate| |source| (CONS |source| (CONS |$Symbol| NIL)))) - (SPADLET |upU| (SPADCALL |u| |x| |univariate|)) - (OR (SPADLET |u'| + (setq |upU| (SPADCALL |u| |x| |univariate|)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |upU| UPP) |target|)) (|coercionFailure|)) @@ -4138,19 +4138,19 @@ all these coercion functions have the following result: (PROG (D |num| |den| |num'| |den'|) (RETURN (PROGN - (SPADLET D (CADR |source|)) + (setq D (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| D |target|)) - ('T (SPADLET |num| (CAR |u|)) (SPADLET |den| (CDR |u|)) - (SPADLET |num'| + ('T (setq |num| (CAR |u|)) (setq |den| (CDR |u|)) + (setq |num'| (OR (|coerceInt| (mkObjWrap |num| D) |target|) (|coercionFailure|))) - (SPADLET |num'| (|objValUnwrap| |num'|)) - (SPADLET |den'| + (setq |num'| (|objValUnwrap| |num'|)) + (setq |den'| (OR (|coerceInt| (mkObjWrap |den| D) |target|) (|coercionFailure|))) - (SPADLET |den'| (|objValUnwrap| |den'|)) + (setq |den'| (|objValUnwrap| |den'|)) (COND ((|equalZero| |den'| |target|) (|throwKeyedMsg| @@ -4176,7 +4176,7 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer|)) (RETURN (PROGN - (SPADLET D (CADR |source|)) + (setq D (CADR |source|)) (COND ((BOOT-EQUAL D |$Integer|) (COND @@ -4184,15 +4184,15 @@ all these coercion functions have the following result: ('T (|Rn2F| |u| |source| |target|)))) ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| D |target|)) - ('T (SPADLET |num| (CAR |u|)) (SPADLET |den| (CDR |u|)) - (SPADLET |LETTMP#1| + ('T (setq |num| (CAR |u|)) (setq |den| (CDR |u|)) + (setq |LETTMP#1| (OR (|coerceInt| (mkObjWrap |num| D) |target|) (|coercionFailure|))) - (SPADLET |num'| (CDR |LETTMP#1|)) - (SPADLET |LETTMP#1| + (setq |num'| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (OR (|coerceInt| (mkObjWrap |den| D) |target|) (|coercionFailure|))) - (SPADLET |den'| (CDR |LETTMP#1|)) + (setq |den'| (CDR |LETTMP#1|)) (QUOTIENT (TIMES (|unwrap| |num'|) 1.0) (|unwrap| |den'|)))))))) ;Rn2F(rnum, source, target) == @@ -4243,9 +4243,9 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$QuotientField|)) (RETURN (PROGN - (SPADLET D (CADR |source|)) - (SPADLET |useUnder| - (AND (SPADLET |ut| (|underDomainOf| |target|)) + (setq D (CADR |source|)) + (setq |useUnder| + (AND (setq |ut| (|underDomainOf| |target|)) (|canCoerce| |source| |ut|))) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) |useUnder|) @@ -4253,60 +4253,60 @@ all these coercion functions have the following result: (|containsPolynomial| |target|))) |useUnder|) (|coercionFailure|)) - ('T (SPADLET |num| (CAR |u|)) (SPADLET |den| (CDR |u|)) - (OR (SPADLET |num'| + ('T (setq |num| (CAR |u|)) (setq |den| (CDR |u|)) + (OR (setq |num'| (|coerceInt| (mkObjWrap |num| D) |target|)) (|coercionFailure|)) - (SPADLET |num'| (|objValUnwrap| |num'|)) + (setq |num'| (|objValUnwrap| |num'|)) (COND ((|equalOne| |den| D) |num'|) ((OR (AND (CONSP |target|) (PROGN - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (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|) (EQUAL (QCAR |ISTMP#2|) |$QuotientField|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET T$ (QCAR |ISTMP#3|)) + (setq T$ (QCAR |ISTMP#3|)) 'T)))))))) (AND (CONSP |target|) (PROGN - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (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 |ISTMP#3| + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQUAL (QCAR |ISTMP#3|) |$QuotientField|) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET T$ + (setq T$ (QCAR |ISTMP#4|)) 'T))))))))))) - (OR (SPADLET |den'| + (OR (setq |den'| (|coerceInt| (mkObjWrap |den| D) T$)) (|coercionFailure|)) - (SPADLET |den'| + (setq |den'| (CONS (|domainOne| T$) (|objValUnwrap| |den'|))) - (SPADLET |timesfunc| + (setq |timesfunc| (|getFunctionFromDomain| '* |target| (CONS (CONS |$QuotientField| (CONS T$ NIL)) (CONS |target| NIL)))) @@ -4327,18 +4327,18 @@ all these coercion functions have the following result: (PROG (S |num| |den| |num'| |den'| |divfun|) (RETURN (PROGN - (SPADLET S (CADR G169372)) + (setq S (CADR G169372)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S |target|)) - ('T (SPADLET |num| (CAR |u|)) (SPADLET |den| (CDR |u|)) - (OR (SPADLET |num'| + ('T (setq |num| (CAR |u|)) (setq |den| (CDR |u|)) + (OR (setq |num'| (|coerceInt| (mkObjWrap |num| S) |target|)) (|coercionFailure|)) - (OR (SPADLET |den'| + (OR (setq |den'| (|coerceInt| (mkObjWrap |den| S) |target|)) (|coercionFailure|)) - (SPADLET |divfun| + (setq |divfun| (|getFunctionFromDomain| '/ |target| (CONS |target| (CONS |target| NIL)))) (SPADCALL (|objValUnwrap| |num'|) (|objValUnwrap| |den'|) @@ -4369,8 +4369,8 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$QuotientField| |$Integer|)) (RETURN (PROGN - (SPADLET S (CADR G169409)) - (SPADLET T$ (CADR |target|)) + (setq S (CADR G169409)) + (setq T$ (CADR |target|)) (COND ((BOOT-EQUAL |u0| '|$fromCoerceable$|) (COND @@ -4382,7 +4382,7 @@ all these coercion functions have the following result: (BOOT-EQUAL T$ '(|Polynomial| (|Integer|)))) 'T) ('T (|canCoerce| S T$)))) - ('T (SPADLET |a| (CAR |u0|)) (SPADLET |b| (CDR |u0|)) + ('T (setq |a| (CAR |u0|)) (setq |b| (CDR |u0|)) (COND ((AND (BOOT-EQUAL S (CONS '|Polynomial| @@ -4391,22 +4391,22 @@ all these coercion functions have the following result: NIL))) (BOOT-EQUAL T$ '(|Polynomial| (|Integer|)))) (COND - ((SPADLET |a'| + ((setq |a'| (|coerceInt| (mkObjWrap |a| S) |target|)) (COND - ((SPADLET |b'| + ((setq |b'| (|coerceInt| (mkObjWrap |b| S) |target|)) - (SPADLET |divfunc| + (setq |divfunc| (|getFunctionFromDomain| '/ |target| (CONS |target| (CONS |target| NIL)))) (SPADCALL (|objValUnwrap| |a'|) (|objValUnwrap| |b'|) |divfunc|)) ('T (|coercionFailure|)))) ('T (|coercionFailure|)))) - ((SPADLET |a'| (|coerceInt| (mkObjWrap |a| S) T$)) + ((setq |a'| (|coerceInt| (mkObjWrap |a| S) T$)) (COND - ((SPADLET |b'| (|coerceInt| (mkObjWrap |b| S) T$)) + ((setq |b'| (|coerceInt| (mkObjWrap |b| S) T$)) (CONS (|objValUnwrap| |a'|) (|objValUnwrap| |b'|))) ('T (|coercionFailure|)))) ('T (|coercionFailure|))))))))) @@ -4423,7 +4423,7 @@ all these coercion functions have the following result: (PROG (R) (RETURN (PROGN - (SPADLET R (CADDDR G169434)) + (setq R (CADDDR G169434)) (M2L |x| (CONS '|Matrix| (CONS R NIL)) |target|))))) ;Rm2M(x,[.,.,.,R],target is [.,S]) == M2M(x,[nil,R],target) @@ -4432,8 +4432,8 @@ all these coercion functions have the following result: (PROG (R S) (RETURN (PROGN - (SPADLET R (CADDDR G169451)) - (SPADLET S (CADR |target|)) + (setq R (CADDDR G169451)) + (setq S (CADR |target|)) (M2M |x| (CONS NIL (CONS R NIL)) |target|))))) ;Rm2Sm(x,[.,n,m,S],[.,p,R]) == @@ -4446,11 +4446,11 @@ all these coercion functions have the following result: (PROG (|p| R |n| |m| S) (RETURN (PROGN - (SPADLET |p| (CADR G169478)) - (SPADLET R (CADDR G169478)) - (SPADLET |n| (CADR G169467)) - (SPADLET |m| (CADDR G169467)) - (SPADLET S (CADDDR G169467)) + (setq |p| (CADR G169478)) + (setq R (CADDR G169478)) + (setq |n| (CADR G169467)) + (setq |m| (CADDR G169467)) + (setq S (CADDDR G169467)) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) (AND (BOOT-EQUAL |n| |m|) (BOOT-EQUAL |m| |p|) @@ -4465,7 +4465,7 @@ all these coercion functions have the following result: (PROG (R) (RETURN (PROGN - (SPADLET R (CADDDR G169500)) + (setq R (CADDDR G169500)) (M2V |x| (CONS '|Matrix| (CONS R NIL)) |target|))))) ;--% Script @@ -4479,11 +4479,11 @@ all these coercion functions have the following result: (PROG (T$ S |v|) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S T$)) - ((NULL (SPADLET |v| + ((NULL (setq |v| (|coerceInt| (mkObjWrap (CDR |u|) S) T$))) (|coercionFailure|)) ('T (CONS (CAR |u|) (|objValUnwrap| |v|)))))))) @@ -4510,31 +4510,31 @@ all these coercion functions have the following result: (PROG (|x| T$ S |zero| |e| |c| |c'| |u'|) (RETURN (SEQ (PROGN - (SPADLET |x| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET S (CADR |source|)) + (setq |x| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (OR (|canCoerce| |source| T$) (|canCoerce| S T$))) ((NULL |u|) |u|) ((BOOT-EQUAL S T$) |u|) - ((NULL (SPADLET |u'| + ((NULL (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) T$))) - (SPADLET |u'| NIL) - (SPADLET |zero| (|getConstantFromDomain| '(|Zero|) T$)) + (setq |u'| NIL) + (setq |zero| (|getConstantFromDomain| '(|Zero|) T$)) (DO ((G169569 |u| (CDR G169569)) (G169534 NIL)) ((OR (ATOM G169569) (PROGN (SETQ G169534 (CAR G169569)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G169534)) - (SPADLET |c| (CDR G169534)) + (setq |e| (CAR G169534)) + (setq |c| (CDR G169534)) G169534) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |c'| + (setq |c'| (|objValUnwrap| (OR (|coerceInt| @@ -4543,7 +4543,7 @@ all these coercion functions have the following result: (COND ((BOOT-EQUAL |c'| |zero|) '|iterate|) ('T - (SPADLET |u'| + (setq |u'| (CONS (CONS |e| |c'|) |u'|)))))))) (NREVERSE |u'|)) ('T (CONS (CONS 0 (|objValUnwrap| |u'|)) NIL)))))))) @@ -4555,7 +4555,7 @@ all these coercion functions have the following result: (PROG (R) (RETURN (PROGN - (SPADLET R (CADDR G169589)) + (setq R (CADDR G169589)) (M2L |x| (CONS '|Matrix| (CONS R NIL)) |target|))))) ;Sm2M(x,[.,n,R],target is [.,S]) == M2M(x,[nil,R],target) @@ -4564,9 +4564,9 @@ all these coercion functions have the following result: (PROG (|n| R S) (RETURN (PROGN - (SPADLET |n| (CADR G169606)) - (SPADLET R (CADDR G169606)) - (SPADLET S (CADR |target|)) + (setq |n| (CADR G169606)) + (setq R (CADDR G169606)) + (setq S (CADR |target|)) (M2M |x| (CONS NIL (CONS R NIL)) |target|))))) ;Sm2PolyType(u,source is [sm,n,S], target is [pol,vl,T]) == @@ -4600,24 +4600,24 @@ all these coercion functions have the following result: |novars| |source'| |u'|) (RETURN (SEQ (PROGN - (SPADLET |pol| (CAR |target|)) - (SPADLET |vl| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |sm| (CAR |source|)) - (SPADLET |n| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |pol| (CAR |target|)) + (setq |vl| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |sm| (CAR |source|)) + (setq |n| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| T$)) ((AND (CONSP S) (EQ (QCAR S) '|Polynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR S)) + (setq |ISTMP#1| (QCDR S)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |S'| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |S'| (QCAR |ISTMP#1|)) 'T)))) (COND - ((ATOM |vl|) (SPADLET |vl'| (CONS |vl| NIL))) - ('T (SPADLET |vl'| |vl|))) - (SPADLET |novars| 'T) + ((ATOM |vl|) (setq |vl'| (CONS |vl| NIL))) + ('T (setq |vl'| |vl|))) + (setq |novars| 'T) (DO ((G169670 (SPADDIFFERENCE |n| 1)) (|i| 0 (QSADD1 |i|))) ((OR (QSGREATERP |i| G169670) (NULL |novars|)) @@ -4629,12 +4629,12 @@ all these coercion functions have the following result: NIL) (SEQ (EXIT (PROGN - (SPADLET |varsUsed| + (setq |varsUsed| (|varsInPoly| (ELT (ELT |u| |i|) |j|))) (COND ((PROG (G169686) - (SPADLET G169686 NIL) + (setq G169686 NIL) (RETURN (DO ((G169692 NIL @@ -4655,11 +4655,11 @@ all these coercion functions have the following result: (OR G169686 (|member| |x| |varsUsed|)))))))) - (SPADLET |novars| NIL)))))))))) + (setq |novars| NIL)))))))))) (COND (|novars| (|coercionFailure|)) ('T - (SPADLET |source'| + (setq |source'| (CONS |sm| (CONS |n| (CONS @@ -4667,12 +4667,12 @@ all these coercion functions have the following result: (CONS |vl| (CONS S NIL))) NIL)))) (COND - ((NULL (SPADLET |u'| + ((NULL (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) |source'|))) (|coercionFailure|)) - ((NULL (SPADLET |u'| (|coerceInt| |u'| |target|))) + ((NULL (setq |u'| (|coerceInt| |u'| |target|))) (|coercionFailure|)) ('T (|objValUnwrap| |u'|)))))) ('T (|coercionFailure|)))))))) @@ -4687,11 +4687,11 @@ all these coercion functions have the following result: (PROG (|p| |q| S |n| R) (RETURN (PROGN - (SPADLET |p| (CADR G169730)) - (SPADLET |q| (CADDR G169730)) - (SPADLET S (CADDDR G169730)) - (SPADLET |n| (CADR G169721)) - (SPADLET R (CADDR G169721)) + (setq |p| (CADR G169730)) + (setq |q| (CADDR G169730)) + (setq S (CADDDR G169730)) + (setq |n| (CADR G169721)) + (setq R (CADDR G169721)) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) (AND (BOOT-EQUAL |p| |q|) (BOOT-EQUAL |p| |n|) @@ -4706,7 +4706,7 @@ all these coercion functions have the following result: (PROG (R) (RETURN (PROGN - (SPADLET R (CADDR G169753)) + (setq R (CADDR G169753)) (M2V |x| (CONS '|Matrix| (CONS R NIL)) |target|))))) ;--% Symbol @@ -4719,7 +4719,7 @@ all these coercion functions have the following result: (PROG (|vl|) (RETURN (PROGN - (SPADLET |vl| (CADR |target|)) + (setq |vl| (CADR |target|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) NIL) ('T (|position1| |u| |vl|))))))) @@ -4738,22 +4738,22 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer|)) (RETURN (SEQ (PROGN - (SPADLET |dmp| (CAR |target|)) - (SPADLET |vl| (CADR |target|)) - (SPADLET S (CADDR |target|)) + (setq |dmp| (CAR |target|)) + (setq |vl| (CADR |target|)) + (setq S (CADDR |target|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| S)) - ('T (SPADLET |len| (|#| |vl|)) + ('T (setq |len| (|#| |vl|)) (COND ((NEQUAL (SPADDIFFERENCE 1) - (SPADLET |n| (|position| |u| |vl|))) - (SPADLET |u| + (setq |n| (|position| |u| |vl|))) + (setq |u| (|wrap| (LIST (CONS (LIST2VEC (PROG (G169792) - (SPADLET G169792 NIL) + (setq G169792 NIL) (RETURN (DO ((G169797 @@ -4779,7 +4779,7 @@ all these coercion functions have the following result: (CONS |vl| (CONS |$Integer| NIL)))) |target|))) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) @@ -4797,16 +4797,16 @@ all these coercion functions have the following result: (PROG (|mp| |vl| S |n|) (RETURN (PROGN - (SPADLET |mp| (CAR |target|)) - (SPADLET |vl| (CADR |target|)) - (SPADLET S (CADDR |target|)) + (setq |mp| (CAR |target|)) + (setq |vl| (CADR |target|)) + (setq S (CADDR |target|)) (COND ((BOOT-EQUAL |u| (QUOTE |$fromCoerceable$|)) (|canCoerce| |source| S)) - ((NEQUAL (SPADLET |n| (|position1| |u| |vl|)) 0) + ((NEQUAL (setq |n| (|position1| |u| |vl|)) 0) (CONS 1 (CONS |n| (CONS (CONS 1 (CONS 0 (|domainOne| S))) NIL)))) ((QUOTE T) (OR - (SPADLET |u| (|coerceInt| (mkObjWrap |u| |source|) S)) + (setq |u| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) (CONS 0 (|objValUnwrap| |u|)))))))) @@ -4824,22 +4824,22 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer|)) (RETURN (SEQ (PROGN - (SPADLET |ndmp| (CAR |target|)) - (SPADLET |vl| (CADR |target|)) - (SPADLET S (CADDR |target|)) + (setq |ndmp| (CAR |target|)) + (setq |vl| (CADR |target|)) + (setq S (CADDR |target|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| S)) - ('T (SPADLET |len| (|#| |vl|)) + ('T (setq |len| (|#| |vl|)) (COND ((NEQUAL (SPADDIFFERENCE 1) - (SPADLET |n| (|position| |u| |vl|))) - (SPADLET |u| + (setq |n| (|position| |u| |vl|))) + (setq |u| (|wrap| (LIST (CONS (LIST2VEC (PROG (G169848) - (SPADLET G169848 NIL) + (setq G169848 NIL) (RETURN (DO ((G169853 @@ -4865,7 +4865,7 @@ all these coercion functions have the following result: (CONS |vl| (CONS |$Integer| NIL)))) |target|))) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) @@ -4886,14 +4886,14 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer|)) (RETURN (PROGN - (SPADLET |poly| (CAR |target|)) - (SPADLET S (CADR |target|)) + (setq |poly| (CAR |target|)) + (setq S (CADR |target|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) 'T) ('T (COND ((NEQUAL S |$Integer|) - (SPADLET |u'| + (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) S)) (COND (|u'| (RETURN (CONS 0 (|objValUnwrap| |u'|)))) @@ -4912,15 +4912,15 @@ all these coercion functions have the following result: (PROG (|up| |x| S) (RETURN (PROGN - (SPADLET |up| (CAR |target|)) - (SPADLET |x| (CADR |target|)) - (SPADLET S (CADDR |target|)) + (setq |up| (CAR |target|)) + (setq |x| (CADR |target|)) + (setq S (CADDR |target|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| S)) ((BOOT-EQUAL |u| |x|) (CONS (CONS 1 (|domainOne| S)) NIL)) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) (CONS (CONS 0 (|objValUnwrap| |u|)) NIL))))))) @@ -4935,7 +4935,7 @@ all these coercion functions have the following result: (PROG (|x|) (RETURN (PROGN - (SPADLET |x| (CADR |target|)) + (setq |x| (CADR |target|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) NIL) ((BOOT-EQUAL |u| |x|) |u|) @@ -4972,43 +4972,43 @@ all these coercion functions have the following result: |l1| |l2| |e| |c| |z| |y| |x|) (RETURN (SEQ (PROGN - (SPADLET |vl| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |var| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |vl| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |var| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (AND (|member| |var| |vl|) (|canCoerce| S |target|))) ((NULL |u|) (|domainZero| |target|)) ((AND (CONSP |u|) (EQ (QCDR |u|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |e| (QCAR |ISTMP#1|)) - (SPADLET |c| (QCDR |ISTMP#1|)) + (setq |e| (QCAR |ISTMP#1|)) + (setq |c| (QCDR |ISTMP#1|)) 'T))) (EQL |e| 0)) (COND - ((SPADLET |z| + ((setq |z| (|coerceInt| (mkObjWrap |c| S) |target|)) (|objValUnwrap| |z|)) ('T (|coercionFailure|)))) ((|member| |var| |vl|) - (SPADLET |x| (|domainZero| |target|)) - (SPADLET |one| (|domainOne| T$)) - (SPADLET |plusfunc| + (setq |x| (|domainZero| |target|)) + (setq |one| (|domainOne| T$)) + (setq |plusfunc| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |multfunc| + (setq |multfunc| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |n| (|#| |vl|)) - (SPADLET |p| (POSN1 |var| |vl|)) - (SPADLET |l1| + (setq |n| (|#| |vl|)) + (setq |p| (POSN1 |var| |vl|)) + (setq |l1| (AND (NULL (EQL |p| 0)) (PROG (G169969) - (SPADLET G169969 NIL) + (setq G169969 NIL) (RETURN (DO ((|m| 1 (QSADD1 |m|))) ((QSGREATERP |m| |p|) @@ -5017,11 +5017,11 @@ all these coercion functions have the following result: (EXIT (SETQ G169969 (CONS 0 G169969))))))))) - (SPADLET |l2| + (setq |l2| (AND (NULL (BOOT-EQUAL |p| (SPADDIFFERENCE |n| 1))) (PROG (G169981) - (SPADLET G169981 NIL) + (setq G169981 NIL) (RETURN (DO ((G169986 (SPADDIFFERENCE |n| 2)) @@ -5040,19 +5040,19 @@ all these coercion functions have the following result: NIL) (PROGN (PROGN - (SPADLET |e| (CAR G169923)) - (SPADLET |c| (CDR G169923)) + (setq |e| (CAR G169923)) + (setq |c| (CDR G169923)) G169923) NIL) G169998) NIL) (SEQ (EXIT (COND - ((SPADLET |z| + ((setq |z| (|coerceInt| (mkObjWrap |c| S) |target|)) (EXIT (PROGN - (SPADLET |y| + (setq |y| (SPADCALL (|objValUnwrap| |z|) (CONS (CONS @@ -5062,7 +5062,7 @@ all these coercion functions have the following result: |one|) NIL) |multfunc|)) - (SPADLET |x| + (setq |x| (SPADCALL |x| |y| |plusfunc|))))))))) (COND (|z| (EXIT |x|))) (|coercionFailure|))) ('T (|coercionFailure|)))))))) @@ -5103,68 +5103,68 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer| |$Symbol|)) (RETURN (SEQ (PROGN - (SPADLET |Expr| (CAR |target|)) - (SPADLET T$ (CADR |target|)) - (SPADLET |up| (CAR |source|)) - (SPADLET |var| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |Expr| (CAR |target|)) + (setq T$ (CADR |target|)) + (setq |up| (CAR |source|)) + (setq |var| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S |target|)) ((NULL |u|) (|domainZero| |target|)) ((AND (CONSP |u|) (EQ (QCDR |u|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |e| (QCAR |ISTMP#1|)) - (SPADLET |c| (QCDR |ISTMP#1|)) + (setq |e| (QCAR |ISTMP#1|)) + (setq |c| (QCDR |ISTMP#1|)) 'T))) (EQL |e| 0)) (COND - ((SPADLET |z| + ((setq |z| (|coerceInt| (mkObjWrap |c| S) |target|)) (|objValUnwrap| |z|)) ('T (|coercionFailure|)))) ('T - (SPADLET |sym| + (setq |sym| (|objValUnwrap| (|coerceInt| (mkObjWrap |var| |$Symbol|) |target|))) - (SPADLET |plus| + (setq |plus| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |mult| + (setq |mult| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |expn| + (setq |expn| (|getFunctionFromDomain| '** |target| (CONS |target| (CONS |$Integer| NIL)))) - (SPADLET |LETTMP#1| (CAR |u|)) - (SPADLET |e1| (CAR |LETTMP#1|)) - (SPADLET |c1| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (CAR |u|)) + (setq |e1| (CAR |LETTMP#1|)) + (setq |c1| (CDR |LETTMP#1|)) (COND ((NULL (BOOT-EQUAL S |target|)) (COND - ((NULL (SPADLET |c1| + ((NULL (setq |c1| (|coerceInt| (mkObjWrap |c1| S) |target|))) (|coercionFailure|)) - ('T (SPADLET |c1| (|objValUnwrap| |c1|)))))) + ('T (setq |c1| (|objValUnwrap| |c1|)))))) (DO ((G170113 (CDR |u|) (CDR G170113)) (G170052 NIL)) ((OR (ATOM G170113) (PROGN (SETQ G170052 (CAR G170113)) NIL) (PROGN (PROGN - (SPADLET |e2| (CAR G170052)) - (SPADLET |c2| (CDR G170052)) + (setq |e2| (CAR G170052)) + (setq |c2| (CDR G170052)) G170052) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |coef| + (setq |coef| (COND ((EQL (SPADDIFFERENCE |e1| |e2|) @@ -5178,19 +5178,19 @@ all these coercion functions have the following result: ((NULL (BOOT-EQUAL S |target|)) (COND ((NULL - (SPADLET |c2| + (setq |c2| (|coerceInt| (mkObjWrap |c2| S) |target|))) (|coercionFailure|)) ('T - (SPADLET |c2| + (setq |c2| (|objValUnwrap| |c2|)))))) - (SPADLET |coef| + (setq |coef| (SPADCALL (SPADCALL |c1| |coef| |mult|) |c2| |plus|)) - (SPADLET |e1| |e2|) - (SPADLET |c1| |coef|))))) + (setq |e1| |e2|) + (setq |c1| |coef|))))) (COND ((EQL |e1| 0) |c1|) ((EQL |e1| 1) (SPADCALL |sym| |c1| |mult|)) @@ -5215,9 +5215,9 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$RationalNumber| |$Integer|)) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET |x| (CADR S)) - (SPADLET R (CADDR S)) + (setq T$ (CADR |target|)) + (setq |x| (CADR S)) + (setq R (CADDR S)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND @@ -5226,16 +5226,16 @@ all these coercion functions have the following result: ('T NIL))) ((NEQUAL S T$) (|coercionFailure|)) ('T - (SPADLET |package| + (setq |package| (COND ((BOOT-EQUAL R |$Integer|) (CONS '|UnivariateFactorize| (CONS S NIL))) ((BOOT-EQUAL R |$RationalNumber|) - (SPADLET |package| + (setq |package| (CONS '|RationalFactorize| (CONS S NIL)))) ('T (|coercionFailure|)))) - (SPADLET |factor| + (setq |factor| (|getFunctionFromDomain| '|factor| |package| (CONS S NIL))) (SPADCALL |u| |factor|))))))) @@ -5268,10 +5268,10 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$NonNegativeInteger|)) (RETURN (SEQ (PROGN - (SPADLET |vl| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |x| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |vl| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |x| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND @@ -5280,56 +5280,56 @@ all these coercion functions have the following result: ((NULL |u|) (|domainZero| |target|)) ((AND (NULL (CDR |u|)) (PROGN - (SPADLET |ISTMP#1| (CAR |u|)) + (setq |ISTMP#1| (CAR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |e| (QCAR |ISTMP#1|)) - (SPADLET |c| (QCDR |ISTMP#1|)) + (setq |e| (QCAR |ISTMP#1|)) + (setq |c| (QCDR |ISTMP#1|)) 'T))) (EQL |e| 0)) (COND - ((SPADLET |x| + ((setq |x| (|coerceInt| (mkObjWrap |c| S) |target|)) (|objValUnwrap| |x|)) ('T (|coercionFailure|)))) ((NULL (|member| |x| |vl|)) - (OR (SPADLET |x| + (OR (setq |x| (|coerceInt| (mkObjWrap |u| |source|) T$)) (|coercionFailure|)) (CONS 0 (|objValUnwrap| |x|))) ('T - (SPADLET |plus| + (setq |plus| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |monom| + (setq |monom| (|getFunctionFromDomain| '|monomial| |target| (CONS |target| (CONS (CONS '|OrderedVariableList| (CONS |vl| NIL)) (CONS |$NonNegativeInteger| NIL))))) - (SPADLET |sum| (|domainZero| |target|)) - (SPADLET |pos| (|position1| |x| |vl|)) + (setq |sum| (|domainZero| |target|)) + (setq |pos| (|position1| |x| |vl|)) (DO ((G170239 |u| (CDR G170239)) (G170191 NIL)) ((OR (ATOM G170239) (PROGN (SETQ G170191 (CAR G170239)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G170191)) - (SPADLET |c| (CDR G170191)) + (setq |e| (CAR G170191)) + (setq |c| (CDR G170191)) G170191) NIL)) NIL) (SEQ (EXIT (PROGN - (OR (SPADLET |p| + (OR (setq |p| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) - (SPADLET |mon| + (setq |mon| (SPADCALL (|objValUnwrap| |p|) |pos| |e| |monom|)) - (SPADLET |sum| + (setq |sum| (SPADCALL |sum| |mon| |plus|)))))) |sum|))))))) @@ -5356,33 +5356,33 @@ all these coercion functions have the following result: |term| |pol|) (RETURN (SEQ (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET |var| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq T$ (CADR |target|)) + (setq |var| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S |target|)) ((NULL |u|) (|domainZero| |target|)) ((AND (CONSP |u|) (EQ (QCDR |u|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |e| (QCAR |ISTMP#1|)) - (SPADLET |c| (QCDR |ISTMP#1|)) + (setq |e| (QCAR |ISTMP#1|)) + (setq |c| (QCDR |ISTMP#1|)) 'T))) (EQL |e| 0)) (COND - ((SPADLET |x| + ((setq |x| (|coerceInt| (mkObjWrap |c| S) |target|)) (|objValUnwrap| |x|)) ('T (|coercionFailure|)))) - ('T (SPADLET |pol| (|domainZero| |target|)) - (SPADLET |one| (|domainOne| T$)) - (SPADLET |plusfunc| + ('T (setq |pol| (|domainZero| |target|)) + (setq |one| (|domainOne| T$)) + (setq |plusfunc| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |multfunc| + (setq |multfunc| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) (DO ((G170322 |u| (CDR G170322)) (G170278 NIL) @@ -5391,18 +5391,18 @@ all these coercion functions have the following result: (PROGN (SETQ G170278 (CAR G170322)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G170278)) - (SPADLET |c| (CDR G170278)) + (setq |e| (CAR G170278)) + (setq |c| (CDR G170278)) G170278) NIL) G170323) NIL) (SEQ (EXIT (COND - ((SPADLET |x| + ((setq |x| (|coerceInt| (mkObjWrap |c| S) |target|)) - (SPADLET |term| + (setq |term| (SPADCALL (CONS 1 (CONS |var| @@ -5411,7 +5411,7 @@ all these coercion functions have the following result: NIL))) (|objValUnwrap| |x|) |multfunc|)) - (SPADLET |pol| + (setq |pol| (SPADCALL |pol| |term| |plusfunc|))) ('T (|coercionFailure|)))))) @@ -5437,31 +5437,31 @@ all these coercion functions have the following result: (PROG (T$ |x| S |zero| |e| |c| |c'| |u'|) (RETURN (SEQ (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET |x| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq T$ (CADR |target|)) + (setq |x| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (OR (|canCoerce| |source| T$) (|canCoerce| S T$))) ((NULL |u|) |u|) ((BOOT-EQUAL S T$) |u|) - ((NULL (SPADLET |u'| + ((NULL (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) T$))) - (SPADLET |u'| NIL) - (SPADLET |zero| (|getConstantFromDomain| '(|Zero|) T$)) + (setq |u'| NIL) + (setq |zero| (|getConstantFromDomain| '(|Zero|) T$)) (DO ((G170387 |u| (CDR G170387)) (G170351 NIL)) ((OR (ATOM G170387) (PROGN (SETQ G170351 (CAR G170387)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G170351)) - (SPADLET |c| (CDR G170351)) + (setq |e| (CAR G170351)) + (setq |c| (CDR G170351)) G170351) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |c'| + (setq |c'| (|objValUnwrap| (OR (|coerceInt| @@ -5470,7 +5470,7 @@ all these coercion functions have the following result: (COND ((BOOT-EQUAL |c'| |zero|) '|iterate|) ('T - (SPADLET |u'| + (setq |u'| (CONS (CONS |e| |c'|) |u'|)))))))) (NREVERSE |u'|)) ('T (CONS (CONS 0 (|objValUnwrap| |u'|)) NIL)))))))) @@ -5491,10 +5491,10 @@ all these coercion functions have the following result: (PROG (|v2| T$ |v1| S |ISTMP#1| |e| |c| |x|) (RETURN (PROGN - (SPADLET |v2| (CADR |target|)) - (SPADLET T$ (CADDR |target|)) - (SPADLET |v1| (CADR |source|)) - (SPADLET S (CADDR |source|)) + (setq |v2| (CADR |target|)) + (setq T$ (CADDR |target|)) + (setq |v1| (CADR |source|)) + (setq S (CADDR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND @@ -5503,15 +5503,15 @@ all these coercion functions have the following result: ((NULL |u|) |u|) ((AND (CONSP |u|) (EQ (QCDR |u|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |e| (QCAR |ISTMP#1|)) - (SPADLET |c| (QCDR |ISTMP#1|)) + (setq |e| (QCAR |ISTMP#1|)) + (setq |c| (QCDR |ISTMP#1|)) 'T))) (EQL |e| 0)) (COND - ((SPADLET |x| (|coerceInt| (mkObjWrap |c| S) |target|)) + ((setq |x| (|coerceInt| (mkObjWrap |c| S) |target|)) (|objValUnwrap| |x|)) ('T (|coercionFailure|)))) ('T (|coercionFailure|))))))) @@ -5527,11 +5527,11 @@ all these coercion functions have the following result: (PROG (|branches|) (RETURN (SEQ (PROGN - (SPADLET |branches| (CDR |source|)) + (setq |branches| (CDR |source|)) (COND ((BOOT-EQUAL |x| '|$fromCoerceable$|) (PROG (G170473) - (SPADLET G170473 'T) + (setq G170473 'T) (RETURN (DO ((G170480 NIL (NULL G170473)) (G170481 |branches| (CDR G170481)) @@ -5557,8 +5557,8 @@ all these coercion functions have the following result: (PROG (|vl| |sym|) (RETURN (PROGN - (SPADLET |vl| (CADR |target|)) - (SPADLET |sym| (CADR |source|)) + (setq |vl| (CADR |target|)) + (setq |sym| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|member| |sym| |vl|)) ((|member| |sym| |vl|) (|position1| |sym| |vl|)) @@ -5578,20 +5578,20 @@ all these coercion functions have the following result: (PROG (|dmp| |vl| S |sym| |len| |n|) (RETURN (SEQ (PROGN - (SPADLET |dmp| (CAR |target|)) - (SPADLET |vl| (CADR |target|)) - (SPADLET S (CADDR |target|)) - (SPADLET |sym| (CADR |source|)) + (setq |dmp| (CAR |target|)) + (setq |vl| (CADR |target|)) + (setq S (CADDR |target|)) + (setq |sym| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (OR (|member| |sym| |vl|) (|canCoerce| |source| S))) - ('T (SPADLET |len| (|#| |vl|)) + ('T (setq |len| (|#| |vl|)) (COND ((NEQUAL (SPADDIFFERENCE 1) - (SPADLET |n| (|position| |sym| |vl|))) + (setq |n| (|position| |sym| |vl|))) (LIST (CONS (LIST2VEC (PROG (G170521) - (SPADLET G170521 NIL) + (setq G170521 NIL) (RETURN (DO ((G170526 @@ -5609,7 +5609,7 @@ all these coercion functions have the following result: G170521)))))))) (|getConstantFromDomain| '(|One|) S)))) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) @@ -5630,20 +5630,20 @@ all these coercion functions have the following result: (PROG (|dmp| |vl| S |sym| |len| |n|) (RETURN (SEQ (PROGN - (SPADLET |dmp| (CAR |target|)) - (SPADLET |vl| (CADR |target|)) - (SPADLET S (CADDR |target|)) - (SPADLET |sym| (CADR |source|)) + (setq |dmp| (CAR |target|)) + (setq |vl| (CADR |target|)) + (setq S (CADDR |target|)) + (setq |sym| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (OR (|member| |sym| |vl|) (|canCoerce| |source| S))) - ('T (SPADLET |len| (|#| |vl|)) + ('T (setq |len| (|#| |vl|)) (COND ((NEQUAL (SPADDIFFERENCE 1) - (SPADLET |n| (|position| |sym| |vl|))) + (setq |n| (|position| |sym| |vl|))) (LIST (CONS (LIST2VEC (PROG (G170557) - (SPADLET G170557 NIL) + (setq G170557 NIL) (RETURN (DO ((G170562 @@ -5661,7 +5661,7 @@ all these coercion functions have the following result: G170557)))))))) (|getConstantFromDomain| '(|One|) S)))) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) @@ -5680,14 +5680,14 @@ all these coercion functions have the following result: (PROG (|mp| |vl| S |sym| |n|) (RETURN (PROGN - (SPADLET |mp| (CAR |target|)) - (SPADLET |vl| (CADR |target|)) - (SPADLET S (CADDR |target|)) - (SPADLET |sym| (CADR |source|)) + (setq |mp| (CAR |target|)) + (setq |vl| (CADR |target|)) + (setq S (CADDR |target|)) + (setq |sym| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (OR (|member| |sym| |vl|) (|canCoerce| |source| S))) - ((NEQUAL (SPADLET |n| (|position1| |u| |vl|)) 0) + ((NEQUAL (setq |n| (|position1| |u| |vl|)) 0) (CONS 1 (CONS |n| (CONS (CONS 1 @@ -5696,7 +5696,7 @@ all these coercion functions have the following result: S))) NIL)))) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) (CONS 0 (|objValUnwrap| |u|)))))))) @@ -5715,20 +5715,20 @@ all these coercion functions have the following result: (PROG (|ndmp| |vl| S |sym| |len| |n|) (RETURN (SEQ (PROGN - (SPADLET |ndmp| (CAR |target|)) - (SPADLET |vl| (CADR |target|)) - (SPADLET S (CADDR |target|)) - (SPADLET |sym| (CADR |source|)) + (setq |ndmp| (CAR |target|)) + (setq |vl| (CADR |target|)) + (setq S (CADDR |target|)) + (setq |sym| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (OR (|member| |sym| |vl|) (|canCoerce| |source| S))) - ('T (SPADLET |len| (|#| |vl|)) + ('T (setq |len| (|#| |vl|)) (COND ((NEQUAL (SPADDIFFERENCE 1) - (SPADLET |n| (|position| |u| |vl|))) + (setq |n| (|position| |u| |vl|))) (LIST (CONS (LIST2VEC (PROG (G170613) - (SPADLET G170613 NIL) + (setq G170613 NIL) (RETURN (DO ((G170618 @@ -5746,7 +5746,7 @@ all these coercion functions have the following result: G170613)))))))) (|getConstantFromDomain| '(|One|) S)))) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) @@ -5768,15 +5768,15 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer|)) (RETURN (PROGN - (SPADLET |poly| (CAR |target|)) - (SPADLET S (CADR |target|)) - (SPADLET |sym| (CADR |source|)) + (setq |poly| (CAR |target|)) + (setq S (CADR |target|)) + (setq |sym| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) 'T) ('T (COND ((NEQUAL S |$Integer|) - (SPADLET |u'| + (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) S)) (COND (|u'| (RETURN (CONS 0 (|objValUnwrap| |u'|)))) @@ -5801,14 +5801,14 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer|)) (RETURN (PROGN - (SPADLET |qf| (CAR |target|)) - (SPADLET S (CADR |target|)) + (setq |qf| (CAR |target|)) + (setq S (CADR |target|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| |source| S)) ((BOOT-EQUAL S |$Integer|) (|coercionFailure|)) - ('T (SPADLET |sym| (CADR |source|)) - (OR (SPADLET |u'| + ('T (setq |sym| (CADR |source|)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) (CONS (|objValUnwrap| |u'|) @@ -5825,16 +5825,16 @@ all these coercion functions have the following result: (PROG (|fs| S |v|) (RETURN (PROGN - (SPADLET |fs| (CAR |target|)) - (SPADLET S (CADR |target|)) + (setq |fs| (CAR |target|)) + (setq S (CADR |target|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) 'T) ('T - (OR (SPADLET |v| + (OR (setq |v| (|coerceInt| (mkObjWrap |u| |source|) (CONS '|Polynomial| (CONS S NIL)))) (|coercionFailure|)) - (OR (SPADLET |v| (|coerceInt| |v| |target|)) + (OR (setq |v| (|coerceInt| |v| |target|)) (|coercionFailure|)) (|objValUnwrap| |v|))))))) @@ -5849,17 +5849,17 @@ all these coercion functions have the following result: (PROG (|up| |x| S |sym|) (RETURN (PROGN - (SPADLET |up| (CAR |target|)) - (SPADLET |x| (CADR |target|)) - (SPADLET S (CADDR |target|)) - (SPADLET |sym| (CADR |source|)) + (setq |up| (CAR |target|)) + (setq |x| (CADR |target|)) + (setq S (CADDR |target|)) + (setq |sym| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (OR (BOOT-EQUAL |sym| |x|) (|canCoerce| |source| S))) ((BOOT-EQUAL |x| |sym|) (CONS (CONS 1 (|getConstantFromDomain| '(|One|) S)) NIL)) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) (CONS (CONS 0 (|objValUnwrap| |u|)) NIL))))))) @@ -5875,16 +5875,16 @@ all these coercion functions have the following result: (PROG (|sup| S |sym|) (RETURN (PROGN - (SPADLET |sup| (CAR |target|)) - (SPADLET S (CADR |target|)) - (SPADLET |sym| (CADR |source|)) + (setq |sup| (CAR |target|)) + (setq S (CADR |target|)) + (setq |sym| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (OR (BOOT-EQUAL |sym| '?) (|canCoerce| |source| S))) ((BOOT-EQUAL |sym| '?) (CONS (CONS 1 (|getConstantFromDomain| '(|One|) S)) NIL)) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) (CONS (CONS 0 (|objValUnwrap| |u|)) NIL))))))) @@ -5905,30 +5905,30 @@ all these coercion functions have the following result: (PROG (|ups| |x| S |sym| |mid|) (RETURN (PROGN - (SPADLET |ups| (CAR |target|)) - (SPADLET |x| (CADR |target|)) - (SPADLET S (CADDR |target|)) - (SPADLET |sym| (CADR |source|)) + (setq |ups| (CAR |target|)) + (setq |x| (CADR |target|)) + (setq S (CADDR |target|)) + (setq |sym| (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (OR (BOOT-EQUAL |sym| |x|) (|canCoerce| |source| S))) ('T - (SPADLET |mid| + (setq |mid| (CONS '|UnivariatePolynomial| (CONS |x| (CONS S NIL)))) (COND ((BOOT-EQUAL |x| |sym|) - (SPADLET |u| (|Var2Up| |u| |source| |mid|)) - (OR (SPADLET |u| + (setq |u| (|Var2Up| |u| |source| |mid|)) + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |mid|) |target|)) (|coercionFailure|)) (|objValUnwrap| |u|)) ('T - (OR (SPADLET |u| + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |source|) S)) (|coercionFailure|)) - (OR (SPADLET |u| (|coerceInt| |u| |target|)) + (OR (setq |u| (|coerceInt| |u| |target|)) (|coercionFailure|)) (|objValUnwrap| |u|))))))))) @@ -5945,10 +5945,10 @@ all these coercion functions have the following result: (PROG (|x| S |sym| |mid|) (RETURN (PROGN - (SPADLET |x| (CADR |target|)) - (SPADLET S (CADDR |target|)) - (SPADLET |sym| (CADR |source|)) - (SPADLET |mid| + (setq |x| (CADR |target|)) + (setq S (CADDR |target|)) + (setq |sym| (CADR |source|)) + (setq |mid| (CONS '|UnivariatePowerSeries| (CONS |x| (CONS S NIL)))) (COND @@ -5956,8 +5956,8 @@ all these coercion functions have the following result: (OR (BOOT-EQUAL |sym| |x|) (AND (|canCoerce| |source| |mid|) (|canCoerce| |mid| |target|)))) - ('T (SPADLET |u| (|Var2UpS| |u| |source| |mid|)) - (OR (SPADLET |u| + ('T (setq |u| (|Var2UpS| |u| |source| |mid|)) + (OR (setq |u| (|coerceInt| (mkObjWrap |u| |mid|) |target|)) (|coercionFailure|)) (|objValUnwrap| |u|))))))) @@ -5980,8 +5980,8 @@ all these coercion functions have the following result: (PROG (R D |ISTMP#1| E |x|) (RETURN (SEQ (PROGN - (SPADLET R (CADR G170776)) - (SPADLET D (CADR G170765)) + (setq R (CADR G170776)) + (setq D (CADR G170765)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (COND @@ -5989,14 +5989,14 @@ all these coercion functions have the following result: ('T (|canCoerce| D R)))) ((AND (CONSP D) (EQ (QCAR D) '|Vector|) (PROGN - (SPADLET |ISTMP#1| (QCDR D)) + (setq |ISTMP#1| (QCDR D)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET E (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq E (QCAR |ISTMP#1|)) 'T))) (|isRectangularVector| |u| (MAXINDEX |u|) (MAXINDEX (ELT |u| 0)))) (LIST2VEC (PROG (G170794) - (SPADLET G170794 NIL) + (setq G170794 NIL) (RETURN (DO ((G170799 (MAXINDEX |u|)) (|i| 0 (QSADD1 |i|))) @@ -6006,12 +6006,12 @@ all these coercion functions have the following result: (CONS (LIST2VEC (PROG (G170807) - (SPADLET G170807 NIL) + (setq G170807 NIL) (RETURN (DO ((G170812 (MAXINDEX - (SPADLET |x| + (setq |x| (ELT |u| |i|)))) (|j| 0 (QSADD1 |j|))) ((QSGREATERP |j| @@ -6044,22 +6044,22 @@ all these coercion functions have the following result: (PROG (|n| |m| R D |ISTMP#1| E |x|) (RETURN (SEQ (PROGN - (SPADLET |n| (CADR G170842)) - (SPADLET |m| (CADDR G170842)) - (SPADLET R (CADDDR G170842)) - (SPADLET D (CADR G170831)) + (setq |n| (CADR G170842)) + (setq |m| (CADDR G170842)) + (setq R (CADDDR G170842)) + (setq D (CADR G170831)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) NIL) ((AND (CONSP D) (PROGN - (SPADLET |ISTMP#1| (QCDR D)) + (setq |ISTMP#1| (QCDR D)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET E (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq E (QCAR |ISTMP#1|)) 'T))) (|isRectangularVector| |u| (SPADDIFFERENCE |n| 1) (SPADDIFFERENCE |m| 1))) (LIST2VEC (PROG (G170864) - (SPADLET G170864 NIL) + (setq G170864 NIL) (RETURN (DO ((G170869 (MAXINDEX |u|)) (|i| 0 (QSADD1 |i|))) @@ -6069,12 +6069,12 @@ all these coercion functions have the following result: (CONS (LIST2VEC (PROG (G170877) - (SPADLET G170877 NIL) + (setq G170877 NIL) (RETURN (DO ((G170882 (MAXINDEX - (SPADLET |x| + (setq |x| (ELT |u| |i|)))) (|j| 0 (QSADD1 |j|))) ((QSGREATERP |j| @@ -6105,21 +6105,21 @@ all these coercion functions have the following result: (PROG (|n| R D |ISTMP#1| E |x|) (RETURN (SEQ (PROGN - (SPADLET |n| (CADR G170914)) - (SPADLET R (CADDR G170914)) - (SPADLET D (CADR G170903)) + (setq |n| (CADR G170914)) + (setq R (CADDR G170914)) + (setq D (CADR G170903)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) NIL) ((AND (CONSP D) (PROGN - (SPADLET |ISTMP#1| (QCDR D)) + (setq |ISTMP#1| (QCDR D)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET E (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq E (QCAR |ISTMP#1|)) 'T))) (|isRectangularVector| |u| (SPADDIFFERENCE |n| 1) (SPADDIFFERENCE |n| 1))) (LIST2VEC (PROG (G170934) - (SPADLET G170934 NIL) + (setq G170934 NIL) (RETURN (DO ((G170939 (MAXINDEX |u|)) (|i| 0 (QSADD1 |i|))) @@ -6129,12 +6129,12 @@ all these coercion functions have the following result: (CONS (LIST2VEC (PROG (G170947) - (SPADLET G170947 NIL) + (setq G170947 NIL) (RETURN (DO ((G170952 (MAXINDEX - (SPADLET |x| + (setq |x| (ELT |u| |i|)))) (|j| 0 (QSADD1 |j|))) ((QSGREATERP |j| @@ -6163,7 +6163,7 @@ all these coercion functions have the following result: (SEQ (COND ((BOOT-EQUAL (MAXINDEX |x|) |p|) (EXIT (PROG (G170967) - (SPADLET G170967 'T) + (setq G170967 'T) (RETURN (DO ((G170973 NIL (NULL G170967)) (|i| 0 (QSADD1 |i|))) @@ -6227,52 +6227,52 @@ all these coercion functions have the following result: (DECLARE (SPECIAL |$Integer|)) (RETURN (PROGN - (SPADLET T$ (CADR |target|)) - (SPADLET |var| (CADDR |target|)) - (SPADLET |cen| (CADDDR |target|)) - (SPADLET S (CADR |source|)) + (setq T$ (CADR |target|)) + (setq |var| (CADDR |target|)) + (setq |cen| (CADDDR |target|)) + (setq S (CADR |source|)) (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S T$)) ((NULL (AND (CONSP T$) (EQ (QCAR T$) '|Expression|))) (|coercionFailure|)) - ('T (COND ((NEQUAL S '(|Float|)) (SPADLET S |$Integer|))) - (SPADLET |obj| (mkObjWrap |u| |source|)) - (SPADLET E (CONS '|Expression| (CONS S NIL))) - (SPADLET |newU| (|coerceInt| |obj| E)) + ('T (COND ((NEQUAL S '(|Float|)) (setq S |$Integer|))) + (setq |obj| (mkObjWrap |u| |source|)) + (setq E (CONS '|Expression| (CONS S NIL))) + (setq |newU| (|coerceInt| |obj| E)) (COND ((NULL |newU|) (|coercionFailure|)) - ('T (SPADLET |EQtype| (CONS '|Equation| (CONS E NIL))) - (SPADLET |eqfun| + ('T (setq |EQtype| (CONS '|Equation| (CONS E NIL))) + (setq |eqfun| (|getFunctionFromDomain| '= |EQtype| (CONS E (CONS E NIL)))) - (SPADLET |varE| + (setq |varE| (|coerceInt| (mkObjWrap |var| '(|Symbol|)) E)) (COND ((NULL |varE|) (|coercionFailure|)) ('T - (SPADLET |cenE| + (setq |cenE| (|coerceInt| (mkObjWrap |cen| T$) E)) (COND ((NULL |cenE|) (|coercionFailure|)) ('T - (SPADLET |eq| + (setq |eq| (SPADCALL (|objValUnwrap| |varE|) (|objValUnwrap| |cenE|) |eqfun|)) - (SPADLET |package| + (setq |package| (CONS '|ExpressionToUnivariatePowerSeries| (CONS S (CONS E NIL)))) - (SPADLET |func| + (setq |func| (|getFunctionFromDomain| |type| |package| (CONS E (CONS |EQtype| NIL)))) - (SPADLET |newObj| + (setq |newObj| (SPADCALL (|objValUnwrap| |newU|) |eq| |func|)) - (SPADLET |newType| (CAR |newObj|)) - (SPADLET |newVal| (CDR |newObj|)) + (setq |newType| (CAR |newObj|)) + (setq |newVal| (CDR |newObj|)) (COND ((BOOT-EQUAL |newType| |target|) |newVal|) ('T - (SPADLET |finalObj| + (setq |finalObj| (|coerceInt| (mkObjWrap |newVal| |newType|) |target|)) @@ -6311,24 +6311,24 @@ all these coercion functions have the following result: (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (AND (|canCoerce| S |target|) (|canCoerce| T$ |target|))) - ('T (SPADLET |real| (CAR |u|)) (SPADLET |imag| (CDR |u|)) - (OR (SPADLET |real| + ('T (setq |real| (CAR |u|)) (setq |imag| (CDR |u|)) + (OR (setq |real| (|coerceInt| (mkObjWrap |real| S) |target|)) (|coercionFailure|)) - (OR (SPADLET |imag| + (OR (setq |imag| (|coerceInt| (mkObjWrap |imag| S) |target|)) (|coercionFailure|)) - (SPADLET |T'| (|underDomainOf| T$)) - (SPADLET |i| (CONS (|domainZero| |T'|) (|domainOne| |T'|))) - (OR (SPADLET |i| (|coerceInt| (mkObjWrap |i| T$) |target|)) + (setq |T'| (|underDomainOf| T$)) + (setq |i| (CONS (|domainZero| |T'|) (|domainOne| |T'|))) + (OR (setq |i| (|coerceInt| (mkObjWrap |i| T$) |target|)) (|coercionFailure|)) - (SPADLET |f| + (setq |f| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |i| + (setq |i| (SPADCALL (|objValUnwrap| |i|) (|objValUnwrap| |imag|) |f|)) - (SPADLET |f| + (setq |f| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) (SPADCALL (|objValUnwrap| |real|) |i| |f|)))))) @@ -6359,9 +6359,9 @@ all these coercion functions have the following result: ((BOOT-EQUAL |u| '|$fromCoerceable$|) (AND (|canCoerce| S |target|) (|canCoerce| T$ |target|))) ('T - (SPADLET |c| + (setq |c| (PROG (G171055) - (SPADLET G171055 NIL) + (setq G171055 NIL) (RETURN (DO ((G171060 (VEC2LIST |u|) (CDR G171060)) @@ -6380,8 +6380,8 @@ all these coercion functions have the following result: |target|) (|coercionFailure|))) G171055)))))))) - (SPADLET |q| '(|Quaternion| (|Integer|))) - (SPADLET |e| + (setq |q| '(|Quaternion| (|Integer|))) + (setq |e| (CONS (CONS 1 (CONS 0 (CONS 0 (CONS 0 NIL)))) (CONS (CONS 0 (CONS 1 (CONS 0 (CONS 0 NIL)))) @@ -6392,9 +6392,9 @@ all these coercion functions have the following result: (CONS 0 (CONS 0 (CONS 0 (CONS 1 NIL)))) NIL))))) - (SPADLET |e| + (setq |e| (PROG (G171070) - (SPADLET G171070 NIL) + (setq G171070 NIL) (RETURN (DO ((G171075 |e| (CDR G171075)) (|x| NIL)) @@ -6412,9 +6412,9 @@ all these coercion functions have the following result: T$) (|coercionFailure|)) G171070)))))))) - (SPADLET |e| + (setq |e| (PROG (G171085) - (SPADLET G171085 NIL) + (setq G171085 NIL) (RETURN (DO ((G171090 |e| (CDR G171090)) (|x| NIL)) @@ -6430,11 +6430,11 @@ all these coercion functions have the following result: (|coerceInt| |x| |target|) (|coercionFailure|))) G171085)))))))) - (SPADLET |u'| (|domainZero| |target|)) - (SPADLET |mult| + (setq |u'| (|domainZero| |target|)) + (setq |mult| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |plus| + (setq |plus| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) (DO ((G171100 |c| (CDR G171100)) (|x| NIL) @@ -6444,7 +6444,7 @@ all these coercion functions have the following result: (ATOM G171101) (PROGN (SETQ |y| (CAR G171101)) NIL)) NIL) - (SEQ (EXIT (SPADLET |u'| + (SEQ (EXIT (setq |u'| (SPADCALL |u'| (SPADCALL |x| |y| |mult|) |plus|))))) |u'|)))))) @@ -6486,36 +6486,36 @@ all these coercion functions have the following result: ((|ofCategory| |target| '(|Field|)) (|canCoerce| S |target|)) ('T (AND (|canCoerce| S T$) (|canCoerce| T$ |target|))))) - ('T (SPADLET |n| (CAR |u|)) (SPADLET |d| (CDR |u|)) + ('T (setq |n| (CAR |u|)) (setq |d| (CDR |u|)) (COND ((|ofCategory| |target| '(|Field|)) - (OR (SPADLET |d'| + (OR (setq |d'| (|coerceInt| (mkObjWrap |d| S) |target|)) (|coercionFailure|)) - (SPADLET |inv| + (setq |inv| (|getFunctionFromDomain| '|inv| |target| (CONS |target| NIL))) - (SPADLET |d'| (SPADCALL (|objValUnwrap| |d'|) |inv|)) - (OR (SPADLET |n'| + (setq |d'| (SPADCALL (|objValUnwrap| |d'|) |inv|)) + (OR (setq |n'| (|coerceInt| (mkObjWrap |n| S) |target|)) (|coercionFailure|)) - (SPADLET |multfunc| + (setq |multfunc| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) (SPADCALL |d'| (|objValUnwrap| |n'|) |multfunc|)) ('T - (OR (SPADLET |d'| (|coerceInt| (mkObjWrap |d| S) T$)) + (OR (setq |d'| (|coerceInt| (mkObjWrap |d| S) T$)) (|coercionFailure|)) - (SPADLET |inv| + (setq |inv| (|getFunctionFromDomain| '|inv| T$ (CONS T$ NIL))) - (SPADLET |d'| (SPADCALL (|objValUnwrap| |d'|) |inv|)) - (OR (SPADLET |d'| + (setq |d'| (SPADCALL (|objValUnwrap| |d'|) |inv|)) + (OR (setq |d'| (|coerceInt| (mkObjWrap |d'| T$) |target|)) (|coercionFailure|)) - (OR (SPADLET |n'| + (OR (setq |n'| (|coerceInt| (mkObjWrap |n| S) |target|)) (|coercionFailure|)) - (SPADLET |multfunc| + (setq |multfunc| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) (SPADCALL (|objValUnwrap| |d'|) (|objValUnwrap| |n'|) @@ -6558,17 +6558,17 @@ all these coercion functions have the following result: (COND ((BOOT-EQUAL |source| |target|) |u|) ('T (|coercionFailure|)))) - ('T (SPADLET |u'| (|domainZero| |target|)) - (SPADLET |plusfunc| + ('T (setq |u'| (|domainZero| |target|)) + (setq |plusfunc| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |multfunc| + (setq |multfunc| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |zero| (|domainZero| S)) - (SPADLET |sm| (CAR |source|)) - (SPADLET |n| (CADR |source|)) - (SPADLET |S'| + (setq |zero| (|domainZero| S)) + (setq |sm| (CAR |source|)) + (setq |n| (CADR |source|)) + (setq |S'| (CONS |sm| (CONS |n| (CONS |$Integer| NIL)))) (DO ((G171156 (SPADDIFFERENCE |n| 1)) (|i| 0 (QSADD1 |i|))) @@ -6578,19 +6578,19 @@ all these coercion functions have the following result: ((QSGREATERP |j| G171163) NIL) (SEQ (EXIT (COND ((BOOT-EQUAL - (SPADLET |e| + (setq |e| (ELT (ELT |u| |i|) |j|)) |zero|) '|iterate|) ('T (OR - (SPADLET |e'| + (setq |e'| (|coerceInt| (mkObjWrap |e| S) |target|)) (|coercionFailure|)) (OR - (SPADLET |Eij| + (setq |Eij| (|coerceInt| (mkObjWrap (|makeEijSquareMatrix| @@ -6599,16 +6599,16 @@ all these coercion functions have the following result: T$)) (|coercionFailure|)) (OR - (SPADLET |Eij| + (setq |Eij| (|coerceInt| |Eij| |target|)) (|coercionFailure|)) - (SPADLET |e'| + (setq |e'| (SPADCALL (|objValUnwrap| |e'|) (|objValUnwrap| |Eij|) |multfunc|)) - (SPADLET |u'| + (setq |u'| (SPADCALL |e'| |u'| |plusfunc|)))))))))) |u'|)))))) @@ -6624,7 +6624,7 @@ all these coercion functions have the following result: (RETURN (SEQ (LIST2VEC (PROG (G171188) - (SPADLET G171188 NIL) + (setq G171188 NIL) (RETURN (DO ((G171193 (SPADDIFFERENCE |dim| 1)) (|r| 0 (QSADD1 |r|))) @@ -6634,7 +6634,7 @@ all these coercion functions have the following result: (CONS (LIST2VEC (PROG (G171201) - (SPADLET G171201 NIL) + (setq G171201 NIL) (RETURN (DO ((G171206 @@ -6692,19 +6692,19 @@ all these coercion functions have the following result: (SEQ (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (AND (|canCoerce| S |target|) (|canCoerce| T$ |target|))) - ('T (SPADLET |u'| (|domainZero| |target|)) + ('T (setq |u'| (|domainZero| |target|)) (COND ((NULL |u|) |u'|) - ('T (SPADLET |T'| (|underDomainOf| T$)) - (SPADLET |one| (|domainOne| |T'|)) - (SPADLET |monom| + ('T (setq |T'| (|underDomainOf| T$)) + (setq |one| (|domainOne| |T'|)) + (setq |monom| (|getFunctionFromDomain| '|monomial| T$ (CONS |T'| (CONS |$NonNegativeInteger| NIL)))) - (SPADLET |plus| + (setq |plus| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |times| + (setq |times| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) (DO ((G171234 |u| (CDR G171234)) (G171219 NIL)) @@ -6712,25 +6712,25 @@ all these coercion functions have the following result: (PROGN (SETQ G171219 (CAR G171234)) NIL) (PROGN (PROGN - (SPADLET |e| (CAR G171219)) - (SPADLET |c| (CDR G171219)) + (setq |e| (CAR G171219)) + (setq |c| (CDR G171219)) G171219) NIL)) NIL) (SEQ (EXIT (PROGN - (OR (SPADLET |c| + (OR (setq |c| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) - (SPADLET |m| + (setq |m| (SPADCALL |one| |e| |monom|)) - (OR (SPADLET |m| + (OR (setq |m| (|coerceInt| (mkObjWrap |m| T$) |target|)) (|coercionFailure|)) - (SPADLET |c| (|objValUnwrap| |c|)) - (SPADLET |m| (|objValUnwrap| |m|)) - (SPADLET |u'| + (setq |c| (|objValUnwrap| |c|)) + (setq |m| (|objValUnwrap| |m|)) + (setq |u'| (SPADCALL |u'| (SPADCALL |c| |m| |times|) |plus|)))))) @@ -6797,55 +6797,55 @@ all these coercion functions have the following result: (COND ((BOOT-EQUAL |u| '|$fromCoerceable$|) (|canCoerce| S |target|)) ('T - (SPADLET |isconstfun| + (setq |isconstfun| (|getFunctionFromDomain| '|ground?| |source| (CONS |source| NIL))) (COND ((SPADCALL |u| |isconstfun|) - (SPADLET |constfun| + (setq |constfun| (|getFunctionFromDomain| '|ground| |source| (CONS |source| NIL))) - (SPADLET |c| (SPADCALL |u| |constfun|)) - (OR (SPADLET |u'| + (setq |c| (SPADCALL |u| |constfun|)) + (OR (setq |u'| (|coerceInt| (mkObjWrap |c| S) |target|)) (|coercionFailure|)) (|objValUnwrap| |u'|)) ('T - (SPADLET |lmfun| + (setq |lmfun| (|getFunctionFromDomain| '|leadingMonomial| |source| (CONS |source| NIL))) - (SPADLET |lm| (SPADCALL |u| |lmfun|)) - (SPADLET |lcfun| + (setq |lm| (SPADCALL |u| |lmfun|)) + (setq |lcfun| (|getFunctionFromDomain| '|leadingCoefficient| |source| (CONS |source| NIL))) - (SPADLET |lc| (SPADCALL |lm| |lcfun|)) - (OR (SPADLET |lc'| + (setq |lc| (SPADCALL |lm| |lcfun|)) + (OR (setq |lc'| (|coerceInt| (mkObjWrap |lc| S) |target|)) (|coercionFailure|)) - (SPADLET |pmfun| + (setq |pmfun| (|getFunctionFromDomain| '|primitiveMonomials| |source| (CONS |source| NIL))) - (SPADLET |lm| (CAR (SPADCALL |lm| |pmfun|))) - (OR (SPADLET |lm'| + (setq |lm| (CAR (SPADCALL |lm| |pmfun|))) + (OR (setq |lm'| (|coerceInt| (mkObjWrap |lm| |source|) T$)) (|coercionFailure|)) - (OR (SPADLET |lm'| (|coerceInt| |lm'| |target|)) + (OR (setq |lm'| (|coerceInt| |lm'| |target|)) (|coercionFailure|)) - (SPADLET |rdfun| + (setq |rdfun| (|getFunctionFromDomain| '|reductum| |source| (CONS |source| NIL))) - (SPADLET |rd| (SPADCALL |u| |rdfun|)) - (OR (SPADLET |rd'| + (setq |rd| (SPADCALL |u| |rdfun|)) + (OR (setq |rd'| (|coerceInt| (mkObjWrap |rd| |source|) |target|)) (|coercionFailure|)) - (SPADLET |lc'| (|objValUnwrap| |lc'|)) - (SPADLET |lm'| (|objValUnwrap| |lm'|)) - (SPADLET |rd'| (|objValUnwrap| |rd'|)) - (SPADLET |plusfun| + (setq |lc'| (|objValUnwrap| |lc'|)) + (setq |lm'| (|objValUnwrap| |lm'|)) + (setq |rd'| (|objValUnwrap| |rd'|)) + (setq |plusfun| (|getFunctionFromDomain| '+ |target| (CONS |target| (CONS |target| NIL)))) - (SPADLET |multfun| + (setq |multfun| (|getFunctionFromDomain| '* |target| (CONS |target| (CONS |target| NIL)))) (SPADCALL (SPADCALL |lc'| |lm'| |multfun|) |rd'| |plusfun|)))))))) diff --git a/src/interp/i-eval.lisp.pamphlet b/src/interp/i-eval.lisp.pamphlet index 034c60b..69d5d59 100644 --- a/src/interp/i-eval.lisp.pamphlet +++ b/src/interp/i-eval.lisp.pamphlet @@ -56,39 +56,39 @@ (RETURN (SEQ (COND - ((SPADLET |domain| (|isDomainValuedVariable| |form|)) |domain|) + ((setq |domain| (|isDomainValuedVariable| |form|)) |domain|) ((BOOT-EQUAL |form| |$EmptyMode|) |form|) ((BOOT-EQUAL |form| (QUOTE ?)) |$EmptyMode|) ((STRINGP |form|) |form|) ((BOOT-EQUAL |form| (QUOTE $)) |form|) ((QUOTE T) - (SPADLET |$expandSegments| NIL) + (setq |$expandSegments| NIL) (COND ((AND (CONSP |form|) (EQ (QCAR |form|) (QUOTE |typeOf|)) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))) - (SPADLET |form'| (|mkAtree| |form|)) + (setq |form'| (|mkAtree| |form|)) (|bottomUp| |form'|) (|objVal| (|getValue| |form'|))) ((AND (CONSP |form|) (PROGN - (SPADLET |op| (QCAR |form|)) - (SPADLET |argl| (QCDR |form|)) + (setq |op| (QCAR |form|)) + (setq |argl| (QCDR |form|)) (QUOTE T))) (COND ((BOOT-EQUAL |op| (QUOTE CATEGORY)) (COND ((AND (CONSP |argl|) (PROGN - (SPADLET |x| (QCAR |argl|)) - (SPADLET |sigs| (QCDR |argl|)) + (setq |x| (QCAR |argl|)) + (setq |sigs| (QCDR |argl|)) (QUOTE T))) (CONS |op| (CONS |x| (PROG (#0=#:G166269) - (SPADLET #0# NIL) + (setq #0# NIL) (RETURN (DO ((#1=#:G166274 |sigs| (CDR #1#)) (|s| NIL)) ((OR (ATOM #1#) (PROGN (SETQ |s| (CAR #1#)) NIL)) @@ -99,7 +99,7 @@ ((|member| |op| (QUOTE (|Join| |Mapping|))) (CONS |op| (PROG (#2=#:G166284) - (SPADLET #2# NIL) + (setq #2# NIL) (RETURN (DO ((#3=#:G166289 |argl| (CDR #3#)) (|arg| NIL)) ((OR (ATOM #3#) (PROGN (SETQ |arg| (CAR #3#)) NIL)) @@ -110,29 +110,29 @@ ((AND |argl| (PROGN - (SPADLET |ISTMP#1| (CAR |argl|)) + (setq |ISTMP#1| (CAR |argl|)) (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|) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL))))))) (|member| |x| (QUOTE (|:| |Declare|)))) (CONS |op| (PROG (#4=#:G166300) - (SPADLET #4# NIL) + (setq #4# NIL) (RETURN (DO ((#5=#:G166306 |argl| (CDR #5#)) (#6=#:G166253 NIL)) ((OR (ATOM #5#) (PROGN (SETQ #6# (CAR #5#)) NIL) (PROGN (PROGN - (SPADLET |sel| (CADR #6#)) - (SPADLET |type| (CADDR #6#)) + (setq |sel| (CADR #6#)) + (setq |type| (CADDR #6#)) #6#) NIL)) (NREVERSE0 #4#)) @@ -147,7 +147,7 @@ ((QUOTE T) (CONS |op| (PROG (#7=#:G166317) - (SPADLET #7# NIL) + (setq #7# NIL) (RETURN (DO ((#8=#:G166322 |argl| (CDR #8#)) (|arg| NIL)) ((OR (ATOM #8#) (PROGN (SETQ |arg| (CAR #8#)) NIL)) @@ -158,15 +158,15 @@ ((BOOT-EQUAL |op| (QUOTE |Record|)) (CONS |op| (PROG (#9=#:G166333) - (SPADLET #9# NIL) + (setq #9# NIL) (RETURN (DO ((#10=#:G166339 |argl| (CDR #10#)) (#11=#:G166258 NIL)) ((OR (ATOM #10#) (PROGN (SETQ #11# (CAR #10#)) NIL) (PROGN (PROGN - (SPADLET |sel| (CADR #11#)) - (SPADLET |type| (CADDR #11#)) + (setq |sel| (CADR #11#)) + (setq |type| (CADDR #11#)) #11#) NIL)) (NREVERSE0 #9#)) @@ -209,11 +209,11 @@ ((QUOTE T) (CONS (PROG (#0=#:G166642) - (SPADLET #0# NIL) + (setq #0# NIL) (RETURN (DO ((|x| |a| (CDR |x|)) (|i| 1 (QSADD1 |i|))) ((OR (ATOM |x|) (QSGREATERP |i| 200)) (NREVERSE0 #0#)) - (SEQ (EXIT (SETQ #0# (CONS (CAR (SPADLET |r| |x|)) #0#))))))) + (SEQ (EXIT (SETQ #0# (CONS (CAR (setq |r| |x|)) #0#))))))) (|splitIntoBlocksOf200| (CDR |r|))))))))) ;evalForm(op,opName,argl,mmS) == @@ -284,19 +284,19 @@ (SEQ (EXIT (PROGN - (SPADLET |sig| (CAR |mm|)) - (SPADLET |fun| (CADR |mm|)) - (SPADLET |cond| (CADDR |mm|)) + (setq |sig| (CAR |mm|)) + (setq |fun| (CADR |mm|)) + (setq |cond| (CADDR |mm|)) (COND ((BOOT-EQUAL (CAR |sig|) (QUOTE |interpOnly|)) - (SPADLET |form| (CAR |sig|))) + (setq |form| (CAR |sig|))) ((NEQUAL (|#| |argl|) (|#| (CDDR |sig|))) (QUOTE |skip|)) ((QUOTE T) - (SPADLET |form| + (setq |form| (COND ((OR |$genValue| (NULL |cond|)) (PROG (#2=#:G166845) - (SPADLET #2# NIL) + (setq #2# NIL) (RETURN (DO ((#3=#:G166851 |argl| (CDR #3#)) (|x| NIL) @@ -318,7 +318,7 @@ #2#)))))))) ((QUOTE T) (PROG (#5=#:G166867) - (SPADLET #5# NIL) + (setq #5# NIL) (RETURN (DO ((#6=#:G166874 |argl| (CDR #6#)) (|x| NIL) @@ -345,8 +345,8 @@ (COND ((OR |form| (NULL |argl|)) (PROGN - (SPADLET |dc| (CAR |sig|)) - (SPADLET |form| + (setq |dc| (CAR |sig|)) + (setq |form| (COND ((BOOT-EQUAL |dc| (QUOTE |local|)) (COND @@ -360,43 +360,43 @@ (CONS (QUOTE SPADCALL) (APPEND |form| (CONS |fun| NIL)))))) ((AND (CONSP |dc|) (EQ (QCAR |dc|) (QUOTE |_FreeFunction_|)) - (PROGN (SPADLET |freeFun| (QCDR |dc|)) (QUOTE T))) + (PROGN (setq |freeFun| (QCDR |dc|)) (QUOTE T))) (CONS (QUOTE SPADCALL) (APPEND |form| (CONS |freeFun| NIL)))) ((AND (CONSP |fun|) (EQ (QCAR |fun|) (QUOTE XLAM)) (PROGN - (SPADLET |ISTMP#1| (QCDR |fun|)) + (setq |ISTMP#1| (QCDR |fun|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |xargs| (QCAR |ISTMP#1|)) - (SPADLET |xbody| (QCDR |ISTMP#1|)) + (setq |xargs| (QCAR |ISTMP#1|)) + (setq |xbody| (QCDR |ISTMP#1|)) (QUOTE T))))) - (SPADLET |rec| (CAR |form|)) + (setq |rec| (CAR |form|)) (COND ((AND (CONSP |xbody|) (EQ (QCDR |xbody|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |xbody|)) + (setq |ISTMP#1| (QCAR |xbody|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE RECORDELT)) (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|) (PROGN - (SPADLET |ind| (QCAR |ISTMP#3|)) - (SPADLET |ISTMP#4| (QCDR |ISTMP#3|)) + (setq |ind| (QCAR |ISTMP#3|)) + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |len| (QCAR |ISTMP#4|)) + (setq |len| (QCAR |ISTMP#4|)) (QUOTE T))))))))))) (|optRECORDELT| (CONS @@ -405,26 +405,26 @@ ((AND (CONSP |xbody|) (EQ (QCDR |xbody|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |xbody|)) + (setq |ISTMP#1| (QCAR |xbody|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE SETRECORDELT)) (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|) (PROGN - (SPADLET |ind| (QCAR |ISTMP#3|)) - (SPADLET |ISTMP#4| (QCDR |ISTMP#3|)) + (setq |ind| (QCAR |ISTMP#3|)) + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |len| (QCAR |ISTMP#4|)) - (SPADLET |ISTMP#5| (QCDR |ISTMP#4|)) + (setq |len| (QCAR |ISTMP#4|)) + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL)))))))))))) @@ -437,21 +437,21 @@ (CONSP |xbody|) (EQ (QCDR |xbody|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |xbody|)) + (setq |ISTMP#1| (QCAR |xbody|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE RECORDCOPY)) (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) (PROGN - (SPADLET |len| (QCAR |ISTMP#3|)) + (setq |len| (QCAR |ISTMP#3|)) (QUOTE T))))))))) (|optRECORDCOPY| (CONS @@ -465,8 +465,8 @@ (CONS (CONS (QUOTE LAMBDA) (CONS |xargs| |xbody|)) NIL)) (TAKE (|#| |xargs|) |form|)))))) ((QUOTE T) - (SPADLET |dcVector| (|evalDomain| |dc|)) - (SPADLET |fun0| + (setq |dcVector| (|evalDomain| |dc|)) + (setq |fun0| (|NRTcompileEvalForm| |opName| |fun| |dcVector|)) (COND ((NULL |fun0|) @@ -474,8 +474,8 @@ "Cannot find an applicable defined function %1 for the given arguments." (CONS |opName| NIL))) ((QUOTE T) - (SPADLET |bpi| (CAR |fun0|)) - (SPADLET |domain| (CDR |fun0|)) + (setq |bpi| (CAR |fun0|)) + (setq |domain| (CDR |fun0|)) (COND ((EQ |bpi| #'|Undef|) (|sayKeyedMsg| @@ -493,7 +493,7 @@ (CONS (CAR |fun0|) (CONS " to:" NIL)))) (|pp| (PROG (#9=#:G166892) - (SPADLET #9# NIL) + (setq #9# NIL) (RETURN (DO ((#10=#:G166897 |form| (CDR #10#)) (|x| NIL)) ((OR (ATOM #10#) @@ -503,7 +503,7 @@ (EXIT (SETQ #9# (CONS (|devaluateDeeply| |x|) #9#)))))))))) - (SPADLET $ |domain|) + (setq $ |domain|) (CONS (QUOTE SPADCALL) (APPEND |form| (CONS |fun0| NIL))))))))))))))))))) @@ -512,10 +512,10 @@ ((BOOT-EQUAL |form| (QUOTE |interpOnly|)) (|rewriteMap| |op| |opName| |argl|)) ((QUOTE T) - (SPADLET |targetType| (CADR |sig|)) + (setq |targetType| (CADR |sig|)) (COND ((CONTAINED (QUOTE |#|) |targetType|) - (SPADLET |targetType| (|NRTtypeHack| |targetType|)))) + (setq |targetType| (|NRTtypeHack| |targetType|)))) (|evalFormMkValue| |op| |form| |targetType|)))))))) ;devaluateDeeply x == @@ -531,7 +531,7 @@ ((ATOM |x|) |x|) ('T (PROG (G166066) - (SPADLET G166066 NIL) + (setq G166066 NIL) (RETURN (DO ((G166071 |x| (CDR G166071)) (|y| NIL)) ((OR (ATOM G166071) @@ -551,14 +551,14 @@ (PROG (|opString| |dc|) (RETURN (PROGN - (SPADLET |opString| (SYMBOL-NAME |opName|)) + (setq |opString| (SYMBOL-NAME |opName|)) (COND ((AND (NEQUAL |opName| (QUOTE |setelt|)) (NEQUAL (ELT |opString| (SPADDIFFERENCE (|#| |opString|) 1)) (|char| (QUOTE !)))) NIL) - ((QUOTE T) (SPADLET |dc| (CAR |sig|)) (BOOT-EQUAL |t| |dc|))))))) + ((QUOTE T) (setq |dc| (CAR |sig|)) (BOOT-EQUAL |t| |dc|))))))) ;getArgValue(a, t) == ; atom a and not VECP a => @@ -576,12 +576,12 @@ (RETURN (COND ((AND (ATOM |a|) (NULL (VECP |a|))) - (SPADLET |t'| (|coerceOrRetract| (|getBasicObject| |a|) |t|)) + (setq |t'| (|coerceOrRetract| (|getBasicObject| |a|) |t|)) (AND |t'| (|wrapped2Quote| (|objVal| |t'|)))) - ((SPADLET |v| (|getArgValue1| |a| |t|)) |v|) - ((SPADLET |alt| (|altTypeOf| (|objMode| (|getValue| |a|)) |a| NIL)) - (SPADLET |t'| (|coerceInt| (|getValue| |a|) |alt|)) - (SPADLET |t'| (|coerceOrRetract| |t'| |t|)) + ((setq |v| (|getArgValue1| |a| |t|)) |v|) + ((setq |alt| (|altTypeOf| (|objMode| (|getValue| |a|)) |a| NIL)) + (setq |t'| (|coerceInt| (|getValue| |a|) |alt|)) + (setq |t'| (|coerceOrRetract| |t'| |t|)) (AND |t'| (|wrapped2Quote| (|objVal| |t'|)))) ((QUOTE T) NIL))))) @@ -599,20 +599,20 @@ (PROG (|m| |ml| |ISTMP#1| |t'|) (RETURN (COND - ((SPADLET |t'| (|getValue| |a|)) + ((setq |t'| (|getValue| |a|)) (COND ((AND - (SPADLET |m| (|getMode| |a|)) + (setq |m| (|getMode| |a|)) (CONSP |m|) (EQ (QCAR |m|) (QUOTE |Mapping|)) - (PROGN (SPADLET |ml| (QCDR |m|)) (QUOTE T)) + (PROGN (setq |ml| (QCDR |m|)) (QUOTE T)) (BOOT-EQUAL |m| |t|) (PROGN - (SPADLET |ISTMP#1| (|objValUnwrap| |t'|)) + (setq |ISTMP#1| (|objValUnwrap| |t'|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE MAP))))) (|getMappingArgValue| |a| |t| |m|)) ((QUOTE T) - (SPADLET |t'| (|coerceOrRetract| |t'| |t|)) + (setq |t'| (|coerceOrRetract| |t'| |t|)) (AND |t'| (|wrapped2Quote| (|objVal| |t'|)))))) ((QUOTE T) (|systemErrorHere| "getArgValue")))))) @@ -663,17 +663,17 @@ (RETURN (SEQ (PROGN - (SPADLET |ml| (CDR |m|)) + (setq |ml| (CDR |m|)) (COND - ((|member| (SPADLET |una| (|getUnname| |a|)) |$localVars|) + ((|member| (setq |una| (|getUnname| |a|)) |$localVars|) (COND (|$genValue| - (SPADLET |name| (|get| |una| (QUOTE |name|) |$env|)) + (setq |name| (|get| |una| (QUOTE |name|) |$env|)) (SETELT |a| 0 |name|) - (SPADLET |mmS| (|selectLocalMms| |a| |name| (CDR |ml|) NIL)) + (setq |mmS| (|selectLocalMms| |a| |name| (CDR |ml|) NIL)) (COND ((PROG (#0=#:G167025) - (SPADLET #0# NIL) + (setq #0# NIL) (RETURN (DO ((#1=#:G167032 NIL #0#) (#2=#:G167033 |mmS| (CDR #2#)) @@ -685,15 +685,15 @@ ((AND (CONSP |mm|) (PROGN - (SPADLET |ISTMP#1| (QCAR |mm|)) + (setq |ISTMP#1| (QCAR |mm|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |ml1| (QCDR |ISTMP#1|)) (QUOTE T)))) + (PROGN (setq |ml1| (QCDR |ISTMP#1|)) (QUOTE T)))) (PROGN - (SPADLET |ISTMP#2| (QCDR |mm|)) + (setq |ISTMP#2| (QCDR |mm|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |oldName| (QCAR |ISTMP#2|)) + (setq |oldName| (QCAR |ISTMP#2|)) (QUOTE T)))) (BOOT-EQUAL |ml| |ml1|)) (SETQ #0# (OR #0# |mm|))))))))) @@ -701,10 +701,10 @@ ((QUOTE T) NIL))) ((QUOTE T) |una|))) ((QUOTE T) - (SPADLET |mmS| (|selectLocalMms| |a| |una| (CDR |ml|) NIL)) + (setq |mmS| (|selectLocalMms| |a| |una| (CDR |ml|) NIL)) (COND ((PROG (#3=#:G167040) - (SPADLET #3# NIL) + (setq #3# NIL) (RETURN (DO ((#4=#:G167047 NIL #3#) (#5=#:G167048 |mmS| (CDR #5#)) @@ -715,15 +715,15 @@ (COND ((AND (CONSP |mm|) (PROGN - (SPADLET |ISTMP#1| (QCAR |mm|)) + (setq |ISTMP#1| (QCAR |mm|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |ml1| (QCDR |ISTMP#1|)) (QUOTE T)))) + (PROGN (setq |ml1| (QCDR |ISTMP#1|)) (QUOTE T)))) (PROGN - (SPADLET |ISTMP#2| (QCDR |mm|)) + (setq |ISTMP#2| (QCDR |mm|)) (AND (CONSP |ISTMP#2|) - (PROGN (SPADLET |oldName| (QCAR |ISTMP#2|)) (QUOTE T)))) + (PROGN (setq |oldName| (QCAR |ISTMP#2|)) (QUOTE T)))) (BOOT-EQUAL |ml| |ml1|)) (SETQ #3# (OR #3# |mm|))))))))) (MKQ (CONS |oldName| NIL))) @@ -764,21 +764,21 @@ (declare (special |$e| |$mapName| |$compilingMap|)) (RETURN (PROGN - (SPADLET |v| (|getArgValue| |arg| |type|)) + (setq |v| (|getArgValue| |arg| |type|)) (COND ((NULL |v|) NIL) ((NULL |cond|) |v|) ((OR (AND (CONSP |v|) (EQ (QCAR |v|) (QUOTE QUOTE))) (|getBasicMode| |v|)) |v|) ((QUOTE T) - (SPADLET |n| (|getUnnameIfCan| |arg|)) + (setq |n| (|getUnnameIfCan| |arg|)) (COND - ((SPADLET |num| (|isSharpVarWithNum| |n|)) + ((setq |num| (|isSharpVarWithNum| |n|)) (COND - ((NULL |$compilingMap|) (SPADLET |n| (QUOTE |unknownVar|))) + ((NULL |$compilingMap|) (setq |n| (QUOTE |unknownVar|))) ((QUOTE T) - (SPADLET |alias| (|get| |$mapName| (QUOTE |alias|) |$e|)) - (SPADLET |n| (ELT |alias| (SPADDIFFERENCE |num| 1))))))) + (setq |alias| (|get| |$mapName| (QUOTE |alias|) |$e|)) + (setq |n| (ELT |alias| (SPADDIFFERENCE |num| 1))))))) (|keyedMsgCompFailure| (format nil "Your expression cannot be fully compiled because it contains an ~ @@ -806,9 +806,9 @@ (declare (special |$NRTmonitorIfTrue| |$genValue|)) (RETURN (PROGN - (SPADLET |val| + (setq |val| (PROGN - (SPADLET |u| + (setq |u| (COND (|$genValue| (|wrap| (|timedEVALFUN| |form|))) ((QUOTE T) |form|))) diff --git a/src/interp/i-funsel.lisp.pamphlet b/src/interp/i-funsel.lisp.pamphlet index e597748..0b13a98 100644 --- a/src/interp/i-funsel.lisp.pamphlet +++ b/src/interp/i-funsel.lisp.pamphlet @@ -3523,7 +3523,7 @@ the types A and B themselves are not sorted by preference. (PROG (|cond|) (RETURN (PROGN - (SPADLET |cond| (CADR |mm|)) + (setq |cond| (CADR |mm|)) (|isFreeFunctionFromMmCond| |cond|))))) ;isFreeFunctionFromMmCond cond == @@ -3545,29 +3545,29 @@ the types A and B themselves are not sorted by preference. (SEQ (PROGN (COND ((AND (CONSP |cond|) (EQ (QCAR |cond|) '|partial|) - (PROGN (SPADLET |c| (QCDR |cond|)) 'T)) - (SPADLET |cond| |c|))) - (SPADLET |condList| + (PROGN (setq |c| (QCDR |cond|)) 'T)) + (setq |cond| |c|))) + (setq |condList| (COND ((AND (CONSP |cond|) (EQ (QCAR |cond|) 'AND) - (PROGN (SPADLET |cl| (QCDR |cond|)) 'T)) + (PROGN (setq |cl| (QCDR |cond|)) 'T)) |cl|) ((AND (CONSP |cond|) (EQ (QCAR |cond|) 'OR) (PROGN - (SPADLET |ISTMP#1| (QCDR |cond|)) + (setq |ISTMP#1| (QCDR |cond|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'AND) (PROGN - (SPADLET |cl| + (setq |cl| (QCDR |ISTMP#2|)) 'T)))))) |cl|) ('T (CONS |cond| NIL)))) - (SPADLET |iff| NIL) + (setq |iff| NIL) (DO ((G167407 |condList| (CDR G167407)) (|condition| NIL)) ((OR (ATOM G167407) @@ -3578,7 +3578,7 @@ the types A and B themselves are not sorted by preference. ((AND (CONSP |condition|) (EQ (QCAR |condition|) '|isFreeFunction|)) - (SPADLET |iff| 'T)) + (setq |iff| 'T)) ('T NIL))))) |iff|))))) diff --git a/src/interp/i-map.lisp.pamphlet b/src/interp/i-map.lisp.pamphlet index 063fb90..3ea06d8 100644 --- a/src/interp/i-map.lisp.pamphlet +++ b/src/interp/i-map.lisp.pamphlet @@ -57,7 +57,7 @@ (DECLARE (SPECIAL |$specialMapNameSuffix| |$interpreterFrameRing|)) (RETURN (PROGN - (SPADLET |name| + (setq |name| (CONCAT "*" (STRINGIMAGE |numArgs|) ";" (|object2String| |userName|) ";" (STRINGIMAGE |numMms|) ";" @@ -65,10 +65,10 @@ (FRAMENAME (CAR |$interpreterFrameRing|))))) (COND (|extraPart| - (SPADLET |name| (CONCAT |name| ";" |extraPart|)))) + (setq |name| (CONCAT |name| ";" |extraPart|)))) (COND (|$specialMapNameSuffix| - (SPADLET |name| + (setq |name| (CONCAT |name| ";" |$specialMapNameSuffix|)))) (INTERN |name|))))) @@ -90,7 +90,7 @@ ((OR (NULL (IDENTP |name|)) (BOOT-EQUAL |name| '*) (BOOT-EQUAL |name| '**)) NIL) - ('T (SPADLET |sz| (SIZE (SPADLET |name'| (PNAME |name|)))) + ('T (setq |sz| (SIZE (setq |name'| (PNAME |name|)))) (COND ((OR (> 7 |sz|) (NEQUAL (|char| '*) (ELT |name'| 0))) NIL) ((NULL (DIGITP (ELT |name'| 1))) NIL) @@ -131,10 +131,10 @@ (DECLARE (SPECIAL |$InteractiveFrame|)) (RETURN (SEQ (COND - ((SPADLET |y| (|get| |x| '|value| |$InteractiveFrame|)) + ((setq |y| (|get| |x| '|value| |$InteractiveFrame|)) (EXIT (COND ((PROGN - (SPADLET |ISTMP#1| (|objVal| |y|)) + (setq |ISTMP#1| (|objVal| |y|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'MAP))) (EXIT |x|)))))))))) @@ -219,17 +219,17 @@ |$localVars| |$mapName| |$e|)) (RETURN (SEQ (PROGN - (SPADLET |lhs| (CADR G166106)) - (SPADLET |mapsig| (CADDR G166106)) - (SPADLET |rhs| (CAR (CDDDDR G166106))) + (setq |lhs| (CADR G166106)) + (setq |mapsig| (CADDR G166106)) + (setq |rhs| (CAR (CDDDDR G166106))) (COND - ((NULL (CONSP |lhs|)) (SPADLET |op| |lhs|) + ((NULL (CONSP |lhs|)) (setq |op| |lhs|) (|putHist| |op| '|isInterpreterRule| 'T |$e|) (|putHist| |op| '|isInterpreterFunction| NIL |$e|) - (SPADLET |lhs| (CONS |lhs| NIL))) - ('T (SPADLET |op| (CAR |lhs|)) + (setq |lhs| (CONS |lhs| NIL))) + ('T (setq |op| (CAR |lhs|)) (COND - ((AND (SPADLET |oldMode| (|get| |op| '|mode| |$e|)) + ((AND (setq |oldMode| (|get| |op| '|mode| |$e|)) (NULL (AND (CONSP |oldMode|) (EQ (QCAR |oldMode|) '|Mapping|)))) (|throwKeyedMsg| @@ -246,7 +246,7 @@ (|throwKeyedMsg| "%1 is not valid on the left-hand side of a function definition." (CONS |lhs| NIL))) - ((NEQUAL |op| (SPADLET |op'| (|unabbrev| |op|))) + ((NEQUAL |op| (setq |op'| (|unabbrev| |op|))) (|throwKeyedMsg| (format nil "You have used the abbreviation %1 of the constructor %2 ~ @@ -254,9 +254,9 @@ definition. This is not allowed.") (CONS |op| (CONS |op'| NIL)))) ('T - (SPADLET |parameters| + (setq |parameters| (PROG (G166128) - (SPADLET G166128 NIL) + (setq G166128 NIL) (RETURN (DO ((G166134 (CDR |lhs|) (CDR G166134)) @@ -271,17 +271,17 @@ ((IDENTP |p|) (SETQ G166128 (CONS |p| G166128)))))))))) - (SPADLET |someDecs| NIL) (SPADLET |allDecs| 'T) - (SPADLET |mapmode| (CONS '|Mapping| NIL)) - (SPADLET |$env| (CONS (CONS NIL NIL) NIL)) - (SPADLET |$eval| 'T) (SPADLET |$genValue| 'T) + (setq |someDecs| NIL) (setq |allDecs| 'T) + (setq |mapmode| (CONS '|Mapping| NIL)) + (setq |$env| (CONS (CONS NIL NIL) NIL)) + (setq |$eval| 'T) (setq |$genValue| 'T) (DO ((G166143 |mapsig| (CDR G166143)) (|d| NIL)) ((OR (ATOM G166143) (PROGN (SETQ |d| (CAR G166143)) NIL)) NIL) (SEQ (EXIT (COND - (|d| (SPADLET |someDecs| 'T) - (SPADLET |d'| + (|d| (setq |someDecs| 'T) + (setq |d'| (|evaluateType| (|unabbrev| |d|))) (COND ((|isPartialMode| |d'|) @@ -290,11 +290,11 @@ function arguments or return types.") NIL)) ('T - (SPADLET |mapmode| + (setq |mapmode| (CONS |d'| |mapmode|))))) - ('T (SPADLET |allDecs| NIL)))))) + ('T (setq |allDecs| NIL)))))) (COND - (|allDecs| (SPADLET |mapmode| (NREVERSE |mapmode|)) + (|allDecs| (setq |mapmode| (NREVERSE |mapmode|)) (|putHist| |op| '|mode| |mapmode| |$e|) (|sayKeyedMsg| "Function declaration %1 has been added to workspace." @@ -308,20 +308,20 @@ ('T NIL)) (COND ((PROGN - (SPADLET |ISTMP#1| (|get| |op| '|mode| |$e|)) + (setq |ISTMP#1| (|get| |op| '|mode| |$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 |mapargs| (QCDR |ISTMP#2|)) + (setq |mapargs| (QCDR |ISTMP#2|)) 'T))))) (SEQ (COND ((EQCAR |rhs| '|rules|) (COND ((NEQUAL 0 - (SPADLET |numargs| + (setq |numargs| (|#| (CDR |lhs|)))) (EXIT (|throwKeyedMsg| (format nil "No arguments are allowed on the left had side of a ~ @@ -333,24 +333,24 @@ "The number of parameters in your definition for %1p does not ~ correspond to the declared number of arguments.") (CONS |op| NIL))))))) - (SPADLET |userVariables1| + (setq |userVariables1| (|getUserIdentifiersIn| |rhs|)) - (SPADLET |$freeVars| NIL) (SPADLET |$localVars| NIL) + (setq |$freeVars| NIL) (setq |$localVars| NIL) (DO ((G166152 |parameters| (CDR G166152)) (|parm| NIL)) ((OR (ATOM G166152) (PROGN (SETQ |parm| (CAR G166152)) NIL)) NIL) (SEQ (EXIT (|mkLocalVar| |$mapName| |parm|)))) - (SPADLET |userVariables2| + (setq |userVariables2| (SETDIFFERENCE |userVariables1| (|findLocalVars| |op| |rhs|))) - (SPADLET |userVariables3| + (setq |userVariables3| (SETDIFFERENCE |userVariables2| |parameters|)) - (SPADLET |userVariables4| + (setq |userVariables4| (REMDUP (SETDIFFERENCE |userVariables3| (CONS |op| NIL)))) - (SPADLET |newDependencies| + (setq |newDependencies| (|makeNewDependencies| |op| |userVariables4|)) (|putDependencies| |op| |newDependencies|) (|clearDependencies| |op| 'T) @@ -396,12 +396,12 @@ |$FormalMapVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |op| (CAR |lhs|)) - (SPADLET |argl| (CDR |lhs|)) - (SPADLET |$sl| NIL) - (SPADLET |formalArgList| + (setq |op| (CAR |lhs|)) + (setq |argl| (CDR |lhs|)) + (setq |$sl| NIL) + (setq |formalArgList| (PROG (G166242) - (SPADLET G166242 NIL) + (setq G166242 NIL) (RETURN (DO ((G166248 |argl| (CDR G166248)) (|x| NIL) @@ -424,9 +424,9 @@ |x|) |s|) G166242)))))))) - (SPADLET |argList| + (setq |argList| (PROG (G166271) - (SPADLET G166271 NIL) + (setq G166271 NIL) (RETURN (DO ((G166285 |formalArgList| (CDR G166285)) @@ -444,13 +444,13 @@ (EQ (QCAR |x|) 'SUCHTHAT) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |s| + (setq |s| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) @@ -458,18 +458,18 @@ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |p| + (setq |p| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |predList| + (setq |predList| (CONS |p| |predList|)) - (SPADLET |x| |s|))) + (setq |x| |s|))) |x|) G166271)))))))) (|mkMapAlias| |op| |argl|) - (SPADLET |argPredList| (NREVERSE |predList|)) - (SPADLET |finalPred| + (setq |argPredList| (NREVERSE |predList|)) + (setq |finalPred| (MKPF (COND ((AND |pred| (NEQUAL |pred| 'T)) (APPEND |argPredList| @@ -477,15 +477,15 @@ NIL))) ('T |argPredList|)) '|and|)) - (SPADLET |body| (SUBLISNQ |$sl| |rhs|)) - (SPADLET |oldMap| + (setq |body| (SUBLISNQ |$sl| |rhs|)) + (setq |oldMap| (COND - ((SPADLET |obj| + ((setq |obj| (|get| |op| '|value| |$InteractiveFrame|)) (|objVal| |obj|)) ('T NIL))) - (SPADLET |newMap| + (setq |newMap| (|augmentMap| |op| |argList| |finalPred| |body| |oldMap|)) (COND @@ -494,12 +494,12 @@ ('T (COND ((|get| |op| '|isInterpreterRule| |$e|) - (SPADLET |type| + (setq |type| (CONS '|RuleCalled| (CONS |op| NIL)))) ('T - (SPADLET |type| + (setq |type| (CONS '|FunctionCalled| (CONS |op| NIL))))) - (SPADLET |recursive| + (setq |recursive| (COND ((EQL (|depthOfRecursion| |op| |newMap|) 0) NIL) @@ -524,8 +524,8 @@ (PROG (|pattern| |newMap| |entry| |tail| |resultMap|) (RETURN (PROGN - (SPADLET |pattern| (|makePattern| |args| |pred|)) - (SPADLET |newMap| (|deleteMap| |op| |pattern| |oldMap|)) + (setq |pattern| (|makePattern| |args| |pred|)) + (setq |newMap| (|deleteMap| |op| |pattern| |oldMap|)) (COND ((BOOT-EQUAL |body| (INTERN " " "BOOT")) (COND @@ -535,12 +535,12 @@ (APPEND (|bright| |op|) (CONS "to delete." NIL)))))) |newMap|) - ('T (SPADLET |entry| (CONS |pattern| |body|)) - (SPADLET |resultMap| + ('T (setq |entry| (CONS |pattern| |body|)) + (setq |resultMap| (COND ((AND (CONSP |newMap|) (EQ (QCAR |newMap|) 'MAP) (PROGN - (SPADLET |tail| (QCDR |newMap|)) + (setq |tail| (QCDR |newMap|)) 'T)) (CONS 'MAP (APPEND |tail| (CONS |entry| NIL)))) ('T (CONS 'MAP (CONS |entry| NIL))))) @@ -560,11 +560,11 @@ (RETURN (SEQ (COND ((AND (CONSP |map|) (EQ (QCAR |map|) 'MAP) - (PROGN (SPADLET |tail| (QCDR |map|)) 'T)) - (SPADLET |newMap| + (PROGN (setq |tail| (QCDR |map|)) 'T)) + (setq |newMap| (CONS 'MAP (PROG (G166340) - (SPADLET G166340 NIL) + (setq G166340 NIL) (RETURN (DO ((G166346 |tail| (CDR G166346)) @@ -582,7 +582,7 @@ (EQUAL (QCAR |x|) |pattern|) (PROGN - (SPADLET |replacement| + (setq |replacement| (QCDR |x|)) 'T)) (|sayDroppingFunctions| |op| @@ -626,47 +626,47 @@ ((AND (CONSP |body|) (EQ (QCAR |body|) 'WRAPPED)) NIL) ((OR (AND (CONSP |body|) (EQ (QCAR |body|) 'COLLECT) (PROGN - (SPADLET |ISTMP#1| (QCDR |body|)) + (setq |ISTMP#1| (QCDR |body|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (REVERSE |ISTMP#1|)) + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T) (CONSP |ISTMP#2|) (PROGN - (SPADLET |body1| (QCAR |ISTMP#2|)) - (SPADLET |itl| (QCDR |ISTMP#2|)) + (setq |body1| (QCAR |ISTMP#2|)) + (setq |itl| (QCDR |ISTMP#2|)) 'T) (PROGN - (SPADLET |itl| (NREVERSE |itl|)) + (setq |itl| (NREVERSE |itl|)) 'T)))) (AND (CONSP |body|) (EQ (QCAR |body|) 'REPEAT) (PROGN - (SPADLET |ISTMP#1| (QCDR |body|)) + (setq |ISTMP#1| (QCDR |body|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (REVERSE |ISTMP#1|)) + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T) (CONSP |ISTMP#2|) (PROGN - (SPADLET |body1| (QCAR |ISTMP#2|)) - (SPADLET |itl| (QCDR |ISTMP#2|)) + (setq |body1| (QCAR |ISTMP#2|)) + (setq |itl| (QCDR |ISTMP#2|)) 'T) (PROGN - (SPADLET |itl| (NREVERSE |itl|)) + (setq |itl| (NREVERSE |itl|)) 'T))))) - (SPADLET |userIds| + (setq |userIds| (S+ (|getUserIdentifiersInIterators| |itl|) (|getUserIdentifiersIn| |body1|))) (S- |userIds| (|getIteratorIds| |itl|))) ((AND (CONSP |body|) (PROGN - (SPADLET |op| (QCAR |body|)) - (SPADLET |l| (QCDR |body|)) + (setq |op| (QCAR |body|)) + (setq |l| (QCDR |body|)) 'T)) (PROGN - (SPADLET |argIdList| + (setq |argIdList| (PROG (G166391) - (SPADLET G166391 NIL) + (setq G166391 NIL) (RETURN (DO ((G166396 |l| (CDR G166396)) (|y| NIL)) @@ -679,7 +679,7 @@ (SETQ G166391 (APPEND G166391 (|getUserIdentifiersIn| |y|))))))))) - (SPADLET |bodyIdList| + (setq |bodyIdList| (COND ((NULL (OR (GETL |op| '|Nud|) (GETL |op| '|Led|) @@ -712,16 +712,16 @@ (SEQ (EXIT (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'STEP) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |i| (QCAR |ISTMP#1|)) - (SPADLET |l| (QCDR |ISTMP#1|)) + (setq |i| (QCAR |ISTMP#1|)) + (setq |l| (QCDR |ISTMP#1|)) 'T)))) - (SPADLET |varList| + (setq |varList| (APPEND (PROG (G166491) - (SPADLET G166491 NIL) + (setq G166491 NIL) (RETURN (DO ((G166496 |l| @@ -742,49 +742,49 @@ |varList|))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'IN) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (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 |y| + (setq |y| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |varList| + (setq |varList| (APPEND (|getUserIdentifiersIn| |y|) |varList|))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'ON) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (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 |y| + (setq |y| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |varList| + (setq |varList| (APPEND (|getUserIdentifiersIn| |y|) |varList|))) ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) + (setq |a| (QCAR |ISTMP#1|)) 'T))) (|member| |op| '(|\|| WHILE UNTIL))) - (SPADLET |varList| + (setq |varList| (APPEND (|getUserIdentifiersIn| |a|) |varList|))) @@ -816,28 +816,28 @@ (SEQ (EXIT (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'STEP) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |i| (QCAR |ISTMP#1|)) + (setq |i| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |varList| (CONS |i| |varList|))) + (setq |varList| (CONS |i| |varList|))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'IN) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |y| (QCAR |ISTMP#1|)) + (setq |y| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |varList| (CONS |y| |varList|))) + (setq |varList| (CONS |y| |varList|))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'ON) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |y| (QCAR |ISTMP#1|)) + (setq |y| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |varList| (CONS |y| |varList|))) + (setq |varList| (CONS |y| |varList|))) ('T NIL))))) |varList|))))) @@ -858,9 +858,9 @@ ((ATOM |x|) |x|) ((AND (CONSP |x|) (EQ (QCAR |x|) '-) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |n| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |n| (QCAR |ISTMP#1|)) 'T))) (NUMBERP |n|)) (SPADDIFFERENCE |n|)) ('T @@ -878,12 +878,12 @@ (DECLARE (SPECIAL |$e|)) (RETURN (SEQ (PROGN - (SPADLET |u| (|mkAliasList| |argl|)) - (SPADLET |newAlias| + (setq |u| (|mkAliasList| |argl|)) + (setq |newAlias| (COND - ((SPADLET |alias| (|get| |op| '|alias| |$e|)) + ((setq |alias| (|get| |op| '|alias| |$e|)) (PROG (G166587) - (SPADLET G166587 NIL) + (setq G166587 NIL) (RETURN (DO ((G166593 |alias| (CDR G166593)) (|x| NIL) @@ -903,7 +903,7 @@ (CONS (COND (|y| |y|) ('T |x|)) G166587)))))))) ('T |u|))) - (SPADLET |$e| (|putHist| |op| '|alias| |newAlias| |$e|))))))) + (setq |$e| (|putHist| |op| '|alias| |newAlias| |$e|))))))) ;mkAliasList l == fn(l,nil) where fn(l,acc) == ; null l => NREVERSE acc @@ -931,8 +931,8 @@ (COND ((AND (CONSP |args|) (PROGN - (SPADLET CAR (QCAR |args|)) - (SPADLET CDR (QCDR |args|)) + (setq CAR (QCAR |args|)) + (setq CDR (QCDR |args|)) 'T)) (COND ((NULL CDR) CAR) ('T (CONS '|Tuple| |args|)))) ('T NIL))))) @@ -950,24 +950,24 @@ (DECLARE (SPECIAL |$FormalMapVariableList|)) (RETURN (PROGN - (SPADLET |nargs| (|#| |args|)) + (setq |nargs| (|#| |args|)) (COND ((EQL |nargs| 1) (COND ((AND (CONSP |pred|) (EQ (QCAR |pred|) '=) (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 |n| (QCAR |ISTMP#2|)) + (setq |n| (QCAR |ISTMP#2|)) 'T)))))) |n|) ('T (|addPatternPred| '|#1| |pred|)))) - ((SPADLET |u| (|canMakeTuple| |nargs| |pred|)) |u|) + ((setq |u| (|canMakeTuple| |nargs| |pred|)) |u|) ('T (|addPatternPred| (CONS '|Tuple| (TAKE |nargs| |$FormalMapVariableList|)) @@ -994,11 +994,11 @@ (RETURN (SEQ (COND ((AND (CONSP |pred|) (EQ (QCAR |pred|) '|and|) - (PROGN (SPADLET |l| (QCDR |pred|)) 'T) + (PROGN (setq |l| (QCDR |pred|)) 'T) (BOOT-EQUAL |nargs| (|#| |l|)) - (SPADLET |u| + (setq |u| (PROG (G166675) - (SPADLET G166675 NIL) + (setq G166675 NIL) (RETURN (DO ((G166687 |$FormalMapVariableList| @@ -1023,13 +1023,13 @@ ((AND (CONSP |x|) (EQ (QCAR |x|) '=) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |y|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) @@ -1037,7 +1037,7 @@ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#2|)) 'T)))))) |a|) @@ -1057,8 +1057,8 @@ (DECLARE (SPECIAL |$EmptyMode|)) (RETURN (COND - ((AND (SPADLET |obj| (|getValue| |x|)) - (SPADLET |md| (|objMode| |obj|))) + ((AND (setq |obj| (|getValue| |x|)) + (setq |md| (|objMode| |obj|))) (COND ((BOOT-EQUAL |md| |$EmptyMode|) (|sayMessage| @@ -1102,8 +1102,8 @@ NIL) (PROGN (PROGN - (SPADLET |pattern| (CAR G166713)) - (SPADLET |replacement| (CDR G166713)) + (setq |pattern| (CAR G166713)) + (setq |replacement| (CDR G166713)) G166713) NIL)) NIL) @@ -1120,7 +1120,7 @@ (RETURN (COND ((AND (CONSP |pattern|) (EQ (QCAR |pattern|) '|Tuple|) - (PROGN (SPADLET |l| (QCDR |pattern|)) 'T)) + (PROGN (setq |l| (QCDR |pattern|)) 'T)) (CONS |op| |l|)) ('T (CONS |op| |pattern|)))))) @@ -1148,11 +1148,11 @@ (CONS (CONS '|is| (CONS |s| (CONS |x| NIL))) NIL)))) ((IDENTP |x|) (COND - ((SPADLET |y| (LASSOC |x| |$sl|)) + ((setq |y| (LASSOC |x| |$sl|)) (CONS 'SUCHTHAT (CONS |s| (CONS (CONS '= (CONS |s| (CONS |y| NIL))) NIL)))) - ('T (SPADLET |$sl| (CONS (CONS |x| |s|) |$sl|)) |s|))) + ('T (setq |$sl| (CONS (CONS |x| |s|) |$sl|)) |s|))) ('T (CONS 'SUCHTHAT (CONS |s| @@ -1169,7 +1169,7 @@ ((NUMBERP |x|) |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)))) |x|))))) @@ -1224,11 +1224,11 @@ (PROG (|oldDependencies| |newDependencies|) (RETURN (PROGN - (SPADLET |oldDependencies| (|getFlag| '|$dependencies|)) - (SPADLET |oldDependencies| + (setq |oldDependencies| (|getFlag| '|$dependencies|)) + (setq |oldDependencies| (|putDependencies,removeObsoleteDependencies| |op| |oldDependencies|)) - (SPADLET |newDependencies| + (setq |newDependencies| (|union| |dependencies| |oldDependencies|)) (|putFlag| '|$dependencies| |newDependencies|))))) @@ -1242,7 +1242,7 @@ (DECLARE (SPECIAL |$dependencies|)) (RETURN (PROGN - (SPADLET |$dependencies| (COPY (|getFlag| '|$dependencies|))) + (setq |$dependencies| (COPY (|getFlag| '|$dependencies|))) (|clearDep1| |x| NIL NIL |$dependencies|))))) ;clearDep1(x,toDoList,doneList,depList) == @@ -1264,23 +1264,23 @@ (SEQ (COND ((|member| |x| |doneList|) NIL) ('T (|clearCache| |x|) - (SPADLET |newDone| (CONS |x| |doneList|)) + (setq |newDone| (CONS |x| |doneList|)) (DO ((G166792 NIL (NULL |a|))) (G166792 NIL) (SEQ (EXIT (PROGN - (SPADLET |a| (ASSQ |x| |depList|)) + (setq |a| (ASSQ |x| |depList|)) (COND (|a| (PROGN - (SPADLET |depList| + (setq |depList| (|delete| |a| |depList|)) - (SPADLET |toDoList| + (setq |toDoList| (|union| |toDoList| (SETDIFFERENCE (CDR |a|) |doneList|)))))))))) (COND ((AND (CONSP |toDoList|) (PROGN - (SPADLET |a| (QCAR |toDoList|)) - (SPADLET |res| (QCDR |toDoList|)) + (setq |a| (QCAR |toDoList|)) + (setq |res| (QCDR |toDoList|)) 'T)) (|clearDep1| |a| |res| |newDone| |depList|)) ('T '|done|)))))))) @@ -1330,7 +1330,7 @@ (BOOT-EQUAL |m| '(|List| (|Expression|)))) |x|) ('T - (SPADLET T$ + (setq T$ (OR (|coerceInteractive| (mkObjWrap |x| (|maximalSuperType| |m|)) |$OutputForm|) @@ -1386,12 +1386,12 @@ (RETURN (SEQ (IF (AND (AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |l| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |l| (QCDR |x|)) 'T)) (|member| |op| '(|and| |or|))) (EXIT (MKPF (PROG (G166866) - (SPADLET G166866 NIL) + (setq G166866 NIL) (RETURN (DO ((G166871 |l| (CDR G166871)) (|y| NIL)) @@ -1409,12 +1409,12 @@ |op|))) (IF (AND (AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |op| (QCAR |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) (EQUAL (QCAR |ISTMP#2|) |a|)))))) @@ -1437,32 +1437,32 @@ NIL) (SEQ (EXIT (COND ((AND |a| (NULL (CONTAINED |a| |x|))) - (SPADLET |x| (MSUBST |a| |m| |x|))))))) - (SPADLET |lhs| (CAR |x|)) - (SPADLET |rhs| (CDR |x|)) - (SPADLET |rhs| (|simplifyMapConstructorRefs| |rhs|)) - (SPADLET |x| (CONS |lhs| |rhs|)) + (setq |x| (MSUBST |a| |m| |x|))))))) + (setq |lhs| (CAR |x|)) + (setq |rhs| (CDR |x|)) + (setq |rhs| (|simplifyMapConstructorRefs| |rhs|)) + (setq |x| (CONS |lhs| |rhs|)) (COND ((AND (CONSP |lhs|) (EQ (QCAR |lhs|) '|\||) (PROGN - (SPADLET |ISTMP#1| (QCDR |lhs|)) + (setq |ISTMP#1| (QCDR |lhs|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |y| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |y| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |pred| (QCAR |ISTMP#2|)) + (setq |pred| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |pred| (|predTran| |pred|)) + (setq |pred| (|predTran| |pred|)) (COND - ((SPADLET |sl| (|getEqualSublis| |pred|)) - (SPADLET |y'| (SUBLIS |sl| |y|)) - (SPADLET |pred| + ((setq |sl| (|getEqualSublis| |pred|)) + (setq |y'| (SUBLIS |sl| |y|)) + (setq |pred| (|simplifyMapPattern,unTrivialize| (SUBLIS |sl| |pred|))) - (SPADLET |rhs'| (SUBLIS |sl| |rhs|)) + (setq |rhs'| (SUBLIS |sl| |rhs|)) (COND ((BOOT-EQUAL |pred| 'T) (CONS |y'| |rhs'|)) ('T @@ -1507,13 +1507,13 @@ (RETURN (SEQ (COND ((ATOM |form|) |form|) - ('T (SPADLET |op| (CAR |form|)) - (SPADLET |args| (CDR |form|)) + ('T (setq |op| (CAR |form|)) + (setq |args| (CDR |form|)) (COND ((|member| |op| '(|exit| SEQ)) (CONS |op| (PROG (G166943) - (SPADLET G166943 NIL) + (setq G166943 NIL) (RETURN (DO ((G166948 |args| (CDR G166948)) (|a| NIL)) @@ -1531,7 +1531,7 @@ (CONS |op| (CONS (CAR |args|) (PROG (G166958) - (SPADLET G166958 NIL) + (setq G166958 NIL) (RETURN (DO ((G166963 (CDR |args|) (CDR G166963)) @@ -1552,15 +1552,15 @@ (COND ((AND (CONSP |args|) (PROGN - (SPADLET |obj| (QCAR |args|)) - (SPADLET |ISTMP#1| (QCDR |args|)) + (setq |obj| (QCAR |args|)) + (setq |ISTMP#1| (QCDR |args|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |dom| (QCAR |ISTMP#1|)) + (setq |dom| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |dom'| (|prefix2String| |dom|)) - (SPADLET |dom''| + (setq |dom'| (|prefix2String| |dom|)) + (setq |dom''| (COND ((ATOM |dom'|) |dom'|) ((NULL (CDR |dom'|)) (CAR |dom'|)) @@ -1583,19 +1583,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 |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|) (PROGN - (SPADLET |b| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |b| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |c| (QCAR |ISTMP#3|)) + (setq |c| (QCAR |ISTMP#3|)) 'T)))))))) (COND ((BOOT-EQUAL |c| '|false|) @@ -1624,12 +1624,12 @@ (PROG (|op| |l| |ISTMP#1| |a| |ISTMP#2| |b|) (RETURN (SEQ (IF (AND (PROGN - (SPADLET |ISTMP#1| - (SPADLET |x| (SUBLIS |sl| |x|))) + (setq |ISTMP#1| + (setq |x| (SUBLIS |sl| |x|))) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |op| (QCAR |ISTMP#1|)) - (SPADLET |l| (QCDR |ISTMP#1|)) + (setq |op| (QCAR |ISTMP#1|)) + (setq |l| (QCDR |ISTMP#1|)) 'T))) (|member| |op| '(|and| |or|))) (EXIT (SEQ (DO ((G167072 |l| (CDR G167072)) @@ -1639,33 +1639,33 @@ (SETQ |y| (CAR G167072)) NIL)) NIL) - (SEQ (EXIT (SPADLET |sl| + (SEQ (EXIT (setq |sl| (|getEqualSublis,fn| |y| |sl|))))) (EXIT |sl|)))) (IF (AND (CONSP |x|) (EQ (QCAR |x|) '|is|) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (EXIT (CONS (CONS |a| |b|) |sl|))) (IF (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (EXIT (SEQ (IF (AND (IDENTP |a|) (NULL (CONTAINED |a| |b|))) @@ -1739,21 +1739,21 @@ |$mapName| |$analyzingMapList|)) (RETURN (SEQ (PROGN - (SPADLET |$compilingMap| 'T) - (SPADLET |$definingMap| 'T) - (SPADLET |$minivector| NIL) - (SPADLET |$mapThrowCount| 0) - (SPADLET |$mapReturnTypes| NIL) - (SPADLET |$repeatLabel| NIL) - (SPADLET |$breakCount| 0) - (SPADLET |$mapTarget| |tar|) - (SPADLET |$interpOnly| NIL) - (SPADLET |$mapName| (ELT |op| 0)) + (setq |$compilingMap| 'T) + (setq |$definingMap| 'T) + (setq |$minivector| NIL) + (setq |$mapThrowCount| 0) + (setq |$mapReturnTypes| NIL) + (setq |$repeatLabel| NIL) + (setq |$breakCount| 0) + (setq |$mapTarget| |tar|) + (setq |$interpOnly| NIL) + (setq |$mapName| (ELT |op| 0)) (COND ((|get| |$mapName| '|recursive| |$e|) - (SPADLET |argTypes| + (setq |argTypes| (PROG (G167131) - (SPADLET G167131 NIL) + (setq G167131 NIL) (RETURN (DO ((G167136 |argTypes| (CDR G167136)) @@ -1767,19 +1767,19 @@ (SETQ G167131 (CONS (|analyzeMap,f| |t|) G167131)))))))))) - (SPADLET |mapAndArgTypes| (CONS |$mapName| |argTypes|)) + (setq |mapAndArgTypes| (CONS |$mapName| |argTypes|)) (COND ((|member| |mapAndArgTypes| |$analyzingMapList|) (COND ((PROGN - (SPADLET |ISTMP#1| (|getMode| |op|)) + (setq |ISTMP#1| (|getMode| |op|)) (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|)) + (setq |target| (QCAR |ISTMP#2|)) 'T))))) |target|) ('T @@ -1792,7 +1792,7 @@ %l %2") (CONS |$mapName| (CONS (PROG (G167142) - (SPADLET G167142 NIL) + (setq G167142 NIL) (RETURN (DO ((G167148 |$analyzingMapList| @@ -1805,7 +1805,7 @@ NIL) (PROGN (PROGN - (SPADLET |map| + (setq |map| (CAR G167116)) G167116) NIL)) @@ -1818,36 +1818,36 @@ (CONS |map| NIL))))))))) NIL)))))) ('T (PUSH |mapAndArgTypes| |$analyzingMapList|) - (SPADLET |mapDef| + (setq |mapDef| (|mapDefsWithCorrectArgCount| (|#| |argTypes|) |mapDef|)) (COND ((NULL |mapDef|) (POP |$analyzingMapList|) NIL) ('T (UNWIND-PROTECT - (SPADLET |x| + (setq |x| (CATCH '|mapCompiler| (|analyzeMap0| |op| |argTypes| |mapDef|))) (POP |$analyzingMapList|)) (COND ((BOOT-EQUAL |x| '|tryInterpOnly|) - (SPADLET |opName| (|getUnname| |op|)) - (SPADLET |fun| + (setq |opName| (|getUnname| |op|)) + (setq |fun| (|mkInterpFun| |op| |opName| |argTypes|)) (COND ((NULL (PROGN - (SPADLET |ISTMP#1| (|getMode| |op|)) + (setq |ISTMP#1| (|getMode| |op|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Mapping|) (PROGN - (SPADLET |sig| + (setq |sig| (QCDR |ISTMP#1|)) 'T)))) - (SPADLET |sig| + (setq |sig| (CONS NIL (PROG (G167159) - (SPADLET G167159 NIL) + (setq G167159 NIL) (RETURN (DO ((G167164 |argTypes| @@ -1863,7 +1863,7 @@ (EXIT (SETQ G167159 (CONS NIL G167159))))))))))) - (SPADLET |$e| + (setq |$e| (|putHist| |opName| '|localModemap| (CONS (CONS (CONS '|interpOnly| |sig|) @@ -1887,15 +1887,15 @@ (DECLARE (SPECIAL |$MapArgumentTypeList| |$mapList|)) (RETURN (PROGN - (SPADLET |$MapArgumentTypeList| |argTypes|) + (setq |$MapArgumentTypeList| |argTypes|) (COND ((NEQUAL (|numMapArgs| |mapDef|) (|#| |argTypes|)) NIL) ((OR (PROGN - (SPADLET |ISTMP#1| (SPADLET |m| (|getMode| |op|))) + (setq |ISTMP#1| (setq |m| (|getMode| |op|))) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Mapping|) - (PROGN (SPADLET |sig| (QCDR |ISTMP#1|)) 'T))) - (AND |m| (SPADLET |sig| (CONS |m| NIL)))) + (PROGN (setq |sig| (QCDR |ISTMP#1|)) 'T))) + (AND |m| (setq |sig| (CONS |m| NIL)))) (|analyzeDeclaredMap| |op| |argTypes| |sig| |mapDef| |$mapList|)) ('T @@ -1948,15 +1948,15 @@ (RETURN (SEQ (COND ((NULL (PROGN - (SPADLET |ISTMP#1| (|getMode| |op|)) + (setq |ISTMP#1| (|getMode| |op|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Mapping|) - (PROGN (SPADLET |sig| (QCDR |ISTMP#1|)) 'T)))) + (PROGN (setq |sig| (QCDR |ISTMP#1|)) 'T)))) NIL) ('T - (SPADLET |parms| + (setq |parms| (PROG (G167251) - (SPADLET G167251 NIL) + (setq G167251 NIL) (RETURN (DO ((G167257 |argTypes| (CDR G167257)) (|type| NIL) @@ -1974,10 +1974,10 @@ (NREVERSE0 G167251)) (SEQ (EXIT (SETQ G167251 (CONS |var| G167251)))))))) - (SPADLET |arglCode| + (setq |arglCode| (CONS 'LIST (PROG (G167272) - (SPADLET G167272 NIL) + (setq G167272 NIL) (RETURN (DO ((G167278 |argTypes| (CDR G167278)) @@ -2010,8 +2010,8 @@ |type|) NIL))) G167272))))))))) - (SPADLET |funName| (GENSYM)) - (SPADLET |body| + (setq |funName| (GENSYM)) + (setq |body| (CONS '|rewriteMap1| (CONS (MKQ |opName|) (CONS |arglCode| @@ -2046,21 +2046,21 @@ ((NULL |$genValue|) (COND ((NULL (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (|get| |opName| '|mode| |$e|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Mapping|) (PROGN - (SPADLET |sig| (QCDR |ISTMP#1|)) + (setq |sig| (QCDR |ISTMP#1|)) 'T)))) (|compFailure| (CONS " Cannot compile map:" (|bright| |opName|)))) ('T - (SPADLET |arglCode| + (setq |arglCode| (CONS 'LIST (PROG (G167311) - (SPADLET G167311 NIL) + (setq G167311 NIL) (RETURN (DO ((G167317 |argl| @@ -2121,14 +2121,14 @@ (DECLARE (SPECIAL |$e|)) (RETURN (PROGN - (SPADLET |val| (|get| |opName| '|value| |$e|)) + (setq |val| (|get| |opName| '|value| |$e|)) (COND ((AND (CONSP |val|) (PROGN - (SPADLET |ISTMP#1| (QCDR |val|)) + (setq |ISTMP#1| (QCDR |val|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'MAP) - (PROGN (SPADLET |bod| (QCDR |ISTMP#1|)) 'T)))) - (SPADLET |$e| + (PROGN (setq |bod| (QCDR |ISTMP#1|)) 'T)))) + (setq |$e| (|putHist| |opName| '|mapBody| (|combineMapParts| (|mapDefsWithCorrectArgCount| |numArgs| @@ -2141,7 +2141,7 @@ (DEFUN |removeBodyFromEnv| (|opName|) (DECLARE (SPECIAL |$e|)) - (SPADLET |$e| (|putHist| |opName| '|mapBody| NIL |$e|))) + (setq |$e| (|putHist| |opName| '|mapBody| NIL |$e|))) ;rewriteMap0(op,opName,argl) == ; -- $genValue case of map rewriting @@ -2181,20 +2181,20 @@ (SEQ (PROGN (|putBodyInEnv| |opName| (|#| |argl|)) (COND - ((SPADLET |s| (|get| |opName| '|mode| |$e|)) - (SPADLET |tar| (CADR |s|)) - (SPADLET |argTypes| (CDDR |s|))) - ('T (SPADLET |tar| NIL) (SPADLET |argTypes| NIL))) - (SPADLET |ISTMP#1| (|get| |opName| '|mode| |$e|)) + ((setq |s| (|get| |opName| '|mode| |$e|)) + (setq |tar| (CADR |s|)) + (setq |argTypes| (CDDR |s|))) + ('T (setq |tar| NIL) (setq |argTypes| NIL))) + (setq |ISTMP#1| (|get| |opName| '|mode| |$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 |tar| (QCAR |ISTMP#2|)) - (SPADLET |argTypes| (QCDR |ISTMP#2|)) + (setq |tar| (QCAR |ISTMP#2|)) + (setq |argTypes| (QCDR |ISTMP#2|)) 'T)))) - (SPADLET |$env| (CONS (CONS NIL NIL) NIL)) + (setq |$env| (CONS (CONS NIL NIL) NIL)) (DO ((G167379 |argl| (CDR G167379)) (|arg| NIL) (G167380 |$FormalMapVariableList| (CDR G167380)) (|var| NIL)) @@ -2206,9 +2206,9 @@ (SEQ (EXIT (PROGN (COND (|argTypes| - (SPADLET |t| (CAR |argTypes|)) - (SPADLET |argTypes| (CDR |argTypes|)) - (SPADLET |val| + (setq |t| (CAR |argTypes|)) + (setq |argTypes| (CDR |argTypes|)) + (setq |val| (COND ((AND (CONSP |t|) (EQ (QCAR |t|) @@ -2217,28 +2217,28 @@ ('T (|coerceInteractive| (|getValue| |arg|) |t|))))) - ('T (SPADLET |val| (|getValue| |arg|)))) - (SPADLET |$env| + ('T (setq |val| (|getValue| |arg|)))) + (setq |$env| (|put| |var| '|value| |val| |$env|)) (COND ((VECP |arg|) - (SPADLET |$env| + (setq |$env| (|put| |var| '|name| (|getUnname| |arg|) |$env|)))) (COND - ((SPADLET |m| (|getMode| |arg|)) - (SPADLET |$env| + ((setq |m| (|getMode| |arg|)) + (setq |$env| (|put| |var| '|mode| |m| |$env|)))))))) (COND - ((NULL (SPADLET |val| (|interpMap| |opName| |tar|))) + ((NULL (setq |val| (|interpMap| |opName| |tar|))) (|throwKeyedMsg| "Axiom cannot compile or interpret code for function %1 ." (CONS |opName| NIL))) ('T (|putValue| |op| |val|) (|removeBodyFromEnv| |opName|) - (SPADLET |ms| + (setq |ms| (|putModeSet| |op| (CONS (|objMode| |val|) NIL)))))))))) @@ -2280,23 +2280,23 @@ (SEQ (PROGN (|putBodyInEnv| |opName| (|#| |argl|)) (COND - (|sig| (SPADLET |tar| (CAR |sig|)) - (SPADLET |argTypes| (CDR |sig|))) - ('T (SPADLET |tar| NIL) (SPADLET |argTypes| NIL))) - (SPADLET |evArgl| NIL) + (|sig| (setq |tar| (CAR |sig|)) + (setq |argTypes| (CDR |sig|))) + ('T (setq |tar| NIL) (setq |argTypes| NIL))) + (setq |evArgl| NIL) (DO ((G167426 (REVERSE |argl|) (CDR G167426)) (|arg| NIL)) ((OR (ATOM G167426) (PROGN (SETQ |arg| (CAR G167426)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |v| (|getValue| |arg|)) - (SPADLET |evArgl| + (setq |v| (|getValue| |arg|)) + (setq |evArgl| (CONS (mkObj (|objVal| |v|) (|objMode| |v|)) |evArgl|)))))) - (SPADLET |$env| (CONS (CONS NIL NIL) NIL)) + (setq |$env| (CONS (CONS NIL NIL) NIL)) (DO ((G167441 |argl| (CDR G167441)) (|arg| NIL) (G167442 |evArgl| (CDR G167442)) (|evArg| NIL) (G167443 |$FormalMapVariableList| (CDR G167443)) @@ -2311,9 +2311,9 @@ (SEQ (EXIT (PROGN (COND (|argTypes| - (SPADLET |t| (CAR |argTypes|)) - (SPADLET |argTypes| (CDR |argTypes|)) - (SPADLET |val| + (setq |t| (CAR |argTypes|)) + (setq |argTypes| (CDR |argTypes|)) + (setq |val| (COND ((AND (CONSP |t|) (EQ (QCAR |t|) @@ -2322,21 +2322,21 @@ ('T (|coerceInteractive| |evArg| |t|))))) - ('T (SPADLET |val| |evArg|))) - (SPADLET |$env| + ('T (setq |val| |evArg|))) + (setq |$env| (|put| |var| '|value| |val| |$env|)) (COND ((VECP |arg|) - (SPADLET |$env| + (setq |$env| (|put| |var| '|name| (|getUnname| |arg|) |$env|)))) (COND - ((SPADLET |m| (|getMode| |arg|)) - (SPADLET |$env| + ((setq |m| (|getMode| |arg|)) + (setq |$env| (|put| |var| '|mode| |m| |$env|)))))))) - (SPADLET |val| (|interpMap| |opName| |tar|)) + (setq |val| (|interpMap| |opName| |tar|)) (|removeBodyFromEnv| |opName|) (|objValUnwrap| |val|)))))) @@ -2368,10 +2368,10 @@ |$timedNameStack| |$e|)) (RETURN (SEQ (PROGN - (SPADLET |$genValue| 'T) - (SPADLET |$interpMapTag| NIL) - (SPADLET |$interpOnly| 'T) - (SPADLET |$localVars| NIL) + (setq |$genValue| 'T) + (setq |$interpMapTag| NIL) + (setq |$interpOnly| 'T) + (setq |$localVars| NIL) (DO ((G167481 (|get| |opName| '|localVars| |$e|) (CDR G167481)) (|lvar| NIL)) @@ -2379,12 +2379,12 @@ (PROGN (SETQ |lvar| (CAR G167481)) NIL)) NIL) (SEQ (EXIT (|mkLocalVar| |opName| |lvar|)))) - (SPADLET |$mapName| |opName|) - (SPADLET |$mapTarget| |tar|) - (SPADLET |body| (|get| |opName| '|mapBody| |$e|)) - (SPADLET |savedTimerStack| (COPY |$timedNameStack|)) - (SPADLET |catchName| (|mapCatchName| |$mapName|)) - (SPADLET |c| + (setq |$mapName| |opName|) + (setq |$mapTarget| |tar|) + (setq |body| (|get| |opName| '|mapBody| |$e|)) + (setq |savedTimerStack| (COPY |$timedNameStack|)) + (setq |catchName| (|mapCatchName| |$mapName|)) + (setq |c| (CATCH |catchName| (|interpret1| |body| |tar| NIL))) (DO () @@ -2415,15 +2415,15 @@ (DECLARE (SPECIAL |$e| |$mapTarget|)) (RETURN (SEQ (PROGN - (SPADLET |opName| (|getUnname| |op|)) - (SPADLET |$mapList| (CONS |opName| |$mapList|)) - (SPADLET |$mapTarget| (CAR |sig|)) + (setq |opName| (|getUnname| |op|)) + (setq |$mapList| (CONS |opName| |$mapList|)) + (setq |$mapTarget| (CAR |sig|)) (COND - ((AND (SPADLET |mmS| + ((AND (setq |mmS| (|get| |opName| '|localModemap| |$e|)) - (SPADLET |mm| + (setq |mm| (PROG (G167521) - (SPADLET G167521 NIL) + (setq G167521 NIL) (RETURN (DO ((G167529 NIL G167521) (G167530 |mmS| @@ -2435,7 +2435,7 @@ NIL) (PROGN (PROGN - (SPADLET |mmSig| + (setq |mmSig| (CDAR |mm|)) |mm|) NIL)) @@ -2480,12 +2480,12 @@ |$FormalMapVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |$localVars| NIL) - (SPADLET |$freeVars| NIL) - (SPADLET |$env| (CONS (CONS NIL NIL) NIL)) - (SPADLET |parms| + (setq |$localVars| NIL) + (setq |$freeVars| NIL) + (setq |$env| (CONS (CONS NIL NIL) NIL)) + (setq |parms| (PROG (G167555) - (SPADLET G167555 NIL) + (setq G167555 NIL) (RETURN (DO ((G167561 |$FormalMapVariableList| (CDR G167561)) @@ -2510,9 +2510,9 @@ (ATOM G167576) (PROGN (SETQ |var| (CAR G167576)) NIL)) NIL) - (SEQ (EXIT (SPADLET |$env| + (SEQ (EXIT (setq |$env| (|put| |var| '|mode| |m| |$env|))))) - (SPADLET |body| (|getMapBody| |op| |mapDef|)) + (setq |body| (|getMapBody| |op| |mapDef|)) (DO ((G167588 |parms| (CDR G167588)) (|lvar| NIL)) ((OR (ATOM G167588) (PROGN (SETQ |lvar| (CAR G167588)) NIL)) @@ -2525,9 +2525,9 @@ (PROGN (SETQ |lvar| (CAR G167597)) NIL)) NIL) (SEQ (EXIT (|mkLocalVar| |$mapName| |lvar|)))) - (SPADLET |name| (|makeLocalModemap| |op| |sig|)) - (SPADLET |val| (|compileBody| |body| (CAR |sig|))) - (SPADLET |isRecursive| + (setq |name| (|makeLocalModemap| |op| |sig|)) + (setq |val| (|compileBody| |body| (CAR |sig|))) + (setq |isRecursive| (> (|depthOfRecursion| |op| |body|) 0)) (|putMapCode| |op| (|objVal| |val|) |sig| |name| |parms| |isRecursive|) @@ -2548,12 +2548,12 @@ (DECLARE (SPECIAL |$e|)) (RETURN (PROGN - (SPADLET |codeInfo| + (setq |codeInfo| (VECTOR |op| |code| |sig| |name| |parms| |isRecursive|)) - (SPADLET |allCode| + (setq |allCode| (CONS |codeInfo| (|get| |op| '|generatedCode| |$e|))) - (SPADLET |$e| (|putHist| |op| '|generatedCode| |allCode| |$e|)) + (setq |$e| (|putHist| |op| '|generatedCode| |allCode| |$e|)) |op|)))) ;makeLocalModemap(op,sig) == @@ -2572,17 +2572,17 @@ (RETURN (PROGN (COND - ((SPADLET |currentMms| (|get| |op| '|localModemap| |$e|)) + ((setq |currentMms| (|get| |op| '|localModemap| |$e|)) (|untraceMapSubNames| (CONS (CADAR |currentMms|) NIL)))) - (SPADLET |newName| + (setq |newName| (|makeInternalMapName| |op| (SPADDIFFERENCE (|#| |sig|) 1) (+ 1 (|#| |currentMms|)) NIL)) - (SPADLET |newMm| + (setq |newMm| (CONS (CONS '|local| |sig|) (CONS |newName| (CONS NIL NIL)))) - (SPADLET |mms| (CONS |newMm| |currentMms|)) - (SPADLET |$e| (|putHist| |op| '|localModemap| |mms| |$e|)) + (setq |mms| (CONS |newMm| |currentMms|)) + (setq |$e| (|putHist| |op| '|localModemap| |mms| |$e|)) |newName|)))) ;genMapCode(op,body,sig,fnName,parms,isRecursive) == @@ -2615,13 +2615,13 @@ (RETURN (SEQ (PROGN (COND - ((SPADLET |lmm| + ((setq |lmm| (|get| |op| '|localModemap| |$InteractiveFrame|)) (|untraceMapSubNames| (CONS (CADAR |lmm|) NIL)))) - (SPADLET |op0| + (setq |op0| (COND - ((SPADLET |n| (|isSharpVarWithNum| |op|)) + ((setq |n| (|isSharpVarWithNum| |op|)) (STRCONC "")) ('T |op|))) @@ -2641,14 +2641,14 @@ (CONS |op0| (CONS (|formatSignature| |sig|) (cons " " NIL)))))) - (SPADLET |$whereCacheList| (CONS |op| |$whereCacheList|)) - (SPADLET |locals| + (setq |$whereCacheList| (CONS |op| |$whereCacheList|)) + (setq |locals| (SETDIFFERENCE (COPY |$localVars|) |parms|)) (COND (|locals| - (SPADLET |lets| + (setq |lets| (PROG (G167646) - (SPADLET G167646 NIL) + (setq G167646 NIL) (RETURN (DO ((G167651 |locals| (CDR G167651)) @@ -2667,7 +2667,7 @@ ''UNINITIALIZED_VARIABLE (CONS |op| NIL)))) G167646)))))))) - (SPADLET |body| + (setq |body| (CONS 'PROGN (APPEND |lets| (CONS |body| NIL)))))) (|reportFunctionCompilation| |op| |fnName| |parms| @@ -2690,11 +2690,11 @@ |$declaredMode| |$eval|)) (RETURN (PROGN - (SPADLET |$insideCompileBodyIfTrue| 'T) - (SPADLET |$genValue| NIL) - (SPADLET |$declaredMode| |target|) - (SPADLET |$eval| 'T) - (SPADLET |r| (|interpret1| |body| |target| NIL)))))) + (setq |$insideCompileBodyIfTrue| 'T) + (setq |$genValue| NIL) + (setq |$declaredMode| |target|) + (setq |$eval| 'T) + (setq |r| (|interpret1| |body| |target| NIL)))))) ;compileCoerceMap(op,argTypes,mm) == ; -- compiles call to user-declared map where the arguments need @@ -2728,13 +2728,13 @@ |$mapName| |$FormalMapVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |$insideCompileBodyIfTrue| 'T) - (SPADLET |$genValue| NIL) - (SPADLET |sig| (CDAR |mm|)) - (SPADLET |imp| (CADR |mm|)) - (SPADLET |parms| + (setq |$insideCompileBodyIfTrue| 'T) + (setq |$genValue| NIL) + (setq |sig| (CDAR |mm|)) + (setq |imp| (CADR |mm|)) + (setq |parms| (PROG (G167694) - (SPADLET G167694 NIL) + (setq G167694 NIL) (RETURN (DO ((G167700 |$FormalMapVariableList| (CDR G167700)) @@ -2752,12 +2752,12 @@ (NREVERSE0 G167694)) (SEQ (EXIT (SETQ G167694 (CONS |var| G167694)))))))) - (SPADLET |name| + (setq |name| (|makeLocalModemap| |op| (CONS (CAR |sig|) |argTypes|))) - (SPADLET |argCode| + (setq |argCode| (PROG (G167716) - (SPADLET G167716 NIL) + (setq G167716 NIL) (RETURN (DO ((G167723 |argTypes| (CDR G167723)) (|t1| NIL) @@ -2793,9 +2793,9 @@ (CONS |t1| (CONS |t2| NIL))))))) G167716)))))))) - (SPADLET |$insideCompileBodyIfTrue| NIL) - (SPADLET |parms| (APPEND |parms| (CONS '|envArg| NIL))) - (SPADLET |body| + (setq |$insideCompileBodyIfTrue| NIL) + (setq |parms| (APPEND |parms| (CONS '|envArg| NIL))) + (setq |body| (CONS 'SPADCALL (APPEND |argCode| (CONS @@ -2805,15 +2805,15 @@ (CONS |imp| NIL)) NIL)) NIL)))) - (SPADLET |minivectorName| + (setq |minivectorName| (|makeInternalMapMinivectorName| |name|)) - (SPADLET |$minivectorNames| + (setq |$minivectorNames| (CONS (CONS |op| |minivectorName|) |$minivectorNames|)) - (SPADLET |body| (MSUBST |minivectorName| '$$$ |body|)) + (setq |body| (MSUBST |minivectorName| '$$$ |body|)) (COND (|$compilingInputFile| - (SPADLET |$minivectorCode| + (setq |$minivectorCode| (APPEND |$minivectorCode| (CONS |minivectorName| NIL))))) (SET |minivectorName| (LIST2REFVEC |$minivector|)) @@ -2857,14 +2857,14 @@ ((ATOM |body|) 0) ((AND (CONSP |body|) (PROGN - (SPADLET |op| (QCAR |body|)) - (SPADLET |argl| (QCDR |body|)) + (setq |op| (QCAR |body|)) + (setq |argl| (QCDR |body|)) 'T)) - (SPADLET |argc| + (setq |argc| (COND ((ATOM |argl|) 0) (|argl| (PROG (G167773) - (SPADLET G167773 -999999) + (setq G167773 -999999) (RETURN (DO ((G167778 |argl| @@ -2885,13 +2885,13 @@ (COND ((|member| |op| |opList|) |argc|) ((BOOT-EQUAL |op| |opName|) (+ 1 |argc|)) - ((AND (SPADLET |obj| (|get| |op| '|value| |$e|)) + ((AND (setq |obj| (|get| |op| '|value| |$e|)) (PROGN - (SPADLET |ISTMP#1| (|objVal| |obj|)) + (setq |ISTMP#1| (|objVal| |obj|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'MAP) (PROGN - (SPADLET |mapDef| (QCDR |ISTMP#1|)) + (setq |mapDef| (QCDR |ISTMP#1|)) 'T)))) (+ (|mapRecurDepth| |opName| (CONS |op| |opList|) (|getMapBody| |op| |mapDef|)) @@ -2927,13 +2927,13 @@ |$mapList| |$FormalMapVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |$freeVars| NIL) - (SPADLET |$localVars| NIL) - (SPADLET |$env| (CONS (CONS NIL NIL) NIL)) - (SPADLET |$mapList| (CONS |op| |$mapList|)) - (SPADLET |parms| + (setq |$freeVars| NIL) + (setq |$localVars| NIL) + (setq |$env| (CONS (CONS NIL NIL) NIL)) + (setq |$mapList| (CONS |op| |$mapList|)) + (setq |parms| (PROG (G167801) - (SPADLET G167801 NIL) + (setq G167801 NIL) (RETURN (DO ((G167807 |$FormalMapVariableList| (CDR G167807)) @@ -2961,7 +2961,7 @@ (SEQ (EXIT (PROGN (|put| |var| '|autoDeclare| 'T |$env|) (|put| |var| '|mode| |m| |$env|))))) - (SPADLET |body| (|getMapBody| |op| |mapDef|)) + (setq |body| (|getMapBody| |op| |mapDef|)) (DO ((G167836 |parms| (CDR G167836)) (|lvar| NIL)) ((OR (ATOM G167836) (PROGN (SETQ |lvar| (CAR G167836)) NIL)) @@ -2975,7 +2975,7 @@ NIL) (SEQ (EXIT (|mkLocalVar| |$mapName| |lvar|)))) (COND - ((EQL (SPADLET |n| (|depthOfRecursion| |op| |body|)) 0) + ((EQL (setq |n| (|depthOfRecursion| |op| |body|)) 0) (|analyzeNonRecursiveMap| |op| |argTypes| |body| |parms|)) ('T @@ -3003,12 +3003,12 @@ (DECLARE (SPECIAL |$mapTarget| |$mapReturnTypes| |$mapThrowCount|)) (RETURN (SEQ (PROGN - (SPADLET T$ (|compileBody| |body| |$mapTarget|)) + (setq T$ (|compileBody| |body| |$mapTarget|)) (COND - ((> |$mapThrowCount| 0) (SPADLET |t| (|objMode| T$)) - (SPADLET |b| + ((> |$mapThrowCount| 0) (setq |t| (|objMode| T$)) + (setq |b| (PROG (G167872) - (SPADLET G167872 'T) + (setq G167872 'T) (RETURN (DO ((G167878 NIL (NULL G167872)) (G167879 |$mapReturnTypes| @@ -3026,14 +3026,14 @@ (COND ((NULL |b|) (PROGN - (SPADLET |t| + (setq |t| (|resolveTypeListAny| (CONS |t| |$mapReturnTypes|))) (COND - ((NULL |$mapTarget|) (SPADLET |$mapTarget| |t|))) - (SPADLET T$ (|compileBody| |body| |$mapTarget|))))))) - (SPADLET |sig| (CONS (|objMode| T$) |argTypes|)) - (SPADLET |name| (|makeLocalModemap| |op| |sig|)) + ((NULL |$mapTarget|) (setq |$mapTarget| |t|))) + (setq T$ (|compileBody| |body| |$mapTarget|))))))) + (setq |sig| (CONS (|objMode| T$) |argTypes|)) + (setq |name| (|makeLocalModemap| |op| |sig|)) (|putMapCode| |op| (|objVal| T$) |sig| |name| |parms| NIL) (|genMapCode| |op| (|objVal| T$) |sig| |name| |parms| NIL) (|objMode| T$)))))) @@ -3062,28 +3062,28 @@ (DECLARE (SPECIAL |$mapList| |$mapTarget| |$localVars|)) (RETURN (SEQ (PROGN - (SPADLET |localMapInfo| + (setq |localMapInfo| (|saveDependentMapInfo| |op| (CDR |$mapList|))) - (SPADLET |tar| + (setq |tar| (CATCH '|interpreter| (|analyzeNonRecur| |op| |body| |$localVars|))) (DO ((|i| 0 (QSADD1 |i|)) (G167912 NIL (NULL |sigChanged|))) ((OR (QSGREATERP |i| |n|) G167912) NIL) (SEQ (EXIT (PROGN - (SPADLET |sigChanged| NIL) - (SPADLET |name| + (setq |sigChanged| NIL) + (setq |name| (|makeLocalModemap| |op| - (SPADLET |sig| + (setq |sig| (CONS |tar| |argTypes|)))) - (SPADLET |code| + (setq |code| (|compileBody| |body| |$mapTarget|)) (COND ((NEQUAL (|objMode| |code|) |tar|) (PROGN - (SPADLET |sigChanged| 'T) - (SPADLET |tar| (|objMode| |code|)) + (setq |sigChanged| 'T) + (setq |tar| (|objMode| |code|)) (|restoreDependentMapInfo| |op| (CDR |$mapList|) |localMapInfo|)))))))) (COND @@ -3117,11 +3117,11 @@ (RETURN (SEQ (COND ((NULL (|member| |op| |opList|)) - (SPADLET |lmml| + (setq |lmml| (CONS (CONS |op| (|get| |op| '|localModemap| |$e|)) NIL)) - (SPADLET |gcl| + (setq |gcl| (CONS (CONS |op| (|get| |op| '|generatedCode| |$e|)) NIL)) @@ -3132,21 +3132,21 @@ (PROGN (SETQ G167936 (CAR G167952)) NIL) (PROGN (PROGN - (SPADLET |dep1| (CAR G167936)) - (SPADLET |dep2| (CADR G167936)) + (setq |dep1| (CAR G167936)) + (setq |dep2| (CADR G167936)) G167936) NIL)) NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |dep1| |op|) (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|saveDependentMapInfo| |dep2| (CONS |op| |opList|))) - (SPADLET |lmml'| (CAR |LETTMP#1|)) - (SPADLET |gcl'| (CDR |LETTMP#1|)) - (SPADLET |lmms| (NCONC |lmml'| |lmml|)) - (SPADLET |gcl| (NCONC |gcl'| |gcl|)))))))) + (setq |lmml'| (CAR |LETTMP#1|)) + (setq |gcl'| (CDR |LETTMP#1|)) + (setq |lmms| (NCONC |lmml'| |lmml|)) + (setq |gcl| (NCONC |gcl'| |gcl|)))))))) (CONS |lmms| |gcl|)) ('T NIL)))))) @@ -3163,8 +3163,8 @@ (DECLARE (SPECIAL |$e|)) (RETURN (SEQ (PROGN - (SPADLET |lmml| (CAR G167980)) - (SPADLET |gcl| (CDR G167980)) + (setq |lmml| (CAR G167980)) + (setq |gcl| (CDR G167980)) (COND ((NULL (|member| |op| |opList|)) (PROGN @@ -3177,12 +3177,12 @@ NIL) (PROGN (PROGN - (SPADLET |op| (CAR G167971)) - (SPADLET |lmm| (CDR G167971)) + (setq |op| (CAR G167971)) + (setq |lmm| (CDR G167971)) G167971) NIL)) NIL) - (SEQ (EXIT (SPADLET |$e| + (SEQ (EXIT (setq |$e| (|putHist| |op| '|localModemap| |lmm| |$e|))))) (DO ((G168010 |gcl| (CDR G168010)) @@ -3193,12 +3193,12 @@ NIL) (PROGN (PROGN - (SPADLET |op| (CAR G167975)) - (SPADLET |gc| (CDR G167975)) + (setq |op| (CAR G167975)) + (setq |gc| (CDR G167975)) G167975) NIL)) NIL) - (SEQ (EXIT (SPADLET |$e| + (SEQ (EXIT (setq |$e| (|putHist| |op| '|generatedCode| |gc| |$e|))))))))))))) @@ -3217,10 +3217,10 @@ (SEQ (COND ((NULL (|member| |op| |opList|)) (EXIT (PROGN - (SPADLET |$e| + (setq |$e| (|putHist| |op| '|localModemap| NIL |$e|)) - (SPADLET |$e| + (setq |$e| (|putHist| |op| '|generatedCode| NIL |$e|)) (DO ((G168038 (|getFlag| '|$dependencies|) @@ -3232,8 +3232,8 @@ NIL) (PROGN (PROGN - (SPADLET |dep1| (CAR G168028)) - (SPADLET |dep2| (CADR G168028)) + (setq |dep1| (CAR G168028)) + (setq |dep2| (CADR G168028)) G168028) NIL)) NIL) @@ -3254,7 +3254,7 @@ (DECLARE (SPECIAL |$mapTarget| |$mapName|)) (RETURN (SEQ (PROGN - (SPADLET |nrp| (|nonRecursivePart| |op| |body|)) + (setq |nrp| (|nonRecursivePart| |op| |body|)) (DO ((G168056 (|findLocalVars| |op| |nrp|) (CDR G168056)) (|lvar| NIL)) @@ -3276,10 +3276,10 @@ (PROG (|body| |nrp|) (RETURN (PROGN - (SPADLET |body| + (setq |body| (|expandRecursiveBody| (CONS |opName| NIL) |funBody|)) (COND - ((NEQUAL (SPADLET |nrp| + ((NEQUAL (setq |nrp| (|nonRecursivePart1| |opName| |body|)) '|noMapVal|) |nrp|) @@ -3316,34 +3316,34 @@ (SEQ (COND ((ATOM |body|) (COND - ((AND (SPADLET |obj| (|get| |body| '|value| |$e|)) + ((AND (setq |obj| (|get| |body| '|value| |$e|)) (PROGN - (SPADLET |ISTMP#1| (|objVal| |obj|)) + (setq |ISTMP#1| (|objVal| |obj|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'MAP) (PROGN - (SPADLET |mapDef| (QCDR |ISTMP#1|)) + (setq |mapDef| (QCDR |ISTMP#1|)) 'T))) (EQL (|numMapArgs| |mapDef|) 0)) (|getMapBody| |body| |mapDef|)) ('T |body|))) ((AND (CONSP |body|) (PROGN - (SPADLET |op| (QCAR |body|)) - (SPADLET |argl| (QCDR |body|)) + (setq |op| (QCAR |body|)) + (setq |argl| (QCDR |body|)) 'T)) (COND ((NULL (|member| |op| |alreadyExpanded|)) (COND - ((AND (SPADLET |obj| (|get| |op| '|value| |$e|)) + ((AND (setq |obj| (|get| |op| '|value| |$e|)) (PROGN - (SPADLET |ISTMP#1| (|objVal| |obj|)) + (setq |ISTMP#1| (|objVal| |obj|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'MAP) (PROGN - (SPADLET |mapDef| (QCDR |ISTMP#1|)) + (setq |mapDef| (QCDR |ISTMP#1|)) 'T)))) - (SPADLET |newBody| (|getMapBody| |op| |mapDef|)) + (setq |newBody| (|getMapBody| |op| |mapDef|)) (DO ((G168093 |argl| (CDR G168093)) (|arg| NIL) (G168094 |$FormalMapVariableList| (CDR G168094)) @@ -3353,7 +3353,7 @@ (ATOM G168094) (PROGN (SETQ |var| (CAR G168094)) NIL)) NIL) - (SEQ (EXIT (SPADLET |newBody| + (SEQ (EXIT (setq |newBody| (MSUBST |arg| |var| |newBody|))))) (|expandRecursiveBody| @@ -3361,7 +3361,7 @@ ('T (CONS |op| (PROG (G168107) - (SPADLET G168107 NIL) + (setq G168107 NIL) (RETURN (DO ((G168112 |argl| (CDR G168112)) (|arg| NIL)) @@ -3379,7 +3379,7 @@ ('T (CONS |op| (PROG (G168122) - (SPADLET G168122 NIL) + (setq G168122 NIL) (RETURN (DO ((G168127 |argl| (CDR G168127)) (|arg| NIL)) @@ -3427,25 +3427,25 @@ (SEQ (COND ((AND (CONSP |funBody|) (EQ (QCAR |funBody|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |funBody|)) + (setq |ISTMP#1| (QCDR |funBody|)) (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|) (PROGN - (SPADLET |b| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |b| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |c| (QCAR |ISTMP#3|)) + (setq |c| (QCAR |ISTMP#3|)) 'T)))))))) - (SPADLET |nra| (|nonRecursivePart1| |opName| |a|)) + (setq |nra| (|nonRecursivePart1| |opName| |a|)) (COND ((BOOT-EQUAL |nra| '|noMapVal|) '|noMapVal|) - ('T (SPADLET |nrb| (|nonRecursivePart1| |opName| |b|)) - (SPADLET |nrc| (|nonRecursivePart1| |opName| |c|)) + ('T (setq |nrb| (|nonRecursivePart1| |opName| |b|)) + (setq |nrc| (|nonRecursivePart1| |opName| |c|)) (COND ((NULL (|member| |nrb| '(|noMapVal| |noBranch|))) (CONS 'IF @@ -3461,15 +3461,15 @@ ('T '|noMapVal|))) ((AND (CONSP |funBody|) (PROGN - (SPADLET |op| (QCAR |funBody|)) - (SPADLET |argl| (QCDR |funBody|)) + (setq |op| (QCAR |funBody|)) + (setq |argl| (QCDR |funBody|)) 'T)) (COND ((BOOT-EQUAL |op| |opName|) '|noMapVal|) ('T - (SPADLET |args| + (setq |args| (PROG (G168193) - (SPADLET G168193 NIL) + (setq G168193 NIL) (RETURN (DO ((G168198 |argl| (CDR G168198)) (|arg| NIL)) @@ -3501,9 +3501,9 @@ (SEQ (COND ((AND (CONSP |body|) (EQUAL (QCAR |body|) |op|)) 'T) ((AND (CONSP |body|) - (PROGN (SPADLET |argl| (QCDR |body|)) 'T)) + (PROGN (setq |argl| (QCDR |body|)) 'T)) (PROG (G168221) - (SPADLET G168221 NIL) + (setq G168221 NIL) (RETURN (DO ((G168227 NIL G168221) (G168228 |argl| (CDR G168228)) (|arg| NIL)) @@ -3531,14 +3531,14 @@ ((ATOM |form|) 'T) ((AND (CONSP |form|) (PROGN - (SPADLET |op| (QCAR |form|)) - (SPADLET |argl| (QCDR |form|)) + (setq |op| (QCAR |form|)) + (setq |argl| (QCDR |form|)) 'T)) (COND ((BOOT-EQUAL |op| |opName|) NIL) ('T (PROG (G168245) - (SPADLET G168245 'T) + (setq G168245 'T) (RETURN (DO ((G168251 NIL (NULL G168245)) (G168252 |argl| (CDR G168252)) (|x| NIL)) @@ -3561,7 +3561,7 @@ (PROG () (RETURN (SEQ (PROG (G168270) - (SPADLET G168270 NIL) + (setq G168270 NIL) (RETURN (DO ((G168276 |mapDef| (CDR G168276)) (|def| NIL)) ((OR (ATOM G168276) @@ -3578,7 +3578,7 @@ (DEFUN |numMapArgs| (|mapDef|) (PROG (|args|) (RETURN - (PROGN (SPADLET |args| (CAAR |mapDef|)) (|numArgs| |args|))))) + (PROGN (setq |args| (CAAR |mapDef|)) (|numArgs| |args|))))) ;numArgs args == ; args is ['_|,a,:.] => numArgs a @@ -3592,12 +3592,12 @@ (COND ((AND (CONSP |args|) (EQ (QCAR |args|) '|\||) (PROGN - (SPADLET |ISTMP#1| (QCDR |args|)) + (setq |ISTMP#1| (QCDR |args|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |a| (QCAR |ISTMP#1|)) 'T)))) (|numArgs| |a|)) ((AND (CONSP |args|) (EQ (QCAR |args|) '|Tuple|) - (PROGN (SPADLET |argl| (QCDR |args|)) 'T)) + (PROGN (setq |argl| (QCDR |args|)) 'T)) (|#| |argl|)) ((NULL |args|) 0) ('T 1))))) @@ -3620,19 +3620,19 @@ ((NULL |mapTail|) '|noMapVal|) ((AND (CONSP |mapTail|) (PROGN - (SPADLET |ISTMP#1| (QCAR |mapTail|)) + (setq |ISTMP#1| (QCAR |mapTail|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |cond| (QCAR |ISTMP#1|)) - (SPADLET |part| (QCDR |ISTMP#1|)) + (setq |cond| (QCAR |ISTMP#1|)) + (setq |part| (QCDR |ISTMP#1|)) 'T))) - (PROGN (SPADLET |restMap| (QCDR |mapTail|)) 'T)) + (PROGN (setq |restMap| (QCDR |mapTail|)) 'T)) (COND ((OR (|isSharpVarWithNum| |cond|) (AND (CONSP |cond|) (EQ (QCAR |cond|) '|Tuple|) - (PROGN (SPADLET |args| (QCDR |cond|)) 'T) + (PROGN (setq |args| (QCDR |cond|)) 'T) (PROG (G168317) - (SPADLET G168317 'T) + (setq G168317 'T) (RETURN (DO ((G168323 NIL (NULL G168317)) (G168324 |args| (CDR G168324)) @@ -3673,18 +3673,18 @@ (COND ((AND (CONSP |cond|) (EQ (QCAR |cond|) '|\||) (PROGN - (SPADLET |ISTMP#1| (QCDR |cond|)) + (setq |ISTMP#1| (QCDR |cond|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |args| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |args| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |pred| (QCAR |ISTMP#2|)) + (setq |pred| (QCAR |ISTMP#2|)) 'T)))))) (|mapPredTran| |pred|)) ((AND (CONSP |cond|) (EQ (QCAR |cond|) '|Tuple|) - (PROGN (SPADLET |vals| (QCDR |cond|)) 'T)) + (PROGN (setq |vals| (QCDR |cond|)) 'T)) (|mkValueCheck| |vals| 1)) ('T (|mkValCheck| |cond| 1)))))) @@ -3698,7 +3698,7 @@ (RETURN (COND ((AND (CONSP |vals|) (EQ (QCDR |vals|) NIL) - (PROGN (SPADLET |val| (QCAR |vals|)) 'T)) + (PROGN (setq |val| (QCAR |vals|)) 'T)) (|mkValCheck| |val| |i|)) ('T (CONS '|and| @@ -3738,49 +3738,49 @@ (COND ((AND (CONSP |pred|) (EQ (QCAR |pred|) '|in|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |var| (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|) (EQ (QCAR |ISTMP#3|) 'SEGMENT) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |lb| (QCAR |ISTMP#4|)) + (setq |lb| (QCAR |ISTMP#4|)) 'T)))))))))) (|mkLessOrEqual| |lb| |var|)) ((AND (CONSP |pred|) (EQ (QCAR |pred|) '|in|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |var| (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|) (EQ (QCAR |ISTMP#3|) 'SEGMENT) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |lb| (QCAR |ISTMP#4|)) - (SPADLET |ISTMP#5| + (setq |lb| (QCAR |ISTMP#4|)) + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |ub| + (setq |ub| (QCAR |ISTMP#5|)) 'T)))))))))))) (COND @@ -3851,7 +3851,7 @@ ((OR (|isLocalVar| |form|) (|isFreeVar| |form|)) NIL) ('T (|mkFreeVar| |$mapName| |form|)))) ((AND (CONSP |form|) (EQ (QCAR |form|) '|local|) - (PROGN (SPADLET |vars| (QCDR |form|)) 'T)) + (PROGN (setq |vars| (QCDR |form|)) 'T)) (DO ((G168587 |vars| (CDR G168587)) (|x| NIL)) ((OR (ATOM G168587) (PROGN (SETQ |x| (CAR G168587)) NIL)) @@ -3860,7 +3860,7 @@ ((ATOM |x|) (EXIT (|mkLocalVar| |op| |x|)))))))) ((AND (CONSP |form|) (EQ (QCAR |form|) '|free|) - (PROGN (SPADLET |vars| (QCDR |form|)) 'T)) + (PROGN (setq |vars| (QCDR |form|)) 'T)) (DO ((G168596 |vars| (CDR G168596)) (|x| NIL)) ((OR (ATOM G168596) (PROGN (SETQ |x| (CAR G168596)) NIL)) @@ -3869,21 +3869,21 @@ ((ATOM |x|) (EXIT (|mkFreeVar| |op| |x|)))))))) ((AND (CONSP |form|) (EQ (QCAR |form|) 'LET) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (COND ((AND (CONSP |a|) (EQ (QCAR |a|) '|Tuple|) - (PROGN (SPADLET |vars| (QCDR |a|)) 'T) + (PROGN (setq |vars| (QCDR |a|)) 'T) (CONSP |b|) (EQ (QCAR |b|) '|Tuple|) - (PROGN (SPADLET |vals| (QCDR |b|)) 'T)) + (PROGN (setq |vals| (QCDR |b|)) 'T)) (DO ((G168606 |vars| (CDR G168606)) (|var| NIL) (G168607 |vals| (CDR G168607)) (|val| NIL)) ((OR (ATOM G168606) @@ -3895,7 +3895,7 @@ (CONS 'LET (CONS |var| (CONS |val| NIL)))))))) ((AND (CONSP |a|) (EQ (QCAR |a|) '|construct|) - (PROGN (SPADLET |pat| (QCDR |a|)) 'T)) + (PROGN (setq |pat| (QCDR |a|)) 'T)) (DO ((G168619 (|listOfVariables| |pat|) (CDR G168619)) (|var| NIL)) @@ -3907,11 +3907,11 @@ ((OR (ATOM |a|) (AND (CONSP |a|) (EQ (QCAR |a|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (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))))))) (|mkLocalVar| |op| |a|) (|findLocalVars1| |op| |b|)) @@ -3923,25 +3923,25 @@ (SEQ (EXIT (|findLocalVars1| |op| |x|))))))) ((AND (CONSP |form|) (EQ (QCAR |form|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (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)))))) (|mkLocalVar| |op| |a|)) ((AND (CONSP |form|) (EQ (QCAR |form|) '|is|) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |l| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |l| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |pattern| (QCAR |ISTMP#2|)) + (setq |pattern| (QCAR |ISTMP#2|)) 'T)))))) (PROGN (|findLocalVars1| |op| |l|) @@ -3954,26 +3954,26 @@ (SEQ (EXIT (|mkLocalVar| |op| |var|)))))) ((AND (CONSP |form|) (PROGN - (SPADLET |oper| (QCAR |form|)) - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |oper| (QCAR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (REVERSE |ISTMP#1|)) + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T) (CONSP |ISTMP#2|) (PROGN - (SPADLET |body| (QCAR |ISTMP#2|)) - (SPADLET |itrl| (QCDR |ISTMP#2|)) + (setq |body| (QCAR |ISTMP#2|)) + (setq |itrl| (QCDR |ISTMP#2|)) 'T) (PROGN - (SPADLET |itrl| (NREVERSE |itrl|)) + (setq |itrl| (NREVERSE |itrl|)) 'T))) (member |oper| '(REPEAT COLLECT))) (|findLocalsInLoop| |op| |itrl| |body|)) ((AND (CONSP |form|) (PROGN - (SPADLET |y| (QCAR |form|)) - (SPADLET |argl| (QCDR |form|)) + (setq |y| (QCAR |form|)) + (setq |argl| (QCDR |form|)) 'T)) (COND ((EQ |y| '|Record|) NIL) @@ -4016,24 +4016,24 @@ (SEQ (EXIT (COND ((AND (CONSP |it|) (EQ (QCAR |it|) 'STEP) (PROGN - (SPADLET |ISTMP#1| (QCDR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |lower| + (setq |lower| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |step| + (setq |step| (QCAR |ISTMP#3|)) - (SPADLET |upperList| + (setq |upperList| (QCDR |ISTMP#3|)) 'T)))))))) (|mkLocalVar| |op| |index|) @@ -4049,17 +4049,17 @@ (SEQ (EXIT (|findLocalVars1| |op| |up|))))) ((AND (CONSP |it|) (EQ (QCAR |it|) 'IN) (PROGN - (SPADLET |ISTMP#1| (QCDR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (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)))))) (|mkLocalVar| |op| |index|)) @@ -4068,22 +4068,22 @@ ((AND (CONSP |it|) (EQ (QCAR |it|) 'WHILE) (PROGN - (SPADLET |ISTMP#1| (QCDR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#1|)) 'T)))) (|findLocalVars1| |op| |b|)) ((AND (CONSP |it|) (EQ (QCAR |it|) '|\||) (PROGN - (SPADLET |ISTMP#1| (QCDR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) (|findLocalVars1| |op| |pred|)))))))) @@ -4095,13 +4095,13 @@ (SEQ (EXIT (COND ((AND (CONSP |it|) (PROGN - (SPADLET |op| (QCAR |it|)) - (SPADLET |ISTMP#1| + (setq |op| (QCAR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#1|)) 'T))) (|member| |op| '(UNTIL))) @@ -4122,7 +4122,7 @@ (DECLARE (SPECIAL |$localVars|) (ignore |op|)) (COND ((|isFreeVar| |var|) |$localVars|) - ('T (SPADLET |$localVars| (|insert| |var| |$localVars|))))) + ('T (setq |$localVars| (|insert| |var| |$localVars|))))) ;isFreeVar(var) == MEMBER(var,$freeVars) @@ -4136,7 +4136,7 @@ (DEFUN |mkFreeVar| (|op| |var|) (DECLARE (SPECIAL |$freeVars|) (ignore |op|)) - (SPADLET |$freeVars| (|insert| |var| |$freeVars|))) + (setq |$freeVars| (|insert| |var| |$freeVars|))) ;listOfVariables pat == ; -- return a list of the variables in pat, which is an "is" pattern @@ -4156,26 +4156,26 @@ ('T (CONS |pat| NIL)))) ((OR (AND (CONSP |pat|) (EQ (QCAR |pat|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pat|)) + (setq |ISTMP#1| (QCDR |pat|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) + (setq |var| (QCAR |ISTMP#1|)) 'T)))) (AND (CONSP |pat|) (EQ (QCAR |pat|) '=) (PROGN - (SPADLET |ISTMP#1| (QCDR |pat|)) + (setq |ISTMP#1| (QCDR |pat|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) + (setq |var| (QCAR |ISTMP#1|)) 'T))))) (COND ((BOOT-EQUAL |var| (INTERN "." "BOOT")) NIL) ('T (CONS |var| NIL)))) ((CONSP |pat|) (REMDUP (PROG (G168865) - (SPADLET G168865 NIL) + (setq G168865 NIL) (RETURN (DO ((G168870 |pat| (CDR G168870)) (|p| NIL)) @@ -4299,9 +4299,9 @@ arguments of this local modemap, f;1 will be invoked. (RETURN (OR (|get| |op| '|localVars| |$e|) (PROGN - (SPADLET |$e| + (setq |$e| (|putHist| |op| '|localVars| - (SPADLET |lv| (|findLocalVars| |op| |body|)) + (setq |lv| (|findLocalVars| |op| |body|)) |$e|)) |lv|))))) diff --git a/src/interp/i-output.lisp.pamphlet b/src/interp/i-output.lisp.pamphlet index e1d3e9f..2e2c55e 100644 --- a/src/interp/i-output.lisp.pamphlet +++ b/src/interp/i-output.lisp.pamphlet @@ -18,7 +18,7 @@ (defun |sayMSGNT| (X) (if (NULL X) NIL (sayBrightlyNT1 X |$algebraOutputStream|))) -(SPADLET |$collectOutput| NIL) +(setq |$collectOutput| NIL) (defvar MATBORCH "*") @@ -52,7 +52,7 @@ (DECLARE (SPECIAL |$DoubleQuote|)) (RETURN (PROGN - (SPADLET |u| (CADR G166074)) + (setq |u| (CADR G166074)) (|appChar| (STRCONC |$DoubleQuote| (|atom2String| |u|) |$DoubleQuote|) |x| |y| |d|))))) @@ -67,9 +67,9 @@ (PROGN (OR (AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |u| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |u| (QCAR |ISTMP#1|)) 'T)))) (THROW '|outputFailure| '|outputFailure|)) (+ 2 (|#| |u|)))))) @@ -96,7 +96,7 @@ ('T (APPLY 'STRCONC (PROG (G166101) - (SPADLET G166101 NIL) + (setq G166101 NIL) (RETURN (DO ((G166106 |o| (CDR G166106)) (|o'| NIL)) @@ -127,14 +127,14 @@ ((ATOM |u|) (|appChar| (|atom2String| |u|) |x| |y| |d|)) ((AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |op| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |op| (QCAR |ISTMP#1|)) 'T))) (PROGN - (SPADLET |ISTMP#2| (QCDR |u|)) + (setq |ISTMP#2| (QCDR |u|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) - (PROGN (SPADLET |a| (QCAR |ISTMP#2|)) 'T))) - (SPADLET |s| (GETL |op| 'PREFIXOP))) + (PROGN (setq |a| (QCAR |ISTMP#2|)) 'T))) + (setq |s| (GETL |op| 'PREFIXOP))) (COND ((GETL |op| '|isSuffix|) (|appChar| |s| (+ |x| (WIDTH |a|)) |y| @@ -144,14 +144,14 @@ (|appChar| |s| |x| |y| |d|))))) ((AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |id| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |id| (QCAR |ISTMP#1|)) 'T)))) (COND - ((SPADLET |fn| (GETL |id| 'APP)) + ((setq |fn| (GETL |id| 'APP)) (FUNCALL |fn| |u| |x| |y| |d|)) ((AND (NULL (NUMBERP |id|)) - (SPADLET |d'| (|appInfix| |u| |x| |y| |d|))) + (setq |d'| (|appInfix| |u| |x| |y| |d|))) |d'|) ('T (|appelse| |u| |x| |y| |d|)))) ('T (|appelse| |u| |x| |y| |d|)))))) @@ -205,30 +205,30 @@ these functions return an updated ``layout so far'' in general (DECLARE (SPECIAL $LINELENGTH $MARGIN |$highlightDelta|)) (RETURN (PROGN - (COND ((CHARP |string|) (SPADLET |string| (PNAME |string|)))) + (COND ((CHARP |string|) (setq |string| (PNAME |string|)))) (COND - ((SPADLET |line| (LASSOC |y| |d|)) + ((setq |line| (LASSOC |y| |d|)) (COND ((AND (EQL (MAXINDEX |string|) 1) (BOOT-EQUAL (|char| (ELT |string| 0)) '%)) (COND ((BOOT-EQUAL (ELT |string| 1) '|b|) - (SPADLET |bumpDeltaIfTrue| 'T) + (setq |bumpDeltaIfTrue| 'T) (SETELT |string| 0 (EBCDIC 29)) (SETELT |string| 1 (EBCDIC 200))) ((BOOT-EQUAL (ELT |string| 1) '|d|) - (SPADLET |bumpDeltaIfTrue| 'T) + (setq |bumpDeltaIfTrue| 'T) (SETELT |string| 0 (EBCDIC 29)) (SETELT |string| 1 (EBCDIC 65)))))) - (SPADLET |shiftedX| + (setq |shiftedX| (COND ((EQL |y| 0) (+ |x| |$highlightDelta|)) ('T |x|))) - (RPLACSTR |line| |shiftedX| (SPADLET |n| (|#| |string|)) + (RPLACSTR |line| |shiftedX| (setq |n| (|#| |string|)) |string| 0 |n|) (COND ((BOOT-EQUAL |bumpDeltaIfTrue| 'T) - (SPADLET |$highlightDelta| (+ |$highlightDelta| 1)))) + (setq |$highlightDelta| (+ |$highlightDelta| 1)))) |d|) ('T (|appChar| |string| |x| |y| @@ -251,9 +251,9 @@ these functions return an updated ``layout so far'' in general (DECLARE (SPECIAL |$InteractiveMode| |$dontDisplayEquatnum|)) (RETURN (PROGN - (SPADLET |dom| (|devaluate| |domain|)) - (SPADLET |$InteractiveMode| 'T) - (SPADLET |$dontDisplayEquatnum| 'T) + (setq |dom| (|devaluate| |domain|)) + (setq |$InteractiveMode| 'T) + (setq |$dontDisplayEquatnum| 'T) (|output| |x| |dom|))))) ;mathprintWithNumber x == @@ -265,7 +265,7 @@ these functions return an updated ``layout so far'' in general (DEFUN |mathprintWithNumber| (|x|) (DECLARE (SPECIAL |$IOindex|)) (PROGN - (SPADLET |x| (|outputTran| |x|)) + (setq |x| (|outputTran| |x|)) (|maprin| (COND (|$IOindex| (CONS 'EQUATNUM (CONS |$IOindex| (CONS |x| NIL)))) @@ -279,7 +279,7 @@ these functions return an updated ``layout so far'' in general (DEFUN |mathprint| (|x|) (DECLARE (SPECIAL |$saturn|)) (PROGN - (SPADLET |x| (|outputTran| |x|)) + (setq |x| (|outputTran| |x|)) (COND (|$saturn| (|texFormat1| |x|)) ('T (|maprin| |x|))))) @@ -295,7 +295,7 @@ these functions return an updated ``layout so far'' in general ((OR (ATOM G166189) (PROGN (SETQ |x| (CAR G166189)) NIL)) NIL) - (SEQ (EXIT (SPADLET |acc| + (SEQ (EXIT (setq |acc| (|concat| |acc| (|linearFormatName| |x|)))))) (|sayALGEBRA| |acc|)))))) @@ -445,7 +445,7 @@ these functions return an updated ``layout so far'' in general (CONS 'BRACKET (CONS (CONS 'AGGLST (PROG (G166608) - (SPADLET G166608 NIL) + (setq G166608 NIL) (RETURN (DO ((G166613 (MAXINDEX |x|)) @@ -468,22 +468,22 @@ these functions return an updated ``layout so far'' in general ('T |x|))) ((AND (CONSP |x|) (PROGN - (SPADLET |c| (QCAR |x|)) - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |c| (QCAR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |var| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |mode| (QCAR |ISTMP#2|)) + (setq |mode| (QCAR |ISTMP#2|)) 'T))))) (|member| |c| '(|pretend| |:| |::| @))) - (SPADLET |var| (|outputTran| |var|)) + (setq |var| (|outputTran| |var|)) (COND ((CONSP |var|) - (SPADLET |var| (CONS 'PAREN (CONS |var| NIL))))) + (setq |var| (CONS 'PAREN (CONS |var| NIL))))) (CONS 'CONCATB (CONS |var| (CONS |c| @@ -492,84 +492,84 @@ these functions return an updated ``layout so far'' in general NIL))))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'ADEF) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |vars| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |vars| (QCAR |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|) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |body| + (setq |body| (QCAR |ISTMP#4|)) 'T)))))))))) - (SPADLET |vars| + (setq |vars| (COND ((AND (CONSP |vars|) (EQ (QCDR |vars|) NIL) - (PROGN (SPADLET |x| (QCAR |vars|)) 'T)) + (PROGN (setq |x| (QCAR |vars|)) 'T)) |x|) ('T (CONS '|Tuple| |vars|)))) (|outputTran| (CONS '+-> (CONS |vars| (CONS |body| NIL))))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'MATRIX) - (PROGN (SPADLET |m| (QCDR |x|)) 'T)) + (PROGN (setq |m| (QCDR |x|)) 'T)) (|outputTranMatrix| |m|)) ((AND (CONSP |x|) (EQ (QCAR |x|) '|matrix|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (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|) '|construct|) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |c| (QCAR |ISTMP#3|)) + (setq |c| (QCAR |ISTMP#3|)) 'T))))))) (CONSP |c|) (EQ (QCAR |c|) 'COLLECT) (PROGN - (SPADLET |ISTMP#1| (QCDR |c|)) + (setq |ISTMP#1| (QCDR |c|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (REVERSE |ISTMP#1|)) + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T) (CONSP |ISTMP#2|) (PROGN - (SPADLET |d| (QCAR |ISTMP#2|)) - (SPADLET |m| (QCDR |ISTMP#2|)) + (setq |d| (QCAR |ISTMP#2|)) + (setq |m| (QCDR |ISTMP#2|)) 'T) - (PROGN (SPADLET |m| (NREVERSE |m|)) 'T))) + (PROGN (setq |m| (NREVERSE |m|)) 'T))) (CONSP |d|) (EQ (QCAR |d|) '|construct|) (PROGN - (SPADLET |ISTMP#1| (QCDR |d|)) + (setq |ISTMP#1| (QCDR |d|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |e| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |e| (QCAR |ISTMP#1|)) 'T))) (CONSP |e|) (EQ (QCAR |e|) 'COLLECT)) (|outputTran| (CONS 'COLLECT (APPEND |m| (CONS |e| NIL))))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'LIST) - (PROGN (SPADLET |l| (QCDR |x|)) 'T)) + (PROGN (setq |l| (QCDR |x|)) 'T)) (|outputTran| (CONS 'BRACKET (CONS (CONS 'AGGLST |l|) NIL)))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'MAP) - (PROGN (SPADLET |l| (QCDR |x|)) 'T)) + (PROGN (setq |l| (QCDR |x|)) 'T)) (|outputMapTran| |l|)) ((AND (CONSP |x|) (EQ (QCAR |x|) '|brace|) - (PROGN (SPADLET |l| (QCDR |x|)) 'T)) + (PROGN (setq |l| (QCDR |x|)) 'T)) (CONS 'BRACE (CONS (CONS 'AGGLST (PROG (G166621) - (SPADLET G166621 NIL) + (setq G166621 NIL) (RETURN (DO ((G166626 |l| (CDR G166626)) @@ -587,22 +587,22 @@ these functions return an updated ``layout so far'' in general NIL))) ((AND (CONSP |x|) (EQ (QCAR |x|) '|return|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |l| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |l| (QCAR |ISTMP#1|)) 'T)))) (CONS '|return| (CONS (|outputTran| |l|) NIL))) ((AND (CONSP |x|) (EQ (QCAR |x|) '|return|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |l| (QCDR |ISTMP#1|)) 'T)))) + (PROGN (setq |l| (QCDR |ISTMP#1|)) 'T)))) (CONS '|return| (|outputTran| |l|))) ((AND (CONSP |x|) (EQ (QCAR |x|) '|construct|) - (PROGN (SPADLET |l| (QCDR |x|)) 'T)) + (PROGN (setq |l| (QCDR |x|)) 'T)) (CONS 'BRACKET (CONS (CONS 'AGGLST (PROG (G166636) - (SPADLET G166636 NIL) + (setq G166636 NIL) (RETURN (DO ((G166641 |l| (CDR G166641)) @@ -620,169 +620,169 @@ these functions return an updated ``layout so far'' in general NIL))) ((AND (CONSP |x|) (PROGN - (SPADLET |ISTMP#1| (QCAR |x|)) + (setq |ISTMP#1| (QCAR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|$elt|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |domain| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |domain| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (EQ (QCAR |ISTMP#3|) '|float|))))))) (PROGN - (SPADLET |ISTMP#4| (QCDR |x|)) + (setq |ISTMP#4| (QCDR |x|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |x| (QCAR |ISTMP#4|)) - (SPADLET |ISTMP#5| (QCDR |ISTMP#4|)) + (setq |x| (QCAR |ISTMP#4|)) + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (PROGN - (SPADLET |y| (QCAR |ISTMP#5|)) - (SPADLET |ISTMP#6| (QCDR |ISTMP#5|)) + (setq |y| (QCAR |ISTMP#5|)) + (setq |ISTMP#6| (QCDR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) (EQ (QCDR |ISTMP#6|) NIL) (PROGN - (SPADLET |z| (QCAR |ISTMP#6|)) + (setq |z| (QCAR |ISTMP#6|)) 'T))))))) (OR (BOOT-EQUAL |domain| |$DoubleFloat|) (AND (CONSP |domain|) (EQ (QCDR |domain|) NIL) (EQ (QCAR |domain|) '|Float|))) (INTEGERP |x|) (INTEGERP |y|) (INTEGERP |z|) (> |z| 0) - (SPADLET |float| + (setq |float| (|getFunctionFromDomain| '|float| |domain| (CONS |$Integer| (CONS |$Integer| (CONS |$PositiveInteger| NIL)))))) - (SPADLET |f| (SPADCALL |x| |y| |z| |float|)) - (SPADLET |o| + (setq |f| (SPADCALL |x| |y| |z| |float|)) + (setq |o| (|coerceInteractive| (mkObjWrap |f| |domain|) '(|OutputForm|))) (|objValUnwrap| |o|)) - ('T (SPADLET |LETTMP#1| (|flattenOps| |x|)) - (SPADLET |op| (CAR |LETTMP#1|)) - (SPADLET |l| (CDR |LETTMP#1|)) + ('T (setq |LETTMP#1| (|flattenOps| |x|)) + (setq |op| (CAR |LETTMP#1|)) + (setq |l| (CDR |LETTMP#1|)) (COND - ((STRINGP |op|) (SPADLET |op| (INTERN |op|)) - (SPADLET |x| (CONS |op| |l|)))) + ((STRINGP |op|) (setq |op| (INTERN |op|)) + (setq |x| (CONS |op| |l|)))) (COND ((BOOT-EQUAL |op| 'LAMBDA-CLOSURE) '|Closure|) ((AND (CONSP |x|) (EQ (QCAR |x|) '|break|)) '|break|) ((AND (CONSP |x|) (EQ (QCAR |x|) 'SEGMENT) (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)))) - (SPADLET |a'| (|outputTran| |a|)) + (PROGN (setq |a| (QCAR |ISTMP#1|)) 'T)))) + (setq |a'| (|outputTran| |a|)) (COND ((LISTP |a'|) - (SPADLET |a'| (CONS 'PAREN (CONS |a'| NIL))))) + (setq |a'| (CONS 'PAREN (CONS |a'| NIL))))) (CONS 'SEGMENT (CONS |a'| NIL))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'SEGMENT) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |a'| (|outputTran| |a|)) - (SPADLET |b'| (|outputTran| |b|)) + (setq |a'| (|outputTran| |a|)) + (setq |b'| (|outputTran| |b|)) (COND ((LISTP |a'|) - (SPADLET |a'| (CONS 'PAREN (CONS |a'| NIL))))) + (setq |a'| (CONS 'PAREN (CONS |a'| NIL))))) (COND ((LISTP |b'|) - (SPADLET |b'| (CONS 'PAREN (CONS |b'| NIL))))) + (setq |b'| (CONS 'PAREN (CONS |b'| NIL))))) (CONS 'SEGMENT (CONS |a'| (CONS |b'| NIL)))) ((OR (AND (CONSP |op|) (EQ (QCAR |op|) '|$elt|) (PROGN - (SPADLET |ISTMP#1| (QCDR |op|)) + (setq |ISTMP#1| (QCDR |op|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |targ| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |targ| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |fun| (QCAR |ISTMP#2|)) + (setq |fun| (QCAR |ISTMP#2|)) 'T)))))) (AND (NULL |$InteractiveMode|) (CONSP |op|) (EQ (QCAR |op|) '|elt|) (PROGN - (SPADLET |ISTMP#1| (QCDR |op|)) + (setq |ISTMP#1| (QCDR |op|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |targ| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |targ| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |fun| (QCAR |ISTMP#2|)) + (setq |fun| (QCAR |ISTMP#2|)) 'T))))))) - (SPADLET |targ'| + (setq |targ'| (|obj2String| (|prefix2String| |targ|))) (COND ((EQL 2 (|#| |targ|)) - (SPADLET |targ'| (CONS 'PAREN (CONS |targ'| NIL))))) + (setq |targ'| (CONS 'PAREN (CONS |targ'| NIL))))) (CONS 'CONCAT (CONS (|outputTran| (CONS |fun| |l|)) (CONS "$" (CONS |targ'| NIL))))) ((OR (AND (CONSP |x|) (EQ (QCAR |x|) '|$elt|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |targ| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |targ| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |c| (QCAR |ISTMP#2|)) + (setq |c| (QCAR |ISTMP#2|)) 'T)))))) (AND (NULL |$InteractiveMode|) (CONSP |x|) (EQ (QCAR |x|) '|elt|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |targ| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |targ| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |c| (QCAR |ISTMP#2|)) + (setq |c| (QCAR |ISTMP#2|)) 'T))))))) - (SPADLET |targ'| + (setq |targ'| (|obj2String| (|prefix2String| |targ|))) (COND ((EQL 2 (|#| |targ|)) - (SPADLET |targ'| (CONS 'PAREN (CONS |targ'| NIL))))) + (setq |targ'| (CONS 'PAREN (CONS |targ'| NIL))))) (CONS 'CONCAT (CONS (|outputTran| |c|) (CONS "$" (CONS |targ'| NIL))))) ((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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |a| (|outputTran| |a|)) - (SPADLET |b| (|outputTran| |b|)) + (setq |a| (|outputTran| |a|)) + (setq |b| (|outputTran| |b|)) (COND ((INTEGERP |b|) (COND @@ -795,11 +795,11 @@ these functions return an updated ``layout so far'' in general (CONS (CONS '- (CONS |b| NIL)) NIL)))))) ((AND (CONSP |b|) (EQ (QCAR |b|) '-) (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)))) (CONS '+ (CONS |a| (CONS |c| NIL)))) ('T @@ -808,36 +808,36 @@ these functions return an updated ``layout so far'' in general (CONS (CONS '- (CONS |b| NIL)) NIL)))))) ((AND (CONSP |x|) (EQ (QCAR |x|) '**) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) '"%e") (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |foo1| (QCAR |ISTMP#2|)) + (setq |foo1| (QCAR |ISTMP#2|)) 'T))))) (CONSP |foo1|) (EQUAL (QCAR |foo1|) '"/") (PROGN - (SPADLET |ISTMP#1| (QCDR |foo1|)) + (setq |ISTMP#1| (QCDR |foo1|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |foo2| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |foo2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |foo3| (QCAR |ISTMP#2|)) + (setq |foo3| (QCAR |ISTMP#2|)) 'T))))) (INTEGERP |foo3|) (CONSP |foo2|) (EQ (QCAR |foo2|) '|log|) (PROGN - (SPADLET |ISTMP#1| (QCDR |foo2|)) + (setq |ISTMP#1| (QCDR |foo2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |foo4| (QCAR |ISTMP#1|)) + (setq |foo4| (QCAR |ISTMP#1|)) 'T)))) (COND ((EQL |foo3| 2) @@ -848,61 +848,61 @@ these functions return an updated ``layout so far'' in general (CONS (|outputTran| |foo3|) NIL)))))) ((AND (CONSP |x|) (EQ (QCAR |x|) '**) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) '"%e") (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |foo1| (QCAR |ISTMP#2|)) + (setq |foo1| (QCAR |ISTMP#2|)) 'T))))) (CONSP |foo1|) (PROGN - (SPADLET |op'| (QCAR |foo1|)) - (SPADLET |ISTMP#1| (QCDR |foo1|)) + (setq |op'| (QCAR |foo1|)) + (setq |ISTMP#1| (QCDR |foo1|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |foo2| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |foo2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |foo3| (QCAR |ISTMP#2|)) + (setq |foo3| (QCAR |ISTMP#2|)) 'T))))) (BOOT-EQUAL |op'| "*") (OR (AND (CONSP |foo3|) (EQ (QCAR |foo3|) '|log|) (PROGN - (SPADLET |ISTMP#1| (QCDR |foo3|)) + (setq |ISTMP#1| (QCDR |foo3|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |foo4| + (setq |foo4| (QCAR |ISTMP#1|)) 'T)))) (AND (CONSP |foo2|) (EQ (QCAR |foo2|) '|log|) (PROGN - (SPADLET |ISTMP#1| (QCDR |foo2|)) + (setq |ISTMP#1| (QCDR |foo2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |foo4| + (setq |foo4| (QCAR |ISTMP#1|)) 'T)))))) (COND ((AND (CONSP |foo3|) (EQ (QCAR |foo3|) '|log|) (PROGN - (SPADLET |ISTMP#1| (QCDR |foo3|)) + (setq |ISTMP#1| (QCDR |foo3|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |foo4| (QCAR |ISTMP#1|)) + (setq |foo4| (QCAR |ISTMP#1|)) 'T)))) (CONS '** (CONS (|outputTran| |foo4|) (CONS (|outputTran| |foo2|) NIL)))) - ('T (SPADLET |foo4| (CADR |foo2|)) + ('T (setq |foo4| (CADR |foo2|)) (CONS '** (CONS (|outputTran| |foo4|) (CONS (|outputTran| |foo3|) NIL)))))) @@ -914,9 +914,9 @@ these functions return an updated ``layout so far'' in general ((|member| |op| '(|cons| |nconc|)) (|outputConstructTran| |x|)) ('T - (SPADLET |l| + (setq |l| (PROG (G166651) - (SPADLET G166651 NIL) + (setq G166651 NIL) (RETURN (DO ((G166656 |l| (CDR G166656)) (|y| NIL)) @@ -933,22 +933,22 @@ these functions return an updated ``layout so far'' in general ((BOOT-EQUAL |op| '*) (COND ((AND (CONSP |l|) (EQ (QCDR |l|) NIL) - (PROGN (SPADLET |a| (QCAR |l|)) 'T)) + (PROGN (setq |a| (QCAR |l|)) 'T)) (|outputTran| |a|)) ((AND (CONSP |l|) (PROGN - (SPADLET |ISTMP#1| (QCAR |l|)) + (setq |ISTMP#1| (QCAR |l|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '-) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |a| (QCAR |ISTMP#2|)) + (setq |a| (QCAR |ISTMP#2|)) 'T))))) - (PROGN (SPADLET |b| (QCDR |l|)) 'T)) + (PROGN (setq |b| (QCDR |l|)) 'T)) (COND ((EQL |a| 1) (|outputTran| @@ -961,7 +961,7 @@ these functions return an updated ``layout so far'' in general ('T (CONS |op| (PROG (G166662) - (SPADLET G166662 NIL) + (setq G166662 NIL) (RETURN (DO ((G166669 |l| (CDR G166669)) (|ss| NIL)) @@ -978,19 +978,19 @@ these functions return an updated ``layout so far'' in general ((AND (CONSP |ss|) (EQ (QCAR |ss|) '*) (PROGN - (SPADLET |ll| (QCDR |ss|)) + (setq |ll| (QCDR |ss|)) 'T)) |ll|) ('T (CONS |ss| NIL)))))))))))))) ((BOOT-EQUAL |op| '+) (COND ((AND (CONSP |l|) (EQ (QCDR |l|) NIL) - (PROGN (SPADLET |a| (QCAR |l|)) 'T)) + (PROGN (setq |a| (QCAR |l|)) 'T)) (|outputTran| |a|)) ('T (CONS |op| (PROG (G166675) - (SPADLET G166675 NIL) + (setq G166675 NIL) (RETURN (DO ((G166682 |l| (CDR G166682)) (|ss| NIL)) @@ -1007,7 +1007,7 @@ these functions return an updated ``layout so far'' in general ((AND (CONSP |ss|) (EQ (QCAR |ss|) '+) (PROGN - (SPADLET |ll| (QCDR |ss|)) + (setq |ll| (QCDR |ss|)) 'T)) |ll|) ('T (CONS |ss| NIL)))))))))))))) @@ -1015,45 +1015,45 @@ these functions return an updated ``layout so far'' in general (COND ((BOOT-EQUAL |$fractionDisplayType| '|horizontal|) - (SPADLET |op| 'SLASH) + (setq |op| 'SLASH) (COND ((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|)) + (setq |b| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |a| + (setq |a| (COND ((ATOM |a|) |a|) ('T (CONS 'PAREN (CONS |a| NIL))))) - (SPADLET |b| + (setq |b| (COND ((ATOM |b|) |b|) ('T (CONS 'PAREN (CONS |b| NIL))))) (CONS (|outputTran| |op|) (CONS |a| (CONS |b| NIL)))) ('T (BREAK)))) - ('T (SPADLET |op| 'OVER) + ('T (setq |op| 'OVER) (COND ((AND (CONSP |l|) (PROGN - (SPADLET |ISTMP#1| (QCAR |l|)) + (setq |ISTMP#1| (QCAR |l|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '-) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#2|)) 'T))))) - (PROGN (SPADLET |b| (QCDR |l|)) 'T)) + (PROGN (setq |b| (QCDR |l|)) 'T)) (|outputTran| (CONS '- (CONS (CONS |op| (CONS |a| |b|)) @@ -1061,18 +1061,18 @@ these functions return an updated ``layout so far'' in general ('T (CONS (|outputTran| |op|) |l|)))))) ((AND (BOOT-EQUAL |op| '|\||) (CONSP |l|) (PROGN - (SPADLET |ISTMP#1| (QCAR |l|)) + (setq |ISTMP#1| (QCAR |l|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Tuple|) (PROGN - (SPADLET |u| (QCDR |ISTMP#1|)) + (setq |u| (QCDR |ISTMP#1|)) 'T))) (PROGN - (SPADLET |ISTMP#2| (QCDR |l|)) + (setq |ISTMP#2| (QCDR |l|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |pred| (QCAR |ISTMP#2|)) + (setq |pred| (QCAR |ISTMP#2|)) 'T)))) (CONS 'PAREN (CONS (CONS '|\|| @@ -1103,8 +1103,8 @@ without stack overflow. MCD. (PROG (|op| |args|) (RETURN (PROGN - (SPADLET |op| (CAR |l|)) - (SPADLET |args| (CDR |l|)) + (setq |op| (CAR |l|)) + (setq |args| (CDR |l|)) (COND ((|member| |op| (CONS "+" (CONS "*" (CONS '+ (CONS '* NIL))))) @@ -1131,23 +1131,23 @@ without stack overflow. MCD. (PROG (|term| |head|) (RETURN (SEQ (PROGN - (SPADLET |head| NIL) + (setq |head| NIL) (DO () ((NULL |tail|) NIL) (SEQ (EXIT (PROGN - (SPADLET |term| (CAR |tail|)) + (setq |term| (CAR |tail|)) (COND ((ATOM |term|) - (SPADLET |head| (CONS |term| |head|)) - (SPADLET |tail| (CDR |tail|))) + (setq |head| (CONS |term| |head|)) + (setq |tail| (CDR |tail|))) ((NULL (LISTP |term|)) - (SPADLET |head| (CONS |term| |head|)) - (SPADLET |tail| (CDR |tail|))) + (setq |head| (CONS |term| |head|)) + (setq |tail| (CDR |tail|))) ((BOOT-EQUAL |op| (CAR |term|)) - (SPADLET |tail| + (setq |tail| (APPEND (CDR |term|) (CDR |tail|)))) - ('T (SPADLET |head| (CONS |term| |head|)) - (SPADLET |tail| (CDR |tail|)))))))) + ('T (setq |head| (CONS |term| |head|)) + (setq |tail| (CDR |tail|)))))))) (REVERSE |head|)))))) ;; REVERSIP head @@ -1166,25 +1166,25 @@ NIL (PROG (|LETTMP#1| |l| |ISTMP#1| |ISTMP#2| |a| |exitform|) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| (REVERSE (CDR G166882))) - (SPADLET |exitform| (CAR |LETTMP#1|)) - (SPADLET |l| (NREVERSE (CDR |LETTMP#1|))) + (setq |LETTMP#1| (REVERSE (CDR G166882))) + (setq |exitform| (CAR |LETTMP#1|)) + (setq |l| (NREVERSE (CDR |LETTMP#1|))) (COND ((AND (CONSP |exitform|) (EQ (QCAR |exitform|) '|exit|) (PROGN - (SPADLET |ISTMP#1| (QCDR |exitform|)) + (setq |ISTMP#1| (QCDR |exitform|)) (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 |a| (QCAR |ISTMP#2|)) + (setq |a| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |exitform| |a|))) + (setq |exitform| |a|))) (CONS 'SC (APPEND (PROG (G166903) - (SPADLET G166903 NIL) + (setq G166903 NIL) (RETURN (DO ((G166908 |l| (CDR G166908)) (|x| NIL)) @@ -1217,9 +1217,9 @@ NIL (PROG (|x| |y| |z| |y'| |z'|) (RETURN (PROGN - (SPADLET |x| (CADR G166926)) - (SPADLET |y| (CADDR G166926)) - (SPADLET |z| (CADDDR G166926)) + (setq |x| (CADR G166926)) + (setq |y| (CADDR G166926)) + (setq |z| (CADDDR G166926)) (COND ((BOOT-EQUAL |y| '|noBranch|) (CONS 'CONCATB @@ -1235,8 +1235,8 @@ NIL (CONS (|outputTran| |x|) (CONS '|then| (CONS (|outputTran| |y|) NIL)))))) - ('T (SPADLET |y'| (|outputTran| |y|)) - (SPADLET |z'| (|outputTran| |z|)) + ('T (setq |y'| (|outputTran| |y|)) + (setq |z'| (|outputTran| |z|)) (CONS 'CONCATB (CONS '|if| (CONS (|outputTran| |x|) @@ -1266,14 +1266,14 @@ NIL (RETURN (SEQ (COND ((NULL |l|) NIL) - ('T (SPADLET |$linearFormatScripts| 'T) - (SPADLET |alias| + ('T (setq |$linearFormatScripts| 'T) + (setq |alias| (|get| |$op| '|alias| |$InteractiveFrame|)) (COND ((CDR |l|) (CONS 'SC (PROG (G166950) - (SPADLET G166950 NIL) + (setq G166950 NIL) (RETURN (DO ((G166955 |l| (CDR G166955)) (|ll| NIL)) ((OR (ATOM G166955) @@ -1301,13 +1301,13 @@ NIL (DECLARE (SPECIAL |$op|)) (RETURN (PROGN - (SPADLET |arg| (CAR |argDef|)) - (SPADLET |def| (CDR |argDef|)) - (SPADLET |LETTMP#1| (|simplifyMapPattern| |argDef| |alias|)) - (SPADLET |arg'| (CAR |LETTMP#1|)) - (SPADLET |def'| (CDR |LETTMP#1|)) - (SPADLET |arg'| (|outputTran| |arg'|)) - (COND ((NULL |arg'|) (SPADLET |arg'| "()"))) + (setq |arg| (CAR |argDef|)) + (setq |def| (CDR |argDef|)) + (setq |LETTMP#1| (|simplifyMapPattern| |argDef| |alias|)) + (setq |arg'| (CAR |LETTMP#1|)) + (setq |def'| (CDR |LETTMP#1|)) + (setq |arg'| (|outputTran| |arg'|)) + (COND ((NULL |arg'|) (setq |arg'| "()"))) (CONS 'CONCATB (CONS |$op| (CONS (|outputTran| |arg'|) @@ -1320,8 +1320,8 @@ NIL (PROG (|op| |body|) (RETURN (PROGN - (SPADLET |op| (CADR G166987)) - (SPADLET |body| (CADDDR G166987)) + (setq |op| (CADR G166987)) + (setq |body| (CADDDR G166987)) (CONS 'CONCAT (CONS |op| (CONS '/ (CONS (|outputTran| |body|) NIL)))))))) @@ -1337,12 +1337,12 @@ NIL (RETURN (PROGN (COND ((EQ (CAR G167003) 'REPEAT) (CAR G167003))) - (SPADLET |LETTMP#1| (REVERSE (CDR G167003))) - (SPADLET |body| (CAR |LETTMP#1|)) - (SPADLET |itl| (NREVERSE (CDR |LETTMP#1|))) - (SPADLET |body'| (|outputTran| |body|)) + (setq |LETTMP#1| (REVERSE (CDR G167003))) + (setq |body| (CAR |LETTMP#1|)) + (setq |itl| (NREVERSE (CDR |LETTMP#1|))) + (setq |body'| (|outputTran| |body|)) (COND - (|itl| (SPADLET |itlist| (|outputTranIteration| |itl|)) + (|itl| (setq |itlist| (|outputTranIteration| |itl|)) (CONS 'CONCATB (CONS |itlist| (CONS '|repeat| (CONS |body'| NIL))))) @@ -1356,10 +1356,10 @@ NIL (PROG (|LETTMP#1| |body| |itl| |itlist|) (RETURN (PROGN - (SPADLET |LETTMP#1| (REVERSE (CDR G167025))) - (SPADLET |body| (CAR |LETTMP#1|)) - (SPADLET |itl| (NREVERSE (CDR |LETTMP#1|))) - (SPADLET |itlist| (|outputTranIteration| |itl|)) + (setq |LETTMP#1| (REVERSE (CDR G167025))) + (setq |body| (CAR |LETTMP#1|)) + (setq |itl| (NREVERSE (CDR |LETTMP#1|))) + (setq |itlist| (|outputTranIteration| |itl|)) (CONS 'BRACKET (CONS (CONS 'CONCATB (CONS (|outputTran| |body|) @@ -1401,25 +1401,25 @@ NIL (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'STEP) (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|) (PROGN - (SPADLET |init| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |init| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |step| (QCAR |ISTMP#3|)) - (SPADLET |final| (QCDR |ISTMP#3|)) + (setq |step| (QCAR |ISTMP#3|)) + (setq |final| (QCDR |ISTMP#3|)) 'T)))))))) - (SPADLET |init'| (|outputTran| |init|)) + (setq |init'| (|outputTran| |init|)) (COND ((LISTP |init|) - (SPADLET |init'| (CONS 'PAREN (CONS |init'| NIL))))) - (SPADLET |final'| + (setq |init'| (CONS 'PAREN (CONS |init'| NIL))))) + (setq |final'| (COND (|final| (COND ((LISTP (CAR |final|)) @@ -1437,23 +1437,23 @@ NIL (CONS (|outputTran| |step|) |final'|))))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'IN) (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 |s| (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq |s| (QCAR |ISTMP#2|)) 'T)))))) (CONS 'IN (CONS (|outputTran| |n|) (CONS (|outputTran| |s|) NIL)))) ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |p| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |p| (QCAR |ISTMP#1|)) 'T))) (|member| |op| '(|\|| UNTIL WHILE))) - (SPADLET |op| (DOWNCASE |op|)) + (setq |op| (DOWNCASE |op|)) (CONS 'CONCATB (CONS |op| (CONS (|outputTran| |p|) NIL)))) ('T (|throwKeyedMsg| @@ -1484,21 +1484,21 @@ NIL (COND ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |op| (QCAR |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)))))) - (SPADLET |a| (|outputTran| |a|)) - (SPADLET |b| (|outputTran| |b|)) + (PROGN (setq |b| (QCAR |ISTMP#2|)) 'T)))))) + (setq |a| (|outputTran| |a|)) + (setq |b| (|outputTran| |b|)) (COND ((BOOT-EQUAL |op| '|cons|) (COND ((AND (CONSP |b|) (EQ (QCAR |b|) '|construct|) - (PROGN (SPADLET |l| (QCDR |b|)) 'T)) + (PROGN (setq |l| (QCDR |b|)) 'T)) (CONS '|construct| (CONS |a| |l|))) ('T (CONS 'BRACKET @@ -1508,22 +1508,22 @@ NIL NIL))) NIL))))) ((BOOT-EQUAL |op| '|nconc|) - (SPADLET |aPart| + (setq |aPart| (COND ((AND (CONSP |a|) (EQ (QCAR |a|) '|construct|) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |c| (QCAR |ISTMP#1|)) + (setq |c| (QCAR |ISTMP#1|)) 'T))) (CONSP |c|) (EQ (QCAR |c|) 'SEGMENT)) |c|) ('T (CONS '|:| (CONS |a| NIL))))) (COND ((AND (CONSP |b|) (EQ (QCAR |b|) '|construct|) - (PROGN (SPADLET |l| (QCDR |b|)) 'T)) + (PROGN (setq |l| (QCDR |b|)) 'T)) (CONS '|construct| (CONS |aPart| |l|))) ('T (CONS 'BRACKET @@ -1562,7 +1562,7 @@ NIL NIL))))) (EXIT (CONS 'ROW (PROG (G167193) - (SPADLET G167193 NIL) + (setq G167193 NIL) (RETURN (DO ((G167198 (MAXINDEX |x|)) (|i| 0 (QSADD1 |i|))) @@ -1583,7 +1583,7 @@ NIL (CONS 'MATRIX (CONS NIL (PROG (G167212) - (SPADLET G167212 NIL) + (setq G167212 NIL) (RETURN (DO ((G167217 (MAXINDEX |x|)) (|i| 0 (QSADD1 |i|))) @@ -1631,24 +1631,24 @@ NIL (RETURN (SEQ (COND (|$linearFormatScripts| (|linearFormatForm| |op| |argl|)) - ('T (SPADLET |s| (PNAME |op|)) - (SPADLET |indexList| + ('T (setq |s| (PNAME |op|)) + (setq |indexList| (PROG (G167234) - (SPADLET G167234 NIL) + (setq G167234 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((NULL (DIGITP - (SPADLET |d| + (setq |d| (ELT |s| - (SPADLET |maxIndex| |i|))))) + (setq |maxIndex| |i|))))) (NREVERSE0 G167234)) (SEQ (EXIT (SETQ G167234 (CONS (PARSE-INTEGER (PNAME |d|)) G167234)))))))) - (SPADLET |cleanOp| + (setq |cleanOp| (INTERN (PROG (G167243) - (SPADLET G167243 "") + (setq G167243 "") (RETURN (DO ((G167248 (MAXINDEX |s|)) @@ -1661,36 +1661,36 @@ NIL (PNAME (ELT |s| |i|))))))))))) (COND ((EQL (|#| |indexList|) 2) - (SPADLET |subPart| + (setq |subPart| (CONS 'SUB (CONS |cleanOp| (TAKE (ELT |indexList| 1) |argl|)))) (COND - ((SPADLET |l| (DROP (ELT |indexList| 1) |argl|)) + ((setq |l| (DROP (ELT |indexList| 1) |argl|)) (CONS |subPart| |l|)) ('T |subPart|))) - ('T (SPADLET |superSubPart| NIL) + ('T (setq |superSubPart| NIL) (DO ((G167260 (CDR |indexList|) (CDR G167260)) (|i| NIL)) ((OR (ATOM G167260) (PROGN (SETQ |i| (CAR G167260)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |scripts| + (setq |scripts| (PROGN - (SPADLET |this| + (setq |this| (TAKE |i| |argl|)) - (SPADLET |argl| + (setq |argl| (DROP |i| |argl|)) (COND ((EQL |i| 0) (CONS 'AGGLST NIL)) ((EQL |i| 1) (CAR |this|)) ('T (CONS 'AGGLST |this|))))) - (SPADLET |superSubPart| + (setq |superSubPart| (CONS |scripts| |superSubPart|)))))) - (SPADLET |superSub| + (setq |superSub| (CONS 'SUPERSUB (CONS |cleanOp| (REVERSE |superSubPart|)))) @@ -1721,15 +1721,15 @@ NIL |wasNumber| |lastOp| |firstTime|) (RETURN (SEQ (PROGN - (SPADLET |rightPrec| + (setq |rightPrec| (|getOpBindingPower| '* '|Led| '|right|)) - (SPADLET |firstTime| 'T) + (setq |firstTime| 'T) (DO ((G167307 (CDR |u|) (CDR G167307)) (|arg| NIL)) ((OR (ATOM G167307) (PROGN (SETQ |arg| (CAR G167307)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |op| (|keyp| |arg|)) + (setq |op| (|keyp| |arg|)) (COND ((AND (NULL |firstTime|) (OR @@ -1741,22 +1741,22 @@ NIL (AND |wasNumber| (BOOT-EQUAL |op| 'ROOT) (EQL (|subspan| |arg|) 1)))) - (SPADLET |d| (APP BLANK |x| |y| |d|)) - (SPADLET |x| (+ |x| 1)))) - (SPADLET |LETTMP#1| + (setq |d| (APP BLANK |x| |y| |d|)) + (setq |x| (+ |x| 1)))) + (setq |LETTMP#1| (|appInfixArg| |arg| |x| |y| |d| |rightPrec| '|left| NIL)) - (SPADLET |d| (CAR |LETTMP#1|)) - (SPADLET |x| (CADR |LETTMP#1|)) - (SPADLET |wasSimple| + (setq |d| (CAR |LETTMP#1|)) + (setq |x| (CADR |LETTMP#1|)) + (setq |wasSimple| (OR (AND (ATOM |arg|) (NULL (NUMBERP |arg|))) (|isRationalNumber| |arg|))) - (SPADLET |wasQuotient| (|isQuotient| |op|)) - (SPADLET |wasNumber| (NUMBERP |arg|)) - (SPADLET |lastOp| |op|) - (SPADLET |firstTime| NIL))))) + (setq |wasQuotient| (|isQuotient| |op|)) + (setq |wasNumber| (NUMBERP |arg|)) + (setq |lastOp| |op|) + (setq |firstTime| NIL))))) |d|))))) ;needBlankForRoot(lastOp,op,arg) == @@ -1793,22 +1793,22 @@ NIL (PROG (|a| |init| |one| |optFinal| |w|) (RETURN (PROGN - (SPADLET |a| (CADR G167334)) - (SPADLET |init| (CADDR G167334)) - (SPADLET |one| (CADDDR G167334)) - (SPADLET |optFinal| (CDDDDR G167334)) - (SPADLET |d| (|appChar| "for " |x| |y| |d|)) - (SPADLET |d| (APP |a| (SPADLET |w| (+ |x| 4)) |y| |d|)) - (SPADLET |d| - (|appChar| " in " (SPADLET |w| (+ |w| (WIDTH |a|))) + (setq |a| (CADR G167334)) + (setq |init| (CADDR G167334)) + (setq |one| (CADDDR G167334)) + (setq |optFinal| (CDDDDR G167334)) + (setq |d| (|appChar| "for " |x| |y| |d|)) + (setq |d| (APP |a| (setq |w| (+ |x| 4)) |y| |d|)) + (setq |d| + (|appChar| " in " (setq |w| (+ |w| (WIDTH |a|))) |y| |d|)) - (SPADLET |d| (APP |init| (SPADLET |w| (+ |w| 4)) |y| |d|)) - (SPADLET |d| - (APP ".." (SPADLET |w| (+ |w| (WIDTH |init|))) |y| + (setq |d| (APP |init| (setq |w| (+ |w| 4)) |y| |d|)) + (setq |d| + (APP ".." (setq |w| (+ |w| (WIDTH |init|))) |y| |d|)) (COND (|optFinal| - (SPADLET |d| (APP (CAR |optFinal|) (+ |w| 2) |y| |d|)))) + (setq |d| (APP (CAR |optFinal|) (+ |w| 2) |y| |d|)))) |d|)))) ;stepSub [.,a,init,one,:optFinal] == @@ -1820,11 +1820,11 @@ NIL (PROG (|a| |init| |one| |optFinal| |m|) (RETURN (PROGN - (SPADLET |a| (CADR G167365)) - (SPADLET |init| (CADDR G167365)) - (SPADLET |one| (CADDDR G167365)) - (SPADLET |optFinal| (CDDDDR G167365)) - (SPADLET |m| (MAX (|subspan| |a|) (|subspan| |init|))) + (setq |a| (CADR G167365)) + (setq |init| (CADDR G167365)) + (setq |one| (CADDDR G167365)) + (setq |optFinal| (CDDDDR G167365)) + (setq |m| (MAX (|subspan| |a|) (|subspan| |init|))) (COND (|optFinal| (MAX |m| (|subspan| (CAR |optFinal|)))) ('T |m|)))))) @@ -1838,11 +1838,11 @@ NIL (PROG (|a| |init| |one| |optFinal| |m|) (RETURN (PROGN - (SPADLET |a| (CADR G167387)) - (SPADLET |init| (CADDR G167387)) - (SPADLET |one| (CADDDR G167387)) - (SPADLET |optFinal| (CDDDDR G167387)) - (SPADLET |m| (MAX (|superspan| |a|) (|superspan| |init|))) + (setq |a| (CADR G167387)) + (setq |init| (CADDR G167387)) + (setq |one| (CADDDR G167387)) + (setq |optFinal| (CDDDDR G167387)) + (setq |m| (MAX (|superspan| |a|) (|superspan| |init|))) (COND (|optFinal| (MAX |m| (|superspan| (CAR |optFinal|)))) ('T |m|)))))) @@ -1854,10 +1854,10 @@ NIL (PROG (|a| |init| |one| |optFinal|) (RETURN (PROGN - (SPADLET |a| (CADR G167409)) - (SPADLET |init| (CADDR G167409)) - (SPADLET |one| (CADDDR G167409)) - (SPADLET |optFinal| (CDDDDR G167409)) + (setq |a| (CADR G167409)) + (setq |init| (CADDR G167409)) + (setq |one| (CADDDR G167409)) + (setq |optFinal| (CDDDDR G167409)) (+ (+ (+ 10 (WIDTH |a|)) (WIDTH |init|)) (COND (|optFinal| (WIDTH (CAR |optFinal|))) ('T 0))))))) @@ -1871,11 +1871,11 @@ NIL (PROG (|a| |s|) (RETURN (PROGN - (SPADLET |a| (CADR G167430)) - (SPADLET |s| (CADDR G167430)) - (SPADLET |d| (|appChar| "for " |x| |y| |d|)) - (SPADLET |d| (APP |a| (+ |x| 4) |y| |d|)) - (SPADLET |d| + (setq |a| (CADR G167430)) + (setq |s| (CADDR G167430)) + (setq |d| (|appChar| "for " |x| |y| |d|)) + (setq |d| (APP |a| (+ |x| 4) |y| |d|)) + (setq |d| (|appChar| " in " (+ (+ |x| (WIDTH |a|)) 4) |y| |d|)) (APP |s| (+ (+ |x| (WIDTH |a|)) 8) |y| |d|))))) @@ -1886,8 +1886,8 @@ NIL (PROG (|a| |s|) (RETURN (PROGN - (SPADLET |a| (CADR G167447)) - (SPADLET |s| (CADDR G167447)) + (setq |a| (CADR G167447)) + (setq |s| (CADDR G167447)) (MAX (|subspan| |a|) (|subspan| |s|)))))) ;inSuper [.,a,s] == MAX(superspan a,superspan s) @@ -1896,8 +1896,8 @@ NIL (PROG (|a| |s|) (RETURN (PROGN - (SPADLET |a| (CADR G167461)) - (SPADLET |s| (CADDR G167461)) + (setq |a| (CADR G167461)) + (setq |s| (CADDR G167461)) (MAX (|superspan| |a|) (|superspan| |s|)))))) ;inWidth [.,a,s] == 8+WIDTH a+WIDTH s @@ -1906,8 +1906,8 @@ NIL (PROG (|a| |s|) (RETURN (PROGN - (SPADLET |a| (CADR G167475)) - (SPADLET |s| (CADDR G167475)) + (setq |a| (CADR G167475)) + (setq |s| (CADDR G167475)) (+ (+ 8 (WIDTH |a|)) (WIDTH |s|)))))) ;centerApp([.,u],x,y,d) == @@ -1917,8 +1917,8 @@ NIL (PROG (|u|) (RETURN (PROGN - (SPADLET |u| (CADR G167489)) - (SPADLET |d| (APP |u| |x| |y| |d|)))))) + (setq |u| (CADR G167489)) + (setq |d| (APP |u| |x| |y| |d|)))))) ;concatApp([.,:l],x,y,d) == concatApp1(l,x,y,d,0) @@ -1926,7 +1926,7 @@ NIL (PROG (|l|) (RETURN (PROGN - (SPADLET |l| (CDR G167501)) + (setq |l| (CDR G167501)) (|concatApp1| |l| |x| |y| |d| 0))))) ;concatbApp([.,:l],x,y,d) == concatApp1(l,x,y,d,1) @@ -1935,7 +1935,7 @@ NIL (PROG (|l|) (RETURN (PROGN - (SPADLET |l| (CDR G167512)) + (setq |l| (CDR G167512)) (|concatApp1| |l| |x| |y| |d| 1))))) ;concatApp1(l,x,y,d,n) == @@ -1950,8 +1950,8 @@ NIL ((OR (ATOM G167530) (PROGN (SETQ |u| (CAR G167530)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |d| (APP |u| |x| |y| |d|)) - (SPADLET |x| (+ (+ |x| (WIDTH |u|)) |n|)))))) + (setq |d| (APP |u| |x| |y| |d|)) + (setq |x| (+ (+ |x| (WIDTH |u|)) |n|)))))) |d|))) ;concatSub [.,:l] == "MAX"/[subspan x for x in l] @@ -1960,9 +1960,9 @@ NIL (PROG (|l|) (RETURN (SEQ (PROGN - (SPADLET |l| (CDR G167541)) + (setq |l| (CDR G167541)) (PROG (G167548) - (SPADLET G167548 -999999) + (setq G167548 -999999) (RETURN (DO ((G167553 |l| (CDR G167553)) (|x| NIL)) ((OR (ATOM G167553) @@ -1977,9 +1977,9 @@ NIL (PROG (|l|) (RETURN (SEQ (PROGN - (SPADLET |l| (CDR G167564)) + (setq |l| (CDR G167564)) (PROG (G167571) - (SPADLET G167571 -999999) + (setq G167571 -999999) (RETURN (DO ((G167576 |l| (CDR G167576)) (|x| NIL)) ((OR (ATOM G167576) @@ -1994,9 +1994,9 @@ NIL (PROG (|l|) (RETURN (SEQ (PROGN - (SPADLET |l| (CDR G167587)) + (setq |l| (CDR G167587)) (PROG (G167594) - (SPADLET G167594 0) + (setq G167594 0) (RETURN (DO ((G167599 |l| (CDR G167599)) (|x| NIL)) ((OR (ATOM G167599) @@ -2010,10 +2010,10 @@ NIL (PROG (|l|) (RETURN (SEQ (PROGN - (SPADLET |l| (CDR G167610)) + (setq |l| (CDR G167610)) (SPADDIFFERENCE (PROG (G167617) - (SPADLET G167617 0) + (setq G167617 0) (RETURN (DO ((G167622 |l| (CDR G167622)) (|x| NIL)) ((OR (ATOM G167622) @@ -2037,16 +2037,16 @@ NIL (PROG (|a| |b| |pren| |x'| |y'|) (RETURN (PROGN - (SPADLET |a| (CADR G167637)) - (SPADLET |b| (CADDR G167637)) - (SPADLET |pren| (|exptNeedsPren| |a|)) - (SPADLET |d| + (setq |a| (CADR G167637)) + (setq |b| (CADDR G167637)) + (setq |pren| (|exptNeedsPren| |a|)) + (setq |d| (COND (|pren| (|appparu| |a| |x| |y| |d|)) ('T (APP |a| |x| |y| |d|)))) - (SPADLET |x'| + (setq |x'| (+ (+ |x| (WIDTH |a|)) (COND (|pren| 2) ('T 0)))) - (SPADLET |y'| + (setq |y'| (+ (+ (+ (+ 1 |y|) (|superspan| |a|)) (|subspan| |b|)) (COND @@ -2066,7 +2066,7 @@ NIL (RETURN (COND ((AND (ATOM |a|) (NULL (AND (INTEGERP |a|) (MINUSP |a|)))) NIL) - ('T (SPADLET |key| (|keyp| |a|)) + ('T (setq |key| (|keyp| |a|)) (COND ((BOOT-EQUAL |key| 'OVER) 'T) ((OR (BOOT-EQUAL |key| 'SUB) @@ -2085,8 +2085,8 @@ NIL (PROG (|a| |b|) (RETURN (PROGN - (SPADLET |a| (CADR G167664)) - (SPADLET |b| (CADDR G167664)) + (setq |a| (CADR G167664)) + (setq |b| (CADDR G167664)) (+ (+ (|superspan| |a|) (|height| |b|)) (COND ((EQL (|superspan| |a|) 0) 0) @@ -2098,8 +2098,8 @@ NIL (PROG (|a| |b|) (RETURN (PROGN - (SPADLET |a| (CADR G167679)) - (SPADLET |b| (CADDR G167679)) + (setq |a| (CADR G167679)) + (setq |b| (CADDR G167679)) (+ (+ (WIDTH |a|) (WIDTH |b|)) (COND ((|exptNeedsPren| |a|) 2) ('T 0))))))) @@ -2153,33 +2153,33 @@ NIL |firstTime|) (RETURN (SEQ (PROGN - (SPADLET |rightPrec| + (setq |rightPrec| (|getOpBindingPower| '* '|Led| '|right|)) - (SPADLET |firstTime| 'T) - (SPADLET |w| 0) + (setq |firstTime| 'T) + (setq |w| 0) (DO ((G167713 (CDR |u|) (CDR G167713)) (|arg| NIL)) ((OR (ATOM G167713) (PROGN (SETQ |arg| (CAR G167713)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |op| (|keyp| |arg|)) + (setq |op| (|keyp| |arg|)) (COND ((AND (NULL |firstTime|) (|needStar| |wasSimple| |wasQuotient| |wasNumber| |arg| |op|)) - (SPADLET |w| (+ |w| 1)))) + (setq |w| (+ |w| 1)))) (COND ((|infixArgNeedsParens| |arg| |rightPrec| '|left|) - (SPADLET |w| (+ |w| 2)))) - (SPADLET |w| (+ |w| (WIDTH |arg|))) - (SPADLET |wasSimple| + (setq |w| (+ |w| 2)))) + (setq |w| (+ |w| (WIDTH |arg|))) + (setq |wasSimple| (AND (ATOM |arg|) (NULL (NUMBERP |arg|)))) - (SPADLET |wasQuotient| (|isQuotient| |op|)) - (SPADLET |wasNumber| (NUMBERP |arg|)) - (SPADLET |firstTime| NIL))))) + (setq |wasQuotient| (|isQuotient| |op|)) + (setq |wasNumber| (NUMBERP |arg|)) + (setq |firstTime| NIL))))) |w|))))) ;plusApp([.,frst,:rst],x,y,d) == @@ -2189,8 +2189,8 @@ NIL (PROG (|frst| |rst|) (RETURN (PROGN - (SPADLET |frst| (CADR G167733)) - (SPADLET |rst| (CDDR G167733)) + (setq |frst| (CADR G167733)) + (setq |rst| (CDDR G167733)) (|appSum| |rst| (+ |x| (WIDTH |frst|)) |y| (APP |frst| |x| |y| |d|)))))) @@ -2223,28 +2223,28 @@ NIL (PROGN (SETQ |arg| (CAR G167771)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |infixOp| + (setq |infixOp| (COND ((|syminusp| |arg|) '-) ('T '+))) - (SPADLET |opString| + (setq |opString| (OR (GETL |infixOp| 'INFIXOP) ",")) - (SPADLET |d| (APP |opString| |x| |y| |d|)) - (SPADLET |x| (+ |x| (WIDTH |opString|))) - (SPADLET |arg| (|absym| |arg|)) - (SPADLET |rightPrec| + (setq |d| (APP |opString| |x| |y| |d|)) + (setq |x| (+ |x| (WIDTH |opString|))) + (setq |arg| (|absym| |arg|)) + (setq |rightPrec| (|getOpBindingPower| |infixOp| '|Led| '|right|)) (COND ((BOOT-EQUAL |infixOp| '-) - (SPADLET |rightPrec| + (setq |rightPrec| (+ |rightPrec| 1)))) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|appInfixArg| |arg| |x| |y| |d| |rightPrec| '|left| NIL)) - (SPADLET |d| (CAR |LETTMP#1|)) - (SPADLET |x| (CADR |LETTMP#1|)) + (setq |d| (CAR |LETTMP#1|)) + (setq |x| (CADR |LETTMP#1|)) |LETTMP#1|)))) |d|))))) @@ -2275,13 +2275,13 @@ NIL |LETTMP#1|) (RETURN (SEQ (PROGN - (SPADLET |op| (|keyp| |e|)) - (SPADLET |leftPrec| + (setq |op| (|keyp| |e|)) + (setq |leftPrec| (|getOpBindingPower| |op| '|Led| '|left|)) (COND ((EQL |leftPrec| 1000) (RETURN NIL)) ('T - (SPADLET |rightPrec| + (setq |rightPrec| (|getOpBindingPower| |op| '|Led| '|right|)) (COND ((QSLESSP (|#| |e|) 2) @@ -2291,43 +2291,43 @@ NIL (CONS "fewer than 2 arguments to an infix function" NIL)))) ('T - (SPADLET |opString| + (setq |opString| (OR (GETL |op| 'INFIXOP) ",")) - (SPADLET |opWidth| (WIDTH |opString|)) - (SPADLET |frst| (CADR |e|)) - (SPADLET |rst| (CDDR |e|)) + (setq |opWidth| (WIDTH |opString|)) + (setq |frst| (CADR |e|)) + (setq |rst| (CDDR |e|)) (COND ((NULL |rst|) (COND ((GETL |op| '|isSuffix|) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|appInfixArg| |frst| |x| |y| |d| |leftPrec| '|right| |opString|)) - (SPADLET |d| (CAR |LETTMP#1|)) - (SPADLET |x| (CADR |LETTMP#1|)) - (SPADLET |d| + (setq |d| (CAR |LETTMP#1|)) + (setq |x| (CADR |LETTMP#1|)) + (setq |d| (|appChar| |opString| |x| |y| |d|))) ('T (THROW '|outputFailure| '|outputFailure|)))) ('T - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|appInfixArg| |frst| |x| |y| |d| |leftPrec| '|right| |opString|)) - (SPADLET |d| (CAR |LETTMP#1|)) - (SPADLET |x| (CADR |LETTMP#1|)) + (setq |d| (CAR |LETTMP#1|)) + (setq |x| (CADR |LETTMP#1|)) (DO ((G167827 |rst| (CDR G167827)) (|arg| NIL)) ((OR (ATOM G167827) (PROGN (SETQ |arg| (CAR G167827)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |d| + (setq |d| (|appChar| |opString| |x| |y| |d|)) - (SPADLET |x| (+ |x| |opWidth|)) - (SPADLET |LETTMP#1| + (setq |x| (+ |x| |opWidth|)) + (setq |LETTMP#1| (|appInfixArg| |arg| |x| |y| |d| |rightPrec| '|left| |opString|)) - (SPADLET |d| (CAR |LETTMP#1|)) - (SPADLET |x| (CADR |LETTMP#1|)) + (setq |d| (CAR |LETTMP#1|)) + (setq |x| (CADR |LETTMP#1|)) |LETTMP#1|)))) |d|))))))))))) @@ -2355,15 +2355,15 @@ NIL (PROG (|insertPrensIfTrue|) (RETURN (PROGN - (SPADLET |insertPrensIfTrue| + (setq |insertPrensIfTrue| (|infixArgNeedsParens| |u| |prec| |leftOrRight|)) - (SPADLET |d| + (setq |d| (COND (|insertPrensIfTrue| (|appparu| |u| |x| |y| |d|)) ('T (APP |u| |x| |y| |d|)))) - (SPADLET |x| (+ |x| (WIDTH |u|))) + (setq |x| (+ |x| (WIDTH |u|))) (COND - (|string| (SPADLET |d| (|appconc| |d| |x| |y| |string|)))) + (|string| (setq |d| (|appconc| |d| |x| |y| |string|)))) (CONS |d| (CONS (COND (|insertPrensIfTrue| (+ |x| 2)) ('T |x|)) NIL)))))) @@ -2407,37 +2407,37 @@ NIL ((BOOT-EQUAL |key| '|right|) 0))) ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |argl| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |argl| (QCDR |x|)) 'T)) (COND - ((AND (CONSP |op|) (PROGN (SPADLET |a| (QCAR |op|)) 'T)) - (SPADLET |op| |a|))) + ((AND (CONSP |op|) (PROGN (setq |a| (QCAR |op|)) 'T)) + (setq |op| |a|))) (COND ((BOOT-EQUAL |op| 'SLASH) (SPADDIFFERENCE (|getBindingPowerOf| |key| (CONS '/ |argl|)) 1)) ((BOOT-EQUAL |op| 'OVER) (|getBindingPowerOf| |key| (CONS '/ |argl|))) - ((EQL (SPADLET |n| (|#| |argl|)) 1) + ((EQL (setq |n| (|#| |argl|)) 1) (COND ((AND (BOOT-EQUAL |key| '|left|) - (SPADLET |m| + (setq |m| (|getOpBindingPower| |op| '|Nud| '|left|))) |m|) ((AND (BOOT-EQUAL |key| '|right|) - (SPADLET |m| + (setq |m| (|getOpBindingPower| |op| '|Nud| '|right|))) |m|) ('T 1000))) ((> |n| 1) (COND ((AND (BOOT-EQUAL |key| '|left|) - (SPADLET |m| + (setq |m| (|getOpBindingPower| |op| '|Led| '|left|))) |m|) ((AND (BOOT-EQUAL |key| '|right|) - (SPADLET |m| + (setq |m| (|getOpBindingPower| |op| '|Led| '|right|))) |m|) ((BOOT-EQUAL |op| 'ELT) 1002) @@ -2460,12 +2460,12 @@ NIL (PROG (|exception| |bp|) (RETURN (PROGN - (COND ((|member| |op| '(SLASH OVER)) (SPADLET |op| '/))) - (SPADLET |exception| + (COND ((|member| |op| '(SLASH OVER)) (setq |op| '/))) + (setq |exception| (COND ((BOOT-EQUAL |leftOrRight| '|left|) 0) ('T 105))) - (SPADLET |bp| + (setq |bp| (COND ((BOOT-EQUAL |leftOrRight| '|left|) (|leftBindingPowerOf| |op| |LedOrNud|)) @@ -2485,12 +2485,12 @@ NIL (PROGN (OR (AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |u| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |u| (QCAR |ISTMP#1|)) 'T)))) (THROW '|outputFailure| '|outputFailure|)) - (SPADLET |d| (|appChar| (|specialChar| '|lbrk|) |x| |y| |d|)) - (SPADLET |d| (APP |u| (+ |x| 1) |y| |d|)) + (setq |d| (|appChar| (|specialChar| '|lbrk|) |x| |y| |d|)) + (setq |d| (APP |u| (+ |x| 1) |y| |d|)) (|appChar| (|specialChar| '|rbrk|) (+ (+ |x| 1) (WIDTH |u|)) |y| |d|))))) @@ -2507,12 +2507,12 @@ NIL (PROGN (OR (AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |u| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |u| (QCAR |ISTMP#1|)) 'T)))) (THROW '|outputFailure| '|outputFailure|)) - (SPADLET |d| (|appChar| (|specialChar| '|lbrc|) |x| |y| |d|)) - (SPADLET |d| (APP |u| (+ |x| 1) |y| |d|)) + (setq |d| (|appChar| (|specialChar| '|lbrc|) |x| |y| |d|)) + (setq |d| (APP |u| (+ |x| 1) |y| |d|)) (|appChar| (|specialChar| '|rbrc|) (+ (+ |x| 1) (WIDTH |u|)) |y| |d|))))) @@ -2526,15 +2526,15 @@ NIL (RETURN (SEQ (COND ((PROGN - (SPADLET |ISTMP#1| (CDR |u|)) + (setq |ISTMP#1| (CDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) - (SPADLET |l| (QCDR |ISTMP#1|)) + (setq |a| (QCAR |ISTMP#1|)) + (setq |l| (QCDR |ISTMP#1|)) 'T))) (+ (WIDTH |a|) (PROG (G167935) - (SPADLET G167935 0) + (setq G167935 0) (RETURN (DO ((G167940 |l| (CDR G167940)) (|x| NIL)) ((OR (ATOM G167940) @@ -2575,20 +2575,20 @@ NIL (COND ((AND (CONSP |u|) (PROGN - (SPADLET |a| (QCAR |u|)) - (SPADLET |l| (QCDR |u|)) + (setq |a| (QCAR |u|)) + (setq |l| (QCDR |u|)) 'T)) - (SPADLET |d| (APP |a| |x| |y| |d|)) - (SPADLET |x| (+ |x| (WIDTH |a|))) + (setq |d| (APP |a| |x| |y| |d|)) + (setq |x| (+ |x| (WIDTH |a|))) (DO ((G167974 |l| (CDR G167974)) (|b| NIL)) ((OR (ATOM G167974) (PROGN (SETQ |b| (CAR G167974)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |d| (APP |s| |x| |y| |d|)) - (SPADLET |d| + (setq |d| (APP |s| |x| |y| |d|)) + (setq |d| (APP |b| (+ |x| 1) |y| |d|)) - (SPADLET |x| + (setq |x| (+ (+ |x| 1) (WIDTH |b|))))))))) |d|))))) @@ -2700,17 +2700,17 @@ NIL ((EQL |u| 0) 1) ('T (COND - ((> 1 |u|) (SPADLET |negative| 1)) - ('T (SPADLET |negative| 0))) + ((> 1 |u|) (setq |negative| 1)) + ('T (setq |negative| 0))) (+ (DIGITS-BY-RADIX |u| 10) |negative|)))) ((ATOM |u|) (|#| (|atom2String| |u|))) ((PROGN - (SPADLET |ISTMP#1| (|putWidth| |u|)) + (setq |ISTMP#1| (|putWidth| |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) - (PROGN (SPADLET |n| (QCDR |ISTMP#2|)) 'T))))) + (PROGN (setq |n| (QCDR |ISTMP#2|)) 'T))))) |n|) ('T (THROW '|outputFailure| '|outputFailure|)))))) @@ -2756,32 +2756,32 @@ NIL ((OR (ATOM |u|) (AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |n| (QCDR |ISTMP#1|)) + (setq |n| (QCDR |ISTMP#1|)) 'T))) (NUMBERP |n|))) |u|) - ('T (SPADLET |op| (|keyp| |u|)) - (SPADLET |leftPrec| (|getBindingPowerOf| '|left| |u|)) - (SPADLET |rightPrec| (|getBindingPowerOf| '|right| |u|)) - (SPADLET |firstEl| (CAR |u|)) (SPADLET |l| (CDR |u|)) - (SPADLET |interSpace| + ('T (setq |op| (|keyp| |u|)) + (setq |leftPrec| (|getBindingPowerOf| '|left| |u|)) + (setq |rightPrec| (|getBindingPowerOf| '|right| |u|)) + (setq |firstEl| (CAR |u|)) (setq |l| (CDR |u|)) + (setq |interSpace| (COND ((GETL |firstEl| 'INFIXOP) 0) ('T 1))) - (SPADLET |argsWidth| + (setq |argsWidth| (COND ((AND (CONSP |l|) (PROGN - (SPADLET |firstArg| (QCAR |l|)) - (SPADLET |restArg| (QCDR |l|)) + (setq |firstArg| (QCAR |l|)) + (setq |restArg| (QCDR |l|)) 'T)) (RPLACA (CDR |u|) (|putWidth| |firstArg|)) (DO ((|y| |restArg| (CDR |y|))) ((ATOM |y|) NIL) (SEQ (EXIT (RPLACA |y| (|putWidth| (CAR |y|)))))) - (SPADLET |widthFirstArg| + (setq |widthFirstArg| (COND ((AND (EQL 0 |interSpace|) (|infixArgNeedsParens| @@ -2790,7 +2790,7 @@ NIL ('T (WIDTH |firstArg|)))) (+ |widthFirstArg| (PROG (G168041) - (SPADLET G168041 0) + (setq G168041 0) (RETURN (DO ((G168046 |restArg| (CDR G168046)) @@ -2813,17 +2813,17 @@ NIL (+ 2 (WIDTH |x|))) ('T (WIDTH |x|))))))))))))) ('T 0))) - (SPADLET |newFirst| + (setq |newFirst| (COND - ((ATOM (SPADLET |oldFirst| (CAR |u|))) + ((ATOM (setq |oldFirst| (CAR |u|))) (COND - ((SPADLET |fn| (GETL |oldFirst| 'WIDTH)) + ((setq |fn| (GETL |oldFirst| 'WIDTH)) (CONS |oldFirst| (FUNCALL |fn| (CONS |oldFirst| |l|)))) ('T (COND - (|l| (SPADLET |ll| (CDR |l|))) - ('T (SPADLET |ll| NIL))) + (|l| (setq |ll| (CDR |l|))) + ('T (setq |ll| NIL))) (CONS |oldFirst| (+ (|opWidth| |oldFirst| |ll|) |argsWidth|))))) @@ -2850,9 +2850,9 @@ NIL ((NUMBERP |op|) (+ 2 (SIZE (STRINGIMAGE |op|)))) ((NULL |has2Arguments|) (COND - ((SPADLET |a| (GETL |op| 'PREFIXOP)) (SIZE |a|)) + ((setq |a| (GETL |op| 'PREFIXOP)) (SIZE |a|)) ('T (+ 2 (SIZE (PNAME |op|)))))) - ((SPADLET |a| (GETL |op| 'INFIXOP)) (SIZE |a|)) + ((setq |a| (GETL |op| 'INFIXOP)) (SIZE |a|)) ('T (+ 2 (SIZE (PNAME |op|)))))))) ;matrixBorder(x,y1,y2,d,leftOrRight) == @@ -2878,7 +2878,7 @@ NIL (RETURN (SEQ (COND ((BOOT-EQUAL |y1| |y2|) - (SPADLET |c| + (setq |c| (COND ((BOOT-EQUAL |leftOrRight| '|left|) (|specialChar| '|lbrk|)) @@ -2887,7 +2887,7 @@ NIL ('T (DO ((|y| |y1| (+ |y| 1))) ((> |y| |y2|) NIL) (SEQ (EXIT (PROGN - (SPADLET |c| + (setq |c| (COND ((BOOT-EQUAL |y| |y1|) (COND @@ -2902,7 +2902,7 @@ NIL (|specialChar| '|ulc|)) ('T (|specialChar| '|urc|)))) ('T (|specialChar| '|vbar|)))) - (SPADLET |d| (APP |c| |x| |y| |d|)))))) + (setq |d| (APP |c| |x| |y| |d|)))))) |d|)))))) ;isRationalNumber x == nil @@ -2948,8 +2948,8 @@ NIL (DECLARE (SPECIAL |$MatrixCount| |$MatrixList|)) (RETURN (PROGN - (SPADLET |$MatrixCount| 0) - (SPADLET |$MatrixList| NIL) + (setq |$MatrixCount| 0) + (setq |$MatrixList| NIL) (|maprinChk| |x|) (COND (|$MatrixList| (|maprinRows| |$MatrixList|)) ('T NIL)))))) @@ -2989,50 +2989,50 @@ NIL (RETURN (COND ((NULL |$MatrixList|) (|maPrin| |x|)) - ((AND (ATOM |x|) (SPADLET |u| (|assoc| |x| |$MatrixList|))) - (SPADLET |$MatrixList| (|delete| |u| |$MatrixList|)) + ((AND (ATOM |x|) (setq |u| (|assoc| |x| |$MatrixList|))) + (setq |$MatrixList| (|delete| |u| |$MatrixList|)) (|maPrin| (|deMatrix| (CDR |u|)))) ((AND (CONSP |x|) (EQ (QCAR |x|) '=) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |arg| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |arg| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) - (PROGN (SPADLET |y| (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq |y| (QCAR |ISTMP#2|)) 'T)))))) (COND - ((SPADLET |u| (|assoc| |y| |$MatrixList|)) - (SPADLET |$MatrixList| (|delete| |u| |$MatrixList|)) + ((setq |u| (|assoc| |y| |$MatrixList|)) + (setq |$MatrixList| (|delete| |u| |$MatrixList|)) (|maPrin| (CONS '= (CONS |arg| (CONS (|deMatrix| (CDR |u|)) NIL))))) ('T (|maPrin| |x|)))) ((AND (CONSP |x|) (EQ (QCAR |x|) 'EQUATNUM) (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 |y| (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq |y| (QCAR |ISTMP#2|)) 'T)))))) (COND ((AND (CONSP |$MatrixList|) (EQ (QCDR |$MatrixList|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |$MatrixList|)) + (setq |ISTMP#1| (QCAR |$MatrixList|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |name| (QCAR |ISTMP#1|)) - (SPADLET |value| (QCDR |ISTMP#1|)) + (setq |name| (QCAR |ISTMP#1|)) + (setq |value| (QCDR |ISTMP#1|)) 'T))) (BOOT-EQUAL |y| |name|)) - (SPADLET |$MatrixList| NIL) + (setq |$MatrixList| NIL) (|maPrin| (CONS 'EQUATNUM (CONS |n| (CONS (|deMatrix| |value|) NIL))))) - ((IDENTP |y|) (SPADLET |u| (|assoc| |y| |$MatrixList|)) - (SPADLET |$MatrixList| (|delete| |u| |$MatrixList|)) + ((IDENTP |y|) (setq |u| (|assoc| |y| |$MatrixList|)) + (setq |$MatrixList| (|delete| |u| |$MatrixList|)) (|maPrin| (CONS 'EQUATNUM (CONS |n| (CONS (CDR |u|) NIL)))) (COND ((NULL |$collectOutput|) (TERPRI |$algebraOutputStream|)) @@ -3063,9 +3063,9 @@ NIL (TERPRI |$algebraOutputStream|))) (DO () ((NULL |matrixList|) NIL) (SEQ (EXIT (PROGN - (SPADLET |y| (NREVERSE |matrixList|)) - (SPADLET |matrixList| NIL) - (SPADLET |firstName| (CAR (CAR |y|))) + (setq |y| (NREVERSE |matrixList|)) + (setq |matrixList| NIL) + (setq |firstName| (CAR (CAR |y|))) (DO ((G168227 |y| (CDR G168227)) (G168195 NIL) (|n| 0 (QSADD1 |n|))) ((OR (ATOM G168227) @@ -3074,8 +3074,8 @@ NIL NIL) (PROGN (PROGN - (SPADLET |name| (CAR G168195)) - (SPADLET |m| (CDR G168195)) + (setq |name| (CAR G168195)) + (setq |m| (CDR G168195)) G168195) NIL)) NIL) @@ -3085,13 +3085,13 @@ NIL ((NULL |$collectOutput|) (TERPRI |$algebraOutputStream|))) - (SPADLET |andWhere| + (setq |andWhere| (COND ((BOOT-EQUAL |name| |firstName|) "where ") ('T "and "))) - (SPADLET |line| + (setq |line| (STRCONC |andWhere| (PNAME |name|))) (|maprinChk| @@ -3110,7 +3110,7 @@ NIL (SEQ (CONS 'BRACKET (CONS (CONS 'AGGLST (PROG (G168248) - (SPADLET G168248 NIL) + (setq G168248 NIL) (RETURN (DO ((G168253 (CDDR |m|) (CDR G168253)) @@ -3177,7 +3177,7 @@ NIL (SEQ (COND ((ATOM |u|) NIL) ((<= (CDAR |u|) |width|) NIL) - ('T (SPADLET |op| (CAAR |u|)) + ('T (setq |op| (CAAR |u|)) (COND ((BOOT-EQUAL |op| 'MATRIX) (|largeMatrixAlist| |u|)) ((member |op| @@ -3189,9 +3189,9 @@ NIL PAREN BRACKET BRACE)) - (SPADLET |dist| (SPADDIFFERENCE |dist| 3)) - (SPADLET |width| (SPADDIFFERENCE |width| 3)) - (SPADLET |ans| + (setq |dist| (SPADDIFFERENCE |dist| 3)) + (setq |width| (SPADDIFFERENCE |width| 3)) + (setq |ans| (DO ((G168272 (CDR |u|) (CDR G168272)) (|v| NIL)) ((OR (ATOM G168272) @@ -3200,13 +3200,13 @@ NIL NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |ans| + ((setq |ans| (|LargeMatrixp| |v| |width| |dist|)) (RETURN (|largeMatrixAlist| |ans|))) ('T - (SPADLET |dist| + (setq |dist| (SPADDIFFERENCE |dist| (WIDTH |v|))) (COND @@ -3215,13 +3215,13 @@ NIL |ans|) ((member |op| '(+ *)) (COND - ((SPADLET |ans| + ((setq |ans| (|LargeMatrixp| (CADR |u|) (SPADDIFFERENCE |width| 3) |dist|)) (|largeMatrixAlist| |ans|)) - ('T (SPADLET |n| (+ 3 (WIDTH (CADR |u|)))) - (SPADLET |dist| (SPADDIFFERENCE |dist| |n|)) - (SPADLET |ans| + ('T (setq |n| (+ 3 (WIDTH (CADR |u|)))) + (setq |dist| (SPADDIFFERENCE |dist| |n|)) + (setq |ans| (DO ((G168281 (CDDR |u|) (CDR G168281)) (|v| NIL)) ((OR (ATOM G168281) @@ -3231,13 +3231,13 @@ NIL NIL) (SEQ (EXIT (COND - ((SPADLET |ans| + ((setq |ans| (|LargeMatrixp| |v| |width| |dist|)) (RETURN (|largeMatrixAlist| |ans|))) ('T - (SPADLET |dist| + (setq |dist| (SPADDIFFERENCE |dist| (WIDTH |v|))) (COND @@ -3245,7 +3245,7 @@ NIL (RETURN NIL))))))))) |ans|))) ('T - (SPADLET |ans| + (setq |ans| (DO ((G168290 (CDR |u|) (CDR G168290)) (|v| NIL)) ((OR (ATOM G168290) @@ -3254,13 +3254,13 @@ NIL NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |ans| + ((setq |ans| (|LargeMatrixp| |v| |width| |dist|)) (RETURN (|largeMatrixAlist| |ans|))) ('T - (SPADLET |dist| + (setq |dist| (SPADDIFFERENCE |dist| (WIDTH |v|))) (COND @@ -3281,8 +3281,8 @@ NIL (COND ((AND (CONSP |u|) (PROGN - (SPADLET |op| (QCAR |u|)) - (SPADLET |r| (QCDR |u|)) + (setq |op| (QCAR |u|)) + (setq |r| (QCDR |u|)) 'T)) (COND ((AND (CONSP |op|) (EQ (QCAR |op|) 'MATRIX)) @@ -3304,7 +3304,7 @@ NIL (PROG (|name|) (DECLARE (SPECIAL |$MatrixList| |$MatrixCount|)) (RETURN - (SEQ (SPADLET |name| + (SEQ (setq |name| (DO ((G168328 |$MatrixList| (CDR G168328)) (|v| NIL)) ((OR (ATOM G168328) @@ -3314,12 +3314,12 @@ NIL ((BOOT-EQUAL |m| (CDR |v|)) (EXIT (RETURN (CAR |v|))))))))) (COND (|name| (EXIT |name|))) - (SPADLET |name| + (setq |name| (INTERNL "matrix" (STRINGIMAGE - (SPADLET |$MatrixCount| + (setq |$MatrixCount| (+ |$MatrixCount| 1))))) - (SPADLET |$MatrixList| + (setq |$MatrixList| (CONS (CONS |name| |m|) |$MatrixList|)) (EXIT |name|))))) @@ -3329,26 +3329,26 @@ NIL (PROG (|a|) (RETURN (PROGN - (SPADLET |a| (CADR G168341)) + (setq |a| (CADR G168341)) (APP |a| (+ |x| 1) |y| (|appChar| (PNAME '|'|) |x| |y| |d|)))))) ;quoteSub [.,a] == subspan a (DEFUN |quoteSub| (G168352) (PROG (|a|) - (RETURN (PROGN (SPADLET |a| (CADR G168352)) (|subspan| |a|))))) + (RETURN (PROGN (setq |a| (CADR G168352)) (|subspan| |a|))))) ;quoteSuper [.,a] == superspan a (DEFUN |quoteSuper| (G168363) (PROG (|a|) - (RETURN (PROGN (SPADLET |a| (CADR G168363)) (|superspan| |a|))))) + (RETURN (PROGN (setq |a| (CADR G168363)) (|superspan| |a|))))) ;quoteWidth [.,a] == 1 + WIDTH a (DEFUN |quoteWidth| (G168374) (PROG (|a|) - (RETURN (PROGN (SPADLET |a| (CADR G168374)) (+ 1 (WIDTH |a|)))))) + (RETURN (PROGN (setq |a| (CADR G168374)) (+ 1 (WIDTH |a|)))))) ;SubstWhileDesizing(u,m) == ; -- arg. m is always nil (historical: EU directive to increase argument lists 1991/XGII) @@ -3376,14 +3376,14 @@ NIL (RETURN (COND ((ATOM |u|) |u|) - ('T (SPADLET |op| (CAAR |u|)) (SPADLET |n| (CDAR |u|)) - (SPADLET |l| (CDR |u|)) + ('T (setq |op| (CAAR |u|)) (setq |n| (CDAR |u|)) + (setq |l| (CDR |u|)) (COND ((BOOT-EQUAL |op| 'MATRIX) - (SPADLET |l'| (|SubstWhileDesizingList| (CDR |l|) |m|)) - (SPADLET |u| (CONS |op| (CONS NIL |l'|))) + (setq |l'| (|SubstWhileDesizingList| (CDR |l|) |m|)) + (setq |u| (CONS |op| (CONS NIL |l'|))) (|PushMatrix| |u|)) - ('T (SPADLET |l'| (|SubstWhileDesizingList| |l| |m|)) + ('T (setq |l'| (|SubstWhileDesizingList| |l| |m|)) (COND ((ATOM |op|) (CONS |op| |l'|)) ('T (CONS (|SubstWhileDesizing| |op| |m|) |l'|)))))))))) @@ -3415,14 +3415,14 @@ NIL (SEQ (COND ((AND (CONSP |u|) (PROGN - (SPADLET |a| (QCAR |u|)) - (SPADLET |b| (QCDR |u|)) + (setq |a| (QCAR |u|)) + (setq |b| (QCDR |u|)) 'T)) - (SPADLET |res| + (setq |res| (COND ((ATOM |a|) (CONS |a| NIL)) ('T (CONS (|SubstWhileDesizing| |a| |m|) NIL)))) - (SPADLET |tail| |res|) + (setq |tail| |res|) (DO ((G168412 |b| (CDR G168412)) (|i| NIL)) ((OR (ATOM G168412) (PROGN (SETQ |i| (CAR G168412)) NIL)) @@ -3436,7 +3436,7 @@ NIL (CONS (|SubstWhileDesizing| |i| |m|) NIL)))) - (SPADLET |tail| (CDR |tail|)))))) + (setq |tail| (CDR |tail|)))))) |res|) ('T |u|)))))) @@ -3464,15 +3464,15 @@ NIL (PROGN (OR (AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |bot| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |bot| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |arg| (QCAR |ISTMP#2|)) + (setq |arg| (QCAR |ISTMP#2|)) 'T)))))) (THROW '|outputFailure| '|outputFailure|)) (|bigopAppAux| |bot| NIL |arg| |x| |y| |d| '|sigma|))))) @@ -3485,9 +3485,9 @@ NIL (PROG (|bot| |top| |arg|) (RETURN (PROGN - (SPADLET |bot| (CADR |u|)) - (SPADLET |top| (CADDR |u|)) - (SPADLET |arg| (CADDDR |u|)) + (setq |bot| (CADR |u|)) + (setq |top| (CADDR |u|)) + (setq |arg| (CADDDR |u|)) (|bigopAppAux| |bot| |top| |arg| |x| |y| |d| '|sigma|))))) ;bigopWidth(bot,top,arg,kind) == @@ -3498,7 +3498,7 @@ NIL (PROG (|kindWidth|) (RETURN (PROGN - (SPADLET |kindWidth| + (setq |kindWidth| (COND ((BOOT-EQUAL |kind| '|pi|) 5) ('T 3))) (+ (+ (MAX |kindWidth| (WIDTH |bot|) (COND (|top| (WIDTH |top|)) ('T 0))) @@ -3549,15 +3549,15 @@ NIL |opCode|) (RETURN (PROGN - (SPADLET |botWidth| (COND (|bot| (WIDTH |bot|)) ('T 0))) - (SPADLET |topWidth| (WIDTH |top|)) - (SPADLET |opWidth| (COND ((BOOT-EQUAL |kind| '|pi|) 5) ('T 3))) - (SPADLET |maxWidth| (MAX |opWidth| |botWidth| |topWidth|)) - (SPADLET |xCenter| + (setq |botWidth| (COND (|bot| (WIDTH |bot|)) ('T 0))) + (setq |topWidth| (WIDTH |top|)) + (setq |opWidth| (COND ((BOOT-EQUAL |kind| '|pi|) 5) ('T 3))) + (setq |maxWidth| (MAX |opWidth| |botWidth| |topWidth|)) + (setq |xCenter| (+ (QUOTIENT (SPADDIFFERENCE |maxWidth| 1) 2) |x|)) - (SPADLET |d| + (setq |d| (APP |arg| (+ (+ |x| 2) |maxWidth|) |y| |d|)) - (SPADLET |d| + (setq |d| (COND ((AND (ATOM |bot|) (EQL (SIZE (|atom2String| |bot|)) 1)) @@ -3573,7 +3573,7 @@ NIL (|superspan| |bot|)) |d|)))) (COND - (|top| (SPADLET |d| + (|top| (setq |d| (COND ((AND (ATOM |top|) (EQL (SIZE (|atom2String| |top|)) 1)) @@ -3587,8 +3587,8 @@ NIL 2)) (+ (+ |y| 2) (|subspan| |top|)) |d|)))))) - (SPADLET |delta| (COND ((BOOT-EQUAL |kind| '|pi|) 2) ('T 1))) - (SPADLET |opCode| + (setq |delta| (COND ((BOOT-EQUAL |kind| '|pi|) 2) ('T 1))) + (setq |opCode| (COND ((BOOT-EQUAL |kind| '|sigma|) (CONS (CONS '(0 . 0) ">") @@ -3641,8 +3641,8 @@ NIL (PROG (|bot| |arg|) (RETURN (PROGN - (SPADLET |bot| (CADR G168494)) - (SPADLET |arg| (CADDR G168494)) + (setq |bot| (CADR G168494)) + (setq |arg| (CADDR G168494)) (|bigopWidth| |bot| NIL |arg| '|sigma|))))) ;sigma2Width [.,bot,top,arg] == bigopWidth(bot,top,arg,'sigma) @@ -3651,9 +3651,9 @@ NIL (PROG (|bot| |top| |arg|) (RETURN (PROGN - (SPADLET |bot| (CADR G168508)) - (SPADLET |top| (CADDR G168508)) - (SPADLET |arg| (CADDDR G168508)) + (setq |bot| (CADR G168508)) + (setq |top| (CADDR G168508)) + (setq |arg| (CADDDR G168508)) (|bigopWidth| |bot| |top| |arg| '|sigma|))))) ;sigma2Sub u == @@ -3693,15 +3693,15 @@ NIL (PROGN (OR (AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |bot| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |bot| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |arg| (QCAR |ISTMP#2|)) + (setq |arg| (QCAR |ISTMP#2|)) 'T)))))) (THROW '|outputFailure| '|outputFailure|)) (|bigopAppAux| |bot| NIL |arg| |x| |y| |d| '|pi|))))) @@ -3712,8 +3712,8 @@ NIL (PROG (|bot| |arg|) (RETURN (PROGN - (SPADLET |bot| (CADR G168561)) - (SPADLET |arg| (CADDR G168561)) + (setq |bot| (CADR G168561)) + (setq |arg| (CADDR G168561)) (|bigopWidth| |bot| NIL |arg| '|pi|))))) ;pi2Width [.,bot,top,arg] == bigopWidth(bot,top,arg,'pi) @@ -3722,9 +3722,9 @@ NIL (PROG (|bot| |top| |arg|) (RETURN (PROGN - (SPADLET |bot| (CADR G168575)) - (SPADLET |top| (CADDR G168575)) - (SPADLET |arg| (CADDDR G168575)) + (setq |bot| (CADR G168575)) + (setq |top| (CADDR G168575)) + (setq |arg| (CADDDR G168575)) (|bigopWidth| |bot| |top| |arg| '|pi|))))) ;pi2Sub u == @@ -3749,9 +3749,9 @@ NIL (PROG (|bot| |top| |arg|) (RETURN (PROGN - (SPADLET |bot| (CADR |u|)) - (SPADLET |top| (CADDR |u|)) - (SPADLET |arg| (CADDDR |u|)) + (setq |bot| (CADR |u|)) + (setq |top| (CADDR |u|)) + (setq |arg| (CADDDR |u|)) (|bigopAppAux| |bot| |top| |arg| |x| |y| |d| '|pi|))))) ;overlabelSuper [.,a,b] == 1 + height a + superspan b @@ -3760,8 +3760,8 @@ NIL (PROG (|a| |b|) (RETURN (PROGN - (SPADLET |a| (CADR G168609)) - (SPADLET |b| (CADDR G168609)) + (setq |a| (CADR G168609)) + (setq |b| (CADDR G168609)) (+ (+ 1 (|height| |a|)) (|superspan| |b|)))))) ;overlabelWidth [.,a,b] == WIDTH b @@ -3770,8 +3770,8 @@ NIL (PROG (|a| |b|) (RETURN (PROGN - (SPADLET |a| (CADR G168623)) - (SPADLET |b| (CADDR G168623)) + (setq |a| (CADR G168623)) + (setq |b| (CADDR G168623)) (WIDTH |b|))))) ;overlabelApp([.,a,b], x, y, d) == @@ -3786,13 +3786,13 @@ NIL (PROG (|a| |b| |underApp| |endPoint| |middle| |h|) (RETURN (PROGN - (SPADLET |a| (CADR G168638)) - (SPADLET |b| (CADDR G168638)) - (SPADLET |underApp| (APP |b| |x| |y| |d|)) - (SPADLET |endPoint| (SPADDIFFERENCE (+ |x| (WIDTH |b|)) 1)) - (SPADLET |middle| (QUOTIENT (+ |x| |endPoint|) 2)) - (SPADLET |h| (+ (+ |y| (|superspan| |b|)) 1)) - (SPADLET |d| (APP |a| |middle| (+ |h| 1) |d|)) + (setq |a| (CADR G168638)) + (setq |b| (CADDR G168638)) + (setq |underApp| (APP |b| |x| |y| |d|)) + (setq |endPoint| (SPADDIFFERENCE (+ |x| (WIDTH |b|)) 1)) + (setq |middle| (QUOTIENT (+ |x| |endPoint|) 2)) + (setq |h| (+ (+ |y| (|superspan| |b|)) 1)) + (setq |d| (APP |a| |middle| (+ |h| 1) |d|)) (|apphor| |x| (SPADDIFFERENCE (+ |x| (WIDTH |b|)) 1) (+ (+ |y| (|superspan| |b|)) 1) |d| '|\||))))) @@ -3812,7 +3812,7 @@ NIL (PROG (|underApp|) (RETURN (PROGN - (SPADLET |underApp| (APP (ELT |u| 1) |x| |y| |d|)) + (setq |underApp| (APP (ELT |u| 1) |x| |y| |d|)) (|apphor| |x| (SPADDIFFERENCE (+ |x| (WIDTH (ELT |u| 1))) 1) (+ (+ |y| (|superspan| (ELT |u| 1))) 1) |d| UNDERBAR))))) @@ -3845,10 +3845,10 @@ NIL (PROG (|expr| |dx|) (RETURN (PROGN - (SPADLET |expr| (CADR |u|)) - (SPADLET |dx| (CADDR |u|)) - (SPADLET |d| (APP |expr| (+ |x| 4) |y| |d|)) - (SPADLET |d| + (setq |expr| (CADR |u|)) + (setq |dx| (CADDR |u|)) + (setq |d| (APP |expr| (+ |x| 4) |y| |d|)) + (setq |d| (APP |dx| (+ (+ |x| 5) (WIDTH |expr|)) |y| |d|)) (|xLate| (CONS (CONS '(0 . -1) (|specialChar| '|llc|)) (CONS (CONS '(1 . -1) (|specialChar| '|lrc|)) @@ -3900,22 +3900,22 @@ NIL (PROG (|bot| |top| |arg|) (RETURN (PROGN - (SPADLET |bot| (CADR |u|)) - (SPADLET |top| (CADDR |u|)) - (SPADLET |arg| (CADDDR |u|)) - (SPADLET |d| + (setq |bot| (CADR |u|)) + (setq |top| (CADDR |u|)) + (setq |arg| (CADDDR |u|)) + (setq |d| (APP |arg| (+ (+ |x| 4) (MAX (+ (SPADDIFFERENCE 4) (WIDTH |bot|)) (WIDTH |top|))) |y| |d|)) - (SPADLET |d| + (setq |d| (APP |bot| |x| (SPADDIFFERENCE (SPADDIFFERENCE |y| 2) (|superspan| |bot|)) |d|)) - (SPADLET |d| + (setq |d| (APP |top| (+ |x| 3) (+ (+ |y| 2) (|subspan| |top|)) |d|)) (|xLate| (CONS (CONS '(0 . -1) (|specialChar| '|llc|)) @@ -3958,13 +3958,13 @@ NIL (PROGN (SETQ G168713 (CAR G168723)) NIL) (PROGN (PROGN - (SPADLET |a| (CAAR G168713)) - (SPADLET |b| (CDAR G168713)) - (SPADLET |c| (CDR G168713)) + (setq |a| (CAAR G168713)) + (setq |b| (CDAR G168713)) + (setq |c| (CDR G168713)) G168713) NIL)) NIL) - (SEQ (EXIT (SPADLET |d| + (SEQ (EXIT (setq |d| (|appChar| |c| (+ |x| |a|) (+ |y| |b|) |d|))))) |d|))))) @@ -4000,9 +4000,9 @@ NIL (PROG (|LETTMP#1| |x| |l|) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| (|splitConcat| |u| |lineLength| 'T)) - (SPADLET |x| (CAR |LETTMP#1|)) - (SPADLET |l| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|splitConcat| |u| |lineLength| 'T)) + (setq |x| (CAR |LETTMP#1|)) + (setq |l| (CDR |LETTMP#1|)) (COND ((NULL |l|) (|sayALGEBRA| @@ -4053,17 +4053,17 @@ NIL (RETURN (SEQ (COND ((NULL LIST) NIL) - ('T (SPADLET |totalWidth| 0) - (SPADLET |oneOrZero| (COND (|$addBlankIfTrue| 1) ('T 0))) - (SPADLET |l| LIST) - (SPADLET |maxW| + ('T (setq |totalWidth| 0) + (setq |oneOrZero| (COND (|$addBlankIfTrue| 1) ('T 0))) + (setq |l| LIST) + (setq |maxW| (COND (|firstTimeIfTrue| |maxWidth|) ('T (SPADDIFFERENCE |maxWidth| 2)))) (COND ((> 1 |maxW|) (PROG (G168783) - (SPADLET G168783 NIL) + (setq G168783 NIL) (RETURN (DO ((G168788 |l| (CDR G168788)) (|x| NIL)) ((OR (ATOM G168788) @@ -4075,16 +4075,16 @@ NIL (DO ((|x| |l| (CDR |x|))) ((OR (ATOM |x|) (NULL (> |maxW| - (SPADLET |width| + (setq |width| (+ (+ |oneOrZero| (WIDTH (CAR |x|))) |totalWidth|))))) NIL) (SEQ (EXIT (PROGN - (SPADLET |l| |x|) - (SPADLET |totalWidth| |width|))))) - (SPADLET |x| (CDR |l|)) (RPLAC (CDR |l|) NIL) + (setq |l| |x|) + (setq |totalWidth| |width|))))) + (setq |x| (CDR |l|)) (RPLAC (CDR |l|) NIL) (CONS LIST (|splitConcat| |x| |maxWidth| NIL)))))))))) ;spadPrint(x,m) == @@ -4121,11 +4121,11 @@ NIL |$collectOutput| |$OutputForm|)) (RETURN (PROGN - (SPADLET |sff| '(|ScriptFormulaFormat|)) - (SPADLET |formatFn| + (setq |sff| '(|ScriptFormulaFormat|)) + (setq |formatFn| (|getFunctionFromDomain| '|coerce| |sff| (CONS |$OutputForm| NIL))) - (SPADLET |displayFn| + (setq |displayFn| (|getFunctionFromDomain| '|display| |sff| (CONS |sff| NIL))) (SPADCALL (SPADCALL |expr| |formatFn|) |displayFn|) @@ -4150,11 +4150,11 @@ NIL |$OutputForm|)) (RETURN (PROGN - (SPADLET |tf| '(|TexFormat|)) - (SPADLET |formatFn| + (setq |tf| '(|TexFormat|)) + (setq |formatFn| (|getFunctionFromDomain| '|convert| |tf| (CONS |$OutputForm| (CONS |$Integer| NIL)))) - (SPADLET |displayFn| + (setq |displayFn| (|getFunctionFromDomain| '|display| |tf| (CONS |tf| NIL))) (SPADCALL (SPADCALL |expr| |$IOindex| |formatFn|) |displayFn|) @@ -4176,11 +4176,11 @@ NIL (DECLARE (SPECIAL |$texOutputStream| |$OutputForm|)) (RETURN (PROGN - (SPADLET |tf| '(|TexFormat|)) - (SPADLET |formatFn| + (setq |tf| '(|TexFormat|)) + (setq |formatFn| (|getFunctionFromDomain| '|coerce| |tf| (CONS |$OutputForm| NIL))) - (SPADLET |displayFn| + (setq |displayFn| (|getFunctionFromDomain| '|display| |tf| (CONS |tf| NIL))) (SPADCALL (SPADCALL |expr| |formatFn|) |displayFn|) @@ -4203,12 +4203,12 @@ NIL (DECLARE (SPECIAL |$mathmlOutputStream| |$OutputForm|)) (RETURN (PROGN - (SPADLET |mml| '(|MathMLFormat|)) - (SPADLET |mmlrep| '(|String|)) - (SPADLET |formatFn| + (setq |mml| '(|MathMLFormat|)) + (setq |mmlrep| '(|String|)) + (setq |formatFn| (|getFunctionFromDomain| '|coerce| |mml| (CONS |$OutputForm| NIL))) - (SPADLET |displayFn| + (setq |displayFn| (|getFunctionFromDomain| '|display| |mml| (CONS |mmlrep| NIL))) (SPADCALL (SPADCALL |expr| |formatFn|) |displayFn|) @@ -4273,7 +4273,7 @@ NIL (RETURN (PROGN (COND - ((|isWrapped| |expr|) (SPADLET |expr| (|unwrap| |expr|)))) + ((|isWrapped| |expr|) (setq |expr| (|unwrap| |expr|)))) (COND ((|isMapExpr| |expr|) (when |$formulaFormat| (|formulaFormat| |expr|)) @@ -4292,10 +4292,10 @@ NIL (|$texFormat| (|texFormat| (|outputDomainConstructor| |expr|))) ('T NIL))) - ((SPADLET T$ + ((setq T$ (|coerceInteractive| (mkObjWrap |expr| |domain|) |$OutputForm|)) - (SPADLET |x| (|objValUnwrap| T$)) + (setq |x| (|objValUnwrap| T$)) (COND (|$formulaFormat| (|formulaFormat| |x|))) (COND (|$fortranFormat| (|dispfortexp| |x|) @@ -4309,11 +4309,11 @@ NIL (when |$mathmlFormat| (|mathmlFormat| |x|))) ((AND (FUNCTIONP (|opOf| |domain|)) (NULL (SYMBOLP (|opOf| |domain|))) - (SPADLET |printfun| + (setq |printfun| (|compiledLookup| '<< '(|TextWriter| |TextWriter| $) (|evalDomain| |domain|))) - (SPADLET |textwrit| + (setq |textwrit| (|compiledLookup| '|print| '($) (|TextWriter|)))) (|sayMSGNT| @@ -4323,9 +4323,9 @@ NIL (|sayMSGNT| '|%l|)) ((AND (CONSP |domain|) (EQ (QCAR |domain|) '|Tuple|) (PROGN - (SPADLET |ISTMP#1| (QCDR |domain|)) + (setq |ISTMP#1| (QCDR |domain|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET S (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq S (QCAR |ISTMP#1|)) 'T)))) (|output| (|asTupleAsList| |expr|) (CONS '|List| (CONS S NIL)))) ('T @@ -4367,20 +4367,20 @@ NIL (SEQ (PROGN (COND ((> |start| 1) - (SPADLET |blnks| + (setq |blnks| (|fillerSpaces| (SPADDIFFERENCE |start| 1) " "))) - ('T (SPADLET |blnks| ""))) - (SPADLET |under| "_") - (SPADLET |firsttime| (> |linelength| 3)) + ('T (setq |blnks| ""))) + (setq |under| "_") + (setq |firsttime| (> |linelength| 3)) (COND ((> |linelength| 2) - (SPADLET |linelength| (SPADDIFFERENCE |linelength| 1)))) + (setq |linelength| (SPADDIFFERENCE |linelength| 1)))) (DO () ((NULL (> (SIZE |num|) |linelength|)) NIL) (SEQ (EXIT (PROGN (COND (|$collectOutput| - (SPADLET |$outputLines| + (setq |$outputLines| (CONS (CONCAT |blnks| (SUBSTRING |num| 0 @@ -4393,21 +4393,21 @@ NIL (CONS (SUBSTRING |num| 0 |linelength|) (CONS |under| NIL)))))) - (SPADLET |num| + (setq |num| (SUBSTRING |num| |linelength| NIL)) (COND (|firsttime| - (SPADLET |blnks| + (setq |blnks| (CONCAT |blnks| " ")) - (SPADLET |linelength| + (setq |linelength| (SPADDIFFERENCE |linelength| 1)) - (SPADLET |firsttime| NIL)) + (setq |firsttime| NIL)) ('T NIL)))))) (COND (|$collectOutput| - (SPADLET |$outputLines| + (setq |$outputLines| (CONS (CONCAT |blnks| |num|) |$outputLines|))) ('T (|sayALGEBRA| (CONS |blnks| (CONS |num| NIL)))))))))) @@ -4434,15 +4434,15 @@ NIL (SEQ (PROGN (COND ((> |start| 1) - (SPADLET |blnks| + (setq |blnks| (|fillerSpaces| (SPADDIFFERENCE |start| 1) " "))) - ('T (SPADLET |blnks| ""))) + ('T (setq |blnks| ""))) (DO () ((NULL (> (SIZE |str|) |linelength|)) NIL) (SEQ (EXIT (PROGN (COND (|$collectOutput| - (SPADLET |$outputLines| + (setq |$outputLines| (CONS (CONCAT |blnks| (SUBSTRING |str| 0 @@ -4454,11 +4454,11 @@ NIL (CONS (SUBSTRING |str| 0 |linelength|) NIL))))) - (SPADLET |str| + (setq |str| (SUBSTRING |str| |linelength| NIL)))))) (COND (|$collectOutput| - (SPADLET |$outputLines| + (setq |$outputLines| (CONS (CONCAT |blnks| |str|) |$outputLines|))) ('T (|sayALGEBRA| (CONS |blnks| (CONS |str| NIL)))))))))) @@ -4475,13 +4475,13 @@ NIL (SEQ (PROGN (COND ((VECTORP (CAR |form|)) - (SPADLET |form| (|devaluate| |form|)))) + (setq |form| (|devaluate| |form|)))) (COND - ((ATOM (SPADLET |u| (|prefix2String| |form|))) |u|) + ((ATOM (setq |u| (|prefix2String| |form|))) |u|) ('T - (SPADLET |v| + (setq |v| (PROG (G168919) - (SPADLET G168919 NIL) + (setq G168919 NIL) (RETURN (DO ((G168924 |u| (CDR G168924)) (|x| NIL)) @@ -4518,22 +4518,22 @@ NIL (SEQ (COND ((AND (CONSP |form|) (PROGN - (SPADLET |op| (QCAR |form|)) - (SPADLET |argl| (QCDR |form|)) + (setq |op| (QCAR |form|)) + (setq |argl| (QCDR |form|)) 'T)) (COND ((|member| |op| '(|Union| |Record|)) (|outputDomainConstructor| |form|)) ((EQ |op| '|Mapping|) (|formatMapping| |argl|)) - ('T (SPADLET |u| (OR (|constructor?| |op|) |op|)) + ('T (setq |u| (OR (|constructor?| |op|) |op|)) (COND ((NULL |argl|) |u|) ('T - (SPADLET |ml| + (setq |ml| (|getPartialConstructorModemapSig| |op|)) - (SPADLET |argl| + (setq |argl| (PROG (G168949) - (SPADLET G168949 NIL) + (setq G168949 NIL) (RETURN (DO ((G168955 |argl| (CDR G168955)) (|x| NIL) @@ -4557,7 +4557,7 @@ NIL (|outputDomainConstructor| |x|)) ('T - (SPADLET |x'| + (setq |x'| (|coerceInteractive| (mkObjWrap |x| |m|) |$OutputForm|)) @@ -4584,18 +4584,18 @@ NIL (SEQ (COND ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |args| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |args| (QCDR |x|)) 'T) (OR (GETL |op| 'LED) (GETL |op| 'NUD))) - (SPADLET |n| + (setq |n| (COND ((GETL |op| 'NARY) 2) ('T (|#| |args|)))) - (SPADLET |newop| + (setq |newop| (INTERN (STRCONC '* (STRINGIMAGE |n|) (PNAME |op|)))) (CONS |newop| (PROG (G168985) - (SPADLET G168985 NIL) + (setq G168985 NIL) (RETURN (DO ((G168990 |args| (CDR G168990)) (|y| NIL)) ((OR (ATOM G168990) @@ -4620,21 +4620,21 @@ NIL (RETURN (SEQ (PROGN (|printBasic| (|specialChar| '|lbrk|)) - (SPADLET |initialFlag| (|isInitialMap| |u|)) + (setq |initialFlag| (|isInitialMap| |u|)) (COND ((AND (CONSP |u|) (PROGN - (SPADLET |x| (QCAR |u|)) - (SPADLET |l| (QCDR |u|)) + (setq |x| (QCAR |u|)) + (setq |l| (QCDR |u|)) 'T)) (|printMap1| |x| (AND |initialFlag| (CONSP |x|) (PROGN - (SPADLET |ISTMP#1| (QCAR |x|)) + (setq |ISTMP#1| (QCAR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |n| (QCAR |ISTMP#1|)) + (setq |n| (QCAR |ISTMP#1|)) 'T))) (EQL |n| 1))) (DO ((G169019 |l| (CDR G169019)) (|y| NIL)) @@ -4659,22 +4659,22 @@ NIL (RETURN (SEQ (AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |n| (QCAR |ISTMP#2|)) + (setq |n| (QCAR |ISTMP#2|)) 'T))) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#1|)) + (setq |ISTMP#3| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL))))) - (PROGN (SPADLET |l| (QCDR |u|)) 'T) (INTEGERP |n|) + (PROGN (setq |l| (QCDR |u|)) 'T) (INTEGERP |n|) (PROG (G169051) - (SPADLET G169051 'T) + (setq G169051 'T) (RETURN (DO ((G169062 NIL (NULL G169051)) (G169063 |l| (CDR G169063)) (|x| NIL) @@ -4686,14 +4686,14 @@ NIL (AND G169051 (AND (CONSP |x|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (EQUAL (QCAR |ISTMP#1|) |i|))) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |x|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL)))))))))))))))) @@ -4774,13 +4774,13 @@ NIL (RETURN (SEQ (COND ((OR (AND (CONSP |u|) (EQ (QCAR |u|) 'SC) - (PROGN (SPADLET |l| (QCDR |u|)) 'T)) + (PROGN (setq |l| (QCDR |u|)) 'T)) (AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'SC))) - (PROGN (SPADLET |l| (QCDR |u|)) 'T))) + (PROGN (setq |l| (QCDR |u|)) 'T))) (DO ((G169131 |l| (CDR G169131)) (|a| NIL)) ((OR (ATOM G169131) (PROGN (SETQ |a| (CAR G169131)) NIL)) @@ -4789,39 +4789,39 @@ NIL " ") ((AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'CONCATB))) (PROGN - (SPADLET |ISTMP#2| (QCDR |u|)) + (setq |ISTMP#2| (QCDR |u|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |ISTMP#3| (REVERSE |ISTMP#2|)) + (setq |ISTMP#3| (REVERSE |ISTMP#2|)) 'T) (CONSP |ISTMP#3|) (PROGN - (SPADLET |ISTMP#4| (QCAR |ISTMP#3|)) + (setq |ISTMP#4| (QCAR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |ISTMP#5| (QCAR |ISTMP#4|)) + (setq |ISTMP#5| (QCAR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCAR |ISTMP#5|) 'SC))) (PROGN - (SPADLET |l| (QCDR |ISTMP#4|)) + (setq |l| (QCDR |ISTMP#4|)) 'T))) - (PROGN (SPADLET |m| (QCDR |ISTMP#3|)) 'T) - (PROGN (SPADLET |m| (NREVERSE |m|)) 'T)))) + (PROGN (setq |m| (QCDR |ISTMP#3|)) 'T) + (PROGN (setq |m| (NREVERSE |m|)) 'T)))) (|charyTop| (CONS 'CONCATB |m|) |start| |linelength|) (|charyTop| (CONS 'SC |l|) (+ |start| 2) (SPADDIFFERENCE |linelength| 2))) ((AND (CONSP |u|) (EQ (QCAR |u|) 'CENTER) (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)))) - (SPADLET |b| (|charyTopWidth| |a|)) + (PROGN (setq |a| (QCAR |ISTMP#1|)) 'T)))) + (setq |b| (|charyTopWidth| |a|)) (COND - ((> (SPADLET |w| (WIDTH |b|)) + ((> (setq |w| (WIDTH |b|)) (SPADDIFFERENCE |linelength| |start|)) (|charyTop| |a| |start| |linelength|)) ('T @@ -4831,25 +4831,25 @@ NIL (SPADDIFFERENCE |linelength| |start|) |w|) 2) |linelength|)))) - ('T (SPADLET |v| (|charyTopWidth| |u|)) + ('T (setq |v| (|charyTopWidth| |u|)) (COND ((EQ (|keyp| |u|) 'ELSE) (|charyElse| |u| |v| |start| |linelength|)) ((> (WIDTH |v|) |linelength|) (|charyTrouble| |u| |v| |start| |linelength|)) - ('T (SPADLET |d| (APP |v| |start| 0 NIL)) - (SPADLET |n| (|superspan| |v|)) - (SPADLET |m| (SPADDIFFERENCE (|subspan| |v|))) + ('T (setq |d| (APP |v| |start| 0 NIL)) + (setq |n| (|superspan| |v|)) + (setq |m| (SPADDIFFERENCE (|subspan| |v|))) (COND (|$testOutputLineFlag| - (SPADLET |$testOutputLineList| + (setq |$testOutputLineList| (APPEND (ASSOCRIGHT (SORTBY 'CAR |d|)) |$testOutputLineList|))) ('T (DO ((G169142 NIL (> |m| |n|))) (G169142 NIL) (SEQ (EXIT (PROGN (|scylla| |n| |d|) - (SPADLET |n| (SPADDIFFERENCE |n| 1)))))) + (setq |n| (SPADDIFFERENCE |n| 1)))))) " ")))))))))) ;charyTopWidth u == @@ -4880,10 +4880,10 @@ NIL (PROG (|al|) (RETURN (COND - ((SPADLET |al| + ((setq |al| (|LargeMatrixp| |u| |linelength| (TIMES 2 |linelength|))) - (SPADLET |u| (|SubstWhileDesizing| |u| NIL)) + (setq |u| (|SubstWhileDesizing| |u| NIL)) (|maprinChk| |u|)) ('T (|charyTrouble1| |u| |v| |start| |linelength|)))))) @@ -4902,17 +4902,17 @@ NIL (SEQ (COND ((AND (CONSP |u|) (PROGN - (SPADLET |op| (QCAR |u|)) - (SPADLET |r| (QCDR |u|)) + (setq |op| (QCAR |u|)) + (setq |r| (QCDR |u|)) 'T)) (COND ((AND (CONSP |op|) (EQ (QCAR |op|) 'MATRIX) (BOOT-EQUAL |u| |m|)) |m1|) - ('T (SPADLET |op1| (|sublisMatAlist| |m| |m1| |op|)) - (SPADLET |r1| + ('T (setq |op1| (|sublisMatAlist| |m| |m1| |op|)) + (setq |r1| (PROG (G169190) - (SPADLET G169190 NIL) + (setq G169190 NIL) (RETURN (DO ((G169195 |r| (CDR G169195)) (|s| NIL)) @@ -4985,38 +4985,38 @@ NIL (|outputNumber| |start| |linelength| (|atom2String| |u|))) ((ATOM |u|) (|outputString| |start| |linelength| (|atom2String| |u|))) - ((EQ (SPADLET |x| (|keyp| |u|)) '-) + ((EQ (setq |x| (|keyp| |u|)) '-) (|charyMinus| |u| |v| |start| |linelength|)) ((member |x| '(+ * AGGLST)) (|charySplit| |u| |v| |start| |linelength|)) ((EQ |x| 'EQUATNUM) (|charyEquatnum| |u| |v| |start| |linelength|)) - ((SPADLET |d| (GETL |x| 'INFIXOP)) + ((setq |d| (GETL |x| 'INFIXOP)) (|charyBinary| |d| |u| |v| |start| |linelength|)) ((BOOT-EQUAL |x| 'OVER) (|charyBinary| (GETL '/ 'INFIXOP) |u| |v| |start| |linelength|)) ((AND (EQ 3 (LENGTH |u|)) (GETL |x| '|Led|)) - (SPADLET |d| (PNAME (CAR (GETL |x| '|Led|)))) + (setq |d| (PNAME (CAR (GETL |x| '|Led|)))) (|charyBinary| |d| |u| |v| |start| |linelength|)) ((EQ |x| 'CONCAT) (|concatTrouble| (CDR |v|) |d| |start| |linelength| NIL)) ((EQ |x| 'CONCATB) (COND ((PROGN - (SPADLET |ISTMP#1| (CDR |v|)) + (setq |ISTMP#1| (CDR |v|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |loop| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |loop| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) '|repeat|) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |body| (QCAR |ISTMP#3|)) + (setq |body| (QCAR |ISTMP#3|)) 'T))))))) (|charyTop| (CONS 'CONCATB (CONS |loop| (CONS '|repeat| NIL))) @@ -5024,36 +5024,36 @@ NIL (|charyTop| |body| (+ |start| 2) (SPADDIFFERENCE |linelength| 2))) ((AND (PROGN - (SPADLET |ISTMP#1| (CDR |v|)) + (setq |ISTMP#1| (CDR |v|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |wu| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |wu| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |loop| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |loop| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCAR |ISTMP#3|) '|repeat|) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |body| + (setq |body| (QCAR |ISTMP#4|)) 'T))))))))) (PROGN - (SPADLET |ISTMP#1| (|keyp| |wu|)) + (setq |ISTMP#1| (|keyp| |wu|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'CONCATB) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |wu'| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |wu'| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL))))))) (|member| |wu'| '(|while| |until|))) @@ -5068,20 +5068,20 @@ NIL (|charySplit| |u| |v| |start| |linelength|)) ((AND (EQ |x| 'PAREN) (OR (AND (EQ (|keyp| (ELT |u| 1)) 'AGGLST) - (SPADLET |v| '|,|)) + (setq |v| '|,|)) (AND (EQ (|keyp| (ELT |u| 1)) 'AGGSET) - (SPADLET |v| '|;|)))) + (setq |v| '|;|)))) (|bracketagglist| (CDR (ELT |u| 1)) |start| |linelength| |v| '|(| '|)|)) ((AND (EQ |x| 'PAREN) (EQ (|keyp| (ELT |u| 1)) 'CONCATB)) (|bracketagglist| (CDR (ELT |u| 1)) |start| |linelength| '| | '|(| '|)|)) ((AND (EQ |x| 'BRACKET) (EQ (|keyp| (ELT |u| 1)) 'AGGLST) - (SPADLET |v| '|,|)) + (setq |v| '|,|)) (|bracketagglist| (CDR (ELT |u| 1)) |start| |linelength| |v| (|specialChar| '|lbrk|) (|specialChar| '|rbrk|))) ((AND (EQ |x| 'BRACE) (EQ (|keyp| (ELT |u| 1)) 'AGGLST) - (SPADLET |v| '|,|)) + (setq |v| '|,|)) (|bracketagglist| (CDR (ELT |u| 1)) |start| |linelength| |v| (|specialChar| '|lbrc|) (|specialChar| '|rbrc|))) ((EQ |x| 'EXT) (|longext| |u| |start| |linelength|)) @@ -5187,22 +5187,22 @@ NIL (PROG (|dm| |ddm| |m|) (RETURN (SEQ (PROGN - (SPADLET |v| (CONS (CAR (ELT |v| 0)) (CDR |v|))) - (SPADLET |m| (CDR |v|)) + (setq |v| (CONS (CAR (ELT |v| 0)) (CDR |v|))) + (setq |m| (CDR |v|)) (COND ((> (WIDTH (ELT |v| 1)) (SPADDIFFERENCE |linelength| 2)) (|charybdis| (ELT |v| 1) (+ |start| 2) (SPADDIFFERENCE |linelength| 2)) (COND ((NULL (CDDR |v|)) " ") - ('T (SPADLET |dm| (CDDR |v|)) - (SPADLET |ddm| (CDR |dm|)) + ('T (setq |dm| (CDDR |v|)) + (setq |ddm| (CDR |dm|)) (|split2| |u| |dm| |ddm| |start| |linelength|)))) ('T (DO ((|i| 0 (QSADD1 |i|))) (NIL NIL) (SEQ (EXIT (PROGN - (SPADLET |dm| (CDR |m|)) - (SPADLET |ddm| (CDR |dm|)) + (setq |dm| (CDR |m|)) + (setq |ddm| (CDR |dm|)) (RPLACD |dm| NIL) (COND ((> (WIDTH |v|) @@ -5211,7 +5211,7 @@ NIL ('T (RPLAC (CAR |v|) (CAR (ELT |v| 0))) (RPLACD |dm| |ddm|) - (SPADLET |m| (CDR |m|)))))))) + (setq |m| (CDR |m|)))))))) (RPLAC (CAR |v|) (CAR (ELT |v| 0))) (RPLACD |m| NIL) (|charybdis| |v| (+ |start| 2) (SPADDIFFERENCE |linelength| 2)) @@ -5231,10 +5231,10 @@ NIL (PROGN (|prnd| |start| (COND - ((SPADLET |d| (GETL (|keyp| |u|) 'INFIXOP)) |d|) + ((setq |d| (GETL (|keyp| |u|) 'INFIXOP)) |d|) ('T ","))) (RPLACD |dm| |ddm|) - (SPADLET |m| + (setq |m| (> (SPADDIFFERENCE |linelength| 2) (WIDTH (CONS (|keyp| |u|) |dm|)))) (|charybdis| (CONS (|keyp| |u|) |dm|) @@ -5278,16 +5278,16 @@ NIL |$collectOutput|)) (RETURN (PROGN - (SPADLET |y| (LASSOC |n| |v|)) + (setq |y| (LASSOC |n| |v|)) (COND ((NULL |y|) NIL) ('T (COND ((STRINGP |y|) - (SPADLET |y| (string-right-trim " " (COPY |y|))))) + (setq |y| (string-right-trim " " (COPY |y|))))) (COND (|$collectOutput| - (SPADLET |$outputLines| (CONS |y| |$outputLines|))) + (setq |$outputLines| (CONS |y| |$outputLines|))) ('T (PRINTEXP |y| |$algebraOutputStream|) (TERPRI |$algebraOutputStream|))) NIL)))))) @@ -5404,9 +5404,9 @@ NIL (COND ((NULL |u|) |d|) ((NULL (CDR |u|)) (APP (CAR |u|) |x| |y| |d|)) - ('T (SPADLET |temp| (+ |x| (WIDTH (CAR |u|)))) - (SPADLET |temparg1| (APP (CAR |u|) |x| |y| |d|)) - (SPADLET |temparg2| (APP |s| |temp| |y| |temparg1|)) + ('T (setq |temp| (+ |x| (WIDTH (CAR |u|)))) + (setq |temparg1| (APP (CAR |u|) |x| |y| |d|)) + (setq |temparg2| (APP |s| |temp| |y| |temparg1|)) (|appagg1| (CDR |u|) (+ 1 |temp|) |y| |temparg2| |s|)))))) ;--Note the similarity between the definition below of appargs and above @@ -5433,9 +5433,9 @@ NIL (COND ((NULL |u|) |d|) ((NULL (CDR |u|)) (APP (CAR |u|) |x| |y| |d|)) - ('T (SPADLET |temp| (+ |x| (WIDTH (CAR |u|)))) - (SPADLET |temparg1| (APP (CAR |u|) |x| |y| |d|)) - (SPADLET |temparg2| (APP |s| |temp| |y| |temparg1|)) + ('T (setq |temp| (+ |x| (WIDTH (CAR |u|)))) + (setq |temparg1| (APP (CAR |u|) |x| |y| |d|)) + (setq |temparg2| (APP |s| |temp| |y| |temparg1|)) (|appargs| (CDR |u|) (+ 1 |temp|) |y| |temparg2|)))))) ;apprpar(x, y, y1, y2, d) == @@ -5499,13 +5499,13 @@ NIL (PROG (|w| |b| |p| |temparg1| |temparg2| |temparg3|) (RETURN (PROGN - (SPADLET |w| (WIDTH (CAAR |u|))) - (SPADLET |b| (SPADDIFFERENCE |y| (|subspan| (CDR |u|)))) - (SPADLET |p| (+ |y| (|superspan| (CDR |u|)))) - (SPADLET |temparg1| (APP (|keyp| |u|) |x| |y| |d|)) - (SPADLET |temparg2| + (setq |w| (WIDTH (CAAR |u|))) + (setq |b| (SPADDIFFERENCE |y| (|subspan| (CDR |u|)))) + (setq |p| (+ |y| (|superspan| (CDR |u|)))) + (setq |temparg1| (APP (|keyp| |u|) |x| |y| |d|)) + (setq |temparg2| (|applpar| (+ |x| |w|) |y| |b| |p| |temparg1|)) - (SPADLET |temparg3| + (setq |temparg3| (|appagg| (CDR |u|) (+ (+ |x| 1) |w|) |y| |temparg2|)) (|apprpar| @@ -5533,31 +5533,31 @@ NIL (PROG (|xptr| |yptr| |temp| |z| |n|) (RETURN (PROGN - (SPADLET |xptr| |x|) - (SPADLET |yptr| + (setq |xptr| |x|) + (setq |yptr| (SPADDIFFERENCE |y| (+ (+ (|subspan| (CADR |u|)) (|superspan| (|agg| 3 |u|))) 1))) - (SPADLET |d| (APP (CADR |u|) |x| |y| |d|)) - (SPADLET |d| (APP (|agg| 2 |u|) |xptr| |yptr| |d|)) - (SPADLET |xptr| (+ |xptr| (WIDTH (|agg| 2 |u|)))) - (SPADLET |d| (APP "=" |xptr| |yptr| |d|)) - (SPADLET |d| (APP (|agg| 3 |u|) (+ 1 |xptr|) |yptr| |d|)) - (SPADLET |yptr| + (setq |d| (APP (CADR |u|) |x| |y| |d|)) + (setq |d| (APP (|agg| 2 |u|) |xptr| |yptr| |d|)) + (setq |xptr| (+ |xptr| (WIDTH (|agg| 2 |u|)))) + (setq |d| (APP "=" |xptr| |yptr| |d|)) + (setq |d| (APP (|agg| 3 |u|) (+ 1 |xptr|) |yptr| |d|)) + (setq |yptr| (+ (+ (+ |y| 1) (|superspan| (CADR |u|))) (SUBSPAD (|agg| 4 |u|)))) - (SPADLET |d| (APP (|agg| 4 |u|) |x| |yptr| |d|)) - (SPADLET |temp| + (setq |d| (APP (|agg| 4 |u|) |x| |yptr| |d|)) + (setq |temp| (+ (+ 1 (WIDTH (|agg| 2 |u|))) (WIDTH (|agg| 3 |u|)))) - (SPADLET |n| + (setq |n| (MAX (WIDTH (CADR |u|)) (WIDTH (|agg| 4 |u|)) |temp|)) (COND - ((AND (EQCAR (CAR (SPADLET |z| (|agg| 5 |u|))) 'EXT) + ((AND (EQCAR (CAR (setq |z| (|agg| 5 |u|))) 'EXT) (OR (EQ |n| 3) (AND (> |n| 3) (NULL (ATOM |z|))))) - (SPADLET |n| (+ 1 |n|)))) - (SPADLET |d| (APP |z| (+ |x| |n|) |y| |d|)))))) + (setq |n| (+ 1 |n|)))) + (setq |d| (APP |z| (+ |x| |n|) |y| |d|)))))) ;apphor(x1,x2,y,d,char) == ; temp := (x1 = x2 => d; apphor(x1, x2 - 1, y, d,char)) @@ -5567,7 +5567,7 @@ NIL (PROG (|temp|) (RETURN (PROGN - (SPADLET |temp| + (setq |temp| (COND ((BOOT-EQUAL |x1| |x2|) |d|) ('T @@ -5609,28 +5609,28 @@ NIL (RETURN (COND ((NULL |u|) |d|) - ('T (SPADLET |ac| (|absym| (CAR |u|))) - (SPADLET |sc| + ('T (setq |ac| (|absym| (CAR |u|))) + (setq |sc| (COND ((|syminusp| (CAR |u|)) "-") ('T "+"))) - (SPADLET |dp| (|member| (|keyp| (|absym| (CAR |u|))) '(+ -))) - (SPADLET |tempx| + (setq |dp| (|member| (|keyp| (|absym| (CAR |u|))) '(+ -))) + (setq |tempx| (+ (+ |x| (WIDTH |ac|)) (COND (|dp| 5) ('T 3)))) - (SPADLET |tempdblock| + (setq |tempdblock| (PROGN - (SPADLET |temparg1| + (setq |temparg1| (APP |sc| (+ |x| 1) |y| |d|)) (COND - (|dp| (SPADLET |bot| + (|dp| (setq |bot| (SPADDIFFERENCE |y| (|subspan| |ac|))) - (SPADLET |top| + (setq |top| (+ |y| (|superspan| |ac|))) - (SPADLET |temparg2| + (setq |temparg2| (|applpar| (+ |x| 3) |y| |bot| |top| |temparg1|)) - (SPADLET |temparg3| + (setq |temparg3| (APP |ac| (+ |x| 4) |y| |temparg2|)) (|apprpar| (+ (+ |x| 4) (WIDTH |ac|)) @@ -5655,10 +5655,10 @@ NIL (PROG (|bot| |top| |temparg1| |temparg2|) (RETURN (PROGN - (SPADLET |bot| (SPADDIFFERENCE |y| (|subspan| |u|))) - (SPADLET |top| (+ |y| (|superspan| |u|))) - (SPADLET |temparg1| (|applpar| |x| |y| |bot| |top| |d|)) - (SPADLET |temparg2| (APP |u| (+ |x| 1) |y| |temparg1|)) + (setq |bot| (SPADDIFFERENCE |y| (|subspan| |u|))) + (setq |top| (+ |y| (|superspan| |u|))) + (setq |temparg1| (|applpar| |x| |y| |bot| |top| |d|)) + (setq |temparg2| (APP |u| (+ |x| 1) |y| |temparg1|)) (|apprpar| (+ (+ |x| 1) (WIDTH |u|)) |y| |bot| |top| |temparg2|))))) @@ -5684,9 +5684,9 @@ NIL (PROG (|w| |temparg1| |temparg2|) (RETURN (PROGN - (SPADLET |w| (WIDTH (CAR |u|))) - (SPADLET |temparg1| (APP (CADR |u|) |x| |y| |d|)) - (SPADLET |temparg2| + (setq |w| (WIDTH (CAR |u|))) + (setq |temparg1| (APP (CADR |u|) |x| |y| |d|)) + (setq |temparg2| (APP ":" (+ |x| |w|) |y| |temparg1|)) (APP (CADR (CDR |u|)) (+ (+ |x| 2) |w|) |y| |temparg2|))))) @@ -5700,11 +5700,11 @@ NIL (PROG (|temparg1| |temparg2| |temparg3|) (RETURN (PROGN - (SPADLET |temparg1| (+ |x| (WIDTH (CADR |u|)))) - (SPADLET |temparg2| + (setq |temparg1| (+ |x| (WIDTH (CADR |u|)))) + (setq |temparg2| (SPADDIFFERENCE (SPADDIFFERENCE |y| 1) (|superspan| (CDDR |u|)))) - (SPADLET |temparg3| (APP (CADR |u|) |x| |y| |d|)) + (setq |temparg3| (APP (CADR |u|) |x| |y| |d|)) (|appagg| (CDDR |u|) |temparg1| |temparg2| |temparg3|))))) ;starstarcond(l, iforwhen) == @@ -5726,7 +5726,7 @@ NIL (RETURN (COND ((NULL |l|) |l|) - ((EQ (SPADLET |a| (CAAR |l|)) 1) + ((EQ (setq |a| (CAAR |l|)) 1) (LIST 'CONCAT (CADR (CAR |l|)) " OTHERWISE")) ((EQCAR |a| 'COMPARG) (|starstarcond| (CONS (|transcomparg| (CADR |a|)) (CDR |l|)) @@ -5780,17 +5780,17 @@ NIL (PROG (|z| |n|) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (MAX (WIDTH (CADR |u|)) (WIDTH (|agg| 4 |u|)) (+ (+ 1 (WIDTH (|agg| 2 |u|))) (WIDTH (|agg| 3 |u|))))) (SEQ (OR NIL (COND - ((AND (EQCAR (CAR (SPADLET |z| (|agg| 5 |u|))) + ((AND (EQCAR (CAR (setq |z| (|agg| 5 |u|))) 'EXT) (OR (EQ |n| 3) (AND (> |n| 3) (NULL (ATOM |z|))))) - (EXIT (SPADLET |n| (+ 1 |n|)))))) + (EXIT (setq |n| (+ 1 |n|)))))) (+ |n| (WIDTH (|agg| 5 |u|))))))))) ;appfrac(u, x, y, d) == @@ -5811,20 +5811,20 @@ NIL (PROG (|w| |tempx| |tempy| |temparg3| |temparg4|) (RETURN (PROGN - (SPADLET |w| (WIDTH |u|)) - (SPADLET |tempx| + (setq |w| (WIDTH |u|)) + (setq |tempx| (+ |x| (QUOTIENT (SPADDIFFERENCE (+ 1 |w|) (WIDTH (CADR (CDR |u|)))) 2))) - (SPADLET |tempy| + (setq |tempy| (SPADDIFFERENCE (SPADDIFFERENCE |y| (|superspan| (CADR (CDR |u|)))) 1)) - (SPADLET |temparg3| (APP (CADR (CDR |u|)) |tempx| |tempy| |d|)) - (SPADLET |temparg4| + (setq |temparg3| (APP (CADR (CDR |u|)) |tempx| |tempy| |d|)) + (setq |temparg4| (|apphor| |x| (SPADDIFFERENCE (+ |x| |w|) 1) |y| |temparg3| (|specialChar| '|hbar|))) (APP (CADR |u|) @@ -5855,24 +5855,24 @@ NIL (PROG (|num| |den| |numw| |ISTMP#1| |op| |denw|) (RETURN (PROGN - (SPADLET |numw| (WIDTH (SPADLET |num| (CADR |u|)))) - (SPADLET |denw| (WIDTH (SPADLET |den| (CADDR |u|)))) + (setq |numw| (WIDTH (setq |num| (CADR |u|)))) + (setq |denw| (WIDTH (setq |den| (CADDR |u|)))) (COND ((AND (CONSP |num|) (PROGN - (SPADLET |ISTMP#1| (QCAR |num|)) + (setq |ISTMP#1| (QCAR |num|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |op| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |op| (QCAR |ISTMP#1|)) 'T))) (BOOT-EQUAL |op| 'OVER)) - (SPADLET |numw| (+ |numw| 2)))) + (setq |numw| (+ |numw| 2)))) (COND ((AND (CONSP |den|) (PROGN - (SPADLET |ISTMP#1| (QCAR |den|)) + (setq |ISTMP#1| (QCAR |den|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |op| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |op| (QCAR |ISTMP#1|)) 'T))) (BOOT-EQUAL |op| 'OVER)) - (SPADLET |denw| (+ |denw| 2)))) + (setq |denw| (+ |denw| 2)))) (MAX |numw| |denw|))))) ;slashSub u == @@ -5901,8 +5901,8 @@ NIL (PROG (|temparg1| |temparg2|) (RETURN (PROGN - (SPADLET |temparg1| (APP (CADR |u|) |x| |y| |d|)) - (SPADLET |temparg2| + (setq |temparg1| (APP (CADR |u|) |x| |y| |d|)) + (setq |temparg2| (APP "/" (+ |x| (WIDTH (CADR |u|))) |y| |temparg1|)) (APP (CADR (CDR |u|)) (+ (+ |x| 1) (WIDTH (CADR |u|))) @@ -5932,9 +5932,9 @@ NIL (DECLARE (SPECIAL |$algebraOutputStream| |$collectOutput|)) (RETURN (PROGN - (SPADLET |x| (REVERSE |u|)) - (SPADLET |y| (CAR |x|)) - (SPADLET |u| + (setq |x| (REVERSE |u|)) + (setq |y| (CAR |x|)) + (setq |u| (|remWidth| (REVERSEWOC (CONS " " (CDR |x|))))) (|charybdis| |u| |i| |n|) @@ -5954,7 +5954,7 @@ NIL (COND ((> |yl| |yu|) |d|) ('T - (SPADLET |temparg| + (setq |temparg| (|appvertline| |char| |x| |yl| (SPADDIFFERENCE |yu| 1) |d|)) (APP |char| |x| |yu| |temparg|)))))) @@ -5970,7 +5970,7 @@ NIL (COND ((> |xl| |xu|) |d|) ('T - (SPADLET |temparg| + (setq |temparg| (|appHorizLine| |xl| (SPADDIFFERENCE |xu| 1) |y| |d|)) (APP MATBORCH |xu| |y| |temparg|)))))) @@ -5995,37 +5995,37 @@ NIL (PROG (|widB| |supB| |subB| |subR| |widR|) (RETURN (PROGN - (SPADLET |widB| (WIDTH (ELT |u| 1))) - (SPADLET |supB| (|superspan| (ELT |u| 1))) - (SPADLET |subB| (|subspan| (ELT |u| 1))) + (setq |widB| (WIDTH (ELT |u| 1))) + (setq |supB| (|superspan| (ELT |u| 1))) + (setq |subB| (|subspan| (ELT |u| 1))) (COND - ((> (|#| |u|) 2) (SPADLET |widR| (WIDTH (ELT |u| 2))) - (SPADLET |subR| (|subspan| (ELT |u| 2))) - (SPADLET |d| + ((> (|#| |u|) 2) (setq |widR| (WIDTH (ELT |u| 2))) + (setq |subR| (|subspan| (ELT |u| 2))) + (setq |d| (APP (ELT |u| 2) |x| (+ (+ (SPADDIFFERENCE |y| |subB|) 1) |subR|) |d|))) - ('T (SPADLET |widR| 1))) - (SPADLET |d| + ('T (setq |widR| 1))) + (setq |d| (APP (ELT |u| 1) (+ (+ |x| |widR|) 1) |y| |d|)) - (SPADLET |d| + (setq |d| (|apphor| (+ (+ |x| |widR|) 1) (+ (+ |x| |widR|) |widB|) (+ (+ |y| |supB|) 1) |d| (|specialChar| '|hbar|))) - (SPADLET |d| + (setq |d| (|appvertline| (|specialChar| '|vbar|) (+ |x| |widR|) (SPADDIFFERENCE |y| |subB|) (+ |y| |supB|) |d|)) - (SPADLET |d| + (setq |d| (APP (|specialChar| '|ulc|) (+ |x| |widR|) (+ (+ |y| |supB|) 1) |d|)) - (SPADLET |d| + (setq |d| (APP (|specialChar| '|urc|) (+ (+ (+ |x| |widR|) |widB|) 1) (+ (+ |y| |supB|) 1) |d|)) - (SPADLET |d| + (setq |d| (APP (|specialChar| '|bslash|) (SPADDIFFERENCE (+ |x| |widR|) 1) (SPADDIFFERENCE |y| |subB|) |d|)))))) @@ -6050,36 +6050,36 @@ NIL (RETURN (COND ((CDDR |u|) (|boxLApp| |u| |x| |y| |d|)) - ('T (SPADLET |a| (+ 1 (|superspan| (ELT |u| 1)))) - (SPADLET |b| (+ 1 (|subspan| (ELT |u| 1)))) - (SPADLET |w| (+ 2 (WIDTH (ELT |u| 1)))) - (SPADLET |d| + ('T (setq |a| (+ 1 (|superspan| (ELT |u| 1)))) + (setq |b| (+ 1 (|subspan| (ELT |u| 1)))) + (setq |w| (+ 2 (WIDTH (ELT |u| 1)))) + (setq |d| (|appvertline| (|specialChar| '|vbar|) |x| (+ (SPADDIFFERENCE |y| |b|) 1) (SPADDIFFERENCE (+ |y| |a|) 1) |d|)) - (SPADLET |d| + (setq |d| (|appvertline| (|specialChar| '|vbar|) (+ (+ |x| |w|) 1) (SPADDIFFERENCE |y| |b|) (+ |y| |a|) |d|)) - (SPADLET |d| + (setq |d| (|apphor| (+ |x| 1) (+ |x| |w|) (SPADDIFFERENCE |y| |b|) |d| (|specialChar| '|hbar|))) - (SPADLET |d| + (setq |d| (|apphor| (+ |x| 1) (+ |x| |w|) (+ |y| |a|) |d| (|specialChar| '|hbar|))) - (SPADLET |d| + (setq |d| (APP (|specialChar| '|ulc|) |x| (+ |y| |a|) |d|)) - (SPADLET |d| + (setq |d| (APP (|specialChar| '|urc|) (+ (+ |x| |w|) 1) (+ |y| |a|) |d|)) - (SPADLET |d| + (setq |d| (APP (|specialChar| '|llc|) |x| (SPADDIFFERENCE |y| |b|) |d|)) - (SPADLET |d| + (setq |d| (APP (|specialChar| '|lrc|) (+ (+ |x| |w|) 1) (SPADDIFFERENCE |y| |b|) |d|)) - (SPADLET |d| (APP (ELT |u| 1) (+ 2 |x|) |y| |d|))))))) + (setq |d| (APP (ELT |u| 1) (+ 2 |x|) |y| |d|))))))) ;boxLApp(u, x, y, d) == ; la := superspan u.2 @@ -6105,35 +6105,35 @@ NIL (PROG (|la| |lb| |lw| |lh| |a| |b| |w| |top|) (RETURN (PROGN - (SPADLET |la| (|superspan| (ELT |u| 2))) - (SPADLET |lb| (|subspan| (ELT |u| 2))) - (SPADLET |lw| (+ 2 (WIDTH (ELT |u| 2)))) - (SPADLET |lh| (+ (+ 2 |la|) |lb|)) - (SPADLET |a| (+ (|superspan| (ELT |u| 1)) 1)) - (SPADLET |b| (+ (|subspan| (ELT |u| 1)) 1)) - (SPADLET |w| (MAX |lw| (+ 2 (WIDTH (ELT |u| 1))))) - (SPADLET |top| (+ (+ |y| |a|) |lh|)) - (SPADLET |d| + (setq |la| (|superspan| (ELT |u| 2))) + (setq |lb| (|subspan| (ELT |u| 2))) + (setq |lw| (+ 2 (WIDTH (ELT |u| 2)))) + (setq |lh| (+ (+ 2 |la|) |lb|)) + (setq |a| (+ (|superspan| (ELT |u| 1)) 1)) + (setq |b| (+ (|subspan| (ELT |u| 1)) 1)) + (setq |w| (MAX |lw| (+ 2 (WIDTH (ELT |u| 1))))) + (setq |top| (+ (+ |y| |a|) |lh|)) + (setq |d| (|appvertline| MATBORCH |x| (SPADDIFFERENCE |y| |b|) |top| |d|)) - (SPADLET |d| + (setq |d| (|appHorizLine| (+ |x| 1) (+ |x| |w|) |top| |d|)) - (SPADLET |d| + (setq |d| (APP (ELT |u| 2) (+ 2 |x|) (+ (+ (+ |y| |a|) |lb|) 1) |d|)) - (SPADLET |d| + (setq |d| (|appHorizLine| (+ |x| 1) (+ |x| |lw|) (+ |y| |a|) |d|)) (COND ((OR NIL (> |w| |lw|)) - (SPADLET |d| + (setq |d| (|appvertline| MATBORCH (+ (+ |x| |lw|) 1) (+ |y| |a|) (SPADDIFFERENCE |top| 1) |d|))) - ('T (SPADLET |d| (APP (ELT |u| 1) (+ 2 |x|) |y| |d|)) - (SPADLET |d| + ('T (setq |d| (APP (ELT |u| 1) (+ 2 |x|) |y| |d|)) + (setq |d| (|appHorizLine| (+ |x| 1) (+ |x| |w|) (SPADDIFFERENCE |y| |b|) |top| |d|)) - (SPADLET |d| + (setq |d| (|appvertline| MATBORCH (+ (+ |x| |w|) 1) (SPADDIFFERENCE |y| |b|) |top| |d|)))))))) @@ -6156,7 +6156,7 @@ NIL (COND ((NULL (CDR |x|)) 0) ('T - (SPADLET |hl| + (setq |hl| (COND ((NULL (CDDR |x|)) 0) ('T @@ -6177,7 +6177,7 @@ NIL (COND ((NULL (CDR |x|)) 0) ('T - (SPADLET |wl| + (setq |wl| (COND ((NULL (CDDR |x|)) 0) ('T (WIDTH (ELT |x| 2))))) @@ -6231,40 +6231,40 @@ NIL (PROG (|w| |denx| |deny| |numx| |numy| |a| |b|) (RETURN (PROGN - (SPADLET |w| (WIDTH |u|)) - (SPADLET |denx| + (setq |w| (WIDTH |u|)) + (setq |denx| (+ |x| (QUOTIENT (SPADDIFFERENCE |w| (WIDTH (CADR (CDR |u|)))) 2))) - (SPADLET |deny| + (setq |deny| (SPADDIFFERENCE (SPADDIFFERENCE |y| (|superspan| (CADR (CDR |u|)))) 1)) - (SPADLET |d| (APP (CADR (CDR |u|)) |denx| |deny| |d|)) - (SPADLET |numx| + (setq |d| (APP (CADR (CDR |u|)) |denx| |deny| |d|)) + (setq |numx| (+ |x| (QUOTIENT (SPADDIFFERENCE |w| (WIDTH (CADR |u|))) 2))) - (SPADLET |numy| (+ (+ |y| 1) (|subspan| (CADR |u|)))) - (SPADLET |d| (APP (CADR |u|) |numx| |numy| |d|)) - (SPADLET |a| (+ 1 (|zagSuper| |u|))) - (SPADLET |b| (+ 1 (|zagSub| |u|))) - (SPADLET |d| + (setq |numy| (+ (+ |y| 1) (|subspan| (CADR |u|)))) + (setq |d| (APP (CADR |u|) |numx| |numy| |d|)) + (setq |a| (+ 1 (|zagSuper| |u|))) + (setq |b| (+ 1 (|zagSub| |u|))) + (setq |d| (|appvertline| (|specialChar| '|vbar|) |x| (SPADDIFFERENCE |y| |b|) (SPADDIFFERENCE |y| 1) |d|)) - (SPADLET |d| + (setq |d| (|appvertline| (|specialChar| '|vbar|) (SPADDIFFERENCE (+ |x| |w|) 1) (+ |y| 1) (+ |y| |a|) |d|)) - (SPADLET |d| + (setq |d| (|apphor| |x| (SPADDIFFERENCE (+ |x| |w|) 2) |y| |d| (|specialChar| '|hbar|))) - (SPADLET |d| (APP (|specialChar| '|ulc|) |x| |y| |d|)) - (SPADLET |d| + (setq |d| (APP (|specialChar| '|ulc|) |x| |y| |d|)) + (setq |d| (APP (|specialChar| '|lrc|) (SPADDIFFERENCE (+ |x| |w|) 1) |y| |d|)))))) @@ -6316,10 +6316,10 @@ NIL (PROG (|normal| |radOver|) (RETURN (PROGN - (SPADLET |normal| (+ 1 (|superspan| (ELT |x| 1)))) + (setq |normal| (+ 1 (|superspan| (ELT |x| 1)))) (COND ((<= (|#| |x|) 2) |normal|) - ((MINUSP (SPADLET |radOver| + ((MINUSP (setq |radOver| (SPADDIFFERENCE (|height| (ELT |x| 2)) (|height| (ELT |x| 1))))) |normal|) @@ -6370,18 +6370,18 @@ NIL |w|) (RETURN (SEQ (PROGN - (SPADLET |rows| (CDDR |u|)) - (SPADLET |p| (|matSuper| |u|)) - (SPADLET |q| (|matSub| |u|)) - (SPADLET |d| + (setq |rows| (CDDR |u|)) + (setq |p| (|matSuper| |u|)) + (setq |q| (|matSub| |u|)) + (setq |d| (|matrixBorder| |x| (SPADDIFFERENCE |y| |q|) (+ |y| |p|) |d| '|left|)) - (SPADLET |x| (+ 1 |x|)) - (SPADLET |yc| (+ (+ 1 |y|) |p|)) - (SPADLET |w| (CADR |u|)) - (SPADLET |wl| (CDAR |w|)) - (SPADLET |subl| (CDR (CADR |w|))) - (SPADLET |superl| (CDR (CADR (CDR |w|)))) + (setq |x| (+ 1 |x|)) + (setq |yc| (+ (+ 1 |y|) |p|)) + (setq |w| (CADR |u|)) + (setq |wl| (CDAR |w|)) + (setq |subl| (CDR (CADR |w|))) + (setq |superl| (CDR (CADR (CDR |w|)))) (DO () (NIL NIL) (SEQ (EXIT (COND ((NULL |rows|) @@ -6391,20 +6391,20 @@ NIL (+ |x| (WIDTH |u|)) 2) (SPADDIFFERENCE |y| |q|) (+ |y| |p|) |d| '|right|))) - ('T (SPADLET |xc| |x|) - (SPADLET |yc| + ('T (setq |xc| |x|) + (setq |yc| (SPADDIFFERENCE (SPADDIFFERENCE |yc| 1) (CAR |superl|))) - (SPADLET |w| |wl|) - (SPADLET |row| (CDAR |rows|)) + (setq |w| |wl|) + (setq |row| (CDAR |rows|)) (DO () (NIL NIL) (SEQ (EXIT (PROGN (COND ((BOOT-EQUAL |flag| "ON") - (SPADLET |flag| + (setq |flag| "OFF") (RETURN NIL))) (COND @@ -6413,24 +6413,24 @@ NIL (SEQ (EXIT (PROGN - (SPADLET |yc| + (setq |yc| (SPADDIFFERENCE (SPADDIFFERENCE |yc| 1) (CAR |subl|))) - (SPADLET |subl| + (setq |subl| (CDR |subl|)) - (SPADLET |superl| + (setq |superl| (CDR |superl|)) - (SPADLET |rows| + (setq |rows| (CDR |rows|)) (RETURN (PROGN - (SPADLET |flag| + (setq |flag| "ON") NIL))))))) ('T - (SPADLET |d| + (setq |d| (APP (CAR |row|) (+ |xc| (QUOTIENT @@ -6438,11 +6438,11 @@ NIL (WIDTH (CAR |row|))) 2)) |yc| |d|)) - (SPADLET |xc| + (setq |xc| (+ (+ |xc| 2) (CAR |w|))) - (SPADLET |row| (CDR |row|)) - (SPADLET |w| (CDR |w|)))))))))))))))))) + (setq |row| (CDR |row|)) + (setq |w| (CDR |w|)))))))))))))))))) ;matSuper(x) == ; (x := x.1) => -1 + QUOTIENT(first x.1 + first x.2, 2) @@ -6450,7 +6450,7 @@ NIL (DEFUN |matSuper| (|x|) (COND - ((SPADLET |x| (ELT |x| 1)) + ((setq |x| (ELT |x| 1)) (+ (SPADDIFFERENCE 1) (QUOTIENT (+ (CAR (ELT |x| 1)) (CAR (ELT |x| 2))) 2))) ('T (ERROR 'MAT)))) @@ -6461,7 +6461,7 @@ NIL (DEFUN |matSub| (|x|) (COND - ((SPADLET |x| (ELT |x| 1)) + ((setq |x| (ELT |x| 1)) (QUOTIENT (+ (+ (SPADDIFFERENCE 1) (CAR (ELT |x| 1))) (CAR (ELT |x| 2))) @@ -6482,12 +6482,12 @@ NIL (PROG (|y| |numOfColumns| |widthList| |subspanList| |superspanList|) (RETURN (PROGN - (SPADLET |y| (CDDR |x|)) - (SPADLET |numOfColumns| (LENGTH (CDAR |y|))) - (SPADLET |widthList| + (setq |y| (CDDR |x|)) + (setq |numOfColumns| (LENGTH (CDAR |y|))) + (setq |widthList| (|matLSum2| (|matWList| |y| (NLIST |numOfColumns| 0)))) - (SPADLET |subspanList| (|matLSum| (|matSubList| |y|))) - (SPADLET |superspanList| (|matLSum| (|matSuperList| |y|))) + (setq |subspanList| (|matLSum| (|matSubList| |y|))) + (setq |superspanList| (|matLSum| (|matSuperList| |y|))) (RPLAC (ELT |x| 1) (CONS |widthList| (CONS |subspanList| (CONS |superspanList| NIL)))) @@ -6603,10 +6603,10 @@ NIL (declare (special |$algebraOutputStream| |$collectOutput|)) (RETURN (SEQ (PROGN - (SPADLET |u| + (setq |u| (CONS (LIST 'CONCAT |open| (CAR |u|)) (PROG (G169906) - (SPADLET G169906 NIL) + (setq G169906 NIL) (RETURN (DO ((G169911 (CDR |u|) (CDR G169911)) @@ -6624,14 +6624,14 @@ NIL G169906))))))))) (DO () (NIL NIL) (SEQ (EXIT (PROGN - (SPADLET |s| 0) + (setq |s| 0) (DO ((|x| |u| (CDR |x|))) ((ATOM |x|) NIL) (SEQ (EXIT (PROGN - (SPADLET |lastx| |x|) + (setq |lastx| |x|) (COND ((>= - (SPADLET |s| + (setq |s| (+ (+ |s| (WIDTH (CAR |x|))) @@ -6640,16 +6640,16 @@ NIL (RETURN |s|)) ((NULL (CDR |x|)) (RETURN - (SPADLET |s| + (setq |s| (SPADDIFFERENCE 1))))))))) (OR NIL (COND ((EQ |s| (SPADDIFFERENCE 1)) - (SPADLET |nextu| NIL)) + (setq |nextu| NIL)) ((EQ |lastx| |u|) - (SPADLET |nextu| (CDR |u|)) + (setq |nextu| (CDR |u|)) (RPLACD |u| NIL)) - ('T (SPADLET |nextu| |lastx|) + ('T (setq |nextu| |lastx|) (RPLACD (PREDECESSOR |lastx| |u|) NIL)))) (DO ((|x| |u| (CDR |x|))) ((ATOM |x|) NIL) @@ -6659,7 +6659,7 @@ NIL (COND ((NULL |nextu|) (RPLACA (CDDR (|last| |u|)) |close|))) - (SPADLET |x| + (setq |x| (ASSOCIATER 'CONCAT (CONS |ichr| |u|))) (|charybdis| (ASSOCIATER 'CONCAT |u|) @@ -6667,8 +6667,8 @@ NIL (COND (|$collectOutput| (TERPRI |$algebraOutputStream|))) - (SPADLET |ichr| " ") - (SPADLET |u| |nextu|) + (setq |ichr| " ") + (setq |u| |nextu|) (COND ((NULL |u|) (RETURN NIL)))))))))))) ;prnd(start, op) == @@ -6690,22 +6690,22 @@ NIL (RETURN (COND (|$testOutputLineFlag| - (SPADLET |string| + (setq |string| (STRCONC (|fillerSpaces| (MAX 0 (SPADDIFFERENCE |start| 1))) |op|)) - (SPADLET |$testOutputLineList| + (setq |$testOutputLineList| (CONS |string| |$testOutputLineList|))) ('T (PRINTEXP (|fillerSpaces| (MAX 0 (SPADDIFFERENCE |start| 1))) |$algebraOutputStream|) (COND (|$collectOutput| - (SPADLET |string| + (setq |string| (STRCONC (|fillerSpaces| (MAX 0 (SPADDIFFERENCE |start| 1))) |op|)) - (SPADLET |$outputLines| (CONS |string| |$outputLines|))) + (setq |$outputLines| (CONS |string| |$outputLines|))) ('T (PRINTEXP |op| |$algebraOutputStream|) (TERPRI |$algebraOutputStream|)))))))) @@ -6758,7 +6758,7 @@ NIL (PROG () (RETURN (SEQ (PROG (G169996) - (SPADLET G169996 0) + (setq G169996 0) (RETURN (DO ((G170001 |u| (CDR G170001)) (|x| NIL)) ((OR (ATOM G170001) @@ -6809,34 +6809,34 @@ NIL (PROG (|a| |b| |c| |d| |e| |wd| |we| |aox| |ar| |ab| |aw|) (RETURN (PROGN - (SPADLET |a| (CAR (SPADLET |u| (CDR |u|)))) - (SPADLET |b| (CAR (SPADLET |u| (CDR |u|)))) - (SPADLET |c| - (OR (CAR (SPADLET |u| (KDR |u|))) '((NOTHING . 0)))) - (SPADLET |d| - (OR (KAR (SPADLET |u| (KDR |u|))) '((NOTHING . 0)))) - (SPADLET |e| (OR (KADR |u|) '((NOTHING . 0)))) - (SPADLET |aox| - (MAX (SPADLET |wd| (WIDTH |d|)) - (SPADLET |we| (WIDTH |e|)))) - (SPADLET |ar| (|superspan| |a|)) - (SPADLET |ab| (|subspan| |a|)) - (SPADLET |aw| (WIDTH |a|)) - (SPADLET |di| + (setq |a| (CAR (setq |u| (CDR |u|)))) + (setq |b| (CAR (setq |u| (CDR |u|)))) + (setq |c| + (OR (CAR (setq |u| (KDR |u|))) '((NOTHING . 0)))) + (setq |d| + (OR (KAR (setq |u| (KDR |u|))) '((NOTHING . 0)))) + (setq |e| (OR (KADR |u|) '((NOTHING . 0)))) + (setq |aox| + (MAX (setq |wd| (WIDTH |d|)) + (setq |we| (WIDTH |e|)))) + (setq |ar| (|superspan| |a|)) + (setq |ab| (|subspan| |a|)) + (setq |aw| (WIDTH |a|)) + (setq |di| (APP |d| (+ |x| (SPADDIFFERENCE |aox| |wd|)) (+ (+ (+ 1 |ar|) |y|) (|subspan| |d|)) |di|)) - (SPADLET |di| (APP |a| (+ |x| |aox|) |y| |di|)) - (SPADLET |di| + (setq |di| (APP |a| (+ |x| |aox|) |y| |di|)) + (setq |di| (APP |c| (+ (+ |aox| |aw|) |x|) (+ (+ (+ 1 |y|) |ar|) (|subspan| |c|)) |di|)) - (SPADLET |di| + (setq |di| (APP |e| (+ |x| (SPADDIFFERENCE |aox| |we|)) (SPADDIFFERENCE (SPADDIFFERENCE |y| 1) (MAX (|superspan| |e|) |ab|)) |di|)) - (SPADLET |di| + (setq |di| (APP |b| (+ (+ |aox| |aw|) |x|) (SPADDIFFERENCE (SPADDIFFERENCE |y| 1) (MAX |ab| (|superspan| |b|))) @@ -6854,7 +6854,7 @@ NIL (RETURN (COND ((STRINGP |x|) |x|) - ((EQ '|\|| (char (SPADLET |s| (STRINGIMAGE |x|)) 0)) + ((EQ '|\|| (char (setq |s| (STRINGIMAGE |x|)) 0)) (RPLACSTR |s| 0 1 '|| NIL NIL)) ('T |s|))))) @@ -6868,9 +6868,9 @@ NIL (PROG (|a| |b| |e|) (RETURN (PROGN - (SPADLET |a| (CAR (SPADLET |u| (CDR |u|)))) - (SPADLET |b| (KAR (SPADLET |u| (KDR |u|)))) - (SPADLET |e| (KAR (KDR (KDR (KDR |u|))))) + (setq |a| (CAR (setq |u| (CDR |u|)))) + (setq |b| (KAR (setq |u| (KDR |u|)))) + (setq |e| (KAR (KDR (KDR (KDR |u|))))) (RETURN (+ (|subspan| |a|) (MAX (|height| |b|) (|height| |e|)))))))) @@ -6902,39 +6902,39 @@ NIL |hden| |w|) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| (CDR |u|)) - (SPADLET |num| (CAR |LETTMP#1|)) - (SPADLET |den| (CADR |LETTMP#1|)) - (SPADLET |ysub| + (setq |LETTMP#1| (CDR |u|)) + (setq |num| (CAR |LETTMP#1|)) + (setq |den| (CADR |LETTMP#1|)) + (setq |ysub| (SPADDIFFERENCE (SPADDIFFERENCE |y| 1) (|superspan| |den|))) - (SPADLET |ysup| (+ (+ |y| 1) (|subspan| |num|))) - (SPADLET |wden| (WIDTH |den|)) - (SPADLET |wnum| (WIDTH |num|)) - (SPADLET |w| (MAX |wden| |wnum|)) - (SPADLET |d| + (setq |ysup| (+ (+ |y| 1) (|subspan| |num|))) + (setq |wden| (WIDTH |den|)) + (setq |wnum| (WIDTH |num|)) + (setq |w| (MAX |wden| |wnum|)) + (setq |d| (APP |den| (+ (+ |x| 1) (QUOTIENT (SPADDIFFERENCE |w| |wden|) 2)) |ysub| |d|)) - (SPADLET |d| + (setq |d| (APP |num| (+ (+ |x| 1) (QUOTIENT (SPADDIFFERENCE |w| |wnum|) 2)) |ysup| |d|)) - (SPADLET |hnum| (|height| |num|)) - (SPADLET |hden| (|height| |den|)) - (SPADLET |w| (+ 1 |w|)) + (setq |hnum| (|height| |num|)) + (setq |hden| (|height| |den|)) + (setq |w| (+ 1 |w|)) (DO ((G170072 (SPADDIFFERENCE |hnum| 1)) (|j| 0 (QSADD1 |j|))) ((QSGREATERP |j| G170072) NIL) (SEQ (EXIT (PROGN - (SPADLET |d| + (setq |d| (|appChar| (|specialChar| '|vbar|) |x| (+ |y| |j|) |d|)) - (SPADLET |d| + (setq |d| (|appChar| (|specialChar| '|vbar|) (+ |x| |w|) (+ |y| |j|) |d|)))))) @@ -6942,23 +6942,23 @@ NIL (|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| G170081) NIL) (SEQ (EXIT (PROGN - (SPADLET |d| + (setq |d| (|appChar| (|specialChar| '|vbar|) |x| (SPADDIFFERENCE |y| |j|) |d|)) - (SPADLET |d| + (setq |d| (|appChar| (|specialChar| '|vbar|) (+ |x| |w|) (SPADDIFFERENCE |y| |j|) |d|)))))) - (SPADLET |d| + (setq |d| (|appChar| (|specialChar| '|ulc|) |x| (+ |y| |hnum|) |d|)) - (SPADLET |d| + (setq |d| (|appChar| (|specialChar| '|urc|) (+ |x| |w|) (+ |y| |hnum|) |d|)) - (SPADLET |d| + (setq |d| (|appChar| (|specialChar| '|llc|) |x| (SPADDIFFERENCE |y| |hden|) |d|)) - (SPADLET |d| + (setq |d| (|appChar| (|specialChar| '|lrc|) (+ |x| |w|) (SPADDIFFERENCE |y| |hden|) |d|))))))) @@ -6999,20 +6999,20 @@ NIL |wsup|) (RETURN (SEQ (PROGN - (SPADLET |a| (CAR (SPADLET |u| (CDR |u|)))) - (SPADLET |ar| (|superspan| |a|)) - (SPADLET |ab| (|subspan| |a|)) - (SPADLET |aw| (WIDTH |a|)) - (SPADLET |di| (APP |a| |x| |y| |di|)) - (SPADLET |x| (+ |x| |aw|)) - (SPADLET |sublist| (|everyNth| (SPADLET |u| (CDR |u|)) 2)) - (SPADLET |suplist| (|everyNth| (IFCDR |u|) 2)) - (SPADLET |ysub| + (setq |a| (CAR (setq |u| (CDR |u|)))) + (setq |ar| (|superspan| |a|)) + (setq |ab| (|subspan| |a|)) + (setq |aw| (WIDTH |a|)) + (setq |di| (APP |a| |x| |y| |di|)) + (setq |x| (+ |x| |aw|)) + (setq |sublist| (|everyNth| (setq |u| (CDR |u|)) 2)) + (setq |suplist| (|everyNth| (IFCDR |u|) 2)) + (setq |ysub| (SPADDIFFERENCE (SPADDIFFERENCE |y| 1) (APPLY 'MAX (CONS |ab| (PROG (G170124) - (SPADLET G170124 NIL) + (setq G170124 NIL) (RETURN (DO ((G170129 |sublist| @@ -7029,12 +7029,12 @@ NIL (SETQ G170124 (CONS (|superspan| |s|) G170124))))))))))) - (SPADLET |ysup| + (setq |ysup| (+ (+ |y| 1) (APPLY 'MAX (CONS |ar| (PROG (G170139) - (SPADLET G170139 NIL) + (setq G170139 NIL) (RETURN (DO ((G170144 |sublist| @@ -7058,11 +7058,11 @@ NIL (PROGN (SETQ |sup| (CAR G170160)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |wsub| (WIDTH |sub|)) - (SPADLET |wsup| (WIDTH |sup|)) - (SPADLET |di| (APP |sub| |x| |ysub| |di|)) - (SPADLET |di| (APP |sup| |x| |ysup| |di|)) - (SPADLET |x| + (setq |wsub| (WIDTH |sub|)) + (setq |wsup| (WIDTH |sup|)) + (setq |di| (APP |sub| |x| |ysub| |di|)) + (setq |di| (APP |sup| |x| |ysup| |di|)) + (setq |x| (+ (+ |x| 1) (MAX |wsub| |wsup|))))))) |di|))))) @@ -7074,19 +7074,19 @@ NIL (PROG (|e|) (RETURN (SEQ (PROG (G170199) - (SPADLET G170199 NIL) + (setq G170199 NIL) (RETURN (DO () ((NULL |l|) (NREVERSE0 G170199)) (SEQ (EXIT (SETQ G170199 (CONS (PROGN - (SPADLET |e| (ELT |l| 0)) + (setq |e| (ELT |l| 0)) (DO ((|i| 1 (QSADD1 |i|))) ((OR (QSGREATERP |i| |n|) (NULL |l|)) NIL) (SEQ (EXIT - (SPADLET |l| (CDR |l|))))) + (setq |l| (CDR |l|))))) |e|) G170199))))))))))) @@ -7102,16 +7102,16 @@ NIL (PROG (|sublist| |h| |span|) (RETURN (SEQ (PROGN - (SPADLET |span| (|subspan| (CADR |u|))) - (SPADLET |sublist| (|everyNth| (CDDR |u|) 2)) + (setq |span| (|subspan| (CADR |u|))) + (setq |sublist| (|everyNth| (CDDR |u|) 2)) (DO ((G170231 |sublist| (CDR G170231)) (|sub| NIL)) ((OR (ATOM G170231) (PROGN (SETQ |sub| (CAR G170231)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |h| (|height| |sub|)) + (setq |h| (|height| |sub|)) (COND - ((> |h| |span|) (SPADLET |span| |h|)) + ((> |h| |span|) (setq |span| |h|)) ('T NIL)))))) |span|))))) @@ -7127,16 +7127,16 @@ NIL (PROG (|suplist| |h| |span|) (RETURN (SEQ (PROGN - (SPADLET |span| (|superspan| (CADR |u|))) - (SPADLET |suplist| (|everyNth| (IFCDR (CDDR |u|)) 2)) + (setq |span| (|superspan| (CADR |u|))) + (setq |suplist| (|everyNth| (IFCDR (CDDR |u|)) 2)) (DO ((G170251 |suplist| (CDR G170251)) (|sup| NIL)) ((OR (ATOM G170251) (PROGN (SETQ |sup| (CAR G170251)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |h| (|height| |sup|)) + (setq |h| (|height| |sup|)) (COND - ((> |h| |span|) (SPADLET |span| |h|)) + ((> |h| |span|) (setq |span| |h|)) ('T NIL)))))) |span|))))) @@ -7154,9 +7154,9 @@ NIL (PROG (|suplist| |sublist| |wsup| |wsub| |w|) (RETURN (SEQ (PROGN - (SPADLET |w| (WIDTH (CADR |u|))) - (SPADLET |suplist| (|everyNth| (IFCDR (CDDR |u|)) 2)) - (SPADLET |sublist| (|everyNth| (CDDR |u|) 2)) + (setq |w| (WIDTH (CADR |u|))) + (setq |suplist| (|everyNth| (IFCDR (CDDR |u|)) 2)) + (setq |sublist| (|everyNth| (CDDR |u|) 2)) (DO ((G170273 |suplist| (CDR G170273)) (|sup| NIL) (G170274 |sublist| (CDR G170274)) (|sub| NIL)) ((OR (ATOM G170273) @@ -7165,9 +7165,9 @@ NIL (PROGN (SETQ |sub| (CAR G170274)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |wsup| (WIDTH |sup|)) - (SPADLET |wsub| (WIDTH |sub|)) - (SPADLET |w| + (setq |wsup| (WIDTH |sup|)) + (setq |wsub| (WIDTH |sub|)) + (setq |w| (+ (+ |w| 1) (MAX |wsup| |wsub|))))))) |w|))))) @@ -7184,13 +7184,13 @@ NIL (PROG (|a| |b| |c| |d| |e|) (RETURN (PROGN - (SPADLET |a| (CAR (SPADLET |u| (CDR |u|)))) - (SPADLET |b| (CAR (SPADLET |u| (CDR |u|)))) - (SPADLET |c| - (OR (CAR (SPADLET |u| (KDR |u|))) '((NOTHING . 0)))) - (SPADLET |d| - (OR (KAR (SPADLET |u| (KDR |u|))) '((NOTHING . 0)))) - (SPADLET |e| (OR (KADR |u|) '((NOTHING . 0)))) + (setq |a| (CAR (setq |u| (CDR |u|)))) + (setq |b| (CAR (setq |u| (CDR |u|)))) + (setq |c| + (OR (CAR (setq |u| (KDR |u|))) '((NOTHING . 0)))) + (setq |d| + (OR (KAR (setq |u| (KDR |u|))) '((NOTHING . 0)))) + (setq |e| (OR (KADR |u|) '((NOTHING . 0)))) (RETURN (+ (+ (MAX (WIDTH |d|) (WIDTH |e|)) (MAX (WIDTH |b|) (WIDTH |c|))) @@ -7206,9 +7206,9 @@ NIL (PROG (|a| |c| |d|) (RETURN (PROGN - (SPADLET |a| (CAR (SPADLET |u| (CDR |u|)))) - (SPADLET |c| (KAR (SPADLET |u| (KDR (KDR |u|))))) - (SPADLET |d| (KADR |u|)) + (setq |a| (CAR (setq |u| (CDR |u|)))) + (setq |c| (KAR (setq |u| (KDR (KDR |u|))))) + (setq |d| (KADR |u|)) (RETURN (+ (|superspan| |a|) (MAX (|height| |c|) (|height| |d|)))))))) @@ -7242,8 +7242,8 @@ NIL (PROG (|y| |args| |conds|) (RETURN (SEQ (PROGN - (SPADLET |y| (CAR |x|)) - (SPADLET |args| + (setq |y| (CAR |x|)) + (setq |args| (CAR (*NTH STANDARGLIST (+ 1 (LENGTH |y|))))) (DO () (NIL NIL) (SEQ (EXIT (PROGN @@ -7251,27 +7251,27 @@ NIL ((NULL |y|) (RETURN NIL)) ((AND (ATOM (CAR |y|)) (|member| (CAR |y|) FRLIS*)) - (SPADLET |conds| + (setq |conds| (CONS (LIST 'EQUAL1 (CAR |args|) (CAR |y|)) |conds|)) - (SPADLET |y| + (setq |y| (MSUBST (CAR |args|) (CAR |y|) |y|)) - (SPADLET |x| + (setq |x| (MSUBST (CAR |args|) (CAR |y|) |x|))) ((BOOT-EQUAL (CAR |y|) (CAR |args|)) NIL) ('T - (SPADLET |conds| + (setq |conds| (CONS (LIST 'EQUAL1 (CAR |args|) (CAR |y|)) |conds|)))) - (SPADLET |y| (CDR |y|)) - (SPADLET |args| (CDR |args|)))))) - (SPADLET |conds| + (setq |y| (CDR |y|)) + (setq |args| (CDR |args|)))))) + (setq |conds| (COND ((NULL |conds|) (CDR (CADR |x|))) ('T @@ -7294,27 +7294,27 @@ NIL (PROG (|w| |xoff|) (RETURN (SEQ (PROGN - (SPADLET |w| (|vConcatWidth| |u|)) - (SPADLET |y| + (setq |w| (|vConcatWidth| |u|)) + (setq |y| (+ (+ |y| (|superspan| (ELT |u| 1))) 1)) (DO ((G170351 (CDR |u|) (CDR G170351)) (|a| NIL)) ((OR (ATOM G170351) (PROGN (SETQ |a| (CAR G170351)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |y| + (setq |y| (SPADDIFFERENCE (SPADDIFFERENCE |y| (|superspan| |a|)) 1)) - (SPADLET |xoff| + (setq |xoff| (QUOTIENT (SPADDIFFERENCE |w| (WIDTH |a|)) 2)) - (SPADLET |d| + (setq |d| (APP |a| (+ |x| |xoff|) |y| |d|)) - (SPADLET |y| + (setq |y| (SPADDIFFERENCE |y| (|subspan| |a|))))))) |d|))))) @@ -7337,18 +7337,18 @@ NIL (PROG (|b| |a| |w| |y1| |y2| |xoff|) (RETURN (PROGN - (SPADLET |b| (CADR |u|)) - (SPADLET |a| (CADDR |u|)) - (SPADLET |w| (|vConcatWidth| |u|)) - (SPADLET |d| (APP "(" |x| |y| |d|)) - (SPADLET |x| (+ |x| 1)) - (SPADLET |y1| (SPADDIFFERENCE |y| (|height| |a|))) - (SPADLET |xoff| (QUOTIENT (SPADDIFFERENCE |w| (WIDTH |a|)) 2)) - (SPADLET |d| (APP |a| (+ |x| |xoff|) |y1| |d|)) - (SPADLET |y2| (+ |y| (|height| |b|))) - (SPADLET |xoff| (QUOTIENT (SPADDIFFERENCE |w| (WIDTH |b|)) 2)) - (SPADLET |d| (APP |b| (+ |x| |xoff|) |y2| |d|)) - (SPADLET |x| (+ |x| |w|)) + (setq |b| (CADR |u|)) + (setq |a| (CADDR |u|)) + (setq |w| (|vConcatWidth| |u|)) + (setq |d| (APP "(" |x| |y| |d|)) + (setq |x| (+ |x| 1)) + (setq |y1| (SPADDIFFERENCE |y| (|height| |a|))) + (setq |xoff| (QUOTIENT (SPADDIFFERENCE |w| (WIDTH |a|)) 2)) + (setq |d| (APP |a| (+ |x| |xoff|) |y1| |d|)) + (setq |y2| (+ |y| (|height| |b|))) + (setq |xoff| (QUOTIENT (SPADDIFFERENCE |w| (WIDTH |b|)) 2)) + (setq |d| (APP |b| (+ |x| |xoff|) |y2| |d|)) + (setq |x| (+ |x| |w|)) (APP ")" |x| |y| |d|))))) ;vConcatSub u == @@ -7359,7 +7359,7 @@ NIL (RETURN (SEQ (+ (|subspan| (ELT |u| 1)) (PROG (G170385) - (SPADLET G170385 0) + (setq G170385 0) (RETURN (DO ((G170390 (CDDR |u|) (CDR G170390)) (|a| NIL)) @@ -7383,14 +7383,14 @@ NIL (PROG (|wa| |w|) (RETURN (SEQ (PROGN - (SPADLET |w| 0) + (setq |w| 0) (DO ((G170407 (CDR |u|) (CDR G170407)) (|a| NIL)) ((OR (ATOM G170407) (PROGN (SETQ |a| (CAR G170407)) NIL)) NIL) (SEQ (EXIT (COND - ((> (SPADLET |wa| (WIDTH |a|)) |w|) - (SPADLET |w| |wa|)) + ((> (setq |wa| (WIDTH |a|)) |w|) + (setq |w| |wa|)) ('T NIL))))) |w|))))) @@ -7417,7 +7417,7 @@ NIL (PROGN (COND ((NULL |$collectOutput|) (TERPRI |$algebraOutputStream|))) (COND - ((SPADLET |u| (STRINGP (|mathPrint1| (|mathPrintTran| |u|) NIL))) + ((setq |u| (STRINGP (|mathPrint1| (|mathPrintTran| |u|) NIL))) (PSTRING |u|)) ('T NIL)))) @@ -7482,10 +7482,10 @@ NIL ('T (COND ((OR |$runTestFlag| |$mkTestFlag|) - (SPADLET |$mkTestOutputStack| + (setq |$mkTestOutputStack| (CONS (COPY |u|) |$mkTestOutputStack|)))) - (SPADLET |$highlightDelta| 0) - (SPADLET |c| + (setq |$highlightDelta| 0) + (setq |c| (CATCH '|outputFailure| (|charybdis| |u| $MARGIN $LINELENGTH))) (COND @@ -7498,32 +7498,32 @@ NIL (COND ((OR (AND (CONSP |u|) (EQ (QCAR |u|) 'EQUATNUM) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |num| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |num| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |form| + (setq |form| (QCAR |ISTMP#2|)) 'T)))))) (AND (CONSP |u|) (PROGN - (SPADLET |ISTMP#1| (QCAR |u|)) + (setq |ISTMP#1| (QCAR |u|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'EQUATNUM))) (PROGN - (SPADLET |ISTMP#2| (QCDR |u|)) + (setq |ISTMP#2| (QCDR |u|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |num| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |num| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |form| + (setq |form| (QCAR |ISTMP#3|)) 'T))))))) (|charybdis| (CONS 'EQUATNUM (CONS |num| NIL)) $MARGIN diff --git a/src/interp/i-resolv.lisp.pamphlet b/src/interp/i-resolv.lisp.pamphlet index e6410fc..2b9e12c 100644 --- a/src/interp/i-resolv.lisp.pamphlet +++ b/src/interp/i-resolv.lisp.pamphlet @@ -76,18 +76,18 @@ this symmetric resolution is done the following way: (SEQ (COND ((AND (CONSP |u|) (PROGN - (SPADLET |a| (QCAR |u|)) - (SPADLET |tail| (QCDR |u|)) + (setq |a| (QCAR |u|)) + (setq |tail| (QCDR |u|)) 'T)) - (SPADLET |allVars| + (setq |allVars| (COND ((AND (CONSP |a|) (EQ (QCAR |a|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |v| (QCAR |ISTMP#1|)) + (setq |v| (QCAR |ISTMP#1|)) 'T)))) (CONS |v| NIL)) ('T NIL))) @@ -95,17 +95,17 @@ this symmetric resolution is done the following way: ((OR (NULL |allVars|) (ATOM G166082) (PROGN (SETQ |b| (CAR G166082)) NIL)) NIL) - (SEQ (EXIT (SPADLET |allVars| + (SEQ (EXIT (setq |allVars| (COND ((AND (CONSP |b|) (EQ (QCAR |b|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |b|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |v| + (setq |v| (QCAR |ISTMP#1|)) 'T)))) (|insert| |v| |allVars|)) @@ -124,7 +124,7 @@ this symmetric resolution is done the following way: (PROGN (SETQ |md| (CAR G166094)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |a| (|resolveTT| |md| |a|)) + (setq |a| (|resolveTT| |md| |a|)) (COND ((NULL |a|) (RETURN NIL))))))) |a|))) ('T (|throwKeyedMsg| "AXIOM cannot handle [ ] here." nil))))))) @@ -140,7 +140,7 @@ this symmetric resolution is done the following way: (declare (special |$Any|)) (RETURN (PROGN - (SPADLET |rt| (|resolveTypeList| |tl|)) + (setq |rt| (|resolveTypeList| |tl|)) (COND ((NULL |rt|) |$Any|) ('T |rt|)))))) ;resolveTTAny(t1,t2) == @@ -151,7 +151,7 @@ this symmetric resolution is done the following way: (PROG (|t3|) (declare (special |$Any|)) (RETURN - (COND ((SPADLET |t3| (|resolveTT| |t1| |t2|)) |t3|) ('T |$Any|))))) + (COND ((setq |t3| (|resolveTT| |t1| |t2|)) |t3|) ('T |$Any|))))) ;resolveTT1(t1,t2) == ; -- this is the main symmetric resolve @@ -217,13 +217,13 @@ this symmetric resolution is done the following way: ((NULL (|acceptableTypesToResolve| |t1| |t2|)) NIL) ('T (COND - ((|compareTT| |t1| |t2|) (SPADLET |t| |t1|) - (SPADLET |t1| |t2|) (SPADLET |t2| |t|))) + ((|compareTT| |t1| |t2|) (setq |t| |t1|) + (setq |t1| |t2|) (setq |t2| |t|))) (COND - ((AND (SPADLET |t| (|resolveTTSpecial| |t1| |t2|)) + ((AND (setq |t| (|resolveTTSpecial| |t1| |t2|)) (|isValidType| |t|)) |t|) - ((AND (SPADLET |t| (|resolveTTSpecial| |t2| |t1|)) + ((AND (setq |t| (|resolveTTSpecial| |t2| |t1|)) (|isValidType| |t|)) |t|) ((AND (|isSubTowerOf| |t1| |t2|) @@ -232,22 +232,22 @@ this symmetric resolution is done the following way: ((AND (|isSubTowerOf| |t2| |t1|) (|canCoerceFrom| |t2| |t1|)) |t1|) - ((SPADLET |t| (|resolveTTRed| |t1| |t2|)) |t|) - ((SPADLET |t| (|resolveTTCC| |t1| |t2|)) |t|) - ((AND (SPADLET |t| (|resolveTTEq| |t1| |t2|)) + ((setq |t| (|resolveTTRed| |t1| |t2|)) |t|) + ((setq |t| (|resolveTTCC| |t1| |t2|)) |t|) + ((AND (setq |t| (|resolveTTEq| |t1| |t2|)) (|isValidType| |t|)) |t|) - ('T (SPADLET |LETTMP#1| (|deconstructT| |t1|)) - (SPADLET |c1| (CAR |LETTMP#1|)) - (SPADLET |arg1| (CDR |LETTMP#1|)) + ('T (setq |LETTMP#1| (|deconstructT| |t1|)) + (setq |c1| (CAR |LETTMP#1|)) + (setq |arg1| (CDR |LETTMP#1|)) (AND |arg1| (PROGN - (SPADLET |LETTMP#1| (|deconstructT| |t2|)) - (SPADLET |c2| (CAR |LETTMP#1|)) - (SPADLET |arg2| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|deconstructT| |t2|)) + (setq |c2| (CAR |LETTMP#1|)) + (setq |arg2| (CDR |LETTMP#1|)) (AND |arg2| (PROGN - (SPADLET |t| + (setq |t| (|resolveTT1| (|last| |arg1|) (|last| |arg2|))) (AND |t| @@ -304,10 +304,10 @@ this symmetric resolution is done the following way: (PROG (|t0| |t1|) (RETURN (PROGN - (SPADLET |t0| (|constructM| |c2| (|replaceLast| |arg2| |t|))) + (setq |t0| (|constructM| |c2| (|replaceLast| |arg2| |t|))) (AND (|canCoerceFrom| |t| |t0|) (PROGN - (SPADLET |t1| + (setq |t1| (|constructM| |c1| (|replaceLast| |arg1| |t0|))) (AND (|canCoerceFrom| |t0| |t1|) |t1|))))))) @@ -343,17 +343,17 @@ this symmetric resolution is done the following way: |ud|) (RETURN (SEQ (PROGN - (SPADLET |doms| (CDR |t1|)) - (SPADLET |unionDoms1| + (setq |doms| (CDR |t1|)) + (setq |unionDoms1| (COND ((AND |doms| (PROGN - (SPADLET |ISTMP#1| (CAR |doms|)) + (setq |ISTMP#1| (CAR |doms|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|:|)))) - (SPADLET |tagged| 'T) + (setq |tagged| 'T) (PROG (G166204) - (SPADLET G166204 NIL) + (setq G166204 NIL) (RETURN (DO ((G166210 |doms| (CDR G166210)) (G166178 NIL)) @@ -364,7 +364,7 @@ this symmetric resolution is done the following way: NIL) (PROGN (PROGN - (SPADLET |t| + (setq |t| (CADDR G166178)) G166178) NIL)) @@ -372,13 +372,13 @@ this symmetric resolution is done the following way: (SEQ (EXIT (SETQ G166204 (CONS |t| G166204)))))))) - ('T (SPADLET |tagged| NIL) |doms|))) + ('T (setq |tagged| NIL) |doms|))) (COND ((|member| |t2| |unionDoms1|) |t1|) (|tagged| NIL) ((NULL (AND (CONSP |t2|) (EQ (QCAR |t2|) '|Union|) - (PROGN (SPADLET |doms2| (QCDR |t2|)) 'T))) - (SPADLET |ud| NIL) (SPADLET |bad| NIL) + (PROGN (setq |doms2| (QCDR |t2|)) 'T))) + (setq |ud| NIL) (setq |bad| NIL) (DO ((G166221 |doms| (CDR G166221)) (|d| NIL)) ((OR (ATOM G166221) (PROGN (SETQ |d| (CAR G166221)) NIL) @@ -386,15 +386,15 @@ this symmetric resolution is done the following way: NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |d| "failed") - (SPADLET |ud| (CONS |d| |ud|))) - ((NULL (SPADLET |d'| + (setq |ud| (CONS |d| |ud|))) + ((NULL (setq |d'| (|resolveTT| |d| |t2|))) - (SPADLET |bad| 'T)) - ('T (SPADLET |ud| (CONS |d'| |ud|))))))) + (setq |bad| 'T)) + ('T (setq |ud| (CONS |d'| |ud|))))))) (COND (|bad| NIL) ('T (CONS '|Union| (REMDUP (REVERSE |ud|)))))) - ('T (SPADLET |ud| NIL) (SPADLET |bad| NIL) + ('T (setq |ud| NIL) (setq |bad| NIL) (DO ((G166232 |doms2| (CDR G166232)) (|d| NIL)) ((OR (ATOM G166232) (PROGN (SETQ |d| (CAR G166232)) NIL) @@ -402,13 +402,13 @@ this symmetric resolution is done the following way: NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |d| "failed") - (SPADLET |ud| + (setq |ud| (APPEND |ud| (CONS |d| NIL)))) - ((NULL (SPADLET |d'| + ((NULL (setq |d'| (|resolveTTUnion| |t1| |d|))) - (SPADLET |bad| 'T)) + (setq |bad| 'T)) ('T - (SPADLET |ud| (APPEND |ud| (CDR |d'|)))))))) + (setq |ud| (APPEND |ud| (CDR |d'|)))))))) (COND (|bad| NIL) ('T (CONS '|Union| (REMDUP |ud|))))))))))) ;resolveTTSpecial(t1,t2) == @@ -507,7 +507,7 @@ this symmetric resolution is done the following way: (AND (CONSP |t1|) (EQ (QCAR |t1|) '|OrderedVariableList|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL))))) (CONSP |t2|) @@ -529,52 +529,52 @@ this symmetric resolution is done the following way: ((AND (BOOT-EQUAL |t1| '(|AlgebraicNumber|)) (CONSP |t2|) (EQ (QCAR |t2|) '|Complex|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))) (|resolveTT1| '(|Expression| (|Integer|)) |t2|)) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|SimpleAlgebraicExtension|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET F (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq F (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |Rep| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |Rep| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |poly| (QCAR |ISTMP#3|)) + (setq |poly| (QCAR |ISTMP#3|)) 'T)))))))) (COND ((BOOT-EQUAL |t2| |Rep|) |t1|) ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|UnivariatePolynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (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 R (QCAR |ISTMP#2|)) 'T))))) - (SPADLET |t3| (|resolveTT| |t1| R))) + (PROGN (setq R (QCAR |ISTMP#2|)) 'T))))) + (setq |t3| (|resolveTT| |t1| R))) (CONS '|UnivariatePolynomial| (CONS |x| (CONS |t3| NIL)))) ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |x| (QCAR |ISTMP#1|)) 'T))) - (SPADLET |t3| (|resolveTT| |t1| F))) + (PROGN (setq |x| (QCAR |ISTMP#1|)) 'T))) + (setq |t3| (|resolveTT| |t1| F))) (CONS '|UnivariatePolynomial| (CONS |x| (CONS |t3| NIL)))) ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|Polynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET R (QCAR |ISTMP#1|)) 'T))) - (SPADLET |R'| (|resolveTT| |Rep| |t2|))) + (PROGN (setq R (QCAR |ISTMP#1|)) 'T))) + (setq |R'| (|resolveTT| |Rep| |t2|))) (COND ((BOOT-EQUAL |R'| |Rep|) |t1|) ('T (CONS '|Polynomial| (CONS |t1| NIL))))) @@ -588,18 +588,18 @@ this symmetric resolution is done the following way: (|resolveTT1| |$Integer| |t2|)) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|OrderedVariableList|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (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 (QCDR |ISTMP#2|) NIL) - (PROGN (SPADLET |x| (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq |x| (QCAR |ISTMP#2|)) 'T)))))) (|resolveTTSpecial| (CONS '|Variable| (CONS |x| NIL)) |t2|)) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|OrderedVariableList|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |vl| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |vl| (QCAR |ISTMP#1|)) 'T)))) (COND ((|ofCategory| |t2| '(|Ring|)) (|resolveTT| (CONS '|Polynomial| (CONS '(|Integer|) NIL)) @@ -607,22 +607,22 @@ this symmetric resolution is done the following way: ('T (|resolveTT| |$Symbol| |t2|)))) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |x| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |x| (QCAR |ISTMP#1|)) 'T)))) (COND ((EQCAR |t2| '|SimpleAlgebraicExtension|) (|resolveTTSpecial| |t2| |t1|)) ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|UnivariatePolynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |y| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |y| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) - (PROGN (SPADLET S (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq S (QCAR |ISTMP#2|)) 'T)))))) (COND ((BOOT-EQUAL |x| |y|) |t2|) ('T @@ -632,21 +632,21 @@ this symmetric resolution is done the following way: |t2|)))) ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |y| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |y| (QCAR |ISTMP#1|)) 'T)))) (COND ((BOOT-EQUAL |x| |y|) |t1|) ('T |$Symbol|))) ((BOOT-EQUAL |t2| '(|Symbol|)) |t2|) ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|Polynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))) |t2|) ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|OrderedVariableList|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |vl| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |vl| (QCAR |ISTMP#1|)) 'T))) (|member| |x| |vl|)) |t2|) ((|isPolynomialMode| |t2|) NIL) @@ -657,54 +657,54 @@ this symmetric resolution is done the following way: |t2|)))) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|FunctionCalled|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |f| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |f| (QCAR |ISTMP#1|)) 'T))) (CONSP |t2|) (EQ (QCAR |t2|) '|FunctionCalled|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |g| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |g| (QCAR |ISTMP#1|)) 'T)))) (COND - ((NULL (SPADLET |mf| (|get| |f| '|mode| |$e|))) NIL) - ((NULL (SPADLET |mg| (|get| |g| '|mode| |$e|))) NIL) + ((NULL (setq |mf| (|get| |f| '|mode| |$e|))) NIL) + ((NULL (setq |mg| (|get| |g| '|mode| |$e|))) NIL) ((NEQUAL |mf| |mg|) NIL) ('T |mf|))) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|UnivariatePolynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (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 S (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq S (QCAR |ISTMP#2|)) 'T)))))) (COND ((EQCAR |t2| '|Variable|) (|resolveTTSpecial| |t2| |t1|)) ((EQCAR |t2| '|SimpleAlgebraicExtension|) (|resolveTTSpecial| |t2| |t1|)) ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|UnivariatePolynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |y| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |y| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET T$ (QCAR |ISTMP#2|)) + (setq T$ (QCAR |ISTMP#2|)) 'T)))))) - (AND (BOOT-EQUAL |x| |y|) (SPADLET U (|resolveTT1| S T$)) + (AND (BOOT-EQUAL |x| |y|) (setq U (|resolveTT1| S T$)) (CONS '|UnivariatePolynomial| (CONS |x| (CONS U NIL))))) ('T NIL))) ((BOOT-EQUAL |t1| '(|Pi|)) (COND ((AND (CONSP |t2|) (EQ (QCAR |t2|) '|Complex|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |d| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |d| (QCAR |ISTMP#1|)) 'T)))) (|defaultTargetFE| |t2|)) ((AND (CONSP |t2|) (EQ (QCDR |t2|) NIL) (EQ (QCAR |t2|) '|AlgebraicNumber|)) @@ -713,19 +713,19 @@ this symmetric resolution is done the following way: (|defaultTargetFE| |$Symbol|)) ((OR (AND (CONSP |t2|) (EQ (QCAR |t2|) '|Polynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))) (AND (CONSP |t2|) (EQ (QCAR |t2|) '|Fraction|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (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|) '|Polynomial|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL))))))))) @@ -733,35 +733,35 @@ this symmetric resolution is done the following way: ('T NIL))) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Polynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (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|) '|Complex|) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |u1| (QCAR |ISTMP#3|)) + (setq |u1| (QCAR |ISTMP#3|)) 'T))))))) (CONSP |t2|) (EQ (QCAR |t2|) '|Complex|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |u2| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |u2| (QCAR |ISTMP#1|)) 'T)))) (|resolveTT1| |t1| |u2|)) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Polynomial|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET R (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq R (QCAR |ISTMP#1|)) 'T))) (CONSP |t2|) (EQ (QCAR |t2|) '|Complex|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET S (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq S (QCAR |ISTMP#1|)) 'T)))) (COND ((|containsPolynomial| S) (|resolveTT1| @@ -774,29 +774,29 @@ this symmetric resolution is done the following way: NIL))))) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Expression|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET R (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq R (QCAR |ISTMP#1|)) 'T))) (CONSP |t2|) (EQ (QCAR |t2|) '|Complex|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET S (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |dom'| (|resolveTT| R |t2|)) + (PROGN (setq S (QCAR |ISTMP#1|)) 'T)))) + (setq |dom'| (|resolveTT| R |t2|)) (COND ((NULL |dom'|) NIL) ('T (CONS '|Expression| (CONS |dom'| NIL))))) ((AND (CONSP |t1|) (EQ (QCAR |t1|) '|Segment|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t1|)) + (setq |ISTMP#1| (QCDR |t1|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |dom| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |dom| (QCAR |ISTMP#1|)) 'T))) (NULL (AND (CONSP |t2|) (EQ (QCAR |t2|) '|Segment|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t2|)) + (setq |ISTMP#1| (QCDR |t2|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))))) - (SPADLET |dom'| (|resolveTT| |dom| |t2|)) + (setq |dom'| (|resolveTT| |dom| |t2|)) (COND ((NULL |dom'|) NIL) ('T (CONS '|Segment| (CONS |dom'| NIL))))) @@ -818,11 +818,11 @@ this symmetric resolution is done the following way: (PROG (|gt21| |c12| |c21|) (RETURN (PROGN - (SPADLET |gt21| (GGREATERP |t2| |t1|)) + (setq |gt21| (GGREATERP |t2| |t1|)) (COND - ((AND (SPADLET |c12| (|canCoerceFrom| |t1| |t2|)) |gt21|) + ((AND (setq |c12| (|canCoerceFrom| |t1| |t2|)) |gt21|) |t2|) - ('T (SPADLET |c21| (|canCoerceFrom| |t2| |t1|)) + ('T (setq |c21| (|canCoerceFrom| |t2| |t1|)) (COND ((NULL (OR |c12| |c21|)) NIL) ((AND |c12| (NULL |c21|)) |t2|) @@ -843,18 +843,18 @@ this symmetric resolution is done the following way: (PROG (|c1| |arg1| |LETTMP#1| |c2| |arg2| |t|) (RETURN (PROGN - (SPADLET |LETTMP#1| (|deconstructT| |t1|)) - (SPADLET |c1| (CAR |LETTMP#1|)) - (SPADLET |arg1| (CDR |LETTMP#1|)) - (SPADLET |LETTMP#1| (|deconstructT| |t2|)) - (SPADLET |c2| (CAR |LETTMP#1|)) - (SPADLET |arg2| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|deconstructT| |t1|)) + (setq |c1| (CAR |LETTMP#1|)) + (setq |arg1| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|deconstructT| |t2|)) + (setq |c2| (CAR |LETTMP#1|)) + (setq |arg2| (CDR |LETTMP#1|)) (COND - ((SPADLET |t| + ((setq |t| (|resolveTTEq1| |c1| |arg1| (CONS |c2| (CONS |arg2| NIL)))) |t|) - ((SPADLET |t| + ((setq |t| (AND |arg1| (|resolveTTEq2| |c2| |arg2| (CONS |c1| (CONS |arg1| NIL))))) @@ -885,8 +885,8 @@ this symmetric resolution is done the following way: (PROG (|LETTMP#1| |c2| |t| |arg| |arg2| |t0|) (RETURN (SEQ (PROGN - (SPADLET |c2| (CAR TL)) - (SPADLET |arg2| (CADR TL)) + (setq |c2| (CAR TL)) + (setq |arg2| (CADR TL)) (COND ((AND (NULL |arg1|) (NULL |arg2|)) (COND @@ -898,28 +898,28 @@ this symmetric resolution is done the following way: ('T (AND (BOOT-EQUAL |c1| |c2|) (PROGN - (SPADLET |LETTMP#1| (|bubbleType| TL)) - (SPADLET |c2| (CAR |LETTMP#1|)) - (SPADLET |arg2| (CADR |LETTMP#1|)) - (SPADLET TL (CDDR |LETTMP#1|)) + (setq |LETTMP#1| (|bubbleType| TL)) + (setq |c2| (CAR |LETTMP#1|)) + (setq |arg2| (CADR |LETTMP#1|)) + (setq TL (CDDR |LETTMP#1|)) (SEQ (DO ((G166627 NIL (OR (NULL |arg1|) (NULL |arg2|) (NULL |t|)))) (G166627 NIL) (SEQ (EXIT (COND - ((SPADLET |t| + ((setq |t| (|resolveTT1| (CAR |arg1|) (CAR |arg2|))) (EXIT (PROGN - (SPADLET |arg| + (setq |arg| (CONS |t| |arg|)) - (SPADLET |arg1| (CDR |arg1|)) - (SPADLET |arg2| (CDR |arg2|))))))))) + (setq |arg1| (CDR |arg1|)) + (setq |arg2| (CDR |arg2|))))))))) (AND |t| (NULL |arg1|) (NULL |arg2|) (PROGN - (SPADLET |t0| + (setq |t0| (|constructM| |c1| (NREVERSE |arg|))) (|constructTowerT| |t0| TL))))))))))))) @@ -936,14 +936,14 @@ this symmetric resolution is done the following way: (PROG (|c| |arg| |LETTMP#1| |c2| |arg2| |t|) (RETURN (PROGN - (SPADLET |c| (CAR TL)) - (SPADLET |arg| (CADR TL)) - (SPADLET |LETTMP#1| (|deconstructT| (|last| |arg|))) - (SPADLET |c2| (CAR |LETTMP#1|)) - (SPADLET |arg2| (CDR |LETTMP#1|)) - (SPADLET TL (CONS |c2| (CONS |arg2| TL))) + (setq |c| (CAR TL)) + (setq |arg| (CADR TL)) + (setq |LETTMP#1| (|deconstructT| (|last| |arg|))) + (setq |c2| (CAR |LETTMP#1|)) + (setq |arg2| (CDR |LETTMP#1|)) + (setq TL (CONS |c2| (CONS |arg2| TL))) (COND - ((SPADLET |t| (|resolveTTEq1| |c1| |arg1| TL)) |t|) + ((setq |t| (|resolveTTEq1| |c1| |arg1| TL)) |t|) ('T (AND |arg2| (|resolveTTEq2| |c1| |arg1| TL)))))))) ;resolveTTRed(t1,t2) == @@ -959,19 +959,19 @@ this symmetric resolution is done the following way: (PROG (|c1| |arg1| |t| |LETTMP#1| |c2| |arg2|) (RETURN (COND - ((SPADLET |t| (|resolveTTRed1| |t1| |t2| NIL)) |t|) - ('T (SPADLET |LETTMP#1| (|deconstructT| |t1|)) - (SPADLET |c1| (CAR |LETTMP#1|)) - (SPADLET |arg1| (CDR |LETTMP#1|)) + ((setq |t| (|resolveTTRed1| |t1| |t2| NIL)) |t|) + ('T (setq |LETTMP#1| (|deconstructT| |t1|)) + (setq |c1| (CAR |LETTMP#1|)) + (setq |arg1| (CDR |LETTMP#1|)) (COND - ((SPADLET |t| + ((setq |t| (AND |arg1| (|resolveTTRed2| |t2| (|last| |arg1|) (CONS |c1| (CONS |arg1| NIL))))) |t|) - ('T (SPADLET |LETTMP#1| (|deconstructT| |t2|)) - (SPADLET |c2| (CAR |LETTMP#1|)) - (SPADLET |arg2| (CDR |LETTMP#1|)) + ('T (setq |LETTMP#1| (|deconstructT| |t2|)) + (setq |c2| (CAR |LETTMP#1|)) + (setq |arg2| (CDR |LETTMP#1|)) (AND |arg2| (|resolveTTRed2| |t1| (|last| |arg2|) (CONS |c2| (CONS |arg2| NIL))))))))))) @@ -998,27 +998,27 @@ this symmetric resolution is done the following way: (SEQ (COND ((AND (EQ |t| (|term1RW| - (SPADLET |t| + (setq |t| (CONS '|Resolve| (CONS |t1| (CONS |t2| NIL)))) |$Res|)) (EQ |t| (|term1RW| - (SPADLET |t| + (setq |t| (CONS '|Resolve| (CONS |t2| (CONS |t1| NIL)))) |$Res|))) NIL) - ('T (SPADLET |LETTMP#1| (|deconstructT| |t2|)) - (SPADLET |c2| (CAR |LETTMP#1|)) - (SPADLET |arg2| (CDR |LETTMP#1|)) - (SPADLET |LETTMP#1| + ('T (setq |LETTMP#1| (|deconstructT| |t2|)) + (setq |c2| (CAR |LETTMP#1|)) + (setq |arg2| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|bubbleType| (CONS |c2| (CONS |arg2| TL)))) - (SPADLET |c2| (CAR |LETTMP#1|)) - (SPADLET |arg2| (CADR |LETTMP#1|)) - (SPADLET TL (CDDR |LETTMP#1|)) - (SPADLET |t2| (|constructM| |c2| |arg2|)) - (SPADLET |l| + (setq |c2| (CAR |LETTMP#1|)) + (setq |arg2| (CADR |LETTMP#1|)) + (setq TL (CDDR |LETTMP#1|)) + (setq |t2| (|constructM| |c2| |arg2|)) + (setq |l| (|term1RWall| (CONS '|Resolve| (CONS |t1| (CONS |t2| NIL))) @@ -1029,11 +1029,11 @@ this symmetric resolution is done the following way: (PROGN (SETQ |t0| (CAR G166722)) NIL) G166723) NIL) - (SEQ (EXIT (SPADLET |t| (|resolveTTRed3| |t0|))))) + (SEQ (EXIT (setq |t| (|resolveTTRed3| |t0|))))) (COND ((AND |l| |t|) (|constructTowerT| |t| TL)) ('T - (SPADLET |l| + (setq |l| (|term1RWall| (CONS '|Resolve| (CONS |t2| (CONS |t1| NIL))) @@ -1044,7 +1044,7 @@ this symmetric resolution is done the following way: (PROGN (SETQ |t0| (CAR G166734)) NIL) G166735) NIL) - (SEQ (EXIT (SPADLET |t| (|resolveTTRed3| |t0|))))) + (SEQ (EXIT (setq |t| (|resolveTTRed3| |t0|))))) (AND |l| |t| (|constructTowerT| |t| TL)))))))))) ;resolveTTRed2(t1,t2,TL) == @@ -1057,10 +1057,10 @@ this symmetric resolution is done the following way: (PROG (|t| |LETTMP#1| |c2| |arg2|) (RETURN (COND - ((SPADLET |t| (|resolveTTRed1| |t1| |t2| TL)) |t|) - ('T (SPADLET |LETTMP#1| (|deconstructT| |t2|)) - (SPADLET |c2| (CAR |LETTMP#1|)) - (SPADLET |arg2| (CDR |LETTMP#1|)) + ((setq |t| (|resolveTTRed1| |t1| |t2| TL)) |t|) + ('T (setq |LETTMP#1| (|deconstructT| |t2|)) + (setq |c2| (CAR |LETTMP#1|)) + (setq |arg2| (CDR |LETTMP#1|)) (AND |arg2| (|resolveTTRed2| |t1| (|last| |arg2|) (CONS |c2| (CONS |arg2| TL))))))))) @@ -1092,59 +1092,59 @@ this symmetric resolution is done the following way: ((ATOM |t|) |t|) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Resolve|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) - (AND (SPADLET |t1| (|resolveTTRed3| |a|)) - (SPADLET |t2| (|resolveTTRed3| |b|)) + (AND (setq |t1| (|resolveTTRed3| |a|)) + (setq |t2| (|resolveTTRed3| |b|)) (|resolveTT1| |t1| |t2|))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Incl|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (AND (|member| |a| |b|) |b|)) ((AND (CONSP |t|) (EQ (QCAR |t|) '|SetDiff|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (AND (|intersection| |a| |b|) (SETDIFFERENCE |a| |b|))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|SetComp|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (AND (PROG (G166903) - (SPADLET G166903 'T) + (setq G166903 'T) (RETURN (DO ((G166909 NIL (NULL G166903)) (G166910 |b| (CDR G166910)) (|x| NIL)) @@ -1156,57 +1156,57 @@ this symmetric resolution is done the following way: (SETDIFFERENCE |a| |b|))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|SetInter|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (|intersection| |a| |b|)) ((AND (CONSP |t|) (EQ (QCAR |t|) '|SetUnion|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (|union| |a| |b|)) ((AND (CONSP |t|) (EQ (QCAR |t|) '|VarEqual|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (AND (BOOT-EQUAL |a| |b|) |a|)) ((AND (CONSP |t|) (EQ (QCAR |t|) '|SetEqual|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (AND (PROG (G166917) - (SPADLET G166917 'T) + (setq G166917 'T) (RETURN (DO ((G166923 NIL (NULL G166917)) (G166924 |b| (CDR G166924)) (|x| NIL)) @@ -1216,7 +1216,7 @@ this symmetric resolution is done the following way: (SEQ (EXIT (SETQ G166917 (AND G166917 (|member| |x| |a|)))))))) (PROG (G166931) - (SPADLET G166931 'T) + (setq G166931 'T) (RETURN (DO ((G166937 NIL (NULL G166931)) (G166938 |a| (CDR G166938)) (|x| NIL)) @@ -1228,7 +1228,7 @@ this symmetric resolution is done the following way: |a|)) ('T (PROG (G166950) - (SPADLET G166950 NIL) + (setq G166950 NIL) (RETURN (DO ((G166956 |t| (CDR G166956)) (|x| NIL) (G166957 (GETDATABASE (CAR |t|) 'COSIG) @@ -1291,7 +1291,7 @@ this symmetric resolution is done the following way: (RETURN (COND ((|ofCategory| |t| |c|) |t|) - ((AND (CDR |t|) (SPADLET |tc| (|resolveTCat1| |t| |c|))) |tc|) + ((AND (CDR |t|) (setq |tc| (|resolveTCat1| |t| |c|))) |tc|) ((AND (|member| |c| '((|Field|) (|EuclideanDomain|))) (|ofCategory| |t| '(|IntegralDomain|))) (CONS |$QuotientField| (CONS |t| NIL))) @@ -1300,22 +1300,22 @@ this symmetric resolution is done the following way: ((AND (BOOT-EQUAL |c| '(|Ring|)) (CONSP |t|) (EQ (QCAR |t|) '|FactoredForm|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |t0| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |t0| (QCAR |ISTMP#1|)) 'T)))) (CONS '|FactoredRing| (CONS |t0| NIL))) ((AND (CONSP |t|) (EQ (QCDR |t|) NIL) - (PROGN (SPADLET |t0| (QCAR |t|)) 'T) - (SPADLET |sd| (|getImmediateSuperDomain| |t0|)) + (PROGN (setq |t0| (QCAR |t|)) 'T) + (setq |sd| (|getImmediateSuperDomain| |t0|)) (NEQUAL |sd| |t0|)) (|resolveTCat| |sd| |c|)) - ((NEQUAL (SIZE (SPADLET |td| (|deconstructT| |t|))) 2) NIL) - ((NEQUAL (SIZE (SPADLET |tc| (|deconstructT| |c|))) 2) NIL) - ('T (SPADLET |ut| (|underDomainOf| |t|)) + ((NEQUAL (SIZE (setq |td| (|deconstructT| |t|))) 2) NIL) + ((NEQUAL (SIZE (setq |tc| (|deconstructT| |c|))) 2) NIL) + ('T (setq |ut| (|underDomainOf| |t|)) (COND - ((NULL (|isValidType| (SPADLET |uc| (|last| |tc|)))) NIL) + ((NULL (|isValidType| (setq |uc| (|last| |tc|)))) NIL) ((NULL (|canCoerceFrom| |ut| |uc|)) NIL) - ('T (SPADLET |nt| (|constructT| (CAR |td|) (CONS |uc| NIL))) + ('T (setq |nt| (|constructT| (CAR |td|) (CONS |uc| NIL))) (COND ((|ofCategory| |nt| |c|) |nt|) ('T NIL))))))))) ;resolveTCat1(t,c) == @@ -1344,38 +1344,38 @@ this symmetric resolution is done the following way: |c1| |sharp| |argN| |t1| |t1'| |t'|) (RETURN (SEQ (COND - ((NULL (SPADLET |conds| + ((NULL (setq |conds| (|getConditionsForCategoryOnType| |t| |c|))) NIL) - ('T (SPADLET |cond| (CAR |conds|)) + ('T (setq |cond| (CAR |conds|)) (COND ((NULL (AND (CONSP |cond|) (PROGN - (SPADLET |ISTMP#1| (QCDR |cond|)) + (setq |ISTMP#1| (QCDR |cond|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (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 |pat| + (setq |pat| (QCAR |ISTMP#3|)) - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |c1| + (setq |c1| (QCAR |ISTMP#4|)) 'T))))))))))) NIL) ((CDR |c1|) NIL) - ('T (SPADLET |argN| 0) (SPADLET |t1| NIL) + ('T (setq |argN| 0) (setq |t1| NIL) (DO ((G167076 (CDR |t|) (CDR G167076)) (|ut| NIL) (|i| 1 (QSADD1 |i|))) ((OR (ATOM G167076) @@ -1383,19 +1383,19 @@ this symmetric resolution is done the following way: (NULL (EQL |argN| 0))) NIL) (SEQ (EXIT (PROGN - (SPADLET |sharp| + (setq |sharp| (INTERNL "#" (STRINGIMAGE |i|))) (COND ((BOOT-EQUAL |sharp| |pat|) (PROGN - (SPADLET |argN| |i|) - (SPADLET |t1| |ut|)))))))) + (setq |argN| |i|) + (setq |t1| |ut|)))))))) (COND ((NULL |t1|) NIL) - ((NULL (SPADLET |t1'| (|resolveTCat| |t1| |c1|))) + ((NULL (setq |t1'| (|resolveTCat| |t1| |c1|))) NIL) - ('T (SPADLET |t'| (COPY |t|)) + ('T (setq |t'| (COPY |t|)) (SETELT |t'| |argN| |t1'|) |t'|)))))))))) ;getConditionsForCategoryOnType(t,cat) == @@ -1415,10 +1415,10 @@ this symmetric resolution is done the following way: (PROG (|conCat|) (RETURN (PROGN - (COND ((CONSP |t|) (SPADLET |t| (CAR |t|)))) + (COND ((CONSP |t|) (setq |t| (CAR |t|)))) (COND ((|member| |t| '(|Union| |Mapping| |Record|)) NIL) - ('T (SPADLET |conCat| (GETDATABASE |t| 'CONSTRUCTORCATEGORY)) + ('T (setq |conCat| (GETDATABASE |t| 'CONSTRUCTORCATEGORY)) (REMDUP (CDR (|getConditionalCategoryOfType1| |conCat| |conditions| |match| (CONS NIL NIL)))))))))) @@ -1450,9 +1450,9 @@ this symmetric resolution is done the following way: (RETURN (SEQ (COND ((OR (AND (CONSP |cat|) (EQ (QCAR |cat|) '|Join|) - (PROGN (SPADLET |cs| (QCDR |cat|)) 'T)) + (PROGN (setq |cs| (QCDR |cat|)) 'T)) (AND (CONSP |cat|) (EQ (QCAR |cat|) 'CATEGORY) - (PROGN (SPADLET |cs| (QCDR |cat|)) 'T))) + (PROGN (setq |cs| (QCDR |cat|)) 'T))) (COND ((NULL |cs|) |conditions|) ('T @@ -1463,14 +1463,14 @@ this symmetric resolution is done the following way: |match| |seen|)))) ((AND (CONSP |cat|) (EQ (QCAR |cat|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |cat|)) + (setq |ISTMP#1| (QCDR |cat|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |cond| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |cond| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL)))))))) (COND @@ -1479,13 +1479,13 @@ this symmetric resolution is done the following way: |conditions|) ('T |conditions|))) ((AND (CONSP |cat|) - (PROGN (SPADLET |catName| (QCAR |cat|)) 'T) + (PROGN (setq |catName| (QCAR |cat|)) 'T) (BOOT-EQUAL (GETDATABASE |catName| 'CONSTRUCTORKIND) '|category|)) (COND ((|member| |cat| (CDR |seen|)) |conditions|) ('T (RPLACD |seen| (CONS |cat| (CDR |seen|))) - (SPADLET |subCat| + (setq |subCat| (GETDATABASE |catName| 'CONSTRUCTORCATEGORY)) (DO ((G167136 (CDR |cat|) (CDR G167136)) (|v| NIL) (G167137 |$TriangleVariableList| @@ -1496,7 +1496,7 @@ this symmetric resolution is done the following way: (ATOM G167137) (PROGN (SETQ |vv| (CAR G167137)) NIL)) NIL) - (SEQ (EXIT (SPADLET |subCat| + (SEQ (EXIT (setq |subCat| (MSUBST |v| |vv| |subCat|))))) (|getConditionalCategoryOfType1| |subCat| |conditions| |match| |seen|)))) @@ -1526,10 +1526,10 @@ this symmetric resolution is done the following way: ((BOOT-EQUAL |pat| |form|) 'T) ((|isSharpVarWithNum| |pat|) (COND - ((SPADLET |p| (|assoc| |pat| |patAlist|)) + ((setq |p| (|assoc| |pat| |patAlist|)) (BOOT-EQUAL |form| (CDR |p|))) ('T - (SPADLET |patAlist| (CONS (CONS |pat| |form|) |patAlist|)) + (setq |patAlist| (CONS (CONS |pat| |form|) |patAlist|)) 'T))) ((CONSP |pat|) (COND @@ -1572,11 +1572,11 @@ this symmetric resolution is done the following way: (RETURN (PROGN (|startTimingProcess| '|resolve|) - (SPADLET |$Subst| NIL) - (SPADLET |$Coerce| 'T) - (SPADLET |m| (SUBSTQ '** |$EmptyMode| |m|)) - (SPADLET |tt| (|resolveTM1| |t| |m|)) - (SPADLET |result| + (setq |$Subst| NIL) + (setq |$Coerce| 'T) + (setq |m| (SUBSTQ '** |$EmptyMode| |m|)) + (setq |tt| (|resolveTM1| |t| |m|)) + (setq |result| (AND |tt| (|isValidType| |tt|) |tt|)) (|stopTimingProcess| '|resolve|) |result|)))) @@ -1629,48 +1629,48 @@ this symmetric resolution is done the following way: (COND ((|isPatternVar| |m|) (COND - ((SPADLET |p| (ASSQ |m| |$Subst|)) + ((setq |p| (ASSQ |m| |$Subst|)) (COND (|$Coerce| (COND - ((SPADLET |tt| (|resolveTT1| |t| (CDR |p|))) + ((setq |tt| (|resolveTT1| |t| (CDR |p|))) (AND (RPLACD |p| |tt|) |tt|)) ('T NIL))) ('T (AND (BOOT-EQUAL |t| (CDR |p|)) |t|)))) - ('T (SPADLET |$Subst| (CONS (CONS |m| |t|) |$Subst|)) + ('T (setq |$Subst| (CONS (CONS |m| |t|) |$Subst|)) |t|))) ((OR (ATOM |t|) (ATOM |m|)) NIL) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Record|) - (PROGN (SPADLET |tr| (QCDR |t|)) 'T) (CONSP |m|) + (PROGN (setq |tr| (QCDR |t|)) 'T) (CONSP |m|) (EQ (QCAR |m|) '|Record|) - (PROGN (SPADLET |mr| (QCDR |m|)) 'T) - (SPADLET |tt| (|resolveTMRecord| |tr| |mr|))) + (PROGN (setq |mr| (QCDR |m|)) 'T) + (setq |tt| (|resolveTMRecord| |tr| |mr|))) |tt|) ((OR (AND (CONSP |t|) (EQ (QCAR |t|) '|Record|)) (AND (CONSP |m|) (EQ (QCAR |m|) '|Record|))) NIL) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL))) (CONSP |m|) (EQ (QCAR |m|) '|Mapping|)) |m|) ((AND (CONSP |t|) (EQ (QCAR |t|) '|FunctionCalled|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL))) (CONSP |m|) (EQ (QCAR |m|) '|Mapping|)) |m|) ('T (COND ((|isEqualOrSubDomain| |t| |$Integer|) - (SPADLET |t| |$Integer|))) + (setq |t| |$Integer|))) (COND - ((SPADLET |tt| (|resolveTMEq| |t| |m|)) |tt|) + ((setq |tt| (|resolveTMEq| |t| |m|)) |tt|) ('T (AND |$Coerce| (COND - ((SPADLET |tt| (|resolveTMRed| |t| |m|)) |tt|) + ((setq |tt| (|resolveTMRed| |t| |m|)) |tt|) ('T (|resolveTM2| |t| |m|))))))))) ('T (AND |$Coerce| (|canCoerceFrom| |t| |m|) |m|)))))) @@ -1692,7 +1692,7 @@ this symmetric resolution is done the following way: (RETURN (SEQ (COND ((NEQUAL (|#| |tr|) (|#| |mr|)) NIL) - ('T (SPADLET |ok| 'T) (SPADLET |tt| NIL) + ('T (setq |ok| 'T) (setq |tt| NIL) (DO ((G167214 |tr| (CDR G167214)) (|ta| NIL) (G167215 |mr| (CDR G167215)) (|ma| NIL)) ((OR (ATOM G167214) @@ -1703,15 +1703,15 @@ this symmetric resolution is done the following way: NIL) (SEQ (EXIT (COND ((NEQUAL (CADR |ta|) (CADR |ma|)) - (SPADLET |ok| NIL)) + (setq |ok| NIL)) ('T - (SPADLET |ra| + (setq |ra| (|resolveTM1| (CADDR |ta|) (CADDR |ma|))) (COND - ((NULL |ra|) (SPADLET |ok| NIL)) + ((NULL |ra|) (setq |ok| NIL)) ('T - (SPADLET |tt| + (setq |tt| (CONS (CONS (CAR |ta|) (CONS (CADR |ta|) @@ -1757,29 +1757,29 @@ this symmetric resolution is done the following way: (declare (special |$Integer|)) (RETURN (SEQ (PROGN - (SPADLET |ums| (CDR |m|)) + (setq |ums| (CDR |m|)) (COND ((|isTaggedUnion| |m|) (|resolveTMTaggedUnion| |t| |m|)) ((NULL (AND (CONSP |t|) (EQ (QCAR |t|) '|Union|) - (PROGN (SPADLET |uts| (QCDR |t|)) 'T))) - (SPADLET |ums| + (PROGN (setq |uts| (QCDR |t|)) 'T))) + (setq |ums| (REMDUP (|spliceTypeListForEmptyMode| (CONS |t| NIL) |ums|))) - (SPADLET |ums'| NIL) (SPADLET |success| NIL) + (setq |ums'| NIL) (setq |success| NIL) (DO ((G167251 |ums| (CDR G167251)) (|um| NIL)) ((OR (ATOM G167251) (PROGN (SETQ |um| (CAR G167251)) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |um'| (|resolveTM1| |t| |um|)) - (SPADLET |success| 'T) + ((setq |um'| (|resolveTM1| |t| |um|)) + (setq |success| 'T) (COND ((|member| |um'| '(T TRUE)) - (SPADLET |ums'| (CONS |um| |ums'|))) + (setq |ums'| (CONS |um| |ums'|))) ('T - (SPADLET |ums'| (CONS |um'| |ums'|))))) - ('T (SPADLET |ums'| (CONS |um| |ums'|))))))) - (SPADLET |m'| + (setq |ums'| (CONS |um'| |ums'|))))) + ('T (setq |ums'| (CONS |um| |ums'|))))))) + (setq |m'| (CONS '|Union| (REMDUP (REVERSE |ums'|)))) (COND (|success| @@ -1789,22 +1789,22 @@ this symmetric resolution is done the following way: ('T (|resolveTM1| |$Integer| |m'|)))) ('T NIL))) ('T - (SPADLET |ums| + (setq |ums| (REMDUP (|spliceTypeListForEmptyMode| |uts| |ums|))) - (SPADLET |bad| NIL) (SPADLET |doms| NIL) + (setq |bad| NIL) (setq |doms| NIL) (DO ((G167261 |uts| (CDR G167261)) (|ut| NIL)) ((OR (ATOM G167261) (PROGN (SETQ |ut| (CAR G167261)) NIL) (NULL (NULL |bad|))) NIL) (SEQ (EXIT (COND - ((SPADLET |m'| + ((setq |m'| (|resolveTMUnion| |ut| (CONS '|Union| |ums|))) - (SPADLET |doms| + (setq |doms| (APPEND (CDR |m'|) |doms|))) - ('T (SPADLET |bad| 'T)))))) + ('T (setq |bad| 'T)))))) (COND (|bad| NIL) ('T (CONS '|Union| (REMDUP |doms|))))))))))) @@ -1814,7 +1814,7 @@ this symmetric resolution is done the following way: (DEFUN |resolveTMTaggedUnion| (|t| |m|) (declare (ignore |t|)) - (PROG (|ums|) (RETURN (PROGN (SPADLET |ums| (CDR |m|)) |m|)))) + (PROG (|ums|) (RETURN (PROGN (setq |ums| (CDR |m|)) |m|)))) ;spliceTypeListForEmptyMode(tl,ml) == ; -- splice in tl for occurrence of ** in ml @@ -1830,8 +1830,8 @@ this symmetric resolution is done the following way: ((NULL |ml|) NIL) ((AND (CONSP |ml|) (PROGN - (SPADLET |m| (QCAR |ml|)) - (SPADLET |ml'| (QCDR |ml|)) + (setq |m| (QCAR |ml|)) + (setq |ml'| (QCDR |ml|)) 'T)) (COND ((BOOT-EQUAL |m| '**) @@ -1851,15 +1851,15 @@ this symmetric resolution is done the following way: (PROG (|LETTMP#1| |cm| |argm| |tt| |ttt|) (RETURN (PROGN - (SPADLET |LETTMP#1| (|deconstructT| |m|)) - (SPADLET |cm| (CAR |LETTMP#1|)) - (SPADLET |argm| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|deconstructT| |m|)) + (setq |cm| (CAR |LETTMP#1|)) + (setq |argm| (CDR |LETTMP#1|)) (AND |argm| (PROGN - (SPADLET |tt| (|resolveTM1| |t| (|last| |argm|))) + (setq |tt| (|resolveTM1| |t| (|last| |argm|))) (AND |tt| (PROGN - (SPADLET |ttt| + (setq |ttt| (|constructM| |cm| (|replaceLast| |argm| |tt|))) (AND |ttt| (|canCoerceFrom| |tt| |ttt|) |ttt|))))))))) @@ -1891,33 +1891,33 @@ this symmetric resolution is done the following way: (declare (special |$Subst|)) (RETURN (SEQ (COND - ((SPADLET |res| (|resolveTMSpecial| |t| |m|)) |res|) - ('T (SPADLET |LETTMP#1| (|deconstructT| |m|)) - (SPADLET |cm| (CAR |LETTMP#1|)) - (SPADLET |argm| (CDR |LETTMP#1|)) - (SPADLET |c| (|containsVars| |cm|)) (SPADLET TL NIL) + ((setq |res| (|resolveTMSpecial| |t| |m|)) |res|) + ('T (setq |LETTMP#1| (|deconstructT| |m|)) + (setq |cm| (CAR |LETTMP#1|)) + (setq |argm| (CDR |LETTMP#1|)) + (setq |c| (|containsVars| |cm|)) (setq TL NIL) (DO ((G167356 NIL (OR |b| (NULL |t|)))) (G167356 NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| (|deconstructT| |t|)) - (SPADLET |ct| (CAR |LETTMP#1|)) - (SPADLET |argt| (CDR |LETTMP#1|)) - (SPADLET |b| + (setq |LETTMP#1| (|deconstructT| |t|)) + (setq |ct| (CAR |LETTMP#1|)) + (setq |argt| (CDR |LETTMP#1|)) + (setq |b| (COND (|c| - (SPADLET SL + (setq SL (|resolveTMEq1| |ct| |cm|)) (NULL (EQ SL '|failed|))) ('T (BOOT-EQUAL |ct| |cm|)))) (COND ((NULL |b|) (PROGN - (SPADLET TL + (setq TL (CONS |ct| (CONS |argt| TL))) - (SPADLET |t| + (setq |t| (AND |argt| (|last| |argt|)))))))))) (AND |b| (PROGN - (SPADLET |t| + (setq |t| (|resolveTMEq2| |cm| |argm| (CONS |ct| (CONS |argt| TL)))) (COND @@ -1929,7 +1929,7 @@ this symmetric resolution is done the following way: NIL)) NIL) (SEQ (EXIT - (SPADLET |$Subst| + (setq |$Subst| (|augmentSub| (CAR |p|) (CDR |p|) |$Subst|))))))) |t|)))))))) @@ -1967,14 +1967,14 @@ this symmetric resolution is done the following way: |m|) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |x| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |x| (QCAR |ISTMP#1|)) 'T))) (CONSP |m|) (EQ (QCAR |m|) '|OrderedVariableList|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |le| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |le| (QCAR |ISTMP#1|)) 'T)))) (COND ((|isPatternVar| |le|) (CONS '|OrderedVariableList| @@ -1983,59 +1983,59 @@ this symmetric resolution is done the following way: ('T NIL))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Fraction|) (PROGN - (SPADLET |ISTMP#1| (QCDR |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|) (EQ (QCAR |ISTMP#2|) '|Complex|) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |t1| (QCAR |ISTMP#3|)) + (setq |t1| (QCAR |ISTMP#3|)) 'T))))))) (CONSP |m|) (EQ (QCAR |m|) '|Complex|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |m1| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |m1| (QCAR |ISTMP#1|)) 'T)))) (|resolveTM1| (CONS '|Complex| (CONS (CONS '|Fraction| (CONS |t1| NIL)) NIL)) |m|)) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Fraction|) (PROGN - (SPADLET |ISTMP#1| (QCDR |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|) (EQ (QCAR |ISTMP#2|) '|Polynomial|) (PROGN - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCAR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCAR |ISTMP#4|) '|Complex|) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |t1| + (setq |t1| (QCAR |ISTMP#5|)) 'T))))))))))) (CONSP |m|) (EQ (QCAR |m|) '|Complex|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |m1| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |m1| (QCAR |ISTMP#1|)) 'T)))) (|resolveTM1| (CONS '|Complex| (CONS (CONS '|Fraction| @@ -2046,12 +2046,12 @@ this symmetric resolution is done the following way: NIL)) |m|)) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Mapping|) - (PROGN (SPADLET |lt| (QCDR |t|)) 'T) (CONSP |m|) + (PROGN (setq |lt| (QCDR |t|)) 'T) (CONSP |m|) (EQ (QCAR |m|) '|Mapping|) - (PROGN (SPADLET |lm| (QCDR |m|)) 'T)) + (PROGN (setq |lm| (QCDR |m|)) 'T)) (COND ((NEQUAL (|#| |lt|) (|#| |lm|)) NIL) - ('T (SPADLET |l| NIL) (SPADLET |ok| 'T) + ('T (setq |l| NIL) (setq |ok| 'T) (SEQ (DO ((G167475 |lt| (CDR G167475)) (|at| NIL) (G167476 |lm| (CDR G167476)) (|am| NIL)) ((OR (ATOM G167475) @@ -2061,19 +2061,19 @@ this symmetric resolution is done the following way: (NULL |ok|)) NIL) (SEQ (EXIT (COND - ((SPADLET |ok| + ((setq |ok| (|resolveTM1| |at| |am|)) (EXIT - (SPADLET |l| (CONS |ok| |l|)))))))) + (setq |l| (CONS |ok| |l|)))))))) (AND |ok| (CONS '|Mapping| (REVERSE |l|))))))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Segment|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |u| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |u| (QCAR |ISTMP#1|)) 'T))) (CONSP |m|) (EQ (QCAR |m|) '|UniversalSegment|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))) (|resolveTM1| (CONS '|UniversalSegment| (CONS |u| NIL)) |m|)) @@ -2112,38 +2112,38 @@ this symmetric resolution is done the following way: (RETURN (SEQ (COND ((NULL (BOOT-EQUAL (CAR |ct|) (CAR |cm|))) '|failed|) - ('T (SPADLET SL NIL) (SPADLET |ct| (CDR |ct|)) - (SPADLET |cm| (CDR |cm|)) (SPADLET |b| 'T) + ('T (setq SL NIL) (setq |ct| (CDR |ct|)) + (setq |cm| (CDR |cm|)) (setq |b| 'T) (DO () ((NULL (AND |ct| |cm| |b|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |xt| (CAR |ct|)) - (SPADLET |ct| (CDR |ct|)) - (SPADLET |xm| (CAR |cm|)) - (SPADLET |cm| (CDR |cm|)) + (setq |xt| (CAR |ct|)) + (setq |ct| (CDR |ct|)) + (setq |xm| (CAR |cm|)) + (setq |cm| (CDR |cm|)) (COND ((AND (NULL (ATOM |xm|)) (BOOT-EQUAL (CAR |xm|) '|:|) (BOOT-EQUAL (CAR |xt|) '|:|) (BOOT-EQUAL (CADR |xm|) (CADR |xt|))) - (SPADLET |xm| (CADDR |xm|)) - (SPADLET |xt| (CADDR |xt|)))) - (SPADLET |b| + (setq |xm| (CADDR |xm|)) + (setq |xt| (CADDR |xt|)))) + (setq |b| (COND ((BOOT-EQUAL |xt| |xm|) 'T) ('T (AND (|isPatternVar| |xm|) (COND - ((SPADLET |p| + ((setq |p| (ASSQ |xm| |$Subst|)) (BOOT-EQUAL |xt| (CDR |p|))) - ((SPADLET |p| + ((setq |p| (ASSQ |xm| SL)) (BOOT-EQUAL |xt| (CDR |p|))) ('T - (SPADLET SL + (setq SL (|augmentSub| |xm| |xt| SL)))))))))))) (COND (|b| SL) ('T '|failed|)))))))) @@ -2173,27 +2173,27 @@ this symmetric resolution is done the following way: (declare (special |$Coerce|)) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (COND (|$Coerce| (|bubbleType| TL)) ('T TL))) - (SPADLET |ct| (CAR |LETTMP#1|)) - (SPADLET |argt| (CADR |LETTMP#1|)) - (SPADLET TL (CDDR |LETTMP#1|)) + (setq |ct| (CAR |LETTMP#1|)) + (setq |argt| (CADR |LETTMP#1|)) + (setq TL (CDDR |LETTMP#1|)) (AND (NULL TL) (COND ((NULL |argm|) (|constructM| |ct| |argt|)) - ('T (SPADLET |arg| NIL) + ('T (setq |arg| NIL) (DO ((G167572 NIL (NULL |tt|))) ((OR (NULL (AND |argt| |argm|)) G167572) NIL) (SEQ (EXIT (PROGN - (SPADLET |x1| (CAR |argt|)) - (SPADLET |argt| (CDR |argt|)) - (SPADLET |x2| (CAR |argm|)) - (SPADLET |argm| (CDR |argm|)) + (setq |x1| (CAR |argt|)) + (setq |argt| (CDR |argt|)) + (setq |x2| (CAR |argm|)) + (setq |argm| (CDR |argm|)) (COND - ((SPADLET |tt| + ((setq |tt| (|resolveTM1| |x1| |x2|)) - (SPADLET |arg| + (setq |arg| (CONS |tt| |arg|)))))))) (AND (NULL |argt|) (NULL |argm|) |tt| (|constructM| |ct| (NREVERSE |arg|))))))))))) @@ -2220,13 +2220,13 @@ this symmetric resolution is done the following way: (declare (special |$ResMode|)) (RETURN (SEQ (PROGN - (SPADLET TL NIL) + (setq TL NIL) (DO ((G167630 NIL (OR |b| (NULL |t|)))) (G167630 NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| (|deconstructT| |t|)) - (SPADLET |ct| (CAR |LETTMP#1|)) - (SPADLET |argt| (CDR |LETTMP#1|)) - (SPADLET |b| + (setq |LETTMP#1| (|deconstructT| |t|)) + (setq |ct| (CAR |LETTMP#1|)) + (setq |argt| (CDR |LETTMP#1|)) + (setq |b| (AND (NULL (EQ |t| @@ -2235,16 +2235,16 @@ this symmetric resolution is done the following way: (CONS |t| (CONS |m| NIL))) |$ResMode|))) (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|bubbleType| (CONS |ct| (CONS |argt| TL)))) - (SPADLET |c0| (CAR |LETTMP#1|)) - (SPADLET |arg0| + (setq |c0| (CAR |LETTMP#1|)) + (setq |arg0| (CADR |LETTMP#1|)) - (SPADLET TL0 (CDDR |LETTMP#1|)) + (setq TL0 (CDDR |LETTMP#1|)) (AND (NULL TL0) (PROGN - (SPADLET |l| + (setq |l| (|term1RWall| (CONS '|Resolve| (CONS @@ -2266,14 +2266,14 @@ this symmetric resolution is done the following way: NIL) (SEQ (EXIT - (SPADLET |t| + (setq |t| (|resolveTMRed1| |t0|))))) (AND |l| |t|)))))) (OR |b| (PROGN - (SPADLET TL + (setq TL (CONS |ct| (CONS |argt| TL))) - (SPADLET |t| + (setq |t| (AND |argt| (|last| |argt|))))))))) (AND |b| |t|)))))) @@ -2303,61 +2303,61 @@ this symmetric resolution is done the following way: ((ATOM |t|) |t|) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Resolve|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) - (AND (SPADLET |a| (|resolveTMRed1| |a|)) - (SPADLET |b| (|resolveTMRed1| |b|)) + (AND (setq |a| (|resolveTMRed1| |a|)) + (setq |b| (|resolveTMRed1| |b|)) (|resolveTM1| |a| |b|))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Incl|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (AND (CONSP |b|) (|member| |a| |b|) |b|)) ((AND (CONSP |t|) (EQ (QCAR |t|) '|Diff|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (AND (CONSP |a|) (|member| |b| |a|) (SETDIFFERENCE |a| (CONS |b| NIL)))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|SetIncl|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (AND (CONSP |b|) (PROG (G167809) - (SPADLET G167809 'T) + (setq G167809 'T) (RETURN (DO ((G167815 NIL (NULL G167809)) (G167816 |a| (CDR G167816)) (|x| NIL)) @@ -2369,46 +2369,46 @@ this symmetric resolution is done the following way: |b|)) ((AND (CONSP |t|) (EQ (QCAR |t|) '|SetDiff|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (AND (CONSP |b|) (CONSP |b|) (|intersection| |a| |b|) (SETDIFFERENCE |a| |b|))) ((AND (CONSP |t|) (EQ (QCAR |t|) '|VarEqual|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (AND (BOOT-EQUAL |a| |b|) |b|)) ((AND (CONSP |t|) (EQ (QCAR |t|) '|SetComp|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (AND (CONSP |a|) (CONSP |b|) (PROG (G167823) - (SPADLET G167823 'T) + (setq G167823 'T) (RETURN (DO ((G167829 NIL (NULL G167823)) (G167830 |b| (CDR G167830)) (|x| NIL)) @@ -2421,26 +2421,26 @@ this symmetric resolution is done the following way: ((AND (CONSP |t|) (EQ (QCAR |t|) '|SimpleAlgebraicExtension|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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|) (PROGN - (SPADLET |b| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |b| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |p| (QCAR |ISTMP#3|)) + (setq |p| (QCAR |ISTMP#3|)) 'T)))))))) (CONS '|SimpleAlgebraicExtension| (CONS (|resolveTMRed1| |a|) (CONS (|resolveTMRed1| |b|) (CONS |p| NIL))))) ('T (PROG (G167841) - (SPADLET G167841 NIL) + (setq G167841 NIL) (RETURN (DO ((G167846 |t| (CDR G167846)) (|x| NIL)) ((OR (ATOM G167846) @@ -2499,10 +2499,10 @@ this symmetric resolution is done the following way: (RETURN (SEQ (COND ((AND (KDR |t|) (|constructor?| (CAR |t|))) - (SPADLET |dt| (|destructT| (CAR |t|))) - (SPADLET |args| + (setq |dt| (|destructT| (CAR |t|))) + (setq |args| (PROG (G167926) - (SPADLET G167926 NIL) + (setq G167926 NIL) (RETURN (DO ((G167933 |dt| (CDR G167933)) (|d| NIL) @@ -2518,12 +2518,12 @@ this symmetric resolution is done the following way: NIL)) (NREVERSE0 G167926)) (SEQ (EXIT (COND - ((SPADLET |x| (AND |d| |y|)) + ((setq |x| (AND |d| |y|)) (SETQ G167926 (CONS |x| G167926)))))))))) - (SPADLET |c| + (setq |c| (PROG (G167949) - (SPADLET G167949 NIL) + (setq G167949 NIL) (RETURN (DO ((G167956 |dt| (CDR G167956)) (|d| NIL) @@ -2539,7 +2539,7 @@ this symmetric resolution is done the following way: NIL)) (NREVERSE0 G167949)) (SEQ (EXIT (COND - ((SPADLET |x| + ((setq |x| (AND (NULL |d|) |y|)) (SETQ G167949 (CONS |x| G167949)))))))))) @@ -2556,7 +2556,7 @@ this symmetric resolution is done the following way: (RETURN (SEQ (COND (A (PROG (G167981) - (SPADLET G167981 NIL) + (setq G167981 NIL) (RETURN (DO ((G167986 (|destructT| (CAR |c|)) (CDR G167986)) @@ -2615,14 +2615,14 @@ this symmetric resolution is done the following way: (SEQ (PROGN (DO () ((NULL (AND TL |t|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| TL) - (SPADLET |c| (CAR |LETTMP#1|)) - (SPADLET |arg| (CADR |LETTMP#1|)) - (SPADLET TL (CDDR |LETTMP#1|)) - (SPADLET |t0| + (setq |LETTMP#1| TL) + (setq |c| (CAR |LETTMP#1|)) + (setq |arg| (CADR |LETTMP#1|)) + (setq TL (CDDR |LETTMP#1|)) + (setq |t0| (|constructM| |c| (|replaceLast| |arg| |t|))) - (SPADLET |t| + (setq |t| (AND (|canCoerceFrom| |t| |t0|) |t0|)))))) |t|))))) @@ -2644,16 +2644,16 @@ this symmetric resolution is done the following way: (PROG (|c1| T1 |c2| |arg2| T2 |t| |t2| |arg1|) (RETURN (PROGN - (SPADLET |c1| (CAR TL)) - (SPADLET |arg1| (CADR TL)) - (SPADLET T1 (CDDR TL)) + (setq |c1| (CAR TL)) + (setq |arg1| (CADR TL)) + (setq T1 (CDDR TL)) (COND ((OR (NULL T1) (NULL |arg1|)) TL) - ('T (SPADLET |c2| (CAR T1)) (SPADLET |arg2| (CADR T1)) - (SPADLET T2 (CDDR T1)) (SPADLET |t| (|last| |arg1|)) - (SPADLET |t2| + ('T (setq |c2| (CAR T1)) (setq |arg2| (CADR T1)) + (setq T2 (CDDR T1)) (setq |t| (|last| |arg1|)) + (setq |t2| (|constructM| |c2| (|replaceLast| |arg2| |t|))) - (SPADLET |arg1| (|replaceLast| |arg1| |t2|)) + (setq |arg1| (|replaceLast| |arg1| |t2|)) (COND ((OR (|newCanCoerceCommute| |c2| |c1|) (|canCoerceCommute| |c2| |c1|)) @@ -2676,18 +2676,18 @@ this symmetric resolution is done the following way: (PROG (|c| |arg| |LETTMP#1| |c1| T1 |arg1| |t|) (RETURN (SEQ (PROGN - (SPADLET |c| (CAR TL)) - (SPADLET |arg| (CADR TL)) - (SPADLET T1 (CDDR TL)) - (SPADLET |t| (|last| |arg|)) + (setq |c| (CAR TL)) + (setq |arg| (CADR TL)) + (setq T1 (CDDR TL)) + (setq |t| (|last| |arg|)) (DO ((G168083 NIL (NULL T1))) (G168083 NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| T1) - (SPADLET |c1| (CAR |LETTMP#1|)) - (SPADLET |arg1| (CADR |LETTMP#1|)) - (SPADLET T1 (CDDR |LETTMP#1|)) - (SPADLET |arg1| (|replaceLast| |arg1| |t|)) - (SPADLET |t| (|constructT| |c1| |arg1|)))))) + (setq |LETTMP#1| T1) + (setq |c1| (CAR |LETTMP#1|)) + (setq |arg1| (CADR |LETTMP#1|)) + (setq T1 (CDDR |LETTMP#1|)) + (setq |arg1| (|replaceLast| |arg1| |t|)) + (setq |t| (|constructT| |c1| |arg1|)))))) (|constructT| |c| (|replaceLast| |arg| |t|))))))) ;compareTT(t1,t2) == diff --git a/src/interp/i-spec1.lisp.pamphlet b/src/interp/i-spec1.lisp.pamphlet index 32f30e4..592a02e 100644 --- a/src/interp/i-spec1.lisp.pamphlet +++ b/src/interp/i-spec1.lisp.pamphlet @@ -124,40 +124,40 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |vars| + (setq |vars| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |types| + (setq |types| (QCAR |ISTMP#3|)) - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |body| + (setq |body| (QCAR |ISTMP#5|)) 'T))))))))) (PROGN - (SPADLET |ISTMP#6| (QCDR |ISTMP#1|)) + (setq |ISTMP#6| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#6|) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#6|)) - (SPADLET |ISTMP#7| + (setq |ISTMP#7| (QCDR |ISTMP#6|)) (AND (CONSP |ISTMP#7|) (EQ (QCDR |ISTMP#7|) NIL))))))))) @@ -178,9 +178,9 @@ There are several special modes used in these functions: allowed.") (CONS |var| NIL))) ('T NIL))))) - (SPADLET |types| + (setq |types| (PROG (G166158) - (SPADLET G166158 NIL) + (setq G166158 NIL) (RETURN (DO ((G166163 |types| (CDR G166163)) (|t| NIL)) @@ -198,7 +198,7 @@ There are several special modes used in these functions: ('T NIL)) G166158)))))))) (COND - ((|isPartialMode| (SPADLET |m| (CAR |types|))) + ((|isPartialMode| (setq |m| (CAR |types|))) (|throwKeyedMsg| (format nil "Partial type declarations are not allowed for anonymous ~ @@ -208,9 +208,9 @@ There are several special modes used in these functions: (CONS |m| NIL)))) (COND ((AND (NULL |m|) (CDR |types|)) - (SPADLET |m| (CAR (CDR |types|))) - (SPADLET |types'| (CDR (CDR |types|)))) - ('T (SPADLET |types'| (CDR |types|)))) + (setq |m| (CAR (CDR |types|))) + (setq |types'| (CDR (CDR |types|)))) + ('T (setq |types'| (CDR |types|)))) (DO ((G166174 |types'| (CDR G166174)) (|type| NIL)) ((OR (ATOM G166174) (PROGN (SETQ |type| (CAR G166174)) NIL)) @@ -237,23 +237,23 @@ There are several special modes used in these functions: target type must not be partial.") (CONS |type| NIL))) ('T NIL)))))) - (SPADLET |$compilingMap| 'T) + (setq |$compilingMap| 'T) (COND ((NEQUAL |pred| 'T) - (SPADLET |body| + (setq |body| (CONS 'IF (CONS |pred| (CONS |body| (CONS '|noMapVal| NIL))))))) - (SPADLET |tar| (|getTarget| |t|)) + (setq |tar| (|getTarget| |t|)) (COND ((AND (NULL |m|) (CONSP |tar|) (EQ (QCAR |tar|) '|Mapping|) (PROGN - (SPADLET |ISTMP#1| (QCDR |tar|)) + (setq |ISTMP#1| (QCDR |tar|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |argTypes| (QCDR |ISTMP#1|)) + (setq |argTypes| (QCDR |ISTMP#1|)) 'T))) (BOOT-EQUAL (|#| |vars|) (|#| |argTypes|))) (COND @@ -288,10 +288,10 @@ There are several special modes used in these functions: (PROGN (COND ((AND (CONSP |vars|) (EQ (QCDR |vars|) NIL) - (PROGN (SPADLET |var| (QCAR |vars|)) 'T)) - (SPADLET |vars| |var|)) - ('T (SPADLET |vars| (CONS '|Tuple| |vars|)))) - (SPADLET |val| + (PROGN (setq |var| (QCAR |vars|)) 'T)) + (setq |vars| |var|)) + ('T (setq |vars| (CONS '|Tuple| |vars|)))) + (setq |val| (mkObjWrap (CONS '+-> (CONS |vars| (CONS |body| NIL))) |$AnonymousFunction|)) @@ -331,21 +331,21 @@ There are several special modes used in these functions: |$anonymousMapCounter|)) (RETURN (SEQ (PROGN - (SPADLET |$mapName| + (setq |$mapName| (|makeInternalMapName| "anonymousFunction" (|#| |vars|) |$anonymousMapCounter| "internal")) - (SPADLET |$anonymousMapCounter| + (setq |$anonymousMapCounter| (+ 1 |$anonymousMapCounter|)) - (SPADLET |$compilingMap| 'T) - (SPADLET |$mapThrowCount| 0) - (SPADLET |$mapReturnTypes| NIL) - (SPADLET |$repeatLabel| NIL) - (SPADLET |$breakCount| 0) - (SPADLET |sublist| + (setq |$compilingMap| 'T) + (setq |$mapThrowCount| 0) + (setq |$mapReturnTypes| NIL) + (setq |$repeatLabel| NIL) + (setq |$breakCount| 0) + (setq |sublist| (PROG (G166221) - (SPADLET G166221 NIL) + (setq G166221 NIL) (RETURN (DO ((G166226 |vars| (CDR G166226)) (|var| NIL)) @@ -357,10 +357,10 @@ There are several special modes used in these functions: (SEQ (EXIT (SETQ G166221 (CONS (CONS |var| (GENSYM)) G166221)))))))) - (SPADLET |body| (|sublisNQ| |sublist| |body|)) - (SPADLET |vars| + (setq |body| (|sublisNQ| |sublist| |body|)) + (setq |vars| (PROG (G166236) - (SPADLET G166236 NIL) + (setq G166236 NIL) (RETURN (DO ((G166241 |sublist| (CDR G166241)) (|v| NIL)) @@ -379,7 +379,7 @@ There are several special modes used in these functions: (PROGN (SETQ |var| (CAR G166254)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |$env| + (setq |$env| (|put| |var| '|mode| |m| |$env|)) (|mkLocalVar| |$mapName| |var|))))) (DO ((G166266 (|getLocalVars| |$mapName| |body|) @@ -389,7 +389,7 @@ There are several special modes used in these functions: (PROGN (SETQ |lvar| (CAR G166266)) NIL)) NIL) (SEQ (EXIT (|mkLocalVar| |$mapName| |lvar|)))) - (SPADLET |x| + (setq |x| (CATCH '|mapCompiler| (|compileTargetedADEF| |t| |vars| |types| |body|))) @@ -426,10 +426,10 @@ There are several special modes used in these functions: (|throwMessage| " map result type needed but not present.")) ('T - (SPADLET |arglCode| + (setq |arglCode| (CONS 'LIST (PROG (G166309) - (SPADLET G166309 NIL) + (setq G166309 NIL) (RETURN (DO ((G166315 (CDR |types|) (CDR G166315)) @@ -462,7 +462,7 @@ There are several special modes used in these functions: NIL))) G166309))))))))) (|put| |$mapName| '|mapBody| |oldBody| |$e|) - (SPADLET |body| + (setq |body| (CONS '|rewriteMap1| (CONS (MKQ |$mapName|) (CONS |arglCode| @@ -480,9 +480,9 @@ There are several special modes used in these functions: (PROG (|val| |computedResultType|) (RETURN (PROGN - (SPADLET |val| (|compileBody| |body| (CAR |types|))) - (SPADLET |computedResultType| (|objMode| |val|)) - (SPADLET |body| + (setq |val| (|compileBody| |body| (CAR |types|))) + (setq |computedResultType| (|objMode| |val|)) + (setq |body| (|wrapMapBodyWithCatch| (|flattenCOND| (|objVal| |val|)))) (|compileADEFBody| |t| |vars| |types| |body| @@ -538,22 +538,22 @@ There are several special modes used in these functions: |$minivectorNames| |$compiledOpNameList|)) (RETURN (PROGN - (SPADLET |$compiledOpNameList| (CONS |$mapName| NIL)) - (SPADLET |minivectorName| + (setq |$compiledOpNameList| (CONS |$mapName| NIL)) + (setq |minivectorName| (|makeInternalMapMinivectorName| (PNAME |$mapName|))) - (SPADLET |$minivectorNames| + (setq |$minivectorNames| (CONS (CONS |$mapName| |minivectorName|) |$minivectorNames|)) - (SPADLET |body| (MSUBST |minivectorName| '$$$ |body|)) + (setq |body| (MSUBST |minivectorName| '$$$ |body|)) (COND (|$compilingInputFile| - (SPADLET |$minivectorCode| + (setq |$minivectorCode| (APPEND |$minivectorCode| (CONS |minivectorName| NIL))))) (SET |minivectorName| (LIST2REFVEC |$minivector|)) (COND ((AND (NULL |$definingMap|) (OR |$genValue| |$compilingMap|)) - (SPADLET |fun| + (setq |fun| (CONS 'function (CONS (CONS 'LAMBDA (CONS @@ -561,13 +561,13 @@ There are several special modes used in these functions: (CONS '|envArg| NIL)) (CONS |body| NIL))) NIL))) - (SPADLET |code| + (setq |code| (|wrap| (|timedEVALFUN| (CONS 'LIST (CONS |fun| NIL)))))) - ('T (SPADLET |$freeVariables| NIL) - (SPADLET |$boundVariables| (CONS |minivectorName| |vars|)) - (SPADLET |body| (|checkForFreeVariables| |body| 'ALL)) - (SPADLET |fun| + ('T (setq |$freeVariables| NIL) + (setq |$boundVariables| (CONS |minivectorName| |vars|)) + (setq |body| (|checkForFreeVariables| |body| 'ALL)) + (setq |fun| (CONS 'function (CONS (CONS 'LAMBDA (CONS @@ -575,15 +575,15 @@ There are several special modes used in these functions: (CONS '|envArg| NIL)) (CONS |body| NIL))) NIL))) - (SPADLET |code| + (setq |code| (CONS 'CONS (CONS |fun| (CONS (CONS 'VECTOR (REVERSE |$freeVariables|)) NIL)))))) - (SPADLET |val| + (setq |val| (mkObj |code| - (SPADLET |rt| + (setq |rt| (CONS '|Mapping| (CONS |computedResultType| (CDR |types|)))))) @@ -644,74 +644,74 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |var| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |eq| (QCAR |ISTMP#2|)) + (setq |eq| (QCAR |ISTMP#2|)) 'T))))))) NIL) ((NULL |$genValue|) (|throwKeyedMsg| "Cannot compile algebraic extension declarations yet." NIL)) - ('T (SPADLET |a| (|getUnname| |var|)) + ('T (setq |a| (|getUnname| |var|)) (|clearCmdParts| (CONS '|propert| (CONS |a| NIL))) - (SPADLET |algExtension| (|eq2AlgExtension| |eq|)) - (SPADLET |upmode| + (setq |algExtension| (|eq2AlgExtension| |eq|)) + (setq |upmode| (CONS '|UnivariatePolynomial| (CONS |a| (CONS |$EmptyMode| NIL)))) - (SPADLET |$declaredMode| |upmode|) + (setq |$declaredMode| |upmode|) (|putTarget| |algExtension| |upmode|) - (SPADLET |ms| (|bottomUp| |algExtension|)) - (SPADLET |triple| (|getValue| |algExtension|)) - (SPADLET |upmode| + (setq |ms| (|bottomUp| |algExtension|)) + (setq |triple| (|getValue| |algExtension|)) + (setq |upmode| (|resolveTMOrCroak| (|objMode| |triple|) |upmode|)) (COND - ((NULL (SPADLET T$ (|coerceInteractive| |triple| |upmode|))) + ((NULL (setq T$ (|coerceInteractive| |triple| |upmode|))) (|throwKeyedMsgCannotCoerceWithValue| (|objVal| |triple|) (|objMode| |triple|) |upmode|)) - ('T (SPADLET |newmode| (|objMode| T$)) - (OR (SPADLET |field| + ('T (setq |newmode| (|objMode| T$)) + (OR (setq |field| (|resolveTCat| (CADDR |newmode|) '(|Field|))) (|throwKeyedMsg| "Cannot pass to a field from the domain %1p ." (CONS |eq| NIL))) - (SPADLET |pd| + (setq |pd| (CONS '|UnivariatePolynomial| (CONS |a| (CONS |field| NIL)))) (COND - ((NULL (SPADLET |canonicalAE| + ((NULL (setq |canonicalAE| (|coerceInteractive| T$ |pd|))) (|throwKeyedMsgCannotCoerceWithValue| (|objVal| T$) (|objMode| T$) |pd|)) ('T - (SPADLET |sae| + (setq |sae| (CONS '|SimpleAlgebraicExtension| (CONS |field| (CONS |pd| (CONS (|objValUnwrap| |canonicalAE|) NIL))))) - (SPADLET |saeTypeSynonym| + (setq |saeTypeSynonym| (INTERN (STRCONC "SAE" (STRINGIMAGE |a|)))) - (SPADLET |saeTypeSynonymValue| + (setq |saeTypeSynonymValue| (mkObj |sae| '(|Domain|))) - (SPADLET |fun| + (setq |fun| (|getFunctionFromDomain| '|generator| |sae| NIL)) - (SPADLET |expr| (|wrap| (SPADCALL |fun|))) + (setq |expr| (|wrap| (SPADCALL |fun|))) (|putHist| |saeTypeSynonym| '|value| |saeTypeSynonymValue| |$e|) (|putHist| |a| '|mode| |sae| |$e|) (|putHist| |a| '|value| - (SPADLET T2 (mkObj |expr| |sae|)) |$e|) + (setq T2 (mkObj |expr| |sae|)) |$e|) (|clearDependencies| |a| 'T) (COND (|$printTypeIfTrue| @@ -751,8 +751,8 @@ There are several special modes used in these functions: (COND ((AND (CONSP |eq|) (PROGN - (SPADLET |op| (QCAR |eq|)) - (SPADLET |l| (QCDR |eq|)) + (setq |op| (QCAR |eq|)) + (setq |l| (QCDR |eq|)) 'T) (VECP |op|) (BOOT-EQUAL (|getUnname| |op|) '|equation|)) (CONS (|mkAtreeNode| '-) |l|)) @@ -795,21 +795,21 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |term1| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |term1| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |term2| (QCAR |ISTMP#2|)) + (setq |term2| (QCAR |ISTMP#2|)) 'T))))))) NIL) ('T (|putTarget| |term1| |$Boolean|) (|putTarget| |term2| |$Boolean|) - (SPADLET |ms| (|bottomUp| |term1|)) + (setq |ms| (|bottomUp| |term1|)) (COND ((NULL (AND (CONSP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) @@ -823,7 +823,7 @@ There are several special modes used in these functions: (|getConstantFromDomain| '(|false|) |$Boolean|)) (|putValue| |x| (|getValue| |term1|)) (|putModeSet| |x| |ms|)) - ('T (SPADLET |ms| (|bottomUp| |term2|)) + ('T (setq |ms| (|bottomUp| |term2|)) (COND ((NULL (AND (CONSP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) @@ -833,7 +833,7 @@ There are several special modes used in these functions: |term2|)) ('T (|putValue| |x| (|getValue| |term2|)) (|putModeSet| |x| |ms|)))))) - ('T (SPADLET |ms| (|bottomUp| |term2|)) + ('T (setq |ms| (|bottomUp| |term2|)) (COND ((NULL (AND (CONSP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) @@ -841,12 +841,12 @@ There are several special modes used in these functions: "Argument number %1 to %2 must be a Boolean." (CONS 2 (CONS "\"and\"" NIL)) |term2|)) ('T - (SPADLET |cond| + (setq |cond| (CONS (|mkAtreeNode| '=) (CONS (|mkAtree| '|false|) (CONS |term1| NIL)))) (|putTarget| |cond| |$Boolean|) - (SPADLET |code| + (setq |code| (CONS (|mkAtreeNode| 'IF) (CONS |cond| (CONS (|mkAtree| '|false|) @@ -891,21 +891,21 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |term1| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |term1| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |term2| (QCAR |ISTMP#2|)) + (setq |term2| (QCAR |ISTMP#2|)) 'T))))))) NIL) ('T (|putTarget| |term1| |$Boolean|) (|putTarget| |term2| |$Boolean|) - (SPADLET |ms| (|bottomUp| |term1|)) + (setq |ms| (|bottomUp| |term1|)) (COND ((NULL (AND (CONSP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) @@ -919,7 +919,7 @@ There are several special modes used in these functions: (|getConstantFromDomain| '(|true|) |$Boolean|)) (|putValue| |x| (|getValue| |term1|)) (|putModeSet| |x| |ms|)) - ('T (SPADLET |ms| (|bottomUp| |term2|)) + ('T (setq |ms| (|bottomUp| |term2|)) (COND ((NULL (AND (CONSP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) @@ -929,7 +929,7 @@ There are several special modes used in these functions: |term2|)) ('T (|putValue| |x| (|getValue| |term2|)) (|putModeSet| |x| |ms|)))))) - ('T (SPADLET |ms| (|bottomUp| |term2|)) + ('T (setq |ms| (|bottomUp| |term2|)) (COND ((NULL (AND (CONSP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) @@ -937,12 +937,12 @@ There are several special modes used in these functions: "Argument number %1 to %2 must be a Boolean." (CONS 2 (CONS "\"or\"" NIL)) |term2|)) ('T - (SPADLET |cond| + (setq |cond| (CONS (|mkAtreeNode| '=) (CONS (|mkAtree| '|true|) (CONS |term1| NIL)))) (|putTarget| |cond| |$Boolean|) - (SPADLET |code| + (setq |code| (CONS (|mkAtreeNode| 'IF) (CONS |cond| (CONS (|mkAtree| '|true|) @@ -993,28 +993,28 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |lhs| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |lhs| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |rhs| + (setq |rhs| (QCAR |ISTMP#2|)) 'T))))))) NIL) ('T (|bottomUp| |lhs|) - (SPADLET |triple| (|getValue| |lhs|)) + (setq |triple| (|getValue| |lhs|)) (COND ((NULL (PROGN - (SPADLET |ISTMP#1| (|objMode| |triple|)) + (setq |ISTMP#1| (|objMode| |triple|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Union|) (PROGN - (SPADLET |unionDoms| (QCDR |ISTMP#1|)) + (setq |unionDoms| (QCDR |ISTMP#1|)) 'T)))) (|throwKeyedMsg| (format nil @@ -1023,17 +1023,17 @@ There are several special modes used in these functions: NIL)) ('T (COND - ((SPADLET |rhs'| (|isDomainValuedVariable| |rhs|)) - (SPADLET |rhs| |rhs'|))) + ((setq |rhs'| (|isDomainValuedVariable| |rhs|)) + (setq |rhs| |rhs'|))) (COND ((PROGN - (SPADLET |ISTMP#1| (CAR |unionDoms|)) + (setq |ISTMP#1| (CAR |unionDoms|)) (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| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL))))))) @@ -1047,15 +1047,15 @@ There are several special modes used in these functions: ((AND (CONSP |d|) (EQ (QCAR |d|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |d|)) + (setq |ISTMP#1| (QCDR |d|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |rhs|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL)))))) - (SPADLET |rhstag| |i|)) + (setq |rhstag| |i|)) ('T NIL))))) (COND ((NULL |rhstag|) @@ -1065,10 +1065,10 @@ There are several special modes used in these functions: (COND ((BOOT-EQUAL |rhstag| (CAR (|unwrap| (|objVal| |triple|)))) - (SPADLET |code| (|wrap| 'TRUE))) - ('T (SPADLET |code| (|wrap| NIL))))) + (setq |code| (|wrap| 'TRUE))) + ('T (setq |code| (|wrap| NIL))))) ('T - (SPADLET |code| + (setq |code| (CONS 'COND (CONS (CONS @@ -1086,18 +1086,18 @@ There are several special modes used in these functions: (CONS (CONS ''T (CONS NIL NIL)) NIL))))))) (|$genValue| - (SPADLET |t'| (|coerceUnion2Branch| |triple|)) + (setq |t'| (|coerceUnion2Branch| |triple|)) (COND ((BOOT-EQUAL |rhs| (|objMode| |t'|)) - (SPADLET |code| (|wrap| 'TRUE))) - ('T (SPADLET |code| (|wrap| NIL))))) + (setq |code| (|wrap| 'TRUE))) + ('T (setq |code| (|wrap| NIL))))) ('T - (SPADLET |triple'| + (setq |triple'| (mkObjCode (CONS '|wrap| (CONS (|objVal| |triple|) NIL)) (|objMode| |triple|))) - (SPADLET |code| + (setq |code| (CONS 'COND (CONS (CONS @@ -1143,22 +1143,22 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |lhs| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |lhs| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |rhs| + (setq |rhs| (QCAR |ISTMP#2|)) 'T))))))) NIL) ((AND (NULL |$genValue|) (PROG (G166618) - (SPADLET G166618 NIL) + (setq G166618 NIL) (RETURN (DO ((G166624 NIL G166618) (G166625 |$localVars| (CDR G166625)) @@ -1177,8 +1177,8 @@ There are several special modes used in these functions: variables. In particular, could not compile the expression ~ involving @ %1p") (CONS |rhs| NIL))) - ('T (SPADLET |$declaredMode| NIL) - (SPADLET |m| (|evaluateType| (|unabbrev| |rhs|))) + ('T (setq |$declaredMode| NIL) + (setq |m| (|evaluateType| (|unabbrev| |rhs|))) (COND ((NULL (|isLegitimateMode| |m| NIL NIL)) (|throwKeyedMsg| "%1p is not a valid type." (CONS |m| NIL))) @@ -1188,9 +1188,9 @@ There are several special modes used in these functions: "You cannot use %1p or any other category in a target, ~ coercion, or package-call context.") (CONS |m| NIL))) - ('T (SPADLET |$declaredMode| |m|) + ('T (setq |$declaredMode| |m|) (AND (NULL (ATOM |lhs|)) (|putTarget| |lhs| |m|)) - (SPADLET |ms| (|bottomUp| |lhs|)) + (setq |ms| (|bottomUp| |lhs|)) (COND ((NEQUAL (CAR |ms|) |m|) (|throwKeyedMsg| @@ -1233,24 +1233,24 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |lhs| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |lhs| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |rhs| + (setq |rhs| (QCAR |ISTMP#2|)) 'T))))))) NIL) - ('T (SPADLET |$useConvertForCoercions| 'T) + ('T (setq |$useConvertForCoercions| 'T) (COND ((AND (NULL |$genValue|) (PROG (G166672) - (SPADLET G166672 NIL) + (setq G166672 NIL) (RETURN (DO ((G166678 NIL G166672) (G166679 |$localVars| (CDR G166679)) @@ -1269,8 +1269,8 @@ There are several special modes used in these functions: variables. In particular, could not compile the ~ expression involving :: %1p ") (CONS |rhs| NIL))) - ('T (SPADLET |$declaredMode| NIL) - (SPADLET |m| (|evaluateType| (|unabbrev| |rhs|))) + ('T (setq |$declaredMode| NIL) + (setq |m| (|evaluateType| (|unabbrev| |rhs|))) (COND ((NULL (|isLegitimateMode| |m| NIL NIL)) (|throwKeyedMsg| "%1p is not a valid type." @@ -1281,8 +1281,8 @@ There are several special modes used in these functions: "You cannot use %1p or any other category in a target, ~ coercion, or package-call context.") (CONS |m| NIL))) - ('T (SPADLET |$declaredMode| |m|) (|bottomUp| |lhs|) - (SPADLET |type| (|evalCOERCE| |op| |lhs| |m|)) + ('T (setq |$declaredMode| |m|) (|bottomUp| |lhs|) + (setq |type| (|evalCOERCE| |op| |lhs| |m|)) (|putModeSet| |op| (CONS |type| NIL)))))))))))) ;evalCOERCE(op,tree,m) == @@ -1315,18 +1315,18 @@ There are several special modes used in these functions: (declare (special |$genValue|)) (RETURN (PROGN - (SPADLET |v| (|getValue| |tree|)) - (SPADLET |t1| (|objMode| |v|)) + (setq |v| (|getValue| |tree|)) + (setq |t1| (|objMode| |v|)) (COND ((AND |$genValue| (CONSP |t1|) (EQ (QCAR |t1|) '|Union|)) - (SPADLET |v| (|coerceUnion2Branch| |v|)) - (SPADLET |t1| (|objMode| |v|)))) - (SPADLET |e| (|objVal| |v|)) - (SPADLET |value| + (setq |v| (|coerceUnion2Branch| |v|)) + (setq |t1| (|objMode| |v|)))) + (setq |e| (|objVal| |v|)) + (setq |value| (COND ((BOOT-EQUAL |t1| |m|) |v|) ('T - (SPADLET |t2| + (setq |t2| (COND ((|isPartialMode| |m|) (COND @@ -1346,7 +1346,7 @@ There are several special modes used in these functions: |m|)) (|$genValue| (|coerceOrRetract| |v| |t2|)) ('T (mkObj (|getArgValue| |tree| |t2|) |t2|)))))) - (SPADLET |val| + (setq |val| (OR |value| (|throwKeyedMsgCannotCoerceWithValue| |e| |t1| |m|))) @@ -1389,12 +1389,12 @@ There are several special modes used in these functions: |iterList|) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| (REVERSE G166863)) - (SPADLET |body| (CAR |LETTMP#1|)) - (SPADLET |itrl| (NREVERSE (CDR |LETTMP#1|))) - (SPADLET |iterList| + (setq |LETTMP#1| (REVERSE G166863)) + (setq |body| (CAR |LETTMP#1|)) + (setq |itrl| (NREVERSE (CDR |LETTMP#1|))) + (setq |iterList| (PROG (G166918) - (SPADLET G166918 NIL) + (setq G166918 NIL) (RETURN (DO ((G166958 |itrl| (CDR G166958)) (|it| NIL)) @@ -1409,28 +1409,28 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) 'STEP) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |lower| + (setq |lower| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |step| + (setq |step| (QCAR |ISTMP#3|)) - (SPADLET + (setq |upperList| (QCDR |ISTMP#3|)) @@ -1443,7 +1443,7 @@ There are several special modes used in these functions: (CONS (|mkAtree1| |step|) (PROG (G166968) - (SPADLET G166968 + (setq G166968 NIL) (RETURN (DO @@ -1473,20 +1473,20 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) 'IN) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (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)))))) (CONS @@ -1498,20 +1498,20 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) 'ON) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (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)))))) (CONS @@ -1526,13 +1526,13 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) 'WHILE) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#1|)) 'T)))) (CONS @@ -1543,13 +1543,13 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) '|\||) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) (CONS @@ -1559,17 +1559,17 @@ There are several special modes used in these functions: NIL)) ((AND (CONSP |it|) (PROGN - (SPADLET |op| + (setq |op| (QCAR |it|)) 'T) (|member| |op| '(VALUE UNTIL))) NIL)))))))))) - (SPADLET |bodyTree| (|mkAtree1| |body|)) - (SPADLET |iterList| + (setq |bodyTree| (|mkAtree1| |body|)) + (setq |iterList| (NCONC |iterList| (PROG (G166979) - (SPADLET G166979 NIL) + (setq G166979 NIL) (RETURN (DO ((G166993 |itrl| (CDR G166993)) @@ -1598,13 +1598,13 @@ There are several special modes used in these functions: NIL) ((AND (CONSP |it|) (PROGN - (SPADLET |op| (QCAR |it|)) - (SPADLET |ISTMP#1| + (setq |op| (QCAR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#1|)) 'T))) (|member| |op| '(UNTIL))) @@ -1615,12 +1615,12 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) '|\||) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) NIL) @@ -1656,8 +1656,8 @@ There are several special modes used in these functions: (DECLARE (SPECIAL |$compilingLoop|)) (RETURN (PROGN - (SPADLET |$compilingLoop| 'T) - (SPADLET |ms| (CATCH '|loopCompiler| (|upCOLLECT1| |t|))) + (setq |$compilingLoop| 'T) + (setq |ms| (CATCH '|loopCompiler| (|upCOLLECT1| |t|))) (COND ((BOOT-EQUAL |ms| '|tryInterpOnly|) (|interpOnlyCOLLECT| |t|)) @@ -1688,35 +1688,35 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T) (CONSP |ISTMP#2|) (PROGN - (SPADLET |body| (QCAR |ISTMP#2|)) - (SPADLET |itrl| (QCDR |ISTMP#2|)) + (setq |body| (QCAR |ISTMP#2|)) + (setq |itrl| (QCDR |ISTMP#2|)) 'T) (PROGN - (SPADLET |itrl| (NREVERSE |itrl|)) + (setq |itrl| (NREVERSE |itrl|)) 'T))))) NIL) ('T (COND - ((AND (SPADLET |target| (|getTarget| |t|)) + ((AND (setq |target| (|getTarget| |t|)) (NULL (|getTarget| |body|))) (COND ((AND (CONSP |target|) (PROGN - (SPADLET |agg| (QCAR |target|)) - (SPADLET |ISTMP#1| (QCDR |target|)) + (setq |agg| (QCAR |target|)) + (setq |ISTMP#1| (QCDR |target|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET S (QCAR |ISTMP#1|)) + (setq S (QCAR |ISTMP#1|)) 'T))) (|member| |agg| '(|List| |Vector| |Stream| @@ -1728,8 +1728,8 @@ There are several special modes used in these functions: ((|isStreamCollect| |itrl|) (|collectStream| |t| |op| |itrl| |body|)) ('T (|upLoopIters| |itrl|) - (SPADLET |ms| (|bottomUpCompile| |body|)) - (SPADLET |m| (CAR |ms|)) + (setq |ms| (|bottomUpCompile| |body|)) + (setq |m| (CAR |ms|)) (SEQ (DO ((G167093 |itrl| (CDR G167093)) (|itr| NIL)) ((OR (ATOM G167093) @@ -1741,18 +1741,18 @@ There are several special modes used in these functions: ((AND (CONSP |itr|) (EQ (QCAR |itr|) 'UNTIL) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |itr|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) (EXIT (|bottomUpCompilePredicate| |pred| "until"))))))) - (SPADLET |mode| (CONS '|Tuple| (CONS |m| NIL))) + (setq |mode| (CONS '|Tuple| (CONS |m| NIL))) (|evalCOLLECT| |op| (CDR |t|) |mode|) (|putModeSet| |op| (CONS |mode| NIL))))))))))) @@ -1787,11 +1787,11 @@ There are several special modes used in these functions: ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'WHILE) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) (|bottomUpCompilePredicate| |pred| @@ -1799,11 +1799,11 @@ There are several special modes used in these functions: ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'SUCHTHAT) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) (|bottomUpCompilePredicate| |pred| @@ -1813,40 +1813,40 @@ There are several special modes used in these functions: NIL) ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'IN) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (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)))))) (|upLoopIterIN| |iter| |index| |s|)) ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'STEP) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |lower| + (setq |lower| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |step| + (setq |step| (QCAR |ISTMP#3|)) - (SPADLET |upperList| + (setq |upperList| (QCDR |ISTMP#3|)) 'T)))))))) (|upLoopIterSTEP| |index| |lower| |step| @@ -1888,7 +1888,7 @@ There are several special modes used in these functions: (declare (special |$env| |$genValue|)) (RETURN (PROGN - (SPADLET |iterMs| (|bottomUp| |s|)) + (setq |iterMs| (|bottomUp| |s|)) (COND ((NULL (IDENTP |index|)) (|throwKeyedMsg| @@ -1900,37 +1900,37 @@ There are several special modes used in these functions: (COND ((AND |$genValue| (PROGN - (SPADLET |ISTMP#1| (CAR |iterMs|)) + (setq |ISTMP#1| (CAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Union|)))) - (SPADLET |v| (|coerceUnion2Branch| (|getValue| |s|))) - (SPADLET |m| (|objMode| |v|)) (|putValue| |s| |v|) - (|putMode| |s| |m|) (SPADLET |iterMs| (CONS |m| NIL)) + (setq |v| (|coerceUnion2Branch| (|getValue| |s|))) + (setq |m| (|objMode| |v|)) (|putValue| |s| |v|) + (|putMode| |s| |m|) (setq |iterMs| (CONS |m| NIL)) (|putModeSet| |s| |iterMs|))) (COND ((OR (AND (CONSP |iterMs|) (EQ (QCDR |iterMs|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |iterMs|)) + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Segment|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL)))))) (AND (CONSP |iterMs|) (EQ (QCDR |iterMs|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |iterMs|)) + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|UniversalSegment|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL))))))) - (SPADLET |lower| + (setq |lower| (CONS (|mkAtreeNode| '|lo|) (CONS |s| NIL))) - (SPADLET |step| + (setq |step| (CONS (|mkAtreeNode| '|incr|) (CONS |s| NIL))) - (SPADLET |upperList| + (setq |upperList| (COND ((BOOT-EQUAL (CAAR |iterMs|) '|Segment|) (CONS (CONS (|mkAtreeNode| '|hi|) @@ -1938,7 +1938,7 @@ There are several special modes used in these functions: NIL)) ('T NIL))) (|upLoopIterSTEP| |index| |lower| |step| |upperList|) - (SPADLET |newIter| + (setq |newIter| (CONS 'STEP (CONS |index| (CONS |lower| @@ -1947,15 +1947,15 @@ There are several special modes used in these functions: (RPLACD |iter| (CDR |newIter|))) ((NULL (AND (CONSP |iterMs|) (EQ (QCDR |iterMs|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |iterMs|)) + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|List|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ud| + (setq |ud| (QCAR |ISTMP#2|)) 'T))))))) (|throwKeyedMsg| @@ -2000,7 +2000,7 @@ There are several special modes used in these functions: is not one.") (CONS |index| NIL))) ('T - (SPADLET |ltype| + (setq |ltype| (IFCAR (|bottomUpUseSubdomain| |lower|))) (COND ((NULL (OR (|typeIsASmallInteger| |ltype|) @@ -2009,7 +2009,7 @@ There are several special modes used in these functions: "The %1 bound in a loop must be an integer." (CONS "lower" NIL))) ('T - (SPADLET |stype| + (setq |stype| (IFCAR (|bottomUpUseSubdomain| |step|))) (COND ((NULL (OR (|typeIsASmallInteger| |stype|) @@ -2017,8 +2017,8 @@ There are several special modes used in these functions: (|throwKeyedMsg| "The step value in a loop must be a constant integer." NIL)) - ('T (SPADLET |types| (CONS |ltype| NIL)) - (SPADLET |utype| NIL) + ('T (setq |types| (CONS |ltype| NIL)) + (setq |utype| NIL) (DO ((G167292 |upperList| (CDR G167292)) (|upper| NIL)) ((OR (ATOM G167292) @@ -2027,7 +2027,7 @@ There are several special modes used in these functions: NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |utype| + (setq |utype| (IFCAR (|bottomUpUseSubdomain| |upper|))) (COND @@ -2040,9 +2040,9 @@ There are several special modes used in these functions: "The %1 bound in a loop must be an integer." (CONS "upper" NIL)))))))) (COND - (|utype| (SPADLET |types| (CONS |utype| |types|))) - ('T (SPADLET |types| (CONS |stype| |types|)))) - (SPADLET |type| + (|utype| (setq |types| (CONS |utype| |types|))) + ('T (setq |types| (CONS |stype| |types|)))) + (setq |type| (|resolveTypeListAny| (REMDUP |types|))) (|put| |index| '|mode| |type| |$env|) (|mkLocalVar| @@ -2061,12 +2061,12 @@ There are several special modes used in these functions: (declare (special |$genValue|)) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| (REVERSE G167310)) - (SPADLET |body| (CAR |LETTMP#1|)) - (SPADLET |itrl| (NREVERSE (CDR |LETTMP#1|))) - (SPADLET |iters| + (setq |LETTMP#1| (REVERSE G167310)) + (setq |body| (CAR |LETTMP#1|)) + (setq |itrl| (NREVERSE (CDR |LETTMP#1|))) + (setq |iters| (PROG (G167325) - (SPADLET G167325 NIL) + (setq G167325 NIL) (RETURN (DO ((G167330 |itrl| (CDR G167330)) (|itr| NIL)) @@ -2078,19 +2078,19 @@ There are several special modes used in these functions: (SEQ (EXIT (SETQ G167325 (CONS (|evalLoopIter| |itr|) G167325)))))))) - (SPADLET |bod| + (setq |bod| (|getArgValue| |body| (|computedMode| |body|))) (COND ((NULL (AND (CONSP |bod|) (EQ (QCAR |bod|) 'SPADCALL))) - (SPADLET |bode| (CONS '|unwrap| (CONS |bod| NIL))))) - (SPADLET |code| + (setq |bode| (CONS '|unwrap| (CONS |bod| NIL))))) + (setq |code| (|timedOptimization| (|asTupleNewCode0| (CONS 'COLLECT (APPEND |iters| (CONS |bod| NIL)))))) (COND (|$genValue| - (SPADLET |code| (|wrap| (|timedEVALFUN| |code|))))) + (setq |code| (|wrap| (|timedEVALFUN| |code|))))) (|putValue| |op| (mkObj |code| |m|))))))) ;falseFun(x) == nil @@ -2122,19 +2122,19 @@ There are several special modes used in these functions: (SEQ (COND ((AND (CONSP |itr|) (EQ (QCAR |itr|) 'STEP) (PROGN - (SPADLET |ISTMP#1| (QCDR |itr|)) + (setq |ISTMP#1| (QCDR |itr|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |index| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |lower| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |lower| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |step| (QCAR |ISTMP#3|)) - (SPADLET |upperList| + (setq |step| (QCAR |ISTMP#3|)) + (setq |upperList| (QCDR |ISTMP#3|)) 'T)))))))) (CONS 'STEP @@ -2142,7 +2142,7 @@ There are several special modes used in these functions: (CONS (|getArgValue| |lower| |$Integer|) (CONS (|getArgValue| |step| |$Integer|) (PROG (G167465) - (SPADLET G167465 NIL) + (setq G167465 NIL) (RETURN (DO ((G167470 |upperList| @@ -2163,19 +2163,19 @@ There are several special modes used in these functions: G167465)))))))))))) ((AND (CONSP |itr|) (EQ (QCAR |itr|) 'ISTEP) (PROGN - (SPADLET |ISTMP#1| (QCDR |itr|)) + (setq |ISTMP#1| (QCDR |itr|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |index| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |lower| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |lower| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |step| (QCAR |ISTMP#3|)) - (SPADLET |upperList| + (setq |step| (QCAR |ISTMP#3|)) + (setq |upperList| (QCDR |ISTMP#3|)) 'T)))))))) (CONS 'ISTEP @@ -2184,7 +2184,7 @@ There are several special modes used in these functions: (CONS (|getArgValue| |step| |$SmallInteger|) (PROG (G167480) - (SPADLET G167480 NIL) + (setq G167480 NIL) (RETURN (DO ((G167485 |upperList| @@ -2205,15 +2205,15 @@ There are several special modes used in these functions: G167480)))))))))))) ((AND (CONSP |itr|) (EQ (QCAR |itr|) 'IN) (PROGN - (SPADLET |ISTMP#1| (QCDR |itr|)) + (setq |ISTMP#1| (QCDR |itr|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |index| (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)))))) (CONS 'IN (CONS (|getUnname| |index|) @@ -2225,10 +2225,10 @@ There are several special modes used in these functions: NIL)))) ((AND (CONSP |itr|) (PROGN - (SPADLET |x| (QCAR |itr|)) - (SPADLET |ISTMP#1| (QCDR |itr|)) + (setq |x| (QCAR |itr|)) + (setq |ISTMP#1| (QCDR |itr|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |pred| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |pred| (QCAR |ISTMP#1|)) 'T))) (|member| |x| '(WHILE UNTIL SUCHTHAT))) (CONS |x| (CONS (|getArgValue| |pred| |$Boolean|) NIL)))))))) @@ -2258,16 +2258,16 @@ There are several special modes used in these functions: (DECLARE (SPECIAL |$collectTypeList| |$indexVars| |$indexTypes|)) (RETURN (SEQ (PROGN - (SPADLET |$collectTypeList| NIL) - (SPADLET |$indexVars| NIL) - (SPADLET |$indexTypes| NIL) + (setq |$collectTypeList| NIL) + (setq |$indexVars| NIL) + (setq |$indexTypes| NIL) (|emptyAtree| |op|) (|emptyAtree| |itrl|) (|emptyAtree| |body|) - (SPADLET |code| + (setq |code| (CONS 'COLLECT (APPEND (PROG (G167523) - (SPADLET G167523 NIL) + (setq G167523 NIL) (RETURN (DO ((G167528 |itrl| @@ -2288,15 +2288,15 @@ There are several special modes used in these functions: (|interpCOLLECTbody| |body| |$indexVars| |$indexTypes|) NIL)))) - (SPADLET |value| (|timedEVALFUN| |code|)) - (SPADLET |t| + (setq |value| (|timedEVALFUN| |code|)) + (setq |t| (COND ((NULL |value|) '(|None|)) ('T (|last| |$collectTypeList|)))) - (SPADLET |rm| (CONS '|Tuple| (CONS |t| NIL))) - (SPADLET |value| + (setq |rm| (CONS '|Tuple| (CONS |t| NIL))) + (setq |value| (PROG (G167539) - (SPADLET G167539 NIL) + (setq G167539 NIL) (RETURN (DO ((G167545 |value| (CDR G167545)) (|v| NIL) @@ -2359,26 +2359,26 @@ There are several special modes used in these functions: (SEQ (COND ((AND (CONSP |itr|) (EQ (QCAR |itr|) 'STEP) (PROGN - (SPADLET |ISTMP#1| (QCDR |itr|)) + (setq |ISTMP#1| (QCDR |itr|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |index| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |lower| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |lower| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |step| (QCAR |ISTMP#3|)) - (SPADLET |upperList| + (setq |step| (QCAR |ISTMP#3|)) + (setq |upperList| (QCDR |ISTMP#3|)) 'T)))))))) - (SPADLET |$indexVars| + (setq |$indexVars| (CONS (|getUnname| |index|) |$indexVars|)) - (SPADLET |LETTMP#1| (|bottomUp| |lower|)) - (SPADLET |m| (CAR |LETTMP#1|)) - (SPADLET |$indexTypes| (CONS |m| |$indexTypes|)) + (setq |LETTMP#1| (|bottomUp| |lower|)) + (setq |m| (CAR |LETTMP#1|)) + (setq |$indexTypes| (CONS |m| |$indexTypes|)) (DO ((G167709 |upperList| (CDR G167709)) (|up| NIL)) ((OR (ATOM G167709) (PROGN (SETQ |up| (CAR G167709)) NIL)) @@ -2389,7 +2389,7 @@ There are several special modes used in these functions: (CONS (|getArgValue| |lower| |$Integer|) (CONS (|getArgValue| |step| |$Integer|) (PROG (G167719) - (SPADLET G167719 NIL) + (setq G167719 NIL) (RETURN (DO ((G167724 |upperList| @@ -2410,26 +2410,26 @@ There are several special modes used in these functions: G167719)))))))))))) ((AND (CONSP |itr|) (EQ (QCAR |itr|) 'ISTEP) (PROGN - (SPADLET |ISTMP#1| (QCDR |itr|)) + (setq |ISTMP#1| (QCDR |itr|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |index| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |lower| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |lower| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |step| (QCAR |ISTMP#3|)) - (SPADLET |upperList| + (setq |step| (QCAR |ISTMP#3|)) + (setq |upperList| (QCDR |ISTMP#3|)) 'T)))))))) - (SPADLET |$indexVars| + (setq |$indexVars| (CONS (|getUnname| |index|) |$indexVars|)) - (SPADLET |LETTMP#1| (|bottomUp| |lower|)) - (SPADLET |m| (CAR |LETTMP#1|)) - (SPADLET |$indexTypes| (CONS |m| |$indexTypes|)) + (setq |LETTMP#1| (|bottomUp| |lower|)) + (setq |m| (CAR |LETTMP#1|)) + (setq |$indexTypes| (CONS |m| |$indexTypes|)) (DO ((G167733 |upperList| (CDR G167733)) (|up| NIL)) ((OR (ATOM G167733) (PROGN (SETQ |up| (CAR G167733)) NIL)) @@ -2441,7 +2441,7 @@ There are several special modes used in these functions: (CONS (|getArgValue| |step| |$SmallInteger|) (PROG (G167743) - (SPADLET G167743 NIL) + (setq G167743 NIL) (RETURN (DO ((G167748 |upperList| @@ -2462,44 +2462,44 @@ There are several special modes used in these functions: G167743)))))))))))) ((AND (CONSP |itr|) (EQ (QCAR |itr|) 'IN) (PROGN - (SPADLET |ISTMP#1| (QCDR |itr|)) + (setq |ISTMP#1| (QCDR |itr|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |index| (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 |$indexVars| + (setq |$indexVars| (CONS (|getUnname| |index|) |$indexVars|)) - (SPADLET |LETTMP#1| (|bottomUp| |s|)) - (SPADLET |m| (CAR |LETTMP#1|)) + (setq |LETTMP#1| (|bottomUp| |s|)) + (setq |m| (CAR |LETTMP#1|)) (COND ((NULL (AND (CONSP |m|) (EQ (QCAR |m|) '|List|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |um| (QCAR |ISTMP#1|)) + (setq |um| (QCAR |ISTMP#1|)) 'T))))) (|throwKeyedMsg| (format nil "Axiom can only iterate over lists now and you supplied an ~ object of type %1p .") (CONS |m| NIL))) - ('T (SPADLET |$indexTypes| (CONS |um| |$indexTypes|)) + ('T (setq |$indexTypes| (CONS |um| |$indexTypes|)) (CONS 'IN (CONS (|getUnname| |index|) (CONS (|getArgValue| |s| |m|) NIL)))))) ((AND (CONSP |itr|) (PROGN - (SPADLET |x| (QCAR |itr|)) - (SPADLET |ISTMP#1| (QCDR |itr|)) + (setq |x| (QCAR |itr|)) + (setq |ISTMP#1| (QCDR |itr|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |pred| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |pred| (QCAR |ISTMP#1|)) 'T))) (|member| |x| '(WHILE UNTIL SUCHTHAT))) (CONS |x| (CONS (|interpLoop| |pred| |$indexVars| @@ -2517,8 +2517,8 @@ There are several special modes used in these functions: (DECLARE (SPECIAL |$genValue| |$interpOnly|)) (RETURN (PROGN - (SPADLET |$genValue| 'T) - (SPADLET |$interpOnly| 'T) + (setq |$genValue| 'T) + (setq |$interpOnly| 'T) (|upCOLLECT| |t|))))) ;interpCOLLECTbody(expr,indexList,indexTypes) == @@ -2569,15 +2569,15 @@ There are several special modes used in these functions: NIL) (SEQ (EXIT (|put| |i| '|value| (mkObjWrap |val| |type|) |$env|)))) - (SPADLET |LETTMP#1| (|bottomUp| |exp|)) - (SPADLET |m| (CAR |LETTMP#1|)) - (SPADLET |$collectTypeList| + (setq |LETTMP#1| (|bottomUp| |exp|)) + (setq |m| (CAR |LETTMP#1|)) + (setq |$collectTypeList| (COND ((NULL |$collectTypeList|) - (CONS (SPADLET |rm| |m|) NIL)) + (CONS (setq |rm| |m|) NIL)) ('T (APPEND |$collectTypeList| - (CONS (SPADLET |rm| + (CONS (setq |rm| (|resolveTT| |m| (|last| |$collectTypeList|))) NIL))))) @@ -2585,7 +2585,7 @@ There are several special modes used in these functions: ((NULL |rm|) (|throwKeyedMsg| "Cannot resolve types in collect body." NIL)) ('T - (SPADLET |value| + (setq |value| (COND ((NEQUAL |rm| |m|) (|coerceInteractive| (|getValue| |exp|) @@ -2611,7 +2611,7 @@ There are several special modes used in these functions: (PROG (|s| |iterMs| |ISTMP#1| |ISTMP#2| |ISTMP#3| |isStream|) (RETURN (SEQ (PROGN - (SPADLET |isStream| NIL) + (setq |isStream| NIL) (DO ((G167896 |itrl| (CDR G167896)) (|itr| NIL) (G167897 NIL |isStream|)) ((OR (ATOM G167896) @@ -2621,59 +2621,59 @@ There are several special modes used in these functions: (SEQ (EXIT (COND ((AND (CONSP |itr|) (EQ (QCAR |itr|) 'IN) (PROGN - (SPADLET |ISTMP#1| (QCDR |itr|)) + (setq |ISTMP#1| (QCDR |itr|)) (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 |iterMs| (|bottomUp| |s|)) + (setq |iterMs| (|bottomUp| |s|)) (COND ((AND (CONSP |iterMs|) (EQ (QCDR |iterMs|) NIL) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Stream|)))) - (SPADLET |isStream| 'T)) + (setq |isStream| 'T)) ((AND (CONSP |iterMs|) (EQ (QCDR |iterMs|) NIL) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|InfiniteTuple|)))) - (SPADLET |isStream| 'T)) + (setq |isStream| 'T)) ((AND (CONSP |iterMs|) (EQ (QCDR |iterMs|) NIL) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|UniversalSegment|)))) - (SPADLET |isStream| 'T)))) + (setq |isStream| 'T)))) ((AND (CONSP |itr|) (EQ (QCAR |itr|) 'STEP) (PROGN - (SPADLET |ISTMP#1| (QCDR |itr|)) + (setq |ISTMP#1| (QCDR |itr|)) (AND (CONSP |ISTMP#1|) (PROGN - (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|) (EQ (QCDR |ISTMP#3|) NIL)))))))) - (SPADLET |isStream| 'T)))))) + (setq |isStream| 'T)))))) |isStream|))))) ;collectStream(t,op,itrl,body) == @@ -2685,7 +2685,7 @@ There are several special modes used in these functions: (PROG (|v|) (RETURN (PROGN - (SPADLET |v| + (setq |v| (CATCH '|loopCompiler| (|collectStream1| |t| |op| |itrl| |body|))) (COND @@ -2707,13 +2707,13 @@ There are several special modes used in these functions: (DECLARE (SPECIAL |$indexVars|)) (RETURN (PROGN - (SPADLET |$indexVars| NIL) + (setq |$indexVars| NIL) (|upStreamIters| |itrl|) (COND ((EQL (|#| |$indexVars|) 1) - (SPADLET |mode| (|collectOneStream| |t| |op| |itrl| |body|))) + (setq |mode| (|collectOneStream| |t| |op| |itrl| |body|))) ('T - (SPADLET |mode| + (setq |mode| (|collectSeveralStreams| |t| |op| |itrl| |body|)))) (|putModeSet| |op| (CONS |mode| NIL)))))) @@ -2736,40 +2736,40 @@ There are several special modes used in these functions: (SEQ (EXIT (COND ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'IN) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (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)))))) (|upStreamIterIN| |iter| |index| |s|)) ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'STEP) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |lower| + (setq |lower| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |step| + (setq |step| (QCAR |ISTMP#3|)) - (SPADLET |upperList| + (setq |upperList| (QCDR |ISTMP#3|)) 'T)))))))) (|upStreamIterSTEP| |index| |lower| |step| @@ -2808,31 +2808,31 @@ There are several special modes used in these functions: (declare (special |$indexVars| |$env|)) (RETURN (PROGN - (SPADLET |iterMs| (|bottomUp| |s|)) + (setq |iterMs| (|bottomUp| |s|)) (COND ((OR (AND (CONSP |iterMs|) (EQ (QCDR |iterMs|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |iterMs|)) + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Segment|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL)))))) (AND (CONSP |iterMs|) (EQ (QCDR |iterMs|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |iterMs|)) + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|UniversalSegment|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL))))))) - (SPADLET |lower| + (setq |lower| (CONS (|mkAtreeNode| '|lo|) (CONS |s| NIL))) - (SPADLET |step| + (setq |step| (CONS (|mkAtreeNode| '|incr|) (CONS |s| NIL))) - (SPADLET |upperList| + (setq |upperList| (COND ((BOOT-EQUAL (CAAR |iterMs|) '|Segment|) (CONS (CONS (|mkAtreeNode| '|hi|) @@ -2840,7 +2840,7 @@ There are several special modes used in these functions: NIL)) ('T NIL))) (|upStreamIterSTEP| |index| |lower| |step| |upperList|) - (SPADLET |newIter| + (setq |newIter| (CONS 'STEP (CONS |index| (CONS |lower| @@ -2849,42 +2849,42 @@ There are several special modes used in these functions: (RPLACD |iter| (CDR |newIter|))) ((AND (NULL (AND (CONSP |iterMs|) (EQ (QCDR |iterMs|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |iterMs|)) + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|List|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ud| (QCAR |ISTMP#2|)) + (setq |ud| (QCAR |ISTMP#2|)) 'T))))))) (NULL (AND (CONSP |iterMs|) (EQ (QCDR |iterMs|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |iterMs|)) + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Stream|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ud| (QCAR |ISTMP#2|)) + (setq |ud| (QCAR |ISTMP#2|)) 'T))))))) (NULL (AND (CONSP |iterMs|) (EQ (QCDR |iterMs|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |iterMs|)) + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|InfinitTuple|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ud| (QCAR |ISTMP#2|)) + (setq |ud| (QCAR |ISTMP#2|)) 'T)))))))) (|throwKeyedMsg| (format nil @@ -2895,22 +2895,22 @@ There are several special modes used in these functions: ('T (|put| |index| '|mode| |ud| |$env|) (|mkLocalVar| "the iterator expression" |index|) - (SPADLET |s| + (setq |s| (COND ((AND (CONSP |iterMs|) (PROGN - (SPADLET |ISTMP#1| (QCAR |iterMs|)) + (setq |ISTMP#1| (QCAR |iterMs|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|List|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ud| (QCAR |ISTMP#2|)) + (setq |ud| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |form| + (setq |form| (CONS (|mkAtreeNode| '|pretend|) (CONS (CONS (|mkAtreeNode| 'COERCE) @@ -2925,7 +2925,7 @@ There are several special modes used in these functions: NIL)))) (|bottomUp| |form|) |form|) ('T |s|))) - (SPADLET |$indexVars| + (setq |$indexVars| (CONS (CONS |index| |s|) |$indexVars|)))))))) ;upStreamIterSTEP(index,lower,step,upperList) == @@ -2966,7 +2966,7 @@ There are several special modes used in these functions: (RETURN (SEQ (COND ((NULL (|isEqualOrSubDomain| - (SPADLET |ltype| + (setq |ltype| (IFCAR (|bottomUpUseSubdomain| |lower|))) |$Integer|)) @@ -2974,7 +2974,7 @@ There are several special modes used in these functions: "The %1 bound in a loop must be an integer." (CONS "lower" NIL))) ((NULL (|isEqualOrSubDomain| - (SPADLET |stype| + (setq |stype| (IFCAR (|bottomUpUseSubdomain| |step|))) |$Integer|)) (|throwKeyedMsg| @@ -2997,7 +2997,7 @@ There are several special modes used in these functions: "The %1 bound in a loop must be an integer." (CONS "upper" NIL)))))))) (|put| |index| '|mode| - (SPADLET |type| + (setq |type| (|resolveTT| |ltype| |stype|)) |$env|) (COND @@ -3008,11 +3008,11 @@ There are several special modes used in these functions: NIL)))) (|mkLocalVar| "the iterator expression" |index|) - (SPADLET |s| + (setq |s| (COND ((NULL |upperList|) - (SPADLET |genFun| '|generate|) - (SPADLET |form| + (setq |genFun| '|generate|) + (setq |form| (CONS (|mkAtreeNode| |genFun|) (CONS (CONS @@ -3029,13 +3029,13 @@ There are several special modes used in these functions: (CONS |lower| NIL)))) (|bottomUp| |form|) |form|) ('T - (SPADLET |form| + (setq |form| (CONS (|mkAtreeNode| 'SEGMENT) (CONS |lower| (CONS (CAR |upperList|) NIL)))) (|putTarget| |form| (CONS '|Segment| (CONS |type| NIL))) - (SPADLET |form| + (setq |form| (CONS (|mkAtreeNode| '|construct|) (CONS |form| NIL))) @@ -3045,12 +3045,12 @@ There are several special modes used in these functions: (CONS '|Segment| (CONS |type| NIL)) NIL))) - (SPADLET |form| + (setq |form| (CONS (|mkAtreeNode| '|expand|) (CONS |form| NIL))) (|putTarget| |form| '(|List| (|Integer|))) - (SPADLET |form| + (setq |form| (CONS (|mkAtreeNode| '|pretend|) (CONS @@ -3065,7 +3065,7 @@ There are several special modes used in these functions: (CONS |$Integer| NIL)) NIL)))) (|bottomUp| |form|) |form|))) - (SPADLET |$indexVars| + (setq |$indexVars| (CONS (CONS |index| |s|) |$indexVars|))))))))) ;collectOneStream(t,op,itrl,body) == @@ -3089,35 +3089,35 @@ There are several special modes used in these functions: (declare (special |$localVars| |$indexVars|)) (RETURN (PROGN - (SPADLET |form| (|mkAndApplyPredicates| |itrl|)) - (SPADLET |bodyVec| + (setq |form| (|mkAndApplyPredicates| |itrl|)) + (setq |bodyVec| (|mkIterFun| (CAR |$indexVars|) |body| |$localVars|)) - (SPADLET |form| + (setq |form| (CONS (|mkAtreeNode| '|map|) (CONS |bodyVec| (CONS |form| NIL)))) (|bottomUp| |form|) - (SPADLET |val| (|getValue| |form|)) - (SPADLET |m| (|objMode| |val|)) + (setq |val| (|getValue| |form|)) + (setq |m| (|objMode| |val|)) (COND ((AND (NULL (AND (CONSP |m|) (EQ (QCAR |m|) '|Stream|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ud| (QCAR |ISTMP#1|)) + (setq |ud| (QCAR |ISTMP#1|)) 'T))))) (NULL (AND (CONSP |m|) (EQ (QCAR |m|) '|InfiniteTuple|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ud| (QCAR |ISTMP#1|)) + (setq |ud| (QCAR |ISTMP#1|)) 'T)))))) (|systemError| "Not a Stream")) ('T - (SPADLET |newVal| + (setq |newVal| (mkObj (|objVal| |val|) (CONS '|InfiniteTuple| (CONS |ud| NIL)))) (|putValue| |op| |newVal|) (|objMode| |newVal|))))))) @@ -3147,8 +3147,8 @@ There are several special modes used in these functions: (declare (special |$localVars| |$Boolean| |$indexVars|)) (RETURN (SEQ (PROGN - (SPADLET |indSet| (CAR |$indexVars|)) - (SPADLET |s| (CDR |indSet|)) + (setq |indSet| (CAR |$indexVars|)) + (setq |s| (CDR |indSet|)) (DO ((G168208 |itrl| (CDR G168208)) (|iter| NIL)) ((OR (ATOM G168208) (PROGN (SETQ |iter| (CAR G168208)) NIL)) @@ -3157,54 +3157,54 @@ There are several special modes used in these functions: ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'WHILE) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |fun| '|filterWhile|) - (SPADLET |predVec| + (setq |fun| '|filterWhile|) + (setq |predVec| (|mkIterFun| |indSet| |pred| |$localVars|)) - (SPADLET |s| + (setq |s| (CONS (|mkAtreeNode| |fun|) (CONS |predVec| (CONS |s| NIL))))) ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'UNTIL) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |fun| '|filterUntil|) - (SPADLET |predVec| + (setq |fun| '|filterUntil|) + (setq |predVec| (|mkIterFun| |indSet| |pred| |$localVars|)) - (SPADLET |s| + (setq |s| (CONS (|mkAtreeNode| |fun|) (CONS |predVec| (CONS |s| NIL))))) ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'SUCHTHAT) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) (PROGN - (SPADLET |fun| '|select|) + (setq |fun| '|select|) (|putTarget| |pred| |$Boolean|) - (SPADLET |predVec| + (setq |predVec| (|mkIterFun| |indSet| |pred| |$localVars|)) - (SPADLET |s| + (setq |s| (CONS (|mkAtreeNode| |fun|) (CONS |predVec| (CONS |s| NIL)))))))))) @@ -3236,27 +3236,27 @@ There are several special modes used in these functions: (declare (special |$freeVariables| |$boundVariables| |$mapName| |$env|)) (RETURN (PROGN - (SPADLET |index| (CAR G168248)) - (SPADLET |s| (CDR G168248)) - (SPADLET |mode| (|objMode| (|getValue| |s|))) + (setq |index| (CAR G168248)) + (setq |s| (CDR G168248)) + (setq |mode| (|objMode| (|getValue| |s|))) (COND ((AND (NULL (AND (CONSP |mode|) (EQ (QCAR |mode|) '|Stream|) (PROGN - (SPADLET |ISTMP#1| (QCDR |mode|)) + (setq |ISTMP#1| (QCDR |mode|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |indMode| + (setq |indMode| (QCAR |ISTMP#1|)) 'T))))) (NULL (AND (CONSP |mode|) (EQ (QCAR |mode|) '|InfiniteTuple|) (PROGN - (SPADLET |ISTMP#1| (QCDR |mode|)) + (setq |ISTMP#1| (QCDR |mode|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |indMode| + (setq |indMode| (QCAR |ISTMP#1|)) 'T)))))) (|keyedSystemError| @@ -3264,16 +3264,16 @@ There are several special modes used in these functions: '("mkIterFun" "bad stream index type"))) ('T (|put| |index| '|mode| |indMode| |$env|) (|mkLocalVar| |$mapName| |index|) - (SPADLET |LETTMP#1| (|bottomUpCompile| |funBody|)) - (SPADLET |m| (CAR |LETTMP#1|)) - (SPADLET |mapMode| + (setq |LETTMP#1| (|bottomUpCompile| |funBody|)) + (setq |m| (CAR |LETTMP#1|)) + (setq |mapMode| (CONS '|Mapping| (CONS |m| (CONS |indMode| NIL)))) - (SPADLET |$freeVariables| NIL) - (SPADLET |$boundVariables| (CONS |index| NIL)) - (SPADLET |body| + (setq |$freeVariables| NIL) + (setq |$boundVariables| (CONS |index| NIL)) + (setq |body| (|checkForFreeVariables| (|getValue| |funBody|) |$localVars|)) - (SPADLET |val| + (setq |val| (CONS 'function (CONS (CONS 'LAMBDA (CONS @@ -3281,7 +3281,7 @@ There are several special modes used in these functions: (CONS '|envArg| NIL)) (CONS (|objVal| |body|) NIL))) NIL))) - (SPADLET |vec| (|mkAtreeNode| (GENSYM))) + (setq |vec| (|mkAtreeNode| (GENSYM))) (|putValue| |vec| (mkObj (CONS 'CONS @@ -3361,14 +3361,14 @@ There are several special modes used in these functions: (COND ((BOOT-EQUAL |v| '$$$) |v|) ((member |v| |$boundVariables|) |v|) - ((SPADLET |p| (POSITION |v| |$freeVariables|)) + ((setq |p| (POSITION |v| |$freeVariables|)) (CONS 'ELT (CONS '|envArg| (CONS (|positionInVec| |p| (|#| |$freeVariables|)) NIL)))) ((OR (BOOT-EQUAL |locals| 'ALL) (member |v| |locals|)) - (SPADLET |$freeVariables| (CONS |v| |$freeVariables|)) + (setq |$freeVariables| (CONS |v| |$freeVariables|)) (CONS 'ELT (CONS '|envArg| (CONS (|positionInVec| 0 @@ -3378,12 +3378,12 @@ There are several special modes used in these functions: ((LISTP |v|) (COND ((CDR (LASTTAIL |v|)) |v|) - ('T (SPADLET |op| (CAR |v|)) (SPADLET |args| (CDR |v|)) + ('T (setq |op| (CAR |v|)) (setq |args| (CDR |v|)) (COND ((LISTP |op|) (CONS (|checkForFreeVariables| |op| |locals|) (PROG (G168349) - (SPADLET G168349 NIL) + (setq G168349 NIL) (RETURN (DO ((G168354 |args| (CDR G168354)) (|a| NIL)) @@ -3401,7 +3401,7 @@ There are several special modes used in these functions: ((BOOT-EQUAL |op| 'LETT) (CONS 'SETF (PROG (G168364) - (SPADLET G168364 NIL) + (setq G168364 NIL) (RETURN (DO ((G168369 |args| (CDR G168369)) (|a| NIL)) @@ -3419,21 +3419,21 @@ There are several special modes used in these functions: ((BOOT-EQUAL |op| 'COLLECT) (COND ((PROGN - (SPADLET |ISTMP#1| (CAR |args|)) + (setq |ISTMP#1| (CAR |args|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'STEP) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |var| (QCAR |ISTMP#2|)) + (setq |var| (QCAR |ISTMP#2|)) 'T))))) - (SPADLET |$boundVariables| + (setq |$boundVariables| (CONS |var| |$boundVariables|)) - (SPADLET |r| + (setq |r| (CONS 'COLLECT (PROG (G168379) - (SPADLET G168379 NIL) + (setq G168379 NIL) (RETURN (DO ((G168384 |args| @@ -3452,13 +3452,13 @@ There are several special modes used in these functions: (|checkForFreeVariables| |a| |locals|) G168379))))))))) - (SPADLET |$boundVariables| + (setq |$boundVariables| (|delete| |var| |$boundVariables|)) |r|) ('T (CONS 'COLLECT (PROG (G168394) - (SPADLET G168394 NIL) + (setq G168394 NIL) (RETURN (DO ((G168399 |args| (CDR G168399)) @@ -3478,21 +3478,21 @@ There are several special modes used in these functions: ((BOOT-EQUAL |op| 'REPEAT) (COND ((PROGN - (SPADLET |ISTMP#1| (CAR |args|)) + (setq |ISTMP#1| (CAR |args|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'STEP) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |var| (QCAR |ISTMP#2|)) + (setq |var| (QCAR |ISTMP#2|)) 'T))))) - (SPADLET |$boundVariables| + (setq |$boundVariables| (CONS |var| |$boundVariables|)) - (SPADLET |r| + (setq |r| (CONS 'REPEAT (PROG (G168409) - (SPADLET G168409 NIL) + (setq G168409 NIL) (RETURN (DO ((G168414 |args| @@ -3511,13 +3511,13 @@ There are several special modes used in these functions: (|checkForFreeVariables| |a| |locals|) G168409))))))))) - (SPADLET |$boundVariables| + (setq |$boundVariables| (|delete| |var| |$boundVariables|)) |r|) ('T (CONS 'REPEAT (PROG (G168424) - (SPADLET G168424 NIL) + (setq G168424 NIL) (RETURN (DO ((G168429 |args| (CDR G168429)) @@ -3538,22 +3538,22 @@ There are several special modes used in these functions: (COND ((AND (CONSP |args|) (PROGN - (SPADLET |var| (QCAR |args|)) - (SPADLET |ISTMP#1| (QCDR |args|)) + (setq |var| (QCAR |args|)) + (setq |ISTMP#1| (QCDR |args|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |form| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |form| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |name| + (setq |name| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |newvar| + (setq |newvar| (COND - ((SPADLET |p| + ((setq |p| (POSITION |var| |$freeVariables|)) (CONS 'ELT (CONS '|envArg| @@ -3562,7 +3562,7 @@ There are several special modes used in these functions: (|#| |$freeVariables|)) NIL)))) ('T - (SPADLET |$freeVariables| + (setq |$freeVariables| (CONS |var| |$freeVariables|)) (CONS 'ELT (CONS '|envArg| @@ -3586,7 +3586,7 @@ There are several special modes used in these functions: ('T (CONS |op| (PROG (G168439) - (SPADLET G168439 NIL) + (setq G168439 NIL) (RETURN (DO ((G168444 |args| (CDR G168444)) (|a| NIL)) @@ -3633,41 +3633,41 @@ There are several special modes used in these functions: (DECLARE (SPECIAL |$index| |$localVars| |$indexVars|)) (RETURN (PROGN - (SPADLET |$index| NIL) - (SPADLET |LETTMP#1| (|mkZipCode| |$indexVars|)) - (SPADLET |form| (CAR |LETTMP#1|)) - (SPADLET |zipType| (CDR |LETTMP#1|)) - (SPADLET |form| + (setq |$index| NIL) + (setq |LETTMP#1| (|mkZipCode| |$indexVars|)) + (setq |form| (CAR |LETTMP#1|)) + (setq |zipType| (CDR |LETTMP#1|)) + (setq |form| (|mkAndApplyZippedPredicates| |form| |zipType| |itrl|)) - (SPADLET |vec| + (setq |vec| (|mkIterZippedFun| |$indexVars| |body| |zipType| |$localVars|)) - (SPADLET |form| + (setq |form| (CONS (|mkAtreeNode| '|map|) (CONS |vec| (CONS |form| NIL)))) (|bottomUp| |form|) - (SPADLET |val| (|getValue| |form|)) - (SPADLET |m| (|objMode| |val|)) + (setq |val| (|getValue| |form|)) + (setq |m| (|objMode| |val|)) (COND ((AND (NULL (AND (CONSP |m|) (EQ (QCAR |m|) '|Stream|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ud| (QCAR |ISTMP#1|)) + (setq |ud| (QCAR |ISTMP#1|)) 'T))))) (NULL (AND (CONSP |m|) (EQ (QCAR |m|) '|InfiniteTuple|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ud| (QCAR |ISTMP#1|)) + (setq |ud| (QCAR |ISTMP#1|)) 'T)))))) (|systemError| "Not a Stream")) ('T - (SPADLET |newVal| + (setq |newVal| (mkObj (|objVal| |val|) (CONS '|InfiniteTuple| (CONS |ud| NIL)))) (|putValue| |op| |newVal|) (|objMode| |newVal|))))))) @@ -3700,43 +3700,43 @@ There are several special modes used in these functions: |zipType|) (RETURN (COND - ((EQL (|#| |indexList|) 2) (SPADLET |s2| (CDAR |indexList|)) - (SPADLET |s1| (CDADR |indexList|)) - (SPADLET |t1| (CADR (|objMode| (|getValue| |s1|)))) - (SPADLET |t2| (CADR (|objMode| (|getValue| |s2|)))) - (SPADLET |zipType| + ((EQL (|#| |indexList|) 2) (setq |s2| (CDAR |indexList|)) + (setq |s1| (CDADR |indexList|)) + (setq |t1| (CADR (|objMode| (|getValue| |s1|)))) + (setq |t2| (CADR (|objMode| (|getValue| |s2|)))) + (setq |zipType| (CONS '|Record| (CONS (CONS '|:| (CONS '|part1| (CONS |t1| NIL))) (CONS (CONS '|:| (CONS '|part2| (CONS |t2| NIL))) NIL)))) - (SPADLET |zipFun| + (setq |zipFun| (CONS (|mkAtreeNode| '|Dollar|) (CONS (CONS '|MakeRecord| (CONS (|mkEvalable| |t1|) (CONS (|mkEvalable| |t2|) NIL))) (CONS (|mkAtreeNode| '|makeRecord|) NIL)))) - (SPADLET |form| + (setq |form| (CONS (|mkAtreeNode| '|map|) (CONS |zipFun| (CONS |s1| (CONS |s2| NIL))))) (CONS |form| |zipType|)) - ('T (SPADLET |LETTMP#1| (|mkZipCode| (CDR |indexList|))) - (SPADLET |form| (CAR |LETTMP#1|)) - (SPADLET |zipType| (CDR |LETTMP#1|)) - (SPADLET |s| (CDAR |indexList|)) - (SPADLET |t| (CADR (|objMode| (|getValue| |s|)))) - (SPADLET |zipFun| + ('T (setq |LETTMP#1| (|mkZipCode| (CDR |indexList|))) + (setq |form| (CAR |LETTMP#1|)) + (setq |zipType| (CDR |LETTMP#1|)) + (setq |s| (CDAR |indexList|)) + (setq |t| (CADR (|objMode| (|getValue| |s|)))) + (setq |zipFun| (CONS (|mkAtreeNode| '|Dollar|) (CONS (CONS '|MakeRecord| (CONS (|mkEvalable| |t|) (CONS (|mkEvalable| |zipType|) NIL))) (CONS (|mkAtreeNode| '|makeRecord|) NIL)))) - (SPADLET |form| + (setq |form| (CONS (|mkAtreeNode| '|map|) (CONS |zipFun| (CONS |s| (CONS |form| NIL))))) - (SPADLET |zipType| + (setq |zipType| (CONS '|Record| (CONS (CONS '|:| (CONS '|part1| (CONS |t| NIL))) @@ -3774,51 +3774,51 @@ There are several special modes used in these functions: ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'WHILE) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |predVec| + (setq |predVec| (|mkIterZippedFun| |$indexList| |pred| |zipType| |$localVars|)) - (SPADLET |s| + (setq |s| (CONS (|mkAtreeNode| '|swhile|) (CONS |predVec| (CONS |s| NIL))))) ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'UNTIL) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |predVec| + (setq |predVec| (|mkIterZippedFun| |$indexList| |pred| |zipType| |$localVars|)) - (SPADLET |s| + (setq |s| (CONS (|mkAtreeNode| '|suntil|) (CONS |predVec| (CONS |s| NIL))))) ((AND (CONSP |iter|) (EQ (QCAR |iter|) 'SUCHTHAT) (PROGN - (SPADLET |ISTMP#1| (QCDR |iter|)) + (setq |ISTMP#1| (QCDR |iter|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) (PROGN (|putTarget| |pred| |$Boolean|) - (SPADLET |predVec| + (setq |predVec| (|mkIterZippedFun| |$indexList| |pred| |zipType| |$localVars|)) - (SPADLET |s| + (setq |s| (CONS (|mkAtreeNode| '|select|) (CONS |predVec| (CONS |s| NIL)))))))))) @@ -3851,32 +3851,32 @@ There are several special modes used in these functions: |$env| |$indexVars|)) (RETURN (SEQ (PROGN - (SPADLET |numVars| (|#| |$indexVars|)) + (setq |numVars| (|#| |$indexVars|)) (DO ((G168623 |$indexVars| (CDR G168623)) (G168610 NIL)) ((OR (ATOM G168623) (PROGN (SETQ G168610 (CAR G168623)) NIL) (PROGN (PROGN - (SPADLET |var| (CAR G168610)) + (setq |var| (CAR G168610)) G168610) NIL)) NIL) - (SEQ (EXIT (SPADLET |funBody| + (SEQ (EXIT (setq |funBody| (|subVecNodes| (|mkIterVarSub| |var| |numVars|) |var| |funBody|))))) (|put| |$index| '|mode| |zipType| |$env|) (|mkLocalVar| |$mapName| |$index|) - (SPADLET |LETTMP#1| (|bottomUpCompile| |funBody|)) - (SPADLET |m| (CAR |LETTMP#1|)) - (SPADLET |mapMode| + (setq |LETTMP#1| (|bottomUpCompile| |funBody|)) + (setq |m| (CAR |LETTMP#1|)) + (setq |mapMode| (CONS '|Mapping| (CONS |m| (CONS |zipType| NIL)))) - (SPADLET |$freeVariables| NIL) - (SPADLET |$boundVariables| (CONS |$index| NIL)) - (SPADLET |body| + (setq |$freeVariables| NIL) + (setq |$boundVariables| (CONS |$index| NIL)) + (setq |body| (PROG (G168634) - (SPADLET G168634 NIL) + (setq G168634 NIL) (RETURN (DO ((G168639 (|getValue| |funBody|) (CDR G168639)) @@ -3891,7 +3891,7 @@ There are several special modes used in these functions: (|checkForFreeVariables| |form| |$localVars|) G168634)))))))) - (SPADLET |val| + (setq |val| (CONS 'function (CONS (CONS 'LAMBDA (CONS @@ -3899,7 +3899,7 @@ There are several special modes used in these functions: (CONS '|envArg| NIL)) (CONS (|objVal| |body|) NIL))) NIL))) - (SPADLET |vec| (|mkAtreeNode| (GENSYM))) + (setq |vec| (|mkAtreeNode| (GENSYM))) (|putValue| |vec| (mkObj (CONS 'CONS @@ -3938,7 +3938,7 @@ There are several special modes used in these functions: (PROG (|n|) (RETURN (PROGN - (SPADLET |n| (|iterVarPos| |var|)) + (setq |n| (|iterVarPos| |var|)) (COND ((EQL |n| 2) (CONS (|mkAtreeNode| '|elt|) @@ -3967,7 +3967,7 @@ There are several special modes used in these functions: (PROGN (SETQ G168671 (CAR G168679)) NIL) (PROGN (PROGN - (SPADLET |index| (CAR G168671)) + (setq |index| (CAR G168671)) G168671) NIL)) NIL) @@ -3983,7 +3983,7 @@ There are several special modes used in these functions: (declare (special |$index|)) (COND ((EQL |n| 0) - (|mkAtreeNode| (OR |$index| (SPADLET |$index| (GENSYM))))) + (|mkAtreeNode| (OR |$index| (setq |$index| (GENSYM))))) ('T (CONS (|mkAtreeNode| '|elt|) (CONS (|mkNestedElts| (SPADDIFFERENCE |n| 1)) @@ -4039,33 +4039,33 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |l| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |l| (QCDR |t|)) 'T))) NIL) - ('T (SPADLET |dol| (|getAtree| |op| '|dollar|)) - (SPADLET |tar| (OR (|getTarget| |op|) |dol|)) + ('T (setq |dol| (|getAtree| |op| '|dollar|)) + (setq |tar| (OR (|getTarget| |op|) |dol|)) (COND ((NULL |l|) (|upNullList| |op| |l| |tar|)) ((AND (CONSP |tar|) (EQ (QCAR |tar|) '|Record|) - (PROGN (SPADLET |types| (QCDR |tar|)) 'T)) + (PROGN (setq |types| (QCDR |tar|)) 'T)) (|upRecordConstruct| |op| |l| |tar|)) ((|isTaggedUnion| |tar|) (|upTaggedUnionConstruct| |op| |l| |tar|)) - ('T (SPADLET |aggs| '(|List|)) + ('T (setq |aggs| '(|List|)) (COND ((AND |tar| (CONSP |tar|) (NULL (|isPartialMode| |tar|))) (COND ((|member| (CAR |tar|) |aggs|) - (SPADLET |ud| + (setq |ud| (COND ((AND (CONSP |l|) (EQ (QCDR |l|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |l|)) + (setq |ISTMP#1| (QCAR |l|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |realOp| + (setq |realOp| (QCAR |ISTMP#1|)) 'T))) (BOOT-EQUAL (|getUnname| |realOp|) @@ -4083,7 +4083,7 @@ There are several special modes used in these functions: ((|member| (CAR |tar|) '(|Matrix| |SquareMatrix| |RectangularMatrix|)) - (SPADLET |vec| + (setq |vec| (CONS '|List| (CONS (|underDomainOf| |tar|) NIL))) @@ -4095,9 +4095,9 @@ There are several special modes used in these functions: ((NULL (|getTarget| |x|)) (|putTarget| |x| |vec|)) ('T NIL))))))))) - (SPADLET |argModeSetList| + (setq |argModeSetList| (PROG (G168756) - (SPADLET G168756 NIL) + (setq G168756 NIL) (RETURN (DO ((G168761 |l| (CDR G168761)) (|x| NIL)) @@ -4112,32 +4112,32 @@ There are several special modes used in these functions: G168756)))))))) (COND ((AND |dol| (CONSP |dol|) - (PROGN (SPADLET |topType| (QCAR |dol|)) 'T) + (PROGN (setq |topType| (QCAR |dol|)) 'T) (NULL (|member| |topType| |aggs|))) (COND - ((AND (SPADLET |mmS| + ((AND (setq |mmS| (|selectMms| |op| |l| |tar|)) - (SPADLET |mS| + (setq |mS| (|evalForm| |op| (|getUnname| |op|) |l| |mmS|))) (|putModeSet| |op| |mS|)) ('T NIL))) ((AND |tar| (CONSP |tar|) - (PROGN (SPADLET |topType| (QCAR |tar|)) 'T) + (PROGN (setq |topType| (QCAR |tar|)) 'T) (NULL (|member| |topType| |aggs|)) - (SPADLET |mmS| + (setq |mmS| (|modemapsHavingTarget| (|selectMms| |op| |l| |tar|) |tar|)) - (SPADLET |mS| + (setq |mS| (|evalForm| |op| (|getUnname| |op|) |l| |mmS|))) (|putModeSet| |op| |mS|)) ('T - (SPADLET |eltTypes| + (setq |eltTypes| (|replaceSymbols| (PROG (G168771) - (SPADLET G168771 NIL) + (setq G168771 NIL) (RETURN (DO ((G168776 |argModeSetList| @@ -4157,35 +4157,35 @@ There are several special modes used in these functions: ((AND (CONSP |eltTypes|) (EQ (QCDR |eltTypes|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |eltTypes|)) + (setq |ISTMP#1| (QCAR |eltTypes|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Tuple|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |td| (QCAR |ISTMP#2|)) + (setq |td| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |mode| (CONS '|List| (CONS |td| NIL))) + (setq |mode| (CONS '|List| (CONS |td| NIL))) (|evalTupleConstruct| |op| |l| |mode| |tar|)) ((AND (CONSP |eltTypes|) (EQ (QCDR |eltTypes|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |eltTypes|)) + (setq |ISTMP#1| (QCAR |eltTypes|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|InfiniteTuple|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |td| (QCAR |ISTMP#2|)) + (setq |td| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |mode| + (setq |mode| (CONS '|Stream| (CONS |td| NIL))) (|evalInfiniteTupleConstruct| |op| |l| |mode| |tar|)) @@ -4194,27 +4194,27 @@ There are several special modes used in these functions: ((AND (NULL (|isPartialMode| |tar|)) (CONSP |tar|) (EQ (QCAR |tar|) '|List|) (PROGN - (SPADLET |ISTMP#1| (QCDR |tar|)) + (setq |ISTMP#1| (QCDR |tar|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ud| (QCAR |ISTMP#1|)) + (setq |ud| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |mode| + (setq |mode| (CONS '|List| (CONS (|resolveTypeListAny| (CONS |ud| |eltTypes|)) NIL)))) ('T - (SPADLET |mode| + (setq |mode| (CONS '|List| (CONS (|resolveTypeListAny| |eltTypes|) NIL))))) (COND ((|isPartialMode| |tar|) - (SPADLET |tar| (|resolveTM| |mode| |tar|)))) + (setq |tar| (|resolveTM| |mode| |tar|)))) (|evalconstruct| |op| |l| |mode| |tar|))))))))))))) ;modemapsHavingTarget(mmS,target) == @@ -4226,7 +4226,7 @@ There are several special modes used in these functions: (PROG (|res|) (RETURN (SEQ (PROG (G168825) - (SPADLET G168825 NIL) + (setq G168825 NIL) (RETURN (DO ((G168831 |mmS| (CDR G168831)) (|mm| NIL)) ((OR (ATOM G168831) @@ -4234,7 +4234,7 @@ There are several special modes used in these functions: (NREVERSE0 G168825)) (SEQ (EXIT (COND ((AND (PROGN - (SPADLET |res| (CADAR |mm|)) + (setq |res| (CADAR |mm|)) |mm|) (BOOT-EQUAL |res| |target|)) (SETQ G168825 (CONS |mm| G168825))))))))))))) @@ -4257,11 +4257,11 @@ There are several special modes used in these functions: (declare (special |$genValue|)) (RETURN (SEQ (PROGN - (SPADLET |ud| (CADR |m|)) - (SPADLET |code| + (setq |ud| (CADR |m|)) + (setq |code| (CONS 'APPEND (PROG (G168851) - (SPADLET G168851 NIL) + (setq G168851 NIL) (RETURN (DO ((G168856 |l| (CDR G168856)) (|x| NIL)) @@ -4280,13 +4280,13 @@ There are several special modes used in these functions: (CONS |ud| NIL))) NIL)) G168851))))))))) - (SPADLET |val| + (setq |val| (COND (|$genValue| (mkObjWrap (|timedEVALFUN| |code|) |m|)) ('T (mkObj |code| |m|)))) (COND - ((SPADLET |val1| + ((setq |val1| (|coerceInteractive| |val| (OR |tar| |m|))) (|putValue| |op| |val1|) (|putModeSet| |op| (CONS (OR |tar| |m|) NIL))) @@ -4312,10 +4312,10 @@ There are several special modes used in these functions: (declare (special |$genValue|)) (RETURN (SEQ (PROGN - (SPADLET |ud| (CADR |m|)) - (SPADLET |code| + (setq |ud| (CADR |m|)) + (setq |code| (CAR (PROG (G168879) - (SPADLET G168879 NIL) + (setq G168879 NIL) (RETURN (DO ((G168884 |l| (CDR G168884)) (|x| NIL)) @@ -4338,15 +4338,15 @@ There are several special modes used in these functions: (CONS |ud| NIL)) NIL))) G168879))))))))) - (SPADLET |val| + (setq |val| (COND (|$genValue| (mkObjWrap (|timedEVALFUN| |code|) |m|)) ('T (mkObj |code| |m|)))) (COND - (|tar| (SPADLET |val1| + (|tar| (setq |val1| (|coerceInteractive| |val| |tar|))) - ('T (SPADLET |val1| |val|))) + ('T (setq |val1| |val|))) (COND (|val1| (|putValue| |op| |val1|) (|putModeSet| |op| (CONS (OR |tar| |m|) NIL))) @@ -4372,14 +4372,14 @@ There are several special modes used in these functions: (declare (special |$genValue|)) (RETURN (SEQ (PROGN - (SPADLET |agg| (CAR |m|)) - (SPADLET |LETTMP#1| (REVERSE (CDR |m|))) - (SPADLET |underMode| (CAR |LETTMP#1|)) - (SPADLET |code| + (setq |agg| (CAR |m|)) + (setq |LETTMP#1| (REVERSE (CDR |m|))) + (setq |underMode| (CAR |LETTMP#1|)) + (setq |code| (CONS 'LIST - (SPADLET |argCode| + (setq |argCode| (PROG (G168910) - (SPADLET G168910 NIL) + (setq G168910 NIL) (RETURN (DO ((G168915 |l| @@ -4402,15 +4402,15 @@ There are several special modes used in these functions: "Cannot convert an element of the construct to type %1p ." (CONS |underMode| NIL))) G168910)))))))))) - (SPADLET |val| + (setq |val| (COND (|$genValue| (mkObjWrap (|timedEVALFUN| |code|) |m|)) ('T (mkObj |code| |m|)))) (COND - (|tar| (SPADLET |val1| + (|tar| (setq |val1| (|coerceInteractive| |val| |tar|))) - ('T (SPADLET |val1| |val|))) + ('T (setq |val1| |val|))) (COND (|val1| (|putValue| |op| |val1|) (|putModeSet| |op| (CONS (OR |tar| |m|) NIL))) @@ -4433,11 +4433,11 @@ There are several special modes used in these functions: ((NULL (|member| |$Symbol| |modeList|)) |modeList|) ((AND (CONSP |modeList|) (PROGN - (SPADLET |a| (QCAR |modeList|)) - (SPADLET |b| (QCDR |modeList|)) + (setq |a| (QCAR |modeList|)) + (setq |b| (QCDR |modeList|)) 'T) (PROG (G168937) - (SPADLET G168937 'T) + (setq G168937 'T) (RETURN (DO ((G168943 NIL (NULL G168937)) (G168944 |b| (CDR G168944)) (|x| NIL)) @@ -4450,7 +4450,7 @@ There are several special modes used in these functions: |modeList|) ('T (PROG (G168956) - (SPADLET G168956 NIL) + (setq G168956 NIL) (RETURN (DO ((G168962 |modeList| (CDR G168962)) (|m| NIL) (G168963 |l| (CDR G168963)) (|arg| NIL)) @@ -4490,26 +4490,26 @@ There are several special modes used in these functions: (PROG (|a| |ISTMP#1| |b| |defMode| |val| |val'|) (RETURN (PROGN - (SPADLET |defMode| + (setq |defMode| (COND ((AND |tar| (CONSP |tar|) (PROGN - (SPADLET |a| (QCAR |tar|)) - (SPADLET |ISTMP#1| (QCDR |tar|)) + (setq |a| (QCAR |tar|)) + (setq |ISTMP#1| (QCDR |tar|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |b| (QCAR |ISTMP#1|)) + (setq |b| (QCAR |ISTMP#1|)) 'T))) (|member| |a| '(|Stream| |Vector| |List|)) (NULL (|isPartialMode| |b|))) (CONS '|List| (CONS |b| NIL))) ('T '(|List| (|None|))))) - (SPADLET |val| (mkObjWrap NIL |defMode|)) + (setq |val| (mkObjWrap NIL |defMode|)) (COND ((AND |tar| (NULL (|isPartialMode| |tar|))) (COND - ((NULL (SPADLET |val'| (|coerceInteractive| |val| |tar|))) + ((NULL (setq |val'| (|coerceInteractive| |val| |tar|))) (|throwKeyedMsg| (format nil "Axiom does not understand what you mean when you specify ~ @@ -4536,7 +4536,7 @@ There are several special modes used in these functions: (RETURN (COND ((NULL (AND (CONSP |tar|) - (PROGN (SPADLET |types| (QCDR |tar|)) 'T))) + (PROGN (setq |types| (QCDR |tar|)) 'T))) NIL) ((NEQUAL (|#| |l|) 1) (|throwKeyedMsg| @@ -4545,8 +4545,8 @@ There are several special modes used in these functions: element and you supplied %1 to create an object of type %2p.") (CONS (|#| |l|) (CONS |tar| NIL)))) ('T (|bottomUp| (CAR |l|)) - (SPADLET |obj| (|getValue| (CAR |l|))) - (OR (SPADLET |code| + (setq |obj| (|getValue| (CAR |l|))) + (OR (setq |code| (|coerceInteractive| (|getValue| (CAR |l|)) |tar|)) (|throwKeyedMsgCannotCoerceWithValue| (|objVal| |obj|) @@ -4577,17 +4577,17 @@ There are several special modes used in these functions: (RETURN (SEQ (COND ((NULL (AND (CONSP |tar|) - (PROGN (SPADLET |types| (QCDR |tar|)) 'T))) + (PROGN (setq |types| (QCDR |tar|)) 'T))) NIL) - ('T (SPADLET |argModes| NIL) + ('T (setq |argModes| NIL) (DO ((G169015 |l| (CDR G169015)) (|arg| NIL)) ((OR (ATOM G169015) (PROGN (SETQ |arg| (CAR G169015)) NIL)) NIL) (SEQ (EXIT (|bottomUp| |arg|)))) - (SPADLET |argCode| + (setq |argCode| (PROG (G169027) - (SPADLET G169027 NIL) + (setq G169027 NIL) (RETURN (DO ((G169034 |l| (CDR G169034)) (|arg| NIL) @@ -4603,7 +4603,7 @@ There are several special modes used in these functions: NIL) (PROGN (PROGN - (SPADLET |type| + (setq |type| (CADDR G169007)) G169007) NIL)) @@ -4619,8 +4619,8 @@ There are several special modes used in these functions: (|getValue| |arg|)) |type|)) G169027)))))))) - (SPADLET |len| (|#| |l|)) - (SPADLET |code| + (setq |len| (|#| |l|)) + (setq |code| (COND ((EQL |len| 1) (CONS 'CONS @@ -4629,7 +4629,7 @@ There are several special modes used in these functions: ('T (CONS 'VECTOR |argCode|)))) (COND (|$genValue| - (SPADLET |code| (|wrap| (|timedEVALFUN| |code|))))) + (setq |code| (|wrap| (|timedEVALFUN| |code|))))) (|putValue| |op| (mkObj |code| |tar|)) (|putModeSet| |op| (CONS |tar| NIL)))))))) @@ -4663,22 +4663,22 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |lhs| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |lhs| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |rhs| + (setq |rhs| (QCAR |ISTMP#2|)) 'T))))))) NIL) ((AND (NULL |$genValue|) (PROG (G169122) - (SPADLET G169122 NIL) + (setq G169122 NIL) (RETURN (DO ((G169128 NIL G169122) (G169129 |$localVars| (CDR G169129)) @@ -4696,7 +4696,7 @@ There are several special modes used in these functions: "Cannot compile the declaration for %1 because its (possible ~ partial) type contains a local variable.") (CONS |lhs| NIL))) - ('T (SPADLET |mode| (|evaluateType| (|unabbrev| |rhs|))) + ('T (setq |mode| (|evaluateType| (|unabbrev| |rhs|))) (COND ((BOOT-EQUAL |mode| |$Void|) (|throwKeyedMsgSP| @@ -4714,46 +4714,46 @@ There are several special modes used in these functions: "%1p is a %2 , not a domain, and declarations require domains." (CONS |mode| (CONS '|package| NIL)) |op|)) ('T - (SPADLET |junk| + (setq |junk| (COND ((OR (AND (CONSP |lhs|) (EQ (QCAR |lhs|) '|free|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |lhs|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) '|Tuple|) (PROGN - (SPADLET |vars| + (setq |vars| (QCDR |ISTMP#2|)) 'T)))))) (AND (CONSP |lhs|) (EQ (QCAR |lhs|) '|free|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |lhs|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'LISTOF) (PROGN - (SPADLET |vars| + (setq |vars| (QCDR |ISTMP#2|)) 'T)))))) (AND (CONSP |lhs|) (EQ (QCAR |lhs|) '|free|) (PROGN - (SPADLET |vars| (QCDR |lhs|)) + (setq |vars| (QCDR |lhs|)) 'T))) (DO ((G169139 |vars| (CDR G169139)) (|var| NIL)) @@ -4769,41 +4769,41 @@ There are several special modes used in these functions: ((OR (AND (CONSP |lhs|) (EQ (QCAR |lhs|) '|local|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |lhs|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) '|Tuple|) (PROGN - (SPADLET |vars| + (setq |vars| (QCDR |ISTMP#2|)) 'T)))))) (AND (CONSP |lhs|) (EQ (QCAR |lhs|) '|local|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |lhs|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'LISTOF) (PROGN - (SPADLET |vars| + (setq |vars| (QCDR |ISTMP#2|)) 'T)))))) (AND (CONSP |lhs|) (EQ (QCAR |lhs|) '|local|) (PROGN - (SPADLET |vars| (QCDR |lhs|)) + (setq |vars| (QCDR |lhs|)) 'T))) (DO ((G169148 |vars| (CDR G169148)) (|var| NIL)) @@ -4819,12 +4819,12 @@ There are several special modes used in these functions: ((OR (AND (CONSP |lhs|) (EQ (QCAR |lhs|) '|Tuple|) (PROGN - (SPADLET |vars| (QCDR |lhs|)) + (setq |vars| (QCDR |lhs|)) 'T)) (AND (CONSP |lhs|) (EQ (QCAR |lhs|) 'LISTOF) (PROGN - (SPADLET |vars| (QCDR |lhs|)) + (setq |vars| (QCDR |lhs|)) 'T))) (DO ((G169157 |vars| (CDR G169157)) (|var| NIL)) @@ -4885,17 +4885,17 @@ There are several special modes used in these functions: (COND ((AND (CONSP |var|) (EQ (QCAR |var|) '|local|) (PROGN - (SPADLET |ISTMP#1| (QCDR |var|)) + (setq |ISTMP#1| (QCDR |var|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |v| (QCAR |ISTMP#1|)) 'T)))) - (|uplocalWithType| |v| |mode|) (SPADLET |var| |v|))) + (PROGN (setq |v| (QCAR |ISTMP#1|)) 'T)))) + (|uplocalWithType| |v| |mode|) (setq |var| |v|))) (COND ((AND (CONSP |var|) (EQ (QCAR |var|) '|free|) (PROGN - (SPADLET |ISTMP#1| (QCDR |var|)) + (setq |ISTMP#1| (QCDR |var|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |v| (QCAR |ISTMP#1|)) 'T)))) - (|upfreeWithType| |v| |mode|) (SPADLET |var| |v|))) + (PROGN (setq |v| (QCAR |ISTMP#1|)) 'T)))) + (|upfreeWithType| |v| |mode|) (setq |var| |v|))) (COND ((NULL (IDENTP |var|)) (|throwKeyedMsg| @@ -4914,10 +4914,10 @@ There are several special modes used in these functions: ((NULL (AND (CONSP |mode|) (EQ (QCAR |mode|) '|Mapping|) (PROGN - (SPADLET |ISTMP#1| (QCDR |mode|)) + (setq |ISTMP#1| (QCDR |mode|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |args| (QCDR |ISTMP#1|)) + (setq |args| (QCDR |ISTMP#1|)) 'T))))) (|throwKeyedMsg| (format nil @@ -4926,10 +4926,10 @@ There are several special modes used in these functions: the old value, issue %l )clear prop %1") (CONS |var| (CONS |mode| NIL)))) ('T - (SPADLET |mapval| + (setq |mapval| (|objVal| (|get| |var| '|value| |$e|))) - (SPADLET |margs| (CAADR |mapval|)) - (SPADLET |nargs| + (setq |margs| (CAADR |mapval|)) + (setq |nargs| (COND ((NULL |margs|) 0) ((CONSP |margs|) @@ -4949,7 +4949,7 @@ There are several special modes used in these functions: ((|isLocalVar| |var|) (|put| |var| '|mode| |mode| |$env|)) ((AND (CONSP |mode|) (EQ (QCAR |mode|) '|Mapping|)) (|declareMap| |var| |mode|)) - ((SPADLET |v| (|get| |var| '|value| |$e|)) + ((setq |v| (|get| |var| '|value| |$e|)) (COND ((BOOT-EQUAL (|objMode| |v|) |mode|) (|putHist| |var| '|mode| |mode| |$e|)) @@ -4975,9 +4975,9 @@ There are several special modes used in these functions: (declare (special |$e|)) (RETURN (COND - ((AND (SPADLET |v| (|get| |var| '|value| |$e|)) + ((AND (setq |v| (|get| |var| '|value| |$e|)) (NULL (PROGN - (SPADLET |ISTMP#1| (|objVal| |v|)) + (setq |ISTMP#1| (|objVal| |v|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'MAP))))) (|throwKeyedMsg| @@ -5009,7 +5009,7 @@ There are several special modes used in these functions: (PROG (|ISTMP#1| |ISTMP#2| |d|) (RETURN (SEQ (PROG (G169295) - (SPADLET G169295 'T) + (setq G169295 'T) (RETURN (DO ((G169307 NIL (NULL G169295)) (G169308 |u| (CDR G169308)) (|x| NIL)) @@ -5021,16 +5021,16 @@ There are several special modes used in these functions: (AND (CONSP |x|) (EQ (QCAR |x|) '|:|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |x|)) (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 |d| + (setq |d| (QCAR |ISTMP#2|)) 'T))))) (|isLegitimateMode| |d| NIL @@ -5057,14 +5057,14 @@ There are several special modes used in these functions: (COND ((AND (CONSP |m|) (PROGN - (SPADLET |op| (QCAR |m|)) - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |op| (QCAR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) - (SPADLET |rargs| (QCDR |ISTMP#1|)) + (setq |a| (QCAR |ISTMP#1|)) + (setq |rargs| (QCDR |ISTMP#1|)) 'T)))) - (SPADLET |a| (|removeQuote| |a|)) + (setq |a| (|removeQuote| |a|)) (COND ((member |op| '(|Polynomial| |RationalFunction| |AlgebraicFunction| @@ -5095,14 +5095,14 @@ There are several special modes used in these functions: (RETURN (COND ((NULL (CONSP |m|)) NIL) - ('T (SPADLET |d| (CAR |m|)) + ('T (setq |d| (CAR |m|)) (COND ((OR (|member| |d| |$univariateDomains|) (|member| |d| |$multivariateDomains|) (|member| |d| '(|Polynomial| |RationalFunction|))) 'T) ('T - (AND (SPADLET |m'| (|underDomainOf| |m|)) + (AND (setq |m'| (|underDomainOf| |m|)) (|containsPolynomial| |m'|))))))))) ;containsVariables m == @@ -5117,13 +5117,13 @@ There are several special modes used in these functions: (RETURN (COND ((NULL (CONSP |m|)) NIL) - ('T (SPADLET |d| (CAR |m|)) + ('T (setq |d| (CAR |m|)) (COND ((OR (|member| |d| |$univariateDomains|) (|member| |d| |$multivariateDomains|)) 'T) ('T - (AND (SPADLET |m'| (|underDomainOf| |m|)) + (AND (setq |m'| (|underDomainOf| |m|)) (|containsVariables| |m'|))))))))) ;listOfDuplicates l == @@ -5137,8 +5137,8 @@ There are several special modes used in these functions: (SEQ (COND ((AND (CONSP |l|) (PROGN - (SPADLET |x| (QCAR |l|)) - (SPADLET |l'| (QCDR |l|)) + (setq |x| (QCAR |l|)) + (setq |l'| (QCDR |l|)) 'T)) (EXIT (COND ((|member| |x| |l'|) diff --git a/src/interp/i-spec2.lisp.pamphlet b/src/interp/i-spec2.lisp.pamphlet index a5a2ecf..45f8a4c 100644 --- a/src/interp/i-spec2.lisp.pamphlet +++ b/src/interp/i-spec2.lisp.pamphlet @@ -80,28 +80,28 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |def| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |def| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |pred| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |pred| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL))))))))) NIL) - ('T (SPADLET |v| (|addDefMap| (CONS 'DEF |def|) |pred|)) + ('T (setq |v| (|addDefMap| (CONS 'DEF |def|) |pred|)) (COND ((OR (NULL (LISTP |def|)) (NULL |def|)) (|keyedSystemError| "Unexpected error or improper call to system function %1: %2" (CONS "upDEF" (CONS "bad map definition" NIL)))) - ('T (SPADLET |mapOp| (CAR |def|)) + ('T (setq |mapOp| (CAR |def|)) (COND ((LISTP |mapOp|) (COND @@ -111,7 +111,7 @@ There are several special modes used in these functions: (CONS "upDEF" (CONS "bad map definition" NIL)))) - ('T (SPADLET |mapOp| (CAR |mapOp|)))))) + ('T (setq |mapOp| (CAR |mapOp|)))))) (|put| |mapOp| '|value| |v| |$e|) (|putValue| |op| (mkObj (|voidValue|) |$Void|)) (|putModeSet| |op| (CONS |$Void| NIL))))))))) @@ -164,24 +164,24 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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) (PROGN - (SPADLET |form| + (setq |form| (QCAR |ISTMP#2|)) 'T))))))) NIL) - ('T (SPADLET |t2| |t|) + ('T (setq |t2| |t|) (COND ((AND (NULL |$genValue|) (PROG (G166131) - (SPADLET G166131 NIL) + (setq G166131 NIL) (RETURN (DO ((G166137 NIL G166131) (G166138 |$localVars| (CDR G166138)) @@ -201,8 +201,8 @@ There are several special modes used in these functions: ('T (COND ((AND (VECP D) (> (SIZE D) 0)) - (SPADLET D (ELT D 0)))) - (SPADLET |t| (|evaluateType| (|unabbrev| D))) + (setq D (ELT D 0)))) + (setq |t| (|evaluateType| (|unabbrev| D))) (COND ((|categoryForm?| |t|) (|throwKeyedMsg| @@ -210,21 +210,21 @@ There are several special modes used in these functions: "The right-hand side of the $ operator must be a ~ package or domain name, but %1p is a category.") (CONS |t| NIL))) - ('T (SPADLET |f| (|getUnname| |form|)) + ('T (setq |f| (|getUnname| |form|)) (COND ((BOOT-EQUAL |f| |$immediateDataSymbol|) - (SPADLET |f| + (setq |f| (|objValUnwrap| (|coerceInteractive| (|getValue| |form|) |$OutputForm|))) (COND ((BOOT-EQUAL |f| '(|construct|)) - (SPADLET |f| '|nil|)) + (setq |f| '|nil|)) ('T NIL)))) (COND ((AND (ATOM |form|) (NEQUAL |f| |$immediateDataSymbol|) - (SPADLET |u| + (setq |u| (|findUniqueOpInDomain| |op| |f| |t|))) |u|) @@ -241,12 +241,12 @@ There are several special modes used in these functions: ('T (COND (|$genValue| - (SPADLET |val| + (setq |val| (|wrap| (|getConstantFromDomain| (CONS |f| NIL) |t|)))) ('T - (SPADLET |val| + (setq |val| (CONS '|getConstantFromDomain| (CONS (CONS 'LIST @@ -254,9 +254,9 @@ There are several special modes used in these functions: (CONS (MKQ |t|) NIL)))))) (|putValue| |op| (mkObj |val| |t|)) (|putModeSet| |op| (CONS |t| NIL))))) - ('T (SPADLET |nargs| (|#| (CDR |form|))) + ('T (setq |nargs| (|#| (CDR |form|))) (COND - ((SPADLET |ms| + ((setq |ms| (|upDollarTuple| |op| |f| |t| |t2| (CDR |form|) |nargs|)) |ms|) @@ -267,7 +267,7 @@ There are several special modes used in these functions: (CONS |f| (CONS |t| NIL)))) ('T (COND - ((SPADLET |sig| + ((setq |sig| (|findCommonSigInDomain| |f| |t| |nargs|)) (DO ((G166149 |sig| (CDR G166149)) @@ -288,7 +288,7 @@ There are several special modes used in these functions: (|x| (|putTarget| |y| |x|)) ('T NIL))))))) (|putAtree| (CAR |form|) '|dollar| |t|) - (SPADLET |ms| (|bottomUp| |form|)) + (setq |ms| (|bottomUp| |form|)) (COND ((AND (|member| |f| '(|One| |Zero|)) (CONSP |ms|) @@ -330,27 +330,27 @@ There are several special modes used in these functions: (BOOT-EQUAL (|getUnname| (CAR |args|)) '|Tuple|)) NIL) ((AND (EQL |nargs| 1) - (SPADLET |ms| (|bottomUp| (CAR |args|))) + (setq |ms| (|bottomUp| (CAR |args|))) (CONSP |ms|) (EQ (QCDR |ms|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |ms|)) + (setq |ISTMP#1| (QCAR |ms|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Tuple|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL)))))) NIL) - ((NULL (SPADLET |singles| (|isOpInDomain| |f| |t| 1))) + ((NULL (setq |singles| (|isOpInDomain| |f| |t| 1))) NIL) - ('T (SPADLET |tuple| NIL) + ('T (setq |tuple| NIL) (DO ((G166203 |singles| (CDR G166203)) (G166189 NIL)) ((OR (ATOM G166203) (PROGN (SETQ G166189 (CAR G166203)) NIL) (PROGN (PROGN - (SPADLET |arg| (CADAR G166189)) + (setq |arg| (CADAR G166189)) G166189) NIL) (NULL (NULL |tuple|))) @@ -359,26 +359,26 @@ There are several special modes used in these functions: ((AND (CONSP |arg|) (EQ (QCAR |arg|) '|Tuple|) (PROGN - (SPADLET |ISTMP#1| (QCDR |arg|)) + (setq |ISTMP#1| (QCDR |arg|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))) - (SPADLET |tuple| |arg|)) + (setq |tuple| |arg|)) ('T NIL))))) (COND ((NULL |tuple|) NIL) - ('T (SPADLET D (CADR |t2|)) - (SPADLET |form| (CADDR |t2|)) - (SPADLET |newArg| + ('T (setq D (CADR |t2|)) + (setq |form| (CADDR |t2|)) + (setq |newArg| (CONS (|mkAtreeNode| '|Tuple|) |args|)) (|putTarget| |newArg| |tuple|) - (SPADLET |ms| (|bottomUp| |newArg|)) + (setq |ms| (|bottomUp| |newArg|)) (COND ((NEQUAL (CAR |ms|) |tuple|) NIL) ('T - (SPADLET |form| + (setq |form| (CONS (CAR |form|) (CONS |newArg| NIL))) (|putAtree| (CAR |form|) '|dollar| |t|) - (SPADLET |ms| (|bottomUp| |form|)) + (setq |ms| (|bottomUp| |form|)) (|putValue| |op| (|getValue| (CAR |form|))) (|putModeSet| |op| |ms|))))))))))) @@ -404,9 +404,9 @@ There are several special modes used in these functions: (RETURN (SEQ (PROGN (COND - ((ATOM |t|) (SPADLET |code| (|getUnname| |t|))) - ('T (SPADLET |lispOp| (CAR |t|)) - (SPADLET |argl| (CDR |t|)) + ((ATOM |t|) (setq |code| (|getUnname| |t|))) + ('T (setq |lispOp| (CAR |t|)) + (setq |argl| (CDR |t|)) (COND ((NULL (canFuncall? (ELT |lispOp| 0))) (|throwKeyedMsg| @@ -418,10 +418,10 @@ There are several special modes used in these functions: (PROGN (SETQ |arg| (CAR G166237)) NIL)) NIL) (SEQ (EXIT (|bottomUp| |arg|)))) - (SPADLET |code| + (setq |code| (CONS (|getUnname| |lispOp|) (PROG (G166247) - (SPADLET G166247 NIL) + (setq G166247 NIL) (RETURN (DO ((G166252 |argl| @@ -439,11 +439,11 @@ There are several special modes used in these functions: (|getArgValue| |arg| (|computedMode| |arg|)) G166247))))))))))))) - (SPADLET |code| + (setq |code| (COND (|$genValue| (|wrap| (|timedEVALFUN| |code|))) ('T |code|))) - (SPADLET |rt| '(|SExpression|)) + (setq |rt| '(|SExpression|)) (|putValue| |op| (mkObj |code| |rt|)) (|putModeSet| |op| (CONS |rt| NIL))))))) @@ -465,16 +465,16 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |tree|) (PROGN - (SPADLET |op| (QCAR |tree|)) - (SPADLET |ISTMP#1| (QCDR |tree|)) + (setq |op| (QCAR |tree|)) + (setq |ISTMP#1| (QCDR |tree|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |lhs| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |lhs| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |rhs| (QCAR |ISTMP#2|)) + (setq |rhs| (QCAR |ISTMP#2|)) 'T))))))) NIL) ((NEQUAL |$Boolean| (|getTarget| |op|)) NIL) @@ -500,12 +500,12 @@ There are several special modes used in these functions: ((NULL |$compilingMap|) NIL) ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |msg| (QCAR |ISTMP#1|)) 'T))))) + (PROGN (setq |msg| (QCAR |ISTMP#1|)) 'T))))) NIL) - ('T (SPADLET |msgMs| (|bottomUp| |msg|)) + ('T (setq |msgMs| (|bottomUp| |msg|)) (COND ((NULL (AND (CONSP |msgMs|) (EQ (QCDR |msgMs|) NIL) (EQUAL (QCAR |msgMs|) |$String|))) @@ -584,38 +584,38 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |type| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |type| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |prop| (QCAR |ISTMP#2|)) + (setq |prop| (QCAR |ISTMP#2|)) 'T))))))) NIL) ('T - (SPADLET |type| + (setq |type| (COND ((|isLocalVar| |type|) (CONS '|unabbrev| (CONS |type| NIL))) ('T (MKQ (|unabbrev| |type|))))) - (SPADLET |catCode| + (setq |catCode| (PROGN - (SPADLET |prop| (|unabbrev| (MSUBST '$ '% |prop|))) + (setq |prop| (|unabbrev| (MSUBST '$ '% |prop|))) (COND ((|evaluateType0| |prop|) (CONS '|evaluateType| (CONS (MKQ |prop|) NIL))) ('T (MKQ |prop|))))) - (SPADLET |code| + (setq |code| (CONS '|newHasTest| (CONS (CONS '|evaluateType| (CONS |type| NIL)) (CONS |catCode| NIL)))) (COND (|$genValue| - (SPADLET |code| (|wrap| (|timedEVALFUN| |code|))))) + (setq |code| (|wrap| (|timedEVALFUN| |code|))))) (|putValue| |op| (mkObj |code| |$Boolean|)) (|putModeSet| |op| (CONS |$Boolean| NIL))))))) @@ -635,21 +635,21 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |cond| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |cond| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |a| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (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))))))))) NIL) ('T (|bottomUpPredicate| |cond| "if/when") @@ -697,8 +697,8 @@ There are several special modes used in these functions: (declare (special |$mapName| |$declaredMode| |$Exit| |$Void|)) (RETURN (PROGN - (SPADLET |ms1| (|bottomUp| |a|)) - (SPADLET |m1| (CAR |ms1|)) + (setq |ms1| (|bottomUp| |a|)) + (setq |m1| (CAR |ms1|)) (COND ((BOOT-EQUAL |b| '|noBranch|) (|evalIF| |op| (CDR |t|) |$Void|) @@ -706,12 +706,12 @@ There are several special modes used in these functions: ((BOOT-EQUAL |b| '|noMapVal|) (COND ((BOOT-EQUAL (|getUnname| |a|) '|return|) - (SPADLET |ms1| (|bottomUp| (CADR |a|))) - (SPADLET |m1| (CAR |ms1|)) |ms1|)) + (setq |ms1| (|bottomUp| (CADR |a|))) + (setq |m1| (CAR |ms1|)) |ms1|)) (|evalIF| |op| (CDR |t|) |m1|) (|putModeSet| |op| |ms1|)) - ('T (SPADLET |ms2| (|bottomUp| |b|)) - (SPADLET |m2| (CAR |ms2|)) - (SPADLET |m| + ('T (setq |ms2| (|bottomUp| |b|)) + (setq |m2| (CAR |ms2|)) + (setq |m| (COND ((BOOT-EQUAL |m2| |m1|) |m1|) ((BOOT-EQUAL |m2| |$Exit|) |m1|) @@ -719,16 +719,16 @@ There are several special modes used in these functions: ('T (COND ((EQCAR |m1| '|Symbol|) - (SPADLET |m1| + (setq |m1| (|getMinimalVarMode| (|getUnname| |a|) |$declaredMode|)))) (COND ((EQCAR |m2| '|Symbol|) - (SPADLET |m2| + (setq |m2| (|getMinimalVarMode| (|getUnname| |b|) |$declaredMode|)))) (COND - ((SPADLET |r| (|resolveTTAny| |m2| |m1|)) |r|) + ((setq |r| (|resolveTTAny| |m2| |m1|)) |r|) ('T (|rempropI| |$mapName| '|localModemap|) (|rempropI| |$mapName| '|localVars|) (|rempropI| |$mapName| '|mapBody|) @@ -760,10 +760,10 @@ There are several special modes used in these functions: (declare (special |$Boolean| |$lastLineInSEQ| |$mapName|)) (RETURN (PROGN - (SPADLET |cond| (CAR G166457)) - (SPADLET |a| (CADR G166457)) - (SPADLET |b| (CADDR G166457)) - (SPADLET |elseCode| + (setq |cond| (CAR G166457)) + (setq |a| (CADR G166457)) + (setq |b| (CADDR G166457)) + (setq |elseCode| (COND ((BOOT-EQUAL |b| '|noMapVal|) (CONS (CONS (MKQ 'T) @@ -792,12 +792,12 @@ There are several special modes used in these functions: (CONS (CONS (MKQ 'T) (CONS (|genIFvalCode| |b| |m|) NIL)) NIL)))) - (SPADLET |code| + (setq |code| (CONS 'COND (CONS (CONS (|getArgValue| |cond| |$Boolean|) (CONS (|genIFvalCode| |a| |m|) NIL)) |elseCode|))) - (SPADLET |triple| (mkObj |code| |m|)) + (setq |triple| (mkObj |code| |m|)) (|putValue| |op| |triple|))))) ;genIFvalCode(t,m) == @@ -812,10 +812,10 @@ There are several special modes used in these functions: (PROG (|m1| |code|) (RETURN (PROGN - (SPADLET |m1| (|computedMode| |t|)) + (setq |m1| (|computedMode| |t|)) (COND ((BOOT-EQUAL |m1| |m|) (|getArgValue| |t| |m|)) - ('T (SPADLET |code| (|objVal| (|getValue| |t|))) + ('T (setq |code| (|objVal| (|getValue| |t|))) (|IFcodeTran| |code| |m| |m1|))))))) ;IFcodeTran(code,m,m1) == @@ -844,49 +844,49 @@ There are several special modes used in these functions: ((BOOT-EQUAL |m1| |$Exit|) |code|) ((NULL (AND (CONSP |code|) (EQ (QCAR |code|) 'COND) (PROGN - (SPADLET |ISTMP#1| (QCDR |code|)) + (setq |ISTMP#1| (QCDR |code|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |p1| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |p1| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |a1| (QCAR |ISTMP#3|)) + (setq |a1| (QCAR |ISTMP#3|)) 'T))))) (PROGN - (SPADLET |ISTMP#4| (QCDR |ISTMP#1|)) + (setq |ISTMP#4| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCAR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQUAL (QCAR |ISTMP#5|) ''T) (PROGN - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCDR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) (EQ (QCDR |ISTMP#6|) NIL) (PROGN - (SPADLET |a2| + (setq |a2| (QCAR |ISTMP#6|)) 'T))))))))))) (COND ((BOOT-EQUAL |m| |$Void|) |code|) - ((SPADLET |code'| + ((setq |code'| (|coerceInteractive| (mkObj (|quote2Wrapped| |code|) |m1|) |m|)) (|wrapped2Quote| (|objVal| |code'|))) ('T (|throwKeyedMsgCannotCoerceWithValue| (|quote2Wrapped| |code|) |m1| |m|)))) - ('T (SPADLET |a1| (|IFcodeTran| |a1| |m| |m1|)) - (SPADLET |a2| (|IFcodeTran| |a2| |m| |m1|)) + ('T (setq |a1| (|IFcodeTran| |a1| |m| |m1|)) + (setq |a2| (|IFcodeTran| |a2| |m| |m1|)) (CONS 'COND (CONS (CONS |p1| (CONS |a1| NIL)) (CONS (CONS ''T (CONS |a2| NIL)) NIL)))))))) @@ -908,9 +908,9 @@ There are several special modes used in these functions: (declare (special |$Void| |$Boolean|)) (RETURN (PROGN - (SPADLET |val| (|getValue| |cond|)) + (setq |val| (|getValue| |cond|)) (COND - ((SPADLET |val| (|coerceInteractive| |val| |$Boolean|)) + ((setq |val| (|coerceInteractive| |val| |$Boolean|)) (COND ((|objValUnwrap| |val|) (|upIFgenValue| |op| |a|)) ((EQ |b| '|noBranch|) @@ -933,8 +933,8 @@ There are several special modes used in these functions: (PROG (|ms| |val|) (RETURN (PROGN - (SPADLET |ms| (|bottomUp| |tree|)) - (SPADLET |val| (|getValue| |tree|)) + (setq |ms| (|bottomUp| |tree|)) + (setq |val| (|getValue| |tree|)) (|putValue| |op| |val|) (|putModeSet| |op| |ms|))))) @@ -951,20 +951,20 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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 |pattern| + (setq |pattern| (QCAR |ISTMP#2|)) 'T))))))) NIL) - ('T (SPADLET |$opIsIs| 'T) (|upisAndIsnt| |t|)))))) + ('T (setq |$opIsIs| 'T) (|upisAndIsnt| |t|)))))) ;upisnt t == ; t isnt [op,a,pattern] => nil @@ -978,20 +978,20 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (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 |pattern| + (setq |pattern| (QCAR |ISTMP#2|)) 'T))))))) NIL) - ('T (SPADLET |$opIsIs| NIL) (|upisAndIsnt| |t|)))))) + ('T (setq |$opIsIs| NIL) (|upisAndIsnt| |t|)))))) ;upisAndIsnt(t:=[op,a,pattern]) == ; -- handler for "is" pattern matching @@ -1007,13 +1007,13 @@ There are several special modes used in these functions: (declare (special |$Boolean|)) (RETURN (PROGN - (SPADLET |op| (CAR |t|)) - (SPADLET |a| (CADR |t|)) - (SPADLET |pattern| (CADDR |t|)) - (SPADLET |mS| (|bottomUp| |a|)) + (setq |op| (CAR |t|)) + (setq |a| (CADR |t|)) + (setq |pattern| (CADDR |t|)) + (setq |mS| (|bottomUp| |a|)) (COND ((NULL (AND (CONSP |mS|) (EQ (QCDR |mS|) NIL) - (PROGN (SPADLET |m| (QCAR |mS|)) 'T))) + (PROGN (setq |m| (QCAR |mS|)) 'T))) (|keyedSystemError| "Unexpected error or improper call to system function %1: %2" (CONS "upisAndIsnt" @@ -1040,11 +1040,11 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |m|) (EQ (QCAR |m|) '|List|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |um| (QCAR |ISTMP#1|)) + (setq |um| (QCAR |ISTMP#1|)) 'T))))) (|throwKeyedMsg| "Pattern matching is only allowed on lists." NIL)) @@ -1061,11 +1061,11 @@ There are several special modes used in these functions: ((AND (CONSP |pvar|) (EQ (QCAR |pvar|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pvar|)) + (setq |ISTMP#1| (QCDR |pvar|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| + (setq |var| (QCAR |ISTMP#1|)) 'T)))) (AND (NULL @@ -1073,11 +1073,11 @@ There are several special modes used in these functions: (|put| |var| '|mode| |m| |$env|))) ((AND (CONSP |pvar|) (EQ (QCAR |pvar|) '=) (PROGN - (SPADLET |ISTMP#1| (QCDR |pvar|)) + (setq |ISTMP#1| (QCDR |pvar|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| + (setq |var| (QCAR |ISTMP#1|)) 'T)))) (AND (NULL @@ -1104,21 +1104,21 @@ There are several special modes used in these functions: (declare (special |$Boolean| |$genValue| |$opIsIs|)) (RETURN (PROGN - (SPADLET |a| (CAR G166700)) - (SPADLET |pattern| (CADR G166700)) + (setq |a| (CAR G166700)) + (setq |pattern| (CADR G166700)) (COND - (|$opIsIs| (SPADLET |fun| '|evalIsPredicate|)) - ('T (SPADLET |fun| '|evalIsntPredicate|))) + (|$opIsIs| (setq |fun| '|evalIsPredicate|)) + ('T (setq |fun| '|evalIsntPredicate|))) (COND ((|isLocalPred| |pattern|) - (SPADLET |code| (|compileIs| |a| |pattern|))) + (setq |code| (|compileIs| |a| |pattern|))) ('T - (SPADLET |code| + (setq |code| (CONS |fun| (CONS (|getArgValue| |a| |mode|) (CONS (MKQ |pattern|) (CONS (MKQ |mode|) NIL))))))) - (SPADLET |triple| + (setq |triple| (COND (|$genValue| (mkObjWrap (|timedEVALFUN| |code|) @@ -1145,22 +1145,22 @@ There are several special modes used in these functions: (RETURN 'T)) ((AND (CONSP |pat|) (EQ (QCAR |pat|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pat|)) + (setq |ISTMP#1| (QCDR |pat|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| + (setq |var| (QCAR |ISTMP#1|)) 'T))) (|isLocalVar| |var|)) (RETURN 'T)) ((AND (CONSP |pat|) (EQ (QCAR |pat|) '=) (PROGN - (SPADLET |ISTMP#1| (QCDR |pat|)) + (setq |ISTMP#1| (QCDR |pat|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| + (setq |var| (QCAR |ISTMP#1|)) 'T))) (|isLocalVar| |var|)) @@ -1187,7 +1187,7 @@ There are several special modes used in these functions: (declare (special |$opIsIs|)) (RETURN (SEQ (PROGN - (SPADLET |vars| NIL) + (setq |vars| NIL) (DO ((G166773 (CDR |pattern|) (CDR G166773)) (|pat| NIL)) ((OR (ATOM G166773) @@ -1195,28 +1195,28 @@ There are several special modes used in these functions: NIL) (SEQ (EXIT (COND ((AND (IDENTP |pat|) (|isLocalVar| |pat|)) - (SPADLET |vars| (CONS |pat| |vars|))) + (setq |vars| (CONS |pat| |vars|))) ((AND (CONSP |pat|) (EQ (QCAR |pat|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pat|)) + (setq |ISTMP#1| (QCDR |pat|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) + (setq |var| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |vars| (CONS |var| |vars|))) + (setq |vars| (CONS |var| |vars|))) ((AND (CONSP |pat|) (EQ (QCAR |pat|) '=) (PROGN - (SPADLET |ISTMP#1| (QCDR |pat|)) + (setq |ISTMP#1| (QCDR |pat|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) + (setq |var| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |vars| (CONS |var| |vars|))))))) - (SPADLET |predCode| + (setq |vars| (CONS |var| |vars|))))))) + (setq |predCode| (CONS 'LET - (CONS (SPADLET |g| (GENSYM)) + (CONS (setq |g| (GENSYM)) (CONS (CONS '|isPatternMatch| (CONS (|getArgValue| |val| @@ -1232,7 +1232,7 @@ There are several special modes used in these functions: ((OR (ATOM G166782) (PROGN (SETQ |var| (CAR G166782)) NIL)) NIL) - (SEQ (EXIT (SPADLET |assignCode| + (SEQ (EXIT (setq |assignCode| (CONS (CONS 'LET (CONS |var| @@ -1288,10 +1288,10 @@ There are several special modes used in these functions: (declare (special |$env|)) (RETURN (SEQ (PROGN - (SPADLET |pattern| (|removeConstruct| |pattern|)) + (setq |pattern| (|removeConstruct| |pattern|)) (COND ((NULL (BOOT-EQUAL - (SPADLET |valueAlist| + (setq |valueAlist| (|isPatternMatch| |value| |pattern|)) '|failed|)) (DO ((G166812 |valueAlist| (CDR G166812)) @@ -1300,8 +1300,8 @@ There are several special modes used in these functions: (PROGN (SETQ G166802 (CAR G166812)) NIL) (PROGN (PROGN - (SPADLET |id| (CAR G166802)) - (SPADLET |value| (CDR G166802)) + (setq |id| (CAR G166802)) + (setq |value| (CDR G166802)) G166802) NIL)) NIL) @@ -1333,22 +1333,22 @@ There are several special modes used in these functions: (PROGN (COND ((AND (CONSP |pat|) (EQ (QCAR |pat|) '|construct|) - (PROGN (SPADLET |p| (QCDR |pat|)) 'T)) - (SPADLET |pat| |p|))) + (PROGN (setq |p| (QCDR |pat|)) 'T)) + (setq |pat| |p|))) (COND ((AND (CONSP |pat|) (EQ (QCAR |pat|) '|cons|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pat|)) + (setq |ISTMP#1| (QCDR |pat|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |pat| + (setq |pat| (CONS |a| (CONS (CONS '|:| (CONS |b| NIL)) NIL))))) (COND ((ATOM |pat|) |pat|) @@ -1365,7 +1365,7 @@ There are several special modes used in these functions: (PROG (|$subs|) (DECLARE (SPECIAL |$subs|)) (RETURN - (PROGN (SPADLET |$subs| NIL) (|isPatMatch| |l| |pats|) |$subs|)))) + (PROGN (setq |$subs| NIL) (|isPatMatch| |l| |pats|) |$subs|)))) ;isPatMatch(l,pats) == ; null pats => @@ -1405,68 +1405,68 @@ There are several special modes used in these functions: ((NULL |pats|) (COND ((NULL |l|) |$subs|) - ('T (SPADLET |$subs| '|failed|)))) + ('T (setq |$subs| '|failed|)))) ((NULL |l|) (COND ((NULL |pats|) |$subs|) ((AND (CONSP |pats|) (EQ (QCDR |pats|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |pats|)) + (setq |ISTMP#1| (QCAR |pats|)) (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|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |var| (QCAR |ISTMP#2|)) + (setq |var| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |$subs| (CONS (CONS |var| NIL) |$subs|))) - ('T (SPADLET |$subs| '|failed|)))) + (setq |$subs| (CONS (CONS |var| NIL) |$subs|))) + ('T (setq |$subs| '|failed|)))) ((AND (CONSP |pats|) (PROGN - (SPADLET |pat| (QCAR |pats|)) - (SPADLET |restPats| (QCDR |pats|)) + (setq |pat| (QCAR |pats|)) + (setq |restPats| (QCDR |pats|)) 'T)) (COND ((IDENTP |pat|) - (SPADLET |$subs| + (setq |$subs| (CONS (CONS |pat| (CAR |l|)) |$subs|)) (|isPatMatch| (CDR |l|) |restPats|)) ((AND (CONSP |pat|) (EQ (QCAR |pat|) '=) (PROGN - (SPADLET |ISTMP#1| (QCDR |pat|)) + (setq |ISTMP#1| (QCDR |pat|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) + (setq |var| (QCAR |ISTMP#1|)) 'T)))) (COND - ((SPADLET |p| (ASSQ |var| |$subs|)) + ((setq |p| (ASSQ |var| |$subs|)) (COND ((BOOT-EQUAL (CAR |l|) (CDR |p|)) (|isPatMatch| (CDR |l|) |restPats|)) - ('T (SPADLET |$subs| '|failed|)))) - ('T (SPADLET |$subs| '|failed|)))) + ('T (setq |$subs| '|failed|)))) + ('T (setq |$subs| '|failed|)))) ((AND (CONSP |pat|) (EQ (QCAR |pat|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pat|)) + (setq |ISTMP#1| (QCDR |pat|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) + (setq |var| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |n| (|#| |restPats|)) - (SPADLET |m| (SPADDIFFERENCE (|#| |l|) |n|)) + (setq |n| (|#| |restPats|)) + (setq |m| (SPADDIFFERENCE (|#| |l|) |n|)) (COND - ((MINUSP |m|) (SPADLET |$subs| '|failed|)) + ((MINUSP |m|) (setq |$subs| '|failed|)) ((ZEROP |n|) - (SPADLET |$subs| (CONS (CONS |var| |l|) |$subs|))) + (setq |$subs| (CONS (CONS |var| |l|) |$subs|))) ('T - (SPADLET |$subs| + (setq |$subs| (CONS (CONS |var| (PROG (G166898) - (SPADLET G166898 NIL) + (setq G166898 NIL) (RETURN (DO ((G166904 |l| @@ -1513,8 +1513,8 @@ There are several special modes used in these functions: (|throwKeyedMsg| "A(n) %1 statement may only be used within a repeat loop." (CONS "iterate" NIL))) - ('T (SPADLET |$iterateCount| (+ |$iterateCount| 1)) - (SPADLET |code| + ('T (setq |$iterateCount| (+ |$iterateCount| 1)) + (setq |code| (CONS 'THROW (CONS |$repeatBodyLabel| (CONS '(|voidValue|) NIL)))) @@ -1541,16 +1541,16 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL))))) NIL) ((NULL |$repeatLabel|) (|throwKeyedMsg| "A(n) %1 statement may only be used within a repeat loop." (CONS "break" NIL))) - ('T (SPADLET |$breakCount| (+ |$breakCount| 1)) - (SPADLET |code| + ('T (setq |$breakCount| (+ |$breakCount| 1)) + (setq |code| (CONS 'THROW (CONS |$repeatLabel| (CONS '(|voidValue|) NIL)))) (COND @@ -1609,21 +1609,21 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |lhs| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |lhs| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |rhs| (QCAR |ISTMP#2|)) + (setq |rhs| (QCAR |ISTMP#2|)) 'T))))))) NIL) - ('T (SPADLET |$declaredMode| NIL) + ('T (setq |$declaredMode| NIL) (COND - ((CONSP |lhs|) (SPADLET |var| (|getUnname| (CAR |lhs|))) + ((CONSP |lhs|) (setq |var| (|getUnname| (CAR |lhs|))) (COND ((BOOT-EQUAL |var| '|construct|) (|upLETWithPatternOnLhs| |t|)) @@ -1632,10 +1632,10 @@ There are several special modes used in these functions: "%1 is not valid on the left-hand side of an assignment expression." (CONS "A quoted form" NIL))) ('T (|upLETWithFormOnLhs| |op| |lhs| |rhs|)))) - ('T (SPADLET |var| (|getUnname| |lhs|)) + ('T (setq |var| (|getUnname| |lhs|)) (COND ((BOOT-EQUAL |var| |$immediateDataSymbol|) - (SPADLET |obj| + (setq |obj| (|objValUnwrap| (|coerceInteractive| (|getValue| |lhs|) |$OutputForm|))) @@ -1650,7 +1650,7 @@ There are several special modes used in these functions: (NULL (|member| |var| '(|true| |false| |elt| QUOTE)))) (COND - ((NEQUAL |var| (SPADLET |var'| (|unabbrev| |var|))) + ((NEQUAL |var| (setq |var'| (|unabbrev| |var|))) (|throwKeyedMsg| (format nil "You have used the abbreviation %1 of the constructor ~ @@ -1674,29 +1674,29 @@ There are several special modes used in these functions: ('T NIL)) (COND ((AND (NULL (|isTupleForm| |rhs|)) - (SPADLET |m| (|isType| |rhs|))) + (setq |m| (|isType| |rhs|))) (|upLETtype| |op| |lhs| |m|)) ('T (|transferPropsToNode| |var| |lhs|) (COND - ((SPADLET |m| (|getMode| |lhs|)) - (SPADLET |$declaredMode| |m|) + ((setq |m| (|getMode| |lhs|)) + (setq |$declaredMode| |m|) (|putTarget| |rhs| |m|))) (COND - ((AND (SPADLET |val| (|getValue| |lhs|)) + ((AND (setq |val| (|getValue| |lhs|)) (BOOT-EQUAL (|objMode| |val|) |$Boolean|) (BOOT-EQUAL (|getUnname| |rhs|) '|equation|)) (|putTarget| |rhs| |$Boolean|))) (COND ((BOOT-EQUAL - (SPADLET |rhsMs| (|bottomUp| |rhs|)) + (setq |rhsMs| (|bottomUp| |rhs|)) (CONS |$Void| NIL)) (|throwKeyedMsg| (format nil "You cannot assign an object of type Void to any ~ identifier, (in particular, %2 ).") (CONS |var| NIL))) - ('T (SPADLET |val| (|evalLET| |lhs| |rhs|)) + ('T (setq |val| (|evalLET| |lhs| |rhs|)) (|putValue| |op| |val|) (|putModeSet| |op| (CONS (|objMode| |val|) NIL))))))))) @@ -1721,8 +1721,8 @@ There are several special modes used in these functions: ((NEQUAL (|getUnname| |f|) '|Tuple|) NIL) ((AND (CONSP |f|) (PROGN - (SPADLET |op| (QCAR |f|)) - (SPADLET |args| (QCDR |f|)) + (setq |op| (QCAR |f|)) + (setq |args| (QCDR |f|)) 'T) (VECP |op|) (BOOT-EQUAL (|getUnname| |op|) '|Tuple|)) (COND @@ -1771,24 +1771,24 @@ There are several special modes used in these functions: |$declaredMode| |$env|)) (RETURN (PROGN - (SPADLET |$useConvertForCoercions| 'T) - (SPADLET |v'| (SPADLET |v| (|getValue| |rhs|))) + (setq |$useConvertForCoercions| 'T) + (setq |v'| (setq |v| (|getValue| |rhs|))) (COND ((OR (AND (NULL (|getMode| |lhs|)) (PROGN - (SPADLET |ISTMP#1| (|getModeSet| |rhs|)) + (setq |ISTMP#1| (|getModeSet| |rhs|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL)))) (|get| (|getUnname| |lhs|) '|autoDeclare| |$env|)) - (SPADLET |v| + (setq |v| (COND (|$genValue| |v|) ('T (mkObj (|wrapped2Quote| (|objVal| |v|)) (|objMode| |v|))))) (|evalLETput| |lhs| |v|)) - ('T (SPADLET |t1| (|objMode| |v|)) - (SPADLET |t2'| (SPADLET |t2| (|getMode| |lhs|))) - (SPADLET |value| + ('T (setq |t1| (|objMode| |v|)) + (setq |t2'| (setq |t2| (|getMode| |lhs|))) + (setq |value| (COND ((BOOT-EQUAL |t1| |t2|) (COND @@ -1802,17 +1802,17 @@ There are several special modes used in these functions: (COND ((AND (EQCAR |t1| '|Symbol|) |$declaredMode|) - (SPADLET |t1| + (setq |t1| (|getMinimalVarMode| (|objValUnwrap| |v|) |$declaredMode|)))) - (SPADLET |t'| |t2|) + (setq |t'| |t2|) (COND - ((NULL (SPADLET |t2| + ((NULL (setq |t2| (|resolveTM| |t1| |t2|))) (PROGN (COND - ((NULL |t2|) (SPADLET |t2| |t'|))) + ((NULL |t2|) (setq |t2| |t'|))) (|throwKeyedMsg| (format nil "Cannot resolve the type %1p of the ~ @@ -1820,11 +1820,11 @@ There are several special modes used in these functions: type %2p of the left-hand side.") (CONS |t1| (CONS |t2| NIL)))))))) (COND - ((NULL (SPADLET |v| + ((NULL (setq |v| (|getArgValue| |rhs| |t2|))) (COND ((AND (|isWrapped| (|objVal| |v'|)) - (SPADLET |v2| + (setq |v2| (|coerceInteractive| |v'| |$OutputForm|))) (|throwKeyedMsg| @@ -1889,14 +1889,14 @@ There are several special modes used in these functions: (declare (special |$genValue| |$env| |$compilingMap| |$e| |$mapName|)) (RETURN (PROGN - (SPADLET |name| (|getUnname| |lhs|)) + (setq |name| (|getUnname| |lhs|)) (COND ((NULL |$genValue|) - (SPADLET |code| + (setq |code| (COND ((|isLocalVar| |name|) - (SPADLET |om| (|objMode| |value|)) - (SPADLET |dm| (|get| |name| '|mode| |$env|)) + (setq |om| (|objMode| |value|)) + (setq |dm| (|get| |name| '|mode| |$env|)) (COND ((AND |dm| (NULL (OR (BOOT-EQUAL |om| |dm|) @@ -1915,8 +1915,8 @@ There are several special modes used in these functions: (CONS |name| (CONS (|objVal| |value|) (CONS |$mapName| NIL))))))) - ('T (SPADLET |om| (|objMode| |value|)) - (SPADLET |dm| + ('T (setq |om| (|objMode| |value|)) + (setq |dm| (OR (|get| |name| '|mode| |$env|) (|objMode| (|get| |name| '|value| |$e|)))) @@ -1937,7 +1937,7 @@ There are several special modes used in these functions: (|objMode| |value|)) NIL))) NIL))))))) - (SPADLET |value| (mkObj |code| (|objMode| |value|))) + (setq |value| (mkObj |code| (|objMode| |value|))) (COND ((|isLocalVar| |name|) (COND @@ -1973,16 +1973,16 @@ There are several special modes used in these functions: (DECLARE (SPECIAL |$opIsIs| |$genValue|)) (RETURN (PROGN - (SPADLET |op| (CAR |t|)) - (SPADLET |pattern| (CADR |t|)) - (SPADLET |a| (CADDR |t|)) - (SPADLET |$opIsIs| 'T) - (SPADLET |LETTMP#1| (|bottomUp| |a|)) - (SPADLET |m| (CAR |LETTMP#1|)) + (setq |op| (CAR |t|)) + (setq |pattern| (CADR |t|)) + (setq |a| (CADDR |t|)) + (setq |$opIsIs| 'T) + (setq |LETTMP#1| (|bottomUp| |a|)) + (setq |m| (CAR |LETTMP#1|)) (|putPvarModes| |pattern| |m|) - (SPADLET |object| + (setq |object| (|evalis| |op| (CONS |a| (CONS |pattern| NIL)) |m|)) - (SPADLET |failCode| + (setq |failCode| (CONS '|spadThrowBrightly| (CONS (CONS '|concat| (CONS " Pattern" @@ -2002,7 +2002,7 @@ There are several special modes used in these functions: ((NULL (|objValUnwrap| |object|)) (|eval| |failCode|)) ('T (|putValue| |op| (|getValue| |a|))))) ('T - (SPADLET |code| + (setq |code| (CONS 'COND (CONS (CONS (|objVal| |object|) (CONS (|objVal| (|getValue| |a|)) @@ -2033,10 +2033,10 @@ There are several special modes used in these functions: (declare (special |$e| |$env|)) (RETURN (PROGN - (SPADLET |localEnv| (CONSP |$env|)) - (SPADLET |clearCompilationsFlag| + (setq |localEnv| (CONSP |$env|)) + (setq |clearCompilationsFlag| (PROGN - (SPADLET |val| + (setq |val| (OR (AND |localEnv| (|get| |name| '|value| |$env|)) (|get| |name| '|value| |$e|))) @@ -2051,7 +2051,7 @@ There are several special modes used in these functions: (|clearCompilationsFlag| (|clearDependencies| |name| 'T))) (COND ((AND |localEnv| (|isLocalVar| |name|)) - (SPADLET |$env| (|putHist| |name| '|value| |value| |$env|))) + (setq |$env| (|putHist| |name| '|value| |value| |$env|))) ('T (|putIntSymTab| |name| '|value| |value| |$e|))) (|objVal| |value|))))) @@ -2093,8 +2093,8 @@ There are several special modes used in these functions: (declare (special |$mapName|)) (RETURN (SEQ (PROGN - (SPADLET |lhs'| (|getUnnameIfCan| |lhs|)) - (SPADLET |rhs'| (|getUnnameIfCan| |rhs|)) + (setq |lhs'| (|getUnnameIfCan| |lhs|)) + (setq |rhs'| (|getUnnameIfCan| |rhs|)) (COND ((BOOT-EQUAL |lhs'| '|Tuple|) (COND @@ -2111,10 +2111,10 @@ There are several special modes used in these functions: "Assignments with tuples must have the same size tuples ~ on each side of the := .") NIL)) - ('T (SPADLET |seq| NIL) - (SPADLET |temps| + ('T (setq |seq| NIL) + (setq |temps| (PROG (G167115) - (SPADLET G167115 NIL) + (setq G167115 NIL) (RETURN (DO ((G167120 (CDR |lhs|) (CDR G167120)) @@ -2145,12 +2145,12 @@ There are several special modes used in these functions: (SEQ (EXIT (PROGN (|transferPropsToNode| (|getUnname| |l|) |l|) - (SPADLET |let| (|mkAtreeNode| 'LET)) - (SPADLET |t'| (|mkAtreeNode| |t|)) + (setq |let| (|mkAtreeNode| 'LET)) + (setq |t'| (|mkAtreeNode| |t|)) (COND - ((SPADLET |m| (|getMode| |l|)) + ((setq |m| (|getMode| |l|)) (|putMode| |t'| |m|))) - (SPADLET |seq| + (setq |seq| (CONS (CONS |let| (CONS |l| (CONS |t'| NIL))) @@ -2170,18 +2170,18 @@ There are several special modes used in these functions: (PROGN (SETQ |l| (CAR G167165)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |let| (|mkAtreeNode| 'LET)) - (SPADLET |t'| (|mkAtreeNode| |t|)) + (setq |let| (|mkAtreeNode| 'LET)) + (setq |t'| (|mkAtreeNode| |t|)) (COND - ((SPADLET |m| (|getMode| |l|)) + ((setq |m| (|getMode| |l|)) (|putMode| |t'| |m|))) - (SPADLET |seq| + (setq |seq| (CONS (CONS |let| (CONS |t'| (CONS |r| NIL))) |seq|)))))) - (SPADLET |seq| (CONS (|mkAtreeNode| 'SEQ) |seq|)) - (SPADLET |ms| (|bottomUp| |seq|)) + (setq |seq| (CONS (|mkAtreeNode| 'SEQ) |seq|)) + (setq |ms| (|bottomUp| |seq|)) (|putValue| |op| (|getValue| |seq|)) (|putModeSet| |op| |ms|)))) ((BOOT-EQUAL |rhs'| '|Tuple|) @@ -2190,7 +2190,7 @@ There are several special modes used in these functions: "If there is a tuple on the left-hand side of an assignment ~ then there must also be one on the right-hand side.") NIL)) - ((SPADLET |tree| (|seteltable| |lhs| |rhs|)) + ((setq |tree| (|seteltable| |lhs| |rhs|)) (|upSetelt| |op| |lhs| |tree|)) ('T (|throwKeyedMsg| @@ -2217,16 +2217,16 @@ There are several special modes used in these functions: (declare (special |$e|)) (RETURN (PROGN - (SPADLET |f| (CAR |lhs|)) - (SPADLET |argl| (CDR |lhs|)) + (setq |f| (CAR |lhs|)) + (setq |argl| (CDR |lhs|)) (COND - ((NULL (SPADLET |g| (|getUnnameIfCan| |f|))) NIL) + ((NULL (setq |g| (|getUnnameIfCan| |f|))) NIL) ((EQ |g| '|elt|) (|altSeteltable| (APPEND |argl| (CONS |rhs| NIL)))) ((AND (PROGN - (SPADLET |ISTMP#1| (|get| |g| '|value| |$e|)) + (setq |ISTMP#1| (|get| |g| '|value| |$e|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |expr| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |expr| (QCAR |ISTMP#1|)) 'T))) (|isMapExpr| |expr|)) NIL) ('T (|transferPropsToNode| |g| |f|) @@ -2235,8 +2235,8 @@ There are several special modes used in these functions: (COND ((AND (CONSP |f|) (PROGN - (SPADLET |f'| (QCAR |f|)) - (SPADLET |argl'| (QCDR |f|)) + (setq |f'| (QCAR |f|)) + (setq |argl'| (QCDR |f|)) 'T)) (|altSeteltable| (CONS |f'| @@ -2267,22 +2267,22 @@ There are several special modes used in these functions: (PROGN (SETQ |x| (CAR G167234)) NIL)) NIL) (SEQ (EXIT (|bottomUp| |x|)))) - (SPADLET |newOps| + (setq |newOps| (CONS (|mkAtreeNode| '|setelt|) (CONS (|mkAtreeNode| '|set!|) NIL))) - (SPADLET |form| NIL) + (setq |form| NIL) (DO ((G167244 |newOps| (CDR G167244)) (|newOp| NIL)) ((OR (NULL (NULL |form|)) (ATOM G167244) (PROGN (SETQ |newOp| (CAR G167244)) NIL)) NIL) (SEQ (EXIT (COND ((|selectMms| |newOp| |args| NIL) - (SPADLET |form| (CONS |newOp| |args|))) + (setq |form| (CONS |newOp| |args|))) ('T NIL))))) (DO () ((NULL (AND (NULL |form|) (PROG (G167257) - (SPADLET G167257 'T) + (setq G167257 'T) (RETURN (DO ((G167263 NIL (NULL G167257)) (G167264 (CDR |args|) @@ -2310,7 +2310,7 @@ There are several special modes used in these functions: (SEQ (EXIT (COND ((|selectMms| |newOp| |args| NIL) - (SPADLET |form| + (setq |form| (CONS |newOp| |args|))) ('T NIL)))))))) |form|))))) @@ -2331,17 +2331,17 @@ There are several special modes used in these functions: (declare (special |$declaredMode|)) (RETURN (PROGN - (SPADLET |var| (|opOf| |lhs|)) + (setq |var| (|opOf| |lhs|)) (|transferPropsToNode| (|getUnname| |var|) |var|) (COND - ((SPADLET |m1| (|getMode| |var|)) - (SPADLET |$declaredMode| |m1|))) + ((setq |m1| (|getMode| |var|)) + (setq |$declaredMode| |m1|))) (COND ((OR |m1| - (AND (SPADLET |v1| (|getValue| |var|)) - (SPADLET |m1| (|objMode| |v1|)))) + (AND (setq |v1| (|getValue| |var|)) + (setq |m1| (|objMode| |v1|)))) (|putModeSet| |var| (CONS |m1| NIL)))) - (SPADLET |ms| (|bottomUp| |tree|)) + (setq |ms| (|bottomUp| |tree|)) (|putValue| |op| (|getValue| |tree|)) (|putModeSet| |op| |ms|))))) @@ -2371,8 +2371,8 @@ There are several special modes used in these functions: (declare (special |$genValue|)) (RETURN (SEQ (PROGN - (SPADLET |htOp| (CAR |lhs|)) - (SPADLET |args| (CDR |lhs|)) + (setq |htOp| (CAR |lhs|)) + (setq |args| (CDR |lhs|)) (COND ((AND (BOOT-EQUAL '* (ELT (PNAME (|getUnname| |htOp|)) 0)) @@ -2392,7 +2392,7 @@ There are several special modes used in these functions: (CONS (|getUnname| (CAR |args|)) (CONS (PROG (G167309) - (SPADLET G167309 NIL) + (setq G167309 NIL) (RETURN (DO ((G167314 (CDR |args|) @@ -2415,7 +2415,7 @@ There are several special modes used in these functions: NIL))))))))) (CONS "]" NIL))))) NIL))) - ('T (SPADLET |keyMode| '(|Any|)) + ('T (setq |keyMode| '(|Any|)) (|putMode| |htOp| (CONS '|Table| (CONS |keyMode| (CONS '(|Any|) NIL)))) @@ -2425,14 +2425,14 @@ There are several special modes used in these functions: (CONS (CONS (|mkAtreeNode| '|table|) NIL) NIL)))) - (SPADLET |tableCode| (|objVal| (|getValue| |htOp|))) - (SPADLET |r| + (setq |tableCode| (|objVal| (|getValue| |htOp|))) + (setq |r| (|upSetelt| |op| |lhs| (CONS (|mkAtreeNode| '|setelt|) (APPEND |lhs| (CONS |rhs| NIL))))) (COND (|$genValue| |r|) - ('T (SPADLET |t| (|getValue| |op|)) + ('T (setq |t| (|getValue| |op|)) (|putValue| |op| (mkObj (CONS 'PROGN @@ -2466,15 +2466,15 @@ There are several special modes used in these functions: (PROG (|op| |argTypes| |type| |d|) (RETURN (SEQ (PROGN - (SPADLET |op| (|opOf| |t|)) + (setq |op| (|opOf| |t|)) (COND ((VECP |op|) (COND - ((|isMap| (SPADLET |op| (|getUnname| |op|))) NIL) + ((|isMap| (setq |op| (|getUnname| |op|))) NIL) ((BOOT-EQUAL |op| '|Mapping|) - (SPADLET |argTypes| + (setq |argTypes| (PROG (G167337) - (SPADLET G167337 NIL) + (setq G167337 NIL) (RETURN (DO ((G167342 (CDR |t|) (CDR G167342)) @@ -2490,7 +2490,7 @@ There are several special modes used in these functions: G167337)))))))) (COND ((PROG (G167348) - (SPADLET G167348 NIL) + (setq G167348 NIL) (RETURN (DO ((G167354 NIL G167348) (G167355 |argTypes| (CDR G167355)) @@ -2505,9 +2505,9 @@ There are several special modes used in these functions: NIL) ('T (CONS '|Mapping| |argTypes|)))) ((|isLocalVar| |op|) NIL) - ((SPADLET |d| (|isDomainValuedVariable| |op|)) |d|) + ((setq |d| (|isDomainValuedVariable| |op|)) |d|) ('T - (SPADLET |type| + (setq |type| (AND (OR (|abbreviation?| |op|) (BOOT-EQUAL |op| '|typeOf|) (|constructor?| |op|) @@ -2515,7 +2515,7 @@ There are several special modes used in these functions: '(|Record| |Union| |Enumeration|))) (|unabbrev| (|unVectorize| |t|)))) (AND |type| (|evaluateType| |type|))))) - ((SPADLET |d| (|isDomainValuedVariable| |op|)) |d|) + ((setq |d| (|isDomainValuedVariable| |op|)) |d|) ('T NIL))))))) ;upLETtype(op,lhs,type) == @@ -2539,11 +2539,11 @@ There are several special modes used in these functions: (declare (special |$e| |$env| |$localVars| |$genValue|)) (RETURN (SEQ (PROGN - (SPADLET |opName| (|getUnname| |lhs|)) + (setq |opName| (|getUnname| |lhs|)) (COND ((AND (NULL |$genValue|) (PROG (G167374) - (SPADLET G167374 NIL) + (setq G167374 NIL) (RETURN (DO ((G167380 NIL G167374) (G167381 |$localVars| (CDR G167381)) @@ -2560,13 +2560,13 @@ There are several special modes used in these functions: (CONS " Cannot compile type assignment to" (|bright| |opName|)))) ('T - (SPADLET |mode| + (setq |mode| (COND ((|isPartialMode| |type|) '(|Mode|)) ((|categoryForm?| |type|) '(|SubDomain| (|Domain|))) ('T '(|Domain|)))) - (SPADLET |val| (mkObj |type| |mode|)) + (setq |val| (mkObj |type| |mode|)) (COND ((|isLocalVar| |opName|) (|put| |opName| '|value| |val| |$env|)) @@ -2588,9 +2588,9 @@ There are several special modes used in these functions: (declare (special |$e|)) (RETURN (COND - ((SPADLET |val| (|get| |symbol| '|value| |$e|)) NIL) + ((setq |val| (|get| |symbol| '|value| |$e|)) NIL) ('T - (SPADLET |obj| + (setq |obj| (mkObj (|wrap| |value|) (|devaluate| |domain|))) (|put| |symbol| '|value| |obj| |$e|) 'T))))) @@ -2606,9 +2606,9 @@ There are several special modes used in these functions: (declare (special |$InteractiveFrame| |$InterpreterMacroAlist|)) (RETURN (SEQ (PROGN - (SPADLET |names| + (setq |names| (PROG (G167413) - (SPADLET G167413 NIL) + (setq G167413 NIL) (RETURN (DO ((G167419 |$InterpreterMacroAlist| (CDR G167419)) @@ -2619,19 +2619,19 @@ There are several special modes used in these functions: NIL) (PROGN (PROGN - (SPADLET |n| (CAR G167401)) + (setq |n| (CAR G167401)) G167401) NIL)) (NREVERSE0 G167413)) (SEQ (EXIT (SETQ G167413 (CONS |n| G167413)))))))) (COND - ((AND (SPADLET |e| (CAAR |$InteractiveFrame|)) - (SPADLET |m| (|assoc| '|--macros--| |e|))) - (SPADLET |names| + ((AND (setq |e| (CAAR |$InteractiveFrame|)) + (setq |m| (|assoc| '|--macros--| |e|))) + (setq |names| (APPEND |names| (PROG (G167431) - (SPADLET G167431 NIL) + (setq G167431 NIL) (RETURN (DO ((G167437 (CDR |m|) @@ -2644,7 +2644,7 @@ There are several special modes used in these functions: NIL) (PROGN (PROGN - (SPADLET |n| + (setq |n| (CAR G167404)) G167404) NIL)) @@ -2674,11 +2674,11 @@ There are several special modes used in these functions: (COND ((NULL (IDENTP |name|)) NIL) ((|member| |name| |$specialOps|) NIL) - ((SPADLET |m| (|get| '|--macros--| |name| |$env|)) |m|) - ((SPADLET |m| (|get| '|--macros--| |name| |$e|)) |m|) - ((SPADLET |m| (|get| '|--macros--| |name| |$InteractiveFrame|)) + ((setq |m| (|get| '|--macros--| |name| |$env|)) |m|) + ((setq |m| (|get| '|--macros--| |name| |$e|)) |m|) + ((setq |m| (|get| '|--macros--| |name| |$InteractiveFrame|)) |m|) - ((SPADLET |sv| (|assoc| |name| |$InterpreterMacroAlist|)) + ((setq |sv| (|assoc| |name| |$InterpreterMacroAlist|)) (CONS NIL (CDR |sv|))) ('T NIL))))) @@ -2701,17 +2701,17 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |expr| (QCAR |ISTMP#1|)) + (setq |expr| (QCAR |ISTMP#1|)) 'T))))) NIL) ('T - (SPADLET |ms| + (setq |ms| (LIST (COND - ((SPADLET |m| (|getBasicMode| |expr|)) |m|) + ((setq |m| (|getBasicMode| |expr|)) |m|) ((IDENTP |expr|) (CONS '|Variable| (CONS |expr| NIL))) ('T |$OutputForm|)))) @@ -2729,9 +2729,9 @@ There are several special modes used in these functions: (declare (special |$genValue|)) (RETURN (PROGN - (SPADLET |m| (CAR G167491)) - (SPADLET |expr| (CAR G167484)) - (SPADLET |triple| + (setq |m| (CAR G167491)) + (setq |expr| (CAR G167484)) + (setq |triple| (COND (|$genValue| (mkObjWrap |expr| |m|)) ('T (mkObj (CONS 'QUOTE (CONS |expr| NIL)) |m|)))) @@ -2752,19 +2752,19 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |expr| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |expr| (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))))))) NIL) - ('T (SPADLET |mode| (|evaluateType| (|unabbrev| |type|))) + ('T (setq |mode| (|evaluateType| (|unabbrev| |type|))) (COND ((NULL (|isValidType| |mode|)) (|throwKeyedMsg| "%1p is not a valid type." (CONS |mode| NIL))) @@ -2811,31 +2811,31 @@ There are several special modes used in these functions: (COND ((AND (CONSP |type|) (EQ (QCAR |type|) '|Variable|) (PROGN - (SPADLET |ISTMP#1| (QCDR |type|)) + (setq |ISTMP#1| (QCDR |type|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |var| (QCAR |ISTMP#1|)) + (setq |var| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |args| - (CONS (SPADLET |arg| (|mkAtreeNode| |var|)) + (setq |args| + (CONS (setq |arg| (|mkAtreeNode| |var|)) (CONS |arg| NIL))) (|putValue| |arg| (mkObjWrap |var| |type|))) ('T - (SPADLET |args| - (CONS (SPADLET |arg| (|mkAtreeNode| '%1)) + (setq |args| + (CONS (setq |arg| (|mkAtreeNode| '%1)) (CONS |arg| NIL))) (COND ((BOOT-EQUAL |type| |$Symbol|) (|putValue| |arg| (mkObjWrap '%1 |$Symbol|))) ('T NIL)))) (|putModeSet| |arg| (CONS |type| NIL)) - (SPADLET |vecOp| (|mkAtreeNode| |op|)) + (setq |vecOp| (|mkAtreeNode| |op|)) (|transferPropsToNode| |op| |vecOp|) (COND (|locale| (|putAtree| |vecOp| '|dollar| |locale|))) - (SPADLET |mmS| (|selectMms| |vecOp| |args| |result|)) - (SPADLET |mm| + (setq |mmS| (|selectMms| |vecOp| |args| |result|)) + (setq |mm| (PROG (G167557) - (SPADLET G167557 NIL) + (setq G167557 NIL) (RETURN (DO ((G167565 NIL G167557) (G167566 |mmS| (CDR G167566)) @@ -2846,9 +2846,9 @@ There are several special modes used in these functions: NIL) (PROGN (PROGN - (SPADLET |sig| (CDAR |mm|)) - (SPADLET |fun| (CADR |mm|)) - (SPADLET |cond| (CADDR |mm|)) + (setq |sig| (CDAR |mm|)) + (setq |fun| (CADR |mm|)) + (setq |cond| (CADDR |mm|)) |mm|) NIL)) G167557) @@ -2856,7 +2856,7 @@ There are several special modes used in these functions: ((AND (|isHomogeneousArgs| |sig|) (PROG (G167574) - (SPADLET G167574 'T) + (setq G167574 'T) (RETURN (DO ((G167580 NIL @@ -2880,22 +2880,22 @@ There are several special modes used in these functions: (OR G167557 |mm|)))))))))) (COND ((NULL |mm|) '|failed|) - ('T (SPADLET |dc| (CAAR |mm|)) - (SPADLET |sig| (CDAR |mm|)) (SPADLET |fun| (CADR |mm|)) + ('T (setq |dc| (CAAR |mm|)) + (setq |sig| (CDAR |mm|)) (setq |fun| (CADR |mm|)) (COND ((BOOT-EQUAL |dc| '|local|) (CONS (MKQ (CONS |fun| '|local|)) (CAR |sig|))) - ('T (SPADLET |dcVector| (|evalDomain| |dc|)) + ('T (setq |dcVector| (|evalDomain| |dc|)) (COND (|$compilingMap| - (SPADLET |k| + (setq |k| (|NRTgetMinivectorIndex| (|NRTcompiledLookup| |op| |sig| |dcVector|) |op| |sig| |dcVector|)) (CONS 'ELT (CONS '$$$ (CONS |k| NIL)))) ('T - (SPADLET |env| + (setq |env| (|NRTcompiledLookup| |op| |sig| |dcVector|)) (MKQ |env|)))))))))))) @@ -2949,12 +2949,12 @@ There are several special modes used in these functions: |iterList|) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| (REVERSE G167761)) - (SPADLET |body| (CAR |LETTMP#1|)) - (SPADLET |itrl| (NREVERSE (CDR |LETTMP#1|))) - (SPADLET |iterList| + (setq |LETTMP#1| (REVERSE G167761)) + (setq |body| (CAR |LETTMP#1|)) + (setq |itrl| (NREVERSE (CDR |LETTMP#1|))) + (setq |iterList| (PROG (G167816) - (SPADLET G167816 NIL) + (setq G167816 NIL) (RETURN (DO ((G167856 |itrl| (CDR G167856)) (|it| NIL)) @@ -2969,28 +2969,28 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) 'STEP) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |lower| + (setq |lower| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |step| + (setq |step| (QCAR |ISTMP#3|)) - (SPADLET + (setq |upperList| (QCDR |ISTMP#3|)) @@ -3003,7 +3003,7 @@ There are several special modes used in these functions: (CONS (|mkAtree1| |step|) (PROG (G167866) - (SPADLET G167866 + (setq G167866 NIL) (RETURN (DO @@ -3033,20 +3033,20 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) 'IN) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (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)))))) (CONS @@ -3058,20 +3058,20 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) 'ON) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| + (setq |index| (QCAR |ISTMP#1|)) - (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)))))) (CONS @@ -3086,13 +3086,13 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) 'WHILE) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#1|)) 'T)))) (CONS @@ -3103,13 +3103,13 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) '|\||) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) (CONS @@ -3119,17 +3119,17 @@ There are several special modes used in these functions: NIL)) ((AND (CONSP |it|) (PROGN - (SPADLET |op| + (setq |op| (QCAR |it|)) 'T) (|member| |op| '(VALUE UNTIL))) NIL)))))))))) - (SPADLET |bodyTree| (|mkAtree1| |body|)) - (SPADLET |iterList| + (setq |bodyTree| (|mkAtree1| |body|)) + (setq |iterList| (NCONC |iterList| (PROG (G167877) - (SPADLET G167877 NIL) + (setq G167877 NIL) (RETURN (DO ((G167891 |itrl| (CDR G167891)) @@ -3158,13 +3158,13 @@ There are several special modes used in these functions: NIL) ((AND (CONSP |it|) (PROGN - (SPADLET |op| (QCAR |it|)) - (SPADLET |ISTMP#1| + (setq |op| (QCAR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#1|)) 'T))) (|member| |op| @@ -3176,12 +3176,12 @@ There are several special modes used in these functions: ((AND (CONSP |it|) (EQ (QCAR |it|) '|\||) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) NIL) @@ -3210,10 +3210,10 @@ There are several special modes used in these functions: |$iterateCount| |$compilingLoop|)) (RETURN (PROGN - (SPADLET |$repeatLabel| (MKQ (GENSYM))) - (SPADLET |$breakCount| 0) - (SPADLET |$repeatBodyLabel| (MKQ (GENSYM))) - (SPADLET |$iterateCount| 0) + (setq |$repeatLabel| (MKQ (GENSYM))) + (setq |$breakCount| 0) + (setq |$repeatBodyLabel| (MKQ (GENSYM))) + (setq |$iterateCount| 0) (COND (|$compilingLoop| (|upREPEAT1| |t|)) ('T (|upREPEAT0| |t|))))))) @@ -3230,8 +3230,8 @@ There are several special modes used in these functions: (DECLARE (SPECIAL |$compilingLoop|)) (RETURN (PROGN - (SPADLET |$compilingLoop| 'T) - (SPADLET |ms| (CATCH '|loopCompiler| (|upREPEAT1| |t|))) + (setq |$compilingLoop| 'T) + (setq |ms| (CATCH '|loopCompiler| (|upREPEAT1| |t|))) (COND ((BOOT-EQUAL |ms| '|tryInterpOnly|) (|interpOnlyREPEAT| |t|)) ('T |ms|)))))) @@ -3266,24 +3266,24 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T) (CONSP |ISTMP#2|) (PROGN - (SPADLET |body| (QCAR |ISTMP#2|)) - (SPADLET |itrl| (QCDR |ISTMP#2|)) + (setq |body| (QCAR |ISTMP#2|)) + (setq |itrl| (QCDR |ISTMP#2|)) 'T) (PROGN - (SPADLET |itrl| (NREVERSE |itrl|)) + (setq |itrl| (NREVERSE |itrl|)) 'T))))) NIL) ('T - (SPADLET |repeatMode| + (setq |repeatMode| (COND ((AND (NULL |itrl|) (EQL |$breakCount| 0)) |$Void|) @@ -3303,12 +3303,12 @@ There are several special modes used in these functions: ((AND (CONSP |itr|) (EQ (QCAR |itr|) 'UNTIL) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |itr|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) (EXIT @@ -3340,21 +3340,21 @@ There are several special modes used in these functions: |$repeatBodyLabel| |$iterateCount|)) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| (REVERSE G168014)) - (SPADLET |body| (CAR |LETTMP#1|)) - (SPADLET |itrl| (NREVERSE (CDR |LETTMP#1|))) - (SPADLET |bodyMode| (|computedMode| |body|)) - (SPADLET |bodyCode| (|getArgValue| |body| |bodyMode|)) + (setq |LETTMP#1| (REVERSE G168014)) + (setq |body| (CAR |LETTMP#1|)) + (setq |itrl| (NREVERSE (CDR |LETTMP#1|))) + (setq |bodyMode| (|computedMode| |body|)) + (setq |bodyCode| (|getArgValue| |body| |bodyMode|)) (COND ((> |$iterateCount| 0) - (SPADLET |bodyCode| + (setq |bodyCode| (CONS 'CATCH (CONS |$repeatBodyLabel| (CONS |bodyCode| NIL)))))) - (SPADLET |code| + (setq |code| (CONS 'REPEAT (APPEND (PROG (G168029) - (SPADLET G168029 NIL) + (setq G168029 NIL) (RETURN (DO ((G168034 |itrl| @@ -3375,16 +3375,16 @@ There are several special modes used in these functions: (CONS |bodyCode| NIL)))) (COND ((BOOT-EQUAL |repeatMode| |$Void|) - (SPADLET |code| + (setq |code| (CONS 'OR (CONS |code| (CONS '(|voidValue|) NIL)))))) - (SPADLET |code| (|timedOptimization| |code|)) + (setq |code| (|timedOptimization| |code|)) (COND ((> |$breakCount| 0) - (SPADLET |code| + (setq |code| (CONS 'CATCH (CONS |$repeatLabel| (CONS |code| NIL)))))) - (SPADLET |val| + (setq |val| (COND (|$genValue| (|timedEVALFUN| |code|) (mkObjWrap (|voidValue|) |repeatMode|)) @@ -3402,8 +3402,8 @@ There are several special modes used in these functions: (DECLARE (SPECIAL |$genValue| |$interpOnly|)) (RETURN (PROGN - (SPADLET |$genValue| 'T) - (SPADLET |$interpOnly| 'T) + (setq |$genValue| 'T) + (setq |$interpOnly| 'T) (|upREPEAT1| |t|))))) ;interpREPEAT(op,itrl,body,repeatMode) == @@ -3426,12 +3426,12 @@ There are several special modes used in these functions: |$repeatBodyLabel|)) (RETURN (SEQ (PROGN - (SPADLET |$indexVars| NIL) - (SPADLET |$indexTypes| NIL) - (SPADLET |code| + (setq |$indexVars| NIL) + (setq |$indexTypes| NIL) + (setq |code| (CONS 'REPEAT (APPEND (PROG (G168070) - (SPADLET G168070 NIL) + (setq G168070 NIL) (RETURN (DO ((G168075 |itrl| @@ -3459,7 +3459,7 @@ There are several special modes used in these functions: NIL)))) (catch (|eval| |$repeatLabel|) (|timedEVALFUN| |code|)) - (SPADLET |val| (mkObjWrap (|voidValue|) |repeatMode|)) + (setq |val| (mkObjWrap (|voidValue|) |repeatMode|)) (|putValue| |op| |val|) (|putModeSet| |op| (CONS |repeatMode| NIL))))))) @@ -3513,8 +3513,8 @@ There are several special modes used in these functions: (SEQ (EXIT (|put| |i| '|value| (mkObjWrap |val| |type|) |$env|)))) (|bottomUp| |exp|) - (SPADLET |v| (|getValue| |exp|)) - (SPADLET |val| + (setq |v| (|getValue| |exp|)) + (setq |val| (COND ((NULL |requiredType|) |v|) ('T (|coerceInteractive| |v| |requiredType|)))) @@ -3555,10 +3555,10 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |val| (QCAR |ISTMP#1|)) 'T))))) + (PROGN (setq |val| (QCAR |ISTMP#1|)) 'T))))) NIL) ((AND (NULL |$compilingMap|) (NULL |$interpOnly|)) (|throwKeyedMsg| @@ -3568,15 +3568,15 @@ There are several special modes used in these functions: (|bottomUp| |val|) (COND (|$mapTarget| - (SPADLET |val'| (|getArgValue| |val| |$mapTarget|)) - (SPADLET |m| |$mapTarget|)) + (setq |val'| (|getArgValue| |val| |$mapTarget|)) + (setq |m| |$mapTarget|)) ('T - (SPADLET |val'| + (setq |val'| (|wrapped2Quote| (|objVal| (|getValue| |val|)))) - (SPADLET |m| (|computedMode| |val|)))) - (SPADLET |cn| (|mapCatchName| |$mapName|)) - (SPADLET |$mapReturnTypes| (|insert| |m| |$mapReturnTypes|)) - (SPADLET |$mapThrowCount| (+ |$mapThrowCount| 1)) + (setq |m| (|computedMode| |val|)))) + (setq |cn| (|mapCatchName| |$mapName|)) + (setq |$mapReturnTypes| (|insert| |m| |$mapReturnTypes|)) + (setq |$mapThrowCount| (+ |$mapThrowCount| 1)) (COND (|$genValue| (THROW |cn| (mkObjWrap (|removeQuote| |val'|) |m|))) @@ -3606,13 +3606,13 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |u|) (PROGN - (SPADLET |op| (QCAR |u|)) - (SPADLET |args| (QCDR |u|)) + (setq |op| (QCAR |u|)) + (setq |args| (QCDR |u|)) 'T))) NIL) ('T (COND - ((SPADLET |target| (|getTarget| |op|)) + ((setq |target| (|getTarget| |op|)) (|putTarget| (|last| |args|) |target|))) (DO ((G168154 |args| (CDR G168154)) (|x| NIL)) ((OR (ATOM G168154) @@ -3620,7 +3620,7 @@ There are several special modes used in these functions: NIL) (SEQ (EXIT (|bottomUp| |x|)))) (COND - ((NULL (SPADLET |m| (|computedMode| (|last| |args|)))) + ((NULL (setq |m| (|computedMode| (|last| |args|)))) (|keyedSystemError| "Unexpected error or improper call to system function %1: %2" (CONS "upSEQ" @@ -3650,13 +3650,13 @@ There are several special modes used in these functions: (declare (special |$genValue|)) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| (REVERSE |args|)) - (SPADLET |last| (CAR |LETTMP#1|)) - (SPADLET |argl| (NREVERSE (CDR |LETTMP#1|))) - (SPADLET |val| + (setq |LETTMP#1| (REVERSE |args|)) + (setq |last| (CAR |LETTMP#1|)) + (setq |argl| (NREVERSE (CDR |LETTMP#1|))) + (setq |val| (COND (|$genValue| (|getValue| |last|)) - ('T (SPADLET |bodyCode| NIL) + ('T (setq |bodyCode| NIL) (SEQ (DO ((G168177 |args| (CDR G168177)) (|x| NIL)) ((OR (ATOM G168177) @@ -3667,25 +3667,25 @@ There are several special modes used in these functions: (SEQ (EXIT (COND ((AND - (SPADLET |m1| + (setq |m1| (|computedMode| |x|)) (NEQUAL |m1| '|$ThrowAwayMode|)) (EXIT (COND ((NEQUAL - (SPADLET |av| + (setq |av| (|getArgValue| |x| |m1|)) (|voidValue|)) (EXIT - (SPADLET |bodyCode| + (setq |bodyCode| (CONS |av| |bodyCode|))))))))))) - (SPADLET |code| + (setq |code| (COND ((AND (CONSP |bodyCode|) (EQ (QCDR |bodyCode|) NIL) (PROGN - (SPADLET |c| + (setq |c| (QCAR |bodyCode|)) 'T)) |c|) @@ -3727,23 +3727,23 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |l| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |l| (QCDR |t|)) 'T))) NIL) - ('T (SPADLET |dol| (|getAtree| |op| '|dollar|)) - (SPADLET |tar| (OR (|getTarget| |op|) |dol|)) + ('T (setq |dol| (|getAtree| |op| '|dollar|)) + (setq |tar| (OR (|getTarget| |op|) |dol|)) (COND ((NULL |l|) (|upNullTuple| |op| |l| |tar|)) ((|isTaggedUnion| |tar|) (|upTaggedUnionConstruct| |op| |l| |tar|)) - ('T (SPADLET |aggs| '(|List|)) + ('T (setq |aggs| '(|List|)) (COND ((AND |tar| (CONSP |tar|) (NULL (|isPartialMode| |tar|))) (COND ((|member| (CAR |tar|) |aggs|) - (SPADLET |ud| (CADR |tar|)) + (setq |ud| (CADR |tar|)) (DO ((G168210 |l| (CDR G168210)) (|x| NIL)) ((OR (ATOM G168210) (PROGN (SETQ |x| (CAR G168210)) NIL)) @@ -3755,7 +3755,7 @@ There are several special modes used in these functions: ((|member| (CAR |tar|) '(|Matrix| |SquareMatrix| |RectangularMatrix|)) - (SPADLET |vec| + (setq |vec| (CONS '|List| (CONS (|underDomainOf| |tar|) NIL))) @@ -3767,9 +3767,9 @@ There are several special modes used in these functions: ((NULL (|getTarget| |x|)) (|putTarget| |x| |vec|)) ('T NIL))))))))) - (SPADLET |argModeSetList| + (setq |argModeSetList| (PROG (G168229) - (SPADLET G168229 NIL) + (setq G168229 NIL) (RETURN (DO ((G168234 |l| (CDR G168234)) (|x| NIL)) @@ -3782,10 +3782,10 @@ There are several special modes used in these functions: (SETQ G168229 (CONS (|bottomUp| |x|) G168229)))))))) - (SPADLET |eltTypes| + (setq |eltTypes| (|replaceSymbols| (PROG (G168244) - (SPADLET G168244 NIL) + (setq G168244 NIL) (RETURN (DO ((G168249 |argModeSetList| (CDR G168249)) @@ -3804,27 +3804,27 @@ There are several special modes used in these functions: ((AND (NULL (|isPartialMode| |tar|)) (CONSP |tar|) (EQ (QCAR |tar|) '|Tuple|) (PROGN - (SPADLET |ISTMP#1| (QCDR |tar|)) + (setq |ISTMP#1| (QCDR |tar|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ud| (QCAR |ISTMP#1|)) + (setq |ud| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |mode| + (setq |mode| (CONS '|Tuple| (CONS (|resolveTypeListAny| (CONS |ud| |eltTypes|)) NIL)))) ('T - (SPADLET |mode| + (setq |mode| (CONS '|Tuple| (CONS (|resolveTypeListAny| |eltTypes|) NIL))))) (COND ((|isPartialMode| |tar|) - (SPADLET |tar| (|resolveTM| |mode| |tar|)))) + (setq |tar| (|resolveTM| |mode| |tar|)))) (|evalTuple| |op| |l| |mode| |tar|))))))))) ;evalTuple(op,l,m,tar) == @@ -3846,13 +3846,13 @@ There are several special modes used in these functions: (declare (special |$genValue|)) (RETURN (SEQ (PROGN - (SPADLET |agg| (CAR |m|)) - (SPADLET |LETTMP#1| (REVERSE (CDR |m|))) - (SPADLET |underMode| (CAR |LETTMP#1|)) - (SPADLET |code| + (setq |agg| (CAR |m|)) + (setq |LETTMP#1| (REVERSE (CDR |m|))) + (setq |underMode| (CAR |LETTMP#1|)) + (setq |code| (|asTupleNewCode| (|#| |l|) (PROG (G168285) - (SPADLET G168285 NIL) + (setq G168285 NIL) (RETURN (DO ((G168290 |l| (CDR G168290)) (|x| NIL)) @@ -3871,15 +3871,15 @@ There are several special modes used in these functions: "Cannot convert an element of the construct to type %1p ." (CONS |underMode| NIL))) G168285))))))))) - (SPADLET |val| + (setq |val| (COND (|$genValue| (mkObjWrap (|timedEVALFUN| |code|) |m|)) ('T (mkObj |code| |m|)))) (COND - (|tar| (SPADLET |val1| + (|tar| (setq |val1| (|coerceInteractive| |val| |tar|))) - ('T (SPADLET |val1| |val|))) + ('T (setq |val1| |val|))) (COND (|val1| (|putValue| |op| |val1|) (|putModeSet| |op| (CONS (OR |tar| |m|) NIL))) @@ -3906,26 +3906,26 @@ There are several special modes used in these functions: (PROG (|a| |ISTMP#1| |b| |defMode| |val| |val'|) (RETURN (PROGN - (SPADLET |defMode| + (setq |defMode| (COND ((AND |tar| (CONSP |tar|) (PROGN - (SPADLET |a| (QCAR |tar|)) - (SPADLET |ISTMP#1| (QCDR |tar|)) + (setq |a| (QCAR |tar|)) + (setq |ISTMP#1| (QCDR |tar|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |b| (QCAR |ISTMP#1|)) + (setq |b| (QCAR |ISTMP#1|)) 'T))) (|member| |a| '(|Stream| |Vector| |List|)) (NULL (|isPartialMode| |b|))) (CONS '|Tuple| (CONS |b| NIL))) ('T '(|Tuple| (|None|))))) - (SPADLET |val| (mkObjWrap (|asTupleNew| 0 NIL) |defMode|)) + (setq |val| (mkObjWrap (|asTupleNew| 0 NIL) |defMode|)) (COND ((AND |tar| (NULL (|isPartialMode| |tar|))) (COND - ((NULL (SPADLET |val'| (|coerceInteractive| |val| |tar|))) + ((NULL (setq |val'| (|coerceInteractive| |val| |tar|))) (|throwKeyedMsg| 'S2IS0013 (CONS |tar| NIL))) ('T (|putValue| |op| |val'|) (|putModeSet| |op| (CONS |tar| NIL))))) @@ -3952,28 +3952,28 @@ There are several special modes used in these functions: (COND ((NULL (AND (CONSP |form|) (PROGN - (SPADLET |op| (QCAR |form|)) - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |op| (QCAR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |arg| (QCAR |ISTMP#1|)) 'T))))) + (PROGN (setq |arg| (QCAR |ISTMP#1|)) 'T))))) NIL) ('T (COND ((VECP |arg|) (|transferPropsToNode| (|getUnname| |arg|) |arg|))) (COND - ((SPADLET |m| (|isType| |arg|)) - (SPADLET |m| + ((setq |m| (|isType| |arg|)) + (setq |m| (COND ((|categoryForm?| |m|) '(|SubDomain| (|Domain|))) ((|isPartialMode| |m|) '(|Mode|)) ('T '(|Domain|))))) - ((NULL (SPADLET |m| (|getMode| |arg|))) - (SPADLET |LETTMP#1| (|bottomUp| |arg|)) - (SPADLET |m| (CAR |LETTMP#1|)) |LETTMP#1|) + ((NULL (setq |m| (|getMode| |arg|))) + (setq |LETTMP#1| (|bottomUp| |arg|)) + (setq |m| (CAR |LETTMP#1|)) |LETTMP#1|) ('T NIL)) - (SPADLET |t| (|typeOfType| |m|)) + (setq |t| (|typeOfType| |m|)) (|putValue| |op| (mkObj |m| |t|)) (|putModeSet| |op| (CONS |t| NIL))))))) @@ -4018,16 +4018,16 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (AND (CONSP |t|) (PROGN - (SPADLET |op| (QCAR |t|)) - (SPADLET |ISTMP#1| (QCDR |t|)) + (setq |op| (QCAR |t|)) + (setq |ISTMP#1| (QCDR |t|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |tree| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |tree| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |clause| + (setq |clause| (QCAR |ISTMP#2|)) 'T))))))) NIL) @@ -4036,14 +4036,14 @@ There are several special modes used in these functions: (APPEND (|bright| " where") (CONS "for compiled code is not yet implemented." NIL)))) - ('T (SPADLET |$whereCacheList| NIL) - (SPADLET |LETTMP#1| + ('T (setq |$whereCacheList| NIL) + (setq |LETTMP#1| (|upwhereClause| |clause| |$env| |$e|)) - (SPADLET |env| (CAR |LETTMP#1|)) - (SPADLET |e| (CDR |LETTMP#1|)) - (SPADLET |tree| (|upwhereMkAtree| |tree| |env| |e|)) + (setq |env| (CAR |LETTMP#1|)) + (setq |e| (CDR |LETTMP#1|)) + (setq |tree| (|upwhereMkAtree| |tree| |env| |e|)) (COND - ((SPADLET |x| (|getAtree| |op| '|dollar|)) + ((setq |x| (|getAtree| |op| '|dollar|)) (COND ((ATOM |tree|) (|throwKeyedMsg| @@ -4053,13 +4053,13 @@ There are several special modes used in these functions: NIL)) ('T (|putAtree| (CAR |tree|) '|dollar| |x|))))) (|upwhereMain| |tree| |env| |e|) - (SPADLET |val| (|getValue| |tree|)) + (setq |val| (|getValue| |tree|)) (|putValue| |op| |val|) - (SPADLET |result| + (setq |result| (|putModeSet| |op| (|getModeSet| |tree|))) - (SPADLET |wcl| + (setq |wcl| (PROG (G168397) - (SPADLET G168397 NIL) + (setq G168397 NIL) (RETURN (DO ((G168402 |$whereCacheList| (CDR G168402)) @@ -4091,8 +4091,8 @@ There are several special modes used in these functions: (DECLARE (SPECIAL |$env| |$e|)) (RETURN (PROGN - (SPADLET |$env| (|copyHack| |env|)) - (SPADLET |$e| (|copyHack| |e|)) + (setq |$env| (|copyHack| |env|)) + (setq |$e| (|copyHack| |e|)) (|bottomUp| |tree|) (CONS |$env| |$e|))))) @@ -4123,7 +4123,7 @@ There are several special modes used in these functions: (RETURN (SEQ (CONS (CAR |p|) (PROG (G168460) - (SPADLET G168460 NIL) + (setq G168460 NIL) (RETURN (DO ((G168465 (CDR |p|) (CDR G168465)) (|q| NIL)) @@ -4144,10 +4144,10 @@ There are several special modes used in these functions: (PROG (|c| |d|) (RETURN (SEQ (PROGN - (SPADLET |c| (CAAR |env|)) - (SPADLET |d| + (setq |c| (CAAR |env|)) + (setq |d| (PROG (G168481) - (SPADLET G168481 NIL) + (setq G168481 NIL) (RETURN (DO ((G168486 |c| (CDR G168486)) (|p| NIL)) @@ -4175,7 +4175,7 @@ There are several special modes used in these functions: (EVALANDFILEACTQ (REPEAT (IN |name| |$specialOps|) - (SEQ (SPADLET |functionName| (INTERNL '|up| |name|)) + (SEQ (setq |functionName| (INTERNL '|up| |name|)) (setf (get |name| '|up|) |functionName|) (EXIT |functionName|)))) diff --git a/src/interp/i-util.lisp.pamphlet b/src/interp/i-util.lisp.pamphlet index 36ca90e..624ce42 100644 --- a/src/interp/i-util.lisp.pamphlet +++ b/src/interp/i-util.lisp.pamphlet @@ -45,7 +45,7 @@ lisp code is unwrapped. (COND ((OR (NUMBERP |x|) (FLOATP |x|) (stringp |x|)) |x|) ((AND (CONSP |x|) (EQ (QCAR |x|) 'WRAPPED) - (PROGN (SPADLET |y| (QCDR |x|)) 'T)) + (PROGN (setq |y| (QCDR |x|)) 'T)) |y|) ('T |x|))))) @@ -58,7 +58,7 @@ lisp code is unwrapped. (RETURN (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'WRAPPED) - (PROGN (SPADLET |y| (QCDR |x|)) 'T)) + (PROGN (setq |y| (QCDR |x|)) 'T)) (MKQ |y|)) ('T |x|))))) @@ -72,9 +72,9 @@ lisp code is unwrapped. (COND ((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 |y| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |y| (QCAR |ISTMP#1|)) 'T)))) (|wrap| |y|)) ('T |x|))))) @@ -88,9 +88,9 @@ lisp code is unwrapped. (COND ((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 |y| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |y| (QCAR |ISTMP#1|)) 'T)))) |y|) ('T |x|))))) @@ -122,9 +122,9 @@ lisp code is unwrapped. (declare (special $SHOWLINE $OLDLINE $SCREENSIZE)) (RETURN (COND - ((ATOM (SPADLET |x| ($SCREENSIZE))) NIL) - ('T (SPADLET |p| (SPADDIFFERENCE (CAR |x|) 2)) - (SPADLET |y| $OLDLINE) (SETQ $OLDLINE NIL) + ((ATOM (setq |x| ($SCREENSIZE))) NIL) + ('T (setq |p| (SPADDIFFERENCE (CAR |x|) 2)) + (setq |y| $OLDLINE) (SETQ $OLDLINE NIL) (COND (|y| ($SHOWLINE (STRCONC |str| (EBCDIC 19) |y|) |p|)) ((EQL 0 (SIZE |str|)) NIL) @@ -145,16 +145,16 @@ lisp code is unwrapped. (PROG (|str| |br| |msg|) (RETURN (PROGN - (SPADLET |str| (CAR |p|)) - (SPADLET |br| (CDR |p|)) + (setq |str| (CAR |p|)) + (setq |br| (CDR |p|)) (COND ((EQL 0 (SIZE |str|)) (|inputPrompt| |str|)) - ('T (SPADLET |msg| (EBCDIC 29)) - (SPADLET |msg| + ('T (setq |msg| (EBCDIC 29)) + (setq |msg| (COND (|br| (STRCONC |msg| (EBCDIC 232))) ('T (STRCONC |msg| (EBCDIC 96))))) - (SPADLET |msg| + (setq |msg| (STRCONC |msg| |str| (EBCDIC 29) (EBCDIC 64))) (|inputPrompt| |msg|))))))) @@ -172,7 +172,7 @@ lisp code is unwrapped. ((AND (BOUNDP '|$ZeroVecCache|) (BOOT-EQUAL (|#| |$ZeroVecCache|) |n|)) |$ZeroVecCache|) - ('T (SPADLET |$ZeroVecCache| (make-array |n|)) + ('T (setq |$ZeroVecCache| (make-array |n|)) (DO ((G166122 (SPADDIFFERENCE |n| 1)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G166122) NIL) (SEQ (EXIT (SETELT |$ZeroVecCache| |i| 0)))) @@ -189,9 +189,9 @@ lisp code is unwrapped. (RETURN (SEQ (COND ((> 1 |n|) NIL) - ('T (SPADLET |l| (CONS 0 NIL)) + ('T (setq |l| (CONS 0 NIL)) (DO ((|i| 2 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) - (SEQ (EXIT (SPADLET |l| (CONS 0 |l|))))) + (SEQ (EXIT (setq |l| (CONS 0 |l|))))) |l|)))))) ;-- bpi2FunctionName x == @@ -212,17 +212,17 @@ lisp code is unwrapped. (PROG (|subDomainList| |l|) (RETURN (PROGN - (SPADLET |subDomainList| + (setq |subDomainList| '(|Integer| |NonNegativeInteger| |PositiveInteger|)) (COND ((OR (ATOM |d1|) (ATOM |d2|)) NIL) - ((SPADLET |l| (member (CAR |d2|) |subDomainList|)) + ((setq |l| (member (CAR |d2|) |subDomainList|)) (member (CAR |d1|) (CDR |l|))) ('T NIL)))))) ;$variableNumberAlist := nil -(SPADLET |$variableNumberAlist| NIL) +(setq |$variableNumberAlist| NIL) ;variableNumber(x) == ; p := ASSQ(x, $variableNumberAlist) @@ -237,10 +237,10 @@ lisp code is unwrapped. (declare (special |$variableNumberAlist|)) (RETURN (PROGN - (SPADLET |p| (ASSQ |x| |$variableNumberAlist|)) + (setq |p| (ASSQ |x| |$variableNumberAlist|)) (COND ((NULL |p|) - (SPADLET |$variableNumberAlist| + (setq |$variableNumberAlist| (CONS (CONS |x| 0) |$variableNumberAlist|)) 0) ('T (RPLACD |p| (+ 1 (CDR |p|))) (CDR |p|))))))) @@ -265,16 +265,16 @@ lisp code is unwrapped. (declare (special |$reportBottomUpFlag|)) (RETURN (PROGN - (SPADLET |u'| (|last| |u|)) - (SPADLET |domain| (CAAR |u'|)) - (SPADLET |slot| (CADAR |u'|)) - (SPADLET |op| (CADR |u'|)) - (SPADLET |sig| (CADDR |u'|)) - (SPADLET |domain'| (|eval| (|mkEvalable| |domain|))) + (setq |u'| (|last| |u|)) + (setq |domain| (CAAR |u'|)) + (setq |slot| (CADAR |u'|)) + (setq |op| (CADR |u'|)) + (setq |sig| (CADDR |u'|)) + (setq |domain'| (|eval| (|mkEvalable| |domain|))) (COND ((NULL (EQ (CAR (ELT |domain'| |slot|)) |Undef|)) - (SPADLET |LETTMP#1| (REVERSE |u|)) - (SPADLET |u''| (NREVERSE (CDR |LETTMP#1|))) + (setq |LETTMP#1| (REVERSE |u|)) + (setq |u''| (NREVERSE (CDR |LETTMP#1|))) (COND (|$reportBottomUpFlag| (|sayMessage| @@ -317,11 +317,11 @@ lisp code is unwrapped. ((NULL (REFVECP |d|)) |d|) ((AND (QSGREATERP (QVSIZE |d|) 5) (PROGN - (SPADLET |ISTMP#1| (QREFELT |d| 3)) + (setq |ISTMP#1| (QREFELT |d| 3)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (EQ (QCAR |ISTMP#1|) '|Category|)))) (QREFELT |d| 0)) - ((QSGREATERP (QVSIZE |d|) 0) (SPADLET |d'| (QREFELT |d| 0)) + ((QSGREATERP (QVSIZE |d|) 0) (setq |d'| (QREFELT |d| 0)) (COND ((|isFunctor| |d'|) |d'|) ('T |d|))) ('T |d|))))) @@ -331,7 +331,7 @@ lisp code is unwrapped. (PROG () (RETURN (SEQ (PROG (G166193) - (SPADLET G166193 NIL) + (setq G166193 NIL) (RETURN (DO ((G166198 |l| (CDR G166198)) (|d| NIL)) ((OR (ATOM G166198) @@ -353,8 +353,8 @@ lisp code is unwrapped. (PROG (|op| |sig|) (RETURN (PROGN - (SPADLET |op| (CAR G166208)) - (SPADLET |sig| (CADR G166208)) + (setq |op| (CAR G166208)) + (setq |sig| (CADR G166208)) (|compiledLookup| |op| |sig| |domain|))))) ;domainEqual(a,b) == @@ -365,7 +365,7 @@ lisp code is unwrapped. ;$newCompilerUnionFlag := true -(SPADLET |$newCompilerUnionFlag| 'T) +(setq |$newCompilerUnionFlag| 'T) ;orderUnionEntries l == ; $newCompilerUnionFlag => l @@ -383,8 +383,8 @@ lisp code is unwrapped. (RETURN (SEQ (IF (AND (CONSP |l|) (PROGN - (SPADLET |x| (QCAR |l|)) - (SPADLET |l'| (QCDR |l|)) + (setq |x| (QCAR |l|)) + (setq |l'| (QCDR |l|)) 'T)) (EXIT (SEQ (IF (STRINGP |x|) (EXIT (|orderUnionEntries,split| |l'| @@ -401,19 +401,19 @@ lisp code is unwrapped. (COND (|$newCompilerUnionFlag| |l|) ((PROGN - (SPADLET |ISTMP#1| (CAR |l|)) + (setq |ISTMP#1| (CAR |l|)) (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))))))) |l|) ('T - (SPADLET |LETTMP#1| (|orderUnionEntries,split| |l| NIL NIL)) - (SPADLET |a| (CAR |LETTMP#1|)) (SPADLET |b| (CADR |LETTMP#1|)) + (setq |LETTMP#1| (|orderUnionEntries,split| |l| NIL NIL)) + (setq |a| (CAR |LETTMP#1|)) (setq |b| (CADR |LETTMP#1|)) (APPEND (|orderList| |a|) (|orderList| |b|))))))) ;mkPredList listOfEntries == @@ -472,7 +472,7 @@ lisp code is unwrapped. (SEQ (COND (|$newCompilerUnionFlag| (PROG (G166340) - (SPADLET G166340 NIL) + (setq G166340 NIL) (RETURN (DO ((G166346 |listOfEntries| (CDR G166346)) (|arg| NIL) (|i| 0 (QSADD1 |i|))) @@ -485,17 +485,17 @@ lisp code is unwrapped. (CONS '|#1| (CONS |i| NIL))) G166340)))))))) ((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))))))) (PROG (G166357) - (SPADLET G166357 NIL) + (setq G166357 NIL) (RETURN (DO ((G166363 |listOfEntries| (CDR G166363)) (G166309 NIL)) @@ -505,7 +505,7 @@ lisp code is unwrapped. NIL) (PROGN (PROGN - (SPADLET |tag| (CADR G166309)) + (setq |tag| (CADR G166309)) G166309) NIL)) (NREVERSE0 G166357)) @@ -516,9 +516,9 @@ lisp code is unwrapped. (CONS (MKQ |tag|) NIL))) G166357)))))))) ('T - (SPADLET |initTypePredList| + (setq |initTypePredList| (PROG (G166374) - (SPADLET G166374 NIL) + (setq G166374 NIL) (RETURN (DO ((G166379 |listOfEntries| (CDR G166379)) @@ -541,15 +541,15 @@ lisp code is unwrapped. (GETL (|opOf| |x|) '|BasicPredicate|)))) G166374)))))))) - (SPADLET |typeList| (ASSOCLEFT |initTypePredList|)) - (SPADLET |initPredList| (ASSOCRIGHT |initTypePredList|)) - (SPADLET |hasDuplicatePredicate| + (setq |typeList| (ASSOCLEFT |initTypePredList|)) + (setq |initPredList| (ASSOCRIGHT |initTypePredList|)) + (setq |hasDuplicatePredicate| (|mkPredList,fn| |initPredList|)) (COND (|hasDuplicatePredicate| - (SPADLET |initPredList| + (setq |initPredList| (PROG (G166389) - (SPADLET G166389 NIL) + (setq G166389 NIL) (RETURN (DO ((G166394 |initPredList| (CDR G166394)) @@ -563,9 +563,9 @@ lisp code is unwrapped. (EXIT (SETQ G166389 (CONS NIL G166389)))))))))) - (SPADLET |nonEmptyPredList| + (setq |nonEmptyPredList| (PROG (G166405) - (SPADLET G166405 NIL) + (setq G166405 NIL) (RETURN (DO ((G166411 |initPredList| (CDR G166411)) @@ -579,10 +579,10 @@ lisp code is unwrapped. ((NEQUAL |p| NIL) (SETQ G166405 (CONS |p| G166405)))))))))) - (SPADLET |numberWithoutPredicate| + (setq |numberWithoutPredicate| (SPADDIFFERENCE (|#| |listOfEntries|) (|#| |nonEmptyPredList|))) - (SPADLET |predList| + (setq |predList| (COND ((AND (EQL |numberWithoutPredicate| 0) (NULL |hasDuplicatePredicate|)) @@ -590,7 +590,7 @@ lisp code is unwrapped. ((AND (EQL |numberWithoutPredicate| 1) (NULL (|last| |initPredList|)) (PROG (G166421) - (SPADLET G166421 NIL) + (setq G166421 NIL) (RETURN (DO ((G166426 @@ -606,16 +606,16 @@ lisp code is unwrapped. (EXIT (SETQ G166421 (CONS (STRINGP |x|) G166421)))))))) - (SPADLET |allButLast| + (setq |allButLast| (CDR (REVERSE |initPredList|))) (NREVERSE (CONS (CONS 'NULL (CONS (MKPF |allButLast| 'OR) NIL)) |allButLast|))) ('T - (SPADLET |tagPredList| + (setq |tagPredList| (PROG (G166436) - (SPADLET G166436 NIL) + (setq G166436 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| @@ -630,7 +630,7 @@ lisp code is unwrapped. (CONS |i| NIL))) G166436)))))))) (PROG (G166448) - (SPADLET G166448 NIL) + (setq G166448 NIL) (RETURN (DO ((G166453 |initPredList| (CDR G166453)) @@ -646,11 +646,11 @@ lisp code is unwrapped. (COND (|p| |p|) ('T - (SPADLET |LETTMP#1| + (setq |LETTMP#1| |tagPredList|) - (SPADLET |u| + (setq |u| (CAR |LETTMP#1|)) - (SPADLET |tagPredList| + (setq |tagPredList| (CDR |LETTMP#1|)) |u|)) G166448)))))))))) diff --git a/src/interp/info.lisp.pamphlet b/src/interp/info.lisp.pamphlet index d002283..2474b55 100644 --- a/src/interp/info.lisp.pamphlet +++ b/src/interp/info.lisp.pamphlet @@ -75,10 +75,10 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (SEQ (IF (ATOM |m|) (EXIT NIL)) (IF (AND (CONSP |m|) (EQ (QCAR |m|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |stuff| (QCDR |ISTMP#1|)) + (setq |stuff| (QCDR |ISTMP#1|)) 'T)))) (EXIT (DO ((G166079 |stuff| (CDR G166079)) (|u| NIL)) @@ -87,7 +87,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) NIL) (SEQ (EXIT (|addInfo| |u|)))))) (IF (AND (CONSP |m|) (EQ (QCAR |m|) '|Join|) - (PROGN (SPADLET |stuff| (QCDR |m|)) 'T)) + (PROGN (setq |stuff| (QCDR |m|)) 'T)) (EXIT (DO ((G166088 |stuff| (CDR G166088)) (|u| NIL)) ((OR (ATOM G166088) @@ -102,9 +102,9 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (DECLARE (SPECIAL |$Information|)) (RETURN (PROGN - (SPADLET |$Information| NIL) + (setq |$Information| NIL) (|addInformation,info| |m|) - (SPADLET |$e| + (setq |$e| (|put| '|$Information| 'special (APPEND |$Information| (|get| '|$Information| 'special |$e|)) @@ -115,7 +115,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (DEFUN |addInfo| (|u|) (declare (special |$Information|)) - (SPADLET |$Information| (CONS (|formatInfo| |u|) |$Information|))) + (setq |$Information| (CONS (|formatInfo| |u|) |$Information|))) ;formatInfo u == ; atom u => u @@ -144,13 +144,13 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (SEQ (COND ((ATOM |u|) |u|) ((AND (CONSP |u|) (EQ (QCAR |u|) 'SIGNATURE) - (PROGN (SPADLET |v| (QCDR |u|)) 'T)) + (PROGN (setq |v| (QCDR |u|)) 'T)) (CONS 'SIGNATURE (CONS '$ |v|))) ((AND (CONSP |u|) (EQ (QCAR |u|) 'PROGN) - (PROGN (SPADLET |l| (QCDR |u|)) 'T)) + (PROGN (setq |l| (QCDR |u|)) 'T)) (CONS 'PROGN (PROG (G166159) - (SPADLET G166159 NIL) + (setq G166159 NIL) (RETURN (DO ((G166164 |l| (CDR G166164)) (|v| NIL)) ((OR (ATOM G166164) @@ -163,9 +163,9 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) G166159))))))))) ((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 |v| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |v| (QCAR |ISTMP#1|)) 'T)))) (COND ((AND (ATOM |v|) (|isCategoryForm| (CONS |v| NIL) |$e|)) @@ -176,19 +176,19 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) ('T (CONS 'ATTRIBUTE (CONS '$ (CONS |v| 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 |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|) (PROGN - (SPADLET |b| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |b| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |c| (QCAR |ISTMP#3|)) + (setq |c| (QCAR |ISTMP#3|)) 'T)))))))) (COND ((BOOT-EQUAL |c| '|noBranch|) @@ -226,7 +226,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (PROG (|ll|) (RETURN (SEQ (IF (AND (CONSP |conj|) (EQ (QCAR |conj|) '|and|) - (PROGN (SPADLET |ll| (QCDR |conj|)) 'T)) + (PROGN (setq |ll| (QCDR |conj|)) 'T)) (EXIT (CONS '|and| (CONS |pred| |ll|)))) (EXIT (CONS '|and| (CONS |pred| (CONS |conj| NIL)))))))) @@ -234,13 +234,13 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (PROG (|ante| |conseq| |l| |a| |b|) (RETURN (SEQ (PROGN - (SPADLET |ante| (CAR |clause|)) - (SPADLET |conseq| (CADR |clause|)) + (setq |ante| (CAR |clause|)) + (setq |conseq| (CADR |clause|)) (COND ((AND (CONSP |conseq|) (EQ (QCAR |conseq|) 'COND) - (PROGN (SPADLET |l| (QCDR |conseq|)) 'T)) + (PROGN (setq |l| (QCDR |conseq|)) 'T)) (PROG (G166216) - (SPADLET G166216 NIL) + (setq G166216 NIL) (RETURN (DO ((G166222 |l| (CDR G166222)) (G166189 NIL)) @@ -250,8 +250,8 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR G166189)) - (SPADLET |b| (CDR G166189)) + (setq |a| (CAR G166189)) + (setq |b| (CDR G166189)) G166189) NIL)) (NREVERSE0 G166216)) @@ -283,15 +283,15 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (SEQ (COND ((AND (CONSP |u|) (EQ (QCAR |u|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (COND ((AND (ATOM |b|) @@ -305,7 +305,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) ((|isCategoryForm| |b| |$e|) |u|) ((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)))) |u|) @@ -317,10 +317,10 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) NIL)))))) ((ATOM |u|) |u|) ((AND (CONSP |u|) (EQ (QCAR |u|) '|and|) - (PROGN (SPADLET |v| (QCDR |u|)) 'T)) + (PROGN (setq |v| (QCDR |u|)) 'T)) (CONS '|and| (PROG (G166262) - (SPADLET G166262 NIL) + (setq G166262 NIL) (RETURN (DO ((G166267 |v| (CDR G166267)) (|w| NIL)) ((OR (ATOM G166267) @@ -361,8 +361,8 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (declare (special |$e|)) (RETURN (SEQ (IF (|knownInfo| |pred|) (EXIT NIL)) - (SPADLET |$e| (|actOnInfo| |pred| |$e|)) - (SPADLET |pred| (|infoToHas| |pred|)) + (setq |$e| (|actOnInfo| |pred| |$e|)) + (setq |pred| (|infoToHas| |pred|)) (EXIT (DO ((G166301 (|get| '|$Information| 'special |$e|) (CDR G166301)) @@ -373,7 +373,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (SEQ (EXIT (IF (AND (CONSP |u|) (EQ (QCAR |u|) 'COND) (PROGN - (SPADLET |l| (QCDR |u|)) + (setq |l| (QCDR |u|)) 'T)) (EXIT (DO ((G166313 |l| @@ -386,9 +386,9 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) NIL) (PROGN (PROGN - (SPADLET |ante| + (setq |ante| (CAR G166286)) - (SPADLET |conseq| + (setq |conseq| (CDR G166286)) G166286) NIL)) @@ -398,7 +398,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (BOOT-EQUAL |ante| |pred|) (EXIT (PROG (G166324) - (SPADLET G166324 NIL) + (setq G166324 NIL) (RETURN (DO ((G166329 |conseq| @@ -423,16 +423,16 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (AND (CONSP |ante|) (EQ (QCAR |ante|) '|and|) (PROGN - (SPADLET |ante'| + (setq |ante'| (QCDR |ante|)) 'T)) (|member| |pred| |ante'|)) (EXIT (SEQ - (SPADLET |ante'| + (setq |ante'| (|delete| |pred| |ante'|)) - (SPADLET |v'| + (setq |v'| (SEQ (IF (EQL (LENGTH |ante'|) @@ -440,7 +440,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (EXIT (CAR |ante'|))) (EXIT (CONS '|and| |ante'|)))) - (SPADLET |v'| + (setq |v'| (CONS 'COND (CONS (CONS |v'| |conseq|) @@ -451,7 +451,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) 'special |$e|)) (EXIT NIL)) (EXIT - (SPADLET |$e| + (setq |$e| (|put| '|$Information| 'special (CONS |v'| @@ -475,17 +475,17 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (RETURN (PROGN (COND ((EQ (CAR |pred|) '|has|) (CAR |pred|))) - (SPADLET |a| (CADR |pred|)) - (SPADLET |b| (CADDR |pred|)) + (setq |a| (CADR |pred|)) + (setq |b| (CADDR |pred|)) (COND ((AND (CONSP |b|) (EQ (QCAR |b|) 'SIGNATURE) - (PROGN (SPADLET |data| (QCDR |b|)) 'T)) + (PROGN (setq |data| (QCDR |b|)) 'T)) (CONS 'SIGNATURE (CONS |a| |data|))) ((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|)) 'T)))) + (PROGN (setq |c| (QCAR |ISTMP#1|)) 'T)))) (CONS 'ATTRIBUTE (CONS |a| (CONS |c| NIL)))) ('T |pred|)))))) @@ -500,22 +500,22 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (COND ((AND (CONSP |a|) (EQ (QCAR |a|) 'SIGNATURE) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |b| (QCAR |ISTMP#1|)) - (SPADLET |data| (QCDR |ISTMP#1|)) + (setq |b| (QCAR |ISTMP#1|)) + (setq |data| (QCDR |ISTMP#1|)) 'T)))) (CONS '|has| (CONS |b| (CONS (CONS 'SIGNATURE |data|) NIL)))) ((AND (CONSP |a|) (EQ (QCAR |a|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |b| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |b| (QCAR |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)))))) (CONS '|has| (CONS |b| (CONS (CONS 'ATTRIBUTE (CONS |c| NIL)) NIL)))) ('T |a|))))) @@ -585,9 +585,9 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) ((|member| |pred| (|get| '|$Information| 'special |$e|)) 'T) ((AND (CONSP |pred|) (EQ (QCAR |pred|) 'OR) - (PROGN (SPADLET |l| (QCDR |pred|)) 'T)) + (PROGN (setq |l| (QCDR |pred|)) 'T)) (PROG (G166500) - (SPADLET G166500 NIL) + (setq G166500 NIL) (RETURN (DO ((G166506 NIL G166500) (G166507 |l| (CDR G166507)) (|u| NIL)) @@ -597,9 +597,9 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (SEQ (EXIT (SETQ G166500 (OR G166500 (|knownInfo| |u|))))))))) ((AND (CONSP |pred|) (EQ (QCAR |pred|) 'AND) - (PROGN (SPADLET |l| (QCDR |pred|)) 'T)) + (PROGN (setq |l| (QCDR |pred|)) 'T)) (PROG (G166514) - (SPADLET G166514 'T) + (setq G166514 'T) (RETURN (DO ((G166520 NIL (NULL G166514)) (G166521 |l| (CDR G166521)) (|u| NIL)) @@ -609,9 +609,9 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (SEQ (EXIT (SETQ G166514 (AND G166514 (|knownInfo| |u|))))))))) ((AND (CONSP |pred|) (EQ (QCAR |pred|) '|or|) - (PROGN (SPADLET |l| (QCDR |pred|)) 'T)) + (PROGN (setq |l| (QCDR |pred|)) 'T)) (PROG (G166528) - (SPADLET G166528 NIL) + (setq G166528 NIL) (RETURN (DO ((G166534 NIL G166528) (G166535 |l| (CDR G166535)) (|u| NIL)) @@ -621,9 +621,9 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (SEQ (EXIT (SETQ G166528 (OR G166528 (|knownInfo| |u|))))))))) ((AND (CONSP |pred|) (EQ (QCAR |pred|) '|and|) - (PROGN (SPADLET |l| (QCDR |pred|)) 'T)) + (PROGN (setq |l| (QCDR |pred|)) 'T)) (PROG (G166542) - (SPADLET G166542 'T) + (setq G166542 'T) (RETURN (DO ((G166548 NIL (NULL G166542)) (G166549 |l| (CDR G166549)) (|u| NIL)) @@ -634,17 +634,17 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (AND G166542 (|knownInfo| |u|))))))))) ((AND (CONSP |pred|) (EQ (QCAR |pred|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |name| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |name| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |attr| (QCAR |ISTMP#2|)) + (setq |attr| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |v| (|compForMode| |name| |$EmptyMode| |$e|)) + (setq |v| (|compForMode| |name| |$EmptyMode| |$e|)) (COND ((NULL |v|) (|stackSemanticError| @@ -652,9 +652,9 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (CONS |name| NIL)) NIL)) ('T - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|compMakeCategoryObject| (CADR |v|) |$e|)) - (SPADLET |vv| (CAR |LETTMP#1|)) + (setq |vv| (CAR |LETTMP#1|)) (COND ((NULL |vv|) (|stackSemanticError| @@ -662,49 +662,49 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (CONS |name| NIL)) NIL)) ((|member| |attr| (ELT |vv| 2)) 'T) - ((SPADLET |x| (|assoc| |attr| (ELT |vv| 2))) + ((setq |x| (|assoc| |attr| (ELT |vv| 2))) (|knownInfo| (CADR |x|))) ('T NIL))))) ((AND (CONSP |pred|) (EQ (QCAR |pred|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |name| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |name| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |cat| (QCAR |ISTMP#2|)) + (setq |cat| (QCAR |ISTMP#2|)) 'T)))))) (COND ((AND (CONSP |cat|) (EQ (QCAR |cat|) 'ATTRIBUTE) - (PROGN (SPADLET |a| (QCDR |cat|)) 'T)) + (PROGN (setq |a| (QCDR |cat|)) 'T)) (|knownInfo| (CONS 'ATTRIBUTE (CONS |name| |a|)))) ((AND (CONSP |cat|) (EQ (QCAR |cat|) 'SIGNATURE) - (PROGN (SPADLET |a| (QCDR |cat|)) 'T)) + (PROGN (setq |a| (QCDR |cat|)) 'T)) (|knownInfo| (CONS 'SIGNATURE (CONS |name| |a|)))) ((AND (CONSP |name|) (EQ (QCAR |name|) '|Union|)) NIL) ('T - (SPADLET |v| (|compForMode| |name| |$EmptyMode| |$e|)) + (setq |v| (|compForMode| |name| |$EmptyMode| |$e|)) (COND ((NULL |v|) (|stackSemanticError| (CONS '|can't find category of | (CONS |name| NIL)) NIL)) - ('T (SPADLET |vmode| (CADR |v|)) + ('T (setq |vmode| (CADR |v|)) (COND ((BOOT-EQUAL |cat| |vmode|) 'T) ((AND (CONSP |vmode|) (EQ (QCAR |vmode|) '|Join|) - (PROGN (SPADLET |l| (QCDR |vmode|)) 'T) + (PROGN (setq |l| (QCDR |vmode|)) 'T) (|member| |cat| |l|)) 'T) ('T - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|compMakeCategoryObject| |vmode| |$e|)) - (SPADLET |vv| (CAR |LETTMP#1|)) - (SPADLET |catlist| (ELT |vv| 4)) + (setq |vv| (CAR |LETTMP#1|)) + (setq |catlist| (ELT |vv| 4)) (COND ((NULL |vv|) (|stackSemanticError| @@ -712,13 +712,13 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (CONS |name| NIL)) NIL)) ((|member| |cat| (CAR |catlist|)) 'T) - ((AND (SPADLET |u| + ((AND (setq |u| (|assoc| |cat| (CADR |catlist|))) (|knownInfo| (CADR |u|))) 'T) ((PROG (G166556) - (SPADLET G166556 NIL) + (setq G166556 NIL) (RETURN (DO ((G166563 NIL G166556) (G166564 (CADR |catlist|) @@ -740,26 +740,26 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) ('T NIL))))))))) ((AND (CONSP |pred|) (EQ (QCAR |pred|) 'SIGNATURE) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |name| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |name| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |op| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |op| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |sig| (QCAR |ISTMP#3|)) + (setq |sig| (QCAR |ISTMP#3|)) 'T)))))))) - (SPADLET |v| (|get| |op| '|modemap| |$e|)) + (setq |v| (|get| |op| '|modemap| |$e|)) (DO ((G166576 |v| (CDR G166576)) (|w| NIL)) ((OR (ATOM G166576) (PROGN (SETQ |w| (CAR G166576)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |ww| (CDAR |w|)) + (setq |ww| (CDAR |w|)) (SEQ (COND ((AND (BOOT-EQUAL (LENGTH |ww|) @@ -846,31 +846,31 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (SEQ (COND ((NULL |u|) |$e|) ((AND (CONSP |u|) (EQ (QCAR |u|) 'PROGN) - (PROGN (SPADLET |l| (QCDR |u|)) 'T)) + (PROGN (setq |l| (QCDR |u|)) 'T)) (DO ((G166754 |l| (CDR G166754)) (|v| NIL)) ((OR (ATOM G166754) (PROGN (SETQ |v| (CAR G166754)) NIL)) NIL) - (SEQ (EXIT (SPADLET |$e| (|actOnInfo| |v| |$e|))))) + (SEQ (EXIT (setq |$e| (|actOnInfo| |v| |$e|))))) |$e|) ('T - (SPADLET |$e| + (setq |$e| (|put| '|$Information| 'special - (SPADLET |Info| + (setq |Info| (CONS |u| (|get| '|$Information| 'special |$e|))) |$e|)) (COND ((AND (CONSP |u|) (EQ (QCAR |u|) 'COND) - (PROGN (SPADLET |l| (QCDR |u|)) 'T)) + (PROGN (setq |l| (QCDR |u|)) 'T)) (DO ((G166764 |l| (CDR G166764)) (G166624 NIL)) ((OR (ATOM G166764) (PROGN (SETQ G166624 (CAR G166764)) NIL) (PROGN (PROGN - (SPADLET |ante| (CAR G166624)) - (SPADLET |conseq| (CDR G166624)) + (setq |ante| (CAR G166624)) + (setq |conseq| (CDR G166624)) G166624) NIL)) NIL) @@ -886,40 +886,40 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) NIL) (SEQ (EXIT - (SPADLET |$e| + (setq |$e| (|actOnInfo| |v| |$e|)))))) ('T NIL))))) |$e|) ((AND (CONSP |u|) (EQ (QCAR |u|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |name| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |name| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |att| (QCAR |ISTMP#2|)) + (setq |att| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |LETTMP#1| (|GetValue| |name|)) - (SPADLET |vval| (CAR |LETTMP#1|)) - (SPADLET |vmode| (CADR |LETTMP#1|)) - (SPADLET |venv| (CADDR |LETTMP#1|)) + (setq |LETTMP#1| (|GetValue| |name|)) + (setq |vval| (CAR |LETTMP#1|)) + (setq |vmode| (CADR |LETTMP#1|)) + (setq |venv| (CADDR |LETTMP#1|)) (SAY "augmenting " |name| ": " |u|) - (SPADLET |key| + (setq |key| (COND ((CONTAINED '$ |vmode|) '|domain|) ('T |name|))) - (SPADLET |cat| + (setq |cat| (CONS 'CATEGORY (CONS |key| (CONS (CONS 'ATTRIBUTE (CONS |att| NIL)) NIL)))) - (SPADLET |$e| + (setq |$e| (|put| |name| '|value| (CONS |vval| (CONS (|mkJoin| |cat| |vmode|) @@ -927,26 +927,26 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) |$e|))) ((AND (CONSP |u|) (EQ (QCAR |u|) 'SIGNATURE) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |name| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |name| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |operator| + (setq |operator| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |modemap| + (setq |modemap| (QCAR |ISTMP#3|)) 'T)))))))) - (SPADLET |implem| + (setq |implem| (COND - ((SPADLET |implem| + ((setq |implem| (|assoc| (CONS |name| |modemap|) (|get| |operator| '|modemap| |$e|))) @@ -960,20 +960,20 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (CONS |name| (CONS (MSUBST '$ |name| |modemap|) NIL)))))) - (SPADLET |$e| + (setq |$e| (|addModemap| |operator| |name| |modemap| 'T |implem| |$e|)) - (SPADLET |LETTMP#1| (|GetValue| |name|)) - (SPADLET |vval| (CAR |LETTMP#1|)) - (SPADLET |vmode| (CADR |LETTMP#1|)) - (SPADLET |venv| (CADDR |LETTMP#1|)) + (setq |LETTMP#1| (|GetValue| |name|)) + (setq |vval| (CAR |LETTMP#1|)) + (setq |vmode| (CADR |LETTMP#1|)) + (setq |venv| (CADDR |LETTMP#1|)) (SAY "augmenting " |name| ": " |u|) - (SPADLET |key| + (setq |key| (COND ((CONTAINED '$ |vmode|) '|domain|) ('T |name|))) - (SPADLET |cat| + (setq |cat| (CONS 'CATEGORY (CONS |key| (CONS @@ -981,7 +981,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (CONS |operator| (CONS |modemap| NIL))) NIL)))) - (SPADLET |$e| + (setq |$e| (|put| |name| '|value| (CONS |vval| (CONS (|mkJoin| |cat| |vmode|) @@ -989,43 +989,43 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) |$e|))) ((AND (CONSP |u|) (EQ (QCAR |u|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |name| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |name| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |cat| (QCAR |ISTMP#2|)) + (setq |cat| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |LETTMP#1| (|GetValue| |name|)) - (SPADLET |vval| (CAR |LETTMP#1|)) - (SPADLET |vmode| (CADR |LETTMP#1|)) - (SPADLET |venv| (CADDR |LETTMP#1|)) + (setq |LETTMP#1| (|GetValue| |name|)) + (setq |vval| (CAR |LETTMP#1|)) + (setq |vmode| (CADR |LETTMP#1|)) + (setq |venv| (CADDR |LETTMP#1|)) (COND ((BOOT-EQUAL |cat| |vmode|) |$e|) - ((SPADLET |u| (|compMakeCategoryObject| |cat| |$e|)) - (SPADLET |catvec| (CAR |u|)) - (SPADLET |$e| (CADDR |u|)) - (SPADLET |LETTMP#1| + ((setq |u| (|compMakeCategoryObject| |cat| |$e|)) + (setq |catvec| (CAR |u|)) + (setq |$e| (CADDR |u|)) + (setq |LETTMP#1| (|compMakeCategoryObject| |vmode| |$e|)) - (SPADLET |ocatvec| (CAR |LETTMP#1|)) - (SPADLET |$e| (CADDR |LETTMP#1|)) + (setq |ocatvec| (CAR |LETTMP#1|)) + (setq |$e| (CADDR |LETTMP#1|)) (COND ((OR (|member| |cat| (CAR (ELT |ocatvec| 4))) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (|assoc| |cat| (CADR (ELT |ocatvec| 4)))) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'T) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL)))))))) @@ -1033,7 +1033,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) ('T (COND ((BOOT-EQUAL |name| '$) - (SPADLET |$e| + (setq |$e| (|augModemapsFromCategory| |name| |name| |cat| |$e|))) ('T @@ -1041,13 +1041,13 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (COND ((NULL (member |name| |$functorLocalParameters|)) - (SPADLET |$functorLocalParameters| + (setq |$functorLocalParameters| (APPEND |$functorLocalParameters| (CONS |name| NIL)))) ('T NIL)))) (SAY "augmenting " |name| ": " |cat|) - (SPADLET |$e| + (setq |$e| (|put| |name| '|value| (CONS |vval| (CONS (|mkJoin| |cat| |vmode|) @@ -1069,7 +1069,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (RETURN (COND ((AND (CONSP |mode|) (EQ (QCAR |mode|) '|Join|) - (PROGN (SPADLET |cats| (QCDR |mode|)) 'T)) + (PROGN (setq |cats| (QCDR |mode|)) 'T)) (CONS '|Join| (CONS |cat| |cats|))) ('T (CONS '|Join| (CONS |cat| (CONS |mode| NIL)))))))) @@ -1084,8 +1084,8 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (declare (special |$e| |$EmptyMode|)) (RETURN (COND - ((SPADLET |u| (|get| |name| '|value| |$e|)) |u|) - ((SPADLET |u| (|comp| |name| |$EmptyMode| |$e|)) |u|) + ((setq |u| (|get| |name| '|value| |$e|)) |u|) + ((setq |u| (|comp| |name| |$EmptyMode| |$e|)) |u|) ('T (|systemError| (CONS |name| diff --git a/src/interp/interop.lisp.pamphlet b/src/interp/interop.lisp.pamphlet index 28d1dae..8ed40ef 100644 --- a/src/interp/interop.lisp.pamphlet +++ b/src/interp/interop.lisp.pamphlet @@ -23,7 +23,7 @@ ;$domainTypeTokens := ['lazyOldAxiomDomain, 'oldAxiomDomain, 'oldAxiomPreCategory, ; 'oldAxiomCategory, 0] -(SPADLET |$domainTypeTokens| +(setq |$domainTypeTokens| (CONS '|lazyOldAxiomDomain| (CONS '|oldAxiomDomain| (CONS '|oldAxiomPreCategory| @@ -39,19 +39,19 @@ ;-- and (d) is for dependent types. ;DNameStringID := 0 -(SPADLET |DNameStringID| 0) +(setq |DNameStringID| 0) ;DNameApplyID := 1 -(SPADLET |DNameApplyID| 1) +(setq |DNameApplyID| 1) ;DNameTupleID := 2 -(SPADLET |DNameTupleID| 2) +(setq |DNameTupleID| 2) ;DNameOtherID := 3 -(SPADLET |DNameOtherID| 3) +(setq |DNameOtherID| 3) ;DNameToSExpr1 dname == ; NULL dname => error "unexpected domain name" @@ -79,18 +79,18 @@ ((NULL |dname|) (|error| '|unexpected domain name|)) ((BOOT-EQUAL (CAR |dname|) |DNameStringID|) (INTERN (|CompStrToString| (CDR |dname|)))) - ('T (SPADLET |name0| (|DNameToSExpr1| (CAR (CDR |dname|)))) - (SPADLET |args| (CDR (CDR |dname|))) + ('T (setq |name0| (|DNameToSExpr1| (CAR (CDR |dname|)))) + (setq |args| (CDR (CDR |dname|))) (COND - ((BOOT-EQUAL |name0| '->) (SPADLET |froms| (CAR |args|)) - (SPADLET |froms| + ((BOOT-EQUAL |name0| '->) (setq |froms| (CAR |args|)) + (setq |froms| (MAPCAR #'|DNameToSExpr| (CDR |froms|))) - (SPADLET |ret| (CAR (CDR |args|))) - (SPADLET |ret| (|DNameToSExpr| (CAR (CDR |ret|)))) + (setq |ret| (CAR (CDR |args|))) + (setq |ret| (|DNameToSExpr| (CAR (CDR |ret|)))) (CONS '|Mapping| (CONS |ret| |froms|))) ((OR (BOOT-EQUAL |name0| '|Union|) (BOOT-EQUAL |name0| '|Record|)) - (SPADLET |sxs| + (setq |sxs| (MAPCAR #'|DNameToSExpr| (CDR (CAR |args|)))) (CONS |name0| |sxs|)) @@ -113,7 +113,7 @@ (RETURN (COND ((BOOT-EQUAL (CAR |dname|) |DNameOtherID|) (CDR |dname|)) - ('T (SPADLET |sx| (|DNameToSExpr1| |dname|)) + ('T (setq |sx| (|DNameToSExpr1| |dname|)) (COND ((CONSP |sx|) |sx|) ('T (LIST |sx|)))))))) ;DNameFixEnum arg == CompStrToString CDR arg @@ -146,12 +146,12 @@ ('T (COND ((BOOT-EQUAL (CAR |sexpr|) '|:|) - (SPADLET |sexpr| (CAR (CDR (CDR |sexpr|)))))) + (setq |sexpr| (CAR (CDR (CDR |sexpr|)))))) (COND ((BOOT-EQUAL (CAR |sexpr|) '|Mapping|) - (SPADLET |args| + (setq |args| (PROG (G166087) - (SPADLET G166087 NIL) + (setq G166087 NIL) (RETURN (DO ((G166092 (CDR |sexpr|) (CDR G166092)) @@ -175,7 +175,7 @@ (CONS (CAR |args|) NIL)) NIL))))) ('T - (SPADLET |name0| + (setq |name0| (CONS |DNameStringID| (|StringToCompStr| (SYMBOL-NAME (CAR |sexpr|))))) @@ -186,7 +186,7 @@ (CONS |name0| (CONS (CONS |DNameTupleID| (PROG (G166102) - (SPADLET G166102 NIL) + (setq G166102 NIL) (RETURN (DO ((G166107 (CDR |sexpr|) @@ -207,7 +207,7 @@ G166102)))))))) NIL)))) ('T - (SPADLET |newCosig| + (setq |newCosig| (CDR (GETDATABASE (CAR |sexpr|) 'COSIG))) (CONS |DNameApplyID| (CONS |name0| @@ -241,14 +241,14 @@ (declare (special |$oldAxiomPreCategoryDispatch|)) (RETURN (PROGN - (SPADLET |LETTMP#1| (REVERSE |allArgs|)) - (SPADLET |env| (CAR |LETTMP#1|)) - (SPADLET |args| (NREVERSE (CDR |LETTMP#1|))) + (setq |LETTMP#1| (REVERSE |allArgs|)) + (setq |env| (CAR |LETTMP#1|)) + (setq |args| (NREVERSE (CDR |LETTMP#1|))) (COND ((BOOT-EQUAL (GETDATABASE |env| 'CONSTRUCTORKIND) '|category|) (CONS |$oldAxiomPreCategoryDispatch| (CONS |env| |args|))) - ('T (SPADLET |dom| (APPLY |env| |args|)) + ('T (setq |dom| (APPLY |env| |args|)) (|makeOldAxiomDispatchDomain| |dom|))))))) ;makeLazyOldAxiomDispatchDomain domform == @@ -274,7 +274,7 @@ '|category|) (CONS |$oldAxiomPreCategoryDispatch| |domform|)) ('T - (SPADLET |dd| + (setq |dd| (CONS |$lazyOldAxiomDomainDispatch| (CONS (|hashTypeForm| |domform| 0) (CONS |domform| NIL)))) @@ -308,7 +308,7 @@ (PROG (|dom|) (RETURN (PROGN - (SPADLET |dom| (|instantiate| |domenv|)) + (setq |dom| (|instantiate| |domenv|)) (SPADCALL (CDR |dom|) |self| |op| |sig| |box| |skipdefaults| (ELT (CAR |dom|) 3)))))) @@ -327,7 +327,7 @@ (PROG (|dom|) (RETURN (PROGN - (SPADLET |dom| (|instantiate| |domenv|)) + (setq |dom| (|instantiate| |domenv|)) (SPADCALL (CDR |dom|) (ELT (CAR |dom|) 1)))))) ;lazyOldAxiomAddChild(domenv, kid, env) == @@ -346,7 +346,7 @@ ; [function lazyOldAxiomDomainHashCode], ; [function lazyOldAxiomAddChild]) -(SPADLET |$lazyOldAxiomDomainDispatch| +(setq |$lazyOldAxiomDomainDispatch| (VECTOR '|lazyOldAxiomDomain| (CONS #'|lazyOldAxiomDomainDevaluate| NIL) (CONS NIL NIL) @@ -369,7 +369,7 @@ (declare (special |$oldAxiomCategoryDispatch|)) (RETURN (PROGN - (SPADLET |pack| + (setq |pack| (|oldAxiomCategoryDefaultPackage| |catform| |dom|)) (CONS |$oldAxiomCategoryDispatch| (CONS |catform| @@ -400,8 +400,8 @@ (PROG (|op| |args| T$) (RETURN (PROGN - (SPADLET |op| (CAR G166180)) - (SPADLET |args| (CDR G166180)) + (setq |op| (CAR G166180)) + (setq |args| (CDR G166180)) (|SExprToDName| (CONS |op| (|devaluateList| |args|)) T$))))) ;$oldAxiomPreCategoryDispatch := @@ -413,7 +413,7 @@ ; [function oldAxiomPreCategoryBuild], ; [nil]) -(SPADLET |$oldAxiomPreCategoryDispatch| +(setq |$oldAxiomPreCategoryDispatch| (VECTOR '|oldAxiomPreCategory| (CONS #'|oldAxiomPreCategoryDevaluate| NIL) (CONS NIL NIL) (CONS NIL NIL) @@ -429,8 +429,8 @@ (PROG (|op| |args|) (RETURN (PROGN - (SPADLET |op| (CAAR G166194)) - (SPADLET |args| (CDAR G166194)) + (setq |op| (CAAR G166194)) + (setq |args| (CDAR G166194)) (|SExprToDName| (CONS |op| (|devaluateList| |args|)) T$))))) ;oldAxiomPreCategoryParents(catform,dom) == @@ -446,16 +446,16 @@ (PROG (|vars| |vals| |parents| |cat| |pred|) (RETURN (SEQ (PROGN - (SPADLET |vars| + (setq |vars| (CONS '$ (CDR (GETDATABASE (|opOf| |catform|) 'CONSTRUCTORFORM)))) - (SPADLET |vals| (CONS |dom| (CDR |catform|))) - (SPADLET |parents| (|parentsOf| (|opOf| |catform|))) + (setq |vals| (CONS |dom| (CDR |catform|))) + (setq |parents| (|parentsOf| (|opOf| |catform|))) (PROGV |vars| |vals| (LIST2VEC (PROG (G166219) - (SPADLET G166219 NIL) + (setq G166219 NIL) (RETURN (DO ((G166226 |parents| (CDR G166226)) (G166208 NIL)) @@ -465,8 +465,8 @@ NIL) (PROGN (PROGN - (SPADLET |cat| (CAR G166208)) - (SPADLET |pred| (CDR G166208)) + (setq |cat| (CAR G166208)) + (setq |pred| (CDR G166208)) G166208) NIL)) (NREVERSE0 G166219)) @@ -501,9 +501,9 @@ (PROG (|catform| |hash| |pack| |fun|) (RETURN (PROGN - (SPADLET |catform| (CAR |catenv|)) - (SPADLET |hash| (CADR |catenv|)) - (SPADLET |pack| (CADDR |catenv|)) + (setq |catform| (CAR |catenv|)) + (setq |hash| (CADR |catenv|)) + (setq |pack| (CADDR |catenv|)) (COND ((|opIsHasCat| |op|) (COND ((EQL |sig| |hash|) (CONS |self| NIL)) ('T NIL))) @@ -511,11 +511,11 @@ ('T (COND ((NULL (VECP |pack|)) - (SPADLET |pack| + (setq |pack| (APPLY |pack| (CONS |self| (CDR |catform|)))) (RPLACA (CDDR |catenv|) |pack|))) (COND - ((SPADLET |fun| (|basicLookup| |op| |sig| |pack| |self|)) + ((setq |fun| (|basicLookup| |op| |sig| |pack| |self|)) (CONS |fun| NIL)) ('T NIL)))))))) @@ -526,7 +526,7 @@ (PROG (|parents|) (RETURN (PROGN - (SPADLET |parents| (CADDDR G166260)) + (setq |parents| (CADDDR G166260)) (LENGTH |parents|))))) ;oldAxiomCategoryNthParent([.,.,.,parvec,dom], n, env) == @@ -541,13 +541,13 @@ (PROG (|parvec| |dom| |catform| |newcat|) (RETURN (PROGN - (SPADLET |parvec| (CADDDR G166272)) - (SPADLET |dom| (CAR (CDDDDR G166272))) - (SPADLET |catform| (ELT |parvec| (SPADDIFFERENCE |n| 1))) + (setq |parvec| (CADDDR G166272)) + (setq |dom| (CAR (CDDDDR G166272))) + (setq |catform| (ELT |parvec| (SPADDIFFERENCE |n| 1))) (COND ((VECTORP (KAR |catform|)) |catform|) ('T - (SPADLET |newcat| + (setq |newcat| (|oldAxiomPreCategoryBuild| |catform| |dom| NIL)) (SETELT |parvec| (SPADDIFFERENCE |n| 1) |newcat|) |newcat|)))))) @@ -558,7 +558,7 @@ (PROG (|catform|) (RETURN (PROGN - (SPADLET |catform| (CAR G166288)) + (setq |catform| (CAR G166288)) (|oldAxiomPreCategoryBuild| |catform| |dom| |env|))))) ;oldAxiomCategoryHashCode([.,hash,:.], env) == hash @@ -566,7 +566,7 @@ (DEFUN |oldAxiomCategoryHashCode| (G166299 |env|) (declare (ignore |env|)) (PROG (|hash|) - (RETURN (PROGN (SPADLET |hash| (CADR G166299)) |hash|)))) + (RETURN (PROGN (setq |hash| (CADR G166299)) |hash|)))) ;$oldAxiomCategoryDispatch := ; VECTOR('oldAxiomCategory, @@ -578,7 +578,7 @@ ; [function oldAxiomCategoryParentCount], ; [function oldAxiomCategoryNthParent]) -- 1 indexed -(SPADLET |$oldAxiomCategoryDispatch| +(setq |$oldAxiomCategoryDispatch| (VECTOR '|oldAxiomCategory| (CONS #'|oldAxiomCategoryDevaluate| NIL) (CONS NIL NIL) @@ -597,8 +597,8 @@ (PROG (|name| |hash|) (RETURN (PROGN - (SPADLET |name| (CAR |attrObj|)) - (SPADLET |hash| (CADR |attrObj|)) + (setq |name| (CAR |attrObj|)) + (setq |hash| (CADR |attrObj|)) (|StringToCompStr| (SYMBOL-NAME |name|)))))) ;attributeLookupExport(attrObj, self, op, sig, box, env) == @@ -610,8 +610,8 @@ (PROG (|name| |hash|) (RETURN (PROGN - (SPADLET |name| (CAR |attrObj|)) - (SPADLET |hash| (CADR |attrObj|)) + (setq |name| (CAR |attrObj|)) + (setq |hash| (CADR |attrObj|)) (COND ((|opIsHasCat| |op|) (COND ((EQL |hash| |sig|) (CONS |self| NIL)) ('T NIL)))))))) @@ -625,8 +625,8 @@ (PROG (|name| |hash|) (RETURN (PROGN - (SPADLET |name| (CAR |attrObj|)) - (SPADLET |hash| (CADR |attrObj|)) + (setq |name| (CAR |attrObj|)) + (setq |hash| (CADR |attrObj|)) |hash|)))) ;attributeCategoryBuild(attrObj, dom, env) == @@ -639,8 +639,8 @@ (declare (special |$attributeDispatch|)) (RETURN (PROGN - (SPADLET |name| (CAR |attrObj|)) - (SPADLET |hash| (CADR |attrObj|)) + (setq |name| (CAR |attrObj|)) + (setq |hash| (CADR |attrObj|)) (CONS |$attributeDispatch| (CONS |name| (CONS |hash| NIL))))))) ;attributeCategoryParentCount(attrObj, env) == 0 @@ -665,7 +665,7 @@ ; [function attributeCategoryParentCount], ; [function attributeNthParent]) -- 1 indexed -(SPADLET |$attributeDispatch| +(setq |$attributeDispatch| (VECTOR '|attribute| (CONS #'|attributeDevaluate| NIL) (CONS NIL NIL) @@ -689,14 +689,14 @@ (DECLARE (SPECIAL |$depthAssocCache|)) (RETURN (SEQ (PROGN - (SPADLET |$depthAssocCache| (MAKE-HASHTABLE 'ID)) - (SPADLET |conList| + (setq |$depthAssocCache| (MAKE-HASHTABLE 'ID)) + (setq |conList| (PROG (G166358) - (SPADLET G166358 NIL) + (setq G166358 NIL) (RETURN (DO ((G166364 (|orderCatAnc| - (SPADLET |op| (|opOf| |conform|))) + (setq |op| (|opOf| |conform|))) (CDR G166364)) (|x| NIL)) ((OR (ATOM G166364) @@ -708,8 +708,8 @@ ((|hasDefaultPackage| |op|) (SETQ G166358 (CONS |x| G166358)))))))))) - (SPADLET |acc| NIL) - (SPADLET |ancestors| (|ancestorsOf| |conform| |domform|)) + (setq |acc| NIL) + (setq |ancestors| (|ancestorsOf| |conform| |domform|)) (DO ((G166373 |conList| (CDR G166373)) (|x| NIL)) ((OR (ATOM G166373) (PROGN (SETQ |x| (CAR G166373)) NIL)) @@ -723,7 +723,7 @@ NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |x| (CAAR |y|)) - (SPADLET |acc| + (setq |acc| (CONS |y| |acc|)))))))))) (NREVERSE |acc|)))))) @@ -753,11 +753,11 @@ (COND ((VECTORP (CDR |domenv|)) (CONS |$oldAxiomDomainDispatch| |domenv|)) - ('T (SPADLET |callForm| (CADR |domenv|)) - (SPADLET |oldDom| (CDDR |domenv|)) - (SPADLET |functor| (CAR |callForm|)) - (SPADLET |args| (CDR |callForm|)) - (SPADLET |domvec| (APPLY |functor| |args|)) + ('T (setq |callForm| (CADR |domenv|)) + (setq |oldDom| (CDDR |domenv|)) + (setq |functor| (CAR |callForm|)) + (setq |args| (CDR |callForm|)) + (setq |domvec| (APPLY |functor| |args|)) (RPLACA |oldDom| |$oldAxiomDomainDispatch|) (RPLACD |oldDom| (CONS (CADR |oldDom|) |domvec|)) |oldDom|))))) @@ -768,33 +768,33 @@ (PROG (|fn| |args|) (RETURN (PROGN - (SPADLET |fn| (CAR G166413)) - (SPADLET |args| (CDR G166413)) + (setq |fn| (CAR G166413)) + (setq |args| (CDR G166413)) (|hashType| (CONS |fn| (|devaluateList| |args|)) |percentHash|))))) ;$hashOp1 := hashString '"1" -(SPADLET |$hashOp1| (|hashString| "1")) +(setq |$hashOp1| (|hashString| "1")) ;$hashOp0 := hashString '"0" -(SPADLET |$hashOp0| (|hashString| "0")) +(setq |$hashOp0| (|hashString| "0")) ;$hashOpApply := hashString '"apply" -(SPADLET |$hashOpApply| (|hashString| "apply")) +(setq |$hashOpApply| (|hashString| "apply")) ;$hashOpSet := hashString '"set!" -(SPADLET |$hashOpSet| (|hashString| "set!")) +(setq |$hashOpSet| (|hashString| "set!")) ;$hashSeg := hashString '".." -(SPADLET |$hashSeg| (|hashString| "..")) +(setq |$hashSeg| (|hashString| "..")) ;$hashPercent := hashString '"%" -(SPADLET |$hashPercent| (|hashString| "%")) +(setq |$hashPercent| (|hashString| "%")) ;oldAxiomDomainLookupExport _ ; (domenv, self, op, sig, box, skipdefaults, env) == @@ -826,21 +826,21 @@ |$hashSeg|)) (RETURN (PROGN - (SPADLET |domainVec| (CDR |domenv|)) + (setq |domainVec| (CDR |domenv|)) (COND ((|hashCode?| |op|) (COND - ((EQL |op| |$hashOp1|) (SPADLET |op| '|One|)) - ((EQL |op| |$hashOp0|) (SPADLET |op| '|Zero|)) - ((EQL |op| |$hashOpApply|) (SPADLET |op| '|elt|)) - ((EQL |op| |$hashOpSet|) (SPADLET |op| '|setelt|)) - ((EQL |op| |$hashSeg|) (SPADLET |op| 'SEGMENT))))) - (SPADLET |constant| NIL) + ((EQL |op| |$hashOp1|) (setq |op| '|One|)) + ((EQL |op| |$hashOp0|) (setq |op| '|Zero|)) + ((EQL |op| |$hashOpApply|) (setq |op| '|elt|)) + ((EQL |op| |$hashOpSet|) (setq |op| '|setelt|)) + ((EQL |op| |$hashSeg|) (setq |op| 'SEGMENT))))) + (setq |constant| NIL) (COND ((AND (|hashCode?| |sig|) |self| (EQL |sig| (|getDomainHash| |self|))) - (SPADLET |sig| '($)) (SPADLET |constant| 'T))) - (SPADLET |val| + (setq |sig| '($)) (setq |constant| 'T))) + (setq |val| (COND (|skipdefaults| (|oldCompLookupNoDefaults| |op| |sig| @@ -848,7 +848,7 @@ ('T (|oldCompLookup| |op| |sig| |domainVec| |self|)))) (COND ((NULL |val|) |val|) - ('T (COND (|constant| (SPADLET |val| (SPADCALL |val|)))) + ('T (COND (|constant| (setq |val| (SPADCALL |val|)))) (RPLACA |box| |val|) |box|)))))) ;oldAxiomDomainHashCode(domenv, env) == CAR domenv @@ -865,7 +865,7 @@ (declare (ignore |env|)) (PROG (|domvec|) (RETURN - (OR (|HasAttribute| (SPADLET |domvec| (CDR |domenv|)) |cat|) + (OR (|HasAttribute| (setq |domvec| (CDR |domenv|)) |cat|) (|HasCategory| |domvec| (|devaluate| |cat|)))))) ;oldAxiomDomainDevaluate(domenv, env) == @@ -889,7 +889,7 @@ ; [function oldAxiomDomainHashCode], ; [function oldAxiomAddChild]) -(SPADLET |$oldAxiomDomainDispatch| +(setq |$oldAxiomDomainDispatch| (VECTOR '|oldAxiomDomain| (CONS #'|oldAxiomDomainDevaluate| NIL) (CONS NIL NIL) @@ -930,14 +930,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 (G166519) - (SPADLET G166519 NIL) + (setq G166519 NIL) (RETURN (DO ((G166525 |l| (CDR G166525)) (|x| NIL)) @@ -949,16 +949,16 @@ (SEQ (EXIT (COND ((AND (CONSP |x|) (PROGN - (SPADLET |sig| (QCAR |x|)) - (SPADLET |ISTMP#1| + (setq |sig| (QCAR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) @@ -966,32 +966,32 @@ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |arg| + (setq |arg| (QCAR |ISTMP#3|)) 'T))))) (PROGN - (SPADLET |pred| + (setq |pred| (QCDR |ISTMP#1|)) '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))))) (BOOT-EQUAL |oarg| |m1|)) diff --git a/src/interp/iterator.lisp.pamphlet b/src/interp/iterator.lisp.pamphlet index b5a393d..f54988b 100644 --- a/src/interp/iterator.lisp.pamphlet +++ b/src/interp/iterator.lisp.pamphlet @@ -21,9 +21,9 @@ (RETURN (SEQ (COND ((PROGN - (SPADLET |ISTMP#1| (GETL |x| 'THETA)) + (setq |ISTMP#1| (GETL |x| 'THETA)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |y| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |y| (QCAR |ISTMP#1|)) 'T))) (EXIT |y|))))))) ;numberize x == @@ -57,10 +57,10 @@ (SEQ (COND ((AND (CONSP |x|) (PROGN - (SPADLET |a| (QCAR |x|)) - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |a| (QCAR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |b| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |b| (QCAR |ISTMP#1|)) 'T))) (|member| |a| '(|PrimitiveArray| |Vector| |List|))) (EXIT |b|))))))) @@ -149,20 +149,20 @@ (COND ((AND (CONSP |it|) (EQ (QCAR |it|) 'IN) (PROGN - (SPADLET |ISTMP#1| (QCDR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (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 |y| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |LETTMP#1| + (PROGN (setq |y| (QCAR |ISTMP#2|)) 'T)))))) + (setq |LETTMP#1| (OR (|comp| |y| |$EmptyMode| |e|) (RETURN NIL))) - (SPADLET |y'| (CAR |LETTMP#1|)) - (SPADLET |m| (CADR |LETTMP#1|)) - (SPADLET |e| (CADDR |LETTMP#1|)) - (SPADLET |$formalArgList| (CONS |x| |$formalArgList|)) - (SPADLET |LETTMP#1| + (setq |y'| (CAR |LETTMP#1|)) + (setq |m| (CADR |LETTMP#1|)) + (setq |e| (CADDR |LETTMP#1|)) + (setq |$formalArgList| (CONS |x| |$formalArgList|)) + (setq |LETTMP#1| (OR (|modeIsAggregateOf| '|List| |m| |e|) (RETURN (|stackMessage| @@ -171,45 +171,45 @@ (CONS '| must be a list of some mode| NIL))))))) - (SPADLET |mOver| (CAR |LETTMP#1|)) - (SPADLET |mUnder| (CADR |LETTMP#1|)) + (setq |mOver| (CAR |LETTMP#1|)) + (setq |mUnder| (CADR |LETTMP#1|)) (COND ((NULL (|get| |x| '|mode| |e|)) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (OR (|compMakeDeclaration| (CONS '|:| (CONS |x| (CONS |mUnder| NIL))) |$EmptyMode| |e|) (RETURN NIL))) - (SPADLET |e| (CADDR |LETTMP#1|)) |LETTMP#1|)) - (SPADLET |e| + (setq |e| (CADDR |LETTMP#1|)) |LETTMP#1|)) + (setq |e| (|put| |x| '|value| (CONS (|genSomeVariable|) (CONS |mUnder| (CONS |e| NIL))) |e|)) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (OR (|coerce| (CONS |y'| (CONS |m| (CONS |e| NIL))) |mOver|) (RETURN NIL))) - (SPADLET |y''| (CAR |LETTMP#1|)) - (SPADLET |m''| (CADR |LETTMP#1|)) - (SPADLET |e| (CADDR |LETTMP#1|)) + (setq |y''| (CAR |LETTMP#1|)) + (setq |m''| (CADR |LETTMP#1|)) + (setq |e| (CADDR |LETTMP#1|)) (CONS (CONS 'IN (CONS |x| (CONS |y''| NIL))) (CONS |e| NIL))) ((AND (CONSP |it|) (EQ (QCAR |it|) 'ON) (PROGN - (SPADLET |ISTMP#1| (QCDR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (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 |y| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |$formalArgList| (CONS |x| |$formalArgList|)) - (SPADLET |LETTMP#1| + (PROGN (setq |y| (QCAR |ISTMP#2|)) 'T)))))) + (setq |$formalArgList| (CONS |x| |$formalArgList|)) + (setq |LETTMP#1| (OR (|comp| |y| |$EmptyMode| |e|) (RETURN NIL))) - (SPADLET |y'| (CAR |LETTMP#1|)) - (SPADLET |m| (CADR |LETTMP#1|)) - (SPADLET |e| (CADDR |LETTMP#1|)) - (SPADLET |LETTMP#1| + (setq |y'| (CAR |LETTMP#1|)) + (setq |m| (CADR |LETTMP#1|)) + (setq |e| (CADDR |LETTMP#1|)) + (setq |LETTMP#1| (OR (|modeIsAggregateOf| '|List| |m| |e|) (RETURN (|stackMessage| @@ -218,70 +218,70 @@ (CONS '| must be a list of other modes| NIL))))))) - (SPADLET |mOver| (CAR |LETTMP#1|)) - (SPADLET |mUnder| (CADR |LETTMP#1|)) + (setq |mOver| (CAR |LETTMP#1|)) + (setq |mUnder| (CADR |LETTMP#1|)) (COND ((NULL (|get| |x| '|mode| |e|)) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (OR (|compMakeDeclaration| (CONS '|:| (CONS |x| (CONS |m| NIL))) |$EmptyMode| |e|) (RETURN NIL))) - (SPADLET |e| (CADDR |LETTMP#1|)) |LETTMP#1|)) - (SPADLET |e| + (setq |e| (CADDR |LETTMP#1|)) |LETTMP#1|)) + (setq |e| (|put| |x| '|value| (CONS (|genSomeVariable|) (CONS |m| (CONS |e| NIL))) |e|)) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (OR (|coerce| (CONS |y'| (CONS |m| (CONS |e| NIL))) |mOver|) (RETURN NIL))) - (SPADLET |y''| (CAR |LETTMP#1|)) - (SPADLET |m''| (CADR |LETTMP#1|)) - (SPADLET |e| (CADDR |LETTMP#1|)) + (setq |y''| (CAR |LETTMP#1|)) + (setq |m''| (CADR |LETTMP#1|)) + (setq |e| (CADDR |LETTMP#1|)) (CONS (CONS 'ON (CONS |x| (CONS |y''| NIL))) (CONS |e| NIL))) ((AND (CONSP |it|) (EQ (QCAR |it|) 'STEP) (PROGN - (SPADLET |ISTMP#1| (QCDR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |index| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |index| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |start| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |start| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |inc| (QCAR |ISTMP#3|)) - (SPADLET |optFinal| + (setq |inc| (QCAR |ISTMP#3|)) + (setq |optFinal| (QCDR |ISTMP#3|)) 'T)))))))) - (SPADLET |$formalArgList| (CONS |index| |$formalArgList|)) - (SPADLET |final'| NIL) + (setq |$formalArgList| (CONS |index| |$formalArgList|)) + (setq |final'| NIL) (COND - ((AND (SPADLET |start'| + ((AND (setq |start'| (|comp| |start| |$SmallInteger| |e|)) - (SPADLET |inc'| + (setq |inc'| (|comp| |inc| |$NonNegativeInteger| (CADDR |start'|))) (OR (NULL (AND (CONSP |optFinal|) (EQ (QCDR |optFinal|) NIL) (PROGN - (SPADLET |final| (QCAR |optFinal|)) + (setq |final| (QCAR |optFinal|)) 'T))) - (SPADLET |final'| + (setq |final'| (|comp| |final| |$SmallInteger| (CADDR |inc'|))))) - (SPADLET |indexmode| + (setq |indexmode| (COND ((|comp| |start| |$NonNegativeInteger| |e|) |$NonNegativeInteger|) ('T |$SmallInteger|))) (COND ((NULL (|get| |index| '|mode| |e|)) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (OR (|compMakeDeclaration| (CONS '|:| (CONS |index| @@ -291,42 +291,42 @@ (|final'| (CADDR |final'|)) ('T (CADDR |inc'|)))) (RETURN NIL))) - (SPADLET |e| (CADDR |LETTMP#1|)) |LETTMP#1|)) - (SPADLET |e| + (setq |e| (CADDR |LETTMP#1|)) |LETTMP#1|)) + (setq |e| (|put| |index| '|value| (CONS (|genSomeVariable|) (CONS |indexmode| (CONS |e| NIL))) |e|)) (COND - (|final'| (SPADLET |optFinal| (CONS (CAR |final'|) NIL)))) + (|final'| (setq |optFinal| (CONS (CAR |final'|) NIL)))) (CONS (CONS 'ISTEP (CONS |index| (CONS (CAR |start'|) (CONS (CAR |inc'|) |optFinal|)))) (CONS |e| NIL))) ('T - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (OR (|comp| |start| |$Integer| |e|) (RETURN (|stackMessage| (CONS '|start value of index: | (CONS |start| (CONS '| must be an integer| NIL))))))) - (SPADLET |start| (CAR |LETTMP#1|)) - (SPADLET |e| (CADDR |LETTMP#1|)) - (SPADLET |LETTMP#1| + (setq |start| (CAR |LETTMP#1|)) + (setq |e| (CADDR |LETTMP#1|)) + (setq |LETTMP#1| (OR (|comp| |inc| |$Integer| |e|) (RETURN (|stackMessage| (CONS '|index increment:| (CONS |inc| (CONS '| must be an integer| NIL))))))) - (SPADLET |inc| (CAR |LETTMP#1|)) - (SPADLET |e| (CADDR |LETTMP#1|)) + (setq |inc| (CAR |LETTMP#1|)) + (setq |e| (CADDR |LETTMP#1|)) (COND ((AND (CONSP |optFinal|) (EQ (QCDR |optFinal|) NIL) - (PROGN (SPADLET |final| (QCAR |optFinal|)) 'T)) - (SPADLET |LETTMP#1| + (PROGN (setq |final| (QCAR |optFinal|)) 'T)) + (setq |LETTMP#1| (OR (|comp| |final| |$Integer| |e|) (RETURN (|stackMessage| @@ -334,25 +334,25 @@ (CONS |final| (CONS '| must be an integer| NIL))))))) - (SPADLET |final| (CAR |LETTMP#1|)) - (SPADLET |e| (CADDR |LETTMP#1|)) - (SPADLET |optFinal| (CONS |final| NIL)))) - (SPADLET |indexmode| + (setq |final| (CAR |LETTMP#1|)) + (setq |e| (CADDR |LETTMP#1|)) + (setq |optFinal| (CONS |final| NIL)))) + (setq |indexmode| (COND ((|comp| (CADDR |it|) |$NonNegativeInteger| |e|) |$NonNegativeInteger|) ('T |$Integer|))) (COND ((NULL (|get| |index| '|mode| |e|)) - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (OR (|compMakeDeclaration| (CONS '|:| (CONS |index| (CONS |indexmode| NIL))) |$EmptyMode| |e|) (RETURN NIL))) - (SPADLET |e| (CADDR |LETTMP#1|)) |LETTMP#1|)) - (SPADLET |e| + (setq |e| (CADDR |LETTMP#1|)) |LETTMP#1|)) + (setq |e| (|put| |index| '|value| (CONS (|genSomeVariable|) (CONS |indexmode| (CONS |e| NIL))) @@ -363,10 +363,10 @@ (CONS |e| NIL))))) ((AND (CONSP |it|) (EQ (QCAR |it|) 'WHILE) (PROGN - (SPADLET |ISTMP#1| (QCDR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |p| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |LETTMP#1| + (PROGN (setq |p| (QCAR |ISTMP#1|)) 'T)))) + (setq |LETTMP#1| (OR (|comp| |p| |$Boolean| |e|) (RETURN (|stackMessage| @@ -374,22 +374,22 @@ (CONS |p| (CONS '| is not Boolean valued| NIL))))))) - (SPADLET |p'| (CAR |LETTMP#1|)) - (SPADLET |m| (CADR |LETTMP#1|)) - (SPADLET |e| (CADDR |LETTMP#1|)) + (setq |p'| (CAR |LETTMP#1|)) + (setq |m| (CADR |LETTMP#1|)) + (setq |e| (CADDR |LETTMP#1|)) (CONS (CONS 'WHILE (CONS |p'| NIL)) (CONS |e| NIL))) ((AND (CONSP |it|) (EQ (QCAR |it|) 'UNTIL) (PROGN - (SPADLET |ISTMP#1| (QCDR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |p| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |$until| |p|) (CONS '|$until| (CONS |e| NIL))) + (PROGN (setq |p| (QCAR |ISTMP#1|)) 'T)))) + (setq |$until| |p|) (CONS '|$until| (CONS |e| NIL))) ((AND (CONSP |it|) (EQ (QCAR |it|) '|\||) (PROGN - (SPADLET |ISTMP#1| (QCDR |it|)) + (setq |ISTMP#1| (QCDR |it|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |x| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |u| + (PROGN (setq |x| (QCAR |ISTMP#1|)) 'T)))) + (setq |u| (OR (|comp| |x| |$Boolean| |e|) (RETURN (|stackMessage| @@ -489,15 +489,15 @@ (SEQ (COND ((AND (CONSP |m|) (EQUAL (QCAR |m|) |ListOrVector|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET R (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq R (QCAR |ISTMP#1|)) 'T)))) (CONS |m| (CONS R NIL))) ((AND (CONSP |m|) (EQ (QCAR |m|) '|Union|) - (PROGN (SPADLET |l| (QCDR |m|)) 'T)) - (SPADLET |mList| + (PROGN (setq |l| (QCDR |m|)) 'T)) + (setq |mList| (PROG (G166653) - (SPADLET G166653 NIL) + (setq G166653 NIL) (RETURN (DO ((G166659 |l| (CDR G166659)) (|m'| NIL)) @@ -507,34 +507,34 @@ NIL)) (NREVERSE0 G166653)) (SEQ (EXIT (COND - ((SPADLET |pair| + ((setq |pair| (|modeIsAggregateOf| |ListOrVector| |m'| |e|)) (SETQ G166653 (CONS |pair| G166653)))))))))) (COND ((EQL 1 (|#| |mList|)) (CAR |mList|)))) ('T - (SPADLET |name| + (setq |name| (COND ((AND (CONSP |m|) - (PROGN (SPADLET |fn| (QCAR |m|)) 'T)) + (PROGN (setq |fn| (QCAR |m|)) 'T)) |fn|) ((BOOT-EQUAL |m| '$) '|Rep|) ('T |m|))) (COND ((PROGN - (SPADLET |ISTMP#1| (|get| |name| '|value| |e|)) + (setq |ISTMP#1| (|get| |name| '|value| |e|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQUAL (QCAR |ISTMP#2|) |ListOrVector|) (PROGN - (SPADLET |ISTMP#3| (QCDR |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))))))) (CONS |m| (CONS R NIL)))))))))) diff --git a/src/interp/lisplib.lisp.pamphlet b/src/interp/lisplib.lisp.pamphlet index 4d0be05..f423733 100644 --- a/src/interp/lisplib.lisp.pamphlet +++ b/src/interp/lisplib.lisp.pamphlet @@ -44,7 +44,7 @@ (COND ((|member| |fn| '(DOMAIN SUBDOM MODE)) NIL) ('T - (SPADLET |p| + (setq |p| (|pathname| (CONS |fn| (CONS |ft| (CONS "*" NIL))))) @@ -68,10 +68,10 @@ (PROG (|fnStream| |val|) (RETURN (PROGN - (SPADLET |fnStream| (|readLibPathFast| |p|)) + (setq |fnStream| (|readLibPathFast| |p|)) (COND ((NULL |fnStream|) NIL) - ('T (SPADLET |val| (|rread| |id| |fnStream| NIL)) + ('T (setq |val| (|rread| |id| |fnStream| NIL)) (RSHUT |fnStream|) |val|)))))) ;--% Uninstantiating @@ -116,9 +116,9 @@ NIL) (PROGN (PROGN - (SPADLET |arg| (CAR G166124)) - (SPADLET |count| (CADR G166124)) - (SPADLET |inst| (CDDR G166124)) + (setq |arg| (CAR G166124)) + (setq |count| (CADR G166124)) + (setq |inst| (CDDR G166124)) G166124) NIL)) NIL) @@ -141,14 +141,14 @@ (SEQ (COND ((AND (CONSP |form|) (PROGN - (SPADLET |op| (QCAR |form|)) - (SPADLET |argl| (QCDR |form|)) + (setq |op| (QCAR |form|)) + (setq |argl| (QCDR |form|)) 'T)) (COND ((|member| |op| |deps|) 'T) ('T (PROG (G166164) - (SPADLET G166164 NIL) + (setq G166164 NIL) (RETURN (DO ((G166170 NIL G166164) (G166171 |argl| (CDR G166171)) (|x| NIL)) @@ -248,7 +248,7 @@ (PROG (|f|) (RETURN (COND - ((NULL (SPADLET |f| (|getFunctionSourceFile1| |fun|))) NIL) + ((NULL (setq |f| (|getFunctionSourceFile1| |fun|))) NIL) ('T (COND ((makeInputFilename |f|) (|updateSourceFiles| |f|))) |f|))))) @@ -271,17 +271,17 @@ (declare (special $FUNCTION)) (RETURN (COND - ((SPADLET |file| (KDR (GETL |fun| 'DEFLOC))) + ((setq |file| (KDR (GETL |fun| 'DEFLOC))) (|pathname| |file|)) - ((NULL (OR (SPADLET |fileinfo| (FUNLOC |fun|)) - (SPADLET |fileinfo| (FUNLOC (|unabbrev| |fun|))))) + ((NULL (OR (setq |fileinfo| (FUNLOC |fun|)) + (setq |fileinfo| (FUNLOC (|unabbrev| |fun|))))) nil) - ((EQL 3 (|#| |fileinfo|)) (SPADLET |fn| (CAR |fileinfo|)) - (SPADLET |ft| (CADR |fileinfo|)) - (SPADLET $FUNCTION (CADDR |fileinfo|)) + ((EQL 3 (|#| |fileinfo|)) (setq |fn| (CAR |fileinfo|)) + (setq |ft| (CADR |fileinfo|)) + (setq $FUNCTION (CADDR |fileinfo|)) (|newMKINFILENAM| (|pathname| (CONS |fn| (CONS |ft| NIL))))) - ('T (SPADLET |fn| (CAR |fileinfo|)) - (SPADLET $FUNCTION (CADR |fileinfo|)) + ('T (setq |fn| (CAR |fileinfo|)) + (setq $FUNCTION (CADR |fileinfo|)) (|newMKINFILENAM| (|pathname| (CONS |fn| NIL)))))))) ;_/MKINFILENAM(infile) == CATCH('FILNAM, newMKINFILENAM infile) @@ -319,15 +319,15 @@ (SEQ (COND ((NULL |infile|) NIL) ('T - (SPADLET |file| (SPADLET |infile| (|pathname| |infile|))) + (setq |file| (setq |infile| (|pathname| |infile|))) (DO () (NIL NIL) (SEQ (EXIT (PROGN - (SPADLET |fn| (|pathnameName| |file|)) - (SPADLET |nfile| + (setq |fn| (|pathnameName| |file|)) + (setq |nfile| ($FINDFILE |file| |$sourceFileTypes|)) (COND - ((NULL |nfile|) (SPADLET |nfile| |file|) + ((NULL |nfile|) (setq |nfile| |file|) (COND ((OR (BOOT-EQUAL |fn| "*") @@ -340,7 +340,7 @@ (|sayKeyedMsg| "The file %1 is needed but does not exist." (CONS (|namestring| |file|) NIL)))) - (SPADLET |ans| + (setq |ans| (|queryUserKeyedMsg| (format nil "Enter create to newly create the file or specify the correct ~ @@ -351,9 +351,9 @@ ((AND (> (SIZE |ans|) 0) (BOOT-EQUAL ")" (SUBSTRING |ans| 0 1))) - (SPADLET |n| 2)) - ('T (SPADLET |n| 1))) - (SPADLET |nfn| + (setq |n| 2)) + ('T (setq |n| 1))) + (setq |nfn| (UPCASE (STRING2ID-N |ans| |n|))) (COND @@ -368,7 +368,7 @@ ((BOOT-EQUAL |nfn| 'CREATE) (RETURN '|fromThisLoop|)) ('T - (SPADLET |file| (|pathname| |ans|))))) + (setq |file| (|pathname| |ans|))))) ('T (RETURN '|fromThisLoop|))))))) (COND (|nfile| (|pathname| |nfile|)) ('T NIL)))))))) @@ -393,12 +393,12 @@ (RETURN (SEQ (COND ((member '? |l|) (RETURN (|editFile| '(/C TELL *)))) - ('T (SPADLET |optionList| (/OPTIONS |l|)) - (SPADLET |funList| + ('T (setq |optionList| (/OPTIONS |l|)) + (setq |funList| (OR (TRUNCLIST |l| |optionList|) (CONS /FN NIL))) - (SPADLET |options| + (setq |options| (PROG (G166392) - (SPADLET G166392 NIL) + (setq G166392 NIL) (RETURN (DO ((G166397 |optionList| (CDR G166397)) @@ -413,13 +413,13 @@ (CONS (UPCASE (CAR |x|)) (CDR |x|)) G166392)))))))) - (SPADLET |infile| + (setq |infile| (/MKINFILENAM (/GETOPTION |options| 'FROM=))) - (SPADLET |outfile| + (setq |outfile| (/MKINFILENAM (/GETOPTION |options| 'TO=))) - (SPADLET |res| + (setq |res| (PROG (G166407) - (SPADLET G166407 NIL) + (setq G166407 NIL) (RETURN (DO ((G166412 |funList| (CDR G166412)) (|fn| NIL)) @@ -492,43 +492,43 @@ $ERASE /EDITFILE)) (RETURN (PROGN - (SPADLET $PRETTYPRINT 'T) - (SPADLET $LISPLIB 'T) - (SPADLET |$lisplibAttributes| NIL) - (SPADLET |$lisplibPredicates| NIL) - (SPADLET |$lisplibForm| NIL) - (SPADLET |$lisplibAbbreviation| NIL) - (SPADLET |$lisplibParents| NIL) - (SPADLET |$lisplibAncestors| NIL) - (SPADLET |$lisplibKind| NIL) - (SPADLET |$lisplibModemap| NIL) - (SPADLET |$lisplibModemapAlist| NIL) - (SPADLET |$lisplibCategoriesExtended| NIL) - (SPADLET |$lisplibSlot1| NIL) - (SPADLET |$lisplibOperationAlist| NIL) - (SPADLET |$lisplibOpAlist| NIL) - (SPADLET |$lisplibSuperDomain| NIL) - (SPADLET |$libFile| NIL) - (SPADLET |$lisplibVariableAlist| NIL) - (SPADLET |$lisplibSignatureAlist| NIL) + (setq $PRETTYPRINT 'T) + (setq $LISPLIB 'T) + (setq |$lisplibAttributes| NIL) + (setq |$lisplibPredicates| NIL) + (setq |$lisplibForm| NIL) + (setq |$lisplibAbbreviation| NIL) + (setq |$lisplibParents| NIL) + (setq |$lisplibAncestors| NIL) + (setq |$lisplibKind| NIL) + (setq |$lisplibModemap| NIL) + (setq |$lisplibModemapAlist| NIL) + (setq |$lisplibCategoriesExtended| NIL) + (setq |$lisplibSlot1| NIL) + (setq |$lisplibOperationAlist| NIL) + (setq |$lisplibOpAlist| NIL) + (setq |$lisplibSuperDomain| NIL) + (setq |$libFile| NIL) + (setq |$lisplibVariableAlist| NIL) + (setq |$lisplibSignatureAlist| NIL) (COND ((AND (NULL (ATOM |fun|)) (NULL (CDR |fun|))) - (SPADLET |fun| (CAR |fun|)))) - (SPADLET |libName| (|getConstructorAbbreviation| |fun|)) - (SPADLET |infile| + (setq |fun| (CAR |fun|)))) + (setq |libName| (|getConstructorAbbreviation| |fun|)) + (setq |infile| (OR |infileOrNil| (|getFunctionSourceFile| |fun|) (|throwKeyedMsg| "The source file for %1 cannot be located." (CONS |fun| NIL)))) (SETQ /EDITFILE |infile|) - (SPADLET |outfile| + (setq |outfile| (OR |outfileOrNil| (CONS |libName| (CONS 'OUTPUT (CONS 'a NIL))))) ($ERASE |libName| 'OUTPUT 'a) - (SPADLET |outstream| (DEFSTREAM |outfile| 'OUTPUT)) - (SPADLET |val| + (setq |outstream| (DEFSTREAM |outfile| 'OUTPUT)) + (setq |val| (|/D,2,LIB| |fun| |infile| |outstream| |auxOp| |editFlag| |traceFlag|)) |val|)))) @@ -572,7 +572,7 @@ (PROG (|s|) (RETURN (COND - ((SPADLET |s| (|getConstructorSignature| |c|)) (CDR |s|)) + ((setq |s| (|getConstructorSignature| |c|)) (CDR |s|)) ('T (|throwEvalTypeMsg| (format nil @@ -594,9 +594,9 @@ (SEQ (COND ((ATOM |u|) NIL) ((ATOM (CAR |u|)) - (SPADLET |answer| + (setq |answer| (PROG (G166680) - (SPADLET G166680 NIL) + (setq G166680 NIL) (RETURN (DO ((G166685 (CDR |u|) (CDR G166685)) (|v| NIL)) @@ -613,7 +613,7 @@ ('T (CONS (CAR |u|) |answer|)))) ('T (PROG (G166691) - (SPADLET G166691 NIL) + (setq G166691 NIL) (RETURN (DO ((G166696 |u| (CDR G166696)) (|v| NIL)) ((OR (ATOM G166696) diff --git a/src/interp/match.lisp.pamphlet b/src/interp/match.lisp.pamphlet index 74e41e6..d984067 100644 --- a/src/interp/match.lisp.pamphlet +++ b/src/interp/match.lisp.pamphlet @@ -30,9 +30,9 @@ ('T (COND ((NULL (STRINGP |subject|)) - (SPADLET |subject| (PNAME |subject|)))) + (setq |subject| (PNAME |subject|)))) (PROG (G166058) - (SPADLET G166058 NIL) + (setq G166058 NIL) (RETURN (DO ((G166064 NIL G166058) (G166065 |mask| (CDR G166065)) @@ -58,13 +58,13 @@ (PROG (|np| |nw|) (RETURN (SEQ (PROGN - (SPADLET |np| (SIZE |part|)) - (SPADLET |nw| (SIZE |whole|)) + (setq |np| (SIZE |part|)) + (setq |nw| (SIZE |whole|)) (COND ((> |np| (SPADDIFFERENCE |nw| |startpos|)) NIL) ('T (PROG (G166078) - (SPADLET G166078 'T) + (setq G166078 'T) (RETURN (DO ((G166085 NIL (NULL G166078)) (G166086 (SPADDIFFERENCE |np| 1)) @@ -87,11 +87,11 @@ (PROG (|np| |nw| |k|) (RETURN (SEQ (PROGN - (SPADLET |np| (SIZE |part|)) - (SPADLET |nw| (SIZE |whole|)) + (setq |np| (SIZE |part|)) + (setq |nw| (SIZE |whole|)) (COND ((PROG (G166098) - (SPADLET G166098 NIL) + (setq G166098 NIL) (RETURN (DO ((G166104 NIL G166098) (G166105 (SPADDIFFERENCE |nw| |np|)) @@ -99,9 +99,9 @@ ((OR G166104 (> |i| G166105)) G166098) (SEQ (EXIT (SETQ G166098 (OR G166098 - (AND (SPADLET |k| |i|) + (AND (setq |k| |i|) (PROG (G166110) - (SPADLET G166110 'T) + (setq G166110 'T) (RETURN (DO ((G166117 NIL @@ -137,17 +137,17 @@ (PROG (|n| |k|) (RETURN (SEQ (PROGN - (SPADLET |n| (SIZE |t|)) + (setq |n| (SIZE |t|)) (COND ((OR (MINUSP |startpos|) (> |startpos| |n|)) |n|) - ('T (SPADLET |k| |startpos|) + ('T (setq |k| |startpos|) (DO ((G166136 (SPADDIFFERENCE |n| 1)) (|i| |startpos| (+ |i| 1))) ((> |i| G166136) NIL) (SEQ (EXIT (COND ((BOOT-EQUAL |c| (ELT |t| |i|)) (RETURN NIL)) - ('T (SPADLET |k| (+ |k| 1))))))) + ('T (setq |k| (+ |k| 1))))))) |k|))))))) ;rightCharPosition(c,t,startpos) == --startpos often equals MAXINDEX t (rightmost) @@ -159,13 +159,13 @@ (PROG (|k|) (RETURN (SEQ (PROGN - (SPADLET |k| |startpos|) + (setq |k| |startpos|) (DO ((G166151 (SPADDIFFERENCE 1)) (|i| |startpos| (+ |i| G166151))) ((OR (IF (MINUSP G166151) (< |i| 0) (> |i| 0)) (NULL (NEQUAL |c| (ELT |t| |i|)))) NIL) - (SEQ (EXIT (SPADLET |k| (SPADDIFFERENCE |k| 1))))) + (SEQ (EXIT (setq |k| (SPADDIFFERENCE |k| 1))))) |k|))))) ;stringPosition(s,t,startpos) == @@ -179,12 +179,12 @@ (PROG (|n| |r|) (RETURN (PROGN - (SPADLET |n| (SIZE |t|)) + (setq |n| (SIZE |t|)) (COND ((OR (MINUSP |startpos|) (> |startpos| |n|)) (|error| '|index out of range|))) (COND ((EQL (SIZE |s|) 0) (RETURN |startpos|))) - (SPADLET |r| (STRPOS |s| |t| |startpos| NIL)) + (setq |r| (STRPOS |s| |t| |startpos| NIL)) (COND ((EQ |r| NIL) |n|) ('T |r|)))))) ;superMatch?(opattern,subject) == --subject assumed to be DOWNCASEd @@ -197,8 +197,8 @@ (DECLARE (SPECIAL |$wildCard|)) (RETURN (PROGN - (SPADLET |$wildCard| (|char| '*)) - (SPADLET |pattern| (|patternCheck| |opattern|)) + (setq |$wildCard| (|char| '*)) + (setq |pattern| (|patternCheck| |opattern|)) (|logicalMatch?| |pattern| |subject|))))) ;logicalMatch?(pattern,subject) == --subject assumed to be DOWNCASEd @@ -215,13 +215,13 @@ (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|) (PROG (G166180) - (SPADLET G166180 'T) + (setq G166180 'T) (RETURN (DO ((G166186 NIL (NULL G166180)) (G166187 |argl| (CDR G166187)) (|p| NIL)) @@ -233,7 +233,7 @@ (|superMatch?| |p| |subject|))))))))) ((BOOT-EQUAL |op| '|or|) (PROG (G166194) - (SPADLET G166194 NIL) + (setq G166194 NIL) (RETURN (DO ((G166200 NIL G166194) (G166201 |argl| (CDR G166201)) (|p| NIL)) @@ -300,9 +300,9 @@ ((OR (ATOM G166226) (PROGN (SETQ |id| (CAR G166226)) NIL)) NIL) - (SEQ (SPADLET |c| (|char| |id|)) + (SEQ (setq |c| (|char| |id|)) (EXIT (IF (NULL (PROG (G166232) - (SPADLET G166232 NIL) + (setq G166232 NIL) (RETURN (DO ((G166238 NIL G166232) @@ -326,21 +326,21 @@ (DEFUN |patternCheck,pos| (|c| |s|) (PROG (|n| |k| |acc| |i|) (RETURN - (SEQ (SPADLET |i| 0) (SPADLET |n| (MAXINDEX |s|)) - (SPADLET |acc| NIL) + (SEQ (setq |i| 0) (setq |n| (MAXINDEX |s|)) + (setq |acc| NIL) (EXIT (DO () (NIL NIL) - (SEQ (SPADLET |k| (|charPosition| |c| |s| |i|)) + (SEQ (setq |k| (|charPosition| |c| |s| |i|)) (IF (> |k| |n|) (EXIT (RETURN (NREVERSE |acc|)))) - (SPADLET |acc| (CONS |k| |acc|)) - (EXIT (SPADLET |i| (+ |k| 1)))))))))) + (setq |acc| (CONS |k| |acc|)) + (EXIT (setq |i| (+ |k| 1)))))))))) (DEFUN |patternCheck,subWild| (|s| |i|) (PROG (|k|) (declare (special |$wildCard| |$oldWild|)) (RETURN (SEQ (IF (> (|#| |s|) - (SPADLET |k| (|charPosition| |$oldWild| |s| |i|))) + (setq |k| (|charPosition| |$oldWild| |s| |i|))) (EXIT (STRCONC (SUBSTRING |s| |i| (SPADDIFFERENCE |k| |i|)) |$wildCard| @@ -348,7 +348,7 @@ (EXIT (SUBSTRING |s| |i| NIL)))))) (DEFUN |patternCheck,mknew| (|old| |i| |r| |new|) - (SEQ (SPADLET |new| (STRCONC |new| (ELT |old| (+ |i| 1)))) + (SEQ (setq |new| (STRCONC |new| (ELT |old| (+ |i| 1)))) (IF (NULL |r|) (EXIT (STRCONC |new| (|patternCheck,subWild| @@ -366,11 +366,11 @@ (DECLARE (SPECIAL |$oldWild| |$wildCard|)) (RETURN (SEQ (PROGN - (SPADLET |u| (|patternCheck,pos| (|char| '_) |pattern|)) + (setq |u| (|patternCheck,pos| (|char| '_) |pattern|)) (COND ((NULL |u|) |pattern|) ((NULL (PROG (G166274) - (SPADLET G166274 'T) + (setq G166274 'T) (RETURN (DO ((G166280 NIL (NULL G166274)) (G166281 |u| (CDR G166281)) @@ -390,11 +390,11 @@ (CONS |pattern| NIL))) "!!!!!!!!!!!!!!") ('T - (SPADLET |c| + (setq |c| (|patternCheck,wild| |pattern| '($ |#| % & @))) - (SPADLET |$oldWild| |$wildCard|) - (SPADLET |$wildCard| |c|) - (SPADLET |pattern| + (setq |$oldWild| |$wildCard|) + (setq |$wildCard| |c|) + (setq |pattern| (|patternCheck,mknew| |pattern| (CAR |u|) (CDR |u|) (SUBSTRING |pattern| 0 (CAR |u|)))) @@ -421,10 +421,10 @@ (COND ((NULL (CHARP |wildcard|)) (|systemError| "Wildcard must be a character")) - ('T (SPADLET |$wildCard| |wildcard|) - (SPADLET |subject| (DOWNCASE |subject|)) + ('T (setq |$wildCard| |wildcard|) + (setq |subject| (DOWNCASE |subject|)) (COND - ((SPADLET |k| + ((setq |k| (|basicMatch?| |pattern| (DOWNCASE |subject|))) (+ |k| 1)) ('T 0))))))) @@ -464,46 +464,46 @@ (declare (special |$wildCard|)) (RETURN (SEQ (PROGN - (SPADLET |n| (|#| |pattern|)) - (SPADLET |p| (|charPosition| |$wildCard| |pattern| 0)) + (setq |n| (|#| |pattern|)) + (setq |p| (|charPosition| |$wildCard| |pattern| 0)) (COND ((BOOT-EQUAL |p| |n|) (AND (BOOT-EQUAL |pattern| |target|) 0)) ('T (COND - ((NEQUAL |p| 0) (SPADLET |ans| 0) - (SPADLET |s| (SUBSTRING |pattern| 0 |p|)) + ((NEQUAL |p| 0) (setq |ans| 0) + (setq |s| (SUBSTRING |pattern| 0 |p|)) (COND ((NULL (|substring?| |s| |target| 0)) (RETURN NIL)))) ((EQL |n| 1) (RETURN 0)) ('T NIL)) - (SPADLET |i| |p|) - (SPADLET |q| + (setq |i| |p|) + (setq |q| (|charPosition| |$wildCard| |pattern| (+ |p| 1))) - (SPADLET |ltarget| (|#| |target|)) + (setq |ltarget| (|#| |target|)) (DO () ((NULL (NEQUAL |q| |n|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |s| + (setq |s| (SUBSTRING |pattern| (+ |p| 1) (SPADDIFFERENCE (SPADDIFFERENCE |q| |p|) 1))) - (SPADLET |i| + (setq |i| (|stringPosition| |s| |target| |i|)) (COND ((NULL |ans|) - (SPADLET |ans| + (setq |ans| (|stringPosition| |s| |target| |p|)))) (COND ((BOOT-EQUAL |i| |ltarget|) - (RETURN (SPADLET |returnFlag| 'T)))) - (SPADLET |i| (+ |i| (|#| |s|))) - (SPADLET |p| |q|) - (SPADLET |q| + (RETURN (setq |returnFlag| 'T)))) + (setq |i| (+ |i| (|#| |s|))) + (setq |p| |q|) + (setq |q| (|charPosition| |$wildCard| |pattern| (+ |q| 1))))))) (COND @@ -511,13 +511,13 @@ ('T (COND ((NEQUAL |p| (SPADDIFFERENCE |q| 1)) - (SPADLET |s| + (setq |s| (SUBSTRING |pattern| (+ |p| 1) (SPADDIFFERENCE (SPADDIFFERENCE |q| |p|) 1))) (COND ((NULL (|suffix?| |s| |target|)) (RETURN NIL))) - (COND ((NULL |ans|) (SPADLET |ans| 1)) ('T NIL)))) + (COND ((NULL |ans|) (setq |ans| 1)) ('T NIL)))) |ans|))))))))) ;matchSegment?(pattern,subject,k) == @@ -566,11 +566,11 @@ (declare (special |$wildCard|)) (RETURN (SEQ (PROGN - (SPADLET |n| (|#| |pattern|)) - (SPADLET |p| (|charPosition| |$wildCard| |pattern| 0)) + (setq |n| (|#| |pattern|)) + (setq |p| (|charPosition| |$wildCard| |pattern| 0)) (COND ((BOOT-EQUAL |p| |n|) - (SPADLET |m| (|stringPosition| |pattern| |target| |k|)) + (setq |m| (|stringPosition| |pattern| |target| |k|)) (COND ((BOOT-EQUAL |m| (|#| |target|)) NIL) ((NULL |nc|) 'T) @@ -578,37 +578,37 @@ ('T (COND ((AND (NEQUAL |k| 0) |nc|) - (SPADLET |target| (SUBSTRING |target| |k| |nc|)) - (SPADLET |k| 0))) + (setq |target| (SUBSTRING |target| |k| |nc|)) + (setq |k| 0))) (COND - ((NEQUAL |p| 0) (SPADLET |ans| 0) - (SPADLET |s| (SUBSTRING |pattern| 0 |p|)) + ((NEQUAL |p| 0) (setq |ans| 0) + (setq |s| (SUBSTRING |pattern| 0 |p|)) (COND ((NULL (|substring?| |s| |target| |k|)) (RETURN NIL)))) ((EQL |n| 1) (RETURN 'T)) ('T NIL)) - (SPADLET |i| (+ |p| |k|)) - (SPADLET |q| + (setq |i| (+ |p| |k|)) + (setq |q| (|charPosition| |$wildCard| |pattern| (+ |p| 1))) - (SPADLET |ltarget| (|#| |target|)) + (setq |ltarget| (|#| |target|)) (DO () ((NULL (NEQUAL |q| |n|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |s| + (setq |s| (SUBSTRING |pattern| (+ |p| 1) (SPADDIFFERENCE (SPADDIFFERENCE |q| |p|) 1))) - (SPADLET |i| + (setq |i| (|stringPosition| |s| |target| |i|)) (COND ((BOOT-EQUAL |i| |ltarget|) - (RETURN (SPADLET |returnFlag| 'T)))) - (SPADLET |i| (+ |i| (|#| |s|))) - (SPADLET |p| |q|) - (SPADLET |q| + (RETURN (setq |returnFlag| 'T)))) + (setq |i| (+ |i| (|#| |s|))) + (setq |p| |q|) + (setq |q| (|charPosition| |$wildCard| |pattern| (+ |q| 1))))))) (COND @@ -616,13 +616,13 @@ ('T (COND ((NEQUAL |p| (SPADDIFFERENCE |q| 1)) - (SPADLET |s| + (setq |s| (SUBSTRING |pattern| (+ |p| 1) (SPADDIFFERENCE (SPADDIFFERENCE |q| |p|) 1))) (COND ((NULL (|suffix?| |s| |target|)) (RETURN NIL))) - (COND ((NULL |ans|) (SPADLET |ans| 1)) ('T NIL)))) + (COND ((NULL |ans|) (setq |ans| 1)) ('T NIL)))) 'T))))))))) ;infix?(s,t,x) == #s + #t >= #x and prefix?(s,x) and suffix?(t,x) @@ -644,8 +644,8 @@ (PROG (|m| |n|) (RETURN (PROGN - (SPADLET |m| (|#| |s|)) - (SPADLET |n| (|#| |t|)) + (setq |m| (|#| |s|)) + (setq |n| (|#| |t|)) (COND ((> |m| |n|) (RETURN NIL))) (|substring?| |s| |t| (SPADDIFFERENCE |n| |m|)))))) diff --git a/src/interp/nag-c02.lisp.pamphlet b/src/interp/nag-c02.lisp.pamphlet index 53b8ef3..6d1ab7b 100644 --- a/src/interp/nag-c02.lisp.pamphlet +++ b/src/interp/nag-c02.lisp.pamphlet @@ -123,18 +123,18 @@ (DEFUN |c02affSolve,f| (|i| |n|) (PROG (|prefix| |post| |rnam| |inam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline z**") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline z**") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE (+ (SPADDIFFERENCE |n| |i|) 1)) "\\space{1}")) - (SPADLET |post| "\\tab{30} ") - (SPADLET |post| (STRCONC |post| "\\space{1}")) - (SPADLET |rnam| + (setq |post| "\\tab{30} ") + (setq |post| (STRCONC |post| "\\space{1}")) + (setq |rnam| (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) - (SPADLET |inam| + (setq |inam| (INTERN (STRCONC "i" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -160,7 +160,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -168,22 +168,22 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |logical| (|htpButtonValue| |htPage| '|scale|)) - (SPADLET |scale| + (setq |logical| (|htpButtonValue| |htPage| '|scale|)) + (setq |scale| (COND ((BOOT-EQUAL |logical| '|true|) "true") ('T "false"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '5) (|c02affDefaultSolve| |htPage| |scale| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166076) - (SPADLET G166076 NIL) + (setq G166076 NIL) (RETURN (DO ((G166081 (+ |n| 1)) (|i| 1 (QSADD1 |i|))) @@ -192,14 +192,14 @@ (SETQ G166076 (APPEND G166076 (|c02affSolve,f| |i| |n|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) (|isDomain| S (|String|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|C02AFF - All Zeros of a Complex Polynomial| (|htpPropertyList| |htPage|))) @@ -275,8 +275,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '5) - (SPADLET |page| + (setq |n| '5) + (setq |page| (|htInitPage| "C02AFF - All Zeros of a Complex Polynomial" NIL)) @@ -336,25 +336,25 @@ |imaglist| |realstring| |imagstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |scale| (|htpProperty| |htPage| '|scale|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |scale| (|htpProperty| |htPage| '|scale|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)) - (SPADLET |imaglist| + (setq |imaglist| (CONS |right| |imaglist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) - (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) + (setq |imagstring| (|bcwords2liststring| |imaglist|)) (|linkGen| (STRCONC "c02aff([" |realstring| '|,| |imagstring| '|],| (STRINGIMAGE |n|) '|,| @@ -465,13 +465,13 @@ (DEFUN |c02agfSolve,f| (|i| |n|) (PROG (|prefix| |rnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline z**") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline z**") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE (+ (SPADDIFFERENCE |n| |i|) 1)) "\\space{1}")) - (SPADLET |rnam| + (setq |rnam| (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -489,7 +489,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -497,22 +497,22 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |logical| (|htpButtonValue| |htPage| '|scale|)) - (SPADLET |scale| + (setq |logical| (|htpButtonValue| |htPage| '|scale|)) + (setq |scale| (COND ((BOOT-EQUAL |logical| '|true|) "true") ('T "false"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '5) (|c02agfDefaultSolve| |htPage| |scale| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166149) - (SPADLET G166149 NIL) + (setq G166149 NIL) (RETURN (DO ((G166154 (+ |n| 1)) (|i| 1 (QSADD1 |i|))) @@ -521,14 +521,14 @@ (SETQ G166149 (APPEND G166149 (|c02agfSolve,f| |i| |n|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) (|isDomain| S (|String|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|C02AGF - All Zeros of a Real Polynomial| (|htpPropertyList| |htPage|))) @@ -584,8 +584,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '5) - (SPADLET |page| + (setq |n| '5) + (setq |page| (|htInitPage| "C02AGF - All Zeros of a Real Polynomial" NIL)) @@ -632,19 +632,19 @@ |realstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |scale| (|htpProperty| |htPage| '|scale|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |scale| (|htpProperty| |htPage| '|scale|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| (STRCONC "c02agf([" |realstring| '|],| (STRINGIMAGE |n|) '|,| |scale| '|,| diff --git a/src/interp/nag-c05.lisp.pamphlet b/src/interp/nag-c05.lisp.pamphlet index 734599c..6fe37cb 100644 --- a/src/interp/nag-c05.lisp.pamphlet +++ b/src/interp/nag-c05.lisp.pamphlet @@ -139,23 +139,23 @@ |expression| |prefix|) (RETURN (PROGN - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |eps| (|htpLabelInputString| |htPage| '|eps|)) - (SPADLET |eta| (|htpLabelInputString| |htPage| '|eta|)) - (SPADLET |temp| (READ-FROM-STRING |eps|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |eps| (|htpLabelInputString| |htPage| '|eps|)) + (setq |eta| (|htpLabelInputString| |htPage| '|eta|)) + (setq |temp| (READ-FROM-STRING |eps|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |temp1| + (setq |temp1| (COND ((> |temp| 0.0) |eps|) ('T "1.0e-5"))) - (SPADLET |expression| + (setq |expression| (|htpLabelInputString| |htPage| '|expression|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC "c05adf(" |a| '|,| |b| '|,| |temp1| '|,| |eta| '|,| (STRINGIMAGE |ifail|))) @@ -278,14 +278,14 @@ (DEFUN |c05nbfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline {\\em Function ") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline {\\em Function ") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) ":} \\space{1}")) - (SPADLET |funct| + (setq |funct| (STRCONC "X[" (STRINGIMAGE |i|) '|] + 1|)) - (SPADLET |nam| + (setq |nam| (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -300,7 +300,7 @@ (DEFUN |c05nbfSolve,fb| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| @@ -315,7 +315,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -323,17 +323,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |xtol| (|htpLabelInputString| |htPage| '|xtol|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |xtol| (|htpLabelInputString| |htPage| '|xtol|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '9) (|c05nbfDefaultSolve| |htPage| |ifail| |xtol|)) ('T - (SPADLET |funcList| + (setq |funcList| (PROG (G166099) - (SPADLET G166099 NIL) + (setq G166099 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166099) @@ -341,15 +341,15 @@ (SETQ G166099 (APPEND G166099 (|c05nbfSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "of the solution vector {\\it x}: \\newline ")) - (SPADLET |middle| (CONS '|text| |middle|)) - (SPADLET |vecList| + (setq |middle| (CONS '|text| |middle|)) + (setq |vecList| (PROG (G166111) - (SPADLET G166111 NIL) + (setq G166111 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) @@ -358,15 +358,15 @@ (SETQ G166111 (CONS (|c05nbfSolve,fb| |i|) G166111)))))))) - (SPADLET |funcList| + (setq |funcList| (APPEND |funcList| (CONS |middle| |vecList|))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) |funcList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|C05NBF - Solution of system of nonlinear equations using function values only| (|htpPropertyList| |htPage|))) @@ -437,8 +437,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '9) - (SPADLET |page| + (setq |n| '9) + (setq |page| (|htInitPage| '|C05NBF - Solution of system of nonlinear equations using function values only| NIL)) @@ -534,35 +534,35 @@ |middle|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |xtol| (|htpProperty| |htPage| '|xtol|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |i| 1) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |xtol| (|htpProperty| |htPage| '|xtol|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |i| 1) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN (COND ((> (+ |n| 1) |i|) - (SPADLET |temp1| + (setq |temp1| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |temp1list| + (setq |temp1list| (CONS |temp1| |temp1list|))) - ('T (SPADLET |temp2| (ELT (CAR |y|) 1)) - (SPADLET |temp2list| + ('T (setq |temp2| (ELT (CAR |y|) 1)) + (setq |temp2list| (CONS |temp2| |temp2list|)))) - (SPADLET |y| (CDR |y|)) - (SPADLET |i| (+ |i| 1)))))) - (SPADLET |string1| (|bcwords2liststring| |temp1list|)) - (SPADLET |string2| (|bcwords2liststring| |temp2list|)) - (SPADLET |lwa| + (setq |y| (CDR |y|)) + (setq |i| (+ |i| 1)))))) + (setq |string1| (|bcwords2liststring| |temp1list|)) + (setq |string2| (|bcwords2liststring| |temp2list|)) + (setq |lwa| (QUOTIENT (TIMES |n| (+ (TIMES 3 |n|) 13)) 2)) - (SPADLET |prefix| + (setq |prefix| (STRCONC '|c05nbf(| (STRINGIMAGE |n|) '|,| (STRINGIMAGE |lwa|) '|,[| |string1| '|],|)) - (SPADLET |middle| + (setq |middle| (STRCONC |xtol| '|,| (STRINGIMAGE |ifail|) '|,|)) (|linkGen| (STRCONC |prefix| |middle| '|(| |string2| @@ -684,14 +684,14 @@ (DEFUN |c05pbfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline {\\em Function ") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline {\\em Function ") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) ":} \\space{1}")) - (SPADLET |funct| + (setq |funct| (STRCONC "X[" (STRINGIMAGE |i|) '|] + 1|)) - (SPADLET |nam| + (setq |nam| (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -706,7 +706,7 @@ (DEFUN |c05pbfSolve,fb| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| @@ -721,7 +721,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -729,17 +729,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |xtol| (|htpLabelInputString| |htPage| '|xtol|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |xtol| (|htpLabelInputString| |htPage| '|xtol|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '9) (|c05pbfDefaultSolve| |htPage| |ifail| |xtol|)) ('T - (SPADLET |funcList| + (setq |funcList| (PROG (G166197) - (SPADLET G166197 NIL) + (setq G166197 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166197) @@ -747,15 +747,15 @@ (SETQ G166197 (APPEND G166197 (|c05pbfSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "of the solution vector {\\it x}: \\newline ")) - (SPADLET |middle| (CONS '|text| |middle|)) - (SPADLET |vecList| + (setq |middle| (CONS '|text| |middle|)) + (setq |vecList| (PROG (G166209) - (SPADLET G166209 NIL) + (setq G166209 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) @@ -764,15 +764,15 @@ (SETQ G166209 (CONS (|c05pbfSolve,fb| |i|) G166209)))))))) - (SPADLET |funcList| + (setq |funcList| (APPEND |funcList| (CONS |middle| |vecList|))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) |funcList|)) - (SPADLET |page| + (setq |page| (|htInitPage| "C05PBF - Solution of system of nonlinear equations using first derivatives" (|htpPropertyList| |htPage|))) @@ -843,8 +843,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '9) - (SPADLET |page| + (setq |n| '9) + (setq |page| (|htInitPage| "C05PBF - Solution of system of nonlinear equations using first derivatives" NIL)) @@ -941,36 +941,36 @@ |middle|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |xtol| (|htpProperty| |htPage| '|xtol|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |i| 1) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |xtol| (|htpProperty| |htPage| '|xtol|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |i| 1) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN (COND ((> (+ |n| 1) |i|) - (SPADLET |temp1| + (setq |temp1| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |temp1list| + (setq |temp1list| (CONS |temp1| |temp1list|))) - ('T (SPADLET |temp2| (ELT (CAR |y|) 1)) - (SPADLET |temp2list| + ('T (setq |temp2| (ELT (CAR |y|) 1)) + (setq |temp2list| (CONS |temp2| |temp2list|)))) - (SPADLET |y| (CDR |y|)) - (SPADLET |i| (+ |i| 1)))))) - (SPADLET |string1| (|bcwords2liststring| |temp1list|)) - (SPADLET |string2| (|bcwords2liststring| |temp2list|)) - (SPADLET |lwa| (QUOTIENT (TIMES |n| (+ |n| 13)) 2)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |i| (+ |i| 1)))))) + (setq |string1| (|bcwords2liststring| |temp1list|)) + (setq |string2| (|bcwords2liststring| |temp2list|)) + (setq |lwa| (QUOTIENT (TIMES |n| (+ |n| 13)) 2)) + (setq |prefix| (STRCONC '|c05pbf(| (STRINGIMAGE |n|) '|,| (STRINGIMAGE |n|))) - (SPADLET |middle| + (setq |middle| (STRCONC '|,| (STRINGIMAGE |lwa|) '|,[| |string1| '|],|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| |xtol| '|,| (STRINGIMAGE |ifail|) '|,|)) (|linkGen| diff --git a/src/interp/nag-c06.lisp.pamphlet b/src/interp/nag-c06.lisp.pamphlet index 758b86e..6d99ac0 100644 --- a/src/interp/nag-c06.lisp.pamphlet +++ b/src/interp/nag-c06.lisp.pamphlet @@ -105,8 +105,8 @@ (DEFUN |c06eafSolve,f| (|i|) (PROG (|prefix| |rnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") - (SPADLET |rnam| + (SEQ (setq |prefix| "\\newline \\tab{15} ") + (setq |rnam| (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -123,7 +123,7 @@ (declare (special |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -131,16 +131,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '7) (|c06eafDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166071) - (SPADLET G166071 NIL) + (setq G166071 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166071) @@ -148,11 +148,11 @@ (SETQ G166071 (APPEND G166071 (|c06eafSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| F (|Float|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06EAF - Single 1-D real discrete Fourier transform | (|htpPropertyList| |htPage|))) @@ -208,8 +208,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '7) - (SPADLET |page| + (setq |n| '7) + (setq |page| (|htInitPage| "C06EAF - Single 1-D real discrete Fourier transform " NIL)) @@ -260,18 +260,18 @@ (PROG (|n| |ifail| |alist| |left| |y| |reallist| |realstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| (STRCONC "c06eaf(" (STRINGIMAGE |n|) '|,[| |realstring| '|],| @@ -366,8 +366,8 @@ (DEFUN |c06ebfSolve,f| (|i|) (PROG (|prefix| |rnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") - (SPADLET |rnam| + (SEQ (setq |prefix| "\\newline \\tab{15} ") + (setq |rnam| (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -384,7 +384,7 @@ (declare (special |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -392,16 +392,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '7) (|c06ebfDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166131) - (SPADLET G166131 NIL) + (setq G166131 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166131) @@ -409,11 +409,11 @@ (SETQ G166131 (APPEND G166131 (|c06ebfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| F (|Float|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06EBF - Single 1-D real discrete Fourier transform | (|htpPropertyList| |htPage|))) @@ -467,8 +467,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '7) - (SPADLET |page| + (setq |n| '7) + (setq |page| (|htInitPage| "C06EBF - Single 1-D Hermitian discrete Fourier transform " NIL)) @@ -519,18 +519,18 @@ (PROG (|n| |ifail| |alist| |left| |y| |reallist| |realstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| (STRCONC "c06ebf(" (STRINGIMAGE |n|) '|,[| |realstring| '|],| @@ -627,12 +627,12 @@ (DEFUN |c06ecfSolve,f| (|i|) (PROG (|prefix| |post| |xnam| |ynam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |post| "\\tab{32} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |post| "\\tab{32} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -657,7 +657,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -665,16 +665,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '7) (|c06ecfDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166193) - (SPADLET G166193 NIL) + (setq G166193 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166193) @@ -682,7 +682,7 @@ (SETQ G166193 (APPEND G166193 (|c06ecfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -690,7 +690,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06ECF - Single 1-D complex discrete Fourier transform | (|htpPropertyList| |htPage|))) @@ -754,8 +754,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '7) - (SPADLET |page| + (setq |n| '7) + (setq |page| (|htInitPage| "C06ECF - Single 1-D complex discrete Fourier transform " (|htpPropertyList| |htPage|))) @@ -822,24 +822,24 @@ |realstring| |imagstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)) - (SPADLET |imaglist| + (setq |imaglist| (CONS |right| |imaglist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) - (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) + (setq |imagstring| (|bcwords2liststring| |imaglist|)) (|linkGen| (STRCONC "c06ecf(" (STRINGIMAGE |n|) '|,[| |realstring| '|],[| |imagstring| '|],| @@ -955,12 +955,12 @@ (DEFUN |c06ekfSolve,f| (|i|) (PROG (|prefix| |post| |xnam| |ynam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |post| "\\tab{34} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |post| "\\tab{34} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -986,7 +986,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -994,19 +994,19 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) - (SPADLET |type| (|htpButtonValue| |htPage| '|job|)) - (SPADLET |job| + (setq |type| (|htpButtonValue| |htPage| '|job|)) + (setq |job| (COND ((BOOT-EQUAL |type| '|conv|) '1) ('T '2))) (COND ((BOOT-EQUAL |n| '9) (|c06ekfDefaultSolve| |htPage| |job| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166263) - (SPADLET G166263 NIL) + (setq G166263 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166263) @@ -1014,7 +1014,7 @@ (SETQ G166263 (APPEND G166263 (|c06ekfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -1022,7 +1022,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06EKF - Single 1-D complex discrete Fourier transform | (|htpPropertyList| |htPage|))) @@ -1097,8 +1097,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '9) - (SPADLET |page| + (setq |n| '9) + (setq |page| (|htInitPage| "C06EKF - Circular convolution or correlation of two real vectors " (|htpPropertyList| |htPage|))) @@ -1167,25 +1167,25 @@ |imaglist| |realstring| |imagstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |job| (|htpProperty| |htPage| '|job|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |job| (|htpProperty| |htPage| '|job|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)) - (SPADLET |imaglist| + (setq |imaglist| (CONS |right| |imaglist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) - (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) + (setq |imagstring| (|bcwords2liststring| |imaglist|)) (|linkGen| (STRCONC "c06ekf(" (STRINGIMAGE |job|) '|,| (STRINGIMAGE |n|) '|,[| |realstring| @@ -1322,7 +1322,7 @@ (DEFUN |c06fpfSolve,g| (|i| |j|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "r" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1335,24 +1335,24 @@ (DEFUN |c06fpfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166334) - (SPADLET G166334 NIL) + (setq G166334 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166334) (SEQ (EXIT (SETQ G166334 (APPEND G166334 (|c06fpfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |c06fpfSolve,h| (|k|) (PROG (|prefix| |trignam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |trignam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |trignam| (INTERN (STRCONC "t" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -1370,7 +1370,7 @@ (declare (special |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1378,7 +1378,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1386,22 +1386,22 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |call| (|htpButtonValue| |htPage| '|init|)) - (SPADLET |init| + (setq |call| (|htpButtonValue| |htPage| '|init|)) + (setq |init| (COND ((BOOT-EQUAL |call| '|i|) "i") ((BOOT-EQUAL |call| '|s|) "s") ('T "r"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |n| '6) (BOOT-EQUAL |m| '3)) (|c06fpfDefaultSolve| |htPage| |init| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166358) - (SPADLET G166358 NIL) + (setq G166358 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166358) @@ -1409,9 +1409,9 @@ (SETQ G166358 (APPEND G166358 (|c06fpfSolve,f| |i| |m|))))))))) - (SPADLET |trigList| + (setq |trigList| (PROG (G166366) - (SPADLET G166366 NIL) + (setq G166366 NIL) (RETURN (DO ((G166371 (TIMES 2 |n|)) (|k| 1 (QSADD1 |k|))) @@ -1420,20 +1420,20 @@ (SETQ G166366 (APPEND G166366 (|c06fpfSolve,h| |k|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Trigonometric coefficients ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|(not required if initial call) {\\it TRIG}: |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) - (SPADLET |trigList| + (setq |trigList| (CONS (CONS '|text| |prefix|) |trigList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| F (|Float|))) (APPEND |matList| |trigList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06FPF - Multiple 1-D real discrete Fourier transform | (|htpPropertyList| |htPage|))) @@ -1526,9 +1526,9 @@ (PROG (|n| |m| |page|) (RETURN (PROGN - (SPADLET |n| '6) - (SPADLET |m| '3) - (SPADLET |page| + (setq |n| '6) + (setq |m| '3) + (setq |page| (|htInitPage| "C06FPF - Multiple 1-D real discrete Fourier transform " NIL)) @@ -1627,32 +1627,32 @@ |y| |xlist| |xstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |init| (|htpProperty| |htPage| '|init|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |init| (|htpProperty| |htPage| '|init|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((G166410 (TIMES 2 |n|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166410) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |triglist| + (setq |y| (CDR |y|)) + (setq |triglist| (CONS |left| |triglist|)))))) - (SPADLET |trigstring| (|bcwords2liststring| |triglist|)) + (setq |trigstring| (|bcwords2liststring| |triglist|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |prefix| (STRCONC "c06fpf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, "|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |init| '|",[| |xstring| '|],[| |trigstring| '|],|)) (|linkGen| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|))))))) @@ -1787,7 +1787,7 @@ (DEFUN |c06fqfSolve,g| (|i| |j|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "r" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1800,24 +1800,24 @@ (DEFUN |c06fqfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166457) - (SPADLET G166457 NIL) + (setq G166457 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166457) (SEQ (EXIT (SETQ G166457 (APPEND G166457 (|c06fqfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |c06fqfSolve,h| (|k|) (PROG (|prefix| |trignam|) (RETURN - (SEQ (SPADLET |prefix| '|\\newline \\tab{2} |) - (SPADLET |trignam| + (SEQ (setq |prefix| '|\\newline \\tab{2} |) + (setq |trignam| (INTERN (STRCONC "t" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -1835,7 +1835,7 @@ (declare (special |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1843,7 +1843,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1851,22 +1851,22 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |call| (|htpButtonValue| |htPage| '|init|)) - (SPADLET |init| + (setq |call| (|htpButtonValue| |htPage| '|init|)) + (setq |init| (COND ((BOOT-EQUAL |call| '|i|) "i") ((BOOT-EQUAL |call| '|s|) "s") ('T "r"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |n| '6) (BOOT-EQUAL |m| '3)) (|c06fqfDefaultSolve| |htPage| |init| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166481) - (SPADLET G166481 NIL) + (setq G166481 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166481) @@ -1874,9 +1874,9 @@ (SETQ G166481 (APPEND G166481 (|c06fqfSolve,f| |i| |m|))))))))) - (SPADLET |trigList| + (setq |trigList| (PROG (G166489) - (SPADLET G166489 NIL) + (setq G166489 NIL) (RETURN (DO ((G166494 (TIMES 2 |n|)) (|k| 1 (QSADD1 |k|))) @@ -1885,20 +1885,20 @@ (SETQ G166489 (APPEND G166489 (|c06fqfSolve,h| |k|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Trignometric coefficients ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|(not required if initial call) {\\it TRIG}: |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) - (SPADLET |trigList| + (setq |trigList| (CONS (CONS '|text| |prefix|) |trigList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| F (|Float|))) (APPEND |matList| |trigList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06FQF - Multiple 1-D Hermitian discrete Fourier transform | (|htpPropertyList| |htPage|))) @@ -1991,9 +1991,9 @@ (PROG (|n| |m| |page|) (RETURN (PROGN - (SPADLET |n| '6) - (SPADLET |m| '3) - (SPADLET |page| + (setq |n| '6) + (setq |m| '3) + (setq |page| (|htInitPage| "C06FQF - Multiple 1-D Hermitian discrete Fourier transform " NIL)) @@ -2092,32 +2092,32 @@ |y| |xlist| |xstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |init| (|htpProperty| |htPage| '|init|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |init| (|htpProperty| |htPage| '|init|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((G166533 (TIMES 2 |n|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166533) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |triglist| + (setq |y| (CDR |y|)) + (setq |triglist| (CONS |left| |triglist|)))))) - (SPADLET |trigstring| (|bcwords2liststring| |triglist|)) + (setq |trigstring| (|bcwords2liststring| |triglist|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |prefix| (STRCONC "c06fqf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, "|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |init| '|",[| |xstring| '|],[| |trigstring| '|],|)) (|linkGen| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|))))))) @@ -2265,7 +2265,7 @@ (DEFUN |c06frfSolve,gx| (|i| |j|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2278,23 +2278,23 @@ (DEFUN |c06frfSolve,fx| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166580) - (SPADLET G166580 NIL) + (setq G166580 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166580) (SEQ (EXIT (SETQ G166580 (APPEND G166580 (|c06frfSolve,gx| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |c06frfSolve,gy| (|i| |j|) (PROG (|ynam|) (RETURN - (SEQ (SPADLET |ynam| + (SEQ (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2307,24 +2307,24 @@ (DEFUN |c06frfSolve,fy| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166603) - (SPADLET G166603 NIL) + (setq G166603 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166603) (SEQ (EXIT (SETQ G166603 (APPEND G166603 (|c06frfSolve,gy| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |c06frfSolve,h| (|k|) (PROG (|prefix| |trignam|) (RETURN - (SEQ (SPADLET |prefix| '|\\newline \\tab{2} |) - (SPADLET |trignam| + (SEQ (setq |prefix| '|\\newline \\tab{2} |) + (setq |trignam| (INTERN (STRCONC "t" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -2342,7 +2342,7 @@ (declare (special |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2350,7 +2350,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2358,22 +2358,22 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |call| (|htpButtonValue| |htPage| '|init|)) - (SPADLET |init| + (setq |call| (|htpButtonValue| |htPage| '|init|)) + (setq |init| (COND ((BOOT-EQUAL |call| '|i|) "i") ((BOOT-EQUAL |call| '|s|) "s") ('T "r"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |n| '6) (BOOT-EQUAL |m| '3)) (|c06frfDefaultSolve| |htPage| |init| |ifail|)) ('T - (SPADLET |xList| + (setq |xList| (PROG (G166627) - (SPADLET G166627 NIL) + (setq G166627 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166627) @@ -2381,9 +2381,9 @@ (SETQ G166627 (APPEND G166627 (|c06frfSolve,fx| |i| |m|))))))))) - (SPADLET |yList| + (setq |yList| (PROG (G166635) - (SPADLET G166635 NIL) + (setq G166635 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166635) @@ -2391,22 +2391,22 @@ (SETQ G166635 (APPEND G166635 (|c06frfSolve,fy| |i| |m|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Enter the imaginary parts ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|of each sequence to be transformed, {\\it y}. |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|(Each column to contain the imaginary parts |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|of a sequence.) \\newline \\tab{2} |)) - (SPADLET |yList| + (setq |yList| (CONS (CONS '|text| |prefix|) |yList|)) - (SPADLET |trigList| + (setq |trigList| (PROG (G166643) - (SPADLET G166643 NIL) + (setq G166643 NIL) (RETURN (DO ((G166648 (TIMES 2 |n|)) (|k| 1 (QSADD1 |k|))) @@ -2415,21 +2415,21 @@ (SETQ G166643 (APPEND G166643 (|c06frfSolve,h| |k|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Trignometric coefficients ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|(not required if initial call) {\\it TRIG}: |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) - (SPADLET |trigList| + (setq |trigList| (CONS (CONS '|text| |prefix|) |trigList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| F (|Float|))) (APPEND |xList| (APPEND |yList| |trigList|)))) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06FRF - Multiple 1-D real discrete Fourier transform | (|htpPropertyList| |htPage|))) @@ -2552,9 +2552,9 @@ (PROG (|n| |m| |page|) (RETURN (PROGN - (SPADLET |n| '6) - (SPADLET |m| '3) - (SPADLET |page| + (setq |n| '6) + (setq |m| '3) + (setq |page| (|htInitPage| "C06FRF - Multiple 1-D real discrete Fourier transform " NIL)) @@ -2689,40 +2689,40 @@ |ystring| |left| |y| |xlist| |xstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |init| (|htpProperty| |htPage| '|init|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |init| (|htpProperty| |htPage| '|init|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((G166695 (TIMES 2 |n|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166695) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |triglist| + (setq |y| (CDR |y|)) + (setq |triglist| (CONS |left| |triglist|)))))) - (SPADLET |trigstring| (|bcwords2liststring| |triglist|)) + (setq |trigstring| (|bcwords2liststring| |triglist|)) (DO ((G166705 (TIMES |m| |n|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166705) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |ylist| (CONS |left| |ylist|)))))) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) + (setq |y| (CDR |y|)) + (setq |ylist| (CONS |left| |ylist|)))))) + (setq |ystring| (|bcwords2liststring| |ylist|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |prefix| (STRCONC "c06frf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, "|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |init| '|",[| |xstring| '|],[| |ystring| '|],[|)) (|linkGen| @@ -2884,7 +2884,7 @@ (DEFUN |c06fufSolve,gx| (|i| |j|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2897,23 +2897,23 @@ (DEFUN |c06fufSolve,fx| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166756) - (SPADLET G166756 NIL) + (setq G166756 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166756) (SEQ (EXIT (SETQ G166756 (APPEND G166756 (|c06fufSolve,gx| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |c06fufSolve,gy| (|i| |j|) (PROG (|ynam|) (RETURN - (SEQ (SPADLET |ynam| + (SEQ (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2926,24 +2926,24 @@ (DEFUN |c06fufSolve,fy| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166779) - (SPADLET G166779 NIL) + (setq G166779 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166779) (SEQ (EXIT (SETQ G166779 (APPEND G166779 (|c06fufSolve,gy| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |c06fufSolve,hm| (|k|) (PROG (|prefix| |trignam|) (RETURN - (SEQ (SPADLET |prefix| '|\\newline \\tab{2} |) - (SPADLET |trignam| + (SEQ (setq |prefix| '|\\newline \\tab{2} |) + (setq |trignam| (INTERN (STRCONC "tm" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -2958,8 +2958,8 @@ (DEFUN |c06fufSolve,hn| (|k|) (PROG (|prefix| |trignam|) (RETURN - (SEQ (SPADLET |prefix| '|\\newline \\tab{2} |) - (SPADLET |trignam| + (SEQ (setq |prefix| '|\\newline \\tab{2} |) + (setq |trignam| (INTERN (STRCONC "tn" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -2977,7 +2977,7 @@ (declare (special |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2985,7 +2985,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2993,22 +2993,22 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |call| (|htpButtonValue| |htPage| '|init|)) - (SPADLET |init| + (setq |call| (|htpButtonValue| |htPage| '|init|)) + (setq |init| (COND ((BOOT-EQUAL |call| '|i|) "i") ((BOOT-EQUAL |call| '|s|) "s") ('T "r"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |n| '5) (BOOT-EQUAL |m| '3)) (|c06fufDefaultSolve| |htPage| |init| |ifail|)) ('T - (SPADLET |xList| + (setq |xList| (PROG (G166810) - (SPADLET G166810 NIL) + (setq G166810 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166810) @@ -3016,9 +3016,9 @@ (SETQ G166810 (APPEND G166810 (|c06fufSolve,fx| |i| |m|))))))))) - (SPADLET |yList| + (setq |yList| (PROG (G166818) - (SPADLET G166818 NIL) + (setq G166818 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166818) @@ -3026,22 +3026,22 @@ (SETQ G166818 (APPEND G166818 (|c06fufSolve,fy| |i| |m|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Enter the imaginary parts ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|of each sequence to be transformed, {\\it y}. |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|(Each column to contain the imaginary parts |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|of a sequence.) \\newline \\tab{2} |)) - (SPADLET |yList| + (setq |yList| (CONS (CONS '|text| |prefix|) |yList|)) - (SPADLET |trigmList| + (setq |trigmList| (PROG (G166826) - (SPADLET G166826 NIL) + (setq G166826 NIL) (RETURN (DO ((G166831 (TIMES 2 |m|)) (|k| 1 (QSADD1 |k|))) @@ -3050,18 +3050,18 @@ (SETQ G166826 (APPEND G166826 (|c06fufSolve,hm| |k|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Trignometric coefficients ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|(not required if initial call) {\\it TRIGM}: |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) - (SPADLET |trigmList| + (setq |trigmList| (CONS (CONS '|text| |prefix|) |trigmList|)) - (SPADLET |trignList| + (setq |trignList| (PROG (G166835) - (SPADLET G166835 NIL) + (setq G166835 NIL) (RETURN (DO ((G166840 (TIMES 2 |n|)) (|k| 1 (QSADD1 |k|))) @@ -3070,20 +3070,20 @@ (SETQ G166835 (APPEND G166835 (|c06fufSolve,hn| |k|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it TRIGN}: ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) - (SPADLET |trignList| + (setq |trignList| (CONS (CONS '|text| |prefix|) |trignList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| F (|Float|))) (APPEND |xList| (APPEND |yList| (APPEND |trigmList| |trignList|))))) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06FUF - 2-D complex discrete Fourier transform | (|htpPropertyList| |htPage|))) @@ -3209,9 +3209,9 @@ (PROG (|n| |m| |page|) (RETURN (PROGN - (SPADLET |n| '5) - (SPADLET |m| '3) - (SPADLET |page| + (setq |n| '5) + (setq |m| '3) + (setq |page| (|htInitPage| "C06FUF - 2-D real discrete Fourier transform " NIL)) @@ -3354,49 +3354,49 @@ |xlist| |xstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |init| (|htpProperty| |htPage| '|init|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |init| (|htpProperty| |htPage| '|init|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((G166893 (TIMES 2 |n|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166893) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |trignlist| + (setq |y| (CDR |y|)) + (setq |trignlist| (CONS |left| |trignlist|)))))) - (SPADLET |trignstring| (|bcwords2liststring| |trignlist|)) + (setq |trignstring| (|bcwords2liststring| |trignlist|)) (DO ((G166903 (TIMES 2 |m|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166903) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |trigmlist| + (setq |y| (CDR |y|)) + (setq |trigmlist| (CONS |left| |trigmlist|)))))) - (SPADLET |trigmstring| (|bcwords2liststring| |trigmlist|)) + (setq |trigmstring| (|bcwords2liststring| |trigmlist|)) (DO ((G166913 (TIMES |m| |n|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166913) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |ylist| (CONS |left| |ylist|)))))) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) + (setq |y| (CDR |y|)) + (setq |ylist| (CONS |left| |ylist|)))))) + (setq |ystring| (|bcwords2liststring| |ylist|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |prefix| (STRCONC "c06fuf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, "|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |init| '|",[| |xstring| '|],[| |ystring| '|],[| |trigmstring|)) (|linkGen| @@ -3493,8 +3493,8 @@ (DEFUN |c06gbfSolve,f| (|i|) (PROG (|prefix| |rnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") - (SPADLET |rnam| + (SEQ (setq |prefix| "\\newline \\tab{15} ") + (setq |rnam| (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -3511,7 +3511,7 @@ (declare (special |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3519,16 +3519,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '7) (|c06gbfDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166967) - (SPADLET G166967 NIL) + (setq G166967 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166967) @@ -3536,11 +3536,11 @@ (SETQ G166967 (APPEND G166967 (|c06gbfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| F (|Float|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06GBF - Complex conjugate of a Hermitian sequence | (|htpPropertyList| |htPage|))) @@ -3595,8 +3595,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '7) - (SPADLET |page| + (setq |n| '7) + (setq |page| (|htInitPage| "C06GBF - Complex conjugate of a Hermitian sequence " NIL)) @@ -3648,18 +3648,18 @@ (PROG (|n| |ifail| |alist| |left| |y| |reallist| |realstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| (STRCONC "c06gbf(" (STRINGIMAGE |n|) '|,[| |realstring| '|],| @@ -3757,8 +3757,8 @@ (DEFUN |c06gcfSolve,f| (|i|) (PROG (|prefix| |rnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") - (SPADLET |rnam| + (SEQ (setq |prefix| "\\newline \\tab{15} ") + (setq |rnam| (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -3775,7 +3775,7 @@ (declare (special |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3783,16 +3783,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '7) (|c06gcfDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G167027) - (SPADLET G167027 NIL) + (setq G167027 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G167027) @@ -3800,11 +3800,11 @@ (SETQ G167027 (APPEND G167027 (|c06gcfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| F (|Float|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06GCF - Complex conjugate of a Hermitian sequence | (|htpPropertyList| |htPage|))) @@ -3858,8 +3858,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '7) - (SPADLET |page| + (setq |n| '7) + (setq |page| (|htInitPage| "C06GCF - Complex conjugate of complex sequence " NIL)) @@ -3908,18 +3908,18 @@ (PROG (|n| |ifail| |alist| |left| |y| |reallist| |realstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| (STRCONC "c06gcf(" (STRINGIMAGE |n|) '|,[| |realstring| '|],| @@ -4039,7 +4039,7 @@ (DEFUN |c06gqfSolve,f| (|i| |j|) (PROG (|rnam|) (RETURN - (SEQ (SPADLET |rnam| + (SEQ (setq |rnam| (INTERN (STRCONC "r" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4052,17 +4052,17 @@ (DEFUN |c06gqfSolve,g| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167087) - (SPADLET G167087 NIL) + (setq G167087 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G167087) (SEQ (EXIT (SETQ G167087 (APPEND G167087 (|c06gqfSolve,f| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |c06gqfSolve| (|htPage|) @@ -4070,7 +4070,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4078,7 +4078,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4086,16 +4086,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '3) (BOOT-EQUAL |n| '6)) (|c06gqfDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |newList| + (setq |newList| (PROG (G167104) - (SPADLET G167104 NIL) + (setq G167104 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G167104) @@ -4103,7 +4103,7 @@ (SETQ G167104 (APPEND G167104 (|c06gqfSolve,g| |i| |m|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -4111,7 +4111,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |newList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06GQF - Complex conjugate of multiple Hermitian sequences | (|htpPropertyList| |htPage|))) @@ -4177,9 +4177,9 @@ (PROG (|m| |n| |page|) (RETURN (PROGN - (SPADLET |m| '3) - (SPADLET |n| '6) - (SPADLET |page| + (setq |m| '3) + (setq |n| '6) + (setq |page| (|htInitPage| "C06GQF - Complex conjugate of multiple Hermitian sequences " (|htpPropertyList| |htPage|))) @@ -4240,19 +4240,19 @@ (PROG (|n| |m| |ifail| |alist| |right| |y| |reallist| |realstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |right| |reallist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| (STRCONC "c06gqf(" (STRINGIMAGE |m|) '|,| (STRINGIMAGE |n|) '|,[| |realstring| '|],| @@ -4374,7 +4374,7 @@ (DEFUN |c06gsfSolve,f| (|i| |j|) (PROG (|rnam|) (RETURN - (SEQ (SPADLET |rnam| + (SEQ (setq |rnam| (INTERN (STRCONC "r" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4387,17 +4387,17 @@ (DEFUN |c06gsfSolve,g| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167167) - (SPADLET G167167 NIL) + (setq G167167 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G167167) (SEQ (EXIT (SETQ G167167 (APPEND G167167 (|c06gsfSolve,f| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |c06gsfSolve| (|htPage|) @@ -4405,7 +4405,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4413,7 +4413,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4421,16 +4421,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '3) (BOOT-EQUAL |n| '6)) (|c06gsfDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |newList| + (setq |newList| (PROG (G167184) - (SPADLET G167184 NIL) + (setq G167184 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G167184) @@ -4438,7 +4438,7 @@ (SETQ G167184 (APPEND G167184 (|c06gsfSolve,g| |i| |m|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -4446,7 +4446,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |newList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|C06GSF - Convert Hermitian sequences to general complex sequences | (|htpPropertyList| |htPage|))) @@ -4512,9 +4512,9 @@ (PROG (|m| |n| |page|) (RETURN (PROGN - (SPADLET |m| '3) - (SPADLET |n| '6) - (SPADLET |page| + (setq |m| '3) + (setq |n| '6) + (setq |page| (|htInitPage| "C06GSF - Convert Hermitian sequences to general complex sequences " (|htpPropertyList| |htPage|))) @@ -4575,19 +4575,19 @@ (PROG (|n| |m| |ifail| |alist| |right| |y| |reallist| |realstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |right| |reallist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| (STRCONC "c06gsf(" (STRINGIMAGE |m|) '|,| (STRINGIMAGE |n|) '|,[| |realstring| '|],| diff --git a/src/interp/nag-d01.lisp.pamphlet b/src/interp/nag-d01.lisp.pamphlet index ce98f07..377d85b 100644 --- a/src/interp/nag-d01.lisp.pamphlet +++ b/src/interp/nag-d01.lisp.pamphlet @@ -151,7 +151,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |lw| + (setq |lw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -159,25 +159,25 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lw|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) - (SPADLET |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) + (setq |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |express| + (setq |express| (|htpLabelInputString| |htPage| '|expression|)) - (SPADLET |liw| (QUOTIENT |lw| 4)) - (SPADLET |prefix| + (setq |liw| (QUOTIENT |lw| 4)) + (setq |prefix| (STRCONC '|d01ajf(| |a| '| ,| |b| '| ,| |epsabs| '| ,| |epsrel| '| ,| (STRINGIMAGE |lw|))) - (SPADLET |middle| + (setq |middle| (STRCONC '| ,| (STRINGIMAGE |liw|) '| ,| (STRINGIMAGE |ifail|) '| ,|)) - (SPADLET |end| + (setq |end| (STRCONC '|(| |express| '|::Expression Float) :: ASP1(F))|)) (|linkGen| (STRCONC |prefix| |middle| |end|)))))) @@ -319,7 +319,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |lw| + (setq |lw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -327,25 +327,25 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lw|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) - (SPADLET |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) + (setq |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |express| + (setq |express| (|htpLabelInputString| |htPage| '|expression|)) - (SPADLET |liw| (QUOTIENT |lw| 4)) - (SPADLET |prefix| + (setq |liw| (QUOTIENT |lw| 4)) + (setq |prefix| (STRCONC '|d01akf(| |a| '| ,| |b| '| ,| |epsabs| '| ,| |epsrel| '| ,| (STRINGIMAGE |lw|))) - (SPADLET |middle| + (setq |middle| (STRCONC '| ,| (STRINGIMAGE |liw|) '| ,| (STRINGIMAGE |ifail|) '| ,|)) - (SPADLET |end| + (setq |end| (STRCONC '|(| |express| '|::Expression Float) :: ASP1(F))|)) (|linkGen| (STRCONC |prefix| |middle| |end|)))))) @@ -517,7 +517,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |lw| + (setq |lw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -525,9 +525,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lw|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |npts| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |npts| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -535,28 +535,28 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|npts|))))) - (SPADLET |points| (|htpLabelInputString| |htPage| '|points|)) - (SPADLET |points| (STRCONC "[[" |points| ']])) - (SPADLET |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) - (SPADLET |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |points| (|htpLabelInputString| |htPage| '|points|)) + (setq |points| (STRCONC "[[" |points| ']])) + (setq |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) + (setq |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |express| + (setq |express| (|htpLabelInputString| |htPage| '|expression|)) - (SPADLET |liw| (QUOTIENT |lw| 2)) - (SPADLET |prefix| + (setq |liw| (QUOTIENT |lw| 2)) + (setq |prefix| (STRCONC "d01alf(" |a| '| ,| |b| '| ,| (STRINGIMAGE |npts|) '|,| |points| '|,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |epsabs| '| ,| |epsrel| '| ,| (STRINGIMAGE |lw|))) - (SPADLET |middle| + (setq |middle| (STRCONC " ," (STRINGIMAGE |liw|) '| ,| (STRINGIMAGE |ifail|) '| ,|)) - (SPADLET |end| + (setq |end| (STRCONC "(" |express| '|::Expression Float) :: ASP1(F))|)) (|linkGen| (STRCONC |prefix| |middle| |end|)))))) @@ -715,7 +715,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |lw| + (setq |lw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -723,35 +723,35 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lw|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |infinity| (|htpButtonValue| |htPage| '|inf|)) - (SPADLET |inf| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |infinity| (|htpButtonValue| |htPage| '|inf|)) + (setq |inf| (COND ((BOOT-EQUAL |infinity| '|plus|) 1) ((BOOT-EQUAL |infinity| '|minus|) (SPADDIFFERENCE 1)) ('T 2))) - (SPADLET |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) - (SPADLET |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) + (setq |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |express| + (setq |express| (|htpLabelInputString| |htPage| '|expression|)) - (SPADLET |liw| (QUOTIENT |lw| 4)) - (SPADLET |prefix| + (setq |liw| (QUOTIENT |lw| 4)) + (setq |prefix| (STRCONC "d01amf(" |a| '| ,| (STRINGIMAGE |inf|) '| ,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |epsabs| '| ,| |epsrel| '| ,| (STRINGIMAGE |lw|))) - (SPADLET |middle| + (setq |middle| (STRCONC " ," (STRINGIMAGE |liw|) '| ,| (STRINGIMAGE |ifail|) '| ,|)) - (SPADLET |end| + (setq |end| (STRCONC "(" |express| '|::Expression Float) :: ASP1(F))|)) (|linkGen| (STRCONC |prefix| |middle| |end|)))))) @@ -917,7 +917,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |lw| + (setq |lw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -925,29 +925,29 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lw|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) - (SPADLET |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) - (SPADLET |omega| (|htpLabelInputString| |htPage| '|omega|)) - (SPADLET |type| (|htpButtonValue| |htPage| '|key|)) - (SPADLET |key| (COND ((BOOT-EQUAL |type| '|cos|) 1) ('T 2))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) + (setq |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) + (setq |omega| (|htpLabelInputString| |htPage| '|omega|)) + (setq |type| (|htpButtonValue| |htPage| '|key|)) + (setq |key| (COND ((BOOT-EQUAL |type| '|cos|) 1) ('T 2))) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |express| + (setq |express| (|htpLabelInputString| |htPage| '|expression|)) - (SPADLET |liw| (QUOTIENT |lw| 4)) - (SPADLET |prefix| + (setq |liw| (QUOTIENT |lw| 4)) + (setq |prefix| (STRCONC '|d01anf(| |a| '| ,| |b| '| ,| |omega| '| ,| (STRINGIMAGE |key|) '| ,| |epsabs| '| ,| |epsrel| '| ,| (STRINGIMAGE |lw|))) - (SPADLET |middle| + (setq |middle| (STRCONC '| ,| (STRINGIMAGE |liw|) '| ,| (STRINGIMAGE |ifail|) '| ,|)) - (SPADLET |end| + (setq |end| (STRCONC '|(| |express| '|::Expression Float) :: ASP1(G))|)) (|linkGen| (STRCONC |prefix| |middle| |end|)))))) @@ -1139,9 +1139,9 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |express| + (setq |express| (|htpLabelInputString| |htPage| '|expression|)) - (SPADLET |lw| + (setq |lw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1149,35 +1149,35 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lw|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |alpha| (|htpLabelInputString| |htPage| '|alpha|)) - (SPADLET |beta| (|htpLabelInputString| |htPage| '|beta|)) - (SPADLET |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) - (SPADLET |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) - (SPADLET |type| (|htpButtonValue| |htPage| '|key|)) - (SPADLET |key| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |alpha| (|htpLabelInputString| |htPage| '|alpha|)) + (setq |beta| (|htpLabelInputString| |htPage| '|beta|)) + (setq |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) + (setq |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) + (setq |type| (|htpButtonValue| |htPage| '|key|)) + (setq |key| (COND ((BOOT-EQUAL |type| '|kone|) 1) ((BOOT-EQUAL |type| '|ktwo|) 2) ((BOOT-EQUAL |type| '|kthree|) 3) ('T 4))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |liw| (QUOTIENT |lw| 4)) - (SPADLET |prefix| + (setq |liw| (QUOTIENT |lw| 4)) + (setq |prefix| (STRCONC '|d01apf(| |a| '| ,| |b| '| ,| |alpha| '| ,| |beta| '| ,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |key|) '| ,| |epsabs| '| ,| |epsrel| '| ,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lw|) '| ,| (STRINGIMAGE |liw|) '| ,|)) - (SPADLET |end| + (setq |end| (STRCONC '|(| |express| '|::Expression Float) :: ASP1(G))|)) (|linkGen| @@ -1330,9 +1330,9 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |express| + (setq |express| (|htpLabelInputString| |htPage| '|expression|)) - (SPADLET |lw| + (setq |lw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1340,24 +1340,24 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lw|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |c| (|htpLabelInputString| |htPage| '|c|)) - (SPADLET |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) - (SPADLET |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |c| (|htpLabelInputString| |htPage| '|c|)) + (setq |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) + (setq |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |liw| (QUOTIENT |lw| 4)) - (SPADLET |prefix| + (setq |liw| (QUOTIENT |lw| 4)) + (setq |prefix| (STRCONC '|d01aqf(| |a| '| ,| |b| '| ,| |c| '| ,| |epsabs| '| ,| |epsrel| '| ,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lw|) '| ,| (STRINGIMAGE |liw|) '| ,|)) - (SPADLET |end| + (setq |end| (STRCONC '|((| |express| '|)::Expression Float) :: ASP1(G))|)) (|linkGen| @@ -1528,7 +1528,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |lw| + (setq |lw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1536,7 +1536,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lw|))))) - (SPADLET |limlst| + (setq |limlst| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1544,29 +1544,29 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|limlst|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) - (SPADLET |omega| (|htpLabelInputString| |htPage| '|omega|)) - (SPADLET |type| (|htpButtonValue| |htPage| '|key|)) - (SPADLET |key| (COND ((BOOT-EQUAL |type| '|cos|) 1) ('T 2))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) + (setq |omega| (|htpLabelInputString| |htPage| '|omega|)) + (setq |type| (|htpButtonValue| |htPage| '|key|)) + (setq |key| (COND ((BOOT-EQUAL |type| '|cos|) 1) ('T 2))) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |express| + (setq |express| (|htpLabelInputString| |htPage| '|expression|)) - (SPADLET |liw| (QUOTIENT |lw| 2)) - (SPADLET |prefix| + (setq |liw| (QUOTIENT |lw| 2)) + (setq |prefix| (STRCONC '|d01asf(| |a| '| ,| |omega| '| ,| (STRINGIMAGE |key|) '| ,| |epsabs|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '| ,| (STRINGIMAGE |limlst|) '| ,| (STRINGIMAGE |lw|))) - (SPADLET |middle| + (setq |middle| (STRCONC '| ,| (STRINGIMAGE |liw|) '| ,| (STRINGIMAGE |ifail|) '| ,|)) - (SPADLET |end| + (setq |end| (STRCONC '|(| |express| '|::Expression Float) :: ASP1(G))|)) (|linkGen| (STRCONC |prefix| |middle| |end|)))))) @@ -1667,12 +1667,12 @@ (DEFUN |d01gafSolve,f| (|i|) (PROG (|prefix| |post| |xnam| |ynam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |post| "\\tab{40} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |post| "\\tab{40} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -1697,7 +1697,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1705,16 +1705,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '21) (|d01gafDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166274) - (SPADLET G166274 NIL) + (setq G166274 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166274) @@ -1722,7 +1722,7 @@ (SETQ G166274 (APPEND G166274 (|d01gafSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -1730,7 +1730,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|D01GAF - 1-D quadrature, integration of function defined by data values| (|htpPropertyList| |htPage|))) @@ -1854,8 +1854,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '21) - (SPADLET |page| + (setq |n| '21) + (setq |page| (|htInitPage| "D01GAF - 1-D quadrature, integration of function defined by data values" (|htpPropertyList| |htPage|))) @@ -1962,24 +1962,24 @@ |realstring| |imagstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)) - (SPADLET |imaglist| + (setq |imaglist| (CONS |right| |imaglist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) - (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) + (setq |imagstring| (|bcwords2liststring| |imaglist|)) (|linkGen| (STRCONC "d01gaf([" |realstring| '|],[| |imagstring| '|],| (STRINGIMAGE |n|) '|,| @@ -2161,12 +2161,12 @@ (DEFUN |d01fcfSolve,f| (|i|) (PROG (|prefix| |post| |rnam| |inam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |post| "\\tab{32} ") - (SPADLET |rnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |post| "\\tab{32} ") + (setq |rnam| (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) - (SPADLET |inam| + (setq |inam| (INTERN (STRCONC "b" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -2192,7 +2192,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |ndim| + (setq |ndim| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2201,9 +2201,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ndim|))))) - (SPADLET |expression| + (setq |expression| (|htpLabelInputString| |htPage| '|expression|)) - (SPADLET |minpts| + (setq |minpts| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2212,7 +2212,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|minpts|))))) - (SPADLET |maxpts| + (setq |maxpts| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2221,8 +2221,8 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|maxpts|))))) - (SPADLET |eps| (|htpLabelInputString| |htPage| '|eps|)) - (SPADLET |lenwrk| + (setq |eps| (|htpLabelInputString| |htPage| '|eps|)) + (setq |lenwrk| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2231,17 +2231,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lenwrk|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |ndim| '4) (|d01fcfDefaultSolve| |htPage| |minpts| |maxpts| |eps| |lenwrk| |expression| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166346) - (SPADLET G166346 NIL) + (setq G166346 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ndim|) G166346) @@ -2249,14 +2249,14 @@ (SETQ G166346 (APPEND G166346 (|d01fcfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) (|isDomain| S (|String|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| "D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle" NIL)) @@ -2324,8 +2324,8 @@ (PROG (|ndim| |page|) (RETURN (PROGN - (SPADLET |ndim| '4) - (SPADLET |page| + (setq |ndim| '4) + (setq |page| (|htInitPage| "D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle" NIL)) @@ -2393,38 +2393,38 @@ |astring| |bstring| |prefix| |middle| |end|) (RETURN (SEQ (PROGN - (SPADLET |ndim| (|htpProperty| |htPage| '|ndim|)) - (SPADLET |minpts| (|htpProperty| |htPage| '|minpts|)) - (SPADLET |maxpts| (|htpProperty| |htPage| '|maxpts|)) - (SPADLET |eps| (|htpProperty| |htPage| '|eps|)) - (SPADLET |lenwrk| (|htpProperty| |htPage| '|lenwrk|)) - (SPADLET |expression| + (setq |ndim| (|htpProperty| |htPage| '|ndim|)) + (setq |minpts| (|htpProperty| |htPage| '|minpts|)) + (setq |maxpts| (|htpProperty| |htPage| '|maxpts|)) + (setq |eps| (|htpProperty| |htPage| '|eps|)) + (setq |lenwrk| (|htpProperty| |htPage| '|lenwrk|)) + (setq |expression| (|htpProperty| |htPage| '|expression|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| (ELT (CAR |y|) 1)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| (ELT (CAR |y|) 1)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |right| (ELT (CAR |y|) 1)) + (setq |y| (CDR |y|)) + (setq |left| (ELT (CAR |y|) 1)) + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)) - (SPADLET |imaglist| + (setq |imaglist| (CONS |right| |imaglist|)))))) - (SPADLET |astring| (|bcwords2liststring| |reallist|)) - (SPADLET |bstring| (|bcwords2liststring| |imaglist|)) - (SPADLET |prefix| + (setq |astring| (|bcwords2liststring| |reallist|)) + (setq |bstring| (|bcwords2liststring| |imaglist|)) + (setq |prefix| (STRCONC '|d01fcf(| (STRINGIMAGE |ndim|) '|, [| |astring| '|],[| |bstring| '|], |)) - (SPADLET |middle| + (setq |middle| (STRCONC (STRINGIMAGE |maxpts|) '|, | |eps| '| ,| (STRINGIMAGE |lenwrk|) '| ,|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| (STRINGIMAGE |minpts|) '| ,| (STRINGIMAGE |ifail|) '| ,|)) - (SPADLET |end| + (setq |end| (STRCONC '|(| |expression| '|::Expression Float) :: ASP4(FUNCTN))|)) (|linkGen| (STRCONC |prefix| |middle| |end|))))))) @@ -2603,12 +2603,12 @@ (DEFUN |d01gbfSolve,f| (|i|) (PROG (|prefix| |post| |rnam| |inam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |post| "\\tab{32} ") - (SPADLET |rnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |post| "\\tab{32} ") + (setq |rnam| (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) - (SPADLET |inam| + (setq |inam| (INTERN (STRCONC "b" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -2634,7 +2634,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |ndim| + (setq |ndim| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2643,9 +2643,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ndim|))))) - (SPADLET |expression| + (setq |expression| (|htpLabelInputString| |htPage| '|expression|)) - (SPADLET |mincls| + (setq |mincls| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2654,7 +2654,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|mincls|))))) - (SPADLET |maxcls| + (setq |maxcls| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2663,8 +2663,8 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|maxcls|))))) - (SPADLET |eps| (|htpLabelInputString| |htPage| '|eps|)) - (SPADLET |lenwrk| + (setq |eps| (|htpLabelInputString| |htPage| '|eps|)) + (setq |lenwrk| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2673,17 +2673,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lenwrk|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |ndim| '4) (|d01gbfDefaultSolve| |htPage| |mincls| |maxcls| |eps| |lenwrk| |expression| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166432) - (SPADLET G166432 NIL) + (setq G166432 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ndim|) G166432) @@ -2691,14 +2691,14 @@ (SETQ G166432 (APPEND G166432 (|d01gbfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) (|isDomain| S (|String|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| "D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method" NIL)) @@ -2766,8 +2766,8 @@ (PROG (|ndim| |page|) (RETURN (PROGN - (SPADLET |ndim| '4) - (SPADLET |page| + (setq |ndim| '4) + (setq |page| (|htInitPage| "D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method" NIL)) @@ -2836,41 +2836,41 @@ |astring| |bstring| |prefix| |middle| |end|) (RETURN (SEQ (PROGN - (SPADLET |ndim| (|htpProperty| |htPage| '|ndim|)) - (SPADLET |mincls| (|htpProperty| |htPage| '|mincls|)) - (SPADLET |maxcls| (|htpProperty| |htPage| '|maxcls|)) - (SPADLET |eps| (|htpProperty| |htPage| '|eps|)) - (SPADLET |lenwrk| (|htpProperty| |htPage| '|lenwrk|)) - (SPADLET |expression| + (setq |ndim| (|htpProperty| |htPage| '|ndim|)) + (setq |mincls| (|htpProperty| |htPage| '|mincls|)) + (setq |maxcls| (|htpProperty| |htPage| '|maxcls|)) + (setq |eps| (|htpProperty| |htPage| '|eps|)) + (setq |lenwrk| (|htpProperty| |htPage| '|lenwrk|)) + (setq |expression| (|htpProperty| |htPage| '|expression|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| (ELT (CAR |y|) 1)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| (ELT (CAR |y|) 1)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |right| (ELT (CAR |y|) 1)) + (setq |y| (CDR |y|)) + (setq |left| (ELT (CAR |y|) 1)) + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)) - (SPADLET |imaglist| + (setq |imaglist| (CONS |right| |imaglist|)))))) - (SPADLET |astring| (|bcwords2liststring| |reallist|)) - (SPADLET |bstring| (|bcwords2liststring| |imaglist|)) - (SPADLET |prefix| + (setq |astring| (|bcwords2liststring| |reallist|)) + (setq |bstring| (|bcwords2liststring| |imaglist|)) + (setq |prefix| (STRCONC '|d01gbf(| (STRINGIMAGE |ndim|) '|, [| |astring| '|],[| |bstring| '|], |)) - (SPADLET |middle| + (setq |middle| (STRCONC (STRINGIMAGE |maxcls|) '|, | |eps| '| ,| (STRINGIMAGE |lenwrk|) '| ,|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| (STRINGIMAGE |mincls|) '| ,[[0.0 for i in 1..|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| (STRINGIMAGE |lenwrk|) '|]],| (STRINGIMAGE |ifail|) '| ,|)) - (SPADLET |end| + (setq |end| (STRCONC '|(| |expression| '|::Expression Float) :: ASP4(FUNCTN))|)) (|linkGen| (STRCONC |prefix| |middle| |end|))))))) @@ -3013,16 +3013,16 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |sub| (|htpButtonValue| |htPage| '|gtype|)) - (SPADLET |gtype| + (setq |sub| (|htpButtonValue| |htPage| '|gtype|)) + (setq |gtype| (COND ((BOOT-EQUAL |sub| '|gZero|) 0) ((BOOT-EQUAL |sub| '|gOne|) 1) ((BOOT-EQUAL |sub| '|gTwo|) 2) ('T 3))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |n| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3030,17 +3030,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |wgts| (|htpButtonValue| |htPage| '|itype|)) - (SPADLET |itype| (COND ((BOOT-EQUAL |wgts| '|iOne|) 1) ('T 0))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |wgts| (|htpButtonValue| |htPage| '|itype|)) + (setq |itype| (COND ((BOOT-EQUAL |wgts| '|iOne|) 1) ('T 0))) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |prefix| + (setq |prefix| (STRCONC '|d01bbf(| |a| '| ,| |b| '| ,| (STRINGIMAGE |itype|) '| ,|)) - (SPADLET |end| + (setq |end| (STRCONC (STRINGIMAGE |n|) '| ,| (STRINGIMAGE |gtype|) '| ,| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| (STRCONC |prefix| |end|)))))) diff --git a/src/interp/nag-d02.lisp.pamphlet b/src/interp/nag-d02.lisp.pamphlet index 4b1afa6..776fea5 100644 --- a/src/interp/nag-d02.lisp.pamphlet +++ b/src/interp/nag-d02.lisp.pamphlet @@ -181,13 +181,13 @@ (DEFUN |d02bbfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline {\\em Function ") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline {\\em Function ") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) ":} \\space{1}")) - (SPADLET |funct| + (setq |funct| (STRCONC "Y[" (STRINGIMAGE |i|) '])) - (SPADLET |nam| + (setq |nam| (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -202,7 +202,7 @@ (DEFUN |d02bbfSolve,fb| (|i|) (PROG (|ynam|) (RETURN - (SEQ (SPADLET |ynam| + (SEQ (setq |ynam| (INTERN (STRCONC "u" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -219,9 +219,9 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |xend| (|htpLabelInputString| |htPage| '|xend|)) - (SPADLET |n| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |xend| (|htpLabelInputString| |htPage| '|xend|)) + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -229,15 +229,15 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |tol| (|htpLabelInputString| |htPage| '|tol|)) - (SPADLET |control| (|htpButtonValue| |htPage| '|irelab|)) - (SPADLET |irelab| + (setq |tol| (|htpLabelInputString| |htPage| '|tol|)) + (setq |control| (|htpButtonValue| |htPage| '|irelab|)) + (setq |irelab| (COND ((BOOT-EQUAL |control| '|mix|) '0) ((BOOT-EQUAL |control| '|abs|) '1) ('T '2))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|minusOne|) '-1) ('T '1))) @@ -246,9 +246,9 @@ (|d02bbfDefaultSolve| |htPage| |x| |xend| |tol| |irelab| |ifail|)) ('T - (SPADLET |funcList| + (setq |funcList| (PROG (G166080) - (SPADLET G166080 NIL) + (setq G166080 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166080) @@ -256,14 +256,14 @@ (SETQ G166080 (APPEND G166080 (|d02bbfSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "values of \\htbitmap{yi}: \\newline \\tab{2}")) - (SPADLET |yList| + (setq |yList| (PROG (G166088) - (SPADLET G166088 NIL) + (setq G166088 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166088) @@ -271,14 +271,14 @@ (SETQ G166088 (APPEND G166088 (|d02bbfSolve,fb| |i|))))))))) - (SPADLET |yList| + (setq |yList| (CONS (CONS '|text| |middle|) |yList|)) - (SPADLET |mid| + (setq |mid| "\\blankline \\menuitemstyle{} \\tab{2} Intermediate values of {\\it x}") - (SPADLET |mid| + (setq |mid| (STRCONC |mid| " at which \\htbitmap{yi} is required: \\newline \\tab{2}")) - (SPADLET |vList| + (setq |vList| (CONS (CONS '|bcStrings| (CONS (CONS 30 @@ -286,8 +286,8 @@ (CONS '|out| (CONS 'EM NIL)))) NIL)) NIL)) - (SPADLET |vList| (CONS (CONS '|text| |mid|) |vList|)) - (SPADLET |equationPart| + (setq |vList| (CONS (CONS '|text| |mid|) |vList|)) + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) @@ -295,7 +295,7 @@ (|isDomain| I (|Integer|))) (APPEND |funcList| (APPEND |yList| |vList|)))) - (SPADLET |page| + (setq |page| (|htInitPage| "D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output" NIL)) @@ -363,8 +363,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |page| + (setq |n| '3) + (setq |page| (|htInitPage| "D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output" NIL)) @@ -451,52 +451,52 @@ |fList| |y| |fstring| |prefix| |end|) (RETURN (SEQ (PROGN - (SPADLET |x| (|htpProperty| |htPage| '|x|)) - (SPADLET |xend| (|htpProperty| |htPage| '|xend|)) - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |tol| (|htpProperty| |htPage| '|tol|)) - (SPADLET |irelab| (|htpProperty| |htPage| '|irelab|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |outp| (ELT (CAR |y|) 1)) - (SPADLET |oList| (CONS |outp| |oList|)) - (SPADLET |y| (CDR |y|)) - (SPADLET |ostring| (|bcwords2liststring| |oList|)) - (SPADLET |numberOfPoints| + (setq |x| (|htpProperty| |htPage| '|x|)) + (setq |xend| (|htpProperty| |htPage| '|xend|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |tol| (|htpProperty| |htPage| '|tol|)) + (setq |irelab| (|htpProperty| |htPage| '|irelab|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |outp| (ELT (CAR |y|) 1)) + (setq |oList| (CONS |outp| |oList|)) + (setq |y| (CDR |y|)) + (setq |ostring| (|bcwords2liststring| |oList|)) + (setq |numberOfPoints| (COND ((ZEROP (LENGTH |outp|)) 1) ('T (+ 2 (COUNT (CHARACTER 44) |outp|))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |ytemp| + (setq |ytemp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |yList| (CONS |ytemp| |yList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |ystring| (|bcwords2liststring| |yList|)) + (setq |yList| (CONS |ytemp| |yList|)) + (setq |y| (CDR |y|)))))) + (setq |ystring| (|bcwords2liststring| |yList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |f| + (setq |f| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |fList| (CONS |f| |fList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |fstring| (|bcwords2liststring| |fList|)) - (SPADLET |prefix| + (setq |fList| (CONS |f| |fList|)) + (setq |y| (CDR |y|)))))) + (setq |fstring| (|bcwords2liststring| |fList|)) + (setq |prefix| (STRCONC '|d02bbf(| |xend| '|, | (STRINGIMAGE |numberOfPoints|) '|, | (STRINGIMAGE |n|) '|, | (STRINGIMAGE |irelab|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | |x| '|, [| |ystring| '|],| |tol|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | (STRINGIMAGE |ifail|) '|,(|)) - (SPADLET |end| + (setq |end| (STRCONC |fstring| '|::Vector Expression Float)::ASP7('FCN),(| |ostring|)) - (SPADLET |end| + (setq |end| (STRCONC |end| '|::Vector MachineFloat)::ASP8('OUTPUT))|)) (|linkGen| (STRCONC |prefix| |end|))))))) @@ -682,13 +682,13 @@ (DEFUN |d02bhfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline {\\em Function ") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline {\\em Function ") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) ":} \\space{1}")) - (SPADLET |funct| + (setq |funct| (STRCONC "Y[" (STRINGIMAGE |i|) '])) - (SPADLET |nam| + (setq |nam| (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -703,7 +703,7 @@ (DEFUN |d02bhfSolve,fb| (|i|) (PROG (|ynam|) (RETURN - (SEQ (SPADLET |ynam| + (SEQ (setq |ynam| (INTERN (STRCONC "u" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -720,9 +720,9 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |xend| (|htpLabelInputString| |htPage| '|xend|)) - (SPADLET |n| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |xend| (|htpLabelInputString| |htPage| '|xend|)) + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -730,25 +730,25 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |tol| (|htpLabelInputString| |htPage| '|tol|)) - (SPADLET |control| (|htpButtonValue| |htPage| '|irelab|)) - (SPADLET |irelab| + (setq |tol| (|htpLabelInputString| |htPage| '|tol|)) + (setq |control| (|htpButtonValue| |htPage| '|irelab|)) + (setq |irelab| (COND ((BOOT-EQUAL |control| '|mix|) '0) ((BOOT-EQUAL |control| '|abs|) '1) ('T '2))) - (SPADLET |hmax| (|htpLabelInputString| |htPage| '|hmax|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |hmax| (|htpLabelInputString| |htPage| '|hmax|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '3) (|d02bhfDefaultSolve| |htPage| |x| |xend| |tol| |irelab| |hmax| |ifail|)) ('T - (SPADLET |funcList| + (setq |funcList| (PROG (G166200) - (SPADLET G166200 NIL) + (setq G166200 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166200) @@ -756,14 +756,14 @@ (SETQ G166200 (APPEND G166200 (|d02bhfSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "values of \\htbitmap{yi}: \\newline ")) - (SPADLET |yList| + (setq |yList| (PROG (G166208) - (SPADLET G166208 NIL) + (setq G166208 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166208) @@ -771,14 +771,14 @@ (SETQ G166208 (APPEND G166208 (|d02bhfSolve,fb| |i|))))))))) - (SPADLET |yList| + (setq |yList| (CONS (CONS '|text| |middle|) |yList|)) - (SPADLET |mid| + (setq |mid| "\\blankline \\menuitemstyle{} \\tab{2} Enter the function below ") - (SPADLET |mid| + (setq |mid| (STRCONC |mid| "{\\em g(x,y)}: \\newline ")) - (SPADLET |vList| + (setq |vList| (CONS (CONS '|bcStrings| (CONS (CONS 30 @@ -786,8 +786,8 @@ (CONS '|g| (CONS 'EM NIL)))) NIL)) NIL)) - (SPADLET |vList| (CONS (CONS '|text| |mid|) |vList|)) - (SPADLET |equationPart| + (setq |vList| (CONS (CONS '|text| |mid|) |vList|)) + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) @@ -795,7 +795,7 @@ (|isDomain| I (|Integer|))) (APPEND |funcList| (APPEND |yList| |vList|)))) - (SPADLET |page| + (setq |page| (|htInitPage| "D02BHF - ODEs, IVP, Runge-Kutta-Merson method, until function of solution is zero" NIL)) @@ -864,8 +864,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |page| + (setq |n| '3) + (setq |page| (|htInitPage| "D02BHF - ODEs, IVP, Runge-Kutta-Merson method, until function of solution is zero" NIL)) @@ -942,45 +942,45 @@ |prefix| |mid| |end|) (RETURN (SEQ (PROGN - (SPADLET |x| (|htpProperty| |htPage| '|x|)) - (SPADLET |xend| (|htpProperty| |htPage| '|xend|)) - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |tol| (|htpProperty| |htPage| '|tol|)) - (SPADLET |irelab| (|htpProperty| |htPage| '|irelab|)) - (SPADLET |hmax| (|htpProperty| |htPage| '|hmax|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |g| (ELT (CAR |y|) 1)) - (SPADLET |y| (CDR |y|)) + (setq |x| (|htpProperty| |htPage| '|x|)) + (setq |xend| (|htpProperty| |htPage| '|xend|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |tol| (|htpProperty| |htPage| '|tol|)) + (setq |irelab| (|htpProperty| |htPage| '|irelab|)) + (setq |hmax| (|htpProperty| |htPage| '|hmax|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |g| (ELT (CAR |y|) 1)) + (setq |y| (CDR |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |ytemp| + (setq |ytemp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |yList| (CONS |ytemp| |yList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |ystring| (|bcwords2liststring| |yList|)) + (setq |yList| (CONS |ytemp| |yList|)) + (setq |y| (CDR |y|)))))) + (setq |ystring| (|bcwords2liststring| |yList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |f| + (setq |f| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |fList| (CONS |f| |fList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |fstring| (|bcwords2liststring| |fList|)) - (SPADLET |prefix| + (setq |fList| (CONS |f| |fList|)) + (setq |y| (CDR |y|)))))) + (setq |fstring| (|bcwords2liststring| |fList|)) + (setq |prefix| (STRCONC '|d02bhf(| |xend| '|, | (STRINGIMAGE |n|) '|, | (STRINGIMAGE |irelab|))) - (SPADLET |mid| + (setq |mid| (STRCONC '|, | |hmax| '|, | |x| '|, [| |ystring| '|],|)) - (SPADLET |mid| + (setq |mid| (STRCONC |mid| |tol| '|, | (STRINGIMAGE |ifail|) '|,(| |g|)) - (SPADLET |mid| + (setq |mid| (STRCONC |mid| '|::Expression Float)::ASP9('G),(|)) - (SPADLET |end| + (setq |end| (STRCONC |fstring| '|::Vector Expression Float)::ASP7('FCN))|)) (|linkGen| (STRCONC |prefix| |mid| |end|))))))) @@ -1159,13 +1159,13 @@ (DEFUN |d02cjfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline {\\em Function ") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline {\\em Function ") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) ":} \\space{1}")) - (SPADLET |funct| + (setq |funct| (STRCONC "Y[" (STRINGIMAGE |i|) '])) - (SPADLET |nam| + (setq |nam| (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -1180,7 +1180,7 @@ (DEFUN |d02cjfSolve,fb| (|i|) (PROG (|ynam|) (RETURN - (SEQ (SPADLET |ynam| + (SEQ (setq |ynam| (INTERN (STRCONC "u" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1197,9 +1197,9 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |xend| (|htpLabelInputString| |htPage| '|xend|)) - (SPADLET |n| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |xend| (|htpLabelInputString| |htPage| '|xend|)) + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1207,26 +1207,26 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |tol| (|htpLabelInputString| |htPage| '|tol|)) - (SPADLET |control| (|htpButtonValue| |htPage| '|relabs|)) - (SPADLET |relabs| + (setq |tol| (|htpLabelInputString| |htPage| '|tol|)) + (setq |control| (|htpButtonValue| |htPage| '|relabs|)) + (setq |relabs| (COND ((BOOT-EQUAL |control| '|mix|) "D") ((BOOT-EQUAL |control| '|abs|) "A") ('T "R"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '3) (|d02cjfDefaultSolve| |htPage| |x| |xend| |tol| |relabs| |ifail|)) ('T - (SPADLET |funcList| + (setq |funcList| (PROG (G166318) - (SPADLET G166318 NIL) + (setq G166318 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166318) @@ -1234,14 +1234,14 @@ (SETQ G166318 (APPEND G166318 (|d02cjfSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "values of \\htbitmap{yi}: \\newline ")) - (SPADLET |yList| + (setq |yList| (PROG (G166326) - (SPADLET G166326 NIL) + (setq G166326 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166326) @@ -1249,14 +1249,14 @@ (SETQ G166326 (APPEND G166326 (|d02cjfSolve,fb| |i|))))))))) - (SPADLET |yList| + (setq |yList| (CONS (CONS '|text| |middle|) |yList|)) - (SPADLET |mid| + (setq |mid| "\\blankline \\menuitemstyle{} \\tab{2} Intermediate values of {\\it x}") - (SPADLET |mid| + (setq |mid| (STRCONC |mid| " at which \\htbitmap{yi} is required: \\newline ")) - (SPADLET |vList| + (setq |vList| (CONS (CONS '|bcStrings| (CONS (CONS 30 @@ -1264,13 +1264,13 @@ (CONS '|out| (CONS 'EM NIL)))) NIL)) NIL)) - (SPADLET |vList| (CONS (CONS '|text| |mid|) |vList|)) - (SPADLET |midd| + (setq |vList| (CONS (CONS '|text| |mid|) |vList|)) + (setq |midd| "\\blankline \\menuitemstyle{} \\tab{2} Enter the function below ") - (SPADLET |midd| + (setq |midd| (STRCONC |midd| "{\\em g(x,y)}: \\newline ")) - (SPADLET |uList| + (setq |uList| (CONS (CONS '|bcStrings| (CONS (CONS 30 @@ -1278,8 +1278,8 @@ (CONS '|g| (CONS 'EM NIL)))) NIL)) NIL)) - (SPADLET |uList| (CONS (CONS '|text| |midd|) |uList|)) - (SPADLET |equationPart| + (setq |uList| (CONS (CONS '|text| |midd|) |uList|)) + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) @@ -1288,7 +1288,7 @@ (APPEND |funcList| (APPEND |yList| (APPEND |vList| |uList|))))) - (SPADLET |page| + (setq |page| (|htInitPage| "D02CJF - ODEs, IVP, Adams method, until function of solution is zero, intermediate output" NIL)) @@ -1360,8 +1360,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |page| + (setq |n| '3) + (setq |page| (|htInitPage| "D02CJF - ODEs, IVP, Adams method, until function of solution is zero, intermediate output" NIL)) @@ -1452,54 +1452,54 @@ |ystring| |f| |fList| |y| |fstring| |prefix| |mid| |end|) (RETURN (SEQ (PROGN - (SPADLET |x| (|htpProperty| |htPage| '|x|)) - (SPADLET |xend| (|htpProperty| |htPage| '|xend|)) - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |tol| (|htpProperty| |htPage| '|tol|)) - (SPADLET |relabs| (|htpProperty| |htPage| '|relabs|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |g| (ELT (CAR |y|) 1)) - (SPADLET |y| (CDR |y|)) - (SPADLET |outp| (ELT (CAR |y|) 1)) - (SPADLET |oList| (CONS |outp| |oList|)) - (SPADLET |ostring| (|bcwords2liststring| |oList|)) - (SPADLET |numberOfPoints| + (setq |x| (|htpProperty| |htPage| '|x|)) + (setq |xend| (|htpProperty| |htPage| '|xend|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |tol| (|htpProperty| |htPage| '|tol|)) + (setq |relabs| (|htpProperty| |htPage| '|relabs|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |g| (ELT (CAR |y|) 1)) + (setq |y| (CDR |y|)) + (setq |outp| (ELT (CAR |y|) 1)) + (setq |oList| (CONS |outp| |oList|)) + (setq |ostring| (|bcwords2liststring| |oList|)) + (setq |numberOfPoints| (COND ((ZEROP (LENGTH |outp|)) 1) ('T (+ 2 (COUNT (CHARACTER 44) |outp|))))) - (SPADLET |y| (CDR |y|)) + (setq |y| (CDR |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |ytemp| + (setq |ytemp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |yList| (CONS |ytemp| |yList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |ystring| (|bcwords2liststring| |yList|)) + (setq |yList| (CONS |ytemp| |yList|)) + (setq |y| (CDR |y|)))))) + (setq |ystring| (|bcwords2liststring| |yList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |f| + (setq |f| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |fList| (CONS |f| |fList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |fstring| (|bcwords2liststring| |fList|)) - (SPADLET |prefix| + (setq |fList| (CONS |f| |fList|)) + (setq |y| (CDR |y|)))))) + (setq |fstring| (|bcwords2liststring| |fList|)) + (setq |prefix| (STRCONC '|d02cjf(| |xend| '|, | (STRINGIMAGE |numberOfPoints|) '|, | (STRINGIMAGE |n|) '|, | |tol| '|,"| |relabs|)) - (SPADLET |mid| + (setq |mid| (STRCONC '|", | |x| '|, [| |ystring| '|],| (STRINGIMAGE |ifail|))) - (SPADLET |mid| + (setq |mid| (STRCONC |mid| '|,(| |g| '|::Expression Float)::ASP9('G),(| |fstring|)) - (SPADLET |end| + (setq |end| (STRCONC '|::Vector Expression Float)::ASP7('FCN),(| |ostring|)) - (SPADLET |end| + (setq |end| (STRCONC |end| '|::Vector MachineFloat)::ASP8('OUTPUT))|)) (|linkGen| (STRCONC |prefix| |mid| |end|))))))) @@ -1682,13 +1682,13 @@ (DEFUN |d02ejfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline {\\em Function ") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline {\\em Function ") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) ":} \\space{1}")) - (SPADLET |funct| + (setq |funct| (STRCONC "Y[" (STRINGIMAGE |i|) '])) - (SPADLET |nam| + (setq |nam| (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -1703,7 +1703,7 @@ (DEFUN |d02ejfSolve,fb| (|i|) (PROG (|ynam|) (RETURN - (SEQ (SPADLET |ynam| + (SEQ (setq |ynam| (INTERN (STRCONC "u" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1720,9 +1720,9 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |xend| (|htpLabelInputString| |htPage| '|xend|)) - (SPADLET |n| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |xend| (|htpLabelInputString| |htPage| '|xend|)) + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1730,27 +1730,27 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |tol| (|htpLabelInputString| |htPage| '|tol|)) - (SPADLET |control| (|htpButtonValue| |htPage| '|relabs|)) - (SPADLET |relabs| + (setq |tol| (|htpLabelInputString| |htPage| '|tol|)) + (setq |control| (|htpButtonValue| |htPage| '|relabs|)) + (setq |relabs| (COND ((BOOT-EQUAL |control| '|mix|) "D") ((BOOT-EQUAL |control| '|abs|) "A") ('T "R"))) - (SPADLET |iw| (+ (TIMES (+ |n| 12) |n|) 50)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |iw| (+ (TIMES (+ |n| 12) |n|) 50)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '3) (|d02ejfDefaultSolve| |htPage| |x| |xend| |tol| |relabs| |iw| |ifail|)) ('T - (SPADLET |funcList| + (setq |funcList| (PROG (G166444) - (SPADLET G166444 NIL) + (setq G166444 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166444) @@ -1758,14 +1758,14 @@ (SETQ G166444 (APPEND G166444 (|d02ejfSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "values of \\htbitmap{yi}: \\newline ")) - (SPADLET |yList| + (setq |yList| (PROG (G166452) - (SPADLET G166452 NIL) + (setq G166452 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166452) @@ -1773,14 +1773,14 @@ (SETQ G166452 (APPEND G166452 (|d02ejfSolve,fb| |i|))))))))) - (SPADLET |yList| + (setq |yList| (CONS (CONS '|text| |middle|) |yList|)) - (SPADLET |mid| + (setq |mid| "\\blankline \\menuitemstyle{} \\tab{2} Intermediate values of {\\it x}") - (SPADLET |mid| + (setq |mid| (STRCONC |mid| " at which \\htbitmap{yi} is required: \\newline ")) - (SPADLET |vList| + (setq |vList| (CONS (CONS '|bcStrings| (CONS (CONS 30 @@ -1788,13 +1788,13 @@ (CONS '|out| (CONS 'EM NIL)))) NIL)) NIL)) - (SPADLET |vList| (CONS (CONS '|text| |mid|) |vList|)) - (SPADLET |midd| + (setq |vList| (CONS (CONS '|text| |mid|) |vList|)) + (setq |midd| "\\blankline \\menuitemstyle{} \\tab{2} Enter the function below ") - (SPADLET |midd| + (setq |midd| (STRCONC |midd| "{\\em g(x,y)}: \\newline ")) - (SPADLET |uList| + (setq |uList| (CONS (CONS '|bcStrings| (CONS (CONS 30 @@ -1802,8 +1802,8 @@ (CONS '|g| (CONS 'EM NIL)))) NIL)) NIL)) - (SPADLET |uList| (CONS (CONS '|text| |midd|) |uList|)) - (SPADLET |equationPart| + (setq |uList| (CONS (CONS '|text| |midd|) |uList|)) + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) @@ -1812,7 +1812,7 @@ (APPEND |funcList| (APPEND |yList| (APPEND |vList| |uList|))))) - (SPADLET |page| + (setq |page| (|htInitPage| "D02EJF - ODEs, stiff IVP, BDF method, until function of solution is zero, intermediate output" NIL)) @@ -1891,8 +1891,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |page| + (setq |n| '3) + (setq |page| (|htInitPage| "D02EJF - ODEs, stiff IVP, BDF method, until function of solution is zero, intermediate output" NIL)) @@ -1990,58 +1990,58 @@ |ystring| |f| |fList| |y| |fstring| |prefix| |mid| |end|) (RETURN (SEQ (PROGN - (SPADLET |x| (|htpProperty| |htPage| '|x|)) - (SPADLET |xend| (|htpProperty| |htPage| '|xend|)) - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |tol| (|htpProperty| |htPage| '|tol|)) - (SPADLET |relabs| (|htpProperty| |htPage| '|relabs|)) - (SPADLET |iw| (|htpProperty| |htPage| '|iw|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |g| (ELT (CAR |y|) 1)) - (SPADLET |y| (CDR |y|)) - (SPADLET |outp| (ELT (CAR |y|) 1)) - (SPADLET |oList| (CONS |outp| |oList|)) - (SPADLET |ostring| (|bcwords2liststring| |oList|)) - (SPADLET |numberOfPoints| + (setq |x| (|htpProperty| |htPage| '|x|)) + (setq |xend| (|htpProperty| |htPage| '|xend|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |tol| (|htpProperty| |htPage| '|tol|)) + (setq |relabs| (|htpProperty| |htPage| '|relabs|)) + (setq |iw| (|htpProperty| |htPage| '|iw|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |g| (ELT (CAR |y|) 1)) + (setq |y| (CDR |y|)) + (setq |outp| (ELT (CAR |y|) 1)) + (setq |oList| (CONS |outp| |oList|)) + (setq |ostring| (|bcwords2liststring| |oList|)) + (setq |numberOfPoints| (COND ((ZEROP (LENGTH |outp|)) 1) ('T (+ 2 (COUNT (CHARACTER 44) |outp|))))) - (SPADLET |y| (CDR |y|)) + (setq |y| (CDR |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |ytemp| + (setq |ytemp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |yList| (CONS |ytemp| |yList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |ystring| (|bcwords2liststring| |yList|)) + (setq |yList| (CONS |ytemp| |yList|)) + (setq |y| (CDR |y|)))))) + (setq |ystring| (|bcwords2liststring| |yList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |f| + (setq |f| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |fList| (CONS |f| |fList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |fstring| (|bcwords2liststring| |fList|)) - (SPADLET |prefix| + (setq |fList| (CONS |f| |fList|)) + (setq |y| (CDR |y|)))))) + (setq |fstring| (|bcwords2liststring| |fList|)) + (setq |prefix| (STRCONC '|d02ejf(| |xend| '|, | (STRINGIMAGE |numberOfPoints|) '|, | (STRINGIMAGE |n|) '|,"| |relabs| '|", |)) - (SPADLET |mid| + (setq |mid| (STRCONC (STRINGIMAGE |iw|) '|, | |x| '|, [| |ystring| '|], | |tol| '|, |)) - (SPADLET |mid| + (setq |mid| (STRCONC |mid| (STRINGIMAGE |ifail|) '|,(| |g| '|::Expression Float)::ASP9(G),(|)) - (SPADLET |end| + (setq |end| (STRCONC |fstring| '|::Vector Expression Float)::ASP7('FCN),(| |fstring|)) - (SPADLET |end| + (setq |end| (STRCONC |end| '|::Vector Expression Float)::ASP31('PEDERV),(| |ostring|)) - (SPADLET |end| + (setq |end| (STRCONC |end| '|::Vector MachineFloat)::ASP8('OUTPUT))|)) (|linkGen| (STRCONC |prefix| |mid| |end|))))))) @@ -2280,13 +2280,13 @@ (DEFUN |d02gafSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline {\\em Function ") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline {\\em Function ") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) ":} \\space{1}")) - (SPADLET |funct| + (setq |funct| (STRCONC "Y[" (STRINGIMAGE |i|) '])) - (SPADLET |nam| + (setq |nam| (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -2301,7 +2301,7 @@ (DEFUN |d02gafSolve,fc| (|i| |j|) (PROG (|unam|) (RETURN - (SEQ (SPADLET |unam| + (SEQ (setq |unam| (INTERN (STRCONC "u" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2314,23 +2314,23 @@ (DEFUN |d02gafSolve,fb| (|i|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166576) - (SPADLET G166576 NIL) + (setq G166576 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| 2) G166576) (SEQ (EXIT (SETQ G166576 (APPEND G166576 (|d02gafSolve,fc| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |d02gafSolve,fe| (|i| |j|) (PROG (|vnam|) (RETURN - (SEQ (SPADLET |vnam| + (SEQ (setq |vnam| (INTERN (STRCONC "v" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2343,23 +2343,23 @@ (DEFUN |d02gafSolve,fd| (|i|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166599) - (SPADLET G166599 NIL) + (setq G166599 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| 2) G166599) (SEQ (EXIT (SETQ G166599 (APPEND G166599 (|d02gafSolve,fe| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |d02gafSolve,ff| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2377,7 +2377,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2385,9 +2385,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |mnp| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |mnp| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2395,7 +2395,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|mnp|))))) - (SPADLET |np| + (setq |np| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2403,7 +2403,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|np|))))) - (SPADLET |lw| + (setq |lw| (+ (+ (TIMES |mnp| (+ (+ @@ -2412,29 +2412,29 @@ 2)) (TIMES (TIMES 4 |n|) |n|)) (TIMES 4 |n|))) - (SPADLET |liw| + (setq |liw| (+ (+ (+ (TIMES |mnp| (+ (TIMES 2 |n|) 1)) (TIMES |n| |n|)) (TIMES 4 |n|)) 2)) - (SPADLET |tol| (|htpLabelInputString| |htPage| '|tol|)) - (SPADLET |aerror| (|htpButtonValue| |htPage| '|afail|)) - (SPADLET |afail| + (setq |tol| (|htpLabelInputString| |htPage| '|tol|)) + (setq |aerror| (|htpButtonValue| |htPage| '|afail|)) + (setq |afail| (COND ((BOOT-EQUAL |aerror| '|azero|) '0) ('T '1))) - (SPADLET |berror| (|htpButtonValue| |htPage| '|bfail|)) - (SPADLET |bfail| + (setq |berror| (|htpButtonValue| |htPage| '|bfail|)) + (setq |bfail| (COND ((BOOT-EQUAL |berror| '|bone|) '1) ('T '0))) - (SPADLET |cerror| (|htpButtonValue| |htPage| '|cfail|)) - (SPADLET |cfail| + (setq |cerror| (|htpButtonValue| |htPage| '|cfail|)) + (setq |cfail| (COND ((BOOT-EQUAL |cerror| '|cone|) '1) ('T '0))) - (SPADLET |ifail| + (setq |ifail| (+ (+ (TIMES 100 |cfail|) (TIMES 10 |bfail|)) |afail|)) @@ -2443,9 +2443,9 @@ (|d02gafDefaultSolve| |htPage| |a| |b| |mnp| |np| |lw| |liw| |tol| |ifail|)) ('T - (SPADLET |funcList| + (setq |funcList| (PROG (G166622) - (SPADLET G166622 NIL) + (setq G166622 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166622) @@ -2453,21 +2453,21 @@ (SETQ G166622 (APPEND G166622 (|d02gafSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Enter known or estimated ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "values of \\htbitmap{yi} at a and b, ")) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|{\\it U(n,2)}. [\\htbitmap{yi}(a) in the first |)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|column, \\htbitmap{yi}(b) in the second.] |)) - (SPADLET |middle| (STRCONC |middle| '|\\newline |)) - (SPADLET |uList| + (setq |middle| (STRCONC |middle| '|\\newline |)) + (setq |uList| (PROG (G166630) - (SPADLET G166630 NIL) + (setq G166630 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166630) @@ -2475,19 +2475,19 @@ (SETQ G166630 (APPEND G166630 (|d02gafSolve,fb| |i|))))))))) - (SPADLET |uList| + (setq |uList| (CONS (CONS '|text| |middle|) |uList|)) - (SPADLET |mid| + (setq |mid| "\\blankline \\menuitemstyle{} \\tab{2} Enter {\\it V(n,2)}. ") - (SPADLET |mid| + (setq |mid| (STRCONC |mid| "If U(i,j) is known V(i,j) ")) - (SPADLET |mid| + (setq |mid| (STRCONC |mid| "= 0.0, else V(i,j) = 1.0. \\newline ")) - (SPADLET |vList| + (setq |vList| (PROG (G166638) - (SPADLET G166638 NIL) + (setq G166638 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166638) @@ -2495,10 +2495,10 @@ (SETQ G166638 (APPEND G166638 (|d02gafSolve,fd| |i|))))))))) - (SPADLET |vList| (CONS (CONS '|text| |mid|) |vList|)) - (SPADLET |xList| + (setq |vList| (CONS (CONS '|text| |mid|) |vList|)) + (setq |xList| (PROG (G166646) - (SPADLET G166646 NIL) + (setq G166646 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mnp|) G166646) @@ -2506,13 +2506,13 @@ (SETQ G166646 (APPEND G166646 (|d02gafSolve,ff| |i|))))))))) - (SPADLET |end| + (setq |end| "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial mesh ") - (SPADLET |end| + (setq |end| (STRCONC |end| "{\\it X(mnp)}: \\newline ")) - (SPADLET |xList| (CONS (CONS '|text| |end|) |xList|)) - (SPADLET |equationPart| + (setq |xList| (CONS (CONS '|text| |end|) |xList|)) + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) @@ -2521,7 +2521,7 @@ (APPEND |funcList| (APPEND |uList| (APPEND |vList| |xList|))))) - (SPADLET |page| + (setq |page| (|htInitPage| "D02GAF - ODEs, boundary value problem, finite difference technique with deferred correction, simple nonlinear problem" NIL)) @@ -2677,8 +2677,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |page| + (setq |n| '3) + (setq |page| (|htInitPage| "D02GAF - ODEs, boundary value problem, finite difference technique with deferred correction, simple nonlinear problem" NIL)) @@ -2856,60 +2856,60 @@ |end|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |a| (|htpProperty| |htPage| '|a|)) - (SPADLET |b| (|htpProperty| |htPage| '|b|)) - (SPADLET |mnp| (|htpProperty| |htPage| '|mnp|)) - (SPADLET |np| (|htpProperty| |htPage| '|np|)) - (SPADLET |lw| (|htpProperty| |htPage| '|lw|)) - (SPADLET |liw| (|htpProperty| |htPage| '|liw|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |tol| (|htpProperty| |htPage| '|tol|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |a| (|htpProperty| |htPage| '|a|)) + (setq |b| (|htpProperty| |htPage| '|b|)) + (setq |mnp| (|htpProperty| |htPage| '|mnp|)) + (setq |np| (|htpProperty| |htPage| '|np|)) + (setq |lw| (|htpProperty| |htPage| '|lw|)) + (setq |liw| (|htpProperty| |htPage| '|liw|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |tol| (|htpProperty| |htPage| '|tol|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mnp|) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| + (setq |x| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xList| (CONS |x| |xList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xList|)) + (setq |xList| (CONS |x| |xList|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| 2) NIL) (SEQ (EXIT (PROGN - (SPADLET |v| + (setq |v| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |v| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |vList| + (setq |y| (CDR |y|)))))) + (setq |vList| (APPEND |vList| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) + (setq |rowList| NIL))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| 2) NIL) (SEQ (EXIT (PROGN - (SPADLET |u| + (setq |u| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |u| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |uList| + (setq |y| (CDR |y|)))))) + (setq |uList| (APPEND |uList| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |vList| (REVERSE |vList|)) - (SPADLET |uList| (REVERSE |uList|)) - (SPADLET |vstring| + (setq |rowList| NIL))))) + (setq |vList| (REVERSE |vList|)) + (setq |uList| (REVERSE |uList|)) + (setq |vstring| (|bcwords2liststring| (PROG (G166763) - (SPADLET G166763 NIL) + (setq G166763 NIL) (RETURN (DO ((G166768 |vList| (CDR G166768)) (|x| NIL)) @@ -2922,10 +2922,10 @@ (SETQ G166763 (CONS (|bcwords2liststring| |x|) G166763))))))))) - (SPADLET |ustring| + (setq |ustring| (|bcwords2liststring| (PROG (G166778) - (SPADLET G166778 NIL) + (setq G166778 NIL) (RETURN (DO ((G166783 |uList| (CDR G166783)) (|x| NIL)) @@ -2940,25 +2940,25 @@ G166778))))))))) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |f| + (setq |f| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |fList| (CONS |f| |fList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |fstring| (|bcwords2liststring| |fList|)) - (SPADLET Y 'Y) - (SPADLET |prefix| + (setq |fList| (CONS |f| |fList|)) + (setq |y| (CDR |y|)))))) + (setq |fstring| (|bcwords2liststring| |fList|)) + (setq Y 'Y) + (setq |prefix| (STRCONC '|d02gaf(| |ustring| '|, | |vstring| '|, | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |a| '|, | |b| '|, | |tol| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |mnp|) '|, | (STRINGIMAGE |lw|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |liw|) '|, [| |xstring| '|], | (STRINGIMAGE |np|))) - (SPADLET |end| + (setq |end| (STRCONC '|,| (STRINGIMAGE |ifail|) '|,(| |fstring| '|::Vector Expression Float|)) (|linkGen| (STRCONC |prefix| |end| '|)::ASP7('FCN))|))))))) @@ -3204,7 +3204,7 @@ (DEFUN |d02gbfSolve,fb| (|i| |j|) (PROG (|cnam|) (RETURN - (SEQ (SPADLET |cnam| + (SEQ (setq |cnam| (INTERN (STRCONC "c" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3217,23 +3217,23 @@ (DEFUN |d02gbfSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166859) - (SPADLET G166859 NIL) + (setq G166859 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166859) (SEQ (EXIT (SETQ G166859 (APPEND G166859 (|d02gbfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |d02gbfSolve,fd| (|i| |j|) (PROG (|dnam|) (RETURN - (SEQ (SPADLET |dnam| + (SEQ (setq |dnam| (INTERN (STRCONC "d" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3246,23 +3246,23 @@ (DEFUN |d02gbfSolve,fc| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166882) - (SPADLET G166882 NIL) + (setq G166882 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166882) (SEQ (EXIT (SETQ G166882 (APPEND G166882 (|d02gbfSolve,fd| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |d02gbfSolve,fe| (|i|) (PROG (|gamnam|) (RETURN - (SEQ (SPADLET |gamnam| + (SEQ (setq |gamnam| (INTERN (STRCONC "gam" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3275,7 +3275,7 @@ (DEFUN |d02gbfSolve,fg| (|i| |j|) (PROG (|fnam|) (RETURN - (SEQ (SPADLET |fnam| + (SEQ (setq |fnam| (INTERN (STRCONC "f" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3288,23 +3288,23 @@ (DEFUN |d02gbfSolve,ff| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166911) - (SPADLET G166911 NIL) + (setq G166911 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166911) (SEQ (EXIT (SETQ G166911 (APPEND G166911 (|d02gbfSolve,fg| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |d02gbfSolve,fh| (|i|) (PROG (|gnam|) (RETURN - (SEQ (SPADLET |gnam| + (SEQ (setq |gnam| (INTERN (STRCONC "g" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3317,7 +3317,7 @@ (DEFUN |d02gbfSolve,fi| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3335,7 +3335,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3343,9 +3343,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |mnp| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |mnp| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3353,7 +3353,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|mnp|))))) - (SPADLET |np| + (setq |np| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3361,7 +3361,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|np|))))) - (SPADLET |lw| + (setq |lw| (+ (+ (TIMES |mnp| (+ (+ @@ -3370,25 +3370,25 @@ 2)) (TIMES (TIMES 3 |n|) |n|)) (TIMES 5 |n|))) - (SPADLET |liw| + (setq |liw| (+ (TIMES |mnp| (+ (TIMES 2 |n|) 1)) |n|)) - (SPADLET |tol| (|htpLabelInputString| |htPage| '|tol|)) - (SPADLET |aerror| (|htpButtonValue| |htPage| '|afail|)) - (SPADLET |afail| + (setq |tol| (|htpLabelInputString| |htPage| '|tol|)) + (setq |aerror| (|htpButtonValue| |htPage| '|afail|)) + (setq |afail| (COND ((BOOT-EQUAL |aerror| '|azero|) '0) ('T '1))) - (SPADLET |berror| (|htpButtonValue| |htPage| '|bfail|)) - (SPADLET |bfail| + (setq |berror| (|htpButtonValue| |htPage| '|bfail|)) + (setq |bfail| (COND ((BOOT-EQUAL |berror| '|bone|) '1) ('T '0))) - (SPADLET |cerror| (|htpButtonValue| |htPage| '|cfail|)) - (SPADLET |cfail| + (setq |cerror| (|htpButtonValue| |htPage| '|cfail|)) + (setq |cfail| (COND ((BOOT-EQUAL |cerror| '|cone|) '1) ('T '0))) - (SPADLET |ifail| + (setq |ifail| (+ (+ (TIMES 100 |cfail|) (TIMES 10 |bfail|)) |afail|)) @@ -3397,9 +3397,9 @@ (|d02gbfDefaultSolve| |htPage| |a| |b| |mnp| |np| |lw| |liw| |tol| |ifail|)) ('T - (SPADLET |cList| + (setq |cList| (PROG (G166940) - (SPADLET G166940 NIL) + (setq G166940 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166940) @@ -3407,12 +3407,12 @@ (SETQ G166940 (APPEND G166940 (|d02gbfSolve,fa| |i| |n|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix {\\it D}: ") - (SPADLET |middle| (STRCONC |middle| '|\\newline |)) - (SPADLET |dList| + (setq |middle| (STRCONC |middle| '|\\newline |)) + (setq |dList| (PROG (G166948) - (SPADLET G166948 NIL) + (setq G166948 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166948) @@ -3420,14 +3420,14 @@ (SETQ G166948 (APPEND G166948 (|d02gbfSolve,fc| |i| |n|))))))))) - (SPADLET |dList| + (setq |dList| (CONS (CONS '|text| |middle|) |dList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Enter the vector \\gamma: ") - (SPADLET |middle| (STRCONC |middle| '|\\newline |)) - (SPADLET |gamList| + (setq |middle| (STRCONC |middle| '|\\newline |)) + (setq |gamList| (PROG (G166956) - (SPADLET G166956 NIL) + (setq G166956 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166956) @@ -3435,20 +3435,20 @@ (SETQ G166956 (APPEND G166956 (|d02gbfSolve,fe| |i|))))))))) - (SPADLET |prefix| "\\newline ") - (SPADLET |gamList| + (setq |prefix| "\\newline ") + (setq |gamList| (CONS (CONS '|text| |middle|) |gamList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|{\\it F(x)} from the equation {\\it y' =} |)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|{\\it F(x)y + g(x)}: \\newline |)) - (SPADLET |fList| + (setq |fList| (PROG (G166964) - (SPADLET G166964 NIL) + (setq G166964 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166964) @@ -3456,15 +3456,15 @@ (SETQ G166964 (APPEND G166964 (|d02gbfSolve,ff| |i| |n|))))))))) - (SPADLET |fList| + (setq |fList| (CONS (CONS '|text| |middle|) |fList|)) - (SPADLET |mid| + (setq |mid| "\\blankline \\menuitemstyle{} \\tab{2} Enter the vector {\\it g(x)}: ") - (SPADLET |mid| + (setq |mid| (STRCONC |mid| "\\newline ")) - (SPADLET |gList| + (setq |gList| (PROG (G166972) - (SPADLET G166972 NIL) + (setq G166972 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166972) @@ -3472,12 +3472,12 @@ (SETQ G166972 (APPEND G166972 (|d02gbfSolve,fh| |i|))))))))) - (SPADLET |prefix| "\\newline ") - (SPADLET |gList| + (setq |prefix| "\\newline ") + (setq |gList| (CONS (CONS '|text| |middle|) |gList|)) - (SPADLET |xList| + (setq |xList| (PROG (G166980) - (SPADLET G166980 NIL) + (setq G166980 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mnp|) G166980) @@ -3485,13 +3485,13 @@ (SETQ G166980 (APPEND G166980 (|d02gbfSolve,fi| |i|))))))))) - (SPADLET |end| + (setq |end| "\\blankline \\menuitemstyle{} \\tab{2} The initial mesh {\\it X(mnp)}") - (SPADLET |end| + (setq |end| (STRCONC |end| ", (all entries = 0 if np < 4): \\newline ")) - (SPADLET |xList| (CONS (CONS '|text| |end|) |xList|)) - (SPADLET |equationPart| + (setq |xList| (CONS (CONS '|text| |end|) |xList|)) + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) @@ -3502,7 +3502,7 @@ (APPEND |gamList| (APPEND |fList| (APPEND |gList| |xList|))))))) - (SPADLET |page| + (setq |page| (|htInitPage| "D02GBF - ODEs, boundary value problem, finite difference technique with deferred correction, general nonlinear problem" NIL)) @@ -3660,8 +3660,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '2) - (SPADLET |page| + (setq |n| '2) + (setq |page| (|htInitPage| "D02GBF - ODEs, boundary value problem, finite difference technique with deferred correction, general nonlinear problem" NIL)) @@ -3854,51 +3854,51 @@ |prefix| |mid| |end|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |a| (|htpProperty| |htPage| '|a|)) - (SPADLET |b| (|htpProperty| |htPage| '|b|)) - (SPADLET |mnp| (|htpProperty| |htPage| '|mnp|)) - (SPADLET |np| (|htpProperty| |htPage| '|np|)) - (SPADLET |lw| (|htpProperty| |htPage| '|lw|)) - (SPADLET |liw| (|htpProperty| |htPage| '|liw|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |tol| (|htpProperty| |htPage| '|tol|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |a| (|htpProperty| |htPage| '|a|)) + (setq |b| (|htpProperty| |htPage| '|b|)) + (setq |mnp| (|htpProperty| |htPage| '|mnp|)) + (setq |np| (|htpProperty| |htPage| '|np|)) + (setq |lw| (|htpProperty| |htPage| '|lw|)) + (setq |liw| (|htpProperty| |htPage| '|liw|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |tol| (|htpProperty| |htPage| '|tol|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mnp|) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| + (setq |x| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xList| (CONS |x| |xList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xList|)) + (setq |xList| (CONS |x| |xList|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |g| + (setq |g| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |gList| (CONS |g| |gList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |gstring| (|bcwords2liststring| |gList|)) + (setq |gList| (CONS |g| |gList|)) + (setq |y| (CDR |y|)))))) + (setq |gstring| (|bcwords2liststring| |gList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |f| + (setq |f| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |flist| + (setq |flist| (CONS |f| |flist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |fmatlist| + (setq |y| (CDR |y|)))))) + (setq |fmatlist| (APPEND |fmatlist| (CONS |flist| NIL))) - (SPADLET |flist| NIL))))) - (SPADLET |fmatlist| (REVERSE |fmatlist|)) - (SPADLET |fmatstr| + (setq |flist| NIL))))) + (setq |fmatlist| (REVERSE |fmatlist|)) + (setq |fmatstr| (|bcwords2liststring| (PROG (G167097) - (SPADLET G167097 NIL) + (setq G167097 NIL) (RETURN (DO ((G167102 |fmatlist| (CDR G167102)) @@ -3914,31 +3914,31 @@ G167097))))))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |gam| + (setq |gam| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |gamList| (CONS |gam| |gamList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |gamstr| (|bcwords2liststring| |gamList|)) + (setq |gamList| (CONS |gam| |gamList|)) + (setq |y| (CDR |y|)))))) + (setq |gamstr| (|bcwords2liststring| |gamList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |d| + (setq |d| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |dlist| + (setq |dlist| (CONS |d| |dlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |dmatlist| + (setq |y| (CDR |y|)))))) + (setq |dmatlist| (APPEND |dmatlist| (CONS |dlist| NIL))) - (SPADLET |dlist| NIL))))) - (SPADLET |dmatlist| (REVERSE |dmatlist|)) - (SPADLET |dmatstr| + (setq |dlist| NIL))))) + (setq |dmatlist| (REVERSE |dmatlist|)) + (setq |dmatstr| (|bcwords2liststring| (PROG (G167142) - (SPADLET G167142 NIL) + (setq G167142 NIL) (RETURN (DO ((G167147 |dmatlist| (CDR G167147)) @@ -3958,20 +3958,20 @@ ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |c| + (setq |c| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |clist| + (setq |clist| (CONS |c| |clist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |cmatlist| + (setq |y| (CDR |y|)))))) + (setq |cmatlist| (APPEND |cmatlist| (CONS |clist| NIL))) - (SPADLET |clist| NIL))))) - (SPADLET |cmatlist| (REVERSE |cmatlist|)) - (SPADLET |cmatstr| + (setq |clist| NIL))))) + (setq |cmatlist| (REVERSE |cmatlist|)) + (setq |cmatstr| (|bcwords2liststring| (PROG (G167178) - (SPADLET G167178 NIL) + (setq G167178 NIL) (RETURN (DO ((G167183 |cmatlist| (CDR G167183)) @@ -3985,25 +3985,25 @@ (SETQ G167178 (CONS (|bcwords2liststring| |x|) G167178))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC '|d02gbf(| (STRINGIMAGE |a|) '|, | (STRINGIMAGE |b|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | |tol| '|, | (STRINGIMAGE |mnp|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lw|) '|, | (STRINGIMAGE |liw|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |cmatstr| '|::Matrix DoubleFloat,| |dmatstr| '|::Matrix DoubleFloat,[| |gamstr| '|]::Matrix DoubleFloat,[| |xstring| '|]::Matrix DoubleFloat, |)) - (SPADLET |mid| + (setq |mid| (STRCONC (STRINGIMAGE |np|) '|, | (STRINGIMAGE |ifail|) '|, |)) - (SPADLET |end| + (setq |end| (STRCONC '|(| |fmatstr| '|::Matrix(Expression(Float)))::ASP77(FCNF),(| |gstring|)) @@ -4237,7 +4237,7 @@ (DEFUN |d02kefSolve,fa| (|i|) (PROG (|xpnam|) (RETURN - (SEQ (SPADLET |xpnam| + (SEQ (setq |xpnam| (INTERN (STRCONC "xp" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4250,7 +4250,7 @@ (DEFUN |d02kefSolve,fb| (|i|) (PROG (|ylnam|) (RETURN - (SEQ (SPADLET |ylnam| + (SEQ (setq |ylnam| (INTERN (STRCONC "yl" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4263,7 +4263,7 @@ (DEFUN |d02kefSolve,fc| (|i|) (PROG (|yrnam|) (RETURN - (SEQ (SPADLET |yrnam| + (SEQ (setq |yrnam| (INTERN (STRCONC "yr" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4276,7 +4276,7 @@ (DEFUN |d02kefSolve,fe| (|i| |j|) (PROG (|hnam|) (RETURN - (SEQ (SPADLET |hnam| + (SEQ (setq |hnam| (INTERN (STRCONC "h" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4289,17 +4289,17 @@ (DEFUN |d02kefSolve,fd| (|i| |m|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167280) - (SPADLET G167280 NIL) + (setq G167280 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |m|) G167280) (SEQ (EXIT (SETQ G167280 (APPEND G167280 (|d02kefSolve,fe| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |d02kefSolve| (|htPage|) @@ -4309,7 +4309,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4317,7 +4317,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |match| + (setq |match| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4326,7 +4326,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|match|))))) - (SPADLET |k| + (setq |k| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4334,11 +4334,11 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|k|))))) - (SPADLET |tol| (|htpLabelInputString| |htPage| '|tol|)) - (SPADLET |elam| (|htpLabelInputString| |htPage| '|elam|)) - (SPADLET |delam| + (setq |tol| (|htpLabelInputString| |htPage| '|tol|)) + (setq |elam| (|htpLabelInputString| |htPage| '|elam|)) + (setq |delam| (|htpLabelInputString| |htPage| '|delam|)) - (SPADLET |maxit| + (setq |maxit| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4347,7 +4347,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|maxit|))))) - (SPADLET |maxfun| + (setq |maxfun| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4356,8 +4356,8 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|maxfun|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|minusOne|) '-1) ('T '1))) @@ -4366,9 +4366,9 @@ (|d02kefDefaultSolve| |htPage| |match| |k| |tol| |elam| |delam| |maxit| |maxfun| |ifail|)) ('T - (SPADLET |xpList| + (setq |xpList| (PROG (G167297) - (SPADLET G167297 NIL) + (setq G167297 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G167297) @@ -4376,10 +4376,10 @@ (SETQ G167297 (APPEND G167297 (|d02kefSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Value of {\\it p} for COEFFN:") - (SPADLET |middle| (STRCONC |middle| '|\\newline |)) - (SPADLET |cList| + (setq |middle| (STRCONC |middle| '|\\newline |)) + (setq |cList| (CONS (CONS '|text| |middle|) (CONS (CONS '|bcStrings| (CONS @@ -4388,10 +4388,10 @@ (CONS '|c1| (CONS 'EM NIL)))) NIL)) NIL))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Value of {\\it q} for COEFFN:") - (SPADLET |middle| (STRCONC |middle| '|\\newline |)) - (SPADLET |c1List| + (setq |middle| (STRCONC |middle| '|\\newline |)) + (setq |c1List| (CONS (CONS '|text| |middle|) (CONS (CONS '|bcStrings| (CONS @@ -4400,12 +4400,12 @@ (CONS '|c2| (CONS 'EM NIL)))) NIL)) NIL))) - (SPADLET |cList| (APPEND |cList| |c1List|)) - (SPADLET |middle| + (setq |cList| (APPEND |cList| |c1List|)) + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Value of {\\it dqdl}") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '| for COEFFN: \\newline |)) - (SPADLET |c2List| + (setq |c2List| (CONS (CONS '|text| |middle|) (CONS (CONS '|bcStrings| (CONS @@ -4414,14 +4414,14 @@ (CONS '|c3| (CONS 'EM NIL)))) NIL)) NIL))) - (SPADLET |cList| (APPEND |cList| |c2List|)) - (SPADLET |middle| + (setq |cList| (APPEND |cList| |c2List|)) + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Values of YL(1) & YL(2) ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|for BDYVAL: \\newline |)) - (SPADLET |ylList| + (setq |ylList| (PROG (G167305) - (SPADLET G167305 NIL) + (setq G167305 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 2) G167305) @@ -4429,15 +4429,15 @@ (SETQ G167305 (APPEND G167305 (|d02kefSolve,fb| |i|))))))))) - (SPADLET |ylList| + (setq |ylList| (CONS (CONS '|text| |middle|) |ylList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Values of YR(1) & YR(2) ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|for BDYVAL: \\newline |)) - (SPADLET |yrList| + (setq |yrList| (PROG (G167313) - (SPADLET G167313 NIL) + (setq G167313 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 2) G167313) @@ -4445,16 +4445,16 @@ (SETQ G167313 (APPEND G167313 (|d02kefSolve,fc| |i|))))))))) - (SPADLET |yrList| + (setq |yrList| (CONS (CONS '|text| |middle|) |yrList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Maximum step size ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|{\\it hmax(2,m)}: \\newline |)) - (SPADLET |hList| + (setq |hList| (PROG (G167321) - (SPADLET G167321 NIL) + (setq G167321 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 2) G167321) @@ -4462,9 +4462,9 @@ (SETQ G167321 (APPEND G167321 (|d02kefSolve,fd| |i| |m|))))))))) - (SPADLET |hList| + (setq |hList| (CONS (CONS '|text| |middle|) |hList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) @@ -4474,7 +4474,7 @@ (APPEND |cList| (APPEND |ylList| (APPEND |yrList| |hList|)))))) - (SPADLET |page| + (setq |page| (|htInitPage| "D02KEF - 2nd order Sturm-Liouville problem, regular/singular system, finite/infinite range, eigenvalue and eigenfunction, user-specified break-points" NIL)) @@ -4569,8 +4569,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |m| '5) - (SPADLET |page| + (setq |m| '5) + (setq |page| (|htInitPage| "D02KEF - 2nd order Sturm-Liouville problem, regular/singular system, finite/infinite range, eigenvalue and eigenfunction, user-specified break-points" NIL)) @@ -4694,37 +4694,37 @@ |prefix| |end|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |match| (|htpProperty| |htPage| '|match|)) - (SPADLET |k| (|htpProperty| |htPage| '|k|)) - (SPADLET |tol| (|htpProperty| |htPage| '|tol|)) - (SPADLET |elam| (|htpProperty| |htPage| '|elam|)) - (SPADLET |delam| (|htpProperty| |htPage| '|delam|)) - (SPADLET |maxit| (|htpProperty| |htPage| '|maxit|)) - (SPADLET |maxfun| (|htpProperty| |htPage| '|maxfun|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |match| (|htpProperty| |htPage| '|match|)) + (setq |k| (|htpProperty| |htPage| '|k|)) + (setq |tol| (|htpProperty| |htPage| '|tol|)) + (setq |elam| (|htpProperty| |htPage| '|elam|)) + (setq |delam| (|htpProperty| |htPage| '|delam|)) + (setq |maxit| (|htpProperty| |htPage| '|maxit|)) + (setq |maxfun| (|htpProperty| |htPage| '|maxfun|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| 2) NIL) (SEQ (EXIT (PROGN - (SPADLET |h| + (setq |h| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |h| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |hList| + (setq |y| (CDR |y|)))))) + (setq |hList| (APPEND |hList| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |hList| (REVERSE |hList|)) - (SPADLET |hstring| + (setq |rowList| NIL))))) + (setq |hList| (REVERSE |hList|)) + (setq |hstring| (|bcwords2liststring| (PROG (G167410) - (SPADLET G167410 NIL) + (setq G167410 NIL) (RETURN (DO ((G167415 |hList| (CDR G167415)) (|x| NIL)) @@ -4743,20 +4743,20 @@ ((QSGREATERP |j| 2) NIL) (SEQ (EXIT (PROGN - (SPADLET |b| + (setq |b| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |b| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bList| + (setq |y| (CDR |y|)))))) + (setq |bList| (APPEND |bList| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |bList| (REVERSE |bList|)) - (SPADLET |bstring| + (setq |rowList| NIL))))) + (setq |bList| (REVERSE |bList|)) + (setq |bstring| (|bcwords2liststring| (PROG (G167446) - (SPADLET G167446 NIL) + (setq G167446 NIL) (RETURN (DO ((G167451 |bList| (CDR G167451)) (|x| NIL)) @@ -4771,36 +4771,36 @@ G167446))))))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 3) NIL) (SEQ (EXIT (PROGN - (SPADLET |c| + (setq |c| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |cList| (CONS |c| |cList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |cstring| (|bcwords2liststring| |cList|)) + (setq |cList| (CONS |c| |cList|)) + (setq |y| (CDR |y|)))))) + (setq |cstring| (|bcwords2liststring| |cList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |x| + (setq |x| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xList| (CONS |x| |xList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xList|)) - (SPADLET |prefix| + (setq |xList| (CONS |x| |xList|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xList|)) + (setq |prefix| (STRCONC '|d02kef([| |xstring| '|]::Matrix DoubleFloat, | (STRINGIMAGE |m|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | (STRINGIMAGE |k|) '|, | |tol| '|, | (STRINGIMAGE |maxfun|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | (STRINGIMAGE |match|) '|, | (STRINGIMAGE |elam|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |delam|) '|, | |hstring| '|, | (STRINGIMAGE |maxit|))) - (SPADLET |end| + (setq |end| (STRCONC '|, | (STRINGIMAGE |ifail|) '|,(| |cstring| '|::Vector(Expression Float))::ASP10(COEFFN)|)) - (SPADLET |end| + (setq |end| (STRCONC |end| '|, (| |bstring| '|::Matrix Expression Float)::ASP80('BDYVAL))|)) (|linkGen| (STRCONC |prefix| |end|))))))) @@ -5137,13 +5137,13 @@ (DEFUN |d02rafSolve,fa| (|i|) (PROG (|prefix| |funct| |fnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline {\\em Function f") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline {\\em Function f") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) ":} \\space{1}")) - (SPADLET |funct| + (setq |funct| (STRCONC "Y[" (STRINGIMAGE |i|) '])) - (SPADLET |fnam| + (setq |fnam| (INTERN (STRCONC "f" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -5158,13 +5158,13 @@ (DEFUN |d02rafSolve,fb| (|i|) (PROG (|prefix| |fnc| |gnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline {\\em Function g") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline {\\em Function g") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) ":} \\space{1}")) - (SPADLET |fnc| + (setq |fnc| (STRCONC "YA[" (STRINGIMAGE |i|) '])) - (SPADLET |gnam| + (setq |gnam| (INTERN (STRCONC "g" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -5179,7 +5179,7 @@ (DEFUN |d02rafSolve,fc| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5197,7 +5197,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5205,7 +5205,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |mnp| + (setq |mnp| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5213,7 +5213,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|mnp|))))) - (SPADLET |np| + (setq |np| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5221,7 +5221,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|np|))))) - (SPADLET |numbeg| + (setq |numbeg| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5230,7 +5230,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|numbeg|))))) - (SPADLET |nummix| + (setq |nummix| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5239,13 +5239,13 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nummix|))))) - (SPADLET |tol| (|htpLabelInputString| |htPage| '|tol|)) - (SPADLET |mesh| (|htpButtonValue| |htPage| '|init|)) - (SPADLET |init| + (setq |tol| (|htpLabelInputString| |htPage| '|tol|)) + (setq |mesh| (|htpButtonValue| |htPage| '|init|)) + (setq |init| (COND ((BOOT-EQUAL |mesh| '|initzero|) '0) ('T '1))) - (SPADLET |iy| + (setq |iy| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5253,14 +5253,14 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|iy|))))) - (SPADLET |jacob| (|htpButtonValue| |htPage| '|ijac|)) - (SPADLET |ijac| + (setq |jacob| (|htpButtonValue| |htPage| '|ijac|)) + (setq |ijac| (COND ((BOOT-EQUAL |jacob| '|ijaczero|) '0) ('T '1))) - (SPADLET |deleps| + (setq |deleps| (|htpLabelInputString| |htPage| '|deleps|)) - (SPADLET |lwork| + (setq |lwork| (+ (+ (TIMES |mnp| (+ (+ @@ -5269,7 +5269,7 @@ 2)) (TIMES (TIMES 4 |n|) |n|)) (TIMES 3 |n|))) - (SPADLET |liwork| + (setq |liwork| (COND ((EQL |ijac| 0) (+ (+ (+ @@ -5281,22 +5281,22 @@ ('T (+ (TIMES |mnp| (+ (TIMES 2 |n|) 1)) |n|)))) - (SPADLET |aerror| (|htpButtonValue| |htPage| '|afail|)) - (SPADLET |afail| + (setq |aerror| (|htpButtonValue| |htPage| '|afail|)) + (setq |afail| (COND ((BOOT-EQUAL |aerror| '|azero|) '0) ('T '1))) - (SPADLET |berror| (|htpButtonValue| |htPage| '|bfail|)) - (SPADLET |bfail| + (setq |berror| (|htpButtonValue| |htPage| '|bfail|)) + (setq |bfail| (COND ((BOOT-EQUAL |berror| '|bone|) '1) ('T '0))) - (SPADLET |cerror| (|htpButtonValue| |htPage| '|cfail|)) - (SPADLET |cfail| + (setq |cerror| (|htpButtonValue| |htPage| '|cfail|)) + (setq |cfail| (COND ((BOOT-EQUAL |cerror| '|cone|) '1) ('T '0))) - (SPADLET |ifail| + (setq |ifail| (+ (+ (TIMES 100 |cfail|) (TIMES 10 |bfail|)) |afail|)) @@ -5310,9 +5310,9 @@ |liwork| |ifail|)) ((BOOT-EQUAL |init| '1) (|d02rafCopOut|)) ('T - (SPADLET |funcList| + (setq |funcList| (PROG (G167560) - (SPADLET G167560 NIL) + (setq G167560 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G167560) @@ -5320,17 +5320,17 @@ (SETQ G167560 (APPEND G167560 (|d02rafSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Enter the functions ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "\\htbitmap{gi} below ")) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "as functions of YA[i] and YB[i]: \\newline ")) - (SPADLET |gList| + (setq |gList| (PROG (G167568) - (SPADLET G167568 NIL) + (setq G167568 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G167568) @@ -5338,16 +5338,16 @@ (SETQ G167568 (APPEND G167568 (|d02rafSolve,fb| |i|))))))))) - (SPADLET |gList| + (setq |gList| (CONS (CONS '|text| |middle|) |gList|)) - (SPADLET |mid| + (setq |mid| "\\blankline \\menuitemstyle{} \\tab{2} Enter the array ") - (SPADLET |mid| + (setq |mid| (STRCONC |mid| "{\\it x(mnp)}: \\newline ")) - (SPADLET |xList| + (setq |xList| (PROG (G167576) - (SPADLET G167576 NIL) + (setq G167576 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mnp|) G167576) @@ -5355,8 +5355,8 @@ (SETQ G167576 (APPEND G167576 (|d02rafSolve,fc| |i|))))))))) - (SPADLET |xList| (CONS (CONS '|text| |mid|) |xList|)) - (SPADLET |equationPart| + (setq |xList| (CONS (CONS '|text| |mid|) |xList|)) + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) @@ -5364,7 +5364,7 @@ (|isDomain| I (|Integer|))) (APPEND |funcList| (APPEND |gList| |xList|)))) - (SPADLET |page| + (setq |page| (|htInitPage| "D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility" NIL)) @@ -5489,8 +5489,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |page| + (setq |n| '3) + (setq |page| (|htInitPage| "D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility" NIL)) @@ -5632,78 +5632,78 @@ |fstring| |prefix| |middle|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |mnp| (|htpProperty| |htPage| '|mnp|)) - (SPADLET |np| (|htpProperty| |htPage| '|np|)) - (SPADLET |numbeg| (|htpProperty| |htPage| '|numbeg|)) - (SPADLET |nummix| (|htpProperty| |htPage| '|nummix|)) - (SPADLET |tol| (|htpProperty| |htPage| '|tol|)) - (SPADLET |init| (|htpProperty| |htPage| '|init|)) - (SPADLET |iy| (|htpProperty| |htPage| '|iy|)) - (SPADLET |ijac| (|htpProperty| |htPage| '|ijac|)) - (SPADLET |deleps| (|htpProperty| |htPage| '|deleps|)) - (SPADLET |lwork| (|htpProperty| |htPage| '|lwork|)) - (SPADLET |liwork| (|htpProperty| |htPage| '|liwork|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |mnp| (|htpProperty| |htPage| '|mnp|)) + (setq |np| (|htpProperty| |htPage| '|np|)) + (setq |numbeg| (|htpProperty| |htPage| '|numbeg|)) + (setq |nummix| (|htpProperty| |htPage| '|nummix|)) + (setq |tol| (|htpProperty| |htPage| '|tol|)) + (setq |init| (|htpProperty| |htPage| '|init|)) + (setq |iy| (|htpProperty| |htPage| '|iy|)) + (setq |ijac| (|htpProperty| |htPage| '|ijac|)) + (setq |deleps| (|htpProperty| |htPage| '|deleps|)) + (setq |lwork| (|htpProperty| |htPage| '|lwork|)) + (setq |liwork| (|htpProperty| |htPage| '|liwork|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mnp|) NIL) (SEQ (EXIT (PROGN - (SPADLET |xtemp| + (setq |xtemp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xList| (CONS |xtemp| |xList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xList|)) + (setq |xList| (CONS |xtemp| |xList|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |gtemp| + (setq |gtemp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |gList| (CONS |gtemp| |gList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |gstring| (|bcwords2liststring| |gList|)) + (setq |gList| (CONS |gtemp| |gList|)) + (setq |y| (CDR |y|)))))) + (setq |gstring| (|bcwords2liststring| |gList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |f| + (setq |f| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |fList| (CONS |f| |fList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |fstring| (|bcwords2liststring| |fList|)) - (SPADLET |prefix| + (setq |fList| (CONS |f| |fList|)) + (setq |y| (CDR |y|)))))) + (setq |fstring| (|bcwords2liststring| |fList|)) + (setq |prefix| (STRCONC '|d02raf(| (STRINGIMAGE |n|) '|, | (STRINGIMAGE |mnp|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |numbeg|) '|, | (STRINGIMAGE |nummix|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |tol| '|, | (STRINGIMAGE |init|) '|, | (STRINGIMAGE |iy|) '|, |)) - (SPADLET |middle| + (setq |middle| (STRCONC (STRINGIMAGE |ijac|) '|, | (STRINGIMAGE |lwork|) '|, |)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| (STRINGIMAGE |liwork|) '|, | (STRINGIMAGE |np|) '|, [|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| |xstring| '|],[[0.0 for i in 1..| (STRINGIMAGE |mnp|))) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|] for j in 1..| (STRINGIMAGE |iy|) '])) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|:: Matrix DoubleFloat,| (STRINGIMAGE |deleps|) '|, |)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| (STRINGIMAGE |ifail|) '|, (| |fstring| '|::Vector |)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|Expression Float)::ASP41('FCN,'JACOBF,'JACEPS),(|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| |gstring| '|::Vector Expression Float)::ASP42('G,'JACOBG,|)) - (SPADLET |middle| (STRCONC |middle| '|'JACGEP))|)) + (setq |middle| (STRCONC |middle| '|'JACGEP))|)) (|linkGen| (STRCONC |prefix| |middle|))))))) ; diff --git a/src/interp/nag-d03.lisp.pamphlet b/src/interp/nag-d03.lisp.pamphlet index 4824223..bb0644c 100644 --- a/src/interp/nag-d03.lisp.pamphlet +++ b/src/interp/nag-d03.lisp.pamphlet @@ -100,7 +100,7 @@ (PROG (|type|) (RETURN (PROGN - (SPADLET |type| (|htpButtonValue| |htPage| '|matrix|)) + (setq |type| (|htpButtonValue| |htPage| '|matrix|)) (COND ((BOOT-EQUAL |type| '|long|) (|d03edfLong|)) ('T (|d03edfShort|))))))) @@ -314,7 +314,7 @@ (DEFUN |d03edfSolve,fb| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -327,23 +327,23 @@ (DEFUN |d03edfSolve,fa| (|i|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166083) - (SPADLET G166083 NIL) + (setq G166083 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| 7) G166083) (SEQ (EXIT (SETQ G166083 (APPEND G166083 (|d03edfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |d03edfSolve,fc| (|i|) (PROG (|rnam|) (RETURN - (SEQ (SPADLET |rnam| + (SEQ (setq |rnam| (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -356,7 +356,7 @@ (DEFUN |d03edfSolve,fd| (|i|) (PROG (|unam|) (RETURN - (SEQ (SPADLET |unam| + (SEQ (setq |unam| (INTERN (STRCONC "u" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -373,7 +373,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |ngx| + (setq |ngx| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -381,7 +381,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ngx|))))) - (SPADLET |ngy| + (setq |ngy| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -389,7 +389,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ngy|))))) - (SPADLET |lda| + (setq |lda| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -397,7 +397,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lda|))))) - (SPADLET |maxit| + (setq |maxit| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -406,9 +406,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|maxit|))))) - (SPADLET |acc| (|htpLabelInputString| |htPage| '|acc|)) - (SPADLET |control| (|htpButtonValue| |htPage| '|iout|)) - (SPADLET |iout| + (setq |acc| (|htpLabelInputString| |htPage| '|acc|)) + (setq |control| (|htpButtonValue| |htPage| '|iout|)) + (setq |iout| (COND ((BOOT-EQUAL |control| '|zero|) '0) ((BOOT-EQUAL |control| '|one|) '1) @@ -419,42 +419,42 @@ ((BOOT-EQUAL |control| '|six|) '6) ((BOOT-EQUAL |control| '|seven|) '7) ('T '8))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|ifailone|) '1) ('T '-1))) - (SPADLET |aList| + (setq |aList| (PROG (G166112) - (SPADLET G166112 NIL) + (setq G166112 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G166112) (SEQ (EXIT (SETQ G166112 (APPEND G166112 (|d03edfSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "{\\it rhs(lda)}: \\newline ")) - (SPADLET |rList| + (setq |rList| (PROG (G166120) - (SPADLET G166120 NIL) + (setq G166120 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G166120) (SEQ (EXIT (SETQ G166120 (APPEND G166120 (|d03edfSolve,fc| |i|))))))))) - (SPADLET |rList| (CONS (CONS '|text| |middle|) |rList|)) - (SPADLET |mid| + (setq |rList| (CONS (CONS '|text| |middle|) |rList|)) + (setq |mid| "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix ") - (SPADLET |mid| + (setq |mid| (STRCONC |mid| " {\\it ub(ngx*ngy)}: \\newline ")) - (SPADLET |uList| + (setq |uList| (PROG (G166128) - (SPADLET G166128 NIL) + (setq G166128 NIL) (RETURN (DO ((G166133 (TIMES |ngx| |ngy|)) (|i| 1 (QSADD1 |i|))) @@ -462,15 +462,15 @@ (SEQ (EXIT (SETQ G166128 (APPEND G166128 (|d03edfSolve,fd| |i|))))))))) - (SPADLET |uList| (CONS (CONS '|text| |mid|) |uList|)) - (SPADLET |equationPart| + (setq |uList| (CONS (CONS '|text| |mid|) |uList|)) + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) (APPEND |aList| (APPEND |rList| |uList|)))) - (SPADLET |page| + (setq |page| (|htInitPage| "D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique " NIL)) @@ -532,50 +532,50 @@ |rowList| |vList| |astring| |prefix| |mid|) (RETURN (SEQ (PROGN - (SPADLET |ngx| (|htpProperty| |htPage| '|ngx|)) - (SPADLET |ngy| (|htpProperty| |htPage| '|ngy|)) - (SPADLET |lda| (|htpProperty| |htPage| '|lda|)) - (SPADLET |maxit| (|htpProperty| |htPage| '|maxit|)) - (SPADLET |acc| (|htpProperty| |htPage| '|acc|)) - (SPADLET |iout| (|htpProperty| |htPage| '|iout|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |ngx| (|htpProperty| |htPage| '|ngx|)) + (setq |ngy| (|htpProperty| |htPage| '|ngy|)) + (setq |lda| (|htpProperty| |htPage| '|lda|)) + (setq |maxit| (|htpProperty| |htPage| '|maxit|)) + (setq |acc| (|htpProperty| |htPage| '|acc|)) + (setq |iout| (|htpProperty| |htPage| '|iout|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((G166174 (TIMES |ngx| |ngy|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166174) NIL) (SEQ (EXIT (PROGN - (SPADLET |utemp| + (setq |utemp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |uList| (CONS |utemp| |uList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |ustring| (|bcwords2liststring| |uList|)) + (setq |uList| (CONS |utemp| |uList|)) + (setq |y| (CDR |y|)))))) + (setq |ustring| (|bcwords2liststring| |uList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) NIL) (SEQ (EXIT (PROGN - (SPADLET |rtemp| + (setq |rtemp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rList| (CONS |rtemp| |rList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |rstring| (|bcwords2liststring| |rList|)) + (setq |rList| (CONS |rtemp| |rList|)) + (setq |y| (CDR |y|)))))) + (setq |rstring| (|bcwords2liststring| |rList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| 7) NIL) (SEQ (EXIT (PROGN - (SPADLET |v| + (setq |v| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |v| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |vList| + (setq |y| (CDR |y|)))))) + (setq |vList| (APPEND |vList| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |vList| (REVERSE |vList|)) - (SPADLET |astring| + (setq |rowList| NIL))))) + (setq |vList| (REVERSE |vList|)) + (setq |astring| (|bcwords2liststring| (PROG (G166212) - (SPADLET G166212 NIL) + (setq G166212 NIL) (RETURN (DO ((G166217 |vList| (CDR G166217)) (|x| NIL)) @@ -588,16 +588,16 @@ (SETQ G166212 (CONS (|bcwords2liststring| |x|) G166212))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC '|d03edf(| (STRINGIMAGE |ngx|) '|, | (STRINGIMAGE |ngy|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | (STRINGIMAGE |maxit|) '|, | |acc|)) - (SPADLET |mid| + (setq |mid| (STRCONC '|, | (STRINGIMAGE |iout|) '|, | |astring| '|::Matrix DoubleFloat,[|)) - (SPADLET |mid| + (setq |mid| (STRCONC |mid| |rstring| '|],[| |ustring| '|],| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| (STRCONC |prefix| |mid|))))))) @@ -812,7 +812,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |ngx| + (setq |ngx| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -820,7 +820,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ngx|))))) - (SPADLET |ngy| + (setq |ngy| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -828,7 +828,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ngy|))))) - (SPADLET |lda| + (setq |lda| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -836,7 +836,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lda|))))) - (SPADLET |maxit| + (setq |maxit| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -844,12 +844,12 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|maxit|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |rhs| (|htpLabelInputString| |htPage| '|rhs|)) - (SPADLET |ub| (|htpLabelInputString| |htPage| '|ub|)) - (SPADLET |acc| (|htpLabelInputString| |htPage| '|acc|)) - (SPADLET |control| (|htpButtonValue| |htPage| '|iout|)) - (SPADLET |iout| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |rhs| (|htpLabelInputString| |htPage| '|rhs|)) + (setq |ub| (|htpLabelInputString| |htPage| '|ub|)) + (setq |acc| (|htpLabelInputString| |htPage| '|acc|)) + (setq |control| (|htpButtonValue| |htPage| '|iout|)) + (setq |iout| (COND ((BOOT-EQUAL |control| '|zero|) '0) ((BOOT-EQUAL |control| '|one|) '1) @@ -860,18 +860,18 @@ ((BOOT-EQUAL |control| '|six|) '6) ((BOOT-EQUAL |control| '|seven|) '7) ('T '8))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|ifailone|) '1) ('T '-1))) - (SPADLET |prefix| + (setq |prefix| (STRCONC '|d03edf(| (STRINGIMAGE |ngx|) '|, | (STRINGIMAGE |ngy|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | (STRINGIMAGE |maxit|) '|, | |acc|)) - (SPADLET |mid| + (setq |mid| (STRCONC '|, | (STRINGIMAGE |iout|) '|, | |a| '|, |)) - (SPADLET |mid| + (setq |mid| (STRCONC |mid| |rhs| '|, | |ub| '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| (STRCONC |prefix| |mid|)))))) @@ -1113,11 +1113,11 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |xmin| (|htpLabelInputString| |htPage| '|xmin|)) - (SPADLET |xmax| (|htpLabelInputString| |htPage| '|xmax|)) - (SPADLET |ymin| (|htpLabelInputString| |htPage| '|ymin|)) - (SPADLET |ymax| (|htpLabelInputString| |htPage| '|ymax|)) - (SPADLET |ngx| + (setq |xmin| (|htpLabelInputString| |htPage| '|xmin|)) + (setq |xmax| (|htpLabelInputString| |htPage| '|xmax|)) + (setq |ymin| (|htpLabelInputString| |htPage| '|ymin|)) + (setq |ymax| (|htpLabelInputString| |htPage| '|ymax|)) + (setq |ngx| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1125,7 +1125,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ngx|))))) - (SPADLET |ngy| + (setq |ngy| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1133,7 +1133,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ngy|))))) - (SPADLET |lda| + (setq |lda| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1141,13 +1141,13 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lda|))))) - (SPADLET |diff| (|htpButtonValue| |htPage| '|scheme|)) - (SPADLET |scheme| + (setq |diff| (|htpButtonValue| |htPage| '|scheme|)) + (setq |scheme| (COND ((BOOT-EQUAL |diff| '|cent|) "C") ('T "U"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (|d03eefDefaultSolve| |htPage| |xmin| |xmax| |ymin| |ymax| |ngx| |ngy| |lda| |scheme| |ifail|))))) @@ -1253,7 +1253,7 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| "D03EEF - Discretize a 2nd order elliptic PDE on a rectangle" NIL)) @@ -1388,37 +1388,37 @@ |y| |ustring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |xmin| (|htpProperty| |htPage| '|xmin|)) - (SPADLET |xmax| (|htpProperty| |htPage| '|xmax|)) - (SPADLET |ymin| (|htpProperty| |htPage| '|ymin|)) - (SPADLET |ymax| (|htpProperty| |htPage| '|ymax|)) - (SPADLET |ngx| (|htpProperty| |htPage| '|ngx|)) - (SPADLET |ngy| (|htpProperty| |htPage| '|ngy|)) - (SPADLET |lda| (|htpProperty| |htPage| '|lda|)) - (SPADLET |scheme| (|htpProperty| |htPage| '|scheme|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |xmin| (|htpProperty| |htPage| '|xmin|)) + (setq |xmax| (|htpProperty| |htPage| '|xmax|)) + (setq |ymin| (|htpProperty| |htPage| '|ymin|)) + (setq |ymax| (|htpProperty| |htPage| '|ymax|)) + (setq |ngx| (|htpProperty| |htPage| '|ngx|)) + (setq |ngy| (|htpProperty| |htPage| '|ngy|)) + (setq |lda| (|htpProperty| |htPage| '|lda|)) + (setq |scheme| (|htpProperty| |htPage| '|scheme|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| 3) NIL) (SEQ (EXIT (PROGN - (SPADLET |v| + (setq |v| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |v| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |vList| + (setq |y| (CDR |y|)))))) + (setq |vList| (APPEND |vList| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |vList| (REVERSE |vList|)) - (SPADLET |astring| + (setq |rowList| NIL))))) + (setq |vList| (REVERSE |vList|)) + (setq |astring| (|bcwords2liststring| (PROG (G166347) - (SPADLET G166347 NIL) + (setq G166347 NIL) (RETURN (DO ((G166352 |vList| (CDR G166352)) (|x| NIL)) @@ -1433,27 +1433,27 @@ G166347))))))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 7) NIL) (SEQ (EXIT (PROGN - (SPADLET |utemp| + (setq |utemp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |uList| (CONS |utemp| |uList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |ustring| (|bcwords2liststring| |uList|)) - (SPADLET |prefix| + (setq |uList| (CONS |utemp| |uList|)) + (setq |y| (CDR |y|)))))) + (setq |ustring| (|bcwords2liststring| |uList|)) + (setq |prefix| (STRCONC '|d03eef(| |xmin| '|, | |xmax| '|, | |ymin| '|, | |ymax| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ngx|) '|, | (STRINGIMAGE |ngy|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|,"| |scheme| '|", |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|, (| |ustring|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|::Vector Expression Float)::ASP73('PDEF),(|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |astring| '|::Matrix Expression Float)::ASP74('BNDY))|)) (|linkGen| |prefix|)))))) diff --git a/src/interp/nag-e01.lisp.pamphlet b/src/interp/nag-e01.lisp.pamphlet index f42d0d4..a13df85 100644 --- a/src/interp/nag-e01.lisp.pamphlet +++ b/src/interp/nag-e01.lisp.pamphlet @@ -111,15 +111,15 @@ (DEFUN |e01bafSolve,f| (|i|) (PROG (|prefix| |post| |xnam| |ynam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |post| "\\tab{32} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |post| "\\tab{32} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -145,7 +145,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -153,16 +153,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |m| '7) (|e01bafDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166074) - (SPADLET G166074 NIL) + (setq G166074 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G166074) @@ -170,7 +170,7 @@ (SETQ G166074 (APPEND G166074 (|e01bafSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -178,7 +178,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E01BAF - Interpolating functions, cubic spline interpolant, one variable| (|htpPropertyList| |htPage|))) @@ -242,8 +242,8 @@ (PROG (|m| |page|) (RETURN (PROGN - (SPADLET |m| '7) - (SPADLET |page| + (setq |m| '7) + (setq |page| (|htInitPage| "E01BAF - Interpolating functions, cubic spline interpolant, one variable" (|htpPropertyList| |htPage|))) @@ -308,30 +308,30 @@ |imaglist| |realstring| |imagstring| |pre| |post|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |lck| (+ |m| 4)) - (SPADLET |lwrk| (+ (TIMES 6 |m|) 16)) - (SPADLET |y| |alist|) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |lck| (+ |m| 4)) + (setq |lwrk| (+ (TIMES 6 |m|) 16)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)) - (SPADLET |imaglist| + (setq |imaglist| (CONS |right| |imaglist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) - (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) - (SPADLET |pre| + (setq |realstring| (|bcwords2liststring| |reallist|)) + (setq |imagstring| (|bcwords2liststring| |imaglist|)) + (setq |pre| (STRCONC "e01baf(" (STRINGIMAGE |m|) '|,[| |realstring| '|],[| |imagstring|)) - (SPADLET |post| + (setq |post| (STRCONC "]," (STRINGIMAGE |lck|) '|,| (STRINGIMAGE |lwrk|) '|,|)) (|linkGen| @@ -445,15 +445,15 @@ (DEFUN |e01befSolve,f| (|i|) (PROG (|prefix| |post| |xnam| |ynam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |post| "\\tab{32} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |post| "\\tab{32} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -479,7 +479,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -487,8 +487,8 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ((BOOT-EQUAL |error| '|zero|) '0) @@ -497,9 +497,9 @@ ((BOOT-EQUAL |n| '9) (|e01befDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166148) - (SPADLET G166148 NIL) + (setq G166148 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166148) @@ -507,7 +507,7 @@ (SETQ G166148 (APPEND G166148 (|e01befSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -515,7 +515,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E01BEF - Interpolating functions, monoticity preserving, piecewise cubic Hermite, one variable| (|htpPropertyList| |htPage|))) @@ -590,8 +590,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '9) - (SPADLET |page| + (setq |n| '9) + (setq |page| (|htInitPage| "E01BEF - Interpolating functions, monoticity preserving, piecewise cubic Hermite, one variable" (|htpPropertyList| |htPage|))) @@ -661,26 +661,26 @@ |imaglist| |realstring| |imagstring|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |lck| (+ |n| 4)) - (SPADLET |lwrk| (+ (TIMES 6 |n|) 16)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |lck| (+ |n| 4)) + (setq |lwrk| (+ (TIMES 6 |n|) 16)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |reallist| + (setq |y| (CDR |y|)) + (setq |reallist| (CONS |left| |reallist|)) - (SPADLET |imaglist| + (setq |imaglist| (CONS |right| |imaglist|)))))) - (SPADLET |realstring| (|bcwords2liststring| |reallist|)) - (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) + (setq |realstring| (|bcwords2liststring| |reallist|)) + (setq |imagstring| (|bcwords2liststring| |imaglist|)) (|linkGen| (STRCONC "e01bef(" (STRINGIMAGE |n|) '|,[| |realstring| '|],[| |imagstring| '|],| @@ -811,19 +811,19 @@ (DEFUN |e01bffSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |post| " \\tab{42} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |post| " \\tab{42} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |znam| + (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -855,8 +855,8 @@ (DEFUN |e01bffSolve,g| (|j|) (PROG (|preamb| |pnam|) (RETURN - (SEQ (SPADLET |preamb| "\\newline \\tab{2} ") - (SPADLET |pnam| + (SEQ (setq |preamb| "\\newline \\tab{2} ") + (setq |pnam| (INTERN (STRCONC "px" (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|text| |preamb|) @@ -874,7 +874,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -882,7 +882,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -890,16 +890,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |n| '9) (BOOT-EQUAL |m| '11)) (|e01bffDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166230) - (SPADLET G166230 NIL) + (setq G166230 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166230) @@ -907,15 +907,15 @@ (SETQ G166230 (APPEND G166230 (|e01bffSolve,f| |i|))))))))) - (SPADLET |pxwords| + (setq |pxwords| "\\blankline \\menuitemstyle{}\\tab{2} Values of ") - (SPADLET |pxwords| + (setq |pxwords| (STRCONC |pxwords| "array {\\it Px}: \\newline ")) - (SPADLET |pxwords| (CONS '|text| |pxwords|)) - (SPADLET |pointList| + (setq |pxwords| (CONS '|text| |pxwords|)) + (setq |pointList| (PROG (G166238) - (SPADLET G166238 NIL) + (setq G166238 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |m|) G166238) @@ -923,10 +923,10 @@ (SETQ G166238 (APPEND G166238 (|e01bffSolve,g| |j|))))))))) - (SPADLET |labelList| + (setq |labelList| (APPEND |labelList| (CONS |pxwords| |pointList|))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -934,7 +934,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E01BFF - Interpolated values, interpolant computed by E01BEF, function only, one variable| (|htpPropertyList| |htPage|))) @@ -1058,9 +1058,9 @@ (PROG (|n| |m| |page|) (RETURN (PROGN - (SPADLET |n| '9) - (SPADLET |m| '11) - (SPADLET |page| + (setq |n| '9) + (setq |m| '11) + (setq |page| (|htInitPage| "E01BFF - Interpolated values, interpolant computed by E01BEF, function only, one variable" (|htpPropertyList| |htPage|))) @@ -1192,45 +1192,45 @@ |fstring| |dstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |lck| (+ |n| 4)) - (SPADLET |lwrk| (+ (TIMES 6 |n|) 16)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |lck| (+ |n| 4)) + (setq |lwrk| (+ (TIMES 6 |n|) 16)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) NIL) (SEQ (EXIT (PROGN - (SPADLET |px| + (setq |px| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |pxlist| (CONS |px| |pxlist|)))))) - (SPADLET |pxstring| (|bcwords2liststring| |pxlist|)) + (setq |y| (CDR |y|)) + (setq |pxlist| (CONS |px| |pxlist|)))))) + (setq |pxstring| (|bcwords2liststring| |pxlist|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |flist| (CONS |mid| |flist|)) - (SPADLET |dlist| (CONS |right| |dlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |fstring| (|bcwords2liststring| |flist|)) - (SPADLET |dstring| (|bcwords2liststring| |dlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |flist| (CONS |mid| |flist|)) + (setq |dlist| (CONS |right| |dlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |fstring| (|bcwords2liststring| |flist|)) + (setq |dstring| (|bcwords2liststring| |dlist|)) + (setq |prefix| (STRCONC "e01bff(" (STRINGIMAGE |n|) '|,[| |xstring| '|],[| |fstring|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|],[| |dstring| '|],| (STRINGIMAGE |m|) '|,[| |pxstring| '|],|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -1360,19 +1360,19 @@ (DEFUN |e01bgfSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |post| " \\tab{42} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |post| " \\tab{42} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |znam| + (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -1404,8 +1404,8 @@ (DEFUN |e01bgfSolve,g| (|j|) (PROG (|preamb| |pnam|) (RETURN - (SEQ (SPADLET |preamb| "\\newline \\tab{2} ") - (SPADLET |pnam| + (SEQ (setq |preamb| "\\newline \\tab{2} ") + (setq |pnam| (INTERN (STRCONC "px" (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|text| |preamb|) @@ -1423,7 +1423,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1431,7 +1431,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1439,16 +1439,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |n| '9) (BOOT-EQUAL |m| '11)) (|e01bgfDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166353) - (SPADLET G166353 NIL) + (setq G166353 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166353) @@ -1456,15 +1456,15 @@ (SETQ G166353 (APPEND G166353 (|e01bgfSolve,f| |i|))))))))) - (SPADLET |pxwords| + (setq |pxwords| "\\blankline \\menuitemstyle{}\\tab{2} Values of ") - (SPADLET |pxwords| + (setq |pxwords| (STRCONC |pxwords| "array {\\it Px}: \\newline ")) - (SPADLET |pxwords| (CONS '|text| |pxwords|)) - (SPADLET |pointList| + (setq |pxwords| (CONS '|text| |pxwords|)) + (setq |pointList| (PROG (G166361) - (SPADLET G166361 NIL) + (setq G166361 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |m|) G166361) @@ -1472,10 +1472,10 @@ (SETQ G166361 (APPEND G166361 (|e01bgfSolve,g| |j|))))))))) - (SPADLET |labelList| + (setq |labelList| (APPEND |labelList| (CONS |pxwords| |pointList|))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -1483,7 +1483,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E01BGF - Interpolated values, interpolant computed by E01BEF, function and 1st derivative, one variable| (|htpPropertyList| |htPage|))) @@ -1606,9 +1606,9 @@ (PROG (|n| |m| |page|) (RETURN (PROGN - (SPADLET |n| '9) - (SPADLET |m| '11) - (SPADLET |page| + (setq |n| '9) + (setq |m| '11) + (setq |page| (|htInitPage| "E01BGF - Interpolated values, interpolant computed by E01BEF, function and 1st derivative, one variable" (|htpPropertyList| |htPage|))) @@ -1739,45 +1739,45 @@ |fstring| |dstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |lck| (+ |n| 4)) - (SPADLET |lwrk| (+ (TIMES 6 |n|) 16)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |lck| (+ |n| 4)) + (setq |lwrk| (+ (TIMES 6 |n|) 16)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) NIL) (SEQ (EXIT (PROGN - (SPADLET |px| + (setq |px| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |pxlist| (CONS |px| |pxlist|)))))) - (SPADLET |pxstring| (|bcwords2liststring| |pxlist|)) + (setq |y| (CDR |y|)) + (setq |pxlist| (CONS |px| |pxlist|)))))) + (setq |pxstring| (|bcwords2liststring| |pxlist|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |flist| (CONS |mid| |flist|)) - (SPADLET |dlist| (CONS |right| |dlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |fstring| (|bcwords2liststring| |flist|)) - (SPADLET |dstring| (|bcwords2liststring| |dlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |flist| (CONS |mid| |flist|)) + (setq |dlist| (CONS |right| |dlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |fstring| (|bcwords2liststring| |flist|)) + (setq |dstring| (|bcwords2liststring| |dlist|)) + (setq |prefix| (STRCONC "e01bgf(" (STRINGIMAGE |n|) '|,[| |xstring| '|],[| |fstring|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|],[| |dstring| '|],| (STRINGIMAGE |m|) '|,[| |pxstring| '|],|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -1904,19 +1904,19 @@ (DEFUN |e01bhfSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |post| " \\tab{42} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |post| " \\tab{42} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |znam| + (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -1950,7 +1950,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1958,18 +1958,18 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |b| (|htpLabelInputString| |htPage| '|b|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |b| (|htpLabelInputString| |htPage| '|b|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '9) (|e01bhfDefaultSolve| |htPage| |a| |b| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166468) - (SPADLET G166468 NIL) + (setq G166468 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166468) @@ -1977,7 +1977,7 @@ (SETQ G166468 (APPEND G166468 (|e01bhfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -1985,7 +1985,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E01BHF - Interpolated values, interpolant computed by E01BEF, definite integral, one variable| (|htpPropertyList| |htPage|))) @@ -2084,8 +2084,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '9) - (SPADLET |page| + (setq |n| '9) + (setq |page| (|htInitPage| "E01BHF - Interpolated values, interpolant computed by E01BEF, definite integral, one variable" (|htpPropertyList| |htPage|))) @@ -2187,35 +2187,35 @@ |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |a| (|htpProperty| |htPage| '|a|)) - (SPADLET |b| (|htpProperty| |htPage| '|b|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |lck| (+ |n| 4)) - (SPADLET |lwrk| (+ (TIMES 6 |n|) 16)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |a| (|htpProperty| |htPage| '|a|)) + (setq |b| (|htpProperty| |htPage| '|b|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |lck| (+ |n| 4)) + (setq |lwrk| (+ (TIMES 6 |n|) 16)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |flist| (CONS |mid| |flist|)) - (SPADLET |dlist| (CONS |right| |dlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |fstring| (|bcwords2liststring| |flist|)) - (SPADLET |dstring| (|bcwords2liststring| |dlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |flist| (CONS |mid| |flist|)) + (setq |dlist| (CONS |right| |dlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |fstring| (|bcwords2liststring| |flist|)) + (setq |dstring| (|bcwords2liststring| |dlist|)) + (setq |prefix| (STRCONC "e01bhf(" (STRINGIMAGE |n|) '|,[| |xstring| '|],[| |fstring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |dstring| '|],| (STRINGIMAGE |a|) '|,| (STRINGIMAGE |b|) '|,| (STRINGIMAGE |ifail|) '|)|)) @@ -2361,7 +2361,7 @@ (DEFUN |e01dafSolve,f| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2374,7 +2374,7 @@ (DEFUN |e01dafSolve,g| (|i|) (PROG (|ynam|) (RETURN - (SEQ (SPADLET |ynam| + (SEQ (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2387,7 +2387,7 @@ (DEFUN |e01dafSolve,k| (|j| |m|) (PROG (|fnam|) (RETURN - (SEQ (SPADLET |fnam| + (SEQ (setq |fnam| (INTERN (STRCONC "f" (STRINGIMAGE |j|) (STRINGIMAGE |m|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2400,17 +2400,17 @@ (DEFUN |e01dafSolve,h| (|j| |my|) (PROG (|prefix| |tempList|) (RETURN - (SEQ (SPADLET |tempList| + (SEQ (setq |tempList| (PROG (G166562) - (SPADLET G166562 NIL) + (setq G166562 NIL) (RETURN (DO ((|m| 1 (QSADD1 |m|))) ((QSGREATERP |m| |my|) G166562) (SEQ (EXIT (SETQ G166562 (APPEND G166562 (|e01dafSolve,k| |j| |m|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |tempList| + (setq |prefix| "\\newline ") + (EXIT (setq |tempList| (CONS (CONS '|text| |prefix|) |tempList|))))))) (DEFUN |e01dafSolve| (|htPage|) @@ -2419,7 +2419,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |mx| + (setq |mx| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2427,7 +2427,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|mx|))))) - (SPADLET |my| + (setq |my| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2435,16 +2435,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|my|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |mx| '7) (BOOT-EQUAL |my| '6)) (|e01dafDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |xList| + (setq |xList| (PROG (G166579) - (SPADLET G166579 NIL) + (setq G166579 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mx|) G166579) @@ -2452,13 +2452,13 @@ (SETQ G166579 (APPEND G166579 (|e01dafSolve,f| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\newline \\menuitemstyle{}\\tab{2} Values of X(1) to X(MX): \\newline ") - (SPADLET |xList| + (setq |xList| (CONS (CONS '|text| |prefix|) |xList|)) - (SPADLET |yList| + (setq |yList| (PROG (G166587) - (SPADLET G166587 NIL) + (setq G166587 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |my|) G166587) @@ -2466,13 +2466,13 @@ (SETQ G166587 (APPEND G166587 (|e01dafSolve,g| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline\\menuitemstyle{}\\tab{2}Values of Y(1) to Y(MY): \\newline ") - (SPADLET |yList| + (setq |yList| (CONS (CONS '|text| |prefix|) |yList|)) - (SPADLET |fList| + (setq |fList| (PROG (G166595) - (SPADLET G166595 NIL) + (setq G166595 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |mx|) G166595) @@ -2480,14 +2480,14 @@ (SETQ G166595 (APPEND G166595 (|e01dafSolve,h| |j| |my|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Values of F(MX*MY) ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| "(x down, y across): ")) - (SPADLET |fList| + (setq |fList| (CONS (CONS '|text| |prefix|) |fList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -2496,7 +2496,7 @@ (|isDomain| PI (|PositiveInteger|))) (APPEND |xList| (APPEND |yList| |fList|)))) - (SPADLET |page| + (setq |page| (|htInitPage| '|E01DAF - Interpolating functions, fitting bicubic spline, data on a rectanglar grid| (|htpPropertyList| |htPage|))) @@ -2601,9 +2601,9 @@ (PROG (|mx| |my| |page|) (RETURN (PROGN - (SPADLET |mx| '7) - (SPADLET |my| '6) - (SPADLET |page| + (setq |mx| '7) + (setq |my| '6) + (setq |page| (|htInitPage| "E01DAF - Interpolating functions, fitting bicubic spline, data on rectangular grid" (|htpPropertyList| |htPage|))) @@ -2709,37 +2709,37 @@ |xlist| |ystring| |fstring| |prefix| |midd|) (RETURN (SEQ (PROGN - (SPADLET |mx| (|htpProperty| |htPage| '|mx|)) - (SPADLET |my| (|htpProperty| |htPage| '|my|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |mx| (|htpProperty| |htPage| '|mx|)) + (setq |my| (|htpProperty| |htPage| '|my|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |right| |xlist|)))))) + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |right| |xlist|)))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mx|) NIL) (SEQ (EXIT (PROGN - (SPADLET |xmx| + (setq |xmx| (APPEND |xmx| (CONS (CAR |xlist|) NIL))) - (SPADLET |xlist| (CDR |xlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xmx|)) + (setq |xlist| (CDR |xlist|)))))) + (setq |xstring| (|bcwords2liststring| |xmx|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |my|) NIL) (SEQ (EXIT (PROGN - (SPADLET |ymy| + (setq |ymy| (APPEND |ymy| (CONS (CAR |xlist|) NIL))) - (SPADLET |xlist| (CDR |xlist|)))))) - (SPADLET |ystring| (|bcwords2liststring| |ymy|)) - (SPADLET |fstring| (|bcwords2liststring| |xlist|)) - (SPADLET |prefix| + (setq |xlist| (CDR |xlist|)))))) + (setq |ystring| (|bcwords2liststring| |ymy|)) + (setq |fstring| (|bcwords2liststring| |xlist|)) + (setq |prefix| (STRCONC "e01daf(" (STRINGIMAGE |mx|) '|, | (STRINGIMAGE |my|) '|,[|)) - (SPADLET |midd| + (setq |midd| (STRCONC |xstring| '|], [| |ystring| '|], [| |fstring| '|], |)) (|linkGen| @@ -2856,19 +2856,19 @@ (DEFUN |e01safSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |post| " \\tab{42} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |post| " \\tab{42} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |znam| + (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -2902,7 +2902,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2910,16 +2910,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |m| '30) (|e01safDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166700) - (SPADLET G166700 NIL) + (setq G166700 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G166700) @@ -2927,7 +2927,7 @@ (SETQ G166700 (APPEND G166700 (|e01safSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -2935,7 +2935,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E01SAF - Interpolating functions, method of Renka and Cline,two variables| (|htpPropertyList| |htPage|))) @@ -3156,8 +3156,8 @@ (PROG (|m| |page|) (RETURN (PROGN - (SPADLET |m| '30) - (SPADLET |page| + (setq |m| '30) + (setq |page| (|htInitPage| "E01SAF - Interpolating functions, method of Renka and Cline, two variables" (|htpPropertyList| |htPage|))) @@ -3344,31 +3344,31 @@ |dlist| |xstring| |fstring| |dstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |flist| (CONS |mid| |flist|)) - (SPADLET |dlist| (CONS |right| |dlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |fstring| (|bcwords2liststring| |flist|)) - (SPADLET |dstring| (|bcwords2liststring| |dlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |flist| (CONS |mid| |flist|)) + (setq |dlist| (CONS |right| |dlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |fstring| (|bcwords2liststring| |flist|)) + (setq |dstring| (|bcwords2liststring| |dlist|)) + (setq |prefix| (STRCONC "e01saf(" (STRINGIMAGE |m|) '|,[| |xstring| '|],[| |fstring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |dstring| '|],| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -3543,19 +3543,19 @@ (DEFUN |e01sefSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |post| " \\tab{42} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |post| " \\tab{42} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |znam| + (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -3590,7 +3590,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3598,7 +3598,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |nw| + (setq |nw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3606,7 +3606,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nw|))))) - (SPADLET |nq| + (setq |nq| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3614,19 +3614,19 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nq|))))) - (SPADLET |rnq| (|htpLabelInputString| |htPage| '|rnq|)) - (SPADLET |rnw| (|htpLabelInputString| |htPage| '|rnw|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |rnq| (|htpLabelInputString| |htPage| '|rnq|)) + (setq |rnw| (|htpLabelInputString| |htPage| '|rnw|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |m| '30) (|e01sefDefaultSolve| |htPage| |rnq| |rnw| |nq| |nw| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166783) - (SPADLET G166783 NIL) + (setq G166783 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G166783) @@ -3634,7 +3634,7 @@ (SETQ G166783 (APPEND G166783 (|e01sefSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -3642,7 +3642,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E01SEF - Interpolating functions, modified Shepard's method, two variables| (|htpPropertyList| |htPage|))) @@ -3871,8 +3871,8 @@ (PROG (|m| |page|) (RETURN (PROGN - (SPADLET |m| '30) - (SPADLET |page| + (setq |m| '30) + (setq |page| (|htInitPage| "E01SEF - Interpolating functions, modified Shepard's method, two variables" (|htpPropertyList| |htPage|))) @@ -4069,39 +4069,39 @@ |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |rnw| (|htpProperty| |htPage| '|rnw|)) - (SPADLET |rnq| (|htpProperty| |htPage| '|rnq|)) - (SPADLET |nw| (|htpProperty| |htPage| '|nw|)) - (SPADLET |nq| (|htpProperty| |htPage| '|nq|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |rnw| (|htpProperty| |htPage| '|rnw|)) + (setq |rnq| (|htpProperty| |htPage| '|rnq|)) + (setq |nw| (|htpProperty| |htPage| '|nw|)) + (setq |nq| (|htpProperty| |htPage| '|nq|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |flist| (CONS |mid| |flist|)) - (SPADLET |dlist| (CONS |right| |dlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |fstring| (|bcwords2liststring| |flist|)) - (SPADLET |dstring| (|bcwords2liststring| |dlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |flist| (CONS |mid| |flist|)) + (setq |dlist| (CONS |right| |dlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |fstring| (|bcwords2liststring| |flist|)) + (setq |dstring| (|bcwords2liststring| |dlist|)) + (setq |prefix| (STRCONC "e01sef(" (STRINGIMAGE |m|) '|,[| |xstring| '|],[| |fstring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |dstring| '|],| (STRINGIMAGE |nw|) '|, | (STRINGIMAGE |nq|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | |rnw| '|, | |rnq| '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) diff --git a/src/interp/nag-e02.lisp.pamphlet b/src/interp/nag-e02.lisp.pamphlet index 0de4860..729dd45 100644 --- a/src/interp/nag-e02.lisp.pamphlet +++ b/src/interp/nag-e02.lisp.pamphlet @@ -167,19 +167,19 @@ (DEFUN |e02adfSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |post| " \\tab{42} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |post| " \\tab{42} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |znam| + (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -214,7 +214,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -222,7 +222,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |k| + (setq |k| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -230,7 +230,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|k|))))) - (SPADLET |nrows| + (setq |nrows| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -239,16 +239,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nrows|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '11) (BOOT-EQUAL |k| '3)) (|e02adfDefaultSolve| |htPage| |k| |nrows| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166078) - (SPADLET G166078 NIL) + (setq G166078 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G166078) @@ -256,7 +256,7 @@ (SETQ G166078 (APPEND G166078 (|e02adfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -264,7 +264,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E02ADF - Least-squares curve fit, by polynomials, arbitrary data points| (|htpPropertyList| |htPage|))) @@ -376,8 +376,8 @@ (PROG (|m| |page|) (RETURN (PROGN - (SPADLET |m| '11) - (SPADLET |page| + (setq |m| '11) + (setq |page| (|htInitPage| "E02ADF - Least-squares curve fit, by polynomials, arbitrary data points" (|htpPropertyList| |htPage|))) @@ -479,37 +479,37 @@ |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |k| (|htpProperty| |htPage| '|k|)) - (SPADLET |nrows| (|htpProperty| |htPage| '|nrows|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |kplus1| (+ |k| 1)) - (SPADLET |y| |alist|) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |k| (|htpProperty| |htPage| '|k|)) + (setq |nrows| (|htpProperty| |htPage| '|nrows|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |kplus1| (+ |k| 1)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |ylist| (CONS |mid| |ylist|)) - (SPADLET |wlist| (CONS |right| |wlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) - (SPADLET |wstring| (|bcwords2liststring| |wlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |ylist| (CONS |mid| |ylist|)) + (setq |wlist| (CONS |right| |wlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |ystring| (|bcwords2liststring| |ylist|)) + (setq |wstring| (|bcwords2liststring| |wlist|)) + (setq |prefix| (STRCONC "e02adf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |kplus1|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nrows|) '|, [| |xstring| '|],[| |ystring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |wstring| '|],| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -620,8 +620,8 @@ (DEFUN |e02aefSolve,f| (|i|) (PROG (|prefix| |anam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") - (SPADLET |anam| + (SEQ (setq |prefix| "\\newline \\tab{15} ") + (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -638,7 +638,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -646,17 +646,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |xcap| (|htpLabelInputString| |htPage| '|xcap|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |xcap| (|htpLabelInputString| |htPage| '|xcap|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|e02aefDefaultSolve| |htPage| |xcap| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166160) - (SPADLET G166160 NIL) + (setq G166160 NIL) (RETURN (DO ((G166165 (+ |n| 1)) (|i| 1 (QSADD1 |i|))) @@ -665,7 +665,7 @@ (SETQ G166160 (APPEND G166160 (|e02aefSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -673,7 +673,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E02AEF - Evaluation of fitted polynomial in one variable from Chebyshev series from| NIL)) @@ -722,8 +722,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "E02AEF - Evaluation of fitted polynomial in one variable from Chebyshev series form" NIL)) @@ -773,25 +773,25 @@ |astring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |xcap| (|htpProperty| |htPage| '|xcap|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |nplus1| (+ |n| 1)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |xcap| (|htpProperty| |htPage| '|xcap|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |nplus1| (+ |n| 1)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |arrayList| + (setq |y| (CDR |y|)) + (setq |arrayList| (CONS |right| |arrayList|)))))) - (SPADLET |astring| (|bcwords2liststring| |arrayList|)) - (SPADLET |prefix| + (setq |astring| (|bcwords2liststring| |arrayList|)) + (setq |prefix| (STRCONC "e02aef(" (STRINGIMAGE |nplus1|) '|, [| |astring| '|], |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |xcap|) '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -1037,19 +1037,19 @@ (DEFUN |e02agfSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |post| " \\tab{42} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |post| " \\tab{42} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |znam| + (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -1081,7 +1081,7 @@ (DEFUN |e02agfSolve,g| (|j|) (PROG (|xfnam|) (RETURN - (SEQ (SPADLET |xfnam| + (SEQ (setq |xfnam| (INTERN (STRCONC "xf" (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1094,7 +1094,7 @@ (DEFUN |e02agfSolve,h| (|k|) (PROG (|ipnam|) (RETURN - (SEQ (SPADLET |ipnam| + (SEQ (setq |ipnam| (INTERN (STRCONC "ip" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1107,8 +1107,8 @@ (DEFUN |e02agfSolve,i| (|l|) (PROG (|prefix| |yfnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |yfnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |yfnam| (INTERN (STRCONC "lyf" (STRINGIMAGE |l|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -1127,7 +1127,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1135,7 +1135,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |k| + (setq |k| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1143,7 +1143,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|kplus1|))))) - (SPADLET |nrows| + (setq |nrows| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1152,9 +1152,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nrows|))))) - (SPADLET |xmin| (|htpLabelInputString| |htPage| '|xmin|)) - (SPADLET |xmax| (|htpLabelInputString| |htPage| '|xmax|)) - (SPADLET |mf| + (setq |xmin| (|htpLabelInputString| |htPage| '|xmin|)) + (setq |xmax| (|htpLabelInputString| |htPage| '|xmax|)) + (setq |mf| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1162,7 +1162,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|mf|))))) - (SPADLET |lyf| + (setq |lyf| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1170,8 +1170,8 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lyf|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '5) (BOOT-EQUAL |k| '4) @@ -1179,9 +1179,9 @@ (|e02agfDefaultSolve| |htPage| |nrows| |xmin| |xmax| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166254) - (SPADLET G166254 NIL) + (setq G166254 NIL) (RETURN (DO ((|e02agfSolve,i| 1 (QSADD1 |e02agfSolve,i|))) @@ -1192,9 +1192,9 @@ (APPEND G166254 (|e02agfSolve,f| |e02agfSolve,i|))))))))) - (SPADLET |xfList| + (setq |xfList| (PROG (G166262) - (SPADLET G166262 NIL) + (setq G166262 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |mf|) G166262) @@ -1202,16 +1202,16 @@ (SETQ G166262 (APPEND G166262 (|e02agfSolve,g| |j|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\newline \\menuitemstyle{}\\tab{2} Values of ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|{\\it xf}: \\newline \\tab{2} |)) - (SPADLET |xfList| + (setq |xfList| (CONS (CONS '|text| |prefix|) |xfList|)) - (SPADLET |ipList| + (setq |ipList| (PROG (G166270) - (SPADLET G166270 NIL) + (setq G166270 NIL) (RETURN (DO ((|k| 1 (QSADD1 |k|))) ((QSGREATERP |k| |mf|) G166270) @@ -1219,16 +1219,16 @@ (SETQ G166270 (APPEND G166270 (|e02agfSolve,h| |k|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\newline \\menuitemstyle{}\\tab{2} Values of ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|{\\it ip}: \\newline \\tab{2} |)) - (SPADLET |ipList| + (setq |ipList| (CONS (CONS '|text| |prefix|) |ipList|)) - (SPADLET |yfList| + (setq |yfList| (PROG (G166278) - (SPADLET G166278 NIL) + (setq G166278 NIL) (RETURN (DO ((|l| 1 (QSADD1 |l|))) ((QSGREATERP |l| |lyf|) G166278) @@ -1236,14 +1236,14 @@ (SETQ G166278 (APPEND G166278 (|e02agfSolve,i| |l|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\newline \\menuitemstyle{}\\tab{2} Values of ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|{\\it yf}: \\newline \\tab{2} |)) - (SPADLET |yfList| + (setq |yfList| (CONS (CONS '|text| |prefix|) |yfList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -1253,7 +1253,7 @@ (APPEND |labelList| (APPEND |xfList| (APPEND |ipList| |yfList|))))) - (SPADLET |page| + (setq |page| (|htInitPage| '|E02AGF - Least-squares polynomial fit, values and derivatives may be constrained, arbitrary data values| NIL)) @@ -1384,11 +1384,11 @@ (PROG (|m| |k| |mf| |lyf| |page|) (RETURN (PROGN - (SPADLET |m| '5) - (SPADLET |k| '4) - (SPADLET |mf| '2) - (SPADLET |lyf| '15) - (SPADLET |page| + (setq |m| '5) + (setq |k| '4) + (setq |mf| '2) + (setq |lyf| '15) + (setq |page| (|htInitPage| "E02AGF - Least-squares polynomial fit, values and derivativesby polynomials, arbitrary data points" (|htpPropertyList| |htPage|))) @@ -1551,95 +1551,95 @@ |wrktest2| |wrktestlist| |wrkmax| |lwrk| |liwrk| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |k| (|htpProperty| |htPage| '|k|)) - (SPADLET |nrows| (|htpProperty| |htPage| '|nrows|)) - (SPADLET |xmin| (|htpProperty| |htPage| '|xmin|)) - (SPADLET |xmax| (|htpProperty| |htPage| '|xmax|)) - (SPADLET |mf| (|htpProperty| |htPage| '|mf|)) - (SPADLET |lyf| (|htpProperty| |htPage| '|lyf|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |kplus1| (+ |k| 1)) - (SPADLET |ipsum| 0) - (SPADLET |y| |alist|) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |k| (|htpProperty| |htPage| '|k|)) + (setq |nrows| (|htpProperty| |htPage| '|nrows|)) + (setq |xmin| (|htpProperty| |htPage| '|xmin|)) + (setq |xmax| (|htpProperty| |htPage| '|xmax|)) + (setq |mf| (|htpProperty| |htPage| '|mf|)) + (setq |lyf| (|htpProperty| |htPage| '|lyf|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |kplus1| (+ |k| 1)) + (setq |ipsum| 0) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lyf|) NIL) (SEQ (EXIT (PROGN - (SPADLET |yf| + (setq |yf| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |yfList| (CONS |yf| |yfList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |yfstring| (|bcwords2liststring| |yfList|)) + (setq |yfList| (CONS |yf| |yfList|)) + (setq |y| (CDR |y|)))))) + (setq |yfstring| (|bcwords2liststring| |yfList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mf|) NIL) (SEQ (EXIT (PROGN - (SPADLET |iptest| (ELT (CAR |y|) 1)) - (SPADLET |iptestval| + (setq |iptest| (ELT (CAR |y|) 1)) + (setq |iptestval| (READ-FROM-STRING |iptest|)) - (SPADLET |ipsum| + (setq |ipsum| (+ |ipsum| |iptestval|)) - (SPADLET |ip| (STRCONC |iptest| '| |)) - (SPADLET |iptestList| + (setq |ip| (STRCONC |iptest| '| |)) + (setq |iptestList| (CONS |iptestval| |iptestList|)) - (SPADLET |ipList| (CONS |ip| |ipList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |ipstring| (|bcwords2liststring| |ipList|)) - (SPADLET |ipmax| (APPLY 'MAX |iptestList|)) - (SPADLET |n| (+ |mf| |ipsum|)) + (setq |ipList| (CONS |ip| |ipList|)) + (setq |y| (CDR |y|)))))) + (setq |ipstring| (|bcwords2liststring| |ipList|)) + (setq |ipmax| (APPLY 'MAX |iptestList|)) + (setq |n| (+ |mf| |ipsum|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mf|) NIL) (SEQ (EXIT (PROGN - (SPADLET |xf| + (setq |xf| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xfList| (CONS |xf| |xfList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xfstring| (|bcwords2liststring| |xfList|)) + (setq |xfList| (CONS |xf| |xfList|)) + (setq |y| (CDR |y|)))))) + (setq |xfstring| (|bcwords2liststring| |xfList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |ylist| (CONS |mid| |ylist|)) - (SPADLET |wlist| (CONS |right| |wlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) - (SPADLET |wstring| (|bcwords2liststring| |wlist|)) - (SPADLET |wrktest1| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |ylist| (CONS |mid| |ylist|)) + (setq |wlist| (CONS |right| |wlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |ystring| (|bcwords2liststring| |ylist|)) + (setq |wstring| (|bcwords2liststring| |wlist|)) + (setq |wrktest1| (+ (TIMES 4 |m|) (TIMES 3 |kplus1|))) - (SPADLET |wrktest2| + (setq |wrktest2| (+ (+ (+ (TIMES 8 |n|) (TIMES 5 |ipmax|)) |mf|) 10)) - (SPADLET |wrktestlist| + (setq |wrktestlist| (CONS |wrktest1| (CONS |wrktest2| NIL))) - (SPADLET |wrkmax| (APPLY 'MAX |wrktestlist|)) - (SPADLET |lwrk| (+ (+ |wrkmax| (TIMES 2 |n|)) 2)) - (SPADLET |liwrk| (+ (TIMES 2 |mf|) 2)) - (SPADLET |prefix| + (setq |wrkmax| (APPLY 'MAX |wrktestlist|)) + (setq |lwrk| (+ (+ |wrkmax| (TIMES 2 |n|)) 2)) + (setq |liwrk| (+ (TIMES 2 |mf|) 2)) + (setq |prefix| (STRCONC "e02agf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |kplus1|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nrows|) '|, | |xmin| '|, | |xmax| '|, [| |xstring|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|],[| |ystring| '|],[| |wstring| '|],| (STRINGIMAGE |mf|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, [| |xfstring| '|],[| |yfstring| '|],|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lyf|) '|, [| |ipstring| '|]::Matrix Integer,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lwrk|) '|, | (STRINGIMAGE |liwrk|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -1819,8 +1819,8 @@ (DEFUN |e02ahfSolve,f| (|i|) (PROG (|prefix| |anam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") - (SPADLET |anam| + (SEQ (setq |prefix| "\\newline \\tab{15} ") + (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -1838,7 +1838,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1846,9 +1846,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |xmin| (|htpLabelInputString| |htPage| '|xmin|)) - (SPADLET |xmax| (|htpLabelInputString| |htPage| '|xmax|)) - (SPADLET |iaone| + (setq |xmin| (|htpLabelInputString| |htPage| '|xmin|)) + (setq |xmax| (|htpLabelInputString| |htPage| '|xmax|)) + (setq |iaone| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1857,7 +1857,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|iaone|))))) - (SPADLET |ladifone| + (setq |ladifone| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1866,10 +1866,10 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ladifone|))))) - (SPADLET |la| (+ 1 (TIMES |n| |iaone|))) - (SPADLET |ladif| (+ 1 (TIMES |n| |ladifone|))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |la| (+ 1 (TIMES |n| |iaone|))) + (setq |ladif| (+ 1 (TIMES |n| |ladifone|))) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |n| '6) (BOOT-EQUAL |la| '7) @@ -1877,9 +1877,9 @@ (|e02ahfDefaultSolve| |htPage| |xmin| |xmax| |iaone| |ladifone| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166451) - (SPADLET G166451 NIL) + (setq G166451 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |la|) G166451) @@ -1887,7 +1887,7 @@ (SETQ G166451 (APPEND G166451 (|e02ahfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -1895,7 +1895,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E02AHF - Derivative of fitted polynomial in Chebyshev series| NIL)) @@ -1959,10 +1959,10 @@ (PROG (|n| |la| |ladif| |page|) (RETURN (PROGN - (SPADLET |n| '6) - (SPADLET |la| '7) - (SPADLET |ladif| '7) - (SPADLET |page| + (setq |n| '6) + (setq |la| '7) + (setq |ladif| '7) + (setq |page| (|htInitPage| "E02AHF - Derivative of fitted polynomial in Chebyshev series" NIL)) (|htMakePage| @@ -2027,36 +2027,36 @@ |alist| |np1| |right| |y| |arrayList| |astring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |la| (|htpProperty| |htPage| '|la|)) - (SPADLET |ladif| (|htpProperty| |htPage| '|ladif|)) - (SPADLET |xmin| (|htpProperty| |htPage| '|xmin|)) - (SPADLET |xmax| (|htpProperty| |htPage| '|xmax|)) - (SPADLET |iaone| (|htpProperty| |htPage| '|iaone|)) - (SPADLET |ladifone| (|htpProperty| |htPage| '|ladifone|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |np1| (+ |n| 1)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |la| (|htpProperty| |htPage| '|la|)) + (setq |ladif| (|htpProperty| |htPage| '|ladif|)) + (setq |xmin| (|htpProperty| |htPage| '|xmin|)) + (setq |xmax| (|htpProperty| |htPage| '|xmax|)) + (setq |iaone| (|htpProperty| |htPage| '|iaone|)) + (setq |ladifone| (|htpProperty| |htPage| '|ladifone|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |np1| (+ |n| 1)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |arrayList| + (setq |y| (CDR |y|)) + (setq |arrayList| (CONS |right| |arrayList|)))))) - (SPADLET |astring| (|bcwords2liststring| |arrayList|)) - (SPADLET |prefix| + (setq |astring| (|bcwords2liststring| |arrayList|)) + (setq |prefix| (STRCONC "e02ahf(" (STRINGIMAGE |np1|) '|, | |xmin| '|, | |xmax| '|, [|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |astring| '|], | (STRINGIMAGE |iaone|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |la|) '|, | (STRINGIMAGE |ladifone|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ladif|) '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -2250,8 +2250,8 @@ (DEFUN |e02ajfSolve,f| (|i|) (PROG (|prefix| |anam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") - (SPADLET |anam| + (SEQ (setq |prefix| "\\newline \\tab{15} ") + (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -2269,7 +2269,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2277,9 +2277,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |xmin| (|htpLabelInputString| |htPage| '|xmin|)) - (SPADLET |xmax| (|htpLabelInputString| |htPage| '|xmax|)) - (SPADLET |iaone| + (setq |xmin| (|htpLabelInputString| |htPage| '|xmin|)) + (setq |xmax| (|htpLabelInputString| |htPage| '|xmax|)) + (setq |iaone| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2288,7 +2288,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|iaone|))))) - (SPADLET |iaintone| + (setq |iaintone| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2297,12 +2297,12 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|iaintone|))))) - (SPADLET |la| (+ 1 (TIMES |n| |iaone|))) - (SPADLET |laint| (+ (TIMES |n| |iaintone|) 1)) - (SPADLET |qatmone| + (setq |la| (+ 1 (TIMES |n| |iaone|))) + (setq |laint| (+ (TIMES |n| |iaintone|) 1)) + (setq |qatmone| (|htpLabelInputString| |htPage| '|qatmone|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |n| '6) (BOOT-EQUAL |la| '7) @@ -2310,9 +2310,9 @@ (|e02ajfDefaultSolve| |htPage| |xmin| |xmax| |iaone| |iaintone| |qatmone| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166532) - (SPADLET G166532 NIL) + (setq G166532 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |la|) G166532) @@ -2320,7 +2320,7 @@ (SETQ G166532 (APPEND G166532 (|e02ajfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -2328,7 +2328,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E02AJF - Integral of fitted polynomial in Chebyshev series form| NIL)) @@ -2394,10 +2394,10 @@ (PROG (|n| |la| |laint| |page|) (RETURN (PROGN - (SPADLET |n| '6) - (SPADLET |la| '7) - (SPADLET |laint| '8) - (SPADLET |page| + (setq |n| '6) + (setq |la| '7) + (setq |laint| '8) + (setq |page| (|htInitPage| "E02AJF - Integral of fitted polynomial in Chebyshev series form" NIL)) @@ -2467,39 +2467,39 @@ |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |la| (|htpProperty| |htPage| '|la|)) - (SPADLET |laint| (|htpProperty| |htPage| '|laint|)) - (SPADLET |xmin| (|htpProperty| |htPage| '|xmin|)) - (SPADLET |xmax| (|htpProperty| |htPage| '|xmax|)) - (SPADLET |iaone| (|htpProperty| |htPage| '|iaone|)) - (SPADLET |iaintone| (|htpProperty| |htPage| '|iaintone|)) - (SPADLET |qatmone| (|htpProperty| |htPage| '|qatmone|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |np1| (+ |n| 1)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |la| (|htpProperty| |htPage| '|la|)) + (setq |laint| (|htpProperty| |htPage| '|laint|)) + (setq |xmin| (|htpProperty| |htPage| '|xmin|)) + (setq |xmax| (|htpProperty| |htPage| '|xmax|)) + (setq |iaone| (|htpProperty| |htPage| '|iaone|)) + (setq |iaintone| (|htpProperty| |htPage| '|iaintone|)) + (setq |qatmone| (|htpProperty| |htPage| '|qatmone|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |np1| (+ |n| 1)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |arrayList| + (setq |y| (CDR |y|)) + (setq |arrayList| (CONS |right| |arrayList|)))))) - (SPADLET |astring| (|bcwords2liststring| |arrayList|)) - (SPADLET |prefix| + (setq |astring| (|bcwords2liststring| |arrayList|)) + (setq |prefix| (STRCONC "e02ajf(" (STRINGIMAGE |np1|) '|, | |xmin| '|, | |xmax| '|, [|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |astring| '|], | (STRINGIMAGE |iaone|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |la|) '|, | |qatmone| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |iaintone|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | (STRINGIMAGE |laint|) '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -2663,8 +2663,8 @@ (DEFUN |e02akfSolve,f| (|i|) (PROG (|prefix| |anam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") - (SPADLET |anam| + (SEQ (setq |prefix| "\\newline \\tab{15} ") + (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -2682,7 +2682,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2690,10 +2690,10 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |xmin| (|htpLabelInputString| |htPage| '|xmin|)) - (SPADLET |xmax| (|htpLabelInputString| |htPage| '|xmax|)) - (SPADLET |iaone| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |xmin| (|htpLabelInputString| |htPage| '|xmin|)) + (setq |xmax| (|htpLabelInputString| |htPage| '|xmax|)) + (setq |iaone| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2702,18 +2702,18 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|iaone|))))) - (SPADLET |la| (+ 1 (TIMES |n| |iaone|))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |la| (+ 1 (TIMES |n| |iaone|))) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |n| '6) (BOOT-EQUAL |la| '7)) (|e02akfDefaultSolve| |htPage| |xmin| |xmax| |x| |iaone| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166615) - (SPADLET G166615 NIL) + (setq G166615 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |la|) G166615) @@ -2721,7 +2721,7 @@ (SETQ G166615 (APPEND G166615 (|e02akfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -2729,7 +2729,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E02AKF - Evaluation of fitted polynomial in one variable, from Chebyshev series form| NIL)) @@ -2790,9 +2790,9 @@ (PROG (|n| |la| |page|) (RETURN (PROGN - (SPADLET |n| '6) - (SPADLET |la| '7) - (SPADLET |page| + (setq |n| '6) + (setq |la| '7) + (setq |page| (|htInitPage| "E02AKF - Evaluation of fitted polynomial in one variable, from Chebyshev series form" NIL)) @@ -2855,32 +2855,32 @@ |right| |y| |arrayList| |astring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |x| (|htpProperty| |htPage| '|x|)) - (SPADLET |la| (|htpProperty| |htPage| '|la|)) - (SPADLET |xmin| (|htpProperty| |htPage| '|xmin|)) - (SPADLET |xmax| (|htpProperty| |htPage| '|xmax|)) - (SPADLET |iaone| (|htpProperty| |htPage| '|iaone|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |np1| (+ |n| 1)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |x| (|htpProperty| |htPage| '|x|)) + (setq |la| (|htpProperty| |htPage| '|la|)) + (setq |xmin| (|htpProperty| |htPage| '|xmin|)) + (setq |xmax| (|htpProperty| |htPage| '|xmax|)) + (setq |iaone| (|htpProperty| |htPage| '|iaone|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |np1| (+ |n| 1)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |arrayList| + (setq |y| (CDR |y|)) + (setq |arrayList| (CONS |right| |arrayList|)))))) - (SPADLET |astring| (|bcwords2liststring| |arrayList|)) - (SPADLET |prefix| + (setq |astring| (|bcwords2liststring| |arrayList|)) + (setq |prefix| (STRCONC "e02akf(" (STRINGIMAGE |np1|) '|, | |xmin| '|, | |xmax| '|, [|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |astring| '|], | (STRINGIMAGE |iaone|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |la|) '|, | |x| '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -3026,19 +3026,19 @@ (DEFUN |e02bafSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |post| " \\tab{42} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |post| " \\tab{42} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |znam| + (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -3070,7 +3070,7 @@ (DEFUN |e02bafSolve,g| (|j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3086,7 +3086,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3094,7 +3094,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |ncap| + (setq |ncap| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3103,16 +3103,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncap|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '14) (BOOT-EQUAL |ncap| '5)) (|e02bafDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166702) - (SPADLET G166702 NIL) + (setq G166702 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G166702) @@ -3120,9 +3120,9 @@ (SETQ G166702 (APPEND G166702 (|e02bafSolve,f| |i|))))))))) - (SPADLET |lamdaList| + (setq |lamdaList| (PROG (G166710) - (SPADLET G166710 NIL) + (setq G166710 NIL) (RETURN (DO ((G166715 (+ |ncap| 3)) (|j| 5 (+ |j| 1))) @@ -3131,17 +3131,17 @@ (SETQ G166710 (APPEND G166710 (|e02bafSolve,g| |j|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{}\\tab{2} Interior knots ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|\\htbitmap{lamdai}, for i = 5,6,...,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|\\htbitmap{ncap} + 3: \\newline \\tab{2}|)) - (SPADLET |lamdaList| + (setq |lamdaList| (CONS (CONS '|text| |prefix|) |lamdaList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -3149,7 +3149,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |labelList| |lamdaList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|E02BAF - Least-squares curve cubic spline fit| NIL)) @@ -3285,9 +3285,9 @@ (PROG (|m| |ncap| |page|) (RETURN (PROGN - (SPADLET |m| '14) - (SPADLET |ncap| '5) - (SPADLET |page| + (setq |m| '14) + (setq |ncap| '5) + (setq |page| (|htInitPage| "E02BAF - Least-squares curve cubic spline fit" NIL)) (|htMakePage| @@ -3416,58 +3416,58 @@ |wlist| |xstring| |ystring| |wstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |ncap| (|htpProperty| |htPage| '|ncap|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |ncap7| (+ |ncap| 7)) - (SPADLET |y| |alist|) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |ncap| (|htpProperty| |htPage| '|ncap|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |ncap7| (+ |ncap| 7)) + (setq |y| |alist|) (DO ((G166753 (+ |ncap| 7)) (|i| (+ |ncap| 4) (+ |i| 1))) ((> |i| G166753) NIL) (SEQ (EXIT (PROGN - (SPADLET |lambda| (STRCONC '|0.0| '| |)) - (SPADLET |lambdaList| + (setq |lambda| (STRCONC '|0.0| '| |)) + (setq |lambdaList| (CONS |lambda| |lambdaList|)))))) (DO ((G166763 (+ |ncap| 3)) (|i| 5 (+ |i| 1))) ((> |i| G166763) NIL) (SEQ (EXIT (PROGN - (SPADLET |lambda| + (setq |lambda| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |lambdaList| + (setq |y| (CDR |y|)) + (setq |lambdaList| (CONS |lambda| |lambdaList|)))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) (SEQ (EXIT (PROGN - (SPADLET |lambda| (STRCONC '|0.0| '| |)) - (SPADLET |lambdaList| + (setq |lambda| (STRCONC '|0.0| '| |)) + (setq |lambdaList| (CONS |lambda| |lambdaList|)))))) - (SPADLET |lambdaString| + (setq |lambdaString| (|bcwords2liststring| |lambdaList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |ylist| (CONS |mid| |ylist|)) - (SPADLET |wlist| (CONS |right| |wlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) - (SPADLET |wstring| (|bcwords2liststring| |wlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |ylist| (CONS |mid| |ylist|)) + (setq |wlist| (CONS |right| |wlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |ystring| (|bcwords2liststring| |ylist|)) + (setq |wstring| (|bcwords2liststring| |wlist|)) + (setq |prefix| (STRCONC "e02baf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |ncap7|) '|, [|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |xstring| '|],[| |ystring| '|],[| |wstring| '|], [|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |lambdaString| '|], | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -3589,15 +3589,15 @@ (DEFUN |e02bbfSolve,f| (|i|) (PROG (|prefix| |middle| |lnam| |cnam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |lnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |lnam| (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) - (SPADLET |cnam| + (setq |cnam| (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -3623,7 +3623,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |ncap| + (setq |ncap| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3632,17 +3632,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncap|))))) - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |ncap| '4) (|e02bbfDefaultSolve| |htPage| |x| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166839) - (SPADLET G166839 NIL) + (setq G166839 NIL) (RETURN (DO ((G166844 (+ |ncap| 7)) (|i| 1 (QSADD1 |i|))) @@ -3651,7 +3651,7 @@ (SETQ G166839 (APPEND G166839 (|e02bbfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -3659,7 +3659,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E02BBF - Evaluation of fitted cubic spline, function only| NIL)) @@ -3743,8 +3743,8 @@ (PROG (|ncap| |page|) (RETURN (PROGN - (SPADLET |ncap| '4) - (SPADLET |page| + (setq |ncap| '4) + (setq |page| (|htInitPage| "E02BBF - Evaluation of fitted cubic spline, function only" NIL)) (|htMakePage| @@ -3821,29 +3821,29 @@ |lamlist| |clist| |lamstring| |cstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |ncap| (|htpProperty| |htPage| '|ncap|)) - (SPADLET |x| (|htpProperty| |htPage| '|x|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |ncap7| (+ |ncap| 7)) - (SPADLET |y| |alist|) + (setq |ncap| (|htpProperty| |htPage| '|ncap|)) + (setq |x| (|htpProperty| |htPage| '|x|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |ncap7| (+ |ncap| 7)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |lamlist| (CONS |left| |lamlist|)) - (SPADLET |clist| (CONS |right| |clist|)))))) - (SPADLET |lamstring| (|bcwords2liststring| |lamlist|)) - (SPADLET |cstring| (|bcwords2liststring| |clist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |lamlist| (CONS |left| |lamlist|)) + (setq |clist| (CONS |right| |clist|)))))) + (setq |lamstring| (|bcwords2liststring| |lamlist|)) + (setq |cstring| (|bcwords2liststring| |clist|)) + (setq |prefix| (STRCONC "e02bbf(" (STRINGIMAGE |ncap7|) '|, [| |lamstring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |cstring| '|], | |x| '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -3987,15 +3987,15 @@ (DEFUN |e02bcfSolve,f| (|i|) (PROG (|prefix| |middle| |lnam| |cnam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |lnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |lnam| (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) - (SPADLET |cnam| + (setq |cnam| (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -4022,7 +4022,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |ncap| + (setq |ncap| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4031,20 +4031,20 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncap|))))) - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |temp| (|htpButtonValue| |htPage| '|deriv|)) - (SPADLET |deriv| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |temp| (|htpButtonValue| |htPage| '|deriv|)) + (setq |deriv| (COND ((BOOT-EQUAL |temp| '|left|) '1) ('T '2))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |ncap| '7) (|e02bcfDefaultSolve| |htPage| |x| |deriv| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166916) - (SPADLET G166916 NIL) + (setq G166916 NIL) (RETURN (DO ((G166921 (+ |ncap| 7)) (|i| 1 (QSADD1 |i|))) @@ -4053,7 +4053,7 @@ (SETQ G166916 (APPEND G166916 (|e02bcfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -4061,7 +4061,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E02BCF - Evaluation of fitted cubic spline, function and derivatives| NIL)) @@ -4158,8 +4158,8 @@ (PROG (|ncap| |page|) (RETURN (PROGN - (SPADLET |ncap| '7) - (SPADLET |page| + (setq |ncap| '7) + (setq |page| (|htInitPage| "E02BCF - Evaluation of fitted cubic spline, function and derivatives" NIL)) (|htMakePage| @@ -4247,33 +4247,33 @@ |lamlist| |clist| |lamstring| |cstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |ncap| (|htpProperty| |htPage| '|ncap|)) - (SPADLET |x| (|htpProperty| |htPage| '|x|)) - (SPADLET |deriv| (|htpProperty| |htPage| '|deriv|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |ncap7| (+ |ncap| 7)) - (SPADLET |y| |alist|) + (setq |ncap| (|htpProperty| |htPage| '|ncap|)) + (setq |x| (|htpProperty| |htPage| '|x|)) + (setq |deriv| (|htpProperty| |htPage| '|deriv|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |ncap7| (+ |ncap| 7)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |lamlist| (CONS |left| |lamlist|)) - (SPADLET |clist| (CONS |right| |clist|)))))) - (SPADLET |lamstring| (|bcwords2liststring| |lamlist|)) - (SPADLET |cstring| (|bcwords2liststring| |clist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |lamlist| (CONS |left| |lamlist|)) + (setq |clist| (CONS |right| |clist|)))))) + (setq |lamstring| (|bcwords2liststring| |lamlist|)) + (setq |cstring| (|bcwords2liststring| |clist|)) + (setq |prefix| (STRCONC "e02bcf(" (STRINGIMAGE |ncap7|) '|, [| |lamstring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |cstring| '|], | |x| '|, | (STRINGIMAGE |deriv|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -4386,15 +4386,15 @@ (DEFUN |e02bdfSolve,f| (|i|) (PROG (|prefix| |middle| |lnam| |cnam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |lnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |lnam| (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) - (SPADLET |cnam| + (setq |cnam| (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -4420,7 +4420,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |ncap| + (setq |ncap| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4429,16 +4429,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncap|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |ncap| '7) (|e02bdfDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166996) - (SPADLET G166996 NIL) + (setq G166996 NIL) (RETURN (DO ((G167001 (+ |ncap| 7)) (|i| 1 (QSADD1 |i|))) @@ -4447,7 +4447,7 @@ (SETQ G166996 (APPEND G166996 (|e02bdfSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -4455,7 +4455,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|E02BDF - Evaluation of fitted cubic spline, definite integral| NIL)) @@ -4551,8 +4551,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |ncap| '7) - (SPADLET |page| + (setq |ncap| '7) + (setq |page| (|htInitPage| "E02BDF - Evaluation of fitted cubic spline, definite integral" NIL)) (|htMakePage| @@ -4636,28 +4636,28 @@ |clist| |lamstring| |cstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |ncap| (|htpProperty| |htPage| '|ncap|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |ncap7| (+ |ncap| 7)) - (SPADLET |y| |alist|) + (setq |ncap| (|htpProperty| |htPage| '|ncap|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |ncap7| (+ |ncap| 7)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |lamlist| (CONS |left| |lamlist|)) - (SPADLET |clist| (CONS |right| |clist|)))))) - (SPADLET |lamstring| (|bcwords2liststring| |lamlist|)) - (SPADLET |cstring| (|bcwords2liststring| |clist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |lamlist| (CONS |left| |lamlist|)) + (setq |clist| (CONS |right| |clist|)))))) + (setq |lamstring| (|bcwords2liststring| |lamlist|)) + (setq |cstring| (|bcwords2liststring| |clist|)) + (setq |prefix| (STRCONC "e02bdf(" (STRINGIMAGE |ncap7|) '|, [| |lamstring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |cstring| '|], | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -4816,7 +4816,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4824,7 +4824,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |nest| + (setq |nest| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4832,14 +4832,14 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nest|))))) - (SPADLET |lwrk| + (setq |lwrk| (+ (+ (TIMES 4 |m|) (TIMES 16 |nest|)) 41)) - (SPADLET |s| (|htpLabelInputString| |htPage| '|s|)) - (SPADLET |initial| (|htpButtonValue| |htPage| '|start|)) - (SPADLET |start| + (setq |s| (|htpLabelInputString| |htPage| '|s|)) + (setq |initial| (|htpButtonValue| |htPage| '|start|)) + (setq |start| (COND ((BOOT-EQUAL |initial| '|cold|) '1) ('T '2))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (EQL |m| 15) (EQL |start| 1)) @@ -4902,19 +4902,19 @@ (DEFUN |e02befColdSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |post| " \\tab{42} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |post| " \\tab{42} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |znam| + (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) - (SPADLET |num| + (setq |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) (INTERN "." "BOOT") (STRINGIMAGE (REM |i| 10))))) @@ -4948,16 +4948,16 @@ (declare (special |$EmptyMode|)) (RETURN (SEQ (PROGN - (SPADLET |labelList| + (setq |labelList| (PROG (G167086) - (SPADLET G167086 NIL) + (setq G167086 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G167086) (SEQ (EXIT (SETQ G167086 (APPEND G167086 (|e02befColdSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -4965,7 +4965,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| "E02BEF - Least-squares curve cubic spline fit, automatic knot placement" NIL)) (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") @@ -5102,8 +5102,8 @@ (PROG (|m| |page|) (RETURN (PROGN - (SPADLET |m| 15) - (SPADLET |page| + (setq |m| 15) + (setq |page| (|htInitPage| "E02BEF - Least-squares curve cubic spline fit, automatic knot placement" NIL)) (|htMakePage| @@ -5234,50 +5234,50 @@ |wstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |nest| (|htpProperty| |htPage| '|nest|)) - (SPADLET |lwrk| (|htpProperty| |htPage| '|lwrk|)) - (SPADLET |s| (|htpProperty| |htPage| '|s|)) - (SPADLET |cold| "c") - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |nest| (|htpProperty| |htPage| '|nest|)) + (setq |lwrk| (|htpProperty| |htPage| '|lwrk|)) + (setq |s| (|htpProperty| |htPage| '|s|)) + (setq |cold| "c") + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |ylist| (CONS |mid| |ylist|)) - (SPADLET |wlist| (CONS |right| |wlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) - (SPADLET |wstring| (|bcwords2liststring| |wlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |ylist| (CONS |mid| |ylist|)) + (setq |wlist| (CONS |right| |wlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |ystring| (|bcwords2liststring| |ylist|)) + (setq |wstring| (|bcwords2liststring| |wlist|)) + (setq |prefix| (STRCONC "e02bef(\"" |cold| '|",| (STRINGIMAGE |m|) '|, [| |xstring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |ystring| '|],[| |wstring| '|], | (STRINGIMAGE |s|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nest|) '|, | (STRINGIMAGE |lwrk|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|,0, new(1,| (STRINGIMAGE |nest|) '|,0.0)$Matrix DoubleFloat,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|, new(1,| (STRINGIMAGE |lwrk|) '|,0.0)$Matrix DoubleFloat, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '| new(1,| (STRINGIMAGE |nest|) '|,0)$Matrix Integer)|)) (|linkGen| |prefix|)))))) @@ -5427,12 +5427,12 @@ (DEFUN |e02defSolve,fxy| (|i|) (PROG (|prefix| |middle| |xnam| |ynam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{22} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{22} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -5455,7 +5455,7 @@ (DEFUN |e02defSolve,flam| (|i|) (PROG (|lnam|) (RETURN - (SEQ (SPADLET |lnam| + (SEQ (setq |lnam| (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5468,7 +5468,7 @@ (DEFUN |e02defSolve,fmu| (|i|) (PROG (|mnam|) (RETURN - (SEQ (SPADLET |mnam| + (SEQ (setq |mnam| (INTERN (STRCONC "m" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5481,7 +5481,7 @@ (DEFUN |e02defSolve,fp| (|i|) (PROG (|pnam|) (RETURN - (SEQ (SPADLET |pnam| + (SEQ (setq |pnam| (INTERN (STRCONC "p" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5497,7 +5497,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5505,7 +5505,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |px| + (setq |px| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5513,7 +5513,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|px|))))) - (SPADLET |py| + (setq |py| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5521,17 +5521,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|py|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '7) (BOOT-EQUAL |px| '11) (BOOT-EQUAL |py| '10)) (|e02defDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G167189) - (SPADLET G167189 NIL) + (setq G167189 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G167189) @@ -5539,9 +5539,9 @@ (SETQ G167189 (APPEND G167189 (|e02defSolve,fxy| |i|))))))))) - (SPADLET |lamList| + (setq |lamList| (PROG (G167197) - (SPADLET G167197 NIL) + (setq G167197 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |px|) G167197) @@ -5549,12 +5549,12 @@ (SETQ G167197 (APPEND G167197 (|e02defSolve,flam| |i|))))))))) - (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\lambda(nxest)}: \\newline") - (SPADLET |lamList| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\lambda(nxest)}: \\newline") + (setq |lamList| (CONS (CONS '|text| |prefix|) |lamList|)) - (SPADLET |muList| + (setq |muList| (PROG (G167205) - (SPADLET G167205 NIL) + (setq G167205 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |py|) G167205) @@ -5562,14 +5562,14 @@ (SETQ G167205 (APPEND G167205 (|e02defSolve,fmu| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\mu(nyest)}:") - (SPADLET |prefix| (STRCONC |prefix| '|\\newline |)) - (SPADLET |muList| + (setq |prefix| (STRCONC |prefix| '|\\newline |)) + (setq |muList| (CONS (CONS '|text| |prefix|) |muList|)) - (SPADLET |cList| + (setq |cList| (PROG (G167213) - (SPADLET G167213 NIL) + (setq G167213 NIL) (RETURN (DO ((G167218 (TIMES (SPADDIFFERENCE |px| 4) @@ -5580,14 +5580,14 @@ (SETQ G167213 (APPEND G167213 (|e02defSolve,fp| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{}\\tab{2}Enter values of ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|{\\it c((nxest*4)-(nyest*4))}: \\newline |)) - (SPADLET |cList| + (setq |cList| (CONS (CONS '|text| |prefix|) |cList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -5597,7 +5597,7 @@ (APPEND |labelList| (APPEND |lamList| (APPEND |muList| |cList|))))) - (SPADLET |page| + (setq |page| (|htInitPage| "E02DEF - Evaluation of a fitted bicubic spline at a vector of points" NIL)) @@ -5740,10 +5740,10 @@ (PROG (|m| |px| |py| |page|) (RETURN (PROGN - (SPADLET |m| '7) - (SPADLET |px| '11) - (SPADLET |py| '10) - (SPADLET |page| + (setq |m| '7) + (setq |px| '11) + (setq |py| '10) + (setq |page| (|htInitPage| "E02DEF - Evaluation of a fitted bicubic spline at a vector of points" NIL)) (|htMakePage| @@ -5900,60 +5900,60 @@ |xlist| |ylist| |xstring| |ystring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |px| (|htpProperty| |htPage| '|px|)) - (SPADLET |py| (|htpProperty| |htPage| '|py|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |px| (|htpProperty| |htPage| '|px|)) + (setq |py| (|htpProperty| |htPage| '|py|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((G167267 (TIMES (SPADDIFFERENCE |px| 4) (SPADDIFFERENCE |py| 4))) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167267) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |cList| (CONS |right| |cList|)))))) - (SPADLET |cstring| (|bcwords2liststring| |cList|)) + (setq |y| (CDR |y|)) + (setq |cList| (CONS |right| |cList|)))))) + (setq |cstring| (|bcwords2liststring| |cList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |py|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |muList| (CONS |right| |muList|)))))) - (SPADLET |mustring| (|bcwords2liststring| |muList|)) + (setq |y| (CDR |y|)) + (setq |muList| (CONS |right| |muList|)))))) + (setq |mustring| (|bcwords2liststring| |muList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |px|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |lamList| + (setq |y| (CDR |y|)) + (setq |lamList| (CONS |right| |lamList|)))))) - (SPADLET |lamstring| (|bcwords2liststring| |lamList|)) + (setq |lamstring| (|bcwords2liststring| |lamList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |one| + (setq |one| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |two| + (setq |y| (CDR |y|)) + (setq |two| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |two| |xlist|)) - (SPADLET |ylist| (CONS |one| |ylist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |two| |xlist|)) + (setq |ylist| (CONS |one| |ylist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |ystring| (|bcwords2liststring| |ylist|)) + (setq |prefix| (STRCONC "e02def(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |px|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |py|) '|,[| |xstring| '|],[| |ystring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |lamstring| '|],[| |mustring| '|],[| |cstring| '|],|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -6134,7 +6134,7 @@ (DEFUN |e02dffSolve,fx| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -6147,7 +6147,7 @@ (DEFUN |e02dffSolve,fy| (|i|) (PROG (|ynam|) (RETURN - (SEQ (SPADLET |ynam| + (SEQ (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -6160,7 +6160,7 @@ (DEFUN |e02dffSolve,flam| (|i|) (PROG (|lnam|) (RETURN - (SEQ (SPADLET |lnam| + (SEQ (setq |lnam| (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -6173,7 +6173,7 @@ (DEFUN |e02dffSolve,fmu| (|i|) (PROG (|mnam|) (RETURN - (SEQ (SPADLET |mnam| + (SEQ (setq |mnam| (INTERN (STRCONC "m" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -6186,7 +6186,7 @@ (DEFUN |e02dffSolve,fp| (|i|) (PROG (|pnam|) (RETURN - (SEQ (SPADLET |pnam| + (SEQ (setq |pnam| (INTERN (STRCONC "p" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -6203,7 +6203,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |mx| + (setq |mx| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6211,7 +6211,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|mx|))))) - (SPADLET |my| + (setq |my| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6219,7 +6219,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|my|))))) - (SPADLET |px| + (setq |px| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6227,7 +6227,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|px|))))) - (SPADLET |py| + (setq |py| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6235,27 +6235,27 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|py|))))) - (SPADLET |nwrk1| (+ (TIMES 4 |mx|) |px|)) - (SPADLET |nwrk2| (+ (TIMES 4 |my|) |py|)) - (SPADLET |nwrklist| (CONS |nwrk1| (CONS |nwrk2| NIL))) - (SPADLET |nwrkmin| (APPLY 'MIN |nwrklist|)) - (SPADLET |lwrk| |nwrkmin|) - (SPADLET |liwrk| + (setq |nwrk1| (+ (TIMES 4 |mx|) |px|)) + (setq |nwrk2| (+ (TIMES 4 |my|) |py|)) + (setq |nwrklist| (CONS |nwrk1| (CONS |nwrk2| NIL))) + (setq |nwrkmin| (APPLY 'MIN |nwrklist|)) + (setq |lwrk| |nwrkmin|) + (setq |liwrk| (COND ((BOOT-EQUAL |nwrkmin| |nwrk2|) (SPADDIFFERENCE (+ |my| |py|) 4)) ('T (SPADDIFFERENCE (+ |mx| |px|) 4)))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |mx| '7) (BOOT-EQUAL |my| '6) (BOOT-EQUAL |px| '11) (BOOT-EQUAL |py| '10)) (|e02dffDefaultSolve| |htPage| |lwrk| |liwrk| |ifail|)) ('T - (SPADLET |xList| + (setq |xList| (PROG (G167375) - (SPADLET G167375 NIL) + (setq G167375 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mx|) G167375) @@ -6263,9 +6263,9 @@ (SETQ G167375 (APPEND G167375 (|e02dffSolve,fx| |i|))))))))) - (SPADLET |yList| + (setq |yList| (PROG (G167383) - (SPADLET G167383 NIL) + (setq G167383 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |my|) G167383) @@ -6273,15 +6273,15 @@ (SETQ G167383 (APPEND G167383 (|e02dffSolve,fy| |i|))))))))) - (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Enter values of ") - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Enter values of ") + (setq |prefix| (STRCONC |prefix| '|\\htbitmap{yr} : \\newline|)) - (SPADLET |yList| + (setq |yList| (CONS (CONS '|text| |prefix|) |yList|)) - (SPADLET |lamList| + (setq |lamList| (PROG (G167391) - (SPADLET G167391 NIL) + (setq G167391 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |px|) G167391) @@ -6289,12 +6289,12 @@ (SETQ G167391 (APPEND G167391 (|e02dffSolve,flam| |i|))))))))) - (SPADLET |prefix| "\\blankline \\menuitemstyle{}\\tab{2} {\\it \\lambda(nxest)}:\\newline") - (SPADLET |lamList| + (setq |prefix| "\\blankline \\menuitemstyle{}\\tab{2} {\\it \\lambda(nxest)}:\\newline") + (setq |lamList| (CONS (CONS '|text| |prefix|) |lamList|)) - (SPADLET |muList| + (setq |muList| (PROG (G167399) - (SPADLET G167399 NIL) + (setq G167399 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |py|) G167399) @@ -6302,13 +6302,13 @@ (SETQ G167399 (APPEND G167399 (|e02dffSolve,fmu| |i|))))))))) - (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it mu(nyest)}:") - (SPADLET |prefix| (STRCONC |prefix| '|\\newline |)) - (SPADLET |muList| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it mu(nyest)}:") + (setq |prefix| (STRCONC |prefix| '|\\newline |)) + (setq |muList| (CONS (CONS '|text| |prefix|) |muList|)) - (SPADLET |cList| + (setq |cList| (PROG (G167407) - (SPADLET G167407 NIL) + (setq G167407 NIL) (RETURN (DO ((G167412 (TIMES (SPADDIFFERENCE |px| 4) @@ -6319,13 +6319,13 @@ (SETQ G167407 (APPEND G167407 (|e02dffSolve,fp| |i|))))))))) - (SPADLET |prefix| "\\blankline \\menuitemstyle{}\\tab{2} Enter values of ") - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{}\\tab{2} Enter values of ") + (setq |prefix| (STRCONC |prefix| '|{\\it c((px-4)*(py-4))}: \\newline|)) - (SPADLET |cList| + (setq |cList| (CONS (CONS '|text| |prefix|) |cList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -6336,7 +6336,7 @@ (APPEND |yList| (APPEND |lamList| (APPEND |muList| |cList|)))))) - (SPADLET |page| + (setq |page| (|htInitPage| "E02DFF - Evaluation of a fitted bicubic spline at a mesh of points" NIL)) (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\htbitmap{xr}:\\newline ") @@ -6471,11 +6471,11 @@ (PROG (|mx| |my| |px| |py| |page|) (RETURN (PROGN - (SPADLET |mx| '7) - (SPADLET |my| '6) - (SPADLET |px| '11) - (SPADLET |py| '10) - (SPADLET |page| + (setq |mx| '7) + (setq |my| '6) + (setq |px| '11) + (setq |py| '10) + (setq |page| (|htInitPage| "E02DFF - Evaluation of a fitted bicubic spline at a mesh of points" NIL)) (|htMakePage| @@ -6630,69 +6630,69 @@ |yList| |ystring| |right| |y| |xList| |xstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |mx| (|htpProperty| |htPage| '|mx|)) - (SPADLET |my| (|htpProperty| |htPage| '|my|)) - (SPADLET |px| (|htpProperty| |htPage| '|px|)) - (SPADLET |py| (|htpProperty| |htPage| '|py|)) - (SPADLET |lwrk| (|htpProperty| |htPage| '|lwrk|)) - (SPADLET |liwrk| (|htpProperty| |htPage| '|liwrk|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |mx| (|htpProperty| |htPage| '|mx|)) + (setq |my| (|htpProperty| |htPage| '|my|)) + (setq |px| (|htpProperty| |htPage| '|px|)) + (setq |py| (|htpProperty| |htPage| '|py|)) + (setq |lwrk| (|htpProperty| |htPage| '|lwrk|)) + (setq |liwrk| (|htpProperty| |htPage| '|liwrk|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((G167475 (TIMES (SPADDIFFERENCE |px| 4) (SPADDIFFERENCE |py| 4))) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167475) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |cList| (CONS |right| |cList|)))))) - (SPADLET |cstring| (|bcwords2liststring| |cList|)) + (setq |y| (CDR |y|)) + (setq |cList| (CONS |right| |cList|)))))) + (setq |cstring| (|bcwords2liststring| |cList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |py|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |muList| (CONS |right| |muList|)))))) - (SPADLET |mustring| (|bcwords2liststring| |muList|)) + (setq |y| (CDR |y|)) + (setq |muList| (CONS |right| |muList|)))))) + (setq |mustring| (|bcwords2liststring| |muList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |px|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |lamList| + (setq |y| (CDR |y|)) + (setq |lamList| (CONS |right| |lamList|)))))) - (SPADLET |lamstring| (|bcwords2liststring| |lamList|)) + (setq |lamstring| (|bcwords2liststring| |lamList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |my|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |yList| (CONS |right| |yList|)))))) - (SPADLET |ystring| (|bcwords2liststring| |yList|)) + (setq |y| (CDR |y|)) + (setq |yList| (CONS |right| |yList|)))))) + (setq |ystring| (|bcwords2liststring| |yList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mx|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xList| (CONS |right| |xList|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xList|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xList| (CONS |right| |xList|)))))) + (setq |xstring| (|bcwords2liststring| |xList|)) + (setq |prefix| (STRCONC "e02dff(" (STRINGIMAGE |mx|) '|, | (STRINGIMAGE |my|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |px|) '|, | (STRINGIMAGE |py|) '|,[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |xstring| '|],[| |ystring| '|],[| |lamstring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |mustring| '|],[| |cstring| '|],| (STRINGIMAGE |lwrk|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |liwrk|) '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -6837,7 +6837,7 @@ (DEFUN |e02gafSolve,fr| (|i| |j|) (PROG (|fnam|) (RETURN - (SEQ (SPADLET |fnam| + (SEQ (setq |fnam| (INTERN (STRCONC "f" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -6850,9 +6850,9 @@ (DEFUN |e02gafSolve,fc| (|i| |n|) (PROG (|prefix| |tempList|) (RETURN - (SEQ (SPADLET |tempList| + (SEQ (setq |tempList| (PROG (G167566) - (SPADLET G167566 NIL) + (setq G167566 NIL) (RETURN (DO ((G167571 (+ |n| 2)) (|j| 1 (QSADD1 |j|))) @@ -6860,14 +6860,14 @@ (SEQ (EXIT (SETQ G167566 (APPEND G167566 (|e02gafSolve,fr| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |tempList| + (setq |prefix| "\\newline ") + (EXIT (setq |tempList| (CONS (CONS '|text| |prefix|) |tempList|))))))) (DEFUN |e02gafSolve,fb| (|i|) (PROG (|lnam|) (RETURN - (SEQ (SPADLET |lnam| + (SEQ (setq |lnam| (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -6883,7 +6883,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6891,7 +6891,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6899,19 +6899,19 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |la| (+ |m| 2)) - (SPADLET |toler| + (setq |la| (+ |m| 2)) + (setq |toler| (|htpLabelInputString| |htPage| '|toler|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (EQL |m| 5) (EQL |n| 3) (EQL |la| 7)) (|e02gafDefaultSolve| |htPage| |toler| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G167590) - (SPADLET G167590 NIL) + (setq G167590 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |la|) G167590) @@ -6919,9 +6919,9 @@ (SETQ G167590 (APPEND G167590 (|e02gafSolve,fc| |i| |n|))))))))) - (SPADLET |bList| + (setq |bList| (PROG (G167598) - (SPADLET G167598 NIL) + (setq G167598 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G167598) @@ -6929,11 +6929,11 @@ (SETQ G167598 (APPEND G167598 (|e02gafSolve,fb| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Values of {\\it B(m)}: \\newline") - (SPADLET |bList| + (setq |bList| (CONS (CONS '|text| |prefix|) |bList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -6941,7 +6941,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |labelList| |bList|))) - (SPADLET |page| + (setq |page| (|htInitPage| "E02GAF - \\htbitmap{l1}-approximation by general linear function" NIL)) @@ -7032,10 +7032,10 @@ (PROG (|m| |n| |la| |page|) (RETURN (PROGN - (SPADLET |m| '5) - (SPADLET |n| '3) - (SPADLET |la| '7) - (SPADLET |page| + (setq |m| '5) + (setq |n| '3) + (setq |la| '7) + (setq |page| (|htInitPage| "E02GAF - \\htbitmap{l1}-approximation by general linear function" NIL)) (|htMakePage| @@ -7124,26 +7124,26 @@ |blist| |bstring| |y| |k| |matform| |matstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |la| (|htpProperty| |htPage| '|la|)) - (SPADLET |toler| (|htpProperty| |htPage| '|toler|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |nplustwo| (+ |n| 2)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |la| (|htpProperty| |htPage| '|la|)) + (setq |toler| (|htpProperty| |htPage| '|toler|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |nplustwo| (+ |n| 2)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |blist| (CONS |right| |blist|)))))) - (SPADLET |bstring| (|bcwords2liststring| |blist|)) - (SPADLET |y| (REVERSE |y|)) - (SPADLET |k| (SPADDIFFERENCE 1)) - (SPADLET |matform| + (setq |y| (CDR |y|)) + (setq |blist| (CONS |right| |blist|)))))) + (setq |bstring| (|bcwords2liststring| |blist|)) + (setq |y| (REVERSE |y|)) + (setq |k| (SPADDIFFERENCE 1)) + (setq |matform| (PROG (G167646) - (SPADLET G167646 NIL) + (setq G167646 NIL) (RETURN (DO ((G167651 (SPADDIFFERENCE |la| 1)) (|i| 0 (QSADD1 |i|))) @@ -7152,7 +7152,7 @@ (SEQ (EXIT (SETQ G167646 (CONS (PROG (G167659) - (SPADLET G167659 NIL) + (setq G167659 NIL) (RETURN (DO ((G167664 @@ -7168,15 +7168,15 @@ (CONS (ELT (ELT |y| - (SPADLET |k| + (setq |k| (+ |k| 1))) 1) G167659))))))) G167646)))))))) - (SPADLET |matstring| + (setq |matstring| (|bcwords2liststring| (PROG (G167672) - (SPADLET G167672 NIL) + (setq G167672 NIL) (RETURN (DO ((G167677 |matform| (CDR G167677)) @@ -7190,16 +7190,16 @@ (SETQ G167672 (CONS (|bcwords2liststring| |x|) G167672))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "e02gaf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |la|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nplustwo|) '|, | (STRINGIMAGE |toler|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |matstring| '|,[| |bstring| '|], |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -7423,20 +7423,20 @@ (DEFUN |e02dafSolve,fxy| (|i|) (PROG (|prefix| |middle| |next| |end| |xnam| |ynam| |fnam| |wnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{17} ") - (SPADLET |next| "\\tab{32} ") - (SPADLET |end| "\\tab{47} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{17} ") + (setq |next| "\\tab{32} ") + (setq |end| "\\tab{47} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |fnam| + (setq |fnam| (INTERN (STRCONC "f" (STRINGIMAGE |i|)))) - (SPADLET |wnam| + (setq |wnam| (INTERN (STRCONC "w" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -7475,7 +7475,7 @@ (DEFUN |e02dafSolve,flam| (|i|) (PROG (|lnam|) (RETURN - (SEQ (SPADLET |lnam| + (SEQ (setq |lnam| (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -7488,7 +7488,7 @@ (DEFUN |e02dafSolve,fmu| (|i|) (PROG (|mnam|) (RETURN - (SEQ (SPADLET |mnam| + (SEQ (setq |mnam| (INTERN (STRCONC "m" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -7501,8 +7501,8 @@ (DEFUN |e02dafSolve,fp| (|i|) (PROG (|prefix| |pnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |pnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |pnam| (INTERN (STRCONC "p" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -7521,7 +7521,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -7529,7 +7529,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |px| + (setq |px| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -7537,7 +7537,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|px|))))) - (SPADLET |py| + (setq |py| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -7545,7 +7545,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|py|))))) - (SPADLET |npoint| + (setq |npoint| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -7554,17 +7554,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|npoint|))))) - (SPADLET |nc| + (setq |nc| (TIMES (SPADDIFFERENCE |px| 4) (SPADDIFFERENCE |py| 4))) - (SPADLET |nws| + (setq |nws| (SPADDIFFERENCE (TIMES (+ (TIMES 2 |nc|) 1) (SPADDIFFERENCE (TIMES 3 |py|) 6)) 2)) - (SPADLET |eps| (|htpLabelInputString| |htPage| '|eps|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |eps| (|htpLabelInputString| |htPage| '|eps|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '30) (BOOT-EQUAL |px| '8) @@ -7572,9 +7572,9 @@ (|e02dafDefaultSolve| |htPage| |eps| |nws| |npoint| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G167752) - (SPADLET G167752 NIL) + (setq G167752 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G167752) @@ -7582,9 +7582,9 @@ (SETQ G167752 (APPEND G167752 (|e02dafSolve,fxy| |i|))))))))) - (SPADLET |lamList| + (setq |lamList| (PROG (G167760) - (SPADLET G167760 NIL) + (setq G167760 NIL) (RETURN (DO ((G167765 (SPADDIFFERENCE |px| 4)) (|i| 5 (+ |i| 1))) @@ -7593,19 +7593,19 @@ (SETQ G167760 (APPEND G167760 (|e02dafSolve,flam| |i|))))))))) - (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} lamda(5) to lamda(px-4): ") - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} lamda(5) to lamda(px-4): ") + (setq |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) - (SPADLET |postfix| + (setq |postfix| "\\newline \\blankline ") - (SPADLET |lamList| + (setq |lamList| (CONS (CONS '|text| |prefix|) (APPEND |lamList| (CONS (CONS '|text| |postfix|) NIL)))) - (SPADLET |muList| + (setq |muList| (PROG (G167769) - (SPADLET G167769 NIL) + (setq G167769 NIL) (RETURN (DO ((G167774 (SPADDIFFERENCE |py| 4)) (|i| 5 (+ |i| 1))) @@ -7614,15 +7614,15 @@ (SETQ G167769 (APPEND G167769 (|e02dafSolve,fmu| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\menuitemstyle{} \\tab{2} mu(5) to mu(py-4):") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) - (SPADLET |muList| + (setq |muList| (CONS (CONS '|text| |prefix|) |muList|)) - (SPADLET |pList| + (setq |pList| (PROG (G167778) - (SPADLET G167778 NIL) + (setq G167778 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |npoint|) G167778) @@ -7630,11 +7630,11 @@ (SETQ G167778 (APPEND G167778 (|e02dafSolve,fp| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Enter values of Point: ") - (SPADLET |pList| + (setq |pList| (CONS (CONS '|text| |prefix|) |pList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -7644,7 +7644,7 @@ (APPEND |labelList| (APPEND |lamList| (APPEND |muList| |pList|))))) - (SPADLET |page| + (setq |page| (|htInitPage| "E02DAF - Least-squares surface fit, bicubic splines" NIL)) @@ -8030,10 +8030,10 @@ (PROG (|m| |px| |py| |page|) (RETURN (PROGN - (SPADLET |m| '30) - (SPADLET |px| '8) - (SPADLET |py| '10) - (SPADLET |page| + (setq |m| '30) + (setq |px| '8) + (setq |py| '10) + (setq |page| (|htInitPage| "E02DAF - Least-squares surface fit, bicubic splines" NIL)) (|htMakePage| @@ -8375,100 +8375,100 @@ |fstring| |wstring| |nc| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |px| (|htpProperty| |htPage| '|px|)) - (SPADLET |py| (|htpProperty| |htPage| '|py|)) - (SPADLET |nws| (|htpProperty| |htPage| '|nws|)) - (SPADLET |eps| (|htpProperty| |htPage| '|eps|)) - (SPADLET |npoint| (|htpProperty| |htPage| '|npoint|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |nadres| + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |px| (|htpProperty| |htPage| '|px|)) + (setq |py| (|htpProperty| |htPage| '|py|)) + (setq |nws| (|htpProperty| |htPage| '|nws|)) + (setq |eps| (|htpProperty| |htPage| '|eps|)) + (setq |npoint| (|htpProperty| |htPage| '|npoint|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |nadres| (TIMES (SPADDIFFERENCE |px| 7) (SPADDIFFERENCE |py| 7))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |npoint|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |pointList| + (setq |y| (CDR |y|)) + (setq |pointList| (CONS |right| |pointList|)))))) - (SPADLET |pstring| (|bcwords2liststring| |pointList|)) + (setq |pstring| (|bcwords2liststring| |pointList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) - (SEQ (EXIT (SPADLET |muList| + (SEQ (EXIT (setq |muList| (CONS "0 " |muList|))))) (DO ((G167851 (SPADDIFFERENCE |py| 4)) (|i| 5 (+ |i| 1))) ((> |i| G167851) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |muList| (CONS |right| |muList|)))))) + (setq |y| (CDR |y|)) + (setq |muList| (CONS |right| |muList|)))))) (DO ((|i| (SPADDIFFERENCE |py| 3) (+ |i| 1))) ((> |i| |py|) NIL) - (SEQ (EXIT (SPADLET |muList| + (SEQ (EXIT (setq |muList| (CONS "0 " |muList|))))) - (SPADLET |mustring| (|bcwords2liststring| |muList|)) + (setq |mustring| (|bcwords2liststring| |muList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) - (SEQ (EXIT (SPADLET |lamList| + (SEQ (EXIT (setq |lamList| (CONS "0 " |lamList|))))) (DO ((G167873 (SPADDIFFERENCE |px| 4)) (|i| 5 (+ |i| 1))) ((> |i| G167873) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |lamList| + (setq |y| (CDR |y|)) + (setq |lamList| (CONS |right| |lamList|)))))) (DO ((|i| (SPADDIFFERENCE |px| 3) (+ |i| 1))) ((> |i| |px|) NIL) - (SEQ (EXIT (SPADLET |lamList| + (SEQ (EXIT (setq |lamList| (CONS "0 " |lamList|))))) - (SPADLET |lamstring| (|bcwords2liststring| |lamList|)) + (setq |lamstring| (|bcwords2liststring| |lamList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |one| + (setq |one| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |two| + (setq |y| (CDR |y|)) + (setq |two| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |three| + (setq |y| (CDR |y|)) + (setq |three| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |four| + (setq |y| (CDR |y|)) + (setq |four| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |four| |xlist|)) - (SPADLET |ylist| (CONS |three| |ylist|)) - (SPADLET |flist| (CONS |two| |flist|)) - (SPADLET |wlist| (CONS |one| |wlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) - (SPADLET |fstring| (|bcwords2liststring| |flist|)) - (SPADLET |wstring| (|bcwords2liststring| |wlist|)) - (SPADLET |nc| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |four| |xlist|)) + (setq |ylist| (CONS |three| |ylist|)) + (setq |flist| (CONS |two| |flist|)) + (setq |wlist| (CONS |one| |wlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |ystring| (|bcwords2liststring| |ylist|)) + (setq |fstring| (|bcwords2liststring| |flist|)) + (setq |wstring| (|bcwords2liststring| |wlist|)) + (setq |nc| (TIMES (SPADDIFFERENCE |px| 4) (SPADDIFFERENCE |py| 4))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "e02daf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |px|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |py|) '|,[| |xstring| '|],[| |ystring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |fstring| '|],[| |wstring| '|],[| |mustring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |pstring| '|], | (STRINGIMAGE |npoint|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nc|) '|, | (STRINGIMAGE |nws|) '|, | |eps| '|, [|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |lamstring| '|], | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -8660,7 +8660,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |mx| + (setq |mx| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -8668,7 +8668,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|mx|))))) - (SPADLET |my| + (setq |my| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -8676,7 +8676,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|my|))))) - (SPADLET |nxest| + (setq |nxest| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -8684,7 +8684,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nxest|))))) - (SPADLET |nyest| + (setq |nyest| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -8692,23 +8692,23 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nyest|))))) - (SPADLET |wrklist| (CONS |my| (CONS |nxest| NIL))) - (SPADLET |wrkmax| (APPLY 'MAX |wrklist|)) - (SPADLET |lwrk| + (setq |wrklist| (CONS |my| (CONS |nxest| NIL))) + (setq |wrkmax| (APPLY 'MAX |wrklist|)) + (setq |lwrk| (+ (+ (+ (+ (TIMES 4 (+ |mx| |my|)) (TIMES 11 (+ |nxest| |nyest|))) (TIMES |nxest| |my|)) |wrkmax|) 54)) - (SPADLET |liwrk| + (setq |liwrk| (+ (+ (+ (+ 3 |mx|) |my|) |nxest|) |nyest|)) - (SPADLET |s| (|htpLabelInputString| |htPage| '|s|)) - (SPADLET |initial| (|htpButtonValue| |htPage| '|start|)) - (SPADLET |start| + (setq |s| (|htpLabelInputString| |htPage| '|s|)) + (setq |initial| (|htpButtonValue| |htPage| '|start|)) + (setq |start| (COND ((BOOT-EQUAL |initial| '|cold|) '1) ('T '2))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (EQL |mx| 11) (EQL |my| 9) (EQL |start| 1)) @@ -8776,7 +8776,7 @@ (DEFUN |e02dcfColdSolve,f| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -8789,7 +8789,7 @@ (DEFUN |e02dcfColdSolve,g| (|i|) (PROG (|ynam|) (RETURN - (SEQ (SPADLET |ynam| + (SEQ (setq |ynam| (INTERN (STRCONC "g" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -8802,7 +8802,7 @@ (DEFUN |e02dcfColdSolve,h| (|i|) (PROG (|fnam|) (RETURN - (SEQ (SPADLET |fnam| + (SEQ (setq |fnam| (INTERN (STRCONC "g" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -8818,30 +8818,30 @@ (declare (special |$EmptyMode|)) (RETURN (SEQ (PROGN - (SPADLET |xList| + (setq |xList| (PROG (G167999) - (SPADLET G167999 NIL) + (setq G167999 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |mx|) G167999) (SEQ (EXIT (SETQ G167999 (APPEND G167999 (|e02dcfColdSolve,f| |i|))))))))) - (SPADLET |yList| + (setq |yList| (PROG (G168007) - (SPADLET G168007 NIL) + (setq G168007 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |my|) G168007) (SEQ (EXIT (SETQ G168007 (APPEND G168007 (|e02dcfColdSolve,g| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{}\\tab{2} Values of {\\it y(my)}: \\newline ") - (SPADLET |yList| (CONS (CONS '|text| |prefix|) |yList|)) - (SPADLET |fList| + (setq |yList| (CONS (CONS '|text| |prefix|) |yList|)) + (setq |fList| (PROG (G168015) - (SPADLET G168015 NIL) + (setq G168015 NIL) (RETURN (DO ((G168020 (TIMES |mx| |my|)) (|i| 1 (QSADD1 |i|))) @@ -8849,10 +8849,10 @@ (SEQ (EXIT (SETQ G168015 (APPEND G168015 (|e02dcfColdSolve,h| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Values of {\\it f(mx*my)}: \\newline ") - (SPADLET |fList| (CONS (CONS '|text| |prefix|) |fList|)) - (SPADLET |equationPart| + (setq |fList| (CONS (CONS '|text| |prefix|) |fList|)) + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -8860,7 +8860,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |xList| (APPEND |yList| |fList|)))) - (SPADLET |page| + (setq |page| (|htInitPage| "E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid" NIL)) @@ -9033,9 +9033,9 @@ (PROG (|mx| |my| |page|) (RETURN (PROGN - (SPADLET |mx| 11) - (SPADLET |my| 9) - (SPADLET |page| + (setq |mx| 11) + (setq |my| 9) + (setq |page| (|htInitPage| "E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid" NIL)) @@ -9225,64 +9225,64 @@ |y| |xlist| |xstring| |prefix| |end|) (RETURN (SEQ (PROGN - (SPADLET |mx| (|htpProperty| |htPage| '|mx|)) - (SPADLET |my| (|htpProperty| |htPage| '|my|)) - (SPADLET |nxest| (|htpProperty| |htPage| '|nxest|)) - (SPADLET |nyest| (|htpProperty| |htPage| '|nyest|)) - (SPADLET |lwrk| (|htpProperty| |htPage| '|lwrk|)) - (SPADLET |liwrk| (|htpProperty| |htPage| '|liwrk|)) - (SPADLET |s| (|htpProperty| |htPage| '|s|)) - (SPADLET |cold| "c") - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |mx| (|htpProperty| |htPage| '|mx|)) + (setq |my| (|htpProperty| |htPage| '|my|)) + (setq |nxest| (|htpProperty| |htPage| '|nxest|)) + (setq |nyest| (|htpProperty| |htPage| '|nyest|)) + (setq |lwrk| (|htpProperty| |htPage| '|lwrk|)) + (setq |liwrk| (|htpProperty| |htPage| '|liwrk|)) + (setq |s| (|htpProperty| |htPage| '|s|)) + (setq |cold| "c") + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((G168056 (TIMES |mx| |my|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G168056) NIL) (SEQ (EXIT (PROGN - (SPADLET |end| + (setq |end| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |fList| (CONS |end| |fList|)))))) - (SPADLET |fstring| (|bcwords2liststring| |fList|)) + (setq |y| (CDR |y|)) + (setq |fList| (CONS |end| |fList|)))))) + (setq |fstring| (|bcwords2liststring| |fList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |my|) NIL) (SEQ (EXIT (PROGN - (SPADLET |mid| + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |ylist| (CONS |mid| |ylist|)))))) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) + (setq |y| (CDR |y|)) + (setq |ylist| (CONS |mid| |ylist|)))))) + (setq |ystring| (|bcwords2liststring| |ylist|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |start| + (setq |start| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |start| |xlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |start| |xlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |prefix| (STRCONC "e02dcf(\"" |cold| '|",| (STRINGIMAGE |mx|) '|, [| |xstring| '|],|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |my|) '|,[| |ystring| '|],[| |fstring| '|], |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |s|) '|, | (STRINGIMAGE |nxest|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nyest|) '|, | (STRINGIMAGE |lwrk|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |liwrk|) '|,0,new(1,| (STRINGIMAGE |nxest|) '|,0.0)$MATRIX DFLOAT,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|0,new(1,| (STRINGIMAGE |nyest|) '|,0.0)$MATRIX DFLOAT,|)) - (SPADLET |end| + (setq |end| (STRCONC '|new(1,| (STRINGIMAGE |lwrk|) '|,0.0)$MATRIX DFLOAT,[[0 for i in 1..|)) - (SPADLET |end| + (setq |end| (STRCONC |end| (STRINGIMAGE |liwrk|) '|]]::Matrix Integer,| (STRINGIMAGE |ifail|) '|)|)) @@ -9504,20 +9504,20 @@ (DEFUN |e02ddfSolve,f| (|i|) (PROG (|prefix| |middle| |post| |end| |xnam| |ynam| |fnam| |wnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{17} ") - (SPADLET |post| "\\tab{32} ") - (SPADLET |end| "\\tab{47} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{17} ") + (setq |post| "\\tab{32} ") + (setq |end| "\\tab{47} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |fnam| + (setq |fnam| (INTERN (STRCONC "f" (STRINGIMAGE |i|)))) - (SPADLET |wnam| + (setq |wnam| (INTERN (STRCONC "w" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -9556,7 +9556,7 @@ (DEFUN |e02ddfSolve,g| (|i|) (PROG (|lnam|) (RETURN - (SEQ (SPADLET |lnam| + (SEQ (setq |lnam| (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -9569,7 +9569,7 @@ (DEFUN |e02ddfSolve,h| (|i|) (PROG (|mnam|) (RETURN - (SEQ (SPADLET |mnam| + (SEQ (setq |mnam| (INTERN (STRCONC "m" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -9587,7 +9587,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -9595,7 +9595,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |nxest| + (setq |nxest| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -9604,7 +9604,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nxest|))))) - (SPADLET |nyest| + (setq |nyest| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -9613,11 +9613,11 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nyest|))))) - (SPADLET |u| (SPADDIFFERENCE |nxest| 4)) - (SPADLET |v| (SPADDIFFERENCE |nyest| 4)) - (SPADLET |wlist| (CONS |u| (CONS |v| NIL))) - (SPADLET |w| (APPLY 'MAX |wlist|)) - (SPADLET |lwrk| + (setq |u| (SPADDIFFERENCE |nxest| 4)) + (setq |v| (SPADDIFFERENCE |nyest| 4)) + (setq |wlist| (CONS |u| (CONS |v| NIL))) + (setq |w| (APPLY 'MAX |wlist|)) + (setq |lwrk| (+ (+ (+ (TIMES (+ (TIMES (TIMES 7 |u|) |v|) @@ -9628,18 +9628,18 @@ (TIMES 4 |m|)))) (TIMES 23 |w|)) 56)) - (SPADLET |liwrk| + (setq |liwrk| (+ |m| (TIMES (TIMES 2 (SPADDIFFERENCE |nxest| 7)) (SPADDIFFERENCE |nyest| 7)))) - (SPADLET |s| (|htpLabelInputString| |htPage| '|s|)) - (SPADLET |initial| (|htpButtonValue| |htPage| '|start|)) - (SPADLET |start| + (setq |s| (|htpLabelInputString| |htPage| '|s|)) + (setq |initial| (|htpButtonValue| |htPage| '|start|)) + (setq |start| (COND ((BOOT-EQUAL |initial| '|cold|) '1) ('T '2))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (EQL |m| 30) (EQL |start| 1)) @@ -9649,9 +9649,9 @@ (|e02ddfColdSolve| |htPage| |m| |nxest| |nyest| |lwrk| |liwrk| |s| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G168147) - (SPADLET G168147 NIL) + (setq G168147 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G168147) @@ -9659,9 +9659,9 @@ (SETQ G168147 (APPEND G168147 (|e02ddfSolve,f| |i|))))))))) - (SPADLET |lamdaList| + (setq |lamdaList| (PROG (G168155) - (SPADLET G168155 NIL) + (setq G168155 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nxest|) G168155) @@ -9669,12 +9669,12 @@ (SETQ G168155 (APPEND G168155 (|e02ddfSolve,g| |i|))))))))) - (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Values of Lamda: \\newline") - (SPADLET |lamdaList| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Values of Lamda: \\newline") + (setq |lamdaList| (CONS (CONS '|text| |prefix|) |lamdaList|)) - (SPADLET |muList| + (setq |muList| (PROG (G168163) - (SPADLET G168163 NIL) + (setq G168163 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nyest|) G168163) @@ -9682,11 +9682,11 @@ (SETQ G168163 (APPEND G168163 (|e02ddfSolve,h| |i|))))))))) - (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Values of Mu: \\newline") - (SPADLET |muList| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Values of Mu: \\newline") + (setq |muList| (CONS (CONS '|text| |prefix|) |muList|)) - (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Value of nx: \\newline \\tab{2}") - (SPADLET |nxList| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Value of nx: \\newline \\tab{2}") + (setq |nxList| (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| (CONS @@ -9695,8 +9695,8 @@ (CONS '|nx| (CONS 'PI NIL)))) NIL)) NIL))) - (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Value of ny: \\newline \\tab{2}") - (SPADLET |nyList| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Value of ny: \\newline \\tab{2}") + (setq |nyList| (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| (CONS @@ -9705,8 +9705,8 @@ (CONS '|ny| (CONS 'PI NIL)))) NIL)) NIL))) - (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Value of WRK(1): \\newline \\tab{2}") - (SPADLET |wList| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Value of WRK(1): \\newline \\tab{2}") + (setq |wList| (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| (CONS @@ -9715,7 +9715,7 @@ (CONS '|wone| (CONS 'F NIL)))) NIL)) NIL))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -9727,7 +9727,7 @@ (APPEND |muList| (APPEND |nxList| (APPEND |nyList| |wList|))))))) - (SPADLET |page| + (setq |page| (|htInitPage| "E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data" NIL)) @@ -9797,20 +9797,20 @@ (DEFUN |e02ddfColdSolve,f| (|i|) (PROG (|prefix| |middle| |post| |end| |xnam| |ynam| |fnam| |wnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{17} ") - (SPADLET |post| "\\tab{32} ") - (SPADLET |end| "\\tab{47} ") - (SPADLET |xnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{17} ") + (setq |post| "\\tab{32} ") + (setq |end| "\\tab{47} ") + (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |ynam| + (setq |ynam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) - (SPADLET |fnam| + (setq |fnam| (INTERN (STRCONC "f" (STRINGIMAGE |i|)))) - (SPADLET |wnam| + (setq |wnam| (INTERN (STRCONC "w" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -9852,16 +9852,16 @@ (declare (special |$EmptyMode|)) (RETURN (SEQ (PROGN - (SPADLET |labelList| + (setq |labelList| (PROG (G168220) - (SPADLET G168220 NIL) + (setq G168220 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G168220) (SEQ (EXIT (SETQ G168220 (APPEND G168220 (|e02ddfColdSolve,f| |i|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -9869,7 +9869,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |labelList|)) - (SPADLET |page| + (setq |page| (|htInitPage| "E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data" NIL)) @@ -10163,8 +10163,8 @@ (PROG (|m| |page|) (RETURN (PROGN - (SPADLET |m| 30) - (SPADLET |page| + (setq |m| 30) + (setq |page| (|htInitPage| "E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data" NIL)) @@ -10392,63 +10392,63 @@ |wlist| |xstring| |ystring| |fstring| |wstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |nxest| (|htpProperty| |htPage| '|nxest|)) - (SPADLET |nyest| (|htpProperty| |htPage| '|nyest|)) - (SPADLET |lwrk| (|htpProperty| |htPage| '|lwrk|)) - (SPADLET |liwrk| (|htpProperty| |htPage| '|liwrk|)) - (SPADLET |s| (|htpProperty| |htPage| '|s|)) - (SPADLET |cold| "c") - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |nxest| (|htpProperty| |htPage| '|nxest|)) + (setq |nyest| (|htpProperty| |htPage| '|nyest|)) + (setq |lwrk| (|htpProperty| |htPage| '|lwrk|)) + (setq |liwrk| (|htpProperty| |htPage| '|liwrk|)) + (setq |s| (|htpProperty| |htPage| '|s|)) + (setq |cold| "c") + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |end| + (setq |end| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |right| + (setq |y| (CDR |y|)) + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |ylist| (CONS |mid| |ylist|)) - (SPADLET |flist| (CONS |right| |flist|)) - (SPADLET |wlist| (CONS |end| |wlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) - (SPADLET |fstring| (|bcwords2liststring| |flist|)) - (SPADLET |wstring| (|bcwords2liststring| |wlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |ylist| (CONS |mid| |ylist|)) + (setq |flist| (CONS |right| |flist|)) + (setq |wlist| (CONS |end| |wlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |ystring| (|bcwords2liststring| |ylist|)) + (setq |fstring| (|bcwords2liststring| |flist|)) + (setq |wstring| (|bcwords2liststring| |wlist|)) + (setq |prefix| (STRCONC "e02ddf(\"" |cold| '|",| (STRINGIMAGE |m|) '|, [| |xstring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |ystring| '|],[| |fstring| '|],[| |wstring| '|], |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |s|) '|, | (STRINGIMAGE |nxest|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nyest|) '|, | (STRINGIMAGE |lwrk|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |liwrk|) '|, 0,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|new(1,| (STRINGIMAGE |nxest|) '|,0.0)$MATRIX DFLOAT,0,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|new(1,| (STRINGIMAGE |nyest|) '|,0.0)$MATRIX DFLOAT,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|new(1,| (STRINGIMAGE |lwrk|) '|,0.0)$MATRIX DFLOAT,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -10519,83 +10519,83 @@ |ystring| |fstring| |wstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |nxest| (|htpProperty| |htPage| '|nxest|)) - (SPADLET |nyest| (|htpProperty| |htPage| '|nyest|)) - (SPADLET |lwrk| (|htpProperty| |htPage| '|lwrk|)) - (SPADLET |liwrk| (|htpProperty| |htPage| '|liwrk|)) - (SPADLET |s| (|htpProperty| |htPage| '|s|)) - (SPADLET |warm| "w") - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |wrk| (ELT (CAR |y|) 1)) - (SPADLET |y| (CDR |y|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |nxest| (|htpProperty| |htPage| '|nxest|)) + (setq |nyest| (|htpProperty| |htPage| '|nyest|)) + (setq |lwrk| (|htpProperty| |htPage| '|lwrk|)) + (setq |liwrk| (|htpProperty| |htPage| '|liwrk|)) + (setq |s| (|htpProperty| |htPage| '|s|)) + (setq |warm| "w") + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |wrk| (ELT (CAR |y|) 1)) + (setq |y| (CDR |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lwrk|) NIL) - (SEQ (EXIT (SPADLET |wrkList| + (SEQ (EXIT (setq |wrkList| (CONS "0.0 " |wrkList|))))) - (SPADLET |wrkList| (CONS |wrk| |wrkList|)) - (SPADLET |wrkstring| (|bcwords2liststring| |wrkList|)) - (SPADLET |ny| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |nx| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) + (setq |wrkList| (CONS |wrk| |wrkList|)) + (setq |wrkstring| (|bcwords2liststring| |wrkList|)) + (setq |ny| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |nx| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nyest|) NIL) (SEQ (EXIT (PROGN - (SPADLET |mu| + (setq |mu| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |muList| (CONS |mu| |muList|)))))) - (SPADLET |mustring| (|bcwords2liststring| |muList|)) + (setq |y| (CDR |y|)) + (setq |muList| (CONS |mu| |muList|)))))) + (setq |mustring| (|bcwords2liststring| |muList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nxest|) NIL) (SEQ (EXIT (PROGN - (SPADLET |lam| + (setq |lam| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |lamList| (CONS |lam| |lamList|)))))) - (SPADLET |lamstring| (|bcwords2liststring| |lamList|)) + (setq |y| (CDR |y|)) + (setq |lamList| (CONS |lam| |lamList|)))))) + (setq |lamstring| (|bcwords2liststring| |lamList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |end| + (setq |end| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |right| + (setq |y| (CDR |y|)) + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |ylist| (CONS |mid| |ylist|)) - (SPADLET |flist| (CONS |right| |flist|)) - (SPADLET |wlist| (CONS |end| |wlist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) - (SPADLET |fstring| (|bcwords2liststring| |flist|)) - (SPADLET |wstring| (|bcwords2liststring| |wlist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |ylist| (CONS |mid| |ylist|)) + (setq |flist| (CONS |right| |flist|)) + (setq |wlist| (CONS |end| |wlist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |ystring| (|bcwords2liststring| |ylist|)) + (setq |fstring| (|bcwords2liststring| |flist|)) + (setq |wstring| (|bcwords2liststring| |wlist|)) + (setq |prefix| (STRCONC "e02ddf(\"" |warm| '|",| (STRINGIMAGE |m|) '|, [| |xstring| '|],[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |ystring| '|],[| |fstring| '|],[| |wstring| '|], |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |s|) '|, | (STRINGIMAGE |nxest|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nyest|) '|, | (STRINGIMAGE |lwrk|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |liwrk|) '|, | |nx| '|,[| |lamstring| '|],| |ny|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|,[| |mustring| '|],[| |wrkstring| '|],|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -10762,12 +10762,12 @@ (DEFUN |e02zafSolve,fxy| (|i|) (PROG (|prefix| |middle| |lnam| |cnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |middle| "\\tab{32} ") - (SPADLET |lnam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |middle| "\\tab{32} ") + (setq |lnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) - (SPADLET |cnam| + (setq |cnam| (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -10790,7 +10790,7 @@ (DEFUN |e02zafSolve,flam| (|i|) (PROG (|lnam|) (RETURN - (SEQ (SPADLET |lnam| + (SEQ (setq |lnam| (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -10803,7 +10803,7 @@ (DEFUN |e02zafSolve,fmu| (|i|) (PROG (|mnam|) (RETURN - (SEQ (SPADLET |mnam| + (SEQ (setq |mnam| (INTERN (STRCONC "m" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -10819,7 +10819,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -10827,7 +10827,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |px| + (setq |px| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -10835,7 +10835,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|px|))))) - (SPADLET |py| + (setq |py| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -10843,7 +10843,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|py|))))) - (SPADLET |npoint| + (setq |npoint| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -10852,17 +10852,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|npoint|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '10) (BOOT-EQUAL |px| '9) (BOOT-EQUAL |py| '10)) (|e02zafDefaultSolve| |htPage| |npoint| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G168429) - (SPADLET G168429 NIL) + (setq G168429 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G168429) @@ -10870,9 +10870,9 @@ (SETQ G168429 (APPEND G168429 (|e02zafSolve,fxy| |i|))))))))) - (SPADLET |lamList| + (setq |lamList| (PROG (G168437) - (SPADLET G168437 NIL) + (setq G168437 NIL) (RETURN (DO ((G168442 (SPADDIFFERENCE |px| 4)) (|i| 5 (+ |i| 1))) @@ -10881,15 +10881,15 @@ (SETQ G168437 (APPEND G168437 (|e02zafSolve,flam| |i|))))))))) - (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\lambda(5) to ") - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\lambda(5) to ") + (setq |prefix| (STRCONC |prefix| '|\\lambda(px-4)}: \\newline \\tab{2} |)) - (SPADLET |lamList| + (setq |lamList| (CONS (CONS '|text| |prefix|) |lamList|)) - (SPADLET |muList| + (setq |muList| (PROG (G168446) - (SPADLET G168446 NIL) + (setq G168446 NIL) (RETURN (DO ((G168451 (SPADDIFFERENCE |py| 4)) (|i| 5 (+ |i| 1))) @@ -10898,13 +10898,13 @@ (SETQ G168446 (APPEND G168446 (|e02zafSolve,fmu| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\mu(5) to \\mu(py-4)}: ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) - (SPADLET |muList| + (setq |muList| (CONS (CONS '|text| |prefix|) |muList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -10913,7 +10913,7 @@ (|isDomain| PI (|PositiveInteger|))) (APPEND |labelList| (APPEND |lamList| |muList|)))) - (SPADLET |page| + (setq |page| (|htInitPage| "E02ZAF - Sort 2-D sata into panels for fitting bicubic splines" NIL)) @@ -11006,10 +11006,10 @@ (PROG (|m| |px| |py| |page|) (RETURN (PROGN - (SPADLET |m| '10) - (SPADLET |px| '9) - (SPADLET |py| '10) - (SPADLET |page| + (setq |m| '10) + (setq |px| '9) + (setq |py| '10) + (setq |page| (|htInitPage| "E02ZAF - Sort 2-D sata into panels for fitting bicubic splines" NIL)) (|htMakePage| @@ -11120,72 +11120,72 @@ |xlist| |ylist| |xstring| |ystring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |px| (|htpProperty| |htPage| '|px|)) - (SPADLET |py| (|htpProperty| |htPage| '|py|)) - (SPADLET |npoint| (|htpProperty| |htPage| '|npoint|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |nadres| + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |px| (|htpProperty| |htPage| '|px|)) + (setq |py| (|htpProperty| |htPage| '|py|)) + (setq |npoint| (|htpProperty| |htPage| '|npoint|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |nadres| (TIMES (SPADDIFFERENCE |px| 7) (SPADDIFFERENCE |py| 7))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) - (SEQ (EXIT (SPADLET |muList| + (SEQ (EXIT (setq |muList| (CONS "0 " |muList|))))) (DO ((G168502 (SPADDIFFERENCE |py| 4)) (|i| 5 (+ |i| 1))) ((> |i| G168502) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |muList| (CONS |right| |muList|)))))) + (setq |y| (CDR |y|)) + (setq |muList| (CONS |right| |muList|)))))) (DO ((|i| (SPADDIFFERENCE |py| 3) (+ |i| 1))) ((> |i| |py|) NIL) - (SEQ (EXIT (SPADLET |muList| + (SEQ (EXIT (setq |muList| (CONS "0 " |muList|))))) - (SPADLET |mustring| (|bcwords2liststring| |muList|)) + (setq |mustring| (|bcwords2liststring| |muList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) - (SEQ (EXIT (SPADLET |lamList| + (SEQ (EXIT (setq |lamList| (CONS "0 " |lamList|))))) (DO ((G168524 (SPADDIFFERENCE |px| 4)) (|i| 5 (+ |i| 1))) ((> |i| G168524) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |lamList| + (setq |y| (CDR |y|)) + (setq |lamList| (CONS |right| |lamList|)))))) (DO ((|i| (SPADDIFFERENCE |px| 3) (+ |i| 1))) ((> |i| |px|) NIL) - (SEQ (EXIT (SPADLET |lamList| + (SEQ (EXIT (setq |lamList| (CONS "0 " |lamList|))))) - (SPADLET |lamstring| (|bcwords2liststring| |lamList|)) + (setq |lamstring| (|bcwords2liststring| |lamList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |left| + (setq |y| (CDR |y|)) + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |xlist| (CONS |left| |xlist|)) - (SPADLET |ylist| (CONS |right| |ylist|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |ystring| (|bcwords2liststring| |ylist|)) - (SPADLET |prefix| + (setq |y| (CDR |y|)) + (setq |xlist| (CONS |left| |xlist|)) + (setq |ylist| (CONS |right| |ylist|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |ystring| (|bcwords2liststring| |ylist|)) + (setq |prefix| (STRCONC "e02zaf(" (STRINGIMAGE |px|) '|, | (STRINGIMAGE |py|) '|,[|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |lamstring| '|],[| |mustring| '|], | (STRINGIMAGE |m|) '|, [|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |xstring| '|],[| |ystring| '|], | (STRINGIMAGE |npoint|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nadres|) '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) diff --git a/src/interp/nag-e04.lisp.pamphlet b/src/interp/nag-e04.lisp.pamphlet index 64373bb..c014e7e 100644 --- a/src/interp/nag-e04.lisp.pamphlet +++ b/src/interp/nag-e04.lisp.pamphlet @@ -176,7 +176,7 @@ (DEFUN |e04dgfSolve,fb| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| @@ -193,7 +193,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -201,17 +201,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) - (SPADLET |param| (|htpButtonValue| |htPage| '|optional|)) - (SPADLET |optional| + (setq |param| (|htpButtonValue| |htPage| '|optional|)) + (setq |optional| (COND ((BOOT-EQUAL |param| '|no|) '0) ('T '1))) (COND ((AND (BOOT-EQUAL |n| '2) (EQL |optional| 0)) (|e04dgfDefaultSolve| |htPage| |ifail| |n| |optional|)) ('T - (SPADLET |funcList| + (setq |funcList| (CONS (CONS '|bcStrings| (CONS (CONS 55 @@ -220,13 +220,13 @@ (CONS '|f| (CONS 'EM NIL)))) NIL)) NIL)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "of the solution vector {\\it x(n)}: \\newline ")) - (SPADLET |middle| (CONS '|text| |middle|)) - (SPADLET |vecList| + (setq |middle| (CONS '|text| |middle|)) + (setq |vecList| (COND ((BOOT-EQUAL |n| '2) (CONS (CONS '|bcStrings| @@ -244,7 +244,7 @@ NIL))) ('T (PROG (G166077) - (SPADLET G166077 NIL) + (setq G166077 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) @@ -253,16 +253,16 @@ (SETQ G166077 (CONS (|e04dgfSolve,fb| |i|) G166077)))))))))) - (SPADLET |funcList| + (setq |funcList| (APPEND |funcList| (CONS |middle| |vecList|))) (COND ((EQL |optional| 1) - (SPADLET |opt1Text| + (setq |opt1Text| "\\blankline \\menuitemstyle{}\\tab{2} ") - (SPADLET |opt1Text| + (setq |opt1Text| (STRCONC |opt1Text| "Estimated optimal function values, {\\it es}: \\newline ")) - (SPADLET |optList| + (setq |optList| (CONS (CONS '|text| |opt1Text|) (CONS (CONS '|bcStrings| (CONS @@ -271,12 +271,12 @@ (CONS '|es| (CONS 'F NIL)))) NIL)) NIL))) - (SPADLET |opt2Text| + (setq |opt2Text| "\\blankline \\menuitemstyle{}\\tab{2} ") - (SPADLET |opt2Text| + (setq |opt2Text| (STRCONC |opt2Text| "Function precision, {\\it fu}: \\newline ")) - (SPADLET |optList| + (setq |optList| (APPEND |optList| (CONS (CONS '|text| |opt2Text|) (CONS @@ -287,12 +287,12 @@ (CONS '|fu| (CONS 'F NIL)))) NIL)) NIL)))) - (SPADLET |opt3Text| + (setq |opt3Text| "\\blankline \\menuitemstyle{}\\tab{2} ") - (SPADLET |opt3Text| + (setq |opt3Text| (STRCONC |opt3Text| "Iteration limit, {\\it it}: \\newline ")) - (SPADLET |optList| + (setq |optList| (APPEND |optList| (CONS (CONS '|text| |opt3Text|) (CONS @@ -303,12 +303,12 @@ (CONS '|it| (CONS 'PI NIL)))) NIL)) NIL)))) - (SPADLET |opt4Text| + (setq |opt4Text| "\\blankline \\menuitemstyle{}\\tab{2} ") - (SPADLET |opt4Text| + (setq |opt4Text| (STRCONC |opt4Text| "Linesearch tolerance, {\\it lin}: \\newline ")) - (SPADLET |optList| + (setq |optList| (APPEND |optList| (CONS (CONS '|text| |opt4Text|) (CONS @@ -319,12 +319,12 @@ (CONS '|lin| (CONS 'F NIL)))) NIL)) NIL)))) - (SPADLET |opt5Text| + (setq |opt5Text| "\\blankline \\menuitemstyle{}\\tab{2} ") - (SPADLET |opt5Text| + (setq |opt5Text| (STRCONC |opt5Text| "List parameters:")) - (SPADLET |optList| + (setq |optList| (APPEND |optList| (CONS (CONS '|text| |opt5Text|) (CONS @@ -340,12 +340,12 @@ (CONS '|false| NIL))) NIL)))) NIL)))) - (SPADLET |opt6Text| + (setq |opt6Text| "\\blankline \\menuitemstyle{}\\tab{2} ") - (SPADLET |opt6Text| + (setq |opt6Text| (STRCONC |opt6Text| "Maximum step length, {\\it ma}: \\newline ")) - (SPADLET |optList| + (setq |optList| (APPEND |optList| (CONS (CONS '|text| |opt6Text|) (CONS @@ -356,12 +356,12 @@ (CONS '|ma| (CONS 'F NIL)))) NIL)) NIL)))) - (SPADLET |opt7Text| + (setq |opt7Text| "\\blankline \\menuitemstyle{}\\tab{2} ") - (SPADLET |opt7Text| + (setq |opt7Text| (STRCONC |opt7Text| "Optimality tolerance, {\\it op}: \\newline ")) - (SPADLET |optList| + (setq |optList| (APPEND |optList| (CONS (CONS '|text| |opt7Text|) (CONS @@ -372,12 +372,12 @@ (CONS '|op| (CONS 'F NIL)))) NIL)) NIL)))) - (SPADLET |opt9Text| + (setq |opt9Text| "\\blankline \\menuitemstyle{}\\tab{2} ") - (SPADLET |opt9Text| + (setq |opt9Text| (STRCONC |opt9Text| "Print level, {\\it pr}: \\newline ")) - (SPADLET |optList| + (setq |optList| (APPEND |optList| (CONS (CONS '|text| |opt9Text|) (CONS @@ -388,12 +388,12 @@ (CONS '|pr| (CONS 'PI NIL)))) NIL)) NIL)))) - (SPADLET |opt10Text| + (setq |opt10Text| "\\blankline \\menuitemstyle{}\\tab{2} ") - (SPADLET |opt10Text| + (setq |opt10Text| (STRCONC |opt10Text| "Start objective check at variable, {\\it sta}: \\newline ")) - (SPADLET |optList| + (setq |optList| (APPEND |optList| (CONS (CONS '|text| |opt10Text|) (CONS @@ -404,12 +404,12 @@ (CONS '|sta| (CONS 'PI NIL)))) NIL)) NIL)))) - (SPADLET |opt11Text| + (setq |opt11Text| "\\blankline \\menuitemstyle{}\\tab{2} ") - (SPADLET |opt11Text| + (setq |opt11Text| (STRCONC |opt11Text| "Stop objective check at variable, {\\it sto}: \\newline ")) - (SPADLET |optList| + (setq |optList| (APPEND |optList| (CONS (CONS '|text| |opt11Text|) (CONS @@ -420,12 +420,12 @@ (CONS '|sto| (CONS 'PI NIL)))) NIL)) NIL)))) - (SPADLET |opt12Text| + (setq |opt12Text| "\\blankline \\menuitemstyle{}\\tab{2} ") - (SPADLET |opt12Text| + (setq |opt12Text| (STRCONC |opt12Text| "Verify level, {\\it ver}: \\newline ")) - (SPADLET |optList| + (setq |optList| (APPEND |optList| (CONS (CONS '|text| |opt12Text|) (CONS @@ -436,14 +436,14 @@ (CONS '|ver| (CONS 'PI NIL)))) NIL)) NIL))))) - ('T (SPADLET |optList| NIL))) - (SPADLET |equationPart| + ('T (setq |optList| NIL))) + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) (APPEND |funcList| |optList|))) - (SPADLET |page| + (setq |page| (|htInitPage| "E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives" NIL)) @@ -489,7 +489,7 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| "E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives" NIL)) @@ -590,81 +590,81 @@ |xlist| |y| |xstring| |f| |prefix| |middle|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |optional| (|htpProperty| |htPage| '|optional|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |optional| (|htpProperty| |htPage| '|optional|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (COND ((BOOT-EQUAL |optional| '0) - (SPADLET |es| "1.0") - (SPADLET |ma| "1.0E+20") - (SPADLET |op| "3.26E-12") - (SPADLET |lin| "0.9") - (SPADLET |fu| "0.4373903597E-14") - (SPADLET |it| 50) (SPADLET |pr| 10) (SPADLET |sta| 1) - (SPADLET |sto| 2) (SPADLET |ver| 0) - (SPADLET |lis| "true") + (setq |es| "1.0") + (setq |ma| "1.0E+20") + (setq |op| "3.26E-12") + (setq |lin| "0.9") + (setq |fu| "0.4373903597E-14") + (setq |it| 50) (setq |pr| 10) (setq |sta| 1) + (setq |sto| 2) (setq |ver| 0) + (setq |lis| "true") (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xlist| (CONS |temp| |xlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |f| (ELT (CAR |y|) 1))) - ('T (SPADLET |ver| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |sto| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |sta| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |pr| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |op| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |ma| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |nolist| (ELT (CAR |y|) 1)) - (SPADLET |lis| + (setq |xlist| (CONS |temp| |xlist|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |f| (ELT (CAR |y|) 1))) + ('T (setq |ver| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |sto| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |sta| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |pr| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |op| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |ma| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |nolist| (ELT (CAR |y|) 1)) + (setq |lis| (COND ((BOOT-EQUAL |nolist| " t") "false") ('T "true"))) - (SPADLET |y| (CDR |y|)) (SPADLET |dummy| (CAR |y|)) - (SPADLET |y| (CDR |y|)) - (SPADLET |lin| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |it| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |fu| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |es| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) + (setq |y| (CDR |y|)) (setq |dummy| (CAR |y|)) + (setq |y| (CDR |y|)) + (setq |lin| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |it| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |fu| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |es| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xlist| (CONS |temp| |xlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |f| (ELT (CAR |y|) 1)))) - (SPADLET |prefix| + (setq |xlist| (CONS |temp| |xlist|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |f| (ELT (CAR |y|) 1)))) + (setq |prefix| (STRCONC '|e04dgf(| (STRINGIMAGE |n|) '|, | |es| '|, | |fu| '|,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |it|) '|, | |lin| '|, | |lis| '|, | |ma| '|, | |op|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|,| (STRINGIMAGE |pr|) '|, | (STRINGIMAGE |sta|) '|, |)) - (SPADLET |middle| + (setq |middle| (STRCONC (STRINGIMAGE |sto|) '|, | (STRINGIMAGE |ver|) '|, [| |xstring| '|] ,|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| (STRINGIMAGE |ifail|) '| ,|)) (|linkGen| (STRCONC |prefix| |middle| '|((| |f| @@ -830,12 +830,12 @@ (DEFUN |e04fdfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline {\\em Function ") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline {\\em Function ") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) ":} \\space{1}")) - (SPADLET |funct| "XC[1] + 1") - (SPADLET |nam| + (setq |funct| "XC[1] + 1") + (setq |nam| (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -850,7 +850,7 @@ (DEFUN |e04fdfSolve,fb| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| @@ -865,7 +865,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -873,7 +873,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -881,7 +881,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |liw| + (setq |liw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -889,7 +889,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|liw|))))) - (SPADLET |lw| + (setq |lw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -897,16 +897,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lw|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '15) (BOOT-EQUAL |n| '3)) (|e04fdfDefaultSolve| |htPage| |liw| |lw| |ifail|)) ('T - (SPADLET |funcList| + (setq |funcList| (PROG (G166249) - (SPADLET G166249 NIL) + (setq G166249 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G166249) @@ -914,15 +914,15 @@ (SETQ G166249 (APPEND G166249 (|e04fdfSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "of the solution vector {\\it x(n)}: \\newline ")) - (SPADLET |middle| (CONS '|text| |middle|)) - (SPADLET |vecList| + (setq |middle| (CONS '|text| |middle|)) + (setq |vecList| (PROG (G166261) - (SPADLET G166261 NIL) + (setq G166261 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) @@ -931,15 +931,15 @@ (SETQ G166261 (CONS (|e04fdfSolve,fb| |i|) G166261)))))))) - (SPADLET |funcList| + (setq |funcList| (APPEND |funcList| (CONS |middle| |vecList|))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) |funcList|)) - (SPADLET |page| + (setq |page| (|htInitPage| "E04FDF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using function values only" NIL)) @@ -1022,9 +1022,9 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |m| '15) - (SPADLET |page| + (setq |n| '3) + (setq |m| '15) + (setq |page| (|htInitPage| "E04FDF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using function values only" NIL)) @@ -1126,34 +1126,34 @@ |ulist| |y| |ustring| |prefix| |middle|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |liw| (|htpProperty| |htPage| '|liw|)) - (SPADLET |lw| (|htpProperty| |htPage| '|lw|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |liw| (|htpProperty| |htPage| '|liw|)) + (setq |lw| (|htpProperty| |htPage| '|lw|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xlist| (CONS |temp| |xlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) + (setq |xlist| (CONS |temp| |xlist|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |ulist| (CONS |temp| |ulist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |ustring| (|bcwords2liststring| |ulist|)) - (SPADLET |prefix| + (setq |ulist| (CONS |temp| |ulist|)) + (setq |y| (CDR |y|)))))) + (setq |ustring| (|bcwords2liststring| |ulist|)) + (setq |prefix| (STRCONC '|e04fdf(| (STRINGIMAGE |m|) '|,| (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |liw|) '|,| (STRINGIMAGE |lw|) '|, [|)) - (SPADLET |middle| + (setq |middle| (STRCONC |xstring| '|],| (STRINGIMAGE |ifail|) '|,|)) (|linkGen| @@ -1319,12 +1319,12 @@ (DEFUN |e04gcfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline {\\em Function ") - (SPADLET |prefix| + (SEQ (setq |prefix| "\\newline {\\em Function ") + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) ":} \\space{1}")) - (SPADLET |funct| "XC[1] + 1") - (SPADLET |nam| + (setq |funct| "XC[1] + 1") + (setq |nam| (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -1339,7 +1339,7 @@ (DEFUN |e04gcfSolve,fb| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| @@ -1354,7 +1354,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1362,7 +1362,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1370,7 +1370,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |liw| + (setq |liw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1378,7 +1378,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|liw|))))) - (SPADLET |lw| + (setq |lw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1386,16 +1386,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lw|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '15) (BOOT-EQUAL |n| '3)) (|e04gcfDefaultSolve| |htPage| |liw| |lw| |ifail|)) ('T - (SPADLET |funcList| + (setq |funcList| (PROG (G166362) - (SPADLET G166362 NIL) + (setq G166362 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G166362) @@ -1403,15 +1403,15 @@ (SETQ G166362 (APPEND G166362 (|e04gcfSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "of the solution vector {\\it x(n)}: \\newline ")) - (SPADLET |middle| (CONS '|text| |middle|)) - (SPADLET |vecList| + (setq |middle| (CONS '|text| |middle|)) + (setq |vecList| (PROG (G166374) - (SPADLET G166374 NIL) + (setq G166374 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) @@ -1420,15 +1420,15 @@ (SETQ G166374 (CONS (|e04gcfSolve,fb| |i|) G166374)))))))) - (SPADLET |funcList| + (setq |funcList| (APPEND |funcList| (CONS |middle| |vecList|))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) |funcList|)) - (SPADLET |page| + (setq |page| (|htInitPage| "E04GCF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using 1st derivatives" NIL)) @@ -1511,9 +1511,9 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |m| '15) - (SPADLET |page| + (setq |n| '3) + (setq |m| '15) + (setq |page| (|htInitPage| "E04GCF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using 1st derivatives" NIL)) @@ -1615,34 +1615,34 @@ |ulist| |y| |ustring| |prefix| |middle|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |liw| (|htpProperty| |htPage| '|liw|)) - (SPADLET |lw| (|htpProperty| |htPage| '|lw|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |liw| (|htpProperty| |htPage| '|liw|)) + (setq |lw| (|htpProperty| |htPage| '|lw|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xlist| (CONS |temp| |xlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) + (setq |xlist| (CONS |temp| |xlist|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |ulist| (CONS |temp| |ulist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |ustring| (|bcwords2liststring| |ulist|)) - (SPADLET |prefix| + (setq |ulist| (CONS |temp| |ulist|)) + (setq |y| (CDR |y|)))))) + (setq |ustring| (|bcwords2liststring| |ulist|)) + (setq |prefix| (STRCONC '|e04gcf(| (STRINGIMAGE |m|) '|,| (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |liw|) '|,| (STRINGIMAGE |lw|) '|, [|)) - (SPADLET |middle| + (setq |middle| (STRCONC |xstring| '|],| (STRINGIMAGE |ifail|) '|,|)) (|linkGen| @@ -1839,7 +1839,7 @@ (DEFUN |e04jafSolve,fa| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "bl" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1852,7 +1852,7 @@ (DEFUN |e04jafSolve,fb| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "bu" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1865,7 +1865,7 @@ (DEFUN |e04jafSolve,fc| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1881,7 +1881,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1889,14 +1889,14 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |boun| (|htpButtonValue| |htPage| '|ibound|)) - (SPADLET |ibound| + (setq |boun| (|htpButtonValue| |htPage| '|ibound|)) + (setq |ibound| (COND ((BOOT-EQUAL |boun| '|iZero|) '0) ((BOOT-EQUAL |boun| '|iOne|) '1) ((BOOT-EQUAL |boun| '|iTwo|) '2) ('T '3))) - (SPADLET |liw| + (setq |liw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1904,7 +1904,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|liw|))))) - (SPADLET |lw| + (setq |lw| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1912,15 +1912,15 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lw|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|e04jafDefaultSolve| |htPage| |ibound| |liw| |lw| |ifail|)) ('T - (SPADLET |funcList| + (setq |funcList| (CONS (CONS '|bcStrings| (CONS (CONS 50 @@ -1928,14 +1928,14 @@ (CONS '|f| (CONS 'EM NIL)))) NIL)) NIL)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary conditions ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "{\\it bl(n)}: \\newline ")) - (SPADLET |blList| + (setq |blList| (PROG (G166478) - (SPADLET G166478 NIL) + (setq G166478 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166478) @@ -1943,16 +1943,16 @@ (SETQ G166478 (APPEND G166478 (|e04jafSolve,fa| |i|))))))))) - (SPADLET |blList| + (setq |blList| (CONS (CONS '|text| |middle|) |blList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "conditions {\\it bu(n)}: \\newline ")) - (SPADLET |buList| + (setq |buList| (PROG (G166486) - (SPADLET G166486 NIL) + (setq G166486 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166486) @@ -1960,16 +1960,16 @@ (SETQ G166486 (APPEND G166486 (|e04jafSolve,fb| |i|))))))))) - (SPADLET |buList| + (setq |buList| (CONS (CONS '|text| |middle|) |buList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "of the solution vector {\\it x(n)}: \\newline ")) - (SPADLET |xList| + (setq |xList| (PROG (G166494) - (SPADLET G166494 NIL) + (setq G166494 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166494) @@ -1977,9 +1977,9 @@ (SETQ G166494 (APPEND G166494 (|e04jafSolve,fc| |i|))))))))) - (SPADLET |xList| + (setq |xList| (CONS (CONS '|text| |middle|) |xList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) @@ -1987,7 +1987,7 @@ (APPEND |funcList| (APPEND |blList| (APPEND |buList| |xList|))))) - (SPADLET |page| + (setq |page| (|htInitPage| "E04JAF - Minimum, function of several variables, quasi-Newton algorithm, simple bounds, using function values only" NIL)) @@ -2054,8 +2054,8 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "E04JAF - Minimum, function of several variables, quasi-Newton algorithm, simple bounds, using function values only" NIL)) @@ -2139,45 +2139,45 @@ |prefix| |middle|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ibound| (|htpProperty| |htPage| '|ibound|)) - (SPADLET |liw| (|htpProperty| |htPage| '|liw|)) - (SPADLET |lw| (|htpProperty| |htPage| '|lw|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ibound| (|htpProperty| |htPage| '|ibound|)) + (setq |liw| (|htpProperty| |htPage| '|liw|)) + (setq |lw| (|htpProperty| |htPage| '|lw|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xlist| (CONS |temp| |xlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) + (setq |xlist| (CONS |temp| |xlist|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |bulist| (CONS |temp| |bulist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bustring| (|bcwords2liststring| |bulist|)) + (setq |bulist| (CONS |temp| |bulist|)) + (setq |y| (CDR |y|)))))) + (setq |bustring| (|bcwords2liststring| |bulist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |bllist| (CONS |temp| |bllist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |blstring| (|bcwords2liststring| |bllist|)) - (SPADLET |f| (ELT (CAR |y|) 1)) - (SPADLET |prefix| + (setq |bllist| (CONS |temp| |bllist|)) + (setq |y| (CDR |y|)))))) + (setq |blstring| (|bcwords2liststring| |bllist|)) + (setq |f| (ELT (CAR |y|) 1)) + (setq |prefix| (STRCONC '|e04jaf(| (STRINGIMAGE |n|) '|,| (STRINGIMAGE |ibound|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |liw|) '|,| (STRINGIMAGE |lw|) '|, [|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |blstring| '|],[| |bustring| '|],[|)) - (SPADLET |middle| + (setq |middle| (STRCONC |xstring| '|],| (STRINGIMAGE |ifail|) '|,(|)) (|linkGen| @@ -2435,7 +2435,7 @@ (DEFUN |e04mbfSolve,fb| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2448,23 +2448,23 @@ (DEFUN |e04mbfSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166614) - (SPADLET G166614 NIL) + (setq G166614 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166614) (SEQ (EXIT (SETQ G166614 (APPEND G166614 (|e04mbfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |e04mbfSolve,fc| (|i|) (PROG (|blnam|) (RETURN - (SEQ (SPADLET |blnam| + (SEQ (setq |blnam| (INTERN (STRCONC "bl" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2477,7 +2477,7 @@ (DEFUN |e04mbfSolve,fd| (|i|) (PROG (|bunam|) (RETURN - (SEQ (SPADLET |bunam| + (SEQ (setq |bunam| (INTERN (STRCONC "bu" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2490,7 +2490,7 @@ (DEFUN |e04mbfSolve,fe| (|i|) (PROG (|cnam|) (RETURN - (SEQ (SPADLET |cnam| + (SEQ (setq |cnam| (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2503,7 +2503,7 @@ (DEFUN |e04mbfSolve,fg| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2521,7 +2521,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |itmax| + (setq |itmax| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2530,13 +2530,13 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|itmax|))))) - (SPADLET |msg| (|htpButtonValue| |htPage| '|msglvl|)) - (SPADLET |msglvl| + (setq |msg| (|htpButtonValue| |htPage| '|msglvl|)) + (setq |msglvl| (COND ((BOOT-EQUAL |msg| '|mMinus|) '-1) ((BOOT-EQUAL |msg| '|mZero|) '0) ('T '1))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2544,7 +2544,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |nclin| + (setq |nclin| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2553,7 +2553,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nclin|))))) - (SPADLET |nrowa| + (setq |nrowa| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2562,13 +2562,13 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nrowa|))))) - (SPADLET |lin| (|htpButtonValue| |htPage| '|linobj|)) - (SPADLET |linobj| + (setq |lin| (|htpButtonValue| |htPage| '|linobj|)) + (setq |linobj| (COND ((BOOT-EQUAL |lin| '|true|) "true") ('T "false"))) - (SPADLET |liwork| + (setq |liwork| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2577,7 +2577,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|liwork|))))) - (SPADLET |lwork| + (setq |lwork| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2586,8 +2586,8 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lwork|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |nrowa| '7) (EQL |n| 7) @@ -2595,9 +2595,9 @@ (|e04mbfDefaultSolve| |htPage| |itmax| |msglvl| |linobj| |liwork| |lwork| |ifail|)) ('T - (SPADLET |aList| + (setq |aList| (PROG (G166655) - (SPADLET G166655 NIL) + (setq G166655 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nrowa|) G166655) @@ -2605,14 +2605,14 @@ (SETQ G166655 (APPEND G166655 (|e04mbfSolve,fa| |i| |n|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "conditions {\\it bl(n + nclin)}: \\newline ")) - (SPADLET |blList| + (setq |blList| (PROG (G166663) - (SPADLET G166663 NIL) + (setq G166663 NIL) (RETURN (DO ((G166668 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) @@ -2621,16 +2621,16 @@ (SETQ G166663 (APPEND G166663 (|e04mbfSolve,fc| |i|))))))))) - (SPADLET |blList| + (setq |blList| (CONS (CONS '|text| |middle|) |blList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "conditions {\\it bu(n+nclin)}: \\newline ")) - (SPADLET |buList| + (setq |buList| (PROG (G166672) - (SPADLET G166672 NIL) + (setq G166672 NIL) (RETURN (DO ((G166677 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) @@ -2639,16 +2639,16 @@ (SETQ G166672 (APPEND G166672 (|e04mbfSolve,fd| |i|))))))))) - (SPADLET |buList| + (setq |buList| (CONS (CONS '|text| |middle|) |buList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter coefficients of the ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "objective function {\\it cvec(n)}: \\newline ")) - (SPADLET |cList| + (setq |cList| (PROG (G166681) - (SPADLET G166681 NIL) + (setq G166681 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166681) @@ -2656,16 +2656,16 @@ (SETQ G166681 (APPEND G166681 (|e04mbfSolve,fe| |i|))))))))) - (SPADLET |cList| + (setq |cList| (CONS (CONS '|text| |middle|) |cList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "of the solution vector {\\it x(n)}: \\newline ")) - (SPADLET |xList| + (setq |xList| (PROG (G166689) - (SPADLET G166689 NIL) + (setq G166689 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166689) @@ -2673,9 +2673,9 @@ (SETQ G166689 (APPEND G166689 (|e04mbfSolve,fg| |i|))))))))) - (SPADLET |xList| + (setq |xList| (CONS (CONS '|text| |middle|) |xList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) @@ -2684,7 +2684,7 @@ (APPEND |blList| (APPEND |buList| (APPEND |cList| |xList|)))))) - (SPADLET |page| + (setq |page| (|htInitPage| "E04MBF - Linear programming problem" NIL)) @@ -2850,10 +2850,10 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '7) - (SPADLET |nclin| '7) - (SPADLET |nrowa| '7) - (SPADLET |page| + (setq |n| '7) + (setq |nclin| '7) + (setq |nrowa| '7) + (setq |page| (|htInitPage| "E04MBF - Linear programming problem" NIL)) @@ -3043,67 +3043,67 @@ |arrlist| |amatlist| |amatstr| |nctotl| |prefix| |middle|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |nclin| (|htpProperty| |htPage| '|nclin|)) - (SPADLET |nrowa| (|htpProperty| |htPage| '|nrowa|)) - (SPADLET |itmax| (|htpProperty| |htPage| '|itmax|)) - (SPADLET |msglvl| (|htpProperty| |htPage| '|msglvl|)) - (SPADLET |linobj| (|htpProperty| |htPage| '|linobj|)) - (SPADLET |liwork| (|htpProperty| |htPage| '|liwork|)) - (SPADLET |lwork| (|htpProperty| |htPage| '|lwork|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |nclin| (|htpProperty| |htPage| '|nclin|)) + (setq |nrowa| (|htpProperty| |htPage| '|nrowa|)) + (setq |itmax| (|htpProperty| |htPage| '|itmax|)) + (setq |msglvl| (|htpProperty| |htPage| '|msglvl|)) + (setq |linobj| (|htpProperty| |htPage| '|linobj|)) + (setq |liwork| (|htpProperty| |htPage| '|liwork|)) + (setq |lwork| (|htpProperty| |htPage| '|lwork|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xlist| (CONS |temp| |xlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) + (setq |xlist| (CONS |temp| |xlist|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |clist| (CONS |temp| |clist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |cstring| (|bcwords2liststring| |clist|)) + (setq |clist| (CONS |temp| |clist|)) + (setq |y| (CDR |y|)))))) + (setq |cstring| (|bcwords2liststring| |clist|)) (DO ((G166775 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166775) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |bulist| (CONS |temp| |bulist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bustring| (|bcwords2liststring| |bulist|)) + (setq |bulist| (CONS |temp| |bulist|)) + (setq |y| (CDR |y|)))))) + (setq |bustring| (|bcwords2liststring| |bulist|)) (DO ((G166785 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166785) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |bllist| (CONS |temp| |bllist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |blstring| (|bcwords2liststring| |bllist|)) + (setq |bllist| (CONS |temp| |bllist|)) + (setq |y| (CDR |y|)))))) + (setq |blstring| (|bcwords2liststring| |bllist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nrowa|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |a| + (setq |a| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |arrlist| + (setq |arrlist| (CONS |a| |arrlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |amatlist| + (setq |y| (CDR |y|)))))) + (setq |amatlist| (APPEND |amatlist| (CONS |arrlist| NIL))) - (SPADLET |arrlist| NIL))))) - (SPADLET |amatlist| (REVERSE |amatlist|)) - (SPADLET |amatstr| + (setq |arrlist| NIL))))) + (setq |amatlist| (REVERSE |amatlist|)) + (setq |amatstr| (|bcwords2liststring| (PROG (G166814) - (SPADLET G166814 NIL) + (setq G166814 NIL) (RETURN (DO ((G166819 |amatlist| (CDR G166819)) @@ -3117,27 +3117,27 @@ (SETQ G166814 (CONS (|bcwords2liststring| |x|) G166814))))))))) - (SPADLET |nctotl| (+ |n| |nclin|)) - (SPADLET |prefix| + (setq |nctotl| (+ |n| |nclin|)) + (setq |prefix| (STRCONC '|e04mbf(| (STRINGIMAGE |itmax|) '|,| (STRINGIMAGE |msglvl|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|,| (STRINGIMAGE |nclin|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nctotl|) '|,| (STRINGIMAGE |nrowa|) '|, |)) - (SPADLET |middle| (STRCONC |amatstr| '|,[|)) - (SPADLET |middle| + (setq |middle| (STRCONC |amatstr| '|,[|)) + (setq |middle| (STRCONC |middle| |blstring| '|],[| |bustring| '|],[| |cstring|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|],| |linobj| '|, | (STRINGIMAGE |liwork|))) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|,| (STRINGIMAGE |lwork|) '|,[|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| |xstring| '|],| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| (STRCONC |prefix| |middle|))))))) @@ -3541,7 +3541,7 @@ (DEFUN |e04nafSolve,fb| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3554,23 +3554,23 @@ (DEFUN |e04nafSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166896) - (SPADLET G166896 NIL) + (setq G166896 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166896) (SEQ (EXIT (SETQ G166896 (APPEND G166896 (|e04nafSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |e04nafSolve,fc| (|i|) (PROG (|blnam|) (RETURN - (SEQ (SPADLET |blnam| + (SEQ (setq |blnam| (INTERN (STRCONC "bl" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3583,7 +3583,7 @@ (DEFUN |e04nafSolve,fd| (|i|) (PROG (|bunam|) (RETURN - (SEQ (SPADLET |bunam| + (SEQ (setq |bunam| (INTERN (STRCONC "bu" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3596,7 +3596,7 @@ (DEFUN |e04nafSolve,fe| (|i|) (PROG (|cnam|) (RETURN - (SEQ (SPADLET |cnam| + (SEQ (setq |cnam| (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3609,7 +3609,7 @@ (DEFUN |e04nafSolve,ff| (|i|) (PROG (|fnam|) (RETURN - (SEQ (SPADLET |fnam| + (SEQ (setq |fnam| (INTERN (STRCONC "f" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3622,7 +3622,7 @@ (DEFUN |e04nafSolve,fi| (|i| |j|) (PROG (|hnam|) (RETURN - (SEQ (SPADLET |hnam| + (SEQ (setq |hnam| (INTERN (STRCONC "h" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3635,23 +3635,23 @@ (DEFUN |e04nafSolve,fh| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166943) - (SPADLET G166943 NIL) + (setq G166943 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166943) (SEQ (EXIT (SETQ G166943 (APPEND G166943 (|e04nafSolve,fi| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |e04nafSolve,fg| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3664,7 +3664,7 @@ (DEFUN |e04nafSolve,fj| (|i|) (PROG (|inam|) (RETURN - (SEQ (SPADLET |inam| + (SEQ (setq |inam| (INTERN (STRCONC "i" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3683,7 +3683,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |itmax| + (setq |itmax| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3692,8 +3692,8 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|itmax|))))) - (SPADLET |msg| (|htpButtonValue| |htPage| '|msglvl|)) - (SPADLET |msglvl| + (setq |msg| (|htpButtonValue| |htPage| '|msglvl|)) + (setq |msglvl| (COND ((BOOT-EQUAL |msg| '|mMinus|) '-1) ((BOOT-EQUAL |msg| '|mZero|) '0) @@ -3705,7 +3705,7 @@ ((BOOT-EQUAL |msg| '|mThirty|) '30) ((BOOT-EQUAL |msg| '|mEighty|) '80) ('T '99))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3713,7 +3713,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |nclin| + (setq |nclin| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3722,7 +3722,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nclin|))))) - (SPADLET |nrowa| + (setq |nrowa| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3731,7 +3731,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nrowa|))))) - (SPADLET |nrowh| + (setq |nrowh| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3740,7 +3740,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nrowh|))))) - (SPADLET |ncolh| + (setq |ncolh| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3749,27 +3749,27 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncolh|))))) - (SPADLET |bigbnd| + (setq |bigbnd| (|htpLabelInputString| |htPage| '|bigbnd|)) - (SPADLET |col| (|htpButtonValue| |htPage| '|cold|)) - (SPADLET |cold| + (setq |col| (|htpButtonValue| |htPage| '|cold|)) + (setq |cold| (COND ((BOOT-EQUAL |col| '|cTrue|) "true") ('T "false"))) - (SPADLET |linear| (|htpButtonValue| |htPage| '|lp|)) - (SPADLET |lp| + (setq |linear| (|htpButtonValue| |htPage| '|lp|)) + (setq |lp| (COND ((BOOT-EQUAL |linear| '|lTrue|) "true") ('T "false"))) - (SPADLET |ortho| (|htpButtonValue| |htPage| '|orthog|)) - (SPADLET |orthog| + (setq |ortho| (|htpButtonValue| |htPage| '|orthog|)) + (setq |orthog| (COND ((BOOT-EQUAL |ortho| '|oTrue|) "true") ('T "false"))) - (SPADLET |liwork| + (setq |liwork| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3778,7 +3778,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|liwork|))))) - (SPADLET |lwork| + (setq |lwork| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3787,8 +3787,8 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lwork|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |nrowa| '7) (BOOT-EQUAL |n| '7) @@ -3798,9 +3798,9 @@ |bigbnd| |cold| |lp| |orthog| |liwork| |lwork| |ifail|)) ('T - (SPADLET |aList| + (setq |aList| (PROG (G166972) - (SPADLET G166972 NIL) + (setq G166972 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nrowa|) G166972) @@ -3808,14 +3808,14 @@ (SETQ G166972 (APPEND G166972 (|e04nafSolve,fa| |i| |n|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "conditions {\\it bl(n + nclin)}: \\newline ")) - (SPADLET |blList| + (setq |blList| (PROG (G166980) - (SPADLET G166980 NIL) + (setq G166980 NIL) (RETURN (DO ((G166985 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) @@ -3824,16 +3824,16 @@ (SETQ G166980 (APPEND G166980 (|e04nafSolve,fc| |i|))))))))) - (SPADLET |blList| + (setq |blList| (CONS (CONS '|text| |middle|) |blList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "conditions {\\it bu(n+nclin)}: \\newline ")) - (SPADLET |buList| + (setq |buList| (PROG (G166989) - (SPADLET G166989 NIL) + (setq G166989 NIL) (RETURN (DO ((G166994 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) @@ -3842,16 +3842,16 @@ (SETQ G166989 (APPEND G166989 (|e04nafSolve,fd| |i|))))))))) - (SPADLET |buList| + (setq |buList| (CONS (CONS '|text| |middle|) |buList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter coefficients of the ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "objective function {\\it cvec(n)}: \\newline ")) - (SPADLET |cList| + (setq |cList| (PROG (G166998) - (SPADLET G166998 NIL) + (setq G166998 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166998) @@ -3859,16 +3859,16 @@ (SETQ G166998 (APPEND G166998 (|e04nafSolve,fe| |i|))))))))) - (SPADLET |cList| + (setq |cList| (CONS (CONS '|text| |middle|) |cList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter set of positive ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "tolerances {\\it featol(n+nclin)}: \\newline ")) - (SPADLET |fList| + (setq |fList| (PROG (G167006) - (SPADLET G167006 NIL) + (setq G167006 NIL) (RETURN (DO ((G167011 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) @@ -3877,16 +3877,16 @@ (SETQ G167006 (APPEND G167006 (|e04nafSolve,ff| |i|))))))))) - (SPADLET |fList| + (setq |fList| (CONS (CONS '|text| |middle|) |fList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter the elements of ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "array {\\it hess(nrowh,ncolh)}: \\newline ")) - (SPADLET |hList| + (setq |hList| (PROG (G167015) - (SPADLET G167015 NIL) + (setq G167015 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nrowh|) G167015) @@ -3894,16 +3894,16 @@ (SETQ G167015 (APPEND G167015 (|e04nafSolve,fh| |i| |n|))))))))) - (SPADLET |hList| + (setq |hList| (CONS (CONS '|text| |middle|) |hList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "of the solution vector {\\it x(n)}: \\newline ")) - (SPADLET |xList| + (setq |xList| (PROG (G167023) - (SPADLET G167023 NIL) + (setq G167023 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G167023) @@ -3911,16 +3911,16 @@ (SETQ G167023 (APPEND G167023 (|e04nafSolve,fg| |i|))))))))) - (SPADLET |xList| + (setq |xList| (CONS (CONS '|text| |middle|) |xList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} If {\\it cold} = false ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "enter {\\it istate(n+nclin)} values: \\newline ")) - (SPADLET |iList| + (setq |iList| (PROG (G167031) - (SPADLET G167031 NIL) + (setq G167031 NIL) (RETURN (DO ((G167036 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) @@ -3929,9 +3929,9 @@ (SETQ G167031 (APPEND G167031 (|e04nafSolve,fj| |i|))))))))) - (SPADLET |iList| + (setq |iList| (CONS (CONS '|text| |middle|) |iList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) @@ -3943,7 +3943,7 @@ (APPEND |fList| (APPEND |hList| (APPEND |xList| |iList|))))))))) - (SPADLET |page| + (setq |page| (|htInitPage| "E04NAF - Quadratic programming problem" NIL)) @@ -4217,12 +4217,12 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '7) - (SPADLET |nclin| '7) - (SPADLET |nrowa| '7) - (SPADLET |nrowh| '7) - (SPADLET |ncolh| '7) - (SPADLET |page| + (setq |n| '7) + (setq |nclin| '7) + (setq |nrowa| '7) + (setq |nrowh| '7) + (setq |ncolh| '7) + (setq |page| (|htInitPage| "E04NAF - Quadratic programming problem" NIL)) @@ -4532,57 +4532,57 @@ |nctotl| |prefix| |middle| |end|) (RETURN (SEQ (PROGN - (SPADLET |itmax| (|htpProperty| |htPage| '|itmax|)) - (SPADLET |msglvl| (|htpProperty| |htPage| '|msglvl|)) - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |nclin| (|htpProperty| |htPage| '|nclin|)) - (SPADLET |nrowa| (|htpProperty| |htPage| '|nrowa|)) - (SPADLET |nrowh| (|htpProperty| |htPage| '|nrowh|)) - (SPADLET |ncolh| (|htpProperty| |htPage| '|ncolh|)) - (SPADLET |bigbnd| (|htpProperty| |htPage| '|bigbnd|)) - (SPADLET |cold| (|htpProperty| |htPage| '|cold|)) - (SPADLET |lp| (|htpProperty| |htPage| '|lp|)) - (SPADLET |orthog| (|htpProperty| |htPage| '|orthog|)) - (SPADLET |liwork| (|htpProperty| |htPage| '|liwork|)) - (SPADLET |lwork| (|htpProperty| |htPage| '|lwork|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |itmax| (|htpProperty| |htPage| '|itmax|)) + (setq |msglvl| (|htpProperty| |htPage| '|msglvl|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |nclin| (|htpProperty| |htPage| '|nclin|)) + (setq |nrowa| (|htpProperty| |htPage| '|nrowa|)) + (setq |nrowh| (|htpProperty| |htPage| '|nrowh|)) + (setq |ncolh| (|htpProperty| |htPage| '|ncolh|)) + (setq |bigbnd| (|htpProperty| |htPage| '|bigbnd|)) + (setq |cold| (|htpProperty| |htPage| '|cold|)) + (setq |lp| (|htpProperty| |htPage| '|lp|)) + (setq |orthog| (|htpProperty| |htPage| '|orthog|)) + (setq |liwork| (|htpProperty| |htPage| '|liwork|)) + (setq |lwork| (|htpProperty| |htPage| '|lwork|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((G167128 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167128) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |ilist| (CONS |temp| |ilist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |istring| (|bcwords2liststring| |ilist|)) + (setq |ilist| (CONS |temp| |ilist|)) + (setq |y| (CDR |y|)))))) + (setq |istring| (|bcwords2liststring| |ilist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xlist| (CONS |temp| |xlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) + (setq |xlist| (CONS |temp| |xlist|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nrowh|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |ncolh|) NIL) (SEQ (EXIT (PROGN - (SPADLET |h| + (setq |h| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |hlist| + (setq |hlist| (CONS |h| |hlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |hmatlist| + (setq |y| (CDR |y|)))))) + (setq |hmatlist| (APPEND |hmatlist| (CONS |hlist| NIL))) - (SPADLET |hlist| NIL))))) - (SPADLET |hmatlist| (REVERSE |hmatlist|)) - (SPADLET |hmatstr| + (setq |hlist| NIL))))) + (setq |hmatlist| (REVERSE |hmatlist|)) + (setq |hmatstr| (|bcwords2liststring| (PROG (G167166) - (SPADLET G167166 NIL) + (setq G167166 NIL) (RETURN (DO ((G167171 |hmatlist| (CDR G167171)) @@ -4599,54 +4599,54 @@ (DO ((G167183 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167183) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |flist| (CONS |temp| |flist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |fstring| (|bcwords2liststring| |flist|)) + (setq |flist| (CONS |temp| |flist|)) + (setq |y| (CDR |y|)))))) + (setq |fstring| (|bcwords2liststring| |flist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |clist| (CONS |temp| |clist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |cstring| (|bcwords2liststring| |clist|)) + (setq |clist| (CONS |temp| |clist|)) + (setq |y| (CDR |y|)))))) + (setq |cstring| (|bcwords2liststring| |clist|)) (DO ((G167202 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167202) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |bulist| (CONS |temp| |bulist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bustring| (|bcwords2liststring| |bulist|)) + (setq |bulist| (CONS |temp| |bulist|)) + (setq |y| (CDR |y|)))))) + (setq |bustring| (|bcwords2liststring| |bulist|)) (DO ((G167212 (+ |n| |nclin|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167212) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |bllist| (CONS |temp| |bllist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |blstring| (|bcwords2liststring| |bllist|)) + (setq |bllist| (CONS |temp| |bllist|)) + (setq |y| (CDR |y|)))))) + (setq |blstring| (|bcwords2liststring| |bllist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nrowa|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |a| + (setq |a| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |arrlist| + (setq |arrlist| (CONS |a| |arrlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |amatlist| + (setq |y| (CDR |y|)))))) + (setq |amatlist| (APPEND |amatlist| (CONS |arrlist| NIL))) - (SPADLET |arrlist| NIL))))) - (SPADLET |amatlist| (REVERSE |amatlist|)) - (SPADLET |amatstr| + (setq |arrlist| NIL))))) + (setq |amatlist| (REVERSE |amatlist|)) + (setq |amatstr| (|bcwords2liststring| (PROG (G167241) - (SPADLET G167241 NIL) + (setq G167241 NIL) (RETURN (DO ((G167246 |amatlist| (CDR G167246)) @@ -4660,39 +4660,39 @@ (SETQ G167241 (CONS (|bcwords2liststring| |x|) G167241))))))))) - (SPADLET |nctotl| (+ |n| |nclin|)) - (SPADLET |prefix| + (setq |nctotl| (+ |n| |nclin|)) + (setq |prefix| (STRCONC '|e04naf(| (STRINGIMAGE |itmax|) '|,| (STRINGIMAGE |msglvl|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|,| (STRINGIMAGE |nclin|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nctotl|) '|,| (STRINGIMAGE |nrowa|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nrowh|) '|,| (STRINGIMAGE |ncolh|) '|, | |bigbnd|)) - (SPADLET |middle| (STRCONC '|, | |amatstr| '|,[|)) - (SPADLET |middle| + (setq |middle| (STRCONC '|, | |amatstr| '|,[|)) + (setq |middle| (STRCONC |middle| |blstring| '|],[| |bustring| '|],[| |cstring|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|],[| |fstring| '|],| |hmatstr| '|,| (STRINGIMAGE |cold|) '|,|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| (STRINGIMAGE |lp|) '|, | (STRINGIMAGE |orthog|) '|, |)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| (STRINGIMAGE |liwork|) '|,| (STRINGIMAGE |lwork|) '|,[|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| |xstring| '|],[| |istring| '|]::Matrix Integer,|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| (STRINGIMAGE |ifail|))) - (SPADLET |end| + (setq |end| (STRCONC '|,((| |hmatstr| '|)::Matrix Expression Float)::ASP20('QPHESS))|)) (|linkGen| (STRCONC |prefix| |middle| |end|))))))) @@ -5067,7 +5067,7 @@ (DEFUN |e04ucfSolve,fb| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5080,23 +5080,23 @@ (DEFUN |e04ucfSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167345) - (SPADLET G167345 NIL) + (setq G167345 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G167345) (SEQ (EXIT (SETQ G167345 (APPEND G167345 (|e04ucfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |e04ucfSolve,fc| (|i|) (PROG (|blnam|) (RETURN - (SEQ (SPADLET |blnam| + (SEQ (setq |blnam| (INTERN (STRCONC "bl" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5109,7 +5109,7 @@ (DEFUN |e04ucfSolve,fd| (|i|) (PROG (|bunam|) (RETURN - (SEQ (SPADLET |bunam| + (SEQ (setq |bunam| (INTERN (STRCONC "bu" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5122,8 +5122,8 @@ (DEFUN |e04ucfSolve,fe| (|i|) (PROG (|lineEnd| |cnam|) (RETURN - (SEQ (SPADLET |lineEnd| "\\newline \\tab{2} ") - (SPADLET |cnam| + (SEQ (setq |lineEnd| "\\newline \\tab{2} ") + (setq |cnam| (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |lineEnd|) @@ -5138,7 +5138,7 @@ (DEFUN |e04ucfSolve,fg| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5156,7 +5156,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5164,7 +5164,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |nclin| + (setq |nclin| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5173,7 +5173,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nclin|))))) - (SPADLET |ncnln| + (setq |ncnln| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5182,7 +5182,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncnln|))))) - (SPADLET |nrowa| + (setq |nrowa| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5191,7 +5191,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nrowa|))))) - (SPADLET |nrowj| + (setq |nrowj| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5200,7 +5200,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nrowj|))))) - (SPADLET |nrowr| + (setq |nrowr| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5208,10 +5208,10 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nrowr|))))) - (SPADLET |liwork| + (setq |liwork| (+ (+ (TIMES 3 |n|) |nclin|) (TIMES 2 |ncnln|))) - (SPADLET |lwork| + (setq |lwork| (COND ((AND (BOOT-EQUAL |ncnln| '0) (BOOT-EQUAL |nclin| '0)) @@ -5230,16 +5230,16 @@ (TIMES 11 |nclin|)) (TIMES 21 |ncnln|))) ('T '1))) - (SPADLET |initial| (|htpButtonValue| |htPage| '|start|)) - (SPADLET |start| + (setq |initial| (|htpButtonValue| |htPage| '|start|)) + (setq |start| (COND ((BOOT-EQUAL |initial| '|true|) '1) ('T '0))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) - (SPADLET |param| (|htpButtonValue| |htPage| '|optional|)) - (SPADLET |optional| + (setq |param| (|htpButtonValue| |htPage| '|optional|)) + (setq |optional| (COND ((BOOT-EQUAL |param| '|no|) '0) ('T '1))) (COND ((AND (BOOT-EQUAL |n| '4) (BOOT-EQUAL |optional| '0) @@ -5248,10 +5248,10 @@ (|e04ucfDefaultSolve| |htPage| |nclin| |ncnln| |nrowa| |nrowj| |nrowr| |liwork| |lwork| |ifail|)) ((BOOT-EQUAL |start| '1) (|e04ucfCopOut|)) - ('T (SPADLET |optional| '1) - (SPADLET |aList| + ('T (setq |optional| '1) + (setq |aList| (PROG (G167387) - (SPADLET G167387 NIL) + (setq G167387 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nrowa|) G167387) @@ -5259,14 +5259,14 @@ (SETQ G167387 (APPEND G167387 (|e04ucfSolve,fa| |i| |n|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "conditions {\\it bl(n+nclin+ncnln)}: \\newline ")) - (SPADLET |blList| + (setq |blList| (PROG (G167395) - (SPADLET G167395 NIL) + (setq G167395 NIL) (RETURN (DO ((G167400 (+ (+ |n| |nclin|) |ncnln|)) @@ -5276,16 +5276,16 @@ (SETQ G167395 (APPEND G167395 (|e04ucfSolve,fc| |i|))))))))) - (SPADLET |blList| + (setq |blList| (CONS (CONS '|text| |middle|) |blList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "conditions {\\it bu(n+nclin+ncnln)}: \\newline ")) - (SPADLET |buList| + (setq |buList| (PROG (G167404) - (SPADLET G167404 NIL) + (setq G167404 NIL) (RETURN (DO ((G167409 (+ (+ |n| |nclin|) |ncnln|)) @@ -5295,19 +5295,19 @@ (SETQ G167404 (APPEND G167404 (|e04ucfSolve,fd| |i|))))))))) - (SPADLET |buList| + (setq |buList| (CONS (CONS '|text| |middle|) |buList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter the nonlinear ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "constraint functions {\\it c(ncnln)} ")) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "in terms of X[1]...X[n]: \\newline ")) - (SPADLET |cList| + (setq |cList| (PROG (G167413) - (SPADLET G167413 NIL) + (setq G167413 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ncnln|) G167413) @@ -5315,17 +5315,17 @@ (SETQ G167413 (APPEND G167413 (|e04ucfSolve,fe| |i|))))))))) - (SPADLET |cList| + (setq |cList| (CONS (CONS '|text| |middle|) |cList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter the objective ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "function, {\\it F(x)} ")) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "in terms of X[1]...X[n]: \\newline ")) - (SPADLET |funcList| + (setq |funcList| (CONS (CONS '|bcStrings| (CONS (CONS 55 @@ -5333,16 +5333,16 @@ (CONS '|f| (CONS 'EM NIL)))) NIL)) NIL)) - (SPADLET |funcList| + (setq |funcList| (CONS (CONS '|text| |middle|) |funcList|)) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "of the solution vector {\\it x(n)}: \\newline ")) - (SPADLET |xList| + (setq |xList| (PROG (G167421) - (SPADLET G167421 NIL) + (setq G167421 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G167421) @@ -5350,9 +5350,9 @@ (SETQ G167421 (APPEND G167421 (|e04ucfSolve,fg| |i|))))))))) - (SPADLET |xList| + (setq |xList| (CONS (CONS '|text| |middle|) |xList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) @@ -5554,7 +5554,7 @@ (|text| . "\\newline ") (|bcStrings| (5 3 |ver| PI))))))))))) - (SPADLET |page| + (setq |page| (|htInitPage| "E04UCF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives" NIL)) @@ -5666,10 +5666,10 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |optional| '0) - (SPADLET |start| '0) - (SPADLET |page| + (setq |n| '4) + (setq |optional| '0) + (setq |start| '0) + (setq |page| (|htInitPage| "E04UCF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives" NIL)) @@ -5939,79 +5939,79 @@ |amatstr| |ntotl| |prefix| |middle| |end|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |nclin| (|htpProperty| |htPage| '|nclin|)) - (SPADLET |ncnln| (|htpProperty| |htPage| '|ncnln|)) - (SPADLET |nrowa| (|htpProperty| |htPage| '|nrowa|)) - (SPADLET |nrowj| (|htpProperty| |htPage| '|nrowj|)) - (SPADLET |nrowr| (|htpProperty| |htPage| '|nrowr|)) - (SPADLET |liwork| (|htpProperty| |htPage| '|liwork|)) - (SPADLET |lwork| (|htpProperty| |htPage| '|lwork|)) - (SPADLET |optional| (|htpProperty| |htPage| '|optional|)) - (SPADLET |start| (|htpProperty| |htPage| '|start|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |sta| '|false|) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |nclin| (|htpProperty| |htPage| '|nclin|)) + (setq |ncnln| (|htpProperty| |htPage| '|ncnln|)) + (setq |nrowa| (|htpProperty| |htPage| '|nrowa|)) + (setq |nrowj| (|htpProperty| |htPage| '|nrowj|)) + (setq |nrowr| (|htpProperty| |htPage| '|nrowr|)) + (setq |liwork| (|htpProperty| |htPage| '|liwork|)) + (setq |lwork| (|htpProperty| |htPage| '|lwork|)) + (setq |optional| (|htpProperty| |htPage| '|optional|)) + (setq |start| (|htpProperty| |htPage| '|start|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |sta| '|false|) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (COND ((BOOT-EQUAL |optional| '0) - (SPADLET |cra| "0.01") (SPADLET |der| 3) - (SPADLET |fea| "0.1053671201E-7") - (SPADLET |fun| "0.4373903510E-14") - (SPADLET |hes| '|true|) - (SPADLET |infb| "1.00E+15") - (SPADLET |infs| "1.00E+15") - (SPADLET |linf| "0.1053671201E-7") - (SPADLET |lint| "0.9") - (SPADLET |lis| '|true|) (SPADLET |maji| 30) - (SPADLET |majp| 1) (SPADLET |mini| 81) - (SPADLET |minp| 0) (SPADLET |mon| "-1") - (SPADLET |nonf| "1.05E-08") - (SPADLET |opt| "3.26E-08") - (SPADLET |ste| "2.0") (SPADLET |stao| 1) - (SPADLET |stac| 1) (SPADLET |stoo| |n|) - (SPADLET |stoc| |n|) (SPADLET |ver| 3) + (setq |cra| "0.01") (setq |der| 3) + (setq |fea| "0.1053671201E-7") + (setq |fun| "0.4373903510E-14") + (setq |hes| '|true|) + (setq |infb| "1.00E+15") + (setq |infs| "1.00E+15") + (setq |linf| "0.1053671201E-7") + (setq |lint| "0.9") + (setq |lis| '|true|) (setq |maji| 30) + (setq |majp| 1) (setq |mini| 81) + (setq |minp| 0) (setq |mon| "-1") + (setq |nonf| "1.05E-08") + (setq |opt| "3.26E-08") + (setq |ste| "2.0") (setq |stao| 1) + (setq |stac| 1) (setq |stoo| |n|) + (setq |stoc| |n|) (setq |ver| 3) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xlist| (CONS |temp| |xlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |f| (ELT (CAR |y|) 1)) (SPADLET |y| (CDR |y|)) + (setq |xlist| (CONS |temp| |xlist|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |f| (ELT (CAR |y|) 1)) (setq |y| (CDR |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ncnln|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |cxlist| + (setq |cxlist| (CONS |temp| |cxlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |cxstring| (|bcwords2liststring| |cxlist|)) + (setq |y| (CDR |y|)))))) + (setq |cxstring| (|bcwords2liststring| |cxlist|)) (DO ((G167526 (+ (+ |n| |nclin|) |ncnln|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167526) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |bulist| + (setq |bulist| (CONS |temp| |bulist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |buu| (|bcwords2liststring| |bulist|)) + (setq |y| (CDR |y|)))))) + (setq |buu| (|bcwords2liststring| |bulist|)) (DO ((G167536 (+ (+ |n| |nclin|) |ncnln|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167536) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |bllist| + (setq |bllist| (CONS |temp| |bllist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bll| (|bcwords2liststring| |bllist|)) + (setq |y| (CDR |y|)))))) + (setq |bll| (|bcwords2liststring| |bllist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nrowa|) NIL) (SEQ (EXIT (PROGN @@ -6019,21 +6019,21 @@ ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |a| + (setq |a| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |arrlist| + (setq |arrlist| (CONS |a| |arrlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |amatlist| + (setq |y| (CDR |y|)))))) + (setq |amatlist| (APPEND |amatlist| (CONS |arrlist| NIL))) - (SPADLET |arrlist| NIL))))) - (SPADLET |amatlist| (REVERSE |amatlist|)) - (SPADLET |amatstr| + (setq |arrlist| NIL))))) + (setq |amatlist| (REVERSE |amatlist|)) + (setq |amatstr| (|bcwords2liststring| (PROG (G167565) - (SPADLET G167565 NIL) + (setq G167565 NIL) (RETURN (DO ((G167570 |amatlist| (CDR G167570)) @@ -6048,105 +6048,105 @@ (SETQ G167565 (CONS (|bcwords2liststring| |x|) G167565)))))))))) - ('T (SPADLET |ver| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |stoc| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |stoo| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |stac| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |stao| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |ste| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |opt| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |nonf| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mon| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |minp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mini| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |majp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |maji| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |nolist| (ELT (CAR |y|) 1)) - (SPADLET |lis| + ('T (setq |ver| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |stoc| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |stoo| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |stac| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |stao| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |ste| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |opt| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |nonf| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |mon| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |minp| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |mini| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |majp| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |maji| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |nolist| (ELT (CAR |y|) 1)) + (setq |lis| (COND ((BOOT-EQUAL |nolist| " nil") "false") ('T "true"))) - (SPADLET |y| (CDR |y|)) (SPADLET |dummy1| (CAR |y|)) - (SPADLET |y| (CDR |y|)) - (SPADLET |lint| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |linf| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |infs| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |infb| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |noHess| (ELT (CAR |y|) 1)) - (SPADLET |hes| + (setq |y| (CDR |y|)) (setq |dummy1| (CAR |y|)) + (setq |y| (CDR |y|)) + (setq |lint| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |linf| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |infs| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |infb| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |noHess| (ELT (CAR |y|) 1)) + (setq |hes| (COND ((BOOT-EQUAL |noHess| " nil") "false") ('T "true"))) - (SPADLET |y| (CDR |y|)) (SPADLET |dummy2| (CAR |y|)) - (SPADLET |y| (CDR |y|)) - (SPADLET |fun| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |fea| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |der| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |cra| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) + (setq |y| (CDR |y|)) (setq |dummy2| (CAR |y|)) + (setq |y| (CDR |y|)) + (setq |fun| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |fea| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |der| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) + (setq |cra| (STRCONC (ELT (CAR |y|) 1) '| |)) + (setq |y| (CDR |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |xlist| (CONS |temp| |xlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |xstring| (|bcwords2liststring| |xlist|)) - (SPADLET |f| (ELT (CAR |y|) 1)) (SPADLET |y| (CDR |y|)) + (setq |xlist| (CONS |temp| |xlist|)) + (setq |y| (CDR |y|)))))) + (setq |xstring| (|bcwords2liststring| |xlist|)) + (setq |f| (ELT (CAR |y|) 1)) (setq |y| (CDR |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ncnln|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |cxlist| + (setq |cxlist| (CONS |temp| |cxlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |cxstring| (|bcwords2liststring| |cxlist|)) + (setq |y| (CDR |y|)))))) + (setq |cxstring| (|bcwords2liststring| |cxlist|)) (DO ((G167600 (+ (+ |n| |nclin|) |ncnln|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167600) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |bulist| + (setq |bulist| (CONS |temp| |bulist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |buu| (|bcwords2liststring| |bulist|)) + (setq |y| (CDR |y|)))))) + (setq |buu| (|bcwords2liststring| |bulist|)) (DO ((G167610 (+ (+ |n| |nclin|) |ncnln|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167610) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |bllist| + (setq |bllist| (CONS |temp| |bllist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bll| (|bcwords2liststring| |bllist|)) + (setq |y| (CDR |y|)))))) + (setq |bll| (|bcwords2liststring| |bllist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nrowa|) NIL) (SEQ (EXIT (PROGN @@ -6154,21 +6154,21 @@ ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |a| + (setq |a| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |arrlist| + (setq |arrlist| (CONS |a| |arrlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |amatlist| + (setq |y| (CDR |y|)))))) + (setq |amatlist| (APPEND |amatlist| (CONS |arrlist| NIL))) - (SPADLET |arrlist| NIL))))) - (SPADLET |amatlist| (REVERSE |amatlist|)) - (SPADLET |amatstr| + (setq |arrlist| NIL))))) + (setq |amatlist| (REVERSE |amatlist|)) + (setq |amatstr| (|bcwords2liststring| (PROG (G167639) - (SPADLET G167639 NIL) + (setq G167639 NIL) (RETURN (DO ((G167644 |amatlist| (CDR G167644)) @@ -6183,68 +6183,68 @@ (SETQ G167639 (CONS (|bcwords2liststring| |x|) G167639))))))))))) - (SPADLET |ntotl| (+ (+ |n| |nclin|) |ncnln|)) - (SPADLET |prefix| + (setq |ntotl| (+ (+ |n| |nclin|) |ncnln|)) + (setq |prefix| (STRCONC '|e04ucf(| (STRINGIMAGE |n|) '|, | (STRINGIMAGE |nclin|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ncnln|) '|, | (STRINGIMAGE |nrowa|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nrowj|) '|, | (STRINGIMAGE |nrowr|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |amatstr| '|,[| |bll| '|],[| |buu| '|],| (STRINGIMAGE |liwork|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | (STRINGIMAGE |lwork|) '|, | (STRINGIMAGE |sta|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |cra| '|, | (STRINGIMAGE |der|) '|, | |fea| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |fun| '|, | |hes| '|, | |infb| '|, | |infs| '|, | |linf| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |lint| '|, | |lis| '|, | (STRINGIMAGE |maji|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |majp|) '|, | (STRINGIMAGE |mini|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |minp|) '|, | |mon| '|, | |nonf| '|, | |opt| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |ste| '|, | (STRINGIMAGE |stao|) '|, | (STRINGIMAGE |stac|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | (STRINGIMAGE |stoo|) '|, | (STRINGIMAGE |stoc|) '|, |)) - (SPADLET |middle| + (setq |middle| (STRCONC (STRINGIMAGE |ver|) '|,[[0 for i in 1..| (STRINGIMAGE |ntotl|) ']])) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|::Matrix Integer,[[0.0 for i in 1..| (STRINGIMAGE |n|))) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|] for j in 1..| (STRINGIMAGE |nrowj|) '|],[[0.0 for i in 1..|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| (STRINGIMAGE |ntotl|) '|]],[[0.0 for i in 1..|)) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| (STRINGIMAGE |n|) '|] for j in 1..| (STRINGIMAGE |nrowr|))) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| '|],[| |xstring| '|],| (STRINGIMAGE |ifail|))) - (SPADLET |end| + (setq |end| (STRCONC '|,((| |cxstring| '|)::Vector Expression(Float))::ASP55(CONFUN),|)) - (SPADLET |end| + (setq |end| (STRCONC |end| '|((| |f| '|)::Expression(Float))::ASP49(OBJFUN))|)) (|linkGen| (STRCONC |prefix| |middle| |end|))))))) @@ -6459,7 +6459,7 @@ (DEFUN |e04ycfSolve,fa| (|i|) (PROG (|snam|) (RETURN - (SEQ (SPADLET |snam| + (SEQ (setq |snam| (INTERN (STRCONC "s" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -6472,7 +6472,7 @@ (DEFUN |e04ycfSolve,fc| (|i| |j|) (PROG (|vnam|) (RETURN - (SEQ (SPADLET |vnam| + (SEQ (setq |vnam| (INTERN (STRCONC "v" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -6485,17 +6485,17 @@ (DEFUN |e04ycfSolve,fb| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167841) - (SPADLET G167841 NIL) + (setq G167841 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G167841) (SEQ (EXIT (SETQ G167841 (APPEND G167841 (|e04ycfSolve,fc| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |e04ycfSolve| (|htPage|) @@ -6504,13 +6504,13 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |temp| (|htpButtonValue| |htPage| '|job|)) - (SPADLET |job| + (setq |temp| (|htpButtonValue| |htPage| '|job|)) + (setq |job| (COND ((BOOT-EQUAL |temp| '|jMinus|) '-1) ((BOOT-EQUAL |temp| '|jOne|) '1) ('T '0))) - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6518,7 +6518,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6526,9 +6526,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |fsumsq| + (setq |fsumsq| (|htpLabelInputString| |htPage| '|fsumsq|)) - (SPADLET |lv| + (setq |lv| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6536,17 +6536,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lv|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (EQL |n| 3) (EQL |lv| 3)) (|e04ycfDefaultSolve| |htPage| |job| |m| |fsumsq| |ifail|)) ('T - (SPADLET |sList| + (setq |sList| (PROG (G167858) - (SPADLET G167858 NIL) + (setq G167858 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G167858) @@ -6554,14 +6554,14 @@ (SETQ G167858 (APPEND G167858 (|e04ycfSolve,fa| |i|))))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter the elements ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "of array {\\it v(lv,n)}: \\newline ")) - (SPADLET |vList| + (setq |vList| (PROG (G167866) - (SPADLET G167866 NIL) + (setq G167866 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lv|) G167866) @@ -6569,15 +6569,15 @@ (SETQ G167866 (APPEND G167866 (|e04ycfSolve,fb| |i| |n|))))))))) - (SPADLET |vList| + (setq |vList| (CONS (CONS '|text| |middle|) |vList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) (APPEND |sList| |vList|))) - (SPADLET |page| + (setq |page| (|htInitPage| "E04YCF - Covariance matrix for non-linear least-squares problem" NIL)) @@ -6642,9 +6642,9 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |lv| '3) - (SPADLET |page| + (setq |n| '3) + (setq |lv| '3) + (setq |page| (|htInitPage| "E04YCF - Covariance matrix for non-linear least-squares problem" NIL)) @@ -6713,36 +6713,36 @@ |temp| |slist| |y| |sstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |job| (|htpProperty| |htPage| '|job|)) - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |fsumsq| (|htpProperty| |htPage| '|fsumsq|)) - (SPADLET |lv| (|htpProperty| |htPage| '|lv|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |job| (|htpProperty| |htPage| '|job|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |fsumsq| (|htpProperty| |htPage| '|fsumsq|)) + (setq |lv| (|htpProperty| |htPage| '|lv|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((G167910 (TIMES |lv| |n|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167910) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |vlist| (CONS |temp| |vlist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |vstring| (|bcwords2liststring| |vlist|)) + (setq |vlist| (CONS |temp| |vlist|)) + (setq |y| (CDR |y|)))))) + (setq |vstring| (|bcwords2liststring| |vlist|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |temp| + (setq |temp| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |slist| (CONS |temp| |slist|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |sstring| (|bcwords2liststring| |slist|)) - (SPADLET |prefix| + (setq |slist| (CONS |temp| |slist|)) + (setq |y| (CDR |y|)))))) + (setq |sstring| (|bcwords2liststring| |slist|)) + (setq |prefix| (STRCONC '|e04ycf(| (STRINGIMAGE |job|) '|,| (STRINGIMAGE |m|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|,| |fsumsq| '|, [|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |sstring| '|],| (STRINGIMAGE |lv|) '|,[| |vstring|)) (|linkGen| diff --git a/src/interp/nag-f01.lisp.pamphlet b/src/interp/nag-f01.lisp.pamphlet index 3d24e24..876191a 100644 --- a/src/interp/nag-f01.lisp.pamphlet +++ b/src/interp/nag-f01.lisp.pamphlet @@ -237,16 +237,16 @@ (DEFUN |f01brfSolve,f| (|i|) (PROG (|prefix| |anam| |mid| |rnam| |end| |cnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |anam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) - (SPADLET |mid| "\\tab{32} ") - (SPADLET |rnam| + (setq |mid| "\\tab{32} ") + (setq |rnam| (INTERN (STRCONC "irn" (STRINGIMAGE |i|)))) - (SPADLET |end| "\\tab{42} ") - (SPADLET |cnam| + (setq |end| "\\tab{42} ") + (setq |cnam| (INTERN (STRCONC "icn" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -281,7 +281,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -289,7 +289,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |nz| + (setq |nz| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -297,7 +297,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nz|))))) - (SPADLET |licn| + (setq |licn| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -306,7 +306,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|licn|))))) - (SPADLET |lirn| + (setq |lirn| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -315,36 +315,36 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lirn|))))) - (SPADLET |pivot| + (setq |pivot| (|htpLabelInputString| |htPage| '|pivot|)) - (SPADLET |gr| (|htpButtonValue| |htPage| '|grow|)) - (SPADLET |grow| + (setq |gr| (|htpButtonValue| |htPage| '|grow|)) + (setq |grow| (COND ((BOOT-EQUAL |gr| '|grtrue|) "true") ('T "false"))) - (SPADLET |lb| (|htpButtonValue| |htPage| '|lblock|)) - (SPADLET |lblock| + (setq |lb| (|htpButtonValue| |htPage| '|lblock|)) + (setq |lblock| (COND ((BOOT-EQUAL |lb| '|lbtrue|) "true") ('T "false"))) - (SPADLET |aerror| (|htpButtonValue| |htPage| '|afail|)) - (SPADLET |afail| + (setq |aerror| (|htpButtonValue| |htPage| '|afail|)) + (setq |afail| (COND ((BOOT-EQUAL |aerror| '|azero|) '0) ('T '1))) - (SPADLET |berror| (|htpButtonValue| |htPage| '|bfail|)) - (SPADLET |bfail| + (setq |berror| (|htpButtonValue| |htPage| '|bfail|)) + (setq |bfail| (COND ((BOOT-EQUAL |berror| '|bone|) '1) ('T '0))) - (SPADLET |cerror| (|htpButtonValue| |htPage| '|cfail|)) - (SPADLET |cfail| + (setq |cerror| (|htpButtonValue| |htPage| '|cfail|)) + (setq |cfail| (COND ((BOOT-EQUAL |cerror| '|cone|) '1) ('T '0))) - (SPADLET |ifail| + (setq |ifail| (+ (+ (TIMES 100 |cfail|) (TIMES 10 |bfail|)) |afail|)) @@ -354,9 +354,9 @@ (|f01brfDefaultSolve| |htPage| |pivot| |grow| |lblock| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166082) - (SPADLET G166082 NIL) + (setq G166082 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nz|) G166082) @@ -364,7 +364,7 @@ (SETQ G166082 (APPEND G166082 (|f01brfSolve,f| |i|))))))))) - (SPADLET |abortList| + (setq |abortList| (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -396,11 +396,11 @@ (CONS 'EM NIL)))) NIL)) NIL))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{}\\tab{2} Abort: ") - (SPADLET |abortList| + (setq |abortList| (CONS (CONS '|text| |prefix|) |abortList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -409,7 +409,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |labelList| |abortList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|F01BRF - LU factorization of real sparse matrix| NIL)) @@ -560,11 +560,11 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '6) - (SPADLET |nz| '15) - (SPADLET |licn| '150) - (SPADLET |lirn| '75) - (SPADLET |page| + (setq |n| '6) + (setq |nz| '15) + (setq |licn| '150) + (setq |lirn| '75) + (setq |page| (|htInitPage| '|F01BRF - LU factorization of real sparse matrix| NIL)) @@ -704,67 +704,67 @@ |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |nz| (|htpProperty| |htPage| '|nz|)) - (SPADLET |licn| (|htpProperty| |htPage| '|licn|)) - (SPADLET |lirn| (|htpProperty| |htPage| '|lirn|)) - (SPADLET |pivot| (|htpProperty| |htPage| '|pivot|)) - (SPADLET |grow| (|htpProperty| |htPage| '|grow|)) - (SPADLET |lblock| (|htpProperty| |htPage| '|lblock|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |nz| (|htpProperty| |htPage| '|nz|)) + (setq |licn| (|htpProperty| |htPage| '|licn|)) + (setq |lirn| (|htpProperty| |htPage| '|lirn|)) + (setq |pivot| (|htpProperty| |htPage| '|pivot|)) + (setq |grow| (|htpProperty| |htPage| '|grow|)) + (setq |lblock| (|htpProperty| |htPage| '|lblock|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) (SEQ (EXIT (PROGN - (SPADLET |abort| + (setq |abort| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |abortList| + (setq |y| (CDR |y|)) + (setq |abortList| (CONS |abort| |abortList|)))))) - (SPADLET |astring| (|bcwords2liststring| |abortList|)) + (setq |astring| (|bcwords2liststring| |abortList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |end| + (setq |end| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |top| + (setq |y| (CDR |y|)) + (setq |top| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |cList| (CONS |end| |cList|)) - (SPADLET |rList| (CONS |mid| |rList|)) - (SPADLET |matList| (CONS |top| |matList|)))))) + (setq |y| (CDR |y|)) + (setq |cList| (CONS |end| |cList|)) + (setq |rList| (CONS |mid| |rList|)) + (setq |matList| (CONS |top| |matList|)))))) (DO ((G166158 (SPADDIFFERENCE |licn| |nz|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166158) NIL) (SEQ (EXIT (PROGN - (SPADLET |cList| + (setq |cList| (APPEND |cList| (CONS "0 " NIL))) - (SPADLET |matList| + (setq |matList| (APPEND |matList| (CONS "0 " NIL))))))) (DO ((G166165 (SPADDIFFERENCE |lirn| |nz|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166165) NIL) - (SEQ (EXIT (SPADLET |rList| + (SEQ (EXIT (setq |rList| (APPEND |rList| (CONS "0 " NIL)))))) - (SPADLET |cstring| (|bcwords2liststring| |cList|)) - (SPADLET |rstring| (|bcwords2liststring| |rList|)) - (SPADLET |matstring| (|bcwords2liststring| |matList|)) - (SPADLET |prefix| + (setq |cstring| (|bcwords2liststring| |cList|)) + (setq |rstring| (|bcwords2liststring| |rList|)) + (setq |matstring| (|bcwords2liststring| |matList|)) + (setq |prefix| (STRCONC "f01brf(" (STRINGIMAGE |n|) '|, | (STRINGIMAGE |nz|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |licn|) '|, | (STRINGIMAGE |lirn|) '|, | |pivot|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | |lblock| '|, | |grow| '|, | |astring| '|,[| |matstring|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|],[| |rstring| '|],[| |cstring| '|], |)) (|linkGen| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|))))))) @@ -1015,16 +1015,16 @@ (DEFUN |f01mafSolve,f| (|i|) (PROG (|prefix| |anam| |mid| |rnam| |end| |cnam|) (RETURN - (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") - (SPADLET |anam| + (SEQ (setq |prefix| "\\newline \\tab{2} ") + (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) - (SPADLET |mid| "\\tab{32} ") - (SPADLET |rnam| + (setq |mid| "\\tab{32} ") + (setq |rnam| (INTERN (STRCONC "irn" (STRINGIMAGE |i|)))) - (SPADLET |end| "\\tab{42} ") - (SPADLET |cnam| + (setq |end| "\\tab{42} ") + (setq |cnam| (INTERN (STRCONC "icn" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) @@ -1059,7 +1059,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1067,7 +1067,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |nz| + (setq |nz| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1075,7 +1075,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nz|))))) - (SPADLET |licn| + (setq |licn| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1084,7 +1084,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|licn|))))) - (SPADLET |lirn| + (setq |lirn| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1093,28 +1093,28 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lirn|))))) - (SPADLET |aerror| (|htpButtonValue| |htPage| '|afail|)) - (SPADLET |afail| + (setq |aerror| (|htpButtonValue| |htPage| '|afail|)) + (setq |afail| (COND ((BOOT-EQUAL |aerror| '|azero|) '0) ('T '1))) - (SPADLET |berror| (|htpButtonValue| |htPage| '|bfail|)) - (SPADLET |bfail| + (setq |berror| (|htpButtonValue| |htPage| '|bfail|)) + (setq |bfail| (COND ((BOOT-EQUAL |berror| '|bone|) '1) ('T '0))) - (SPADLET |cerror| (|htpButtonValue| |htPage| '|cfail|)) - (SPADLET |cfail| + (setq |cerror| (|htpButtonValue| |htPage| '|cfail|)) + (setq |cfail| (COND ((BOOT-EQUAL |cerror| '|cone|) '1) ('T '0))) - (SPADLET |ifail| + (setq |ifail| (+ (+ (TIMES 100 |cfail|) (TIMES 10 |bfail|)) |afail|)) - (SPADLET |droptl| + (setq |droptl| (|htpLabelInputString| |htPage| '|droptl|)) - (SPADLET |densw| + (setq |densw| (|htpLabelInputString| |htPage| '|densw|)) (COND ((AND (BOOT-EQUAL |n| '16) (BOOT-EQUAL |nz| '40) @@ -1122,9 +1122,9 @@ (|f01mafDefaultSolve| |htPage| |droptl| |densw| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166232) - (SPADLET G166232 NIL) + (setq G166232 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |nz|) G166232) @@ -1132,7 +1132,7 @@ (SETQ G166232 (APPEND G166232 (|f01mafSolve,f| |i|))))))))) - (SPADLET |abortList| + (setq |abortList| (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1156,11 +1156,11 @@ (CONS 'EM NIL)))) NIL)) NIL)))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{}\\tab{2} Abort: ") - (SPADLET |abortList| + (setq |abortList| (CONS (CONS '|text| |prefix|) |abortList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -1169,7 +1169,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |labelList| |abortList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|F01MAF - \\htbitmap{llt} factorization of real sparse symmetric positive-definite matrix| NIL)) @@ -1468,11 +1468,11 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '16) - (SPADLET |nz| '40) - (SPADLET |licn| '90) - (SPADLET |lirn| '50) - (SPADLET |page| + (setq |n| '16) + (setq |nz| '40) + (setq |licn| '90) + (setq |lirn| '50) + (setq |page| (|htInitPage| '|F01MAF - \\htbitmap{llt} factorization of real sparse symmetric positive-definite matrix| NIL)) @@ -1709,65 +1709,65 @@ |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |nz| (|htpProperty| |htPage| '|nz|)) - (SPADLET |licn| (|htpProperty| |htPage| '|licn|)) - (SPADLET |lirn| (|htpProperty| |htPage| '|lirn|)) - (SPADLET |droptl| (|htpProperty| |htPage| '|droptl|)) - (SPADLET |densw| (|htpProperty| |htPage| '|densw|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |nz| (|htpProperty| |htPage| '|nz|)) + (setq |licn| (|htpProperty| |htPage| '|licn|)) + (setq |lirn| (|htpProperty| |htPage| '|lirn|)) + (setq |droptl| (|htpProperty| |htPage| '|droptl|)) + (setq |densw| (|htpProperty| |htPage| '|densw|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 3) NIL) (SEQ (EXIT (PROGN - (SPADLET |abort| + (setq |abort| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |abortList| + (setq |y| (CDR |y|)) + (setq |abortList| (CONS |abort| |abortList|)))))) - (SPADLET |astring| (|bcwords2liststring| |abortList|)) + (setq |astring| (|bcwords2liststring| |abortList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |end| + (setq |end| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |mid| + (setq |y| (CDR |y|)) + (setq |mid| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |top| + (setq |y| (CDR |y|)) + (setq |top| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |cList| (CONS |end| |cList|)) - (SPADLET |rList| (CONS |mid| |rList|)) - (SPADLET |matList| (CONS |top| |matList|)))))) + (setq |y| (CDR |y|)) + (setq |cList| (CONS |end| |cList|)) + (setq |rList| (CONS |mid| |rList|)) + (setq |matList| (CONS |top| |matList|)))))) (DO ((G166305 (SPADDIFFERENCE |licn| |nz|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166305) NIL) (SEQ (EXIT (PROGN - (SPADLET |cList| + (setq |cList| (APPEND |cList| (CONS "0 " NIL))) - (SPADLET |matList| + (setq |matList| (APPEND |matList| (CONS "0 " NIL))))))) (DO ((G166312 (SPADDIFFERENCE |lirn| |nz|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166312) NIL) - (SEQ (EXIT (SPADLET |rList| + (SEQ (EXIT (setq |rList| (APPEND |rList| (CONS "0 " NIL)))))) - (SPADLET |cstring| (|bcwords2liststring| |cList|)) - (SPADLET |rstring| (|bcwords2liststring| |rList|)) - (SPADLET |matstring| (|bcwords2liststring| |matList|)) - (SPADLET |prefix| + (setq |cstring| (|bcwords2liststring| |cList|)) + (setq |rstring| (|bcwords2liststring| |rList|)) + (setq |matstring| (|bcwords2liststring| |matList|)) + (setq |prefix| (STRCONC "f01maf(" (STRINGIMAGE |n|) '|, | (STRINGIMAGE |nz|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |licn|) '|, | (STRINGIMAGE |lirn|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |astring| '|,[| |matstring|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|],[| |rstring| '|],[| |cstring| '|], | |droptl| '|, | |densw|)) (|linkGen| @@ -1893,7 +1893,7 @@ (DEFUN |f01mcfSolve,f| (|i|) (PROG (|xnam|) (RETURN - (SEQ (SPADLET |xnam| + (SEQ (setq |xnam| (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1906,7 +1906,7 @@ (DEFUN |f01mcfSolve,g| (|j|) (PROG (|nam|) (RETURN - (SEQ (SPADLET |nam| + (SEQ (setq |nam| (INTERN (STRCONC "n" (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1922,7 +1922,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1930,7 +1930,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |lal| + (setq |lal| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1938,16 +1938,16 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|lal|))))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |n| '6) (BOOT-EQUAL |lal| '14)) (|f01mcfDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |labelList| + (setq |labelList| (PROG (G166371) - (SPADLET G166371 NIL) + (setq G166371 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lal|) G166371) @@ -1955,9 +1955,9 @@ (SETQ G166371 (APPEND G166371 (|f01mcfSolve,f| |i|))))))))) - (SPADLET |nrowList| + (setq |nrowList| (PROG (G166379) - (SPADLET G166379 NIL) + (setq G166379 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166379) @@ -1965,14 +1965,14 @@ (SETQ G166379 (APPEND G166379 (|f01mcfSolve,g| |j|))))))))) - (SPADLET |prefix| + (setq |prefix| "\\blankline \\menuitemstyle{}\\tab{2} {\\it NROW(n)} the width ") - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|of the ith row of A: \\newline \\tab{2} |)) - (SPADLET |nrowList| + (setq |nrowList| (CONS (CONS '|text| |prefix|) |nrowList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -1980,7 +1980,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |labelList| |nrowList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|F01MCF - \\htbitmap{ldlt} factorization of real symmetric positive-definite variable-bandwidth matrix| NIL)) @@ -2045,9 +2045,9 @@ (PROG (|n| |lal| |page|) (RETURN (PROGN - (SPADLET |n| '6) - (SPADLET |lal| '14) - (SPADLET |page| + (setq |n| '6) + (setq |lal| '14) + (setq |page| (|htInitPage| '|F01MCF - \\htbitmap{ldlt} factorization of real symmetric positive-definite variable-bandwidth matrix| NIL)) @@ -2114,31 +2114,31 @@ |matList| |matstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |lal| (|htpProperty| |htPage| '|lal|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |lal| (|htpProperty| |htPage| '|lal|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |nrowList| + (setq |y| (CDR |y|)) + (setq |nrowList| (CONS |right| |nrowList|)))))) - (SPADLET |nrowstring| (|bcwords2liststring| |nrowList|)) + (setq |nrowstring| (|bcwords2liststring| |nrowList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN - (SPADLET |right| + (setq |right| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |matList| + (setq |y| (CDR |y|)) + (setq |matList| (CONS |right| |matList|)))))) - (SPADLET |matstring| (|bcwords2liststring| |matList|)) - (SPADLET |prefix| + (setq |matstring| (|bcwords2liststring| |matList|)) + (setq |prefix| (STRCONC "f01mcf(" (STRINGIMAGE |n|) '|, [| |matstring| '|], |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lal|) '|, [| |nrowstring| '|], |)) (|linkGen| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|))))))) @@ -2292,7 +2292,7 @@ (DEFUN |f01qcfSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2305,17 +2305,17 @@ (DEFUN |f01qcfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166463) - (SPADLET G166463 NIL) + (setq G166463 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166463) (SEQ (EXIT (SETQ G166463 (APPEND G166463 (|f01qcfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f01qcfSolve| (|htPage|) @@ -2323,7 +2323,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2331,7 +2331,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2339,17 +2339,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |lda| |m|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |lda| |m|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '5) (BOOT-EQUAL |n| '3)) (|f01qcfDefaultSolve| |htPage| |lda| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166480) - (SPADLET G166480 NIL) + (setq G166480 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G166480) @@ -2357,7 +2357,7 @@ (SETQ G166480 (APPEND G166480 (|f01qcfSolve,f| |i| |n|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -2365,7 +2365,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |matList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|F01QCF - QR factorization or real m by n matrix (m \\htbitmap{great=} n)| NIL)) @@ -2425,9 +2425,9 @@ (PROG (|n| |m| |page|) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |m| '5) - (SPADLET |page| + (setq |n| '3) + (setq |m| '5) + (setq |page| (|htInitPage| "F01QCF - QR factorization or real m by n matrix (m \\htbitmap{great=} n)" NIL)) @@ -2492,33 +2492,33 @@ |matstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |lda| |m|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |lda| |m|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G166535) - (SPADLET G166535 NIL) + (setq G166535 NIL) (RETURN (DO ((G166540 |matform| (CDR G166540)) @@ -2532,13 +2532,13 @@ (SETQ G166535 (CONS (|bcwords2liststring| |x|) G166535))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f01qcf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | |matstring| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -2771,7 +2771,7 @@ (DEFUN |f01qdfSolve,ga| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2784,23 +2784,23 @@ (DEFUN |f01qdfSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166583) - (SPADLET G166583 NIL) + (setq G166583 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166583) (SEQ (EXIT (SETQ G166583 (APPEND G166583 (|f01qdfSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f01qdfSolve,gb| (|i| |j|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2813,23 +2813,23 @@ (DEFUN |f01qdfSolve,fb| (|i| |ncolb|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166606) - (SPADLET G166606 NIL) + (setq G166606 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |ncolb|) G166606) (SEQ (EXIT (SETQ G166606 (APPEND G166606 (|f01qdfSolve,gb| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f01qdfSolve,fz| (|i|) (PROG (|znam|) (RETURN - (SEQ (SPADLET |znam| + (SEQ (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2846,7 +2846,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2854,7 +2854,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2862,9 +2862,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |lda| |m|) - (SPADLET |ldb| |m|) - (SPADLET |ncolb| + (setq |lda| |m|) + (setq |ldb| |m|) + (setq |ncolb| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2873,20 +2873,20 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncolb|))))) - (SPADLET |operation| (|htpButtonValue| |htPage| '|trans|)) - (SPADLET |trans| + (setq |operation| (|htpButtonValue| |htPage| '|trans|)) + (setq |trans| (COND ((BOOT-EQUAL |operation| '|notrans|) "n") ('T "t"))) - (SPADLET |elements| (|htpButtonValue| |htPage| '|wheret|)) - (SPADLET |wheret| + (setq |elements| (|htpButtonValue| |htPage| '|wheret|)) + (setq |wheret| (COND ((BOOT-EQUAL |elements| '|ina|) "i") ('T "s"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '5) (BOOT-EQUAL |n| '3) @@ -2894,9 +2894,9 @@ (|f01qdfDefaultSolve| |htPage| |lda| |ldb| |trans| |wheret| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166629) - (SPADLET G166629 NIL) + (setq G166629 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G166629) @@ -2904,9 +2904,9 @@ (SETQ G166629 (APPEND G166629 (|f01qdfSolve,fa| |i| |n|))))))))) - (SPADLET |bList| + (setq |bList| (PROG (G166637) - (SPADLET G166637 NIL) + (setq G166637 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ldb|) G166637) @@ -2914,13 +2914,13 @@ (SETQ G166637 (APPEND G166637 (|f01qdfSolve,fb| |i| |ncolb|))))))))) - (SPADLET |prefix| + (setq |prefix| '|\\blankline \\menuitemstyle{}\\tab{2} Enter values of {\\it B}: |) - (SPADLET |bList| + (setq |bList| (CONS (CONS '|text| |prefix|) |bList|)) - (SPADLET |zList| + (setq |zList| (PROG (G166645) - (SPADLET G166645 NIL) + (setq G166645 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166645) @@ -2928,14 +2928,14 @@ (SETQ G166645 (APPEND G166645 (|f01qdfSolve,fz| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| '|\\blankline \\menuitemstyle{}\\tab{2} Enter values of \\zeta |) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|(if required): \\newline \\tab{2}|)) - (SPADLET |zList| + (setq |zList| (CONS (CONS '|text| |prefix|) |zList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -2944,7 +2944,7 @@ (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| (APPEND |bList| |zList|)))) - (SPADLET |page| + (setq |page| (|htInitPage| "F01QDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01qdf} after factorization by F01QCF or F01QDF" NIL)) @@ -3037,10 +3037,10 @@ (PROG (|n| |m| |ncolb| |page|) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |m| '5) - (SPADLET |ncolb| '2) - (SPADLET |page| + (setq |n| '3) + (setq |m| '5) + (setq |ncolb| '2) + (setq |page| (|htInitPage| "F01QDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01qdf} after factorization by F01QCF or F01QDF" NIL)) @@ -3154,45 +3154,45 @@ |y| |bform| |rowList| |bstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |lda| |m|) - (SPADLET |ldb| |m|) - (SPADLET |ncolb| (|htpProperty| |htPage| '|ncolb|)) - (SPADLET |trans| (|htpProperty| |htPage| '|trans|)) - (SPADLET |wheret| (|htpProperty| |htPage| '|wheret|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |lda| |m|) + (setq |ldb| |m|) + (setq |ncolb| (|htpProperty| |htPage| '|ncolb|)) + (setq |trans| (|htpProperty| |htPage| '|trans|)) + (setq |wheret| (|htpProperty| |htPage| '|wheret|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |zetalist| + (setq |y| (CDR |y|)) + (setq |zetalist| (CONS |left| |zetalist|)))))) - (SPADLET |zetastring| (|bcwords2liststring| |zetalist|)) - (SPADLET |y| (REVERSE |y|)) + (setq |zetastring| (|bcwords2liststring| |zetalist|)) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G166728) - (SPADLET G166728 NIL) + (setq G166728 NIL) (RETURN (DO ((G166733 |matform| (CDR G166733)) @@ -3212,20 +3212,20 @@ ((QSGREATERP |j| |ncolb|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bform| + (setq |y| (CDR |y|)))))) + (setq |bform| (APPEND |bform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |bstring| + (setq |rowList| NIL))))) + (setq |bstring| (|bcwords2liststring| (PROG (G166764) - (SPADLET G166764 NIL) + (setq G166764 NIL) (RETURN (DO ((G166769 |bform| (CDR G166769)) (|x| NIL)) @@ -3238,16 +3238,16 @@ (SETQ G166764 (CONS (|bcwords2liststring| |x|) G166764))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f01qdf(\"" |trans| '|","| |wheret| '|",| (STRINGIMAGE |m|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | |matstring| '|, | (STRINGIMAGE |lda|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|,[| |zetastring| '|],| (STRINGIMAGE |ncolb|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ldb|) '|, | |bstring| '|, | (STRINGIMAGE |ifail|) '|)|)) @@ -3434,7 +3434,7 @@ (DEFUN |f01qefSolve,ga| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3447,23 +3447,23 @@ (DEFUN |f01qefSolve,fa| (|i| |ncolq|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166827) - (SPADLET G166827 NIL) + (setq G166827 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |ncolq|) G166827) (SEQ (EXIT (SETQ G166827 (APPEND G166827 (|f01qefSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f01qefSolve,fz| (|i|) (PROG (|znam|) (RETURN - (SEQ (SPADLET |znam| + (SEQ (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3479,7 +3479,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3487,7 +3487,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3495,8 +3495,8 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |lda| |m|) - (SPADLET |ncolq| + (setq |lda| |m|) + (setq |ncolq| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3505,23 +3505,23 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncolq|))))) - (SPADLET |elements| (|htpButtonValue| |htPage| '|wheret|)) - (SPADLET |wheret| + (setq |elements| (|htpButtonValue| |htPage| '|wheret|)) + (setq |wheret| (COND ((BOOT-EQUAL |elements| '|initial|) "i") ('T "s"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '5) (BOOT-EQUAL |n| '3) (BOOT-EQUAL |ncolq| '5)) (|f01qefDefaultSolve| |htPage| |lda| |wheret| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166850) - (SPADLET G166850 NIL) + (setq G166850 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G166850) @@ -3529,9 +3529,9 @@ (SETQ G166850 (APPEND G166850 (|f01qefSolve,fa| |i| |ncolq|))))))))) - (SPADLET |zList| + (setq |zList| (PROG (G166858) - (SPADLET G166858 NIL) + (setq G166858 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166858) @@ -3539,14 +3539,14 @@ (SETQ G166858 (APPEND G166858 (|f01qefSolve,fz| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| '|\\blankline \\menuitemstyle{}\\tab{2} Enter values of \\zeta |) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|(if required): \\newline |)) - (SPADLET |zList| + (setq |zList| (CONS (CONS '|text| |prefix|) |zList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -3554,7 +3554,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| |zList|))) - (SPADLET |page| + (setq |page| (|htInitPage| "F01QEF - Operations with orthogonal matrices, form columns of {\\it Q} after factorization by F01QCF or F01QFF" NIL)) @@ -3638,10 +3638,10 @@ (PROG (|n| |m| |ncolq| |page|) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |m| '5) - (SPADLET |ncolq| '5) - (SPADLET |page| + (setq |n| '3) + (setq |m| '5) + (setq |ncolq| '5) + (setq |page| (|htInitPage| "F01QEF - Operations with orthogonal matrices, form columns of {\\it Q} after factorization by F01QCF or F01QFF" NIL)) @@ -3732,43 +3732,43 @@ |matstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |lda| |m|) - (SPADLET |ncolq| (|htpProperty| |htPage| '|ncolq|)) - (SPADLET |wheret| (|htpProperty| |htPage| '|wheret|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |lda| |m|) + (setq |ncolq| (|htpProperty| |htPage| '|ncolq|)) + (setq |wheret| (|htpProperty| |htPage| '|wheret|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |zetalist| + (setq |y| (CDR |y|)) + (setq |zetalist| (CONS |left| |zetalist|)))))) - (SPADLET |zetastring| (|bcwords2liststring| |zetalist|)) - (SPADLET |y| (REVERSE |y|)) + (setq |zetastring| (|bcwords2liststring| |zetalist|)) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |ncolq|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G166932) - (SPADLET G166932 NIL) + (setq G166932 NIL) (RETURN (DO ((G166937 |matform| (CDR G166937)) @@ -3782,16 +3782,16 @@ (SETQ G166932 (CONS (|bcwords2liststring| |x|) G166932))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f01qef(\"" |wheret| '|",| (STRINGIMAGE |m|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | (STRINGIMAGE |lda|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ncolq|) '|,[| |zetastring| '|],|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |matstring| '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -3946,7 +3946,7 @@ (DEFUN |f01rcfSolve,ga| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3959,17 +3959,17 @@ (DEFUN |f01rcfSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166984) - (SPADLET G166984 NIL) + (setq G166984 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166984) (SEQ (EXIT (SETQ G166984 (APPEND G166984 (|f01rcfSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f01rcfSolve| (|htPage|) @@ -3977,7 +3977,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3985,7 +3985,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3993,17 +3993,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |lda| |m|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |lda| |m|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '5) (BOOT-EQUAL |n| '3)) (|f01rcfDefaultSolve| |htPage| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G167001) - (SPADLET G167001 NIL) + (setq G167001 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G167001) @@ -4011,7 +4011,7 @@ (SETQ G167001 (APPEND G167001 (|f01rcfSolve,fa| |i| |n|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -4019,7 +4019,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |matList|)) - (SPADLET |page| + (setq |page| (|htInitPage| "F01RCF - {\\it QR} factorization of complex {\\it m} by {\\it n} matrix (m \\htbitmap{great=} n)" NIL)) @@ -4080,10 +4080,10 @@ (PROG (|n| |m| |lda| |page|) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |m| '5) - (SPADLET |lda| '5) - (SPADLET |page| + (setq |n| '3) + (setq |m| '5) + (setq |lda| '5) + (setq |page| (|htInitPage| "F01RCF - {\\it QR} factorization of complex {\\it m} by {\\it n} matrix (m \\htbitmap{great=} n)" NIL)) @@ -4148,33 +4148,33 @@ |matstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |lda| |m|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |lda| |m|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G167057) - (SPADLET G167057 NIL) + (setq G167057 NIL) (RETURN (DO ((G167062 |matform| (CDR G167062)) @@ -4188,10 +4188,10 @@ (SETQ G167057 (CONS (|bcwords2liststring| |x|) G167057))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f01rcf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | |matstring|)) (|linkGen| @@ -4423,7 +4423,7 @@ (DEFUN |f01rdfSolve,ga| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4436,23 +4436,23 @@ (DEFUN |f01rdfSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167104) - (SPADLET G167104 NIL) + (setq G167104 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G167104) (SEQ (EXIT (SETQ G167104 (APPEND G167104 (|f01rdfSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f01rdfSolve,gb| (|i| |j|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4465,23 +4465,23 @@ (DEFUN |f01rdfSolve,fb| (|i| |ncolb|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167127) - (SPADLET G167127 NIL) + (setq G167127 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |ncolb|) G167127) (SEQ (EXIT (SETQ G167127 (APPEND G167127 (|f01rdfSolve,gb| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f01rdfSolve,fz| (|i|) (PROG (|znam|) (RETURN - (SEQ (SPADLET |znam| + (SEQ (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4498,7 +4498,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4506,7 +4506,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4514,9 +4514,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |lda| |m|) - (SPADLET |ldb| |m|) - (SPADLET |ncolb| + (setq |lda| |m|) + (setq |ldb| |m|) + (setq |ncolb| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4525,20 +4525,20 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncolb|))))) - (SPADLET |operation| (|htpButtonValue| |htPage| '|trans|)) - (SPADLET |trans| + (setq |operation| (|htpButtonValue| |htPage| '|trans|)) + (setq |trans| (COND ((BOOT-EQUAL |operation| '|notrans|) "n") ('T "c"))) - (SPADLET |elements| (|htpButtonValue| |htPage| '|wheret|)) - (SPADLET |wheret| + (setq |elements| (|htpButtonValue| |htPage| '|wheret|)) + (setq |wheret| (COND ((BOOT-EQUAL |elements| '|ina|) "i") ('T "c"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '5) (BOOT-EQUAL |n| '3) @@ -4546,9 +4546,9 @@ (|f01rdfDefaultSolve| |htPage| |lda| |ldb| |trans| |wheret| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G167150) - (SPADLET G167150 NIL) + (setq G167150 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G167150) @@ -4556,9 +4556,9 @@ (SETQ G167150 (APPEND G167150 (|f01rdfSolve,fa| |i| |n|))))))))) - (SPADLET |bList| + (setq |bList| (PROG (G167158) - (SPADLET G167158 NIL) + (setq G167158 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ldb|) G167158) @@ -4566,13 +4566,13 @@ (SETQ G167158 (APPEND G167158 (|f01rdfSolve,fb| |i| |ncolb|))))))))) - (SPADLET |prefix| + (setq |prefix| '|\\blankline \\menuitemstyle{}\\tab{2} Enter values of {\\it B}: |) - (SPADLET |bList| + (setq |bList| (CONS (CONS '|text| |prefix|) |bList|)) - (SPADLET |zList| + (setq |zList| (PROG (G167166) - (SPADLET G167166 NIL) + (setq G167166 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G167166) @@ -4580,14 +4580,14 @@ (SETQ G167166 (APPEND G167166 (|f01rdfSolve,fz| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| '|\\blankline \\menuitemstyle{}\\tab{2} Enter values of \\theta |) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|(if required): \\newline \\tab{2}|)) - (SPADLET |zList| + (setq |zList| (CONS (CONS '|text| |prefix|) |zList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -4596,7 +4596,7 @@ (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| (APPEND |bList| |zList|)))) - (SPADLET |page| + (setq |page| (|htInitPage| "F01RDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01rdf} after factorization by F01QCF or F01RDF" NIL)) @@ -4689,10 +4689,10 @@ (PROG (|n| |m| |ncolb| |page|) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |m| '5) - (SPADLET |ncolb| '2) - (SPADLET |page| + (setq |n| '3) + (setq |m| '5) + (setq |ncolb| '2) + (setq |page| (|htInitPage| "F01RDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01rdf} after factorization by F01QCF or F01RDF" NIL)) @@ -4806,45 +4806,45 @@ |y| |bform| |rowList| |bstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |lda| |m|) - (SPADLET |ldb| |m|) - (SPADLET |ncolb| (|htpProperty| |htPage| '|ncolb|)) - (SPADLET |trans| (|htpProperty| |htPage| '|trans|)) - (SPADLET |wheret| (|htpProperty| |htPage| '|wheret|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |lda| |m|) + (setq |ldb| |m|) + (setq |ncolb| (|htpProperty| |htPage| '|ncolb|)) + (setq |trans| (|htpProperty| |htPage| '|trans|)) + (setq |wheret| (|htpProperty| |htPage| '|wheret|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |zetalist| + (setq |y| (CDR |y|)) + (setq |zetalist| (CONS |left| |zetalist|)))))) - (SPADLET |zetastring| (|bcwords2liststring| |zetalist|)) - (SPADLET |y| (REVERSE |y|)) + (setq |zetastring| (|bcwords2liststring| |zetalist|)) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G167249) - (SPADLET G167249 NIL) + (setq G167249 NIL) (RETURN (DO ((G167254 |matform| (CDR G167254)) @@ -4864,20 +4864,20 @@ ((QSGREATERP |j| |ncolb|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bform| + (setq |y| (CDR |y|)))))) + (setq |bform| (APPEND |bform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |bstring| + (setq |rowList| NIL))))) + (setq |bstring| (|bcwords2liststring| (PROG (G167285) - (SPADLET G167285 NIL) + (setq G167285 NIL) (RETURN (DO ((G167290 |bform| (CDR G167290)) (|x| NIL)) @@ -4890,16 +4890,16 @@ (SETQ G167285 (CONS (|bcwords2liststring| |x|) G167285))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f01rdf(\"" |trans| '|","| |wheret| '|",| (STRINGIMAGE |m|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | |matstring| '|, | (STRINGIMAGE |lda|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|,[| |zetastring| '|],| (STRINGIMAGE |ncolb|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ldb|) '|, | |bstring| '|, | (STRINGIMAGE |ifail|) '|)|)) @@ -5093,7 +5093,7 @@ (DEFUN |f01refSolve,ga| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5106,23 +5106,23 @@ (DEFUN |f01refSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167348) - (SPADLET G167348 NIL) + (setq G167348 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G167348) (SEQ (EXIT (SETQ G167348 (APPEND G167348 (|f01refSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f01refSolve,fz| (|i|) (PROG (|znam|) (RETURN - (SEQ (SPADLET |znam| + (SEQ (setq |znam| (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5138,7 +5138,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5146,7 +5146,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5154,8 +5154,8 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |lda| |m|) - (SPADLET |ncolq| + (setq |lda| |m|) + (setq |ncolq| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5164,23 +5164,23 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncolq|))))) - (SPADLET |elements| (|htpButtonValue| |htPage| '|wheret|)) - (SPADLET |wheret| + (setq |elements| (|htpButtonValue| |htPage| '|wheret|)) + (setq |wheret| (COND ((BOOT-EQUAL |elements| '|ina|) "i") ('T "s"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '5) (BOOT-EQUAL |n| '3) (BOOT-EQUAL |ncolq| '2)) (|f01refDefaultSolve| |htPage| |lda| |wheret| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G167371) - (SPADLET G167371 NIL) + (setq G167371 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G167371) @@ -5188,9 +5188,9 @@ (SETQ G167371 (APPEND G167371 (|f01refSolve,fa| |i| |n|))))))))) - (SPADLET |zList| + (setq |zList| (PROG (G167379) - (SPADLET G167379 NIL) + (setq G167379 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G167379) @@ -5198,14 +5198,14 @@ (SETQ G167379 (APPEND G167379 (|f01refSolve,fz| |i|))))))))) - (SPADLET |prefix| + (setq |prefix| '|\\blankline \\menuitemstyle{}\\tab{2} Enter values of \\theta |) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|(if required): \\newline \\tab{2}|)) - (SPADLET |zList| + (setq |zList| (CONS (CONS '|text| |prefix|) |zList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -5213,7 +5213,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| |zList|))) - (SPADLET |page| + (setq |page| (|htInitPage| "F01REF - Operations with unitary matrices, form columns of {\\it Q} after factorization by F01RCF" NIL)) @@ -5286,10 +5286,10 @@ (PROG (|n| |m| |ncolq| |page|) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |m| '5) - (SPADLET |ncolq| '2) - (SPADLET |page| + (setq |n| '3) + (setq |m| '5) + (setq |ncolq| '2) + (setq |page| (|htInitPage| "F01REF - Operations with unitary matrices, form columns of {\\it Q} after factorization by F01RCF" NIL)) @@ -5373,43 +5373,43 @@ |matstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |lda| |m|) - (SPADLET |ncolq| (|htpProperty| |htPage| '|ncolq|)) - (SPADLET |wheret| (|htpProperty| |htPage| '|wheret|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |lda| |m|) + (setq |ncolq| (|htpProperty| |htPage| '|ncolq|)) + (setq |wheret| (|htpProperty| |htPage| '|wheret|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |left| + (setq |left| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |y| (CDR |y|)) - (SPADLET |thetalist| + (setq |y| (CDR |y|)) + (setq |thetalist| (CONS |left| |thetalist|)))))) - (SPADLET |thetastring| (|bcwords2liststring| |thetalist|)) - (SPADLET |y| (REVERSE |y|)) + (setq |thetastring| (|bcwords2liststring| |thetalist|)) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G167453) - (SPADLET G167453 NIL) + (setq G167453 NIL) (RETURN (DO ((G167458 |matform| (CDR G167458)) @@ -5423,16 +5423,16 @@ (SETQ G167453 (CONS (|bcwords2liststring| |x|) G167453))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f01ref(\"" |wheret| '|",| (STRINGIMAGE |m|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | (STRINGIMAGE |ncolq|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|,[| |thetastring| '|],|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |matstring| '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) diff --git a/src/interp/nag-f02.lisp.pamphlet b/src/interp/nag-f02.lisp.pamphlet index b308600..e7fe7a3 100644 --- a/src/interp/nag-f02.lisp.pamphlet +++ b/src/interp/nag-f02.lisp.pamphlet @@ -122,7 +122,7 @@ (DEFUN |f02aafSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -135,17 +135,17 @@ (DEFUN |f02aafSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166070) - (SPADLET G166070 NIL) + (setq G166070 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166070) (SEQ (EXIT (SETQ G166070 (APPEND G166070 (|f02aafSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02aafSolve| (|htPage|) @@ -153,7 +153,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -161,17 +161,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |ia| |n|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |ia| |n|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02aafDefaultSolve| |htPage| |ia| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166087) - (SPADLET G166087 NIL) + (setq G166087 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) G166087) @@ -179,7 +179,7 @@ (SETQ G166087 (APPEND G166087 (|f02aafSolve,f| |i| |n|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -187,7 +187,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |matList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|F02AAF - All eigenvalues of real symmetric matrix (Black box)| NIL)) @@ -244,8 +244,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02AAF - All eigenvalues of real symmetric matrix (Black box)" NIL)) @@ -309,32 +309,32 @@ |matstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ia| |n|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ia| |n|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G166140) - (SPADLET G166140 NIL) + (setq G166140 NIL) (RETURN (DO ((G166145 |matform| (CDR G166145)) @@ -348,11 +348,11 @@ (SETQ G166140 (CONS (|bcwords2liststring| |x|) G166140))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02aaf(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |matstring| '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -478,7 +478,7 @@ (DEFUN |f02abfSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -491,17 +491,17 @@ (DEFUN |f02abfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166182) - (SPADLET G166182 NIL) + (setq G166182 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166182) (SEQ (EXIT (SETQ G166182 (APPEND G166182 (|f02abfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02abfSolve| (|htPage|) @@ -509,7 +509,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -517,18 +517,18 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |ia| |n|) - (SPADLET |iv| |n|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |ia| |n|) + (setq |iv| |n|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02abfDefaultSolve| |htPage| |ia| |iv| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166199) - (SPADLET G166199 NIL) + (setq G166199 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) G166199) @@ -536,7 +536,7 @@ (SETQ G166199 (APPEND G166199 (|f02abfSolve,f| |i| |n|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -544,7 +544,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |matList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|F02ABF - All eigenvalues and eigenvectors of real symmetric matrix (Black box)| NIL)) @@ -602,8 +602,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02ABF - All eigenvalues and eigenvectors of real symmetric matrix (Black box)" NIL)) @@ -669,33 +669,33 @@ |matstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ia| |n|) - (SPADLET |iv| |n|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ia| |n|) + (setq |iv| |n|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G166253) - (SPADLET G166253 NIL) + (setq G166253 NIL) (RETURN (DO ((G166258 |matform| (CDR G166258)) @@ -709,10 +709,10 @@ (SETQ G166253 (CONS (|bcwords2liststring| |x|) G166253))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02abf(" |matstring| '|, | (STRINGIMAGE |ia|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | (STRINGIMAGE |iv|) '|, |)) (|linkGen| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|))))))) @@ -845,7 +845,7 @@ (DEFUN |f02adfSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -858,23 +858,23 @@ (DEFUN |f02adfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166296) - (SPADLET G166296 NIL) + (setq G166296 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166296) (SEQ (EXIT (SETQ G166296 (APPEND G166296 (|f02adfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02adfSolve,l| (|k| |p|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| @@ -887,17 +887,17 @@ (DEFUN |f02adfSolve,h| (|k| |n|) (PROG (|prefix| |bList|) (RETURN - (SEQ (SPADLET |bList| + (SEQ (setq |bList| (PROG (G166319) - (SPADLET G166319 NIL) + (setq G166319 NIL) (RETURN (DO ((|p| 1 (QSADD1 |p|))) ((QSGREATERP |p| |n|) G166319) (SEQ (EXIT (SETQ G166319 (APPEND G166319 (|f02adfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |bList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) (DEFUN |f02adfSolve| (|htPage|) @@ -906,7 +906,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -914,18 +914,18 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |ia| |n|) - (SPADLET |ib| |n|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |ia| |n|) + (setq |ib| |n|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02adfDefaultSolve| |htPage| |ia| |ib| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166336) - (SPADLET G166336 NIL) + (setq G166336 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) G166336) @@ -933,9 +933,9 @@ (SETQ G166336 (APPEND G166336 (|f02adfSolve,f| |i| |n|))))))))) - (SPADLET |bmatList| + (setq |bmatList| (PROG (G166344) - (SPADLET G166344 NIL) + (setq G166344 NIL) (RETURN (DO ((|k| 1 (QSADD1 |k|))) ((QSGREATERP |k| |ib|) G166344) @@ -943,11 +943,11 @@ (SETQ G166344 (APPEND G166344 (|f02adfSolve,h| |k| |n|))))))))) - (SPADLET |start| + (setq |start| "\\blankline \\menuitemstyle{} \\tab{2} Enter values of {\\it b}:") - (SPADLET |bmatList| + (setq |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -955,7 +955,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| |bmatList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|F02ADF - All eigenvalues of generalized real eigenproblem of the form Ax = \\lambda Bx where A and B are symmetric and B is positive definite| NIL)) @@ -1036,8 +1036,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02ADF - All eigenvalues of generalized real eigenproblem of the form Ax = \\lambda Bx where A and B are symmetric and B is positive definite" NIL)) @@ -1126,49 +1126,49 @@ |rowList| |matstring| |bstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ia| |n|) - (SPADLET |ib| |n|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ia| |n|) + (setq |ib| |n|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) + (setq |rowList| NIL))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ib|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bform| + (setq |y| (CDR |y|)))))) + (setq |bform| (APPEND |bform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G166425) - (SPADLET G166425 NIL) + (setq G166425 NIL) (RETURN (DO ((G166430 |matform| (CDR G166430)) @@ -1182,10 +1182,10 @@ (SETQ G166425 (CONS (|bcwords2liststring| |x|) G166425))))))))) - (SPADLET |bstring| + (setq |bstring| (|bcwords2liststring| (PROG (G166440) - (SPADLET G166440 NIL) + (setq G166440 NIL) (RETURN (DO ((G166445 |bform| (CDR G166445)) (|x| NIL)) @@ -1198,14 +1198,14 @@ (SETQ G166440 (CONS (|bcwords2liststring| |x|) G166440))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02adf(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |ib|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | |matstring| '|, | |bstring| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -1349,7 +1349,7 @@ (DEFUN |f02aefSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1362,23 +1362,23 @@ (DEFUN |f02aefSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166491) - (SPADLET G166491 NIL) + (setq G166491 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166491) (SEQ (EXIT (SETQ G166491 (APPEND G166491 (|f02aefSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02aefSolve,l| (|k| |p|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1391,17 +1391,17 @@ (DEFUN |f02aefSolve,h| (|k| |n|) (PROG (|prefix| |bList|) (RETURN - (SEQ (SPADLET |bList| + (SEQ (setq |bList| (PROG (G166514) - (SPADLET G166514 NIL) + (setq G166514 NIL) (RETURN (DO ((|p| 1 (QSADD1 |p|))) ((QSGREATERP |p| |n|) G166514) (SEQ (EXIT (SETQ G166514 (APPEND G166514 (|f02aefSolve,l| |k| |p|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |bList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) (DEFUN |f02aefSolve| (|htPage|) @@ -1410,7 +1410,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1418,19 +1418,19 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |ia| |n|) - (SPADLET |ib| |n|) - (SPADLET |iv| |n|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |ia| |n|) + (setq |ib| |n|) + (setq |iv| |n|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02aefDefaultSolve| |htPage| |ia| |ib| |iv| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166531) - (SPADLET G166531 NIL) + (setq G166531 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) G166531) @@ -1438,9 +1438,9 @@ (SETQ G166531 (APPEND G166531 (|f02aefSolve,f| |i| |n|))))))))) - (SPADLET |bmatList| + (setq |bmatList| (PROG (G166539) - (SPADLET G166539 NIL) + (setq G166539 NIL) (RETURN (DO ((|k| 1 (QSADD1 |k|))) ((QSGREATERP |k| |ib|) G166539) @@ -1448,11 +1448,11 @@ (SETQ G166539 (APPEND G166539 (|f02aefSolve,h| |k| |n|))))))))) - (SPADLET |start| + (setq |start| "\\blankline \\menuitemstyle{} \\tab{2} Enter values of {\\it b}:") - (SPADLET |bmatList| + (setq |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -1460,7 +1460,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| |bmatList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|F02AEF - All eigenvalues and eigenvectors of generalized real eigenproblem of the form Ax = \\lambda Bx where A and B are symmetric and B is positive definite| NIL)) @@ -1542,8 +1542,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02AEF - All eigenvalues and eigenvectors of generalized real eigenproblem of the form Ax = \\lambda Bx where A and B are symmetric and B is positive definite" NIL)) @@ -1635,50 +1635,50 @@ |rowList| |matstring| |bstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ia| |n|) - (SPADLET |ib| |n|) - (SPADLET |iv| |n|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ia| |n|) + (setq |ib| |n|) + (setq |iv| |n|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) + (setq |rowList| NIL))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ib|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bform| + (setq |y| (CDR |y|)))))) + (setq |bform| (APPEND |bform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G166621) - (SPADLET G166621 NIL) + (setq G166621 NIL) (RETURN (DO ((G166626 |matform| (CDR G166626)) @@ -1692,10 +1692,10 @@ (SETQ G166621 (CONS (|bcwords2liststring| |x|) G166621))))))))) - (SPADLET |bstring| + (setq |bstring| (|bcwords2liststring| (PROG (G166636) - (SPADLET G166636 NIL) + (setq G166636 NIL) (RETURN (DO ((G166641 |bform| (CDR G166641)) (|x| NIL)) @@ -1708,17 +1708,17 @@ (SETQ G166636 (CONS (|bcwords2liststring| |x|) G166636))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02aef(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |ib|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | (STRINGIMAGE |iv|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |matstring| '|, | |bstring| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -1832,7 +1832,7 @@ (DEFUN |f02affSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1845,17 +1845,17 @@ (DEFUN |f02affSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166689) - (SPADLET G166689 NIL) + (setq G166689 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166689) (SEQ (EXIT (SETQ G166689 (APPEND G166689 (|f02affSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02affSolve| (|htPage|) @@ -1863,7 +1863,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1871,17 +1871,17 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |ia| |n|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |ia| |n|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02affDefaultSolve| |htPage| |ia| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166706) - (SPADLET G166706 NIL) + (setq G166706 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) G166706) @@ -1889,7 +1889,7 @@ (SETQ G166706 (APPEND G166706 (|f02affSolve,f| |i| |n|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -1897,7 +1897,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |matList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|F02AFF - All eigenvalues of real matrix (Black box)| NIL)) @@ -1954,8 +1954,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02AFF - All eigenvalues of real matrix (Black box)" NIL)) @@ -2019,32 +2019,32 @@ |matstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ia| |n|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ia| |n|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G166759) - (SPADLET G166759 NIL) + (setq G166759 NIL) (RETURN (DO ((G166764 |matform| (CDR G166764)) @@ -2058,11 +2058,11 @@ (SETQ G166759 (CONS (|bcwords2liststring| |x|) G166759))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02aff(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |matstring| '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -2197,7 +2197,7 @@ (DEFUN |f02agfSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2210,17 +2210,17 @@ (DEFUN |f02agfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166801) - (SPADLET G166801 NIL) + (setq G166801 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166801) (SEQ (EXIT (SETQ G166801 (APPEND G166801 (|f02agfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02agfSolve| (|htPage|) @@ -2229,7 +2229,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2237,20 +2237,20 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |ia| |n|) - (SPADLET |ivr| |n|) - (SPADLET |ivi| |n|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |ia| |n|) + (setq |ivr| |n|) + (setq |ivi| |n|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02agfDefaultSolve| |htPage| |ia| |ivr| |ivi| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166818) - (SPADLET G166818 NIL) + (setq G166818 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) G166818) @@ -2258,7 +2258,7 @@ (SETQ G166818 (APPEND G166818 (|f02agfSolve,f| |i| |n|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -2266,7 +2266,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |matList|)) - (SPADLET |page| + (setq |page| (|htInitPage| '|F02AGF - All eigenvalues and eigenvectors of real matrix (Black box)| NIL)) @@ -2325,8 +2325,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02AGF - All eigenvalues and eigenvectors of real matrix (Black box)" NIL)) @@ -2394,34 +2394,34 @@ |rowList| |matstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ia| |n|) - (SPADLET |ivr| |n|) - (SPADLET |ivi| |n|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ia| |n|) + (setq |ivr| |n|) + (setq |ivi| |n|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G166873) - (SPADLET G166873 NIL) + (setq G166873 NIL) (RETURN (DO ((G166878 |matform| (CDR G166878)) @@ -2435,11 +2435,11 @@ (SETQ G166873 (CONS (|bcwords2liststring| |x|) G166873))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02agf(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ivr|) '|, | (STRINGIMAGE |ivi|) '|, |)) (|linkGen| @@ -2575,7 +2575,7 @@ (DEFUN |f02ajfSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2588,23 +2588,23 @@ (DEFUN |f02ajfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166917) - (SPADLET G166917 NIL) + (setq G166917 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166917) (SEQ (EXIT (SETQ G166917 (APPEND G166917 (|f02ajfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02ajfSolve,l| (|k| |p|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| @@ -2617,17 +2617,17 @@ (DEFUN |f02ajfSolve,h| (|k| |n|) (PROG (|prefix| |bList|) (RETURN - (SEQ (SPADLET |bList| + (SEQ (setq |bList| (PROG (G166940) - (SPADLET G166940 NIL) + (setq G166940 NIL) (RETURN (DO ((|p| 1 (QSADD1 |p|))) ((QSGREATERP |p| |n|) G166940) (SEQ (EXIT (SETQ G166940 (APPEND G166940 (|f02ajfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |bList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) (DEFUN |f02ajfSolve| (|htPage|) @@ -2636,7 +2636,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2644,18 +2644,18 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |iar| |n|) - (SPADLET |iai| |n|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |iar| |n|) + (setq |iai| |n|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02ajfDefaultSolve| |htPage| |iar| |iai| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G166957) - (SPADLET G166957 NIL) + (setq G166957 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iar|) G166957) @@ -2663,9 +2663,9 @@ (SETQ G166957 (APPEND G166957 (|f02ajfSolve,f| |i| |n|))))))))) - (SPADLET |bmatList| + (setq |bmatList| (PROG (G166965) - (SPADLET G166965 NIL) + (setq G166965 NIL) (RETURN (DO ((|k| 1 (QSADD1 |k|))) ((QSGREATERP |k| |iai|) G166965) @@ -2673,11 +2673,11 @@ (SETQ G166965 (APPEND G166965 (|f02ajfSolve,h| |k| |n|))))))))) - (SPADLET |start| + (setq |start| "\\blankline \\menuitemstyle{}\\tab{2}Enter imag values of {\\it A}:") - (SPADLET |bmatList| + (setq |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -2685,7 +2685,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| |bmatList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|F02AJF - All eigenvalues of complex matrix (Black box)| NIL)) @@ -2766,8 +2766,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02AJF - All eigenvalues of complex matrix (Black box)" NIL)) @@ -2863,49 +2863,49 @@ |rowList| |matstring| |bstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |iar| |n|) - (SPADLET |iai| |n|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |iar| |n|) + (setq |iai| |n|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iar|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) + (setq |rowList| NIL))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iai|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bform| + (setq |y| (CDR |y|)))))) + (setq |bform| (APPEND |bform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G167046) - (SPADLET G167046 NIL) + (setq G167046 NIL) (RETURN (DO ((G167051 |matform| (CDR G167051)) @@ -2919,10 +2919,10 @@ (SETQ G167046 (CONS (|bcwords2liststring| |x|) G167046))))))))) - (SPADLET |bstring| + (setq |bstring| (|bcwords2liststring| (PROG (G167061) - (SPADLET G167061 NIL) + (setq G167061 NIL) (RETURN (DO ((G167066 |bform| (CDR G167066)) (|x| NIL)) @@ -2935,13 +2935,13 @@ (SETQ G167061 (CONS (|bcwords2liststring| |x|) G167061))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02ajf(" (STRINGIMAGE |n|) '|, | (STRINGIMAGE |iar|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |iai|) '|, | |matstring| '|, | |bstring| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -3094,7 +3094,7 @@ (DEFUN |f02akfSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3107,23 +3107,23 @@ (DEFUN |f02akfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167112) - (SPADLET G167112 NIL) + (setq G167112 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G167112) (SEQ (EXIT (SETQ G167112 (APPEND G167112 (|f02akfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02akfSolve,l| (|k| |p|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3136,17 +3136,17 @@ (DEFUN |f02akfSolve,h| (|k| |n|) (PROG (|prefix| |bList|) (RETURN - (SEQ (SPADLET |bList| + (SEQ (setq |bList| (PROG (G167135) - (SPADLET G167135 NIL) + (setq G167135 NIL) (RETURN (DO ((|p| 1 (QSADD1 |p|))) ((QSGREATERP |p| |n|) G167135) (SEQ (EXIT (SETQ G167135 (APPEND G167135 (|f02akfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |bList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) (DEFUN |f02akfSolve| (|htPage|) @@ -3155,7 +3155,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3163,21 +3163,21 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |iar| |n|) - (SPADLET |iai| |n|) - (SPADLET |ivr| |n|) - (SPADLET |ivi| |n|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |iar| |n|) + (setq |iai| |n|) + (setq |ivr| |n|) + (setq |ivi| |n|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02akfDefaultSolve| |htPage| |iar| |iai| |ivr| |ivi| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G167152) - (SPADLET G167152 NIL) + (setq G167152 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iar|) G167152) @@ -3185,9 +3185,9 @@ (SETQ G167152 (APPEND G167152 (|f02akfSolve,f| |i| |n|))))))))) - (SPADLET |bmatList| + (setq |bmatList| (PROG (G167160) - (SPADLET G167160 NIL) + (setq G167160 NIL) (RETURN (DO ((|k| 1 (QSADD1 |k|))) ((QSGREATERP |k| |iai|) G167160) @@ -3195,11 +3195,11 @@ (SETQ G167160 (APPEND G167160 (|f02akfSolve,h| |k| |n|))))))))) - (SPADLET |start| + (setq |start| "\\blankline \\menuitemstyle{}\\tab{2}Enter imag values of {\\it A}:") - (SPADLET |bmatList| + (setq |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -3207,7 +3207,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| |bmatList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|F02AKF - All eigenvalues and eigenvectors of complex matrix (Black box)| NIL)) @@ -3290,8 +3290,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02AKF - All eigenvalues and eigenvectors of complex matrix (Black box)" NIL)) @@ -3392,51 +3392,51 @@ |y| |bform| |rowList| |matstring| |bstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |iar| |n|) - (SPADLET |iai| |n|) - (SPADLET |ivr| |n|) - (SPADLET |ivi| |n|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |iar| |n|) + (setq |iai| |n|) + (setq |ivr| |n|) + (setq |ivi| |n|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iar|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) + (setq |rowList| NIL))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iai|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bform| + (setq |y| (CDR |y|)))))) + (setq |bform| (APPEND |bform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G167243) - (SPADLET G167243 NIL) + (setq G167243 NIL) (RETURN (DO ((G167248 |matform| (CDR G167248)) @@ -3450,10 +3450,10 @@ (SETQ G167243 (CONS (|bcwords2liststring| |x|) G167243))))))))) - (SPADLET |bstring| + (setq |bstring| (|bcwords2liststring| (PROG (G167258) - (SPADLET G167258 NIL) + (setq G167258 NIL) (RETURN (DO ((G167263 |bform| (CDR G167263)) (|x| NIL)) @@ -3466,17 +3466,17 @@ (SETQ G167258 (CONS (|bcwords2liststring| |x|) G167258))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02akf(" (STRINGIMAGE |iar|) '|, | (STRINGIMAGE |iai|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | (STRINGIMAGE |ivr|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ivi|) '|, | |matstring| '|, | |bstring| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -3610,7 +3610,7 @@ (DEFUN |f02awfSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3623,23 +3623,23 @@ (DEFUN |f02awfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167312) - (SPADLET G167312 NIL) + (setq G167312 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G167312) (SEQ (EXIT (SETQ G167312 (APPEND G167312 (|f02awfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02awfSolve,l| (|k| |p|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| @@ -3652,17 +3652,17 @@ (DEFUN |f02awfSolve,h| (|k| |n|) (PROG (|prefix| |bList|) (RETURN - (SEQ (SPADLET |bList| + (SEQ (setq |bList| (PROG (G167335) - (SPADLET G167335 NIL) + (setq G167335 NIL) (RETURN (DO ((|p| 1 (QSADD1 |p|))) ((QSGREATERP |p| |n|) G167335) (SEQ (EXIT (SETQ G167335 (APPEND G167335 (|f02awfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |bList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) (DEFUN |f02awfSolve| (|htPage|) @@ -3671,7 +3671,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -3679,18 +3679,18 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |iar| |n|) - (SPADLET |iai| |n|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |iar| |n|) + (setq |iai| |n|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02awfDefaultSolve| |htPage| |iar| |iai| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G167352) - (SPADLET G167352 NIL) + (setq G167352 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iar|) G167352) @@ -3698,9 +3698,9 @@ (SETQ G167352 (APPEND G167352 (|f02awfSolve,f| |i| |n|))))))))) - (SPADLET |bmatList| + (setq |bmatList| (PROG (G167360) - (SPADLET G167360 NIL) + (setq G167360 NIL) (RETURN (DO ((|k| 1 (QSADD1 |k|))) ((QSGREATERP |k| |iai|) G167360) @@ -3708,11 +3708,11 @@ (SETQ G167360 (APPEND G167360 (|f02awfSolve,h| |k| |n|))))))))) - (SPADLET |start| + (setq |start| "\\blankline \\menuitemstyle{}\\tab{2}Enter imaginary values {\\it AI}:") - (SPADLET |bmatList| + (setq |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -3720,7 +3720,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| |bmatList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|F02AWF - All eigenvalues of complex Hermitian matrix (Black box)| NIL)) @@ -3801,8 +3801,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02AWF - All eigenvalues of complex Hermitian matrix (Black box)" NIL)) @@ -3898,49 +3898,49 @@ |rowList| |matstring| |bstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |iar| |n|) - (SPADLET |iai| |n|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |iar| |n|) + (setq |iai| |n|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iar|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) + (setq |rowList| NIL))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iai|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bform| + (setq |y| (CDR |y|)))))) + (setq |bform| (APPEND |bform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G167441) - (SPADLET G167441 NIL) + (setq G167441 NIL) (RETURN (DO ((G167446 |matform| (CDR G167446)) @@ -3954,10 +3954,10 @@ (SETQ G167441 (CONS (|bcwords2liststring| |x|) G167441))))))))) - (SPADLET |bstring| + (setq |bstring| (|bcwords2liststring| (PROG (G167456) - (SPADLET G167456 NIL) + (setq G167456 NIL) (RETURN (DO ((G167461 |bform| (CDR G167461)) (|x| NIL)) @@ -3970,13 +3970,13 @@ (SETQ G167456 (CONS (|bcwords2liststring| |x|) G167456))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02awf(" (STRINGIMAGE |n|) '|, | (STRINGIMAGE |iar|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |iai|) '|, | |matstring| '|, | |bstring| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -4129,7 +4129,7 @@ (DEFUN |f02axfSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4142,23 +4142,23 @@ (DEFUN |f02axfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167507) - (SPADLET G167507 NIL) + (setq G167507 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G167507) (SEQ (EXIT (SETQ G167507 (APPEND G167507 (|f02axfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02axfSolve,l| (|k| |p|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4171,17 +4171,17 @@ (DEFUN |f02axfSolve,h| (|k| |n|) (PROG (|prefix| |bList|) (RETURN - (SEQ (SPADLET |bList| + (SEQ (setq |bList| (PROG (G167530) - (SPADLET G167530 NIL) + (setq G167530 NIL) (RETURN (DO ((|p| 1 (QSADD1 |p|))) ((QSGREATERP |p| |n|) G167530) (SEQ (EXIT (SETQ G167530 (APPEND G167530 (|f02axfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |bList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) (DEFUN |f02axfSolve| (|htPage|) @@ -4190,7 +4190,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4198,21 +4198,21 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |iar| |n|) - (SPADLET |iai| |n|) - (SPADLET |ivr| |n|) - (SPADLET |ivi| |n|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |iar| |n|) + (setq |iai| |n|) + (setq |ivr| |n|) + (setq |ivi| |n|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02axfDefaultSolve| |htPage| |iar| |iai| |ivr| |ivi| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G167547) - (SPADLET G167547 NIL) + (setq G167547 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iar|) G167547) @@ -4220,9 +4220,9 @@ (SETQ G167547 (APPEND G167547 (|f02axfSolve,f| |i| |n|))))))))) - (SPADLET |bmatList| + (setq |bmatList| (PROG (G167555) - (SPADLET G167555 NIL) + (setq G167555 NIL) (RETURN (DO ((|k| 1 (QSADD1 |k|))) ((QSGREATERP |k| |iai|) G167555) @@ -4230,11 +4230,11 @@ (SETQ G167555 (APPEND G167555 (|f02axfSolve,h| |k| |n|))))))))) - (SPADLET |start| + (setq |start| "\\blankline \\menuitemstyle{}\\tab{2}Enter imaginary values of {\\it A}:") - (SPADLET |bmatList| + (setq |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -4242,7 +4242,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| |bmatList|))) - (SPADLET |page| + (setq |page| (|htInitPage| '|F02AXF - All eigenvalues and eigenvectors of complex Hermitian matrix (Black box)| NIL)) @@ -4325,8 +4325,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02AXF - All eigenvalues and eigenvectors of complex Hermitian matrix (Black box)" NIL)) @@ -4427,51 +4427,51 @@ |y| |bform| |rowList| |matstring| |bstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |iar| |n|) - (SPADLET |iai| |n|) - (SPADLET |ivr| |n|) - (SPADLET |ivi| |n|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |iar| |n|) + (setq |iai| |n|) + (setq |ivr| |n|) + (setq |ivi| |n|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iar|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) + (setq |rowList| NIL))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |iai|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bform| + (setq |y| (CDR |y|)))))) + (setq |bform| (APPEND |bform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G167638) - (SPADLET G167638 NIL) + (setq G167638 NIL) (RETURN (DO ((G167643 |matform| (CDR G167643)) @@ -4485,10 +4485,10 @@ (SETQ G167638 (CONS (|bcwords2liststring| |x|) G167638))))))))) - (SPADLET |bstring| + (setq |bstring| (|bcwords2liststring| (PROG (G167653) - (SPADLET G167653 NIL) + (setq G167653 NIL) (RETURN (DO ((G167658 |bform| (CDR G167658)) (|x| NIL)) @@ -4501,16 +4501,16 @@ (SETQ G167653 (CONS (|bcwords2liststring| |x|) G167653))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02axf(" |matstring| '|, | (STRINGIMAGE |iar|) '|, | |bstring|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | (STRINGIMAGE |iai|) '|, | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ivr|) '|, | (STRINGIMAGE |ivi|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -4673,7 +4673,7 @@ (DEFUN |f02bbfSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -4686,17 +4686,17 @@ (DEFUN |f02bbfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167708) - (SPADLET G167708 NIL) + (setq G167708 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G167708) (SEQ (EXIT (SETQ G167708 (APPEND G167708 (|f02bbfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02bbfSolve| (|htPage|) @@ -4705,7 +4705,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4713,7 +4713,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -4721,21 +4721,21 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |alb| (|htpLabelInputString| |htPage| '|alb|)) - (SPADLET |ub| (|htpLabelInputString| |htPage| '|ub|)) - (SPADLET |ia| |n|) - (SPADLET |iv| |n|) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |alb| (|htpLabelInputString| |htPage| '|alb|)) + (setq |ub| (|htpLabelInputString| |htPage| '|ub|)) + (setq |ia| |n|) + (setq |iv| |n|) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02bbfDefaultSolve| |htPage| |m| |alb| |ub| |ia| |iv| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G167725) - (SPADLET G167725 NIL) + (setq G167725 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) G167725) @@ -4743,7 +4743,7 @@ (SETQ G167725 (APPEND G167725 (|f02bbfSolve,f| |i| |n|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -4751,7 +4751,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) |matList|)) - (SPADLET |page| + (setq |page| (|htInitPage| "F02BBF - Selected eigenvalues and eigenvectors of real symmetric matrix (Black box)" NIL)) @@ -4815,8 +4815,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02BBF - Selected eigenvalues and eigenvectors of real symmetric matrix (Black box)" NIL)) @@ -4889,36 +4889,36 @@ |matform| |rowList| |matstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |alb| (|htpProperty| |htPage| '|alb|)) - (SPADLET |ub| (|htpProperty| |htPage| '|ub|)) - (SPADLET |ia| |n|) - (SPADLET |iv| |n|) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |alb| (|htpProperty| |htPage| '|alb|)) + (setq |ub| (|htpProperty| |htPage| '|ub|)) + (setq |ia| |n|) + (setq |iv| |n|) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G167782) - (SPADLET G167782 NIL) + (setq G167782 NIL) (RETURN (DO ((G167787 |matform| (CDR G167787)) @@ -4932,15 +4932,15 @@ (SETQ G167782 (CONS (|bcwords2liststring| |x|) G167782))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02bbf(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |alb| '|, | |ub| '|, | (STRINGIMAGE |m|) '|, | (STRINGIMAGE |iv|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|, | |matstring| '|, | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -5135,7 +5135,7 @@ (DEFUN |f02bjfSolve,g| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5148,23 +5148,23 @@ (DEFUN |f02bjfSolve,f| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G167830) - (SPADLET G167830 NIL) + (setq G167830 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G167830) (SEQ (EXIT (SETQ G167830 (APPEND G167830 (|f02bjfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02bjfSolve,l| (|k| |p|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5177,17 +5177,17 @@ (DEFUN |f02bjfSolve,h| (|k| |n|) (PROG (|prefix| |bList|) (RETURN - (SEQ (SPADLET |bList| + (SEQ (setq |bList| (PROG (G167853) - (SPADLET G167853 NIL) + (setq G167853 NIL) (RETURN (DO ((|p| 1 (QSADD1 |p|))) ((QSGREATERP |p| |n|) G167853) (SEQ (EXIT (SETQ G167853 (APPEND G167853 (|f02bjfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |bList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) (DEFUN |f02bjfSolve| (|htPage|) @@ -5196,7 +5196,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5204,27 +5204,27 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |ia| |n|) - (SPADLET |ib| |n|) - (SPADLET |iv| |n|) - (SPADLET |eps| (|htpLabelInputString| |htPage| '|eps|)) - (SPADLET |bool| (|htpButtonValue| |htPage| '|matv|)) - (SPADLET |matv| + (setq |ia| |n|) + (setq |ib| |n|) + (setq |iv| |n|) + (setq |eps| (|htpLabelInputString| |htPage| '|eps|)) + (setq |bool| (|htpButtonValue| |htPage| '|matv|)) + (setq |matv| (COND ((BOOT-EQUAL |bool| '|true|) "true") ('T "false"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((BOOT-EQUAL |n| '4) (|f02bjfDefaultSolve| |htPage| |ia| |ib| |iv| |eps| |matv| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G167870) - (SPADLET G167870 NIL) + (setq G167870 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) G167870) @@ -5232,9 +5232,9 @@ (SETQ G167870 (APPEND G167870 (|f02bjfSolve,f| |i| |n|))))))))) - (SPADLET |bmatList| + (setq |bmatList| (PROG (G167878) - (SPADLET G167878 NIL) + (setq G167878 NIL) (RETURN (DO ((|k| 1 (QSADD1 |k|))) ((QSGREATERP |k| |ib|) G167878) @@ -5242,11 +5242,11 @@ (SETQ G167878 (APPEND G167878 (|f02bjfSolve,h| |k| |n|))))))))) - (SPADLET |start| + (setq |start| "\\blankline \\menuitemstyle{} \\tab{2} Enter values of {\\it b}:") - (SPADLET |bmatList| + (setq |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -5254,7 +5254,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| |bmatList|))) - (SPADLET |page| + (setq |page| (|htInitPage| "F02BJF - All eigenvalues and optionally eigenvectors of generalized eigenproblem by {\\it QZ} algorithm, real matrices (Black box)" NIL)) @@ -5340,8 +5340,8 @@ (PROG (|n| |page|) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |page| + (setq |n| '4) + (setq |page| (|htInitPage| "F02BJF - All eigenvalues and optionally eigenvectors of generalized eigenproblem by {\\it QZ} algorithm, real matrices (Black box)" NIL)) @@ -5439,52 +5439,52 @@ |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |ia| |n|) - (SPADLET |ib| |n|) - (SPADLET |iv| |n|) - (SPADLET |eps| (|htpProperty| |htPage| '|eps|)) - (SPADLET |matv| (|htpProperty| |htPage| '|matv|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |ia| |n|) + (setq |ib| |n|) + (setq |iv| |n|) + (setq |eps| (|htpProperty| |htPage| '|eps|)) + (setq |matv| (|htpProperty| |htPage| '|matv|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ia|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) + (setq |rowList| NIL))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ib|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bform| + (setq |y| (CDR |y|)))))) + (setq |bform| (APPEND |bform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G167963) - (SPADLET G167963 NIL) + (setq G167963 NIL) (RETURN (DO ((G167968 |matform| (CDR G167968)) @@ -5498,10 +5498,10 @@ (SETQ G167963 (CONS (|bcwords2liststring| |x|) G167963))))))))) - (SPADLET |bstring| + (setq |bstring| (|bcwords2liststring| (PROG (G167978) - (SPADLET G167978 NIL) + (setq G167978 NIL) (RETURN (DO ((G167983 |bform| (CDR G167983)) (|x| NIL)) @@ -5514,16 +5514,16 @@ (SETQ G167978 (CONS (|bcwords2liststring| |x|) G167978))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02bjf(" (STRINGIMAGE |n|) '|, | (STRINGIMAGE |ia|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ib|) '|, | |eps| '|, | |matv| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |iv|) '|, | |matstring| '|, | |bstring| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|)))))) @@ -5792,7 +5792,7 @@ (DEFUN |f02wefSolve,ga| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5805,23 +5805,23 @@ (DEFUN |f02wefSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G168041) - (SPADLET G168041 NIL) + (setq G168041 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G168041) (SEQ (EXIT (SETQ G168041 (APPEND G168041 (|f02wefSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02wefSolve,gb| (|i| |j|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -5834,17 +5834,17 @@ (DEFUN |f02wefSolve,fb| (|i| |ncolb|) (PROG (|pre| |labelList|) (RETURN - (SEQ (SPADLET |pre| '|\\newline \\tab{2} |) - (SPADLET |labelList| + (SEQ (setq |pre| '|\\newline \\tab{2} |) + (setq |labelList| (PROG (G168064) - (SPADLET G168064 NIL) + (setq G168064 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |ncolb|) G168064) (SEQ (EXIT (SETQ G168064 (APPEND G168064 (|f02wefSolve,gb| |i| |j|))))))))) - (EXIT (SPADLET |labelList| + (EXIT (setq |labelList| (CONS (CONS '|text| |pre|) |labelList|))))))) (DEFUN |f02wefSolve| (|htPage|) @@ -5854,7 +5854,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5862,7 +5862,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5870,9 +5870,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |lda| |m|) - (SPADLET |ldb| |m|) - (SPADLET |ncolb| + (setq |lda| |m|) + (setq |ldb| |m|) + (setq |ncolb| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -5881,22 +5881,22 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncolb|))))) - (SPADLET |operation| (|htpButtonValue| |htPage| '|wantq|)) - (SPADLET |wantq| + (setq |operation| (|htpButtonValue| |htPage| '|wantq|)) + (setq |wantq| (COND ((BOOT-EQUAL |operation| '|qtrue|) "true") ('T "false"))) - (SPADLET |ldq| |m|) - (SPADLET |ldpt| |n|) - (SPADLET |elements| (|htpButtonValue| |htPage| '|wantp|)) - (SPADLET |wantp| + (setq |ldq| |m|) + (setq |ldpt| |n|) + (setq |elements| (|htpButtonValue| |htPage| '|wantp|)) + (setq |wantp| (COND ((BOOT-EQUAL |elements| '|ptrue|) "true") ('T "false"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '5) (BOOT-EQUAL |n| '3) @@ -5904,9 +5904,9 @@ (|f02wefDefaultSolve| |htPage| |lda| |ldb| |wantq| |ldq| |ldpt| |wantp| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G168081) - (SPADLET G168081 NIL) + (setq G168081 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G168081) @@ -5914,9 +5914,9 @@ (SETQ G168081 (APPEND G168081 (|f02wefSolve,fa| |i| |n|))))))))) - (SPADLET |bList| + (setq |bList| (PROG (G168089) - (SPADLET G168089 NIL) + (setq G168089 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ldb|) G168089) @@ -5924,11 +5924,11 @@ (SETQ G168089 (APPEND G168089 (|f02wefSolve,fb| |i| |ncolb|))))))))) - (SPADLET |prefix| + (setq |prefix| '|\\blankline \\menuitemstyle{}\\tab{2} Enter values of {\\it B}: |) - (SPADLET |bList| + (setq |bList| (CONS (CONS '|text| |prefix|) |bList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -5936,7 +5936,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| |bList|))) - (SPADLET |page| + (setq |page| (|htInitPage| "F02WEF - SVD of real matrix" NIL)) @@ -6015,10 +6015,10 @@ (PROG (|n| |m| |ncolb| |page|) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |m| '5) - (SPADLET |ncolb| '1) - (SPADLET |page| + (setq |n| '3) + (setq |m| '5) + (setq |ncolb| '1) + (setq |page| (|htInitPage| "F02WEF - SVD of real matrix" NIL)) (|htMakePage| @@ -6115,39 +6115,39 @@ |rowList| |bstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |lda| (|htpProperty| |htPage| '|lda|)) - (SPADLET |ldb| (|htpProperty| |htPage| '|ldb|)) - (SPADLET |ncolb| (|htpProperty| |htPage| '|ncolb|)) - (SPADLET |wantq| (|htpProperty| |htPage| '|wantq|)) - (SPADLET |ldq| (|htpProperty| |htPage| '|ldq|)) - (SPADLET |ldpt| (|htpProperty| |htPage| '|ldpt|)) - (SPADLET |wantp| (|htpProperty| |htPage| '|wantp|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |lda| (|htpProperty| |htPage| '|lda|)) + (setq |ldb| (|htpProperty| |htPage| '|ldb|)) + (setq |ncolb| (|htpProperty| |htPage| '|ncolb|)) + (setq |wantq| (|htpProperty| |htPage| '|wantq|)) + (setq |ldq| (|htpProperty| |htPage| '|ldq|)) + (setq |ldpt| (|htpProperty| |htPage| '|ldpt|)) + (setq |wantp| (|htpProperty| |htPage| '|wantp|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G168159) - (SPADLET G168159 NIL) + (setq G168159 NIL) (RETURN (DO ((G168164 |matform| (CDR G168164)) @@ -6167,20 +6167,20 @@ ((QSGREATERP |j| |ncolb|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bform| + (setq |y| (CDR |y|)))))) + (setq |bform| (APPEND |bform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |bstring| + (setq |rowList| NIL))))) + (setq |bstring| (|bcwords2liststring| (PROG (G168195) - (SPADLET G168195 NIL) + (setq G168195 NIL) (RETURN (DO ((G168200 |bform| (CDR G168200)) (|x| NIL)) @@ -6193,19 +6193,19 @@ (SETQ G168195 (CONS (|bcwords2liststring| |x|) G168195))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02wef(" (STRINGIMAGE |m|) '|,| (STRINGIMAGE |n|) '|,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | (STRINGIMAGE |ncolb|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ldb|) '|, | |wantq| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ldq|) '|, | |wantp| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ldpt|) '|, | |matstring| '|, | |bstring| '| ,|)) (|linkGen| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|))))))) @@ -6420,7 +6420,7 @@ (DEFUN |f02xefSolve,ga| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -6433,23 +6433,23 @@ (DEFUN |f02xefSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G168258) - (SPADLET G168258 NIL) + (setq G168258 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G168258) (SEQ (EXIT (SETQ G168258 (APPEND G168258 (|f02xefSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| "\\newline \\tab{2} ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline \\tab{2} ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f02xefSolve,gb| (|i| |j|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -6462,17 +6462,17 @@ (DEFUN |f02xefSolve,fb| (|i| |ncolb|) (PROG (|pre| |labelList|) (RETURN - (SEQ (SPADLET |pre| '|\\newline \\tab{2} |) - (SPADLET |labelList| + (SEQ (setq |pre| '|\\newline \\tab{2} |) + (setq |labelList| (PROG (G168281) - (SPADLET G168281 NIL) + (setq G168281 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |ncolb|) G168281) (SEQ (EXIT (SETQ G168281 (APPEND G168281 (|f02xefSolve,gb| |i| |j|))))))))) - (EXIT (SPADLET |labelList| + (EXIT (setq |labelList| (CONS (CONS '|text| |pre|) |labelList|))))))) (DEFUN |f02xefSolve| (|htPage|) @@ -6482,7 +6482,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6490,7 +6490,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6498,9 +6498,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |lda| |m|) - (SPADLET |ldb| |m|) - (SPADLET |ncolb| + (setq |lda| |m|) + (setq |ldb| |m|) + (setq |ncolb| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -6509,22 +6509,22 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|ncolb|))))) - (SPADLET |operation| (|htpButtonValue| |htPage| '|wantq|)) - (SPADLET |wantq| + (setq |operation| (|htpButtonValue| |htPage| '|wantq|)) + (setq |wantq| (COND ((BOOT-EQUAL |operation| '|qtrue|) "true") ('T "false"))) - (SPADLET |ldq| |m|) - (SPADLET |ldph| |n|) - (SPADLET |elements| (|htpButtonValue| |htPage| '|wantp|)) - (SPADLET |wantp| + (setq |ldq| |m|) + (setq |ldph| |n|) + (setq |elements| (|htpButtonValue| |htPage| '|wantp|)) + (setq |wantp| (COND ((BOOT-EQUAL |elements| '|ptrue|) "true") ('T "false"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) (COND ((AND (BOOT-EQUAL |m| '5) (BOOT-EQUAL |n| '3) @@ -6532,9 +6532,9 @@ (|f02xefDefaultSolve| |htPage| |lda| |ldb| |wantq| |ldq| |ldph| |wantp| |ifail|)) ('T - (SPADLET |matList| + (setq |matList| (PROG (G168298) - (SPADLET G168298 NIL) + (setq G168298 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G168298) @@ -6542,9 +6542,9 @@ (SETQ G168298 (APPEND G168298 (|f02xefSolve,fa| |i| |n|))))))))) - (SPADLET |bList| + (setq |bList| (PROG (G168306) - (SPADLET G168306 NIL) + (setq G168306 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |ldb|) G168306) @@ -6552,11 +6552,11 @@ (SETQ G168306 (APPEND G168306 (|f02xefSolve,fb| |i| |ncolb|))))))))) - (SPADLET |prefix| + (setq |prefix| '|\\blankline \\menuitemstyle{}\\tab{2} Enter values of {\\it B}: |) - (SPADLET |bList| + (setq |bList| (CONS (CONS '|text| |prefix|) |bList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| P (|Polynomial| |$EmptyMode|)) @@ -6564,7 +6564,7 @@ (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (APPEND |matList| |bList|))) - (SPADLET |page| + (setq |page| (|htInitPage| "F02XEF - SVD of complex matrix" NIL)) @@ -6651,10 +6651,10 @@ (PROG (|n| |m| |ncolb| |page|) (RETURN (PROGN - (SPADLET |n| '3) - (SPADLET |m| '5) - (SPADLET |ncolb| '1) - (SPADLET |page| + (setq |n| '3) + (setq |m| '5) + (setq |ncolb| '1) + (setq |page| (|htInitPage| "F02XEF - SVD of complex matrix" NIL)) (|htMakePage| @@ -6755,39 +6755,39 @@ |rowList| |bstring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |lda| (|htpProperty| |htPage| '|lda|)) - (SPADLET |ldb| (|htpProperty| |htPage| '|ldb|)) - (SPADLET |ncolb| (|htpProperty| |htPage| '|ncolb|)) - (SPADLET |wantq| (|htpProperty| |htPage| '|wantq|)) - (SPADLET |ldq| (|htpProperty| |htPage| '|ldq|)) - (SPADLET |ldph| (|htpProperty| |htPage| '|ldph|)) - (SPADLET |wantp| (|htpProperty| |htPage| '|wantp|)) - (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) - (SPADLET |y| (REVERSE |y|)) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |lda| (|htpProperty| |htPage| '|lda|)) + (setq |ldb| (|htpProperty| |htPage| '|ldb|)) + (setq |ncolb| (|htpProperty| |htPage| '|ncolb|)) + (setq |wantq| (|htpProperty| |htPage| '|wantq|)) + (setq |ldq| (|htpProperty| |htPage| '|ldq|)) + (setq |ldph| (|htpProperty| |htPage| '|ldph|)) + (setq |wantp| (|htpProperty| |htPage| '|wantp|)) + (setq |ifail| (|htpProperty| |htPage| '|ifail|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) + (setq |y| (REVERSE |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |matform| + (setq |y| (CDR |y|)))))) + (setq |matform| (APPEND |matform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |matstring| + (setq |rowList| NIL))))) + (setq |matstring| (|bcwords2liststring| (PROG (G168376) - (SPADLET G168376 NIL) + (setq G168376 NIL) (RETURN (DO ((G168381 |matform| (CDR G168381)) @@ -6807,20 +6807,20 @@ ((QSGREATERP |j| |ncolb|) NIL) (SEQ (EXIT (PROGN - (SPADLET |elm| + (setq |elm| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (APPEND |rowList| (CONS |elm| NIL))) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bform| + (setq |y| (CDR |y|)))))) + (setq |bform| (APPEND |bform| (CONS |rowList| NIL))) - (SPADLET |rowList| NIL))))) - (SPADLET |bstring| + (setq |rowList| NIL))))) + (setq |bstring| (|bcwords2liststring| (PROG (G168412) - (SPADLET G168412 NIL) + (setq G168412 NIL) (RETURN (DO ((G168417 |bform| (CDR G168417)) (|x| NIL)) @@ -6833,19 +6833,19 @@ (SETQ G168412 (CONS (|bcwords2liststring| |x|) G168412))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "f02xef(" (STRINGIMAGE |m|) '|,| (STRINGIMAGE |n|) '|,|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | (STRINGIMAGE |ncolb|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ldb|) '|, | |wantq| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ldq|) '|, | |wantp| '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ldph|) '|, | |matstring| '|, | |bstring| '| ,|)) (|linkGen| (STRCONC |prefix| (STRINGIMAGE |ifail|) '|)|))))))) diff --git a/src/interp/nag-f07.lisp.pamphlet b/src/interp/nag-f07.lisp.pamphlet index 788ca30..33c2dd2 100644 --- a/src/interp/nag-f07.lisp.pamphlet +++ b/src/interp/nag-f07.lisp.pamphlet @@ -110,7 +110,7 @@ (DEFUN |f07adfSolve,fb| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -123,17 +123,17 @@ (DEFUN |f07adfSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166070) - (SPADLET G166070 NIL) + (setq G166070 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166070) (SEQ (EXIT (SETQ G166070 (APPEND G166070 (|f07adfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f07adfSolve| (|htPage|) @@ -141,7 +141,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |m| + (setq |m| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -149,7 +149,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|m|))))) - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -157,14 +157,14 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |lda| |m|) + (setq |lda| |m|) (COND ((AND (BOOT-EQUAL |n| '4) (BOOT-EQUAL |m| '4)) (|f07adfDefaultSolve| |htPage| |lda|)) ('T - (SPADLET |aList| + (setq |aList| (PROG (G166087) - (SPADLET G166087 NIL) + (setq G166087 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |m|) G166087) @@ -172,14 +172,14 @@ (SETQ G166087 (APPEND G166087 (|f07adfSolve,fa| |i| |n|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) |aList|)) - (SPADLET |page| + (setq |page| (|htInitPage| "F07ADF - {\\it LU} factorization of real {\\it m} by {\\it n} matrix" NIL)) @@ -240,9 +240,9 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |m| '4) - (SPADLET |page| + (setq |n| '4) + (setq |m| '4) + (setq |page| (|htInitPage| "F07ADF - {\\it LU} factorization of real {\\it m} by {\\it n} matrix" NIL)) @@ -298,28 +298,28 @@ |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |m| (|htpProperty| |htPage| '|m|)) - (SPADLET |lda| |m|) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |m| (|htpProperty| |htPage| '|m|)) + (setq |lda| |m|) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |m|) NIL) (SEQ (EXIT (PROGN - (SPADLET |a| + (setq |a| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |a| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |aList| (CONS |rowList| |aList|)) - (SPADLET |rowList| NIL))))) - (SPADLET |astring| + (setq |y| (CDR |y|)))))) + (setq |aList| (CONS |rowList| |aList|)) + (setq |rowList| NIL))))) + (setq |astring| (|bcwords2liststring| (PROG (G166140) - (SPADLET G166140 NIL) + (setq G166140 NIL) (RETURN (DO ((G166145 |aList| (CDR G166145)) (|x| NIL)) @@ -332,10 +332,10 @@ (SETQ G166140 (CONS (|bcwords2liststring| |x|) G166140))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC '|f07adf(| (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | |astring| '|)|)) (|linkGen| |prefix|)))))) @@ -494,7 +494,7 @@ (DEFUN |f07aefSolve,faa| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -507,23 +507,23 @@ (DEFUN |f07aefSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166182) - (SPADLET G166182 NIL) + (setq G166182 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166182) (SEQ (EXIT (SETQ G166182 (APPEND G166182 (|f07aefSolve,faa| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f07aefSolve,fp| (|i|) (PROG (|ipnam|) (RETURN - (SEQ (SPADLET |ipnam| + (SEQ (setq |ipnam| (INTERN (STRCONC "ip" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| @@ -535,7 +535,7 @@ (DEFUN |f07aefSolve,fbb| (|i| |j|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -548,17 +548,17 @@ (DEFUN |f07aefSolve,fb| (|i| |nrhs|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166211) - (SPADLET G166211 NIL) + (setq G166211 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |nrhs|) G166211) (SEQ (EXIT (SETQ G166211 (APPEND G166211 (|f07aefSolve,fbb| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f07aefSolve| (|htPage|) @@ -567,7 +567,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -575,7 +575,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |nrhs| + (setq |nrhs| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -584,10 +584,10 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nrhs|))))) - (SPADLET |lda| |n|) - (SPADLET |ldb| |n|) - (SPADLET |equa| (|htpButtonValue| |htPage| '|trans|)) - (SPADLET |trans| + (setq |lda| |n|) + (setq |ldb| |n|) + (setq |equa| (|htpButtonValue| |htPage| '|trans|)) + (setq |trans| (COND ((BOOT-EQUAL |equa| '|norm|) "N") ('T "T"))) @@ -595,9 +595,9 @@ ((AND (BOOT-EQUAL |n| '4) (BOOT-EQUAL |nrhs| '2)) (|f07aefDefaultSolve| |htPage| |trans|)) ('T - (SPADLET |aList| + (setq |aList| (PROG (G166228) - (SPADLET G166228 NIL) + (setq G166228 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G166228) @@ -605,9 +605,9 @@ (SETQ G166228 (APPEND G166228 (|f07aefSolve,fa| |i| |n|))))))))) - (SPADLET |ipList| + (setq |ipList| (PROG (G166240) - (SPADLET G166240 NIL) + (setq G166240 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) @@ -616,18 +616,18 @@ (SETQ G166240 (CONS (|f07aefSolve,fp| |i|) G166240)))))))) - (SPADLET |middle| + (setq |middle| "\\blankline \\menuitemstyle{}\\tab{2} Enter the pivot ") - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "indices {\\it IPIV} from F07ADF: ")) - (SPADLET |middle| + (setq |middle| (STRCONC |middle| "\\newline ")) - (SPADLET |ipList| + (setq |ipList| (CONS (CONS '|text| |middle|) |ipList|)) - (SPADLET |bList| + (setq |bList| (PROG (G166248) - (SPADLET G166248 NIL) + (setq G166248 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166248) @@ -635,11 +635,11 @@ (SETQ G166248 (APPEND G166248 (|f07aefSolve,fb| |i| |nrhs|))))))))) - (SPADLET |prefix| + (setq |prefix| '|\\blankline \\menuitemstyle{}\\tab{2} Enter the matrix {\\it B}: |) - (SPADLET |bList| + (setq |bList| (CONS (CONS '|text| |prefix|) |bList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) @@ -647,7 +647,7 @@ (|isDomain| I (|Integer|))) (APPEND |aList| (APPEND |ipList| |bList|)))) - (SPADLET |page| + (setq |page| (|htInitPage| "F07AEF - Solution of a real system of linear equations with multiple right-hand sides after factorization by F07ADF" NIL)) @@ -739,12 +739,12 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |nrhs| '2) - (SPADLET |lda| '4) - (SPADLET |ldb| '4) - (SPADLET |length| '4) - (SPADLET |page| + (setq |n| '4) + (setq |nrhs| '2) + (setq |lda| '4) + (setq |ldb| '4) + (setq |length| '4) + (setq |page| (|htInitPage| "F07AEF - Solution of a real system of linear equations with multiple right-hand sides after factorization by F07ADF" NIL)) @@ -841,31 +841,31 @@ |rowList| |astring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |nrhs| (|htpProperty| |htPage| '|nrhs|)) - (SPADLET |lda| |n|) - (SPADLET |ldb| |n|) - (SPADLET |length| (|htpProperty| |htPage| '|length|)) - (SPADLET |trans| (|htpProperty| |htPage| '|trans|)) - (SPADLET |aplist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |aplist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |nrhs| (|htpProperty| |htPage| '|nrhs|)) + (setq |lda| |n|) + (setq |ldb| |n|) + (setq |length| (|htpProperty| |htPage| '|length|)) + (setq |trans| (|htpProperty| |htPage| '|trans|)) + (setq |aplist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |aplist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |nrhs|) NIL) (SEQ (EXIT (PROGN - (SPADLET |b| + (setq |b| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |b| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bList| (CONS |rowList| |bList|)) - (SPADLET |rowList| NIL))))) - (SPADLET |bstring| + (setq |y| (CDR |y|)))))) + (setq |bList| (CONS |rowList| |bList|)) + (setq |rowList| NIL))))) + (setq |bstring| (|bcwords2liststring| (PROG (G166320) - (SPADLET G166320 NIL) + (setq G166320 NIL) (RETURN (DO ((G166325 |bList| (CDR G166325)) (|x| NIL)) @@ -880,28 +880,28 @@ G166320))))))))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |length|) NIL) (SEQ (EXIT (PROGN - (SPADLET |ip| + (setq |ip| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |ipList| (CONS |ip| |ipList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |ipstring| (|bcwords2liststring| |ipList|)) + (setq |ipList| (CONS |ip| |ipList|)) + (setq |y| (CDR |y|)))))) + (setq |ipstring| (|bcwords2liststring| |ipList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |a| + (setq |a| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |a| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |aList| (CONS |rowList| |aList|)) - (SPADLET |rowList| NIL))))) - (SPADLET |astring| + (setq |y| (CDR |y|)))))) + (setq |aList| (CONS |rowList| |aList|)) + (setq |rowList| NIL))))) + (setq |astring| (|bcwords2liststring| (PROG (G166365) - (SPADLET G166365 NIL) + (setq G166365 NIL) (RETURN (DO ((G166370 |aList| (CDR G166370)) (|x| NIL)) @@ -914,16 +914,16 @@ (SETQ G166365 (CONS (|bcwords2liststring| |x|) G166365))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC '|f07aef("| |trans| '|", | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nrhs|) '|, | |astring| '|::Matrix DoubleFloat, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, [| |ipstring| '|]::Matrix INT, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ldb|) '|, | |bstring| '|::Matrix DoubleFloat)|)) (|linkGen| |prefix|)))))) @@ -1036,7 +1036,7 @@ (DEFUN |f07fdfSolve,fb| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1049,17 +1049,17 @@ (DEFUN |f07fdfSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166422) - (SPADLET G166422 NIL) + (setq G166422 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166422) (SEQ (EXIT (SETQ G166422 (APPEND G166422 (|f07fdfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f07fdfSolve| (|htPage|) @@ -1067,7 +1067,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1075,9 +1075,9 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |lda| |n|) - (SPADLET |upl| (|htpButtonValue| |htPage| '|uplo|)) - (SPADLET |uplo| + (setq |lda| |n|) + (setq |upl| (|htpButtonValue| |htPage| '|uplo|)) + (setq |uplo| (COND ((BOOT-EQUAL |upl| '|lower|) "L") ('T "U"))) @@ -1085,9 +1085,9 @@ ((BOOT-EQUAL |n| '4) (|f07fdfDefaultSolve| |htPage| |uplo|)) ('T - (SPADLET |aList| + (setq |aList| (PROG (G166439) - (SPADLET G166439 NIL) + (setq G166439 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G166439) @@ -1095,14 +1095,14 @@ (SETQ G166439 (APPEND G166439 (|f07fdfSolve,fa| |i| |n|))))))))) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) |aList|)) - (SPADLET |page| + (setq |page| (|htInitPage| "F07FDF - Cholesky factorization of a real symmmetric positive-definite matrix {\\it A}" NIL)) @@ -1162,9 +1162,9 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |lda| '4) - (SPADLET |page| + (setq |n| '4) + (setq |lda| '4) + (setq |page| (|htInitPage| "F07FDF - Cholesky factorization of a real symmmetric positive-definite matrix {\\it A}" NIL)) @@ -1221,28 +1221,28 @@ |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |lda| |n|) - (SPADLET |uplo| (|htpProperty| |htPage| '|uplo|)) - (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |alist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |lda| |n|) + (setq |uplo| (|htpProperty| |htPage| '|uplo|)) + (setq |alist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |alist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |a| + (setq |a| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |a| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |aList| (CONS |rowList| |aList|)) - (SPADLET |rowList| NIL))))) - (SPADLET |astring| + (setq |y| (CDR |y|)))))) + (setq |aList| (CONS |rowList| |aList|)) + (setq |rowList| NIL))))) + (setq |astring| (|bcwords2liststring| (PROG (G166493) - (SPADLET G166493 NIL) + (setq G166493 NIL) (RETURN (DO ((G166498 |aList| (CDR G166498)) (|x| NIL)) @@ -1255,10 +1255,10 @@ (SETQ G166493 (CONS (|bcwords2liststring| |x|) G166493))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC '|f07fdf("| |uplo| '|", | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | |astring| '|)|)) (|linkGen| |prefix|)))))) @@ -1407,7 +1407,7 @@ (DEFUN |f07fefSolve,faa| (|i| |j|) (PROG (|anam|) (RETURN - (SEQ (SPADLET |anam| + (SEQ (setq |anam| (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1420,23 +1420,23 @@ (DEFUN |f07fefSolve,fa| (|i| |n|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166535) - (SPADLET G166535 NIL) + (setq G166535 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |n|) G166535) (SEQ (EXIT (SETQ G166535 (APPEND G166535 (|f07fefSolve,faa| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f07fefSolve,fbb| (|i| |j|) (PROG (|bnam|) (RETURN - (SEQ (SPADLET |bnam| + (SEQ (setq |bnam| (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| @@ -1449,17 +1449,17 @@ (DEFUN |f07fefSolve,fb| (|i| |nrhs|) (PROG (|prefix| |labelList|) (RETURN - (SEQ (SPADLET |labelList| + (SEQ (setq |labelList| (PROG (G166558) - (SPADLET G166558 NIL) + (setq G166558 NIL) (RETURN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |nrhs|) G166558) (SEQ (EXIT (SETQ G166558 (APPEND G166558 (|f07fefSolve,fbb| |i| |j|))))))))) - (SPADLET |prefix| "\\newline ") - (EXIT (SPADLET |labelList| + (setq |prefix| "\\newline ") + (EXIT (setq |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |f07fefSolve| (|htPage|) @@ -1468,7 +1468,7 @@ (declare (special |$EmptyMode| |$bcParseOnly|)) (RETURN (SEQ (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1476,7 +1476,7 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |nrhs| + (setq |nrhs| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1485,10 +1485,10 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|nrhs|))))) - (SPADLET |lda| |n|) - (SPADLET |ldb| |n|) - (SPADLET |upl| (|htpButtonValue| |htPage| '|uplo|)) - (SPADLET |uplo| + (setq |lda| |n|) + (setq |ldb| |n|) + (setq |upl| (|htpButtonValue| |htPage| '|uplo|)) + (setq |uplo| (COND ((BOOT-EQUAL |upl| '|lower|) "L") ('T "U"))) @@ -1496,9 +1496,9 @@ ((AND (BOOT-EQUAL |n| '4) (BOOT-EQUAL |nrhs| '2)) (|f07fefDefaultSolve| |htPage| |uplo|)) ('T - (SPADLET |aList| + (setq |aList| (PROG (G166575) - (SPADLET G166575 NIL) + (setq G166575 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lda|) G166575) @@ -1506,9 +1506,9 @@ (SETQ G166575 (APPEND G166575 (|f07fefSolve,fa| |i| |n|))))))))) - (SPADLET |bList| + (setq |bList| (PROG (G166583) - (SPADLET G166583 NIL) + (setq G166583 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) G166583) @@ -1516,18 +1516,18 @@ (SETQ G166583 (APPEND G166583 (|f07fefSolve,fb| |i| |nrhs|))))))))) - (SPADLET |prefix| + (setq |prefix| '|\\blankline \\menuitemstyle{}\\tab{2} Enter the matrix {\\it B}: |) - (SPADLET |bList| + (setq |bList| (CONS (CONS '|text| |prefix|) |bList|)) - (SPADLET |equationPart| + (setq |equationPart| (CONS '(|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) (APPEND |aList| |bList|))) - (SPADLET |page| + (setq |page| (|htInitPage| "F07FEF - Solution of a real symmetric positive-definite system of linear equations with multiple right-hand sides after factorization by F07FDF" NIL)) @@ -1608,11 +1608,11 @@ (declare (special |$EmptyMode|)) (RETURN (PROGN - (SPADLET |n| '4) - (SPADLET |nrhs| '2) - (SPADLET |lda| '4) - (SPADLET |ldb| '4) - (SPADLET |page| + (setq |n| '4) + (setq |nrhs| '2) + (setq |lda| '4) + (setq |ldb| '4) + (setq |page| (|htInitPage| "F07FEF - Solution of a real symmetric positive-definite system of linear equations with multiple right-hand sides after factorization by F07FDF" NIL)) @@ -1694,30 +1694,30 @@ |a| |y| |aList| |rowList| |astring| |prefix|) (RETURN (SEQ (PROGN - (SPADLET |n| (|htpProperty| |htPage| '|n|)) - (SPADLET |nrhs| (|htpProperty| |htPage| '|nrhs|)) - (SPADLET |lda| |n|) - (SPADLET |ldb| |n|) - (SPADLET |uplo| (|htpProperty| |htPage| '|uplo|)) - (SPADLET |aplist| (|htpInputAreaAlist| |htPage|)) - (SPADLET |y| |aplist|) + (setq |n| (|htpProperty| |htPage| '|n|)) + (setq |nrhs| (|htpProperty| |htPage| '|nrhs|)) + (setq |lda| |n|) + (setq |ldb| |n|) + (setq |uplo| (|htpProperty| |htPage| '|uplo|)) + (setq |aplist| (|htpInputAreaAlist| |htPage|)) + (setq |y| |aplist|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN (DO ((|j| 1 (QSADD1 |j|))) ((QSGREATERP |j| |nrhs|) NIL) (SEQ (EXIT (PROGN - (SPADLET |b| + (setq |b| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |b| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |bList| (CONS |rowList| |bList|)) - (SPADLET |rowList| NIL))))) - (SPADLET |bstring| + (setq |y| (CDR |y|)))))) + (setq |bList| (CONS |rowList| |bList|)) + (setq |rowList| NIL))))) + (setq |bstring| (|bcwords2liststring| (PROG (G166647) - (SPADLET G166647 NIL) + (setq G166647 NIL) (RETURN (DO ((G166652 |bList| (CDR G166652)) (|x| NIL)) @@ -1736,17 +1736,17 @@ ((QSGREATERP |j| |n|) NIL) (SEQ (EXIT (PROGN - (SPADLET |a| + (setq |a| (STRCONC (ELT (CAR |y|) 1) '| |)) - (SPADLET |rowList| + (setq |rowList| (CONS |a| |rowList|)) - (SPADLET |y| (CDR |y|)))))) - (SPADLET |aList| (CONS |rowList| |aList|)) - (SPADLET |rowList| NIL))))) - (SPADLET |astring| + (setq |y| (CDR |y|)))))) + (setq |aList| (CONS |rowList| |aList|)) + (setq |rowList| NIL))))) + (setq |astring| (|bcwords2liststring| (PROG (G166683) - (SPADLET G166683 NIL) + (setq G166683 NIL) (RETURN (DO ((G166688 |aList| (CDR G166688)) (|x| NIL)) @@ -1759,15 +1759,15 @@ (SETQ G166683 (CONS (|bcwords2liststring| |x|) G166683))))))))) - (SPADLET |prefix| + (setq |prefix| (STRCONC '|f07fef("| |uplo| '|", | (STRINGIMAGE |n|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |nrhs|) '|, | |astring| '|::Matrix DoubleFloat, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, |)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| (STRINGIMAGE |ldb|) '|, | |bstring| '|::Matrix DoubleFloat)|)) (|linkGen| |prefix|)))))) diff --git a/src/interp/nag-s.lisp.pamphlet b/src/interp/nag-s.lisp.pamphlet index 2c61a03..82fe744 100644 --- a/src/interp/nag-s.lisp.pamphlet +++ b/src/interp/nag-s.lisp.pamphlet @@ -47,7 +47,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S01EAF - Complex exponential {\\em exp(z)} | NIL)) @@ -92,10 +92,10 @@ (PROG (|x| |y| |error| |ifail|) (RETURN (PROGN - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) @@ -136,7 +136,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S13AAF - Exponential integral \\htbitmap{s13aaf2}| NIL)) @@ -201,7 +201,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S13ACF - Cosine integral {\\em Ci(x)} | NIL)) (|htMakePage| @@ -264,7 +264,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S13ADF - Sine integral Si(x) | NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -326,7 +326,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S14AAF - Gamma Function \\Gamma(x) | NIL)) (|htMakePage| @@ -388,7 +388,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S14ABF - Log Gamma Function \\Gamma(x) | NIL)) (|htMakePage| @@ -514,11 +514,11 @@ (PROG (|a| |x| |tol| |error| |ifail|) (RETURN (PROGN - (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |tol| (|htpLabelInputString| |htPage| '|tol|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |a| (|htpLabelInputString| |htPage| '|a|)) + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |tol| (|htpLabelInputString| |htPage| '|tol|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) @@ -559,7 +559,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S15ADF - Complement of error function erfc x| NIL)) @@ -624,7 +624,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S15AEF - Error Function erf x| NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -686,7 +686,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S17ACF - Bessel Function \\space{1} \\htbitmap{s17acf}| NIL)) @@ -748,7 +748,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S17ADF - Bessel Function \\space{1} \\htbitmap{s17adf}| NIL)) @@ -811,7 +811,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S17AEF - Bessel Function \\space{1} \\htbitmap{s17aef}| NIL)) @@ -873,7 +873,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S17AFF - Bessel Function \\space{1} \\htbitmap{s17aff}| NIL)) @@ -935,7 +935,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S17AGF - Airy Function {\\em Ai(x)}| NIL)) (|htMakePage| @@ -995,7 +995,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S17AHF - Airy Function {\\em Bi(x)}| NIL)) (|htMakePage| @@ -1056,7 +1056,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S17AJF - Airy Function {\\em Ai'(x)}| NIL)) (|htMakePage| @@ -1118,7 +1118,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S17AKF - Airy Function {\\em Bi'(x)}| NIL)) (|htMakePage| @@ -1284,7 +1284,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1292,23 +1292,23 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |fnu| (|htpLabelInputString| |htPage| '|fnu|)) - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) - (SPADLET |scale| + (setq |fnu| (|htpLabelInputString| |htPage| '|fnu|)) + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |uors| (|htpButtonValue| |htPage| '|scale|)) + (setq |scale| (COND ((BOOT-EQUAL |uors| '|u|) "u") ('T "s"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "s17dcf(" |fnu| '|,complex(| |x| '|,| |y| '|),| (STRINGIMAGE |n|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|,"| |scale| '|", | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|))))) @@ -1450,7 +1450,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1458,23 +1458,23 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |fnu| (|htpLabelInputString| |htPage| '|fnu|)) - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) - (SPADLET |scale| + (setq |fnu| (|htpLabelInputString| |htPage| '|fnu|)) + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |uors| (|htpButtonValue| |htPage| '|scale|)) + (setq |scale| (COND ((BOOT-EQUAL |uors| '|u|) "u") ('T "s"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "s17def(" |fnu| '|,complex(| |x| '|,| |y| '|),| (STRINGIMAGE |n|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|,"| |scale| '|", | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|))))) @@ -1601,27 +1601,27 @@ |prefix|) (RETURN (PROGN - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |ford| (|htpButtonValue| |htPage| '|deriv|)) - (SPADLET |deriv| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |ford| (|htpButtonValue| |htPage| '|deriv|)) + (setq |deriv| (COND ((BOOT-EQUAL |ford| '|f|) "f") ('T "d"))) - (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) - (SPADLET |scale| + (setq |uors| (|htpButtonValue| |htPage| '|scale|)) + (setq |scale| (COND ((BOOT-EQUAL |uors| '|u|) "u") ('T "s"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "s17dgf(\"" |deriv| '|",complex(| |x| '|,| |y| '|),"|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |scale| '|", | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|))))) @@ -1748,27 +1748,27 @@ |prefix|) (RETURN (PROGN - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |ford| (|htpButtonValue| |htPage| '|deriv|)) - (SPADLET |deriv| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |ford| (|htpButtonValue| |htPage| '|deriv|)) + (setq |deriv| (COND ((BOOT-EQUAL |ford| '|f|) "f") ('T "d"))) - (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) - (SPADLET |scale| + (setq |uors| (|htpButtonValue| |htPage| '|scale|)) + (setq |scale| (COND ((BOOT-EQUAL |uors| '|u|) "u") ('T "s"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "s17dhf(\"" |deriv| '|",complex(| |x| '|,| |y| '|),"|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |scale| '|", | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|))))) @@ -1931,7 +1931,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -1939,28 +1939,28 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |fnu| (|htpLabelInputString| |htPage| '|fnu|)) - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |hankel| (|htpButtonValue| |htPage| '|hankel|)) - (SPADLET |m| (COND ((BOOT-EQUAL |hankel| '|mone|) '1) ('T '2))) - (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) - (SPADLET |scale| + (setq |fnu| (|htpLabelInputString| |htPage| '|fnu|)) + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |hankel| (|htpButtonValue| |htPage| '|hankel|)) + (setq |m| (COND ((BOOT-EQUAL |hankel| '|mone|) '1) ('T '2))) + (setq |uors| (|htpButtonValue| |htPage| '|scale|)) + (setq |scale| (COND ((BOOT-EQUAL |uors| '|u|) "u") ('T "s"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "s17dlf(" (STRINGIMAGE |m|) '|, | |fnu| '|,complex(|)) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| |x| '|,| |y| '|),| (STRINGIMAGE |n|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|,"| |scale| '|", | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|))))) @@ -1998,7 +1998,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S18ACF - Modified Bessel Function \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s18acf1.bitmap}| NIL)) @@ -2063,7 +2063,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S18ADF - Modified Bessel Function \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s18adf1.bitmap}| NIL)) @@ -2128,7 +2128,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S18AeF - Modified Bessel Function \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s18aef1.bitmap}| NIL)) @@ -2193,7 +2193,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S18AFF - Modified Bessel Function \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s18aff1.bitmap}| NIL)) @@ -2362,7 +2362,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2370,23 +2370,23 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |fnu| (|htpLabelInputString| |htPage| '|fnu|)) - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) - (SPADLET |scale| + (setq |fnu| (|htpLabelInputString| |htPage| '|fnu|)) + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |uors| (|htpButtonValue| |htPage| '|scale|)) + (setq |scale| (COND ((BOOT-EQUAL |uors| '|u|) "u") ('T "s"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "s18dcf(" |fnu| '|,complex(| |x| '|,| |y| '|),| (STRINGIMAGE |n|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|,"| |scale| '|", | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|))))) @@ -2528,7 +2528,7 @@ (declare (special |$bcParseOnly|)) (RETURN (PROGN - (SPADLET |n| + (setq |n| (COND (|$bcParseOnly| (PARSE-INTEGER @@ -2536,23 +2536,23 @@ ('T (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|n|))))) - (SPADLET |fnu| (|htpLabelInputString| |htPage| '|fnu|)) - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) - (SPADLET |scale| + (setq |fnu| (|htpLabelInputString| |htPage| '|fnu|)) + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |uors| (|htpButtonValue| |htPage| '|scale|)) + (setq |scale| (COND ((BOOT-EQUAL |uors| '|u|) "u") ('T "s"))) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) - (SPADLET |prefix| + (setq |prefix| (STRCONC "s18def(" |fnu| '|,complex(| |x| '|,| |y| '|),| (STRINGIMAGE |n|))) - (SPADLET |prefix| + (setq |prefix| (STRCONC |prefix| '|,"| |scale| '|", | (STRINGIMAGE |ifail|) '|)|)) (|linkGen| |prefix|))))) @@ -2589,7 +2589,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S19AAF - Kelvin Function {\\em ber x}| NIL)) (|htMakePage| @@ -2649,7 +2649,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S19ABF - Kelvin Function {\\em bei x}| NIL)) (|htMakePage| @@ -2709,7 +2709,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S19ACF - Kelvin Function {\\em ker x}| NIL)) (|htMakePage| @@ -2769,7 +2769,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S19AAF - Kelvin Function {\\em kei x}| NIL)) (|htMakePage| @@ -2830,7 +2830,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S20ACF - Fresnel Integral {\\em S(x)}| NIL)) (|htMakePage| @@ -2890,7 +2890,7 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| + (setq |page| (|htInitPage| '|S20ADF - Fresnel Integral {\\em C(x)}| NIL)) (|htMakePage| @@ -3001,10 +3001,10 @@ (PROG (|x| |y| |error| |ifail|) (RETURN (PROGN - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) @@ -3108,11 +3108,11 @@ (PROG (|x| |y| |z| |error| |ifail|) (RETURN (PROGN - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |z| (|htpLabelInputString| |htPage| '|z|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |z| (|htpLabelInputString| |htPage| '|z|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) @@ -3215,11 +3215,11 @@ (PROG (|x| |y| |z| |error| |ifail|) (RETURN (PROGN - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |z| (|htpLabelInputString| |htPage| '|z|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |z| (|htpLabelInputString| |htPage| '|z|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) @@ -3334,12 +3334,12 @@ (PROG (|x| |y| |z| |r| |error| |ifail|) (RETURN (PROGN - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) - (SPADLET |z| (|htpLabelInputString| |htPage| '|z|)) - (SPADLET |r| (|htpLabelInputString| |htPage| '|r|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |y| (|htpLabelInputString| |htPage| '|y|)) + (setq |z| (|htpLabelInputString| |htPage| '|z|)) + (setq |r| (|htpLabelInputString| |htPage| '|r|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) @@ -3360,10 +3360,10 @@ (PROG (|routine| |x| |error| |ifail|) (RETURN (PROGN - (SPADLET |routine| (|htpProperty| |htPage| '|routine|)) - (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) - (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) - (SPADLET |ifail| + (setq |routine| (|htpProperty| |htPage| '|routine|)) + (setq |x| (|htpLabelInputString| |htPage| '|x|)) + (setq |error| (|htpButtonValue| |htPage| '|ifail|)) + (setq |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) diff --git a/src/interp/newfort.lisp.pamphlet b/src/interp/newfort.lisp.pamphlet index 53f681b..f4e3393 100644 --- a/src/interp/newfort.lisp.pamphlet +++ b/src/interp/newfort.lisp.pamphlet @@ -25,7 +25,7 @@ (DECLARE (SPECIAL |$fortError|)) (RETURN (PROGN - (SPADLET |$fortError| NIL) + (setq |$fortError| NIL) (|checkLines| (|fortran2Lines| (|statement2Fortran| @@ -41,8 +41,8 @@ (DECLARE (SPECIAL |$fortError| |$fortInts2Floats|)) (RETURN (PROGN - (SPADLET |$fortError| NIL) - (SPADLET |$fortInts2Floats| NIL) + (setq |$fortError| NIL) + (setq |$fortInts2Floats| NIL) (|checkLines| (|fortran2Lines| (|statement2Fortran| @@ -65,9 +65,9 @@ |$fortInts2Floats|)) (RETURN (PROGN - (SPADLET |$exp2FortTempVarIndex| 0) - (SPADLET |$fortName| 'DUMMY) - (SPADLET |$fortInts2Floats| NIL) + (setq |$exp2FortTempVarIndex| 0) + (setq |$fortName| 'DUMMY) + (setq |$fortInts2Floats| NIL) (|fortranCleanUp| (|exp2Fort1| (|segment| @@ -89,9 +89,9 @@ |$fortInts2Floats|)) (RETURN (PROGN - (SPADLET |$exp2FortTempVarIndex| 0) - (SPADLET |$fortName| (|newFortranTempVar|)) - (SPADLET |$fortInts2Floats| NIL) + (setq |$exp2FortTempVarIndex| 0) + (setq |$fortName| (|newFortranTempVar|)) + (setq |$fortInts2Floats| NIL) (|fortranCleanUp| (|exp2Fort1| (|segment| @@ -111,8 +111,8 @@ (DECLARE (SPECIAL |$exp2FortTempVarIndex| |$fortName|)) (RETURN (PROGN - (SPADLET |$exp2FortTempVarIndex| 0) - (SPADLET |$fortName| |name|) + (setq |$exp2FortTempVarIndex| 0) + (setq |$fortName| |name|) (|fortranCleanUp| (|exp2Fort1| (|segment| @@ -129,9 +129,9 @@ (declare (special |$defaultFortranType| |$exp2FortTempVarIndex|)) (RETURN (PROGN - (SPADLET |$exp2FortTempVarIndex| + (setq |$exp2FortTempVarIndex| (+ 1 |$exp2FortTempVarIndex|)) - (SPADLET |newVar| + (setq |newVar| (INTERN (STRCONC "T" (STRINGIMAGE |$exp2FortTempVarIndex|)))) (|updateSymbolTable| |newVar| |$defaultFortranType|) @@ -151,8 +151,8 @@ (PROG (|m| |oldTok|) (RETURN (SEQ (PROGN - (SPADLET |oldTok| NIL) - (SPADLET |m| NIL) + (setq |oldTok| NIL) + (setq |m| NIL) (DO ((G166123 |l| (CDR G166123)) (|e| NIL)) ((OR (ATOM G166123) (PROGN (SETQ |e| (CAR G166123)) NIL)) @@ -163,8 +163,8 @@ (BOOT-EQUAL |oldTok| "-") (BOOT-EQUAL |e| "+"))) - (SPADLET |m| (CONS |e| |m|)))) - (SPADLET |oldTok| |e|))))) + (setq |m| (CONS |e| |m|)))) + (setq |oldTok| |e|))))) |m|))))) ;exp2Fort1 l == @@ -176,12 +176,12 @@ (PROG (|s|) (RETURN (SEQ (PROGN - (SPADLET |s| NIL) + (setq |s| NIL) (DO ((G166140 |l| (CDR G166140)) (|e| NIL)) ((OR (ATOM G166140) (PROGN (SETQ |e| (CAR G166140)) NIL)) NIL) - (SEQ (EXIT (SPADLET |s| + (SEQ (EXIT (setq |s| (APPEND (|exp2Fort2| |e| 0 NIL) |s|))))) |s|))))) @@ -247,27 +247,27 @@ ((ATOM |e|) (CONS (|object2String| |e|) NIL)) ((OR (AND (CONSP |e|) (EQ (QCAR |e|) '=) (PROGN - (SPADLET |ISTMP#1| (QCDR |e|)) + (setq |ISTMP#1| (QCDR |e|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |lhs| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |lhs| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |rhs| (QCAR |ISTMP#2|)) + (setq |rhs| (QCAR |ISTMP#2|)) 'T)))))) (AND (CONSP |e|) (EQUAL (QCAR |e|) '"=") (PROGN - (SPADLET |ISTMP#1| (QCDR |e|)) + (setq |ISTMP#1| (QCDR |e|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |lhs| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |lhs| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |rhs| (QCAR |ISTMP#2|)) + (setq |rhs| (QCAR |ISTMP#2|)) 'T))))))) (CONS "%l" (APPEND (|exp2Fort2| |rhs| |prec| "=") @@ -275,13 +275,13 @@ (|exp2Fort2| |lhs| |prec| "="))))) ('T - (SPADLET |unaryOps| + (setq |unaryOps| (CONS "-" (CONS "^" (CONS "~" NIL)))) - (SPADLET |unaryPrecs| + (setq |unaryPrecs| (CONS 700 (CONS 260 (CONS 50 NIL)))) - (SPADLET |binaryOps| + (setq |binaryOps| (CONS "|" (CONS "**" (CONS "/" @@ -294,7 +294,7 @@ (CONS ".AND." (CONS ".OR." NIL)))))))))))) - (SPADLET |binaryPrecs| + (setq |binaryPrecs| (CONS 0 (CONS 900 (CONS 800 @@ -305,7 +305,7 @@ (CONS 400 (CONS 800 (CONS 70 (CONS 90 NIL)))))))))))) - (SPADLET |naryOps| + (setq |naryOps| (CONS "-" (CONS "+" (CONS "*" @@ -313,24 +313,24 @@ (CONS " " (CONS "ROW" (CONS "" NIL)))))))) - (SPADLET |naryPrecs| + (setq |naryPrecs| (CONS 700 (CONS 700 (CONS 800 (CONS 110 (CONS 0 (CONS 0 (CONS 0 NIL)))))))) - (SPADLET |nonUnaryOps| (APPEND |binaryOps| |naryOps|)) - (SPADLET |op| (CAR |e|)) (SPADLET |args| (CDR |e|)) - (SPADLET |op| (|object2String| |op|)) - (SPADLET |nargs| (|#| |args|)) + (setq |nonUnaryOps| (APPEND |binaryOps| |naryOps|)) + (setq |op| (CAR |e|)) (setq |args| (CDR |e|)) + (setq |op| (|object2String| |op|)) + (setq |nargs| (|#| |args|)) (COND ((EQL |nargs| 0) (|exp2FortFn| |op| |args| 0)) ((EQL |nargs| 1) (COND - ((> (SPADLET |p| (|position| |op| |unaryOps|)) + ((> (setq |p| (|position| |op| |unaryOps|)) (SPADDIFFERENCE 1)) - (SPADLET |nprec| (ELT |unaryPrecs| |p|)) - (SPADLET |s| + (setq |nprec| (ELT |unaryPrecs| |p|)) + (setq |s| (APPEND (|exp2Fort2| (CAR |args|) |nprec| |op|) (CONS |op| NIL))) @@ -358,21 +358,21 @@ |op|) (CONS "(" NIL)))))) ((|member| |op| |nonUnaryOps|) - (COND ((> |nargs| 0) (SPADLET |arg1| (CAR |args|)))) + (COND ((> |nargs| 0) (setq |arg1| (CAR |args|)))) (COND ((AND (EQL |nargs| 1) (|member| |op| '("+" "*"))) (|exp2Fort2| |arg1| |prec| |op|)) ('T (COND ((> |nargs| 1) - (SPADLET |arg2| (CAR (CDR |args|))))) - (SPADLET |p| (|position| |op| |binaryOps|)) + (setq |arg2| (CAR (CDR |args|))))) + (setq |p| (|position| |op| |binaryOps|)) (COND ((BOOT-EQUAL |p| (SPADDIFFERENCE 1)) - (SPADLET |p| (|position| |op| |naryOps|)) - (SPADLET |nprec| (ELT |naryPrecs| |p|))) - ('T (SPADLET |nprec| (ELT |binaryPrecs| |p|)))) - (SPADLET |s| NIL) + (setq |p| (|position| |op| |naryOps|)) + (setq |nprec| (ELT |naryPrecs| |p|))) + ('T (setq |nprec| (ELT |binaryPrecs| |p|)))) + (setq |s| NIL) (DO ((G166210 |args| (CDR G166210)) (|arg| NIL)) ((OR (ATOM G166210) @@ -383,31 +383,31 @@ (BOOT-EQUAL |op| "+") (CONSP |arg|) (PROGN - (SPADLET |m| (QCAR |arg|)) - (SPADLET |ISTMP#1| (QCDR |arg|)) + (setq |m| (QCAR |arg|)) + (setq |ISTMP#1| (QCDR |arg|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#1|)) 'T))) (|member| |m| '(- "="))) (COND ((NULL |s|) - (SPADLET |s| (CONS '|junk| NIL)))) - (SPADLET |s| + (setq |s| (CONS '|junk| NIL)))) + (setq |s| (CONS |op| (APPEND (|exp2Fort2| |a| |nprec| |op|) (CONS "-" (CDR |s|)))))) ('T - (SPADLET |s| + (setq |s| (CONS |op| (APPEND (|exp2Fort2| |arg| |nprec| |op|) |s|)))))))) - (SPADLET |s| (CDR |s|)) + (setq |s| (CDR |s|)) (COND ((AND (BOOT-EQUAL |op| |oldOp|) (|member| |op| @@ -432,16 +432,16 @@ (PROG (|s|) (RETURN (SEQ (PROGN - (SPADLET |s| (CONS "(" (CONS |op| NIL))) + (setq |s| (CONS "(" (CONS |op| NIL))) (DO () ((NULL |args|) NIL) (SEQ (EXIT (PROGN - (SPADLET |s| + (setq |s| (CONS "," (APPEND (|exp2Fort2| (CAR |args|) 0 |op|) |s|))) - (SPADLET |args| (CDR |args|)))))) + (setq |args| (CDR |args|)))))) (COND ((> |nargs| 0) (CONS ")" (CDR |s|))) ('T (CONS ")" |s|)))))))) @@ -469,13 +469,13 @@ (DECLARE (SPECIAL |$exprStack| |$fortranOptimizationLevel|)) (RETURN (SEQ (PROGN - (SPADLET |$exprStack| NIL) + (setq |$exprStack| NIL) (COND ((ATOM |e|) (CONS |e| NIL)) ((EQL |$fortranOptimizationLevel| 0) - (SPADLET |e1| (|exp2FortOptimizeArray| |e|)) + (setq |e1| (|exp2FortOptimizeArray| |e|)) (NREVERSE (CONS |e1| |$exprStack|))) - ('T (SPADLET |e| (|minimalise| |e|)) + ('T (setq |e| (|minimalise| |e|)) (DO ((G166279 (|exp2FortOptimizeCS| |e|) (CDR G166279)) (|e1| NIL)) @@ -483,9 +483,9 @@ (PROGN (SETQ |e1| (CAR G166279)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |e2| + (setq |e2| (|exp2FortOptimizeArray| |e1|)) - (SPADLET |$exprStack| + (setq |$exprStack| (CONS |e2| |$exprStack|)))))) (NREVERSE |$exprStack|)))))))) @@ -504,11 +504,11 @@ |$fortCsFuncStack|)) (RETURN (PROGN - (SPADLET |$fortCsList| NIL) - (SPADLET |$fortCsHash| (MAKE-HASHTABLE 'EQ)) - (SPADLET |$fortCsExprStack| NIL) - (SPADLET |$fortCsFuncStack| NIL) - (SPADLET |f| (|exp2FortOptimizeCS1| |e|)) + (setq |$fortCsList| NIL) + (setq |$fortCsHash| (MAKE-HASHTABLE 'EQ)) + (setq |$fortCsExprStack| NIL) + (setq |$fortCsFuncStack| NIL) + (setq |f| (|exp2FortOptimizeCS1| |e|)) (NREVERSE (CONS |f| |$fortCsList|)))))) ;-- bug fix to beenHere @@ -544,17 +544,17 @@ (SETELT |n| 0 (+ (ELT |n| 0) 1)) (COND ((EQL (ELT |n| 0) 2) - (SPADLET |var| (SETELT |n| 1 (|newFortranTempVar|))) - (SPADLET |exprStk| (ELT |n| 2)) + (setq |var| (SETELT |n| 1 (|newFortranTempVar|))) + (setq |exprStk| (ELT |n| 2)) (COND (|exprStk| - (SPADLET |$fortCsList| + (setq |$fortCsList| (COPY-TREE (CONS (CONS "=" (CONS |var| (CONS |e| NIL))) |$fortCsList|))) - (SPADLET |loc| (CAR |exprStk|)) - (SPADLET |fun| (CAR (ELT |n| 3))) + (setq |loc| (CAR |exprStk|)) + (setq |fun| (CAR (ELT |n| 3))) (COND ((BOOT-EQUAL |fun| 'CAR) (RPLACA |loc| |var|)) ((BOOT-EQUAL |fun| 'CDR) @@ -602,13 +602,13 @@ (DEFUN |exp2FortOptimizeCS1,pushCsStacks| (|x| |y|) (declare (special |$fortCsFuncStack| |$fortCsExprStack|)) - (SEQ (SPADLET |$fortCsExprStack| (CONS |x| |$fortCsExprStack|)) - (EXIT (SPADLET |$fortCsFuncStack| (CONS |y| |$fortCsFuncStack|))))) + (SEQ (setq |$fortCsExprStack| (CONS |x| |$fortCsExprStack|)) + (EXIT (setq |$fortCsFuncStack| (CONS |y| |$fortCsFuncStack|))))) (DEFUN |exp2FortOptimizeCS1,popCsStacks| (|x|) (declare (special |$fortCsFuncStack| |$fortCsExprStack|) (ignore |x|)) - (SEQ (SPADLET |$fortCsFuncStack| (QCDR |$fortCsFuncStack|)) - (EXIT (SPADLET |$fortCsExprStack| (QCDR |$fortCsExprStack|))))) + (SEQ (setq |$fortCsFuncStack| (QCDR |$fortCsFuncStack|)) + (EXIT (setq |$fortCsExprStack| (QCDR |$fortCsExprStack|))))) (DEFUN |exp2FortOptimizeCS1| (|e|) (PROG (|op| |ISTMP#1| |arg| |g| |f| |n|) @@ -619,18 +619,18 @@ |e|) ((AND (CONSP |e|) (PROGN - (SPADLET |op| (QCAR |e|)) - (SPADLET |ISTMP#1| (QCDR |e|)) + (setq |op| (QCAR |e|)) + (setq |ISTMP#1| (QCDR |e|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |arg| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |arg| (QCAR |ISTMP#1|)) 'T))) (BOOT-EQUAL (|object2Identifier| |op|) '-) (ATOM |arg|)) |e|) ((AND (NULL (|member| (|object2Identifier| (QCAR |e|)) '(ROW AGGLST))) - (SPADLET |n| (HGET |$fortCsHash| |e|))) + (setq |n| (HGET |$fortCsHash| |e|))) (|beenHere| |e| |n|)) - ('T (SPADLET |f| |e|) + ('T (setq |f| |e|) (DO () ((NULL |f|) NIL) (SEQ (EXIT (PROGN (|exp2FortOptimizeCS1,pushCsStacks| |f| @@ -638,7 +638,7 @@ (RPLACA |f| (|exp2FortOptimizeCS1| (QCAR |f|))) (|exp2FortOptimizeCS1,popCsStacks| 0) - (SPADLET |g| (QCDR |f|)) + (setq |g| (QCDR |f|)) (COND ((AND |g| (ATOM |g|)) (|exp2FortOptimizeCS1,pushCsStacks| |f| @@ -646,15 +646,15 @@ (RPLACD |f| (|exp2FortOptimizeCS1| |g|)) (|exp2FortOptimizeCS1,popCsStacks| 0) - (SPADLET |f| NIL)) - ('T (SPADLET |f| |g|))))))) + (setq |f| NIL)) + ('T (setq |f| |g|))))))) (COND ((member (|object2Identifier| (QCAR |e|)) '(ROW AGGLST)) |e|) - ('T (SPADLET |n| (HGET |$fortCsHash| |e|)) + ('T (setq |n| (HGET |$fortCsHash| |e|)) (COND ((NULL |n|) - (SPADLET |n| + (setq |n| (VECTOR 1 NIL |$fortCsExprStack| |$fortCsFuncStack|)) (HPUT |$fortCsHash| |e| |n|) |e|) @@ -687,18 +687,18 @@ (RETURN (SEQ (COND ((ATOM |e|) |e|) - ('T (SPADLET |op| (CAR |e|)) (SPADLET |args| (CDR |e|)) - (SPADLET |op1| (|object2Identifier| |op|)) + ('T (setq |op| (CAR |e|)) (setq |args| (CDR |e|)) + (setq |op1| (|object2Identifier| |op|)) (SEQ (COND ((|member| |op1| '(BRACE BRACKET)) (COND ((AND (CONSP |args|) (EQ (QCDR |args|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |args|)) + (setq |ISTMP#1| (QCAR |args|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'AGGLST) (PROGN - (SPADLET |elts| + (setq |elts| (QCDR |ISTMP#1|)) 'T)))) (EXIT (COND @@ -706,8 +706,8 @@ (|member| (CAR (CAR |elts|)) '(BRACE BRACKET))) (|fortError1| |e|)) - ('T (SPADLET |var| |$fortName|) - (SPADLET |$exprStack| + ('T (setq |var| |$fortName|) + (setq |$exprStack| (CONS (CONS |op| (CONS |var| @@ -720,8 +720,8 @@ |var|)))))) ((EQ |op1| 'MATRIX) (PROGN - (SPADLET |var| |$fortName|) - (SPADLET |$exprStack| + (setq |var| |$fortName|) + (setq |$exprStack| (CONS (CONS |op| (CONS |var| (|exp2FortOptimizeArray| @@ -756,31 +756,31 @@ (PROG (|ff| |lines| |fs|) (RETURN (SEQ (PROGN - (SPADLET |fs| NIL) - (SPADLET |lines| NIL) + (setq |fs| NIL) + (setq |lines| NIL) (DO () ((NULL |f|) NIL) (SEQ (EXIT (PROGN (DO () ((NULL (AND |f| (NEQUAL - (SPADLET |ff| (CAR |f|)) + (setq |ff| (CAR |f|)) "%l"))) NIL) (SEQ (EXIT (PROGN - (SPADLET |fs| (CONS |ff| |fs|)) - (SPADLET |f| (CDR |f|)))))) + (setq |fs| (CONS |ff| |fs|)) + (setq |f| (CDR |f|)))))) (COND ((AND |f| (BOOT-EQUAL (CAR |f|) "%l")) - (SPADLET |f| (CDR |f|)))) - (SPADLET |lines| + (setq |f| (CDR |f|)))) + (setq |lines| (APPEND (|fortran2Lines1| (NREVERSE |fs|)) |lines|)) - (SPADLET |fs| NIL))))) + (setq |fs| NIL))))) (NREVERSE |lines|)))))) ;fortran2Lines1 f == @@ -822,52 +822,52 @@ (declare (special |$fortIndent| |$fortLength|)) (RETURN (SEQ (PROGN - (SPADLET |normPref| (MAKE-STRING |$fortIndent|)) - (SPADLET |contPref| + (setq |normPref| (MAKE-STRING |$fortIndent|)) + (setq |contPref| (STRCONC '| &| (MAKE-STRING (SPADDIFFERENCE |$fortIndent| 6)))) - (SPADLET |lines| NIL) - (SPADLET |ll| |$fortIndent|) + (setq |lines| NIL) + (setq |ll| |$fortIndent|) (DO () ((NULL |f|) NIL) (SEQ (EXIT (PROGN - (SPADLET |ok| 'T) - (SPADLET |line| |normPref|) - (SPADLET |ff| (CAR |f|)) + (setq |ok| 'T) + (setq |line| |normPref|) + (setq |ff| (CAR |f|)) (DO () ((NULL |ok|) NIL) (SEQ (EXIT (COND ((<= (+ |ll| - (SPADLET |sff| (SIZE |ff|))) + (setq |sff| (SIZE |ff|))) |$fortLength|) - (SPADLET |ll| (+ |ll| |sff|)) - (SPADLET |line| + (setq |ll| (+ |ll| |sff|)) + (setq |line| (STRCONC |line| |ff|)) - (SPADLET |f| (CDR |f|)) + (setq |f| (CDR |f|)) (COND - (|f| (SPADLET |ff| (CAR |f|))) - ('T (SPADLET |ok| NIL)))) + (|f| (setq |ff| (CAR |f|))) + ('T (setq |ok| NIL)))) ('T (COND ((AND (> |$fortLength| |ll|) (> (+ |ll| |sff|) |$fortLength|)) - (SPADLET |spaceLeft| + (setq |spaceLeft| (SPADDIFFERENCE |$fortLength| |ll|)) - (SPADLET |line| + (setq |line| (STRCONC |line| (SUBSEQ |ff| 0 |spaceLeft|))) - (SPADLET |ff| + (setq |ff| (SUBSEQ |ff| |spaceLeft|)))) - (SPADLET |lines| + (setq |lines| (CONS |line| |lines|)) - (SPADLET |ll| |$fortIndent|) - (SPADLET |line| |contPref|)))))) + (setq |ll| |$fortIndent|) + (setq |line| |contPref|)))))) (COND ((> |ll| |$fortIndent|) - (SPADLET |lines| (CONS |line| |lines|))) + (setq |lines| (CONS |line| |lines|))) ('T NIL)))))) |lines|))))) @@ -881,7 +881,7 @@ (DEFUN |fortError1| (|u|) (declare (special |$fortError|)) (PROGN - (SPADLET |$fortError| '|t|) + (setq |$fortError| '|t|) (|sayErrorly| '|Fortran translation error| '| No corresponding Fortran structure for:|) (|mathPrint| |u|))) @@ -897,8 +897,8 @@ (declare (special |$fortError|)) (RETURN (PROGN - (SPADLET |$fortError| '|t|) - (SPADLET |msg| (STRCONC '| | (STRINGIMAGE |u|))) + (setq |$fortError| '|t|) + (setq |msg| (STRCONC '| | (STRINGIMAGE |u|))) (|sayErrorly| '|Fortran translation error| |msg|) (|mathPrint| |v|))))) @@ -913,7 +913,7 @@ (DECLARE (SPECIAL |$fortError|)) (RETURN (PROGN - (SPADLET |$fortError| NIL) + (setq |$fortError| NIL) (|displayLines| (|fortran2Lines| (|statement2Fortran| |x|))))))) ;getStatement(x,ints2Floats?) == @@ -926,8 +926,8 @@ (DECLARE (SPECIAL |$fortInts2Floats| |$fortError|)) (RETURN (PROGN - (SPADLET |$fortInts2Floats| |ints2Floats?|) - (SPADLET |$fortError| NIL) + (setq |$fortInts2Floats| |ints2Floats?|) + (setq |$fortError| NIL) (|checkLines| (|fortran2Lines| (|statement2Fortran| |x|))))))) ;fortexp0 x == @@ -944,17 +944,17 @@ (PROG (|p| |LETTMP#1| |t| |f| |l|) (RETURN (SEQ (PROGN - (SPADLET |f| (|expression2Fortran| |x|)) - (SPADLET |p| (|position| "%l" |f|)) + (setq |f| (|expression2Fortran| |x|)) + (setq |p| (|position| "%l" |f|)) (COND ((MINUSP |p|) |f|) - ('T (SPADLET |l| NIL) + ('T (setq |l| NIL) (DO () ((NULL (MINUSP |p|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| |f|) - (SPADLET |t| (CAR |LETTMP#1|)) - (SPADLET |f| (CDR |LETTMP#1|)) - (SPADLET |l| (CONS |t| |l|)))))) + (setq |LETTMP#1| |f|) + (setq |t| (CAR |LETTMP#1|)) + (setq |f| (CDR |LETTMP#1|)) + (setq |l| (CONS |t| |l|)))))) (NREVERSE (CONS "..." |l|))))))))) ;dispfortexp x == @@ -971,13 +971,13 @@ (PROGN (COND ((OR (ATOM |x|) - (AND (CONSP |x|) (PROGN (SPADLET |op| (QCAR |x|)) 'T) + (AND (CONSP |x|) (PROGN (setq |op| (QCAR |x|)) 'T) (NULL (|member| (|object2Identifier| |op|) '(= MATRIX |construct|))))) - (SPADLET |var| + (setq |var| (INTERN (STRCONC "R" (|object2String| |$IOindex|)))) - (SPADLET |x| + (setq |x| (CONS "=" (CONS |var| (CONS |x| NIL)))))) (|dispfortexp1| |x|))))) @@ -991,8 +991,8 @@ (DECLARE (SPECIAL |$fortError|)) (RETURN (PROGN - (SPADLET |$fortError| NIL) - (SPADLET |linef| + (setq |$fortError| NIL) + (setq |linef| (|fortran2Lines| (BUTLAST (|expression2Fortran1| |fortranName| |xf|) @@ -1010,9 +1010,9 @@ (DECLARE (SPECIAL |$fortName| |$fortError|)) (RETURN (PROGN - (SPADLET |$fortName| |fortranName|) - (SPADLET |$fortError| NIL) - (SPADLET |linej| + (setq |$fortName| |fortranName|) + (setq |$fortError| NIL) + (setq |linej| (|fortran2Lines| (BUTLAST (|expression2Fortran1| |fortranName| |xj|) @@ -1028,7 +1028,7 @@ (DECLARE (SPECIAL |$fortError|)) (RETURN (PROGN - (SPADLET |$fortError| NIL) + (setq |$fortError| NIL) (|displayLines| (|fortran2Lines| (|expression2Fortran| |x|))))))) ;getfortexp1 x == @@ -1040,7 +1040,7 @@ (DECLARE (SPECIAL |$fortError|)) (RETURN (PROGN - (SPADLET |$fortError| NIL) + (setq |$fortError| NIL) (|checkLines| (|fortran2Lines| (|expression2Fortran| |x|))))))) ;displayLines1 lines == @@ -1082,7 +1082,7 @@ (DECLARE (SPECIAL |$fortError|)) (RETURN (PROGN - (SPADLET |$fortError| NIL) + (setq |$fortError| NIL) (|displayLines| (|fortran2Lines| (BUTLAST (|expression2Fortran1| |fortranName| |m|) 2))))))) @@ -1097,8 +1097,8 @@ (DECLARE (SPECIAL |$fortInts2Floats| |$fortError|)) (RETURN (PROGN - (SPADLET |$fortInts2Floats| |ints2floats?|) - (SPADLET |$fortError| NIL) + (setq |$fortInts2Floats| |ints2floats?|) + (setq |$fortError| NIL) (|checkLines| (|fortran2Lines| (BUTLAST (|expression2Fortran1| |fortranName| |m|) 2))))))) @@ -1106,11 +1106,11 @@ ;-- Globals ;$currentSubprogram := nil -(SPADLET |$currentSubprogram| NIL) +(setq |$currentSubprogram| NIL) ;$symbolTable := nil -(SPADLET |$symbolTable| NIL) +(setq |$symbolTable| NIL) ;--fix [x,exp x] ; @@ -1194,12 +1194,12 @@ (CONS (CAR |args|) (CONS (CADDR |args|) NIL)) 2)) ((BOOT-EQUAL |op| 'QUOTE) (COND - ((ATOM (SPADLET |arg| (CAR |args|))) + ((ATOM (setq |arg| (CAR |args|))) (STRINGIMAGE |arg|)) ('T - (SPADLET |tailPart| + (setq |tailPart| (PROG (G166656) - (SPADLET G166656 "") + (setq G166656 "") (RETURN (DO ((G166661 (CDR |arg|) (CDR G166661)) @@ -1215,40 +1215,40 @@ (STRCONC "," |x|))))))))) (STRCONC "[" (CAR |arg|) |tailPart| "]")))) - ((BOOT-EQUAL |op| 'PAREN) (SPADLET |args| (CAR |args|)) + ((BOOT-EQUAL |op| 'PAREN) (setq |args| (CAR |args|)) (COND ((NULL (BOOT-EQUAL (CAR |args|) 'CONCATB)) (|fortError1| (CONS |op| |args|))) ('T (|mkMat| |args|)))) - ((BOOT-EQUAL |op| 'SUB) (SPADLET |$fortInts2Floats| NIL) + ((BOOT-EQUAL |op| 'SUB) (setq |$fortInts2Floats| NIL) (|mkFortFn| (CAR |args|) (CDR |args|) (|#| (CDR |args|)))) ((|member| |op| (CONS 'BRACE (CONS 'BRACKET NIL))) (COND ((AND (CONSP |args|) (PROGN - (SPADLET |var| (QCAR |args|)) - (SPADLET |ISTMP#1| (QCDR |args|)) + (setq |var| (QCAR |args|)) + (setq |ISTMP#1| (QCDR |args|)) (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 |elts| (QCDR |ISTMP#2|)) + (setq |elts| (QCDR |ISTMP#2|)) 'T)))))) - (SPADLET |var| (|object2String| |var|)) - (SPADLET |si| |$fortranArrayStartingIndex|) - (SPADLET |hidim| + (setq |var| (|object2String| |var|)) + (setq |si| |$fortranArrayStartingIndex|) + (setq |hidim| (+ (SPADDIFFERENCE (|#| |elts|) 1) |si|)) (SEQ (COND ((AND (LISTP (CAR |elts|)) (EQL (|#| |elts|) 1) (PROGN - (SPADLET |ISTMP#1| (CAR |elts|)) + (setq |ISTMP#1| (CAR |elts|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |sOp| (QCAR |ISTMP#1|)) - (SPADLET |sArgs| + (setq |sOp| (QCAR |ISTMP#1|)) + (setq |sArgs| (QCDR |ISTMP#1|)) 'T)))) (COND @@ -1275,7 +1275,7 @@ ((> |e| G166671) NIL) (SEQ (EXIT - (SPADLET |$exprStack| + (setq |$exprStack| (CONS (CONS '= (CONS @@ -1291,7 +1291,7 @@ ((OR (ATOM G166679) (PROGN (SETQ |e| (CAR G166679)) NIL)) NIL) - (SEQ (EXIT (SPADLET |$exprStack| + (SEQ (EXIT (setq |$exprStack| (CONS (CONS '= (CONS @@ -1315,18 +1315,18 @@ (COND ((AND (CONSP |args|) (PROGN - (SPADLET |var| (QCAR |args|)) - (SPADLET |ISTMP#1| (QCDR |args|)) + (setq |var| (QCAR |args|)) + (setq |ISTMP#1| (QCDR |args|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) NIL) (PROGN - (SPADLET |rows| (QCDR |ISTMP#1|)) + (setq |rows| (QCDR |ISTMP#1|)) 'T)))) - (SPADLET |var| (|object2String| |var|)) - (SPADLET |nrows| (SPADDIFFERENCE (|#| |rows|) 1)) - (SPADLET |ncols| + (setq |var| (|object2String| |var|)) + (setq |nrows| (SPADDIFFERENCE (|#| |rows|) 1)) + (setq |ncols| (SPADDIFFERENCE (|#| (CDR (CAR |rows|))) 1)) - (SPADLET |si| |$fortranArrayStartingIndex|) + (setq |si| |$fortranArrayStartingIndex|) (DO ((G166689 |rows| (CDR G166689)) (|r| NIL) (|rx| |si| (+ |rx| 1))) ((OR (ATOM G166689) @@ -1341,7 +1341,7 @@ NIL)) NIL) (SEQ (EXIT - (SPADLET |$exprStack| + (setq |$exprStack| (CONS (CONS '= (CONS @@ -1364,7 +1364,7 @@ (DECLARE (SPECIAL |$fortInts2Floats|)) (RETURN (PROGN - (SPADLET |$fortInts2Floats| NIL) + (setq |$fortInts2Floats| NIL) (|mkFortFn| (CAR (CDR |args|)) (CDR (CDR |args|)) (|#| (CDR (CDR |args|)))))))) @@ -1469,7 +1469,7 @@ (RETURN (COND (|$useIntrinsicFunctions| - (SPADLET |intrinsic| + (setq |intrinsic| (COND ((BOOT-EQUAL |op| "acos") "ACOS") @@ -1506,7 +1506,7 @@ ('T NIL))) (COND (|intrinsic| - (SPADLET |$intrinsics| + (setq |$intrinsics| (ADJOIN |intrinsic| |$intrinsics|)) |intrinsic|) ('T |op|))) @@ -1567,10 +1567,10 @@ (DEFUN |indentFortLevel| (|i|) (declare (special |$fortIndent| |$maximumFortranExpressionLength|)) (PROGN - (SPADLET |$maximumFortranExpressionLength| + (setq |$maximumFortranExpressionLength| (SPADDIFFERENCE |$maximumFortranExpressionLength| (TIMES 2 |i|))) - (SPADLET |$fortIndent| (+ |$fortIndent| (TIMES 2 |i|))))) + (setq |$fortIndent| (+ |$fortIndent| (TIMES 2 |i|))))) ;changeExprLength(i) ==> ; $maximumFortranExpressionLength := $maximumFortranExpressionLength + i @@ -1579,7 +1579,7 @@ (declare (special |$maximumFortranExpressionLength|)) (DSETQ (NIL G166767) G166771) (SUBLISLIS (LIST G166767) '(G166767) - '(SPADLET |$maximumFortranExpressionLength| + '(setq |$maximumFortranExpressionLength| (+ |$maximumFortranExpressionLength| G166767)))) ;fortFormatDo(var,lo,hi,incr,lab) == @@ -1598,8 +1598,8 @@ (DECLARE (SPECIAL |$fortError| |$fortInts2Floats|)) (RETURN (PROGN - (SPADLET |$fortError| NIL) - (SPADLET |$fortInts2Floats| NIL) + (setq |$fortError| NIL) + (setq |$fortInts2Floats| NIL) (COND ((EQL |incr| 1) (|checkLines| @@ -1648,13 +1648,13 @@ (RETURN (SEQ (PROGN (|changeExprLength| (SPADDIFFERENCE 8)) - (SPADLET |$fortError| NIL) + (setq |$fortError| NIL) (COND ((BOOT-EQUAL (CAR |switch|) 'NULL) - (SPADLET |switch| (CAR (CDR |switch|))))) - (SPADLET |r| (NREVERSE (|statement2Fortran| |switch|))) + (setq |switch| (CAR (CDR |switch|))))) + (setq |r| (NREVERSE (|statement2Fortran| |switch|))) (|changeExprLength| 8) - (SPADLET |l| + (setq |l| (CONS ")GOTO " (CONS (STRINGIMAGE |label|) NIL))) (DO () @@ -1663,8 +1663,8 @@ "%l")))) NIL) (SEQ (EXIT (PROGN - (SPADLET |l| (CONS (CAR |r|) |l|)) - (SPADLET |r| (CDR |r|)))))) + (setq |l| (CONS (CAR |r|) |l|)) + (setq |r| (CDR |r|)))))) (|checkLines| (|fortran2Lines| (NREVERSE @@ -1693,14 +1693,14 @@ (RETURN (SEQ (PROGN (|changeExprLength| (SPADDIFFERENCE 8)) - (SPADLET |$fortError| NIL) + (setq |$fortError| NIL) (COND ((AND (LISTP |switch|) (BOOT-EQUAL (CAR |switch|) 'NULL)) - (SPADLET |switch| (CAR (CDR |switch|))))) - (SPADLET |r| (NREVERSE (|statement2Fortran| |switch|))) + (setq |switch| (CAR (CDR |switch|))))) + (setq |r| (NREVERSE (|statement2Fortran| |switch|))) (|changeExprLength| 8) - (SPADLET |l| + (setq |l| (CONS ")GOTO " (CONS (STRINGIMAGE |label2|) NIL))) (DO () @@ -1709,19 +1709,19 @@ "%l")))) NIL) (SEQ (EXIT (PROGN - (SPADLET |l| (CONS (CAR |r|) |l|)) - (SPADLET |r| (CDR |r|)))))) - (SPADLET |labString| (STRINGIMAGE |label1|)) + (setq |l| (CONS (CAR |r|) |l|)) + (setq |r| (CDR |r|)))))) + (setq |labString| (STRINGIMAGE |label1|)) (DO ((|i| (|#| |labString|) (+ |i| 1))) ((> |i| 5) NIL) - (SEQ (EXIT (SPADLET |labString| + (SEQ (EXIT (setq |labString| (STRCONC |labString| " "))))) - (SPADLET |lines| + (setq |lines| (|fortran2Lines| (NREVERSE (APPEND (NREVERSE |l|) (CONS "IF(" |r|))))) - (SPADLET |lines| + (setq |lines| (CONS (STRCONC |labString| (SUBSEQ (CAR |lines|) 6)) (CDR |lines|))) @@ -1745,22 +1745,22 @@ (RETURN (SEQ (PROGN (|changeExprLength| (SPADDIFFERENCE 8)) - (SPADLET |$fortError| NIL) + (setq |$fortError| NIL) (COND ((AND (LISTP |switch|) (BOOT-EQUAL (CAR |switch|) 'NULL)) - (SPADLET |switch| (CAR (CDR |switch|))))) - (SPADLET |r| (NREVERSE (|statement2Fortran| |switch|))) + (setq |switch| (CAR (CDR |switch|))))) + (setq |r| (NREVERSE (|statement2Fortran| |switch|))) (|changeExprLength| 8) - (SPADLET |l| (CONS ")THEN" NIL)) + (setq |l| (CONS ")THEN" NIL)) (DO () ((NULL (AND |r| (NULL (BOOT-EQUAL (CAR |r|) "%l")))) NIL) (SEQ (EXIT (PROGN - (SPADLET |l| (CONS (CAR |r|) |l|)) - (SPADLET |r| (CDR |r|)))))) + (setq |l| (CONS (CAR |r|) |l|)) + (setq |r| (CDR |r|)))))) (|checkLines| (|fortran2Lines| (NREVERSE @@ -1786,22 +1786,22 @@ (RETURN (SEQ (PROGN (|changeExprLength| (SPADDIFFERENCE 12)) - (SPADLET |$fortError| NIL) + (setq |$fortError| NIL) (COND ((AND (LISTP |switch|) (BOOT-EQUAL (CAR |switch|) 'NULL)) - (SPADLET |switch| (CAR (CDR |switch|))))) - (SPADLET |r| (NREVERSE (|statement2Fortran| |switch|))) + (setq |switch| (CAR (CDR |switch|))))) + (setq |r| (NREVERSE (|statement2Fortran| |switch|))) (|changeExprLength| 12) - (SPADLET |l| (CONS ")THEN" NIL)) + (setq |l| (CONS ")THEN" NIL)) (DO () ((NULL (AND |r| (NULL (BOOT-EQUAL (CAR |r|) "%l")))) NIL) (SEQ (EXIT (PROGN - (SPADLET |l| (CONS (CAR |r|) |l|)) - (SPADLET |r| (CDR |r|)))))) + (setq |l| (CONS (CAR |r|) |l|)) + (setq |r| (CDR |r|)))))) (|checkLines| (|fortran2Lines| (NREVERSE @@ -1826,20 +1826,20 @@ (DECLARE (SPECIAL |$fortError| |$fortranSegment|)) (RETURN (PROGN - (SPADLET |$fortError| NIL) - (SPADLET |$fortranSegment| NIL) + (setq |$fortError| NIL) + (setq |$fortranSegment| NIL) (COND ((BOOT-EQUAL |returnType| "void") - (SPADLET |asp| (CONS "SUBROUTINE " NIL)) - (|changeExprLength| (SPADLET |l| (SPADDIFFERENCE 11)))) + (setq |asp| (CONS "SUBROUTINE " NIL)) + (|changeExprLength| (setq |l| (SPADDIFFERENCE 11)))) ('T - (SPADLET |asp| - (CONS (SPADLET |s| + (setq |asp| + (CONS (setq |s| (|checkType| (STRINGIMAGE |returnType|))) (CONS " FUNCTION " NIL))) (|changeExprLength| - (SPADLET |l| + (setq |l| (SPADDIFFERENCE (SPADDIFFERENCE 10) (LENGTH |s|)))))) (|displayLines| @@ -1860,7 +1860,7 @@ (DEFUN |checkType| (|ty|) (declare (special |$fortranPrecision|)) (PROGN - (SPADLET |ty| (STRING-UPCASE (STRINGIMAGE |ty|))) + (setq |ty| (STRING-UPCASE (STRINGIMAGE |ty|))) (COND ((BOOT-EQUAL |$fortranPrecision| '|double|) (COND @@ -1883,14 +1883,14 @@ (PROG () (RETURN (SEQ (IF (ATOM |u|) (EXIT (STRINGIMAGE |u|))) - (SPADLET |u| (CDR (CAR (CDR |u|)))) + (setq |u| (CDR (CAR (CDR |u|)))) (EXIT (APPLY 'STRCONC (CONS (STRINGIMAGE (CAR |u|)) (CONS "(" (APPEND (CDR (PROG (G166901) - (SPADLET G166901 NIL) + (setq G166901 NIL) (RETURN (DO ((G166906 (CDR |u|) @@ -1915,7 +1915,7 @@ (PROG () (RETURN (SEQ (PROG (G166922) - (SPADLET G166922 NIL) + (setq G166922 NIL) (RETURN (DO ((G166927 |l| (CDR G166927)) (|u| NIL)) ((OR (ATOM G166927) @@ -1957,15 +1957,15 @@ (RETURN (SEQ (COND ((NULL |names|) (RETURN)) - ('T (SPADLET |$fortError| NIL) - (SPADLET |$fortranSegment| NIL) - (SPADLET |$fortInts2Floats| NIL) - (SPADLET |typeName| (|checkType| |typeName|)) + ('T (setq |$fortError| NIL) + (setq |$fortranSegment| NIL) + (setq |$fortInts2Floats| NIL) + (setq |typeName| (|checkType| |typeName|)) (COND ((BOOT-EQUAL |typeName| "CHARACTER") (|fortFormatCharacterTypes| (PROG (G166953) - (SPADLET G166953 NIL) + (setq G166953 NIL) (RETURN (DO ((G166958 |names| (CDR G166958)) (|u| NIL)) @@ -1998,18 +1998,18 @@ (declare (special |$maximumFortranExpressionLength|)) (RETURN (SEQ (PROGN - (SPADLET |l| + (setq |l| (SPADDIFFERENCE (SPADDIFFERENCE |$maximumFortranExpressionLength| 1) (LENGTH |typeName|))) (DO () ((NULL (> (|nameLen| |names|) |l|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |n| NIL) - (SPADLET |ln| 0) + (setq |n| NIL) + (setq |ln| 0) (DO () ((NULL (> |l| - (SPADLET |ln| + (setq |ln| (+ (+ |ln| (LENGTH (CAR |names|))) @@ -2017,9 +2017,9 @@ NIL) (SEQ (EXIT (PROGN - (SPADLET |n| + (setq |n| (CONS (CAR |names|) |n|)) - (SPADLET |names| (CDR |names|)))))) + (setq |names| (CDR |names|)))))) (|displayLines| (|fortran2Lines| (CONS |typeName| @@ -2041,7 +2041,7 @@ (PROG (|entry|) (RETURN (PROGN - (SPADLET |entry| (|assoc| SIZE |aList|)) + (setq |entry| (|assoc| SIZE |aList|)) (COND ((NULL |entry|) (CONS (CONS SIZE (LIST |el|)) |aList|)) ('T (RPLACD |entry| (CONS |el| (CDR |entry|))) |aList|)))))) @@ -2074,7 +2074,7 @@ (CONS "(" (APPEND (CDR (PROG (G167020) - (SPADLET G167020 NIL) + (setq G167020 NIL) (RETURN (DO ((G167025 (CDR |u|) @@ -2100,7 +2100,7 @@ (PROG () (RETURN (SEQ (PROG (G167040) - (SPADLET G167040 NIL) + (setq G167040 NIL) (RETURN (DO ((G167045 |l| (CDR G167045)) (|u| NIL)) ((OR (ATOM G167045) @@ -2115,23 +2115,23 @@ (PROG (|sortedByLength| |genuineArrays|) (RETURN (SEQ (PROGN - (SPADLET |sortedByLength| NIL) - (SPADLET |genuineArrays| NIL) + (setq |sortedByLength| NIL) + (setq |genuineArrays| NIL) (DO ((G167060 |names| (CDR G167060)) (|u| NIL)) ((OR (ATOM G167060) (PROGN (SETQ |u| (CAR G167060)) NIL)) NIL) (SEQ (EXIT (COND ((ATOM |u|) - (SPADLET |sortedByLength| + (setq |sortedByLength| (|insertEntry| 0 |u| |sortedByLength|))) ((EQL (|#| |u|) 2) - (SPADLET |sortedByLength| + (setq |sortedByLength| (|insertEntry| (CADR |u|) (CAR |u|) |sortedByLength|))) ('T - (SPADLET |genuineArrays| + (setq |genuineArrays| (CONS |u| |genuineArrays|))))))) (DO ((G167069 |sortedByLength| (CDR G167069)) (|u| NIL)) @@ -2142,7 +2142,7 @@ (|fortFormatCharacterTypes,mkCharName| (CAR |u|)) (PROG (G167079) - (SPADLET G167079 NIL) + (setq G167079 NIL) (RETURN (DO ((G167084 (CDR |u|) (CDR G167084)) @@ -2174,7 +2174,7 @@ (DECLARE (SPECIAL |$fortError|)) (RETURN (PROGN - (SPADLET |$fortError| NIL) + (setq |$fortError| NIL) (COND ((NULL |l|) (RETURN)) ('T @@ -2206,11 +2206,11 @@ (DECLARE (SPECIAL |$insideCompileBodyIfTrue|)) (RETURN (PROGN - (SPADLET |fun| + (setq |fun| (CONS '|$elt| (CONS 'SYMS (CONS '|declare!| NIL)))) - (SPADLET |coercion| + (setq |coercion| (CONS '|::| (CONS (STRING |type|) (CONS 'FST NIL)))) - (SPADLET |$insideCompileBodyIfTrue| NIL) + (setq |$insideCompileBodyIfTrue| NIL) (|interpret| (CONS |fun| (CONS (CONS 'QUOTE (CONS |name| NIL)) @@ -2227,26 +2227,26 @@ (RETURN (SEQ (COND ((NULL |l|) NIL) - ('T (SPADLET |r| (CONS (STRINGIMAGE (CAR |l|)) NIL)) + ('T (setq |r| (CONS (STRINGIMAGE (CAR |l|)) NIL)) (DO ((G167122 (CDR |l|) (CDR G167122)) (|e| NIL)) ((OR (ATOM G167122) (PROGN (SETQ |e| (CAR G167122)) NIL)) NIL) - (SEQ (EXIT (SPADLET |r| + (SEQ (EXIT (setq |r| (CONS (STRINGIMAGE |e|) (CONS "," |r|)))))) (REVERSE |r|))))))) ;$intrinsics := [] -(SPADLET |$intrinsics| NIL) +(setq |$intrinsics| NIL) ;initialiseIntrinsicList() == ; $intrinsics := [] (DEFUN |initialiseIntrinsicList| () (declare (special |$intrinsics|)) - (SPADLET |$intrinsics| NIL)) + (setq |$intrinsics| NIL)) ;getIntrinsicList() == ; $intrinsics @@ -2273,14 +2273,14 @@ (DECLARE (SPECIAL |$exprStack|)) (RETURN (SEQ (PROGN - (SPADLET |$exprStack| NIL) + (setq |$exprStack| NIL) (DO ((G167144 |l| (CDR G167144)) (|e| NIL)) ((OR (ATOM G167144) (PROGN (SETQ |e| (CAR G167144)) NIL)) NIL) (SEQ (EXIT (COND - ((SPADLET |new| (|fortPre1| |e|)) - (SPADLET |$exprStack| + ((setq |new| (|fortPre1| |e|)) + (setq |$exprStack| (CONS |new| |$exprStack|))) ('T NIL))))) (REVERSE |$exprStack|)))))) @@ -2370,7 +2370,7 @@ ((BOOT-EQUAL |e| '|%e|) (|fortPre1| (CONS '|exp| (CONS 1 NIL)))) ('T - (SPADLET |imags| + (setq |imags| (CONS "%i" (CONS '|%i| NIL))) (COND ((|member| |e| |imags|) @@ -2379,12 +2379,12 @@ ((BOOT-EQUAL (ELT (STRINGIMAGE |e|) 0) '%) (SUBSEQ (STRINGIMAGE |e|) 1)) ((ATOM |e|) |e|) - ('T (SPADLET |op| (CAR |e|)) (SPADLET |args| (CDR |e|)) + ('T (setq |op| (CAR |e|)) (setq |args| (CDR |e|)) (COND ((|member| |op| (CONS '** (CONS "**" NIL))) - (SPADLET |rand| (CAR |args|)) - (SPADLET |exponent| (CADR |args|)) + (setq |rand| (CAR |args|)) + (setq |exponent| (CADR |args|)) (COND ((BOOT-EQUAL |rand| '|%e|) (|fortPre1| (CONS '|exp| (CONS |exponent| NIL)))) @@ -2420,8 +2420,8 @@ (COND ((|member| |op| (CONS "OVER" (CONS 'OVER NIL))) - (SPADLET |op| "/"))) - (SPADLET |specialOps| + (setq |op| "/"))) + (setq |specialOps| '(BRACKET BRACE SUB AGGLST SUPERSUB MATRIX SEGMENT ALTSUPERSUB PAREN CONCAT CONCATB QUOTE STRING SIGMA STEP @@ -2438,14 +2438,14 @@ (CONS "-" (CONS '- NIL))))))) (> (|#| |args|) 2)) - (SPADLET |binaryExpr| + (setq |binaryExpr| (|fortPre1| (CONS |op| (CONS (CAR |args|) (CONS (SECOND |args|) NIL))))) (DO ((G167227 (|#| |args|)) (|i| 3 (+ |i| 1))) ((> |i| G167227) NIL) - (SEQ (EXIT (SPADLET |binaryExpr| + (SEQ (EXIT (setq |binaryExpr| (CONS |op| (CONS |binaryExpr| (CONS @@ -2455,8 +2455,8 @@ NIL))))))) |binaryExpr|) ((EQL (|#| |args|) 2) - (SPADLET |arg1| (CAR |args|)) - (SPADLET |arg2| (CADR |args|)) + (setq |arg1| (CAR |args|)) + (setq |arg2| (CADR |args|)) (COND ((AND (|member| |op| (CONS '* @@ -2477,17 +2477,17 @@ (CONS "+" NIL))) (CONSP |arg2|) (PROGN - (SPADLET |mop| (QCAR |arg2|)) - (SPADLET |ISTMP#1| (QCDR |arg2|)) + (setq |mop| (QCAR |arg2|)) + (setq |ISTMP#1| (QCDR |arg2|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |m1| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |m1| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |m2| + (setq |m2| (QCAR |ISTMP#2|)) 'T))))) (|member| |mop| @@ -2511,17 +2511,17 @@ (CONS "+" NIL))) (CONSP |arg1|) (PROGN - (SPADLET |mop| (QCAR |arg1|)) - (SPADLET |ISTMP#1| (QCDR |arg1|)) + (setq |mop| (QCAR |arg1|)) + (setq |ISTMP#1| (QCDR |arg1|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |m1| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |m1| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |m2| + (setq |m2| (QCAR |ISTMP#2|)) 'T))))) (|member| |mop| @@ -2551,7 +2551,7 @@ (DEFUN |fortPreRoot| (|e|) (PROG (|$fortInts2Floats|) (DECLARE (SPECIAL |$fortInts2Floats|)) - (RETURN (PROGN (SPADLET |$fortInts2Floats| 'T) (|fortPre1| |e|))))) + (RETURN (PROGN (setq |$fortInts2Floats| 'T) (|fortPre1| |e|))))) ;fix2FortranFloat e == ; -- Return a Fortran float for a given integer. @@ -2592,21 +2592,21 @@ (RETURN (COND ((AND (STRINGP |e|) (EQL (CHAR-CODE (CHAR |e| 0)) 34)) |e|) - ('T (SPADLET |e| (|delete| (|char| '| |) (STRINGIMAGE |e|))) + ('T (setq |e| (|delete| (|char| '| |) (STRINGIMAGE |e|))) (COND ((BOOT-EQUAL |$fortranPrecision| '|double|) - (SPADLET |iPart| + (setq |iPart| (SUBSEQ |e| 0 - (+ (SPADLET |period| + (+ (setq |period| (POSITION (|char| (INTERN "." "BOOT")) |e|)) 1))) - (SPADLET |expt| + (setq |expt| (COND - ((SPADLET |ePos| (POSITION (|char| 'E) |e|)) + ((setq |ePos| (POSITION (|char| 'E) |e|)) (SUBSEQ |e| (+ |ePos| 1))) ('T '|0|))) - (SPADLET |rPart| + (setq |rPart| (COND (|ePos| (SUBSEQ |e| (+ |period| 1) |ePos|)) ((> (LENGTH |e|) (+ |period| 1)) @@ -2650,8 +2650,8 @@ (+ 2 (|fortSize| (MAPCAR #'|fortExpSize| |e|)))) ((QSLESSP (|#| |e|) 3) (+ 2 (|fortSize| (MAPCAR #'|fortExpSize| |e|)))) - ('T (SPADLET |op| (CAR |e|)) (SPADLET |arg1| (CADR |e|)) - (SPADLET |arg2| (CADDR |e|)) (SPADLET |op| (STRINGIMAGE |op|)) + ('T (setq |op| (CAR |e|)) (setq |arg1| (CADR |e|)) + (setq |arg2| (CADDR |e|)) (setq |op| (STRINGIMAGE |op|)) (COND ((BOOT-EQUAL |op| "CMPLX") (+ 3 @@ -2659,7 +2659,7 @@ (CONS (|fortExpSize| |arg1|) (CONS (|fortExpSize| |arg2|) NIL))))) ('T - (SPADLET |narys| + (setq |narys| (CONS "+" (CONS "*" NIL))) (COND @@ -2700,7 +2700,7 @@ (PROG () (RETURN (SEQ (PROG (G167300) - (SPADLET G167300 0) + (setq G167300 0) (RETURN (DO ((G167305 |e| (CDR G167305)) (|u| NIL)) ((OR (ATOM G167305) @@ -2738,7 +2738,7 @@ (RETURN (SEQ (COND ((NULL |$fortranSegment|) |l|) - ('T (SPADLET |s| NIL) + ('T (setq |s| NIL) (DO ((G167324 |l| (CDR G167324)) (|e| NIL)) ((OR (ATOM G167324) (PROGN (SETQ |e| (CAR G167324)) NIL)) @@ -2748,15 +2748,15 @@ (|member| (CAR |e|) (CONS '= (CONS "=" NIL)))) - (SPADLET |var| (NTH 1 |e|)) - (SPADLET |exprs| + (setq |var| (NTH 1 |e|)) + (setq |exprs| (|segment1| (THIRD |e|) (SPADDIFFERENCE (SPADDIFFERENCE |$maximumFortranExpressionLength| 1) (|fortExpSize| |var|)))) - (SPADLET |s| + (setq |s| (APPEND (CONS (CONS "=" @@ -2767,21 +2767,21 @@ ((AND (LISTP |e|) (|member| (CAR |e|) (CONS "RETURN" NIL))) - (SPADLET |exprs| + (setq |exprs| (|segment1| (SECOND |e|) (SPADDIFFERENCE (SPADDIFFERENCE |$maximumFortranExpressionLength| 2) (|fortExpSize| (CAR |e|))))) - (SPADLET |s| + (setq |s| (APPEND (CONS (CONS (CAR |e|) (CONS (CAR |exprs|) NIL)) (CDR |exprs|)) |s|))) - ('T (SPADLET |s| (CONS |e| |s|))))))) + ('T (setq |s| (CONS |e| |s|))))))) (REVERSE |s|))))))) ;segment1(e,maxSize) == @@ -2809,11 +2809,11 @@ (PROG (SIZE |subSize| |exprs| |expressions| |newE| |safeSize|) (RETURN (SEQ (COND - ((> |maxSize| (SPADLET SIZE (|fortExpSize| |e|))) + ((> |maxSize| (setq SIZE (|fortExpSize| |e|))) (CONS |e| NIL)) - ('T (SPADLET |expressions| NIL) - (SPADLET |newE| (CONS (CAR |e|) NIL)) - (SPADLET |safeSize| + ('T (setq |expressions| NIL) + (setq |newE| (CONS (CAR |e|) NIL)) + (setq |safeSize| (SPADDIFFERENCE (SPADDIFFERENCE |maxSize| (TIMES (SPADDIFFERENCE (|#| |e|) 1) @@ -2822,33 +2822,33 @@ (DO ((G167348 (|#| |e|)) (|i| 2 (QSADD1 |i|))) ((QSGREATERP |i| G167348) NIL) (SEQ (EXIT (PROGN - (SPADLET |subSize| + (setq |subSize| (|fortExpSize| (NTH (SPADDIFFERENCE |i| 1) |e|))) (COND ((<= |subSize| |safeSize|) - (SPADLET |safeSize| + (setq |safeSize| (SPADDIFFERENCE |safeSize| |subSize|)) - (SPADLET |newE| + (setq |newE| (APPEND |newE| (CONS (NTH (SPADDIFFERENCE |i| 1) |e|) NIL)))) ('T - (SPADLET |exprs| + (setq |exprs| (|segment2| (NTH (SPADDIFFERENCE |i| 1) |e|) |safeSize|)) - (SPADLET |expressions| + (setq |expressions| (APPEND (CDR |exprs|) |expressions|)) - (SPADLET |newE| + (setq |newE| (APPEND |newE| (CONS (CAR |exprs|) NIL))) - (SPADLET |safeSize| + (setq |safeSize| (SPADDIFFERENCE |safeSize| (|fortExpSize| (CAR |exprs|)))))))))) (CONS |newE| |expressions|))))))) @@ -2884,7 +2884,7 @@ (declare (special |$maximumFortranExpressionLength|)) (RETURN (SEQ (PROGN - (SPADLET |maxSize| + (setq |maxSize| (SPADDIFFERENCE (SPADDIFFERENCE |$maximumFortranExpressionLength| @@ -2892,63 +2892,63 @@ 1)) (COND ((ATOM |e|) (CONS |e| NIL)) - ('T (SPADLET |exprs| NIL) - (SPADLET |newE| (CONS (CAR |e|) NIL)) - (SPADLET |topSize| + ('T (setq |exprs| NIL) + (setq |newE| (CONS (CAR |e|) NIL)) + (setq |topSize| (SPADDIFFERENCE |topSize| (|fortExpSize| |newE|))) (DO ((G167376 (|#| |e|)) (|i| 2 (QSADD1 |i|))) ((QSGREATERP |i| G167376) NIL) (SEQ (EXIT (PROGN - (SPADLET |subE| + (setq |subE| (NTH (SPADDIFFERENCE |i| 1) |e|)) (COND - ((> (SPADLET |subSize| + ((> (setq |subSize| (|fortExpSize| |subE|)) |maxSize|) - (SPADLET |subE| + (setq |subE| (|segment2| |subE| |maxSize|)) - (SPADLET |exprs| + (setq |exprs| (APPEND (CDR |subE|) |exprs|)) (COND ((<= - (SPADLET |subSize| + (setq |subSize| (|fortExpSize| (CAR |subE|))) |topSize|) - (SPADLET |newE| + (setq |newE| (APPEND |newE| (CONS (CAR |subE|) NIL))) - (SPADLET |topSize| + (setq |topSize| (SPADDIFFERENCE |topSize| |subSize|))) ('T - (SPADLET |newVar| + (setq |newVar| (|newFortranTempVar|)) - (SPADLET |newE| + (setq |newE| (APPEND |newE| (CONS |newVar| NIL))) - (SPADLET |exprs| + (setq |exprs| (CONS (CONS "=" (CONS |newVar| (CONS (CAR |subE|) NIL))) |exprs|)) - (SPADLET |topSize| + (setq |topSize| (SPADDIFFERENCE |topSize| (|fortExpSize| |newVar|)))))) ('T - (SPADLET |newE| + (setq |newE| (APPEND |newE| (CONS |subE| NIL))) - (SPADLET |topSize| + (setq |topSize| (SPADDIFFERENCE |topSize| |subSize|)))))))) (COND ((> |topSize| 0) (CONS |newE| |exprs|)) - ('T (SPADLET |newVar| (|newFortranTempVar|)) + ('T (setq |newVar| (|newFortranTempVar|)) (CONS |newVar| (CONS (CONS "=" (CONS |newVar| (CONS |newE| NIL))) diff --git a/src/interp/nocompil.lisp.pamphlet b/src/interp/nocompil.lisp.pamphlet index 3dbb6d0..75f35ed 100644 --- a/src/interp/nocompil.lisp.pamphlet +++ b/src/interp/nocompil.lisp.pamphlet @@ -17,7 +17,7 @@ ;; NOTE: JoinInner is defined in CATEGORY BOOT ;; following code needs to run interpreted to overcome arglist length limits (defun |Join| (&rest L) - (|JoinInner| L (if (OR (not (boundp '|$e|)) (NULL |$e|) |$InteractiveMode|) + (|JoinInner| L (if (or (not (boundp '|$e|)) (null |$e|) |$InteractiveMode|) |$CategoryFrame| |$e|))) diff --git a/src/interp/nruncomp.lisp.pamphlet b/src/interp/nruncomp.lisp.pamphlet index e209f67..4bd2e01 100644 --- a/src/interp/nruncomp.lisp.pamphlet +++ b/src/interp/nruncomp.lisp.pamphlet @@ -46,7 +46,7 @@ |$NRTdeltaList| |$NRTbase| |$catvecList|)) (RETURN (SEQ (PROGN - (SPADLET |kvec| (CAR |$catvecList|)) + (setq |kvec| (CAR |$catvecList|)) (DO ((|i| |$NRTbase| (+ |i| 1)) (G166066 (REVERSE |$NRTdeltaList|) (CDR G166066)) (|item| NIL) @@ -59,7 +59,7 @@ (PROGN (SETQ |compItem| (CAR G166067)) NIL)) NIL) (SEQ (EXIT (COND - ((NULL (SPADLET |s| (ELT |kvec| |i|))) + ((NULL (setq |s| (ELT |kvec| |i|))) (SETELT |$template| |i| (|deltaTran| |item| |compItem|))))))) (SETELT |$template| 5 @@ -69,7 +69,7 @@ ((AND (CONSP |$NRTaddForm|) (EQ (QCAR |$NRTaddForm|) '|@Tuple|) (PROGN - (SPADLET |y| (QCDR |$NRTaddForm|)) + (setq |y| (QCDR |$NRTaddForm|)) 'T)) (NREVERSE |y|)) ('T @@ -101,18 +101,18 @@ (SEQ (COND ((AND (CONSP |item|) (EQ (QCAR |item|) '|domain|) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (setq |ISTMP#1| (QCDR |item|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |lhs| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |lhs| (QCAR |ISTMP#1|)) 'T)))) (|NRTencode| |lhs| |compItem|)) - ('T (SPADLET |op| (CAR |item|)) - (SPADLET |modemap| (CDR |item|)) - (SPADLET |dcSig| (CAR |modemap|)) - (SPADLET |kind| (CAR (CADADR |modemap|))) - (SPADLET |dc| (CAR |dcSig|)) - (SPADLET |sig| (CDR |dcSig|)) - (SPADLET |sig| (MSUBST '$ |dc| (MSUBST '$$ '$ |sig|))) - (SPADLET |dcCode| + ('T (setq |op| (CAR |item|)) + (setq |modemap| (CDR |item|)) + (setq |dcSig| (CAR |modemap|)) + (setq |kind| (CAR (CADADR |modemap|))) + (setq |dc| (CAR |dcSig|)) + (setq |sig| (CDR |dcSig|)) + (setq |sig| (MSUBST '$ |dc| (MSUBST '$$ '$ |sig|))) + (setq |dcCode| (COND ((BOOT-EQUAL |dc| '$) 0) ('T @@ -120,16 +120,16 @@ (|keyedSystemError| "Cannot find domain in template: %1s" (CONS |dc| NIL)))))) - (SPADLET |formalSig| + (setq |formalSig| (SUBLISLIS |$FormalMapVariableList| |$formalArgList| |sig|)) - (SPADLET |kindFlag| + (setq |kindFlag| (COND ((BOOT-EQUAL |kind| 'CONST) 'CONST) ('T NIL))) - (SPADLET |newSig| + (setq |newSig| (PROG (G166102) - (SPADLET G166102 NIL) + (setq G166102 NIL) (RETURN (DO ((G166107 |formalSig| (CDR G166107)) (|x| NIL)) @@ -155,7 +155,7 @@ (DECLARE (SPECIAL |$devaluateList|)) (RETURN (PROGN - (SPADLET |$devaluateList| NIL) + (setq |$devaluateList| NIL) (|NRTputInLocalReferences| |form|))))) ;NRTencode(x,y) == encode(x,y,true) where encode(x,compForm,firstTime) == @@ -183,7 +183,7 @@ (declare (special |$formalArgList| |$FormalMapVariableList|)) (RETURN (SEQ (IF (AND (NULL |firstTime|) - (SPADLET |k| (|NRTassocIndex| |x|))) + (setq |k| (|NRTassocIndex| |x|))) (EXIT |k|)) (IF (VECP |x|) (EXIT (|systemErrorHere| "NRTencode"))) @@ -192,33 +192,33 @@ (AND (CONSP |x|) (EQ (QCAR |x|) '|Union|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) '|:|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#3|)) - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#4|)) 'T))))))))))) (EXIT (CONS (QCAR |x|) (PROG (G166191) - (SPADLET G166191 NIL) + (setq G166191 NIL) (RETURN (DO ((G166199 (QCDR |x|) @@ -234,9 +234,9 @@ NIL) (PROGN (PROGN - (SPADLET |a| + (setq |a| (CADR G166173)) - (SPADLET |b| + (setq |b| (CADDR G166173)) G166173) NIL) @@ -251,7 +251,7 @@ ((EQUAL |a| (CADR G166177)) |a|)) - (SPADLET |c| + (setq |c| (CADDR G166177)) G166177) NIL)) @@ -272,7 +272,7 @@ '(|Union| |Mapping|))) (EXIT (CONS (QCAR |x|) (PROG (G166216) - (SPADLET G166216 NIL) + (setq G166216 NIL) (RETURN (DO ((G166222 (QCDR |x|) @@ -306,7 +306,7 @@ (|lispize| |compForm|))) NIL)))))) (IF (member |x| |$formalArgList|) - (EXIT (SEQ (SPADLET |v| + (EXIT (SEQ (setq |v| (ELT |$FormalMapVariableList| (POSN1 |x| |$formalArgList|))) (IF |firstTime| @@ -340,8 +340,8 @@ (SEQ (COND ((BOOT-EQUAL |form| '$) NIL) ((AND (IDENTP |form|) - (SPADLET |u| (|get| |form| '|value| |$e|))) - (SPADLET |u| (CAR |u|)) + (setq |u| (|get| |form| '|value| |$e|))) + (setq |u| (CAR |u|)) (COND ((member (KAR |u|) '(|Union| |Record|)) (|listOfBoundVars| |u|)) @@ -352,7 +352,7 @@ (|listOfBoundVars| (CADDR |form|))) ('T (PROG (G166254) - (SPADLET G166254 NIL) + (setq G166254 NIL) (RETURN (DO ((G166259 (CDR |form|) (CDR G166259)) (|x| NIL)) @@ -410,21 +410,21 @@ (SEQ (COND ((BOOT-EQUAL |$killOptimizeIfTrue| 'T) NIL) ('T - (SPADLET |ndc| + (setq |ndc| (COND ((BOOT-EQUAL |dc| '$) |$functorForm|) ((AND (ATOM |dc|) - (SPADLET |dcval| + (setq |dcval| (|get| |dc| '|value| |$e|))) (CAR |dcval|)) ('T |dc|))) - (SPADLET |sig| (MSUBST |ndc| |dc| |sig|)) + (setq |sig| (MSUBST |ndc| |dc| |sig|)) (COND ((NULL (member (KAR |ndc|) |$optimizableConstructorNames|)) NIL) - ('T (SPADLET |dcval| (|optCallEval| |ndc|)) - (SPADLET |sig| + ('T (setq |dcval| (|optCallEval| |ndc|)) + (setq |sig| (MSUBST (|devaluate| |dcval|) |ndc| |sig|)) (COND ((CDR |ndc|) @@ -438,14 +438,14 @@ (ATOM G166284) (PROGN (SETQ |old| (CAR G166284)) NIL)) NIL) - (SEQ (EXIT (SPADLET |sig| + (SEQ (EXIT (setq |sig| (MSUBST |new| |old| |sig|))))))) - (SPADLET |fn| (|compiledLookup| |op| |sig| |dcval|)) + (setq |fn| (|compiledLookup| |op| |sig| |dcval|)) (COND ((NULL |fn|) - (SPADLET |nsig| + (setq |nsig| (PROG (G166297) - (SPADLET G166297 NIL) + (setq G166297 NIL) (RETURN (DO ((G166302 |sig| (CDR G166302)) (|tt| NIL)) @@ -461,7 +461,7 @@ (|optDeltaEntry,quoteSelector| |tt|) G166297)))))))) - (SPADLET |fn| + (setq |fn| (|compiledLookup| |op| |nsig| |dcval|)) (COND ((NULL |fn|) (RETURN NIL)) ('T NIL)))) (COND @@ -524,13 +524,13 @@ |$NRTaddForm| |$profileCompiler|)) (RETURN (SEQ (PROGN - (SPADLET |odc| (CAADR |opMmPair|)) - (SPADLET |op| (CAR |opMmPair|)) - (SPADLET |dc| (CAADR |opMmPair|)) - (SPADLET |sig| (CDADR |opMmPair|)) - (SPADLET |cform| (CAR (CDADDR |opMmPair|))) - (SPADLET |eltOrConst| (CAAR (CDADDR |opMmPair|))) - (SPADLET |nsig| (CADDAR (CDADDR |opMmPair|))) + (setq |odc| (CAADR |opMmPair|)) + (setq |op| (CAR |opMmPair|)) + (setq |dc| (CAADR |opMmPair|)) + (setq |sig| (CDADR |opMmPair|)) + (setq |cform| (CAR (CDADDR |opMmPair|))) + (setq |eltOrConst| (CAAR (CDADDR |opMmPair|))) + (setq |nsig| (CADDAR (CDADDR |opMmPair|))) (COND ((BOOT-EQUAL |$profileCompiler| 'T) (|profileRecord| |dc| |op| |sig|))) @@ -539,17 +539,17 @@ ('T (COND ((BOOT-EQUAL |eltOrConst| '|Subsumed|) - (SPADLET |eltOrConst| 'ELT))) + (setq |eltOrConst| 'ELT))) (COND ((ATOM |dc|) (COND - ((BOOT-EQUAL |dc| '$) (SPADLET |nsig| |sig|)) + ((BOOT-EQUAL |dc| '$) (setq |nsig| |sig|)) ((NUMBERP |nsig|) - (SPADLET |nsig| + (setq |nsig| (MSUBST '$ |dc| (MSUBST '$$ '$ |sig|)))) ('T NIL)))) (COND - ((SPADLET |newimp| + ((setq |newimp| (|optDeltaEntry| |op| |nsig| |dc| |eltOrConst|)) |newimp|) @@ -566,15 +566,15 @@ (|consDomainForm| |dc| NIL) NIL)))) NIL))) - ('T (SPADLET |odc| |dc|) + ('T (setq |odc| |dc|) (COND ((NULL (ATOM |dc|)) - (SPADLET |dc| (MSUBST '$$ '$ |dc|)))) - (SPADLET |opModemapPair| + (setq |dc| (MSUBST '$$ '$ |dc|)))) + (setq |opModemapPair| (CONS |op| (CONS (CONS |dc| (PROG (G166339) - (SPADLET G166339 NIL) + (setq G166339 NIL) (RETURN (DO ((G166344 |nsig| @@ -600,20 +600,20 @@ (NEQUAL |dc| |$NRTaddForm|) (OR (|member| |dc| |$functorLocalParameters|) (NULL (ATOM |dc|)))) - (SPADLET |$NRTdeltaList| + (setq |$NRTdeltaList| (CONS (CONS '|domain| (CONS (|NRTaddInner| |dc|) |dc|)) |$NRTdeltaList|)) - (SPADLET |saveNRTdeltaListComp| - (SPADLET |$NRTdeltaListComp| + (setq |saveNRTdeltaListComp| + (setq |$NRTdeltaListComp| (CONS NIL |$NRTdeltaListComp|))) - (SPADLET |$NRTdeltaLength| + (setq |$NRTdeltaLength| (+ |$NRTdeltaLength| 1)) - (SPADLET |compEntry| + (setq |compEntry| (CAR (|compOrCroak| |odc| |$EmptyMode| |$e|))) (RPLACA |saveNRTdeltaListComp| |compEntry|))) - (SPADLET |u| + (setq |u| (CONS |eltOrConst| (CONS '$ (CONS @@ -621,19 +621,19 @@ (+ |$NRTbase| |$NRTdeltaLength|) (COND - ((SPADLET |n| + ((setq |n| (POSN1 |opModemapPair| |$NRTdeltaList|)) (+ |n| 1)) ('T - (SPADLET |$NRTdeltaList| + (setq |$NRTdeltaList| (CONS |opModemapPair| |$NRTdeltaList|)) - (SPADLET + (setq |$NRTdeltaListComp| (CONS NIL |$NRTdeltaListComp|)) - (SPADLET |$NRTdeltaLength| + (setq |$NRTdeltaLength| (+ |$NRTdeltaLength| 1)) 0))) @@ -655,13 +655,13 @@ (COND ((AND (CONSP |x|) (EQ (QCAR |x|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |y| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |y| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) - (PROGN (SPADLET |z| (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq |z| (QCAR |ISTMP#2|)) 'T)))))) (CONS '|:| (CONS |y| (CONS (|genDeltaSig| |z|) NIL)))) ('T (|genDeltaSig| |x|)))))) @@ -684,7 +684,7 @@ (declare (special |$FormalMapVariableList| |$Slot1DataBase|)) (RETURN (COND - ((SPADLET |u| (HGET |$Slot1DataBase| (CAR |domain|))) + ((setq |u| (HGET |$Slot1DataBase| (CAR |domain|))) (EQSUBSTLIST (CDR |domain|) |$FormalMapVariableList| (CAR |u|))) ('T (|systemErrorHere| "NRTgetAddForm")))))) @@ -709,17 +709,17 @@ |$functorForm| |$insideCategoryPackageIfTrue|)) (RETURN (SEQ (PROGN - (SPADLET |opSig| (CONS |op| (CONS |sig| NIL))) - (SPADLET |LETTMP#1| + (setq |opSig| (CONS |op| (CONS |sig| NIL))) + (setq |LETTMP#1| (OR (|NRTisExported?| |opSig|) (RETURN NIL))) - (SPADLET |implementation| (CADDR |LETTMP#1|)) + (setq |implementation| (CADDR |LETTMP#1|)) (COND (|$insideCategoryPackageIfTrue| - (SPADLET |sig| + (setq |sig| (MSUBST '$ (CADR |$functorForm|) |sig|)))) - (SPADLET |sig| + (setq |sig| (PROG (G166470) - (SPADLET G166470 NIL) + (setq G166470 NIL) (RETURN (DO ((G166475 |sig| (CDR G166475)) (|x| NIL)) @@ -731,7 +731,7 @@ (SEQ (EXIT (SETQ G166470 (CONS (|genDeltaSig| |x|) G166470)))))))) - (SPADLET |opModemapPair| + (setq |opModemapPair| (CONS |op| (CONS (CONS '$ |sig|) (CONS (CONS 'T @@ -740,11 +740,11 @@ (COND ((POSN1 |opModemapPair| |$NRTdeltaList|) NIL) ('T - (SPADLET |$NRTdeltaList| + (setq |$NRTdeltaList| (CONS |opModemapPair| |$NRTdeltaList|)) - (SPADLET |$NRTdeltaListComp| + (setq |$NRTdeltaListComp| (CONS NIL |$NRTdeltaListComp|)) - (SPADLET |$NRTdeltaLength| (+ |$NRTdeltaLength| 1))))))))) + (setq |$NRTdeltaLength| (+ |$NRTdeltaLength| 1))))))))) ;NRTisExported? opSig == ; or/[u for u in $domainShell.1 | u.0 = opSig] @@ -754,7 +754,7 @@ (declare (special |$domainShell|)) (RETURN (SEQ (PROG (G166494) - (SPADLET G166494 NIL) + (setq G166494 NIL) (RETURN (DO ((G166501 NIL G166494) (G166502 (ELT |$domainShell| 1) (CDR G166502)) @@ -788,7 +788,7 @@ (PROG () (RETURN (SEQ (PROG (G166521) - (SPADLET G166521 NIL) + (setq G166521 NIL) (RETURN (DO ((G166526 |sig| (CDR G166526)) (|sigpart| NIL)) ((OR (ATOM G166526) @@ -831,20 +831,20 @@ ((BOOT-EQUAL |x| '$$) (CONS '|devaluate| (CONS '$ NIL))) ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |argl| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |argl| (QCDR |x|)) 'T)) (COND ((OR (BOOT-EQUAL |op| '|Record|) (AND (BOOT-EQUAL |op| '|Union|) (CONSP |argl|) (PROGN - (SPADLET |ISTMP#1| (QCAR |argl|)) + (setq |ISTMP#1| (QCAR |argl|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|:|))))) (|mkList| (CONS (MKQ |op|) (PROG (G166553) - (SPADLET G166553 NIL) + (setq G166553 NIL) (RETURN (DO ((G166559 |argl| (CDR G166559)) (G166541 NIL)) @@ -854,9 +854,9 @@ NIL) (PROGN (PROGN - (SPADLET |tag| + (setq |tag| (CADR G166541)) - (SPADLET |dom| + (setq |dom| (CADDR G166541)) G166541) NIL)) @@ -877,7 +877,7 @@ (|mkList| (CONS (MKQ |op|) (PROG (G166570) - (SPADLET G166570 NIL) + (setq G166570 NIL) (RETURN (DO ((G166575 |argl| (CDR G166575)) (|y| NIL)) @@ -893,8 +893,8 @@ G166570)))))))))) ('T (MSUBST '$ '$$ |x|)))) ((NULL |x|) |x|) - ((SPADLET |y| (LASSOC |x| |$devaluateList|)) |y|) - ((SPADLET |k| (|NRTassocIndex| |x|)) + ((setq |y| (LASSOC |x| |$devaluateList|)) |y|) + ((setq |k| (|NRTassocIndex| |x|)) (CONS '|devaluate| (CONS (CONS 'ELT (CONS '$ (CONS |k| NIL))) NIL))) ((|get| |x| '|value| |$e|) @@ -923,18 +923,18 @@ ((BOOT-EQUAL |x| '$) '$) ((AND (CONSP |x|) (PROGN - (SPADLET |op| (QCAR |x|)) - (SPADLET |argl| (QCDR |x|)) + (setq |op| (QCAR |x|)) + (setq |argl| (QCDR |x|)) 'T)) (COND ((AND (BOOT-EQUAL |op| '|:|) (CONSP |argl|) (PROGN - (SPADLET |tag| (QCAR |argl|)) - (SPADLET |ISTMP#1| (QCDR |argl|)) + (setq |tag| (QCAR |argl|)) + (setq |ISTMP#1| (QCDR |argl|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |value| (QCAR |ISTMP#1|)) + (setq |value| (QCAR |ISTMP#1|)) 'T)))) (CONS |op| (CONS |tag| @@ -942,7 +942,7 @@ ('T (CONS |op| (PROG (G166611) - (SPADLET G166611 NIL) + (setq G166611 NIL) (RETURN (DO ((G166616 |argl| (CDR G166616)) (|y| NIL)) @@ -956,8 +956,8 @@ (|consDomainForm| |y| |dc|) G166611))))))))))) ((NULL |x|) |x|) - ((SPADLET |y| (LASSOC |x| |$devaluateList|)) |y|) - ((SPADLET |k| (|NRTassocIndex| |x|)) + ((setq |y| (LASSOC |x| |$devaluateList|)) |y|) + ((setq |k| (|NRTassocIndex| |x|)) (CONS 'ELT (CONS '$ (CONS |k| NIL)))) ((OR (|get| |x| '|value| |$e|) (|get| |x| '|mode| |$e|)) |x|) @@ -1131,39 +1131,39 @@ |$SetFunctions|)) (RETURN (SEQ (PROGN - (SPADLET |name| (CAR |$definition|)) - (SPADLET |args| (CDR |$definition|)) + (setq |name| (CAR |$definition|)) + (setq |args| (CDR |$definition|)) (COND ((AND (CONSP |code|) (EQ (QCAR |code|) '|add|) (PROGN - (SPADLET |ISTMP#1| (QCDR |code|)) + (setq |ISTMP#1| (QCDR |code|)) (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 |newstuff| + (setq |newstuff| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |code| |newstuff|))) + (setq |code| |newstuff|))) (|changeDirectoryInSlot1|) - (SPADLET $GENNO 0) - (SPADLET |$catvecList| NIL) - (SPADLET |$hasCategoryAlist| NIL) - (SPADLET |$catNames| NIL) - (SPADLET |$maximalViews| NIL) - (SPADLET |$catsig| NIL) - (SPADLET |$SetFunctions| NIL) - (SPADLET |$MissingFunctionInfo| NIL) - (SPADLET |$ConstantAssignments| NIL) - (SPADLET |$epilogue| NIL) - (SPADLET |$HackSlot4| NIL) - (SPADLET |$extraParms| NIL) - (SPADLET |$devaluateList| NIL) - (SPADLET |$devaluateList| + (setq $GENNO 0) + (setq |$catvecList| NIL) + (setq |$hasCategoryAlist| NIL) + (setq |$catNames| NIL) + (setq |$maximalViews| NIL) + (setq |$catsig| NIL) + (setq |$SetFunctions| NIL) + (setq |$MissingFunctionInfo| NIL) + (setq |$ConstantAssignments| NIL) + (setq |$epilogue| NIL) + (setq |$HackSlot4| NIL) + (setq |$extraParms| NIL) + (setq |$devaluateList| NIL) + (setq |$devaluateList| (PROG (G166745) - (SPADLET G166745 NIL) + (setq G166745 NIL) (RETURN (DO ((G166751 |args| (CDR G166751)) (|arg| NIL) @@ -1182,17 +1182,17 @@ (SEQ (EXIT (SETQ G166745 (CONS (CONS |arg| |b|) G166745)))))))) - (SPADLET |$supplementaries| NIL) - (SPADLET |$maximalViews| NIL) - (SPADLET |oldtime| (get-internal-run-time)) - (SPADLET |$catsig| (CAR |sig|)) - (SPADLET |argsig| (CDR |sig|)) - (SPADLET |catvecListMaker| + (setq |$supplementaries| NIL) + (setq |$maximalViews| NIL) + (setq |oldtime| (get-internal-run-time)) + (setq |$catsig| (CAR |sig|)) + (setq |argsig| (CDR |sig|)) + (setq |catvecListMaker| (REMDUP (CONS (CAR (|comp| |$catsig| |$EmptyMode| |$e|)) (PROG (G166765) - (SPADLET G166765 NIL) + (setq G166765 NIL) (RETURN (DO ((G166770 @@ -1212,25 +1212,25 @@ (|compCategories| (CAR |u|)) G166765)))))))))) - (SPADLET |condCats| + (setq |condCats| (|InvestigateConditions| (CONS |$catsig| (CDR |catvecListMaker|)))) - (SPADLET |makeCatvecCode| (CAR |catvecListMaker|)) - (SPADLET |emptyVector| (VECTOR)) - (SPADLET |domainShell| + (setq |makeCatvecCode| (CAR |catvecListMaker|)) + (setq |emptyVector| (VECTOR)) + (setq |domainShell| (make-array (+ 6 |$NRTdeltaLength|))) (DO ((|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) (SEQ (EXIT (SETELT |domainShell| |i| (ELT |$domainShell| |i|))))) - (SPADLET |$template| + (setq |$template| (COND ((BOOT-EQUAL |$NRTvec| 'T) (make-array (+ 6 |$NRTdeltaLength|))) ('T NIL))) - (SPADLET |$catvecList| + (setq |$catvecList| (CONS |domainShell| (PROG (G166786) - (SPADLET G166786 NIL) + (setq G166786 NIL) (RETURN (DO ((G166791 (CADR (ELT |domainShell| 4)) @@ -1244,15 +1244,15 @@ (SEQ (EXIT (SETQ G166786 (CONS |emptyVector| G166786))))))))) - (SPADLET |$catNames| (CONS '$ NIL)) - (SPADLET |$maximalViews| NIL) - (SPADLET |$SetFunctions| (make-array (SIZE |domainShell|))) - (SPADLET |$MissingFunctionInfo| + (setq |$catNames| (CONS '$ NIL)) + (setq |$maximalViews| NIL) + (setq |$SetFunctions| (make-array (SIZE |domainShell|))) + (setq |$MissingFunctionInfo| (make-array (SIZE |domainShell|))) - (SPADLET |$catNames| + (setq |$catNames| (CONS '$ (PROG (G166801) - (SPADLET G166801 NIL) + (setq G166801 NIL) (RETURN (DO ((G166806 (CDR |catvecListMaker|) (CDR G166806)) @@ -1265,33 +1265,33 @@ (SEQ (EXIT (SETQ G166801 (CONS (GENVAR) G166801))))))))) - (SPADLET |domname| '|dv$|) - (SPADLET |LETTMP#1| + (setq |domname| '|dv$|) + (setq |LETTMP#1| (|NRTsetVector4Part1| |$catNames| |catvecListMaker| |condCats|)) - (SPADLET |$uncondAlist| (CAR |LETTMP#1|)) - (SPADLET |$condAlist| (CDR |LETTMP#1|)) - (SPADLET |LETTMP#1| + (setq |$uncondAlist| (CAR |LETTMP#1|)) + (setq |$condAlist| (CDR |LETTMP#1|)) + (setq |LETTMP#1| (|makePredicateBitVector| (APPEND (ASSOCRIGHT |$condAlist|) |$NRTslot1PredicateList|))) - (SPADLET |$NRTslot1PredicateList| (CAR |LETTMP#1|)) - (SPADLET |predBitVectorCode1| (CADR |LETTMP#1|)) - (SPADLET |predBitVectorCode2| (CDDR |LETTMP#1|)) - (SPADLET |storeOperationCode| + (setq |$NRTslot1PredicateList| (CAR |LETTMP#1|)) + (setq |predBitVectorCode1| (CADR |LETTMP#1|)) + (setq |predBitVectorCode2| (CDDR |LETTMP#1|)) + (setq |storeOperationCode| (|DescendCode| |code| 'T NIL (CAR |$catNames|))) - (SPADLET |outsideFunctionCode| (|NRTaddDeltaCode|)) - (SPADLET |storeOperationCode| + (setq |outsideFunctionCode| (|NRTaddDeltaCode|)) + (setq |storeOperationCode| (|NRTputInLocalReferences| |storeOperationCode|)) (COND ((BOOT-EQUAL |$NRTvec| 'T) (|NRTdescendCodeTran| |storeOperationCode| NIL))) - (SPADLET |codePart2| + (setq |codePart2| (COND ((BOOT-EQUAL |$NRTvec| 'T) - (SPADLET |argStuffCode| + (setq |argStuffCode| (PROG (G166818) - (SPADLET G166818 NIL) + (setq G166818 NIL) (RETURN (DO ((|i| 6 (+ |i| 1)) @@ -1321,10 +1321,10 @@ G166818)))))))) (COND ((member |$NRTaddForm| |$locals|) - (SPADLET |addargname| + (setq |addargname| (ELT |$FormalMapVariableList| (POSN1 |$NRTaddForm| |$locals|))) - (SPADLET |argStuffCode| + (setq |argStuffCode| (CONS (CONS |$setelt| (CONS '$ @@ -1338,11 +1338,11 @@ ('T (APPEND |outsideFunctionCode| (CONS |storeOperationCode| NIL))))) - (SPADLET |$CheckVectorList| + (setq |$CheckVectorList| (|NRTcheckVector| |domainShell|)) - (SPADLET |devaluateCode| + (setq |devaluateCode| (PROG (G166840) - (SPADLET G166840 NIL) + (setq G166840 NIL) (RETURN (DO ((G166846 |$devaluateList| (CDR G166846)) @@ -1353,8 +1353,8 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G166666)) - (SPADLET |b| (CDR G166666)) + (setq |a| (CAR G166666)) + (setq |b| (CDR G166666)) G166666) NIL)) (NREVERSE0 G166840)) @@ -1367,9 +1367,9 @@ (CONS |a| NIL)) NIL))) G166840)))))))) - (SPADLET |domainFormCode| + (setq |domainFormCode| (PROG (G166858) - (SPADLET G166858 NIL) + (setq G166858 NIL) (RETURN (DO ((G166864 (NREVERSE |$NRTdomainFormList|) @@ -1381,8 +1381,8 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G166670)) - (SPADLET |b| (CDR G166670)) + (setq |a| (CAR G166670)) + (setq |b| (CDR G166670)) G166670) NIL)) (NREVERSE0 G166858)) @@ -1391,7 +1391,7 @@ (CONS 'LET (CONS |a| (CONS |b| NIL))) G166858)))))))) - (SPADLET |createDomainCode| + (setq |createDomainCode| (CONS 'LET (CONS |domname| (CONS (CONS 'LIST @@ -1399,7 +1399,7 @@ (MKQ (CAR |$definition|)) (ASSOCRIGHT |$devaluateList|))) NIL)))) - (SPADLET |createViewCode| + (setq |createViewCode| (CONS 'LET (CONS '$ (CONS (CONS 'make-array @@ -1407,10 +1407,10 @@ (+ 6 |$NRTdeltaLength|) NIL)) NIL)))) - (SPADLET |setVector0Code| + (setq |setVector0Code| (CONS |$setelt| (CONS '$ (CONS 0 (CONS '|dv$| NIL))))) - (SPADLET |slot3Code| + (setq |slot3Code| (CONS 'QSETREFV (CONS '$ (CONS 3 @@ -1420,23 +1420,23 @@ (CONS |predBitVectorCode1| NIL))) NIL))))) - (SPADLET |slamCode| + (setq |slamCode| (COND ((|isCategoryPackageName| (|opOf| |$definition|)) NIL) ('T (CONS (|NRTaddToSlam| |$definition| '$) NIL)))) - (SPADLET |codePart1| + (setq |codePart1| (APPEND |devaluateCode| (APPEND |domainFormCode| (CONS |createDomainCode| (CONS |createViewCode| (CONS |setVector0Code| (CONS |slot3Code| |slamCode|))))))) - (SPADLET |$ConstantAssignments| + (setq |$ConstantAssignments| (PROG (G166875) - (SPADLET G166875 NIL) + (setq G166875 NIL) (RETURN (DO ((G166880 |$ConstantAssignments| (CDR G166880)) @@ -1451,27 +1451,27 @@ (|NRTputInLocalReferences| |code|) G166875)))))))) - (SPADLET |constantCode1| + (setq |constantCode1| (COND ((BOOT-EQUAL |name| '|Integer|) |$ConstantAssignments|) ('T NIL))) - (SPADLET |constantCode2| + (setq |constantCode2| (COND ((BOOT-EQUAL |name| '|Integer|) NIL) ('T |$ConstantAssignments|))) - (SPADLET |epilogue| |$epilogue|) - (SPADLET |codePart3| + (setq |epilogue| |$epilogue|) + (setq |codePart3| (APPEND |constantCode1| (APPEND |constantCode2| |epilogue|))) - (SPADLET |ans| + (setq |ans| (CONS 'PROGN (APPEND (|optFunctorPROGN| (APPEND |codePart1| (APPEND |codePart2| |codePart3|))) (CONS '$ NIL)))) - (SPADLET |$getDomainCode| NIL) - (SPADLET |ans| (|minimalise| |ans|)) + (setq |$getDomainCode| NIL) + (setq |ans| (|minimalise| |ans|)) (SAY (CONS "time taken in buildFunctor: " (CONS (SPADDIFFERENCE (get-internal-run-time) |oldtime|) NIL))) @@ -1501,12 +1501,12 @@ (declare (special |$SetFunctions|)) (RETURN (SEQ (PROGN - (SPADLET |alist| NIL) + (setq |alist| NIL) (DO ((G167008 (MAXINDEX |domainShell|)) (|i| 6 (+ |i| 1))) ((> |i| G167008) NIL) (SEQ (EXIT (PROGN - (SPADLET |v| (ELT |domainShell| |i|)) + (setq |v| (ELT |domainShell| |i|)) (COND ((BOOT-EQUAL |v| 'T) NIL) ((NULL |v|) NIL) @@ -1516,7 +1516,7 @@ "CheckVector")) ((|assoc| (CAR |v|) |alist|) NIL) ('T - (SPADLET |alist| + (setq |alist| (CONS (CONS (CAR |v|) (ELT |$SetFunctions| |i|)) @@ -1564,9 +1564,9 @@ |$lisplibCategoriesExtended|)) (RETURN (SEQ (PROGN - (SPADLET |$uncondList| NIL) - (SPADLET |$condList| NIL) - (SPADLET |$count| 0) + (setq |$uncondList| NIL) + (setq |$condList| NIL) + (setq |$count| 0) (DO ((G167035 (REVERSE |siglist|) (CDR G167035)) (|sig| NIL) (G167036 (REVERSE |formlist|) (CDR G167036)) @@ -1581,15 +1581,15 @@ (PROGN (SETQ |cond| (CAR G167037)) NIL)) NIL) (SEQ (EXIT (|NRTsetVector4a| |sig| |form| |cond|)))) - (SPADLET |$lisplibCategoriesExtended| + (setq |$lisplibCategoriesExtended| (CONS |$uncondList| |$condList|)) - (SPADLET |code| + (setq |code| (CONS '|mapConsDB| (CONS (MKQ (REVERSE (REMDUP |$uncondList|))) NIL))) (COND - (|$condList| (SPADLET |localVariable| (GENSYM)) - (SPADLET |code| + (|$condList| (setq |localVariable| (GENSYM)) + (setq |code| (CONS (CONS 'LET (CONS |localVariable| (CONS |code| NIL))) @@ -1602,12 +1602,12 @@ NIL) (PROGN (PROGN - (SPADLET |pred| (CAR G167024)) - (SPADLET LIST (CADR G167024)) + (setq |pred| (CAR G167024)) + (setq LIST (CADR G167024)) G167024) NIL)) NIL) - (SEQ (EXIT (SPADLET |code| + (SEQ (EXIT (setq |code| (CONS (CONS 'COND (CONS @@ -1628,14 +1628,14 @@ NIL)) NIL)) |code|))))) - (SPADLET |code| + (setq |code| (CONS 'PROGN (NREVERSE (CONS (CONS 'NREVERSE (CONS |localVariable| NIL)) |code|)))))) - (SPADLET |g| (GENSYM)) + (setq |g| (GENSYM)) (CONS |$setelt| (CONS '$ (CONS 4 @@ -1673,9 +1673,9 @@ (DECLARE (SPECIAL |$uncondList| |$condList| |$count|)) (RETURN (SEQ (PROGN - (SPADLET |$uncondList| NIL) - (SPADLET |$condList| NIL) - (SPADLET |$count| 0) + (setq |$uncondList| NIL) + (setq |$condList| NIL) + (setq |$count| 0) (DO ((G167095 (REVERSE |siglist|) (CDR G167095)) (|sig| NIL) (G167096 (REVERSE |formlist|) (CDR G167096)) @@ -1690,10 +1690,10 @@ (PROGN (SETQ |cond| (CAR G167097)) NIL)) NIL) (SEQ (EXIT (|NRTsetVector4a| |sig| |form| |cond|)))) - (SPADLET |reducedUncondlist| (REMDUP |$uncondList|)) - (SPADLET |reducedConlist| + (setq |reducedUncondlist| (REMDUP |$uncondList|)) + (setq |reducedConlist| (PROG (G167115) - (SPADLET G167115 NIL) + (setq G167115 NIL) (RETURN (DO ((G167122 |$condList| (CDR G167122)) (G167081 NIL)) @@ -1703,23 +1703,23 @@ NIL) (PROGN (PROGN - (SPADLET |x| (CAR G167081)) - (SPADLET |z| (CADR G167081)) + (setq |x| (CAR G167081)) + (setq |z| (CADR G167081)) G167081) NIL)) (NREVERSE0 G167115)) (SEQ (EXIT (COND - ((SPADLET |y| + ((setq |y| (SETDIFFERENCE |z| |reducedUncondlist|)) (SETQ G167115 (CONS (CONS |x| |y|) G167115)))))))))) - (SPADLET |revCondlist| + (setq |revCondlist| (|reverseCondlist| |reducedConlist|)) - (SPADLET |orCondlist| + (setq |orCondlist| (PROG (G167134) - (SPADLET G167134 NIL) + (setq G167134 NIL) (RETURN (DO ((G167140 |revCondlist| (CDR G167140)) @@ -1730,8 +1730,8 @@ NIL) (PROGN (PROGN - (SPADLET |x| (CAR G167085)) - (SPADLET |y| (CDR G167085)) + (setq |x| (CAR G167085)) + (setq |y| (CDR G167085)) G167085) NIL)) (NREVERSE0 G167134)) @@ -1755,14 +1755,14 @@ (PROG (|x| |y| |u| |alist|) (RETURN (SEQ (PROGN - (SPADLET |alist| NIL) + (setq |alist| NIL) (DO ((G167182 |cl| (CDR G167182)) (G167171 NIL)) ((OR (ATOM G167182) (PROGN (SETQ G167171 (CAR G167182)) NIL) (PROGN (PROGN - (SPADLET |x| (CAR G167171)) - (SPADLET |y| (CDR G167171)) + (setq |x| (CAR G167171)) + (setq |y| (CDR G167171)) G167171) NIL)) NIL) @@ -1774,11 +1774,11 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |u| + (setq |u| (|assoc| |z| |alist|)) (COND ((NULL |u|) - (SPADLET |alist| + (setq |alist| (CONS (CONS |z| (CONS |x| NIL)) |alist|))) @@ -1810,15 +1810,15 @@ (declare (special |$setelt| |$pairlis| |$lisplibCategoriesExtended|)) (RETURN (SEQ (PROGN - (SPADLET |$lisplibCategoriesExtended| + (setq |$lisplibCategoriesExtended| (CONS |uncondList| |condList|)) - (SPADLET |code| + (setq |code| (CONS '|mapConsDB| (CONS (MKQ (REVERSE (REMDUP |uncondList|))) NIL))) (COND - (|condList| (SPADLET |localVariable| (GENSYM)) - (SPADLET |code| + (|condList| (setq |localVariable| (GENSYM)) + (setq |code| (CONS (CONS 'LET (CONS |localVariable| (CONS |code| NIL))) @@ -1831,12 +1831,12 @@ NIL) (PROGN (PROGN - (SPADLET |pred| (CAR G167208)) - (SPADLET LIST (CADR G167208)) + (setq |pred| (CAR G167208)) + (setq LIST (CADR G167208)) G167208) NIL)) NIL) - (SEQ (EXIT (SPADLET |code| + (SEQ (EXIT (setq |code| (CONS (CONS 'COND (CONS @@ -1860,14 +1860,14 @@ NIL)) NIL)) |code|))))) - (SPADLET |code| + (setq |code| (CONS 'PROGN (NREVERSE (CONS (CONS 'NREVERSE (CONS |localVariable| NIL)) |code|)))))) - (SPADLET |g| (GENSYM)) + (setq |g| (GENSYM)) (CONS |$setelt| (CONS '$ (CONS 4 @@ -1913,17 +1913,17 @@ (PROG (|op| |argl| |newOp|) (RETURN (SEQ (PROGN - (SPADLET |op| (CAR G167242)) - (SPADLET |argl| (CDR G167242)) + (setq |op| (CAR G167242)) + (setq |argl| (CDR G167242)) G167242 - (SEQ (SPADLET |newOp| (INTERN (STRCONC (PNAME |op|) '&))) + (SEQ (setq |newOp| (INTERN (STRCONC (PNAME |op|) '&))) (EXIT (|addConsDB| (CONS |newOp| (CONS '$ |argl|)))))))))) (DEFUN |catList2catPackageList| (|u|) (PROG () (RETURN (SEQ (PROG (G167262) - (SPADLET G167262 NIL) + (setq G167262 NIL) (RETURN (DO ((G167267 |u| (CDR G167267)) (|x| NIL)) ((OR (ATOM G167267) @@ -1952,9 +1952,9 @@ (RETURN (SEQ (COND ((BOOT-EQUAL |sig| '$) - (SPADLET |domainList| + (setq |domainList| (PROG (G167283) - (SPADLET G167283 NIL) + (setq G167283 NIL) (RETURN (DO ((G167288 (ELT (ELT |$domainShell| 4) 0) @@ -1975,23 +1975,23 @@ |$e|)))) |d|) G167283)))))))) - (SPADLET |$uncondList| + (setq |$uncondList| (APPEND |domainList| |$uncondList|)) (COND ((|isCategoryForm| |form| |$e|) - (SPADLET |$uncondList| (CONS |form| |$uncondList|)))) + (setq |$uncondList| (CONS |form| |$uncondList|)))) |$uncondList|) ('T - (SPADLET |evalform| + (setq |evalform| (|eval| (|mkEvalableCategoryForm| |form|))) (COND ((BOOT-EQUAL |cond| 'T) - (SPADLET |$uncondList| + (setq |$uncondList| (CONS |form| (APPEND (ELT (ELT |evalform| 4) 0) |$uncondList|)))) ('T - (SPADLET |$condList| + (setq |$condList| (CONS (CONS |cond| (CONS (CONS |form| @@ -2012,10 +2012,10 @@ (declare (special |$QuickCode| |$NRTmakeCompactDirect| |$definition|)) (RETURN (PROGN - (SPADLET |opDirectName| + (setq |opDirectName| (INTERN (STRCONC (PNAME (CAR |$definition|)) ";opDirect"))) - (SPADLET |fun| + (setq |fun| (COND (|$NRTmakeCompactDirect| '(function |lookupInCompactTable|)) @@ -2055,26 +2055,26 @@ |$insideCategoryPackageIfTrue| |$NRTderivedTargetIfTrue|)) (RETURN (PROGN - (SPADLET |pairlis| + (setq |pairlis| (COND ((BOOT-EQUAL |$insideCategoryPackageIfTrue| 'T) - (SPADLET |LETTMP#1| (CDR |$form|)) - (SPADLET |LETTMP#2| (REVERSE |LETTMP#1|)) - (SPADLET |dollarName| (CAR |LETTMP#2|)) - (SPADLET |argl| (NREVERSE (CDR |LETTMP#2|))) + (setq |LETTMP#1| (CDR |$form|)) + (setq |LETTMP#2| (REVERSE |LETTMP#1|)) + (setq |dollarName| (CAR |LETTMP#2|)) + (setq |argl| (NREVERSE (CDR |LETTMP#2|))) (CONS (CONS |dollarName| '$) (|mkSlot1sublis| |argl|))) ('T (|mkSlot1sublis| (CDR |$form|))))) - (SPADLET |$lisplibOpAlist| + (setq |$lisplibOpAlist| (|transformOperationAlist| (SUBLIS |pairlis| (ELT |$domainShell| 1)))) - (SPADLET |opList| + (setq |opList| (COND (|$NRTderivedTargetIfTrue| '|derived|) ((BOOT-EQUAL |$insideCategoryPackageIfTrue| 'T) (|slot1Filter| |$lisplibOpAlist|)) ('T |$lisplibOpAlist|))) - (SPADLET |addList| (SUBLIS |pairlis| |$NRTaddForm|)) + (setq |addList| (SUBLIS |pairlis| |$NRTaddForm|)) (CONS (CAR |$form|) (CONS (CONS |addList| |opList|) NIL)))))) ;mkSlot1sublis argl == @@ -2085,7 +2085,7 @@ (declare (special |$FormalMapVariableList|)) (RETURN (SEQ (PROG (G167341) - (SPADLET G167341 NIL) + (setq G167341 NIL) (RETURN (DO ((G167347 |argl| (CDR G167347)) (|a| NIL) (G167348 |$FormalMapVariableList| @@ -2110,12 +2110,12 @@ (PROG (|op| |l| |u|) (RETURN (SEQ (PROGN - (SPADLET |op| (CAR G167362)) - (SPADLET |l| (CDR G167362)) + (setq |op| (CAR G167362)) + (setq |l| (CDR G167362)) G167362 - (SEQ (IF (SPADLET |u| + (SEQ (IF (setq |u| (PROG (G167376) - (SPADLET G167376 NIL) + (setq G167376 NIL) (RETURN (DO ((G167382 |l| (CDR G167382)) @@ -2138,14 +2138,14 @@ (PROG (|u|) (RETURN (SEQ (PROG (G167401) - (SPADLET G167401 NIL) + (setq G167401 NIL) (RETURN (DO ((G167407 |opList| (CDR G167407)) (|x| NIL)) ((OR (ATOM G167407) (PROGN (SETQ |x| (CAR G167407)) NIL)) (NREVERSE0 G167401)) (SEQ (EXIT (COND - ((SPADLET |u| (|slot1Filter,fn| |x|)) + ((setq |u| (|slot1Filter,fn| |x|)) (SETQ G167401 (CONS |u| G167401))))))))))))) ;NRToptimizeHas u == @@ -2167,15 +2167,15 @@ (COND ((AND (CONSP |u|) (PROGN - (SPADLET |a| (QCAR |u|)) - (SPADLET |b| (QCDR |u|)) + (setq |a| (QCAR |u|)) + (setq |b| (QCDR |u|)) 'T)) (COND ((BOOT-EQUAL |a| '|HasCategory|) (OR (LASSOC |u| |$hasCategoryAlist|) (PROGN - (SPADLET |$hasCategoryAlist| - (CONS (CONS |u| (SPADLET |y| (GENSYM))) + (setq |$hasCategoryAlist| + (CONS (CONS |u| (setq |y| (GENSYM))) |$hasCategoryAlist|)) |y|))) ((BOOT-EQUAL |a| '|has|) @@ -2197,14 +2197,14 @@ (declare (special |$devaluateList| |$mutableDomain|)) (RETURN (PROGN - (SPADLET |name| (CAR G167432)) - (SPADLET |argnames| (CDR G167432)) + (setq |name| (CAR G167432)) + (setq |argnames| (CDR G167432)) (COND (|$mutableDomain| (RETURN NIL)) ((NULL |argnames|) (|addToConstructorCache| |name| NIL |shell|)) ('T - (SPADLET |args| (CONS 'LIST (ASSOCRIGHT |$devaluateList|))) + (setq |args| (CONS 'LIST (ASSOCRIGHT |$devaluateList|))) (|addToConstructorCache| |name| |args| |shell|))))))) ;changeDirectoryInSlot1() == --called by NRTbuildFunctor @@ -2243,28 +2243,28 @@ |$NRTslot1PredicateList|)) (RETURN (SEQ (PROGN - (SPADLET |opsig| (CAR G167459)) - (SPADLET |pred| (CADR G167459)) - (SPADLET |fnsel| (CADDR G167459)) + (setq |opsig| (CAR G167459)) + (setq |pred| (CADR G167459)) + (setq |fnsel| (CADDR G167459)) G167459 (SEQ (IF (NEQUAL |pred| 'T) - (SEQ (SPADLET |pred| (|simpBool| |pred|)) - (EXIT (SPADLET |$NRTslot1PredicateList| + (SEQ (setq |pred| (|simpBool| |pred|)) + (EXIT (setq |$NRTslot1PredicateList| (|insert| |pred| |$NRTslot1PredicateList|)))) NIL) (IF (AND (AND (CONSP |fnsel|) (PROGN - (SPADLET |op| (QCAR |fnsel|)) - (SPADLET |ISTMP#1| (QCDR |fnsel|)) + (setq |op| (QCAR |fnsel|)) + (setq |ISTMP#1| (QCDR |fnsel|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| (QCAR |ISTMP#1|)) + (setq |a| (QCAR |ISTMP#1|)) 'T)))) (OR (BOOT-EQUAL |op| 'ELT) (BOOT-EQUAL |op| 'CONST))) (EXIT (SEQ (IF |$insideCategoryPackageIfTrue| - (SPADLET |opsig| + (setq |opsig| (MSUBST '$ (CADR |$functorForm|) |opsig|)) NIL) @@ -2287,32 +2287,32 @@ (declare (special |$newEnv| |$lastPred| |$e|)) (RETURN (SEQ (PROGN - (SPADLET |op| (CAAR G167507)) - (SPADLET |sig| (CADAR G167507)) - (SPADLET |pred| (CADR G167507)) - (SPADLET |fnsel| (CADDR G167507)) + (setq |op| (CAAR G167507)) + (setq |sig| (CADAR G167507)) + (setq |pred| (CADR G167507)) + (setq |fnsel| (CADDR G167507)) G167507 (SEQ (IF (NEQUAL |$lastPred| |pred|) - (SEQ (SPADLET |$newEnv| + (SEQ (setq |$newEnv| (|deepChaseInferences| |pred| |$e|)) - (EXIT (SPADLET |$lastPred| |pred|))) + (EXIT (setq |$lastPred| |pred|))) NIL) - (SPADLET |newfnsel| + (setq |newfnsel| (SEQ (IF (AND (CONSP |fnsel|) (EQ (QCAR |fnsel|) '|Subsumed|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |fnsel|)) (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) (PROGN - (SPADLET |sig1| + (setq |sig1| (QCAR |ISTMP#2|)) 'T)))))) (EXIT @@ -2336,9 +2336,9 @@ |$lisplibOperationAlist|)) (RETURN (SEQ (PROGN - (SPADLET |$lisplibOperationAlist| + (setq |$lisplibOperationAlist| (PROG (G167547) - (SPADLET G167547 NIL) + (setq G167547 NIL) (RETURN (DO ((G167552 (ELT |$domainShell| 1) (CDR G167552)) @@ -2353,15 +2353,15 @@ (|changeDirectoryInSlot1,sigloc| |entry|) G167547)))))))) - (SPADLET |sortedOplist| + (setq |sortedOplist| (|listSort| #'GLESSEQP (COPY-LIST |$lisplibOperationAlist|) #'CADR)) - (SPADLET |$lastPred| NIL) - (SPADLET |$newEnv| |$e|) + (setq |$lastPred| NIL) + (setq |$newEnv| |$e|) (SETELT |$domainShell| 1 (PROG (G167562) - (SPADLET G167562 NIL) + (setq G167562 NIL) (RETURN (DO ((G167567 |sortedOplist| (CDR G167567)) @@ -2385,7 +2385,7 @@ (PROG () (RETURN (SEQ (PROG (G167590) - (SPADLET G167590 NIL) + (setq G167590 NIL) (RETURN (DO ((G167595 |sig| (CDR G167595)) (|t| NIL)) ((OR (ATOM G167595) @@ -2409,29 +2409,29 @@ (RETURN (SEQ (COND ((OR (AND (CONSP |pred|) (EQ (QCAR |pred|) 'AND) - (PROGN (SPADLET |preds| (QCDR |pred|)) 'T)) + (PROGN (setq |preds| (QCDR |pred|)) 'T)) (AND (CONSP |pred|) (EQ (QCAR |pred|) '|and|) - (PROGN (SPADLET |preds| (QCDR |pred|)) 'T))) + (PROGN (setq |preds| (QCDR |pred|)) 'T))) (DO ((G167619 |preds| (CDR G167619)) (|p| NIL)) ((OR (ATOM G167619) (PROGN (SETQ |p| (CAR G167619)) NIL)) NIL) - (SEQ (EXIT (SPADLET |$e| + (SEQ (EXIT (setq |$e| (|deepChaseInferences| |p| |$e|))))) |$e|) ((OR (AND (CONSP |pred|) (EQ (QCAR |pred|) 'OR) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |pred1| (QCAR |ISTMP#1|)) + (setq |pred1| (QCAR |ISTMP#1|)) 'T)))) (AND (CONSP |pred|) (EQ (QCAR |pred|) '|or|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |pred1| (QCAR |ISTMP#1|)) + (setq |pred1| (QCAR |ISTMP#1|)) 'T))))) (|deepChaseInferences| |pred1| |$e|)) ((OR (EQ |pred| 'T) @@ -2451,9 +2451,9 @@ (declare (special |$NRTdeltaLength| |$NRTdeltaList|)) (RETURN (SEQ (PROGN - (SPADLET |u| + (setq |u| (PROG (G167647) - (SPADLET G167647 NIL) + (setq G167647 NIL) (RETURN (DO ((G167655 NIL G167647) (|i| 1 (QSADD1 |i|)) @@ -2469,17 +2469,17 @@ ((AND (CONSP |u|) (EQUAL (QCAR |u|) |op|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQUAL (QCAR |ISTMP#2|) '$) (PROGN - (SPADLET |xsig| + (setq |xsig| (QCDR |ISTMP#2|)) 'T))))) (BOOT-EQUAL |sig| @@ -2514,7 +2514,7 @@ (IF (EQL |t| 0) (EXIT '$)) (IF (EQL |t| 2) (EXIT '$$)) (IF (EQL |t| 5) (EXIT |$NRTaddForm|)) - (SPADLET |u| + (setq |u| (ELT |$NRTdeltaList| (SPADDIFFERENCE (+ |$NRTdeltaLength| 5) |t|))) @@ -2524,7 +2524,7 @@ (IF (member (CAR |t|) '(|Mapping| |Union| |Record| |:|)) (EXIT (CONS (CAR |t|) (PROG (G167677) - (SPADLET G167677 NIL) + (setq G167677 NIL) (RETURN (DO ((G167682 (CDR |t|) (CDR G167682)) @@ -2545,9 +2545,9 @@ (DEFUN |NRTsubstDelta| (|initSig|) (PROG (|sig|) (RETURN - (SEQ (SPADLET |sig| + (SEQ (setq |sig| (PROG (G167698) - (SPADLET G167698 NIL) + (setq G167698 NIL) (RETURN (DO ((G167703 |initSig| (CDR G167703)) (|s| NIL)) @@ -2570,8 +2570,8 @@ (declare (special |$Slot1DataBase|)) (RETURN (PROGN - (SPADLET |name| (CAR G167714)) - (SPADLET |info| (CADR G167714)) + (setq |name| (CAR G167714)) + (setq |info| (CADR G167714)) (HPUT |$Slot1DataBase| |name| |info|))))) ;NRTputInLocalReferences bod == @@ -2583,7 +2583,7 @@ (DECLARE (SPECIAL |$elt| |$QuickCode|)) (RETURN (PROGN - (SPADLET |$elt| (COND (|$QuickCode| 'QREFELT) ('T 'ELT))) + (setq |$elt| (COND (|$QuickCode| 'QREFELT) ('T 'ELT))) (|NRTputInHead| |bod|))))) \end{chunk} diff --git a/src/interp/nrunfast.lisp.pamphlet b/src/interp/nrunfast.lisp.pamphlet index dcb0231..b81f9c3 100644 --- a/src/interp/nrunfast.lisp.pamphlet +++ b/src/interp/nrunfast.lisp.pamphlet @@ -34,14 +34,14 @@ |$monitorNewWorld| |$spadLibFT| |$NRTmonitorIfTrue| |$updateCatTableIfTrue| |$doNotCompressHashTableIfTrue|)) (PROGN - (SPADLET |$NRTflag| 'T) - (SPADLET |$NRTvec| 'T) - (SPADLET |$NRTmakeCompactDirect| 'T) - (SPADLET |$monitorNewWorld| NIL) - (SPADLET |$spadLibFT| '|nrlib|) - (SPADLET |$NRTmonitorIfTrue| NIL) - (SPADLET |$updateCatTableIfTrue| NIL) - (SPADLET |$doNotCompressHashTableIfTrue| 'T))) + (setq |$NRTflag| 'T) + (setq |$NRTvec| 'T) + (setq |$NRTmakeCompactDirect| 'T) + (setq |$monitorNewWorld| NIL) + (setq |$spadLibFT| '|nrlib|) + (setq |$NRTmonitorIfTrue| NIL) + (setq |$updateCatTableIfTrue| NIL) + (setq |$doNotCompressHashTableIfTrue| 'T))) ;isNewWorldDomain domain == INTEGERP domain.3 --see HasCategory/Attribute @@ -66,7 +66,7 @@ (PROG (|res|) (RETURN (SEQ (PROGN - (SPADLET |res| NIL) + (setq |res| NIL) (COND ((|hashCode?| |op|) (SEQ (DO ((|i| 0 (+ |i| 2))) ((> |i| |max|) NIL) @@ -77,7 +77,7 @@ |op|) (EXIT (RETURN - (SPADLET |res| (QSADD1 |i|))))))))) + (setq |res| (QSADD1 |i|))))))))) (EXIT |res|))) ('T (SEQ (DO ((|i| 0 (+ |i| 2))) ((> |i| |max|) NIL) @@ -85,7 +85,7 @@ ((EQ (QVELT |vec| |i|) |op|) (EXIT (RETURN - (SPADLET |res| (QSADD1 |i|))))))))) + (setq |res| (QSADD1 |i|))))))))) (EXIT |res|))))))))) ;--======================================================= @@ -101,10 +101,10 @@ (PROG (|LETTMP#1| |env| |arglist| |slot|) (RETURN (PROGN - (SPADLET |LETTMP#1| (REVERSE |l|)) - (SPADLET |env| (CAR |LETTMP#1|)) - (SPADLET |arglist| (NREVERSE (CDR |LETTMP#1|))) - (SPADLET |slot| (|replaceGoGetSlot| |env|)) + (setq |LETTMP#1| (REVERSE |l|)) + (setq |env| (CAR |LETTMP#1|)) + (setq |arglist| (NREVERSE (CDR |LETTMP#1|))) + (setq |slot| (|replaceGoGetSlot| |env|)) (APPLY (CAR |slot|) (APPEND |arglist| (CONS (CDR |slot|) NIL))))))) ;replaceGoGetSlot env == @@ -146,28 +146,28 @@ (declare (special |$monitorNewWorld| |$returnNowhereFromGoGet|)) (RETURN (SEQ (PROGN - (SPADLET |thisDomain| (CAR |env|)) - (SPADLET |index| (CADR |env|)) - (SPADLET |op| (CDDR |env|)) - (SPADLET |thisDomainForm| (|devaluate| |thisDomain|)) - (SPADLET |bytevec| (|getDomainByteVector| |thisDomain|)) - (SPADLET |numOfArgs| (ELT |bytevec| |index|)) - (SPADLET |goGetDomainSlotIndex| + (setq |thisDomain| (CAR |env|)) + (setq |index| (CADR |env|)) + (setq |op| (CDDR |env|)) + (setq |thisDomainForm| (|devaluate| |thisDomain|)) + (setq |bytevec| (|getDomainByteVector| |thisDomain|)) + (setq |numOfArgs| (ELT |bytevec| |index|)) + (setq |goGetDomainSlotIndex| (ELT |bytevec| - (SPADLET |index| (QSADD1 |index|)))) - (SPADLET |goGetDomain| + (setq |index| (QSADD1 |index|)))) + (setq |goGetDomain| (COND ((EQL |goGetDomainSlotIndex| 0) |thisDomain|) ('T (ELT |thisDomain| |goGetDomainSlotIndex|)))) (COND ((AND (CONSP |goGetDomain|) (SYMBOLP (CAR |goGetDomain|))) - (SPADLET |goGetDomain| + (setq |goGetDomain| (|lazyDomainSet| |goGetDomain| |thisDomain| |goGetDomainSlotIndex|)))) - (SPADLET |sig| + (setq |sig| (PROG (G166123) - (SPADLET G166123 NIL) + (setq G166123 NIL) (RETURN (DO ((|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| |numOfArgs|) @@ -176,11 +176,11 @@ (CONS (|newExpandTypeSlot| (ELT |bytevec| - (SPADLET |index| + (setq |index| (QSADD1 |index|))) |thisDomain| |thisDomain|) G166123)))))))) - (SPADLET |thisSlot| (ELT |bytevec| (QSADD1 |index|))) + (setq |thisSlot| (ELT |bytevec| (QSADD1 |index|))) (COND (|$monitorNewWorld| (|sayLooking| @@ -189,7 +189,7 @@ " wants" "%l" " ") |op| |sig| |goGetDomain|))) - (SPADLET |slot| + (setq |slot| (|basicLookup| |op| |sig| |goGetDomain| |goGetDomain|)) (COND @@ -347,8 +347,8 @@ |$lookupDefaults|)) (RETURN (SEQ (PROGN - (SPADLET |domain| (CAR G166177)) - (SPADLET |opvec| (CADR G166177)) + (setq |domain| (CAR G166177)) + (setq |opvec| (CADR G166177)) (COND ((NULL |dollar|) (|systemError|)) ((BOOT-EQUAL |$lookupDefaults| 'T) @@ -356,7 +356,7 @@ |dollar|) (|newLookupInAddChain| |op| |sig| |domain| |dollar|))) - ('T (SPADLET |success| NIL) + ('T (setq |success| NIL) (COND (|$monitorNewWorld| (|sayLooking| @@ -365,20 +365,20 @@ "----> searching op table for:" '|%l| '| |) |op| |sig| |dollar|))) - (SPADLET |someMatch| NIL) - (SPADLET |numvec| (|getDomainByteVector| |domain|)) - (SPADLET |predvec| (ELT |domain| 3)) - (SPADLET |max| (MAXINDEX |opvec|)) - (SPADLET |k| + (setq |someMatch| NIL) + (setq |numvec| (|getDomainByteVector| |domain|)) + (setq |predvec| (ELT |domain| 3)) + (setq |max| (MAXINDEX |opvec|)) + (setq |k| (OR (|getOpCode| |op| |opvec| |max|) (RETURN (COND (|flag| (|newLookupInAddChain| |op| |sig| |domain| |dollar|)) ('T NIL))))) - (SPADLET |maxIndex| (MAXINDEX |numvec|)) - (SPADLET |start| (ELT |opvec| |k|)) - (SPADLET |finish| + (setq |maxIndex| (MAXINDEX |numvec|)) + (setq |start| (ELT |opvec| |k|)) + (setq |finish| (COND ((QSGREATERP |max| |k|) (ELT |opvec| (QSPLUS |k| 2))) @@ -386,24 +386,24 @@ (COND ((QSGREATERP |finish| |maxIndex|) (|systemError| "limit too large"))) - (SPADLET |numArgs| (QSDIFFERENCE (|#| |sig|) 1)) - (SPADLET |success| NIL) - (SPADLET |$isDefaultingPackage| + (setq |numArgs| (QSDIFFERENCE (|#| |sig|) 1)) + (setq |success| NIL) + (setq |$isDefaultingPackage| (AND (NEQUAL |dollar| |domain|) (|isDefaultPackageForm?| (|devaluate| |domain|)))) (DO () ((NULL (> |finish| |start|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |i| |start|) + (setq |i| |start|) (COND ((NEQUAL |numArgs| - (SPADLET |numTableArgs| + (setq |numTableArgs| (ELT |numvec| |i|))) NIL) ('T - (SPADLET |predIndex| + (setq |predIndex| (ELT |numvec| - (SPADLET |i| (QSADD1 |i|)))) + (setq |i| (QSADD1 |i|)))) (COND ((AND (NE |predIndex| 0) (NULL @@ -411,23 +411,23 @@ |predIndex|))) NIL) ('T - (SPADLET |loc| + (setq |loc| (|newCompareSig| |sig| |numvec| - (SPADLET |i| (QSADD1 |i|)) + (setq |i| (QSADD1 |i|)) |dollar| |domain|)) (COND ((NULL |loc|) NIL) ((EQL |loc| 1) - (SPADLET |someMatch| 'T)) + (setq |someMatch| 'T)) ((EQL |loc| 0) - (SPADLET |start| + (setq |start| (QSPLUS |start| (QSPLUS |numTableArgs| 4))) - (SPADLET |i| (+ |start| 2)) - (SPADLET |someMatch| 'T) - (SPADLET |subsumptionSig| + (setq |i| (+ |start| 2)) + (setq |someMatch| 'T) + (setq |subsumptionSig| (PROG (G166200) - (SPADLET G166200 NIL) + (setq G166200 NIL) (RETURN (DO ((|j| 0 (QSADD1 |j|))) ((QSGREATERP |j| @@ -456,28 +456,28 @@ NIL)))))) NIL) ('T - (SPADLET |slot| + (setq |slot| (ELT |domain| |loc|)) (COND ((NULL (ATOM |slot|)) (COND ((EQ (QCAR |slot|) '|newGoGet|) - (SPADLET |someMatch| 'T)) + (setq |someMatch| 'T)) ('T (RETURN - (SPADLET |success| + (setq |success| |slot|))))) ((BOOT-EQUAL |slot| '|skip|) (RETURN - (SPADLET |success| + (setq |success| (|newLookupInAddChain| |op| |sig| |domain| |dollar|)))) ('T (|systemError| "unexpected format"))))))))) - (SPADLET |start| + (setq |start| (QSPLUS |start| (QSPLUS |numTableArgs| 4))))))) (COND @@ -492,7 +492,7 @@ ('T |success|))))) |success|) ((AND |subsumptionSig| - (SPADLET |u| + (setq |u| (|basicLookup| |op| |subsumptionSig| |domain| |dollar|))) |u|) @@ -506,14 +506,14 @@ (DEFUN |isDefaultPackageForm?| (|x|) (PROG (|op| |s|) (RETURN - (AND (CONSP |x|) (PROGN (SPADLET |op| (QCAR |x|)) 'T) + (AND (CONSP |x|) (PROGN (setq |op| (QCAR |x|)) 'T) (IDENTP |op|) - (BOOT-EQUAL (ELT (SPADLET |s| (PNAME |op|)) (MAXINDEX |s|)) + (BOOT-EQUAL (ELT (setq |s| (PNAME |op|)) (MAXINDEX |s|)) '&))))) ;$hasCatOpHash := hashString '"%%" -(SPADLET |$hasCatOpHash| (|hashString| "%%")) +(setq |$hasCatOpHash| (|hashString| "%%")) ;opIsHasCat op == ; hashCode? op => EQL(op, $hasCatOpHash) @@ -617,25 +617,25 @@ |$lookupDefaults| |$hashOp0| |$hashOp1|)) (RETURN (SEQ (PROGN - (SPADLET |domain| (CAR G166265)) - (SPADLET |opvec| (CADR G166265)) + (setq |domain| (CAR G166265)) + (setq |opvec| (CADR G166265)) (COND ((|opIsHasCat| |op|) (|HasCategory| |domain| |sig|)) ('T (COND ((AND (|hashCode?| |op|) (EQL |op| |$hashOp1|)) - (SPADLET |op| '|One|))) + (setq |op| '|One|))) (COND ((AND (|hashCode?| |op|) (EQL |op| |$hashOp0|)) - (SPADLET |op| '|Zero|))) - (SPADLET |hashPercent| + (setq |op| '|Zero|))) + (setq |hashPercent| (COND ((VECP |dollar|) (|hashType| (ELT |dollar| 0) 0)) ('T (|hashType| |dollar| 0)))) (COND ((AND (|hashCode?| |sig|) (EQL |sig| |hashPercent|)) - (SPADLET |sig| + (setq |sig| (|hashType| '(|Mapping| $) |hashPercent|)))) (COND ((NULL |dollar|) (|systemError|)) @@ -644,7 +644,7 @@ |dollar|) (|newLookupInAddChain| |op| |sig| |domain| |dollar|))) - ('T (SPADLET |success| NIL) + ('T (setq |success| NIL) (COND (|$monitorNewWorld| (|sayLooking| @@ -653,11 +653,11 @@ "----> searching op table for:" '|%l| '| |) |op| |sig| |dollar|))) - (SPADLET |someMatch| NIL) - (SPADLET |numvec| (|getDomainByteVector| |domain|)) - (SPADLET |predvec| (ELT |domain| 3)) - (SPADLET |max| (MAXINDEX |opvec|)) - (SPADLET |k| + (setq |someMatch| NIL) + (setq |numvec| (|getDomainByteVector| |domain|)) + (setq |predvec| (ELT |domain| 3)) + (setq |max| (MAXINDEX |opvec|)) + (setq |k| (OR (|getOpCode| |op| |opvec| |max|) (RETURN (COND @@ -665,9 +665,9 @@ (|newLookupInAddChain| |op| |sig| |domain| |dollar|)) ('T NIL))))) - (SPADLET |maxIndex| (MAXINDEX |numvec|)) - (SPADLET |start| (ELT |opvec| |k|)) - (SPADLET |finish| + (setq |maxIndex| (MAXINDEX |numvec|)) + (setq |start| (ELT |opvec| |k|)) + (setq |finish| (COND ((QSGREATERP |max| |k|) (ELT |opvec| (QSPLUS |k| 2))) @@ -675,23 +675,23 @@ (COND ((QSGREATERP |finish| |maxIndex|) (|systemError| "limit too large"))) - (SPADLET |numArgs| + (setq |numArgs| (COND ((|hashCode?| |sig|) (SPADDIFFERENCE 1)) ('T (SPADDIFFERENCE (|#| |sig|) 1)))) - (SPADLET |success| NIL) - (SPADLET |$isDefaultingPackage| + (setq |success| NIL) + (setq |$isDefaultingPackage| (AND (NEQUAL |dollar| |domain|) (|isDefaultPackageForm?| (|devaluate| |domain|)))) (DO () ((NULL (> |finish| |start|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |i| |start|) - (SPADLET |numTableArgs| + (setq |i| |start|) + (setq |numTableArgs| (ELT |numvec| |i|)) - (SPADLET |predIndex| + (setq |predIndex| (ELT |numvec| - (SPADLET |i| (QSADD1 |i|)))) + (setq |i| (QSADD1 |i|)))) (COND ((AND (NE |predIndex| 0) (NULL @@ -699,9 +699,9 @@ |predIndex|))) NIL) ('T - (SPADLET |exportSig| + (setq |exportSig| (PROG (G166290) - (SPADLET G166290 NIL) + (setq G166290 NIL) (RETURN (DO ((|j| 0 (QSADD1 |j|))) ((QSGREATERP |j| @@ -724,23 +724,23 @@ |hashPercent|)) NIL) ('T - (SPADLET |loc| + (setq |loc| (ELT |numvec| (+ (+ |i| |numTableArgs|) 2))) (COND ((EQL |loc| 1) - (SPADLET |someMatch| 'T)) + (setq |someMatch| 'T)) ((EQL |loc| 0) - (SPADLET |start| + (setq |start| (QSPLUS |start| (QSPLUS |numTableArgs| 4))) - (SPADLET |i| + (setq |i| (+ |start| 2)) - (SPADLET |someMatch| 'T) - (SPADLET |subsumptionSig| + (setq |someMatch| 'T) + (setq |subsumptionSig| (PROG (G166302) - (SPADLET G166302 NIL) + (setq G166302 NIL) (RETURN (DO ((|j| 0 (QSADD1 |j|))) @@ -773,30 +773,30 @@ NIL)))))) NIL) ('T - (SPADLET |slot| + (setq |slot| (ELT |domain| |loc|)) (COND ((NULL (ATOM |slot|)) (COND ((EQ (QCAR |slot|) '|newGoGet|) - (SPADLET |someMatch| + (setq |someMatch| 'T)) ('T (RETURN - (SPADLET |success| + (setq |success| |slot|))))) ((BOOT-EQUAL |slot| '|skip|) (RETURN - (SPADLET |success| + (setq |success| (|newLookupInAddChain| |op| |sig| |domain| |dollar|)))) ('T (|systemError| "unexpected format"))))))))) - (SPADLET |start| + (setq |start| (QSPLUS |start| (QSPLUS |numTableArgs| 4))))))) (COND @@ -811,7 +811,7 @@ ('T |success|))))) |success|) ((AND |subsumptionSig| - (SPADLET |u| + (setq |u| (|basicLookup| |op| |subsumptionSig| |domain| |dollar|))) @@ -905,13 +905,13 @@ |$Slot1DataBase| |$FormalMapVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |slot4| (ELT |dom| 4)) - (SPADLET |catVec| (CADR |slot4|)) + (setq |slot4| (ELT |dom| 4)) + (setq |catVec| (CADR |slot4|)) (COND ((EQL (SIZE |catVec|) 0) NIL) ((INTEGERP (KDR (ELT |catVec| 0))) (|newLookupInCategories1| |op| |sig| |dom| |dollar|)) - ('T (SPADLET |$lookupDefaults| NIL) + ('T (setq |$lookupDefaults| NIL) (COND ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| @@ -919,13 +919,13 @@ (|form2String| (|devaluate| |dom|)) "-----> searching default packages for " |op|)))) - (SPADLET |predvec| (ELT |dom| 3)) - (SPADLET |packageVec| (QCAR |slot4|)) - (SPADLET |varList| (CONS '$ |$FormalMapVariableList|)) - (SPADLET |valueList| + (setq |predvec| (ELT |dom| 3)) + (setq |packageVec| (QCAR |slot4|)) + (setq |varList| (CONS '$ |$FormalMapVariableList|)) + (setq |valueList| (CONS |dom| (PROG (G166368) - (SPADLET G166368 NIL) + (setq G166368 NIL) (RETURN (DO ((G166373 @@ -938,9 +938,9 @@ (SETQ G166368 (CONS (ELT |dom| (+ 5 |i|)) G166368))))))))) - (SPADLET |valueList| + (setq |valueList| (PROG (G166381) - (SPADLET G166381 NIL) + (setq G166381 NIL) (RETURN (DO ((G166386 |valueList| (CDR G166386)) @@ -953,17 +953,17 @@ (SEQ (EXIT (SETQ G166381 (CONS (MKQ |val|) G166381)))))))) - (SPADLET |nsig| + (setq |nsig| (MSUBST (ELT |dom| 0) (ELT |dollar| 0) |sig|)) (DO ((G166402 (MAXINDEX |packageVec|)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G166402) NIL) (SEQ (EXIT (COND - ((AND (SPADLET |entry| + ((AND (setq |entry| (ELT |packageVec| |i|)) (NEQUAL |entry| 'T)) (PROGN - (SPADLET |package| + (setq |package| (COND ((VECP |entry|) (COND @@ -973,39 +973,39 @@ |entry|))) |entry|) ((IDENTP |entry|) - (SPADLET |cat| + (setq |cat| (ELT |catVec| |i|)) - (SPADLET |packageForm| + (setq |packageForm| NIL) (COND ((NULL (GETL |entry| 'LOADED)) (|loadLib| |entry|))) - (SPADLET |infovec| + (setq |infovec| (GETL |entry| '|infovec|)) - (SPADLET |success| + (setq |success| (SEQ (EXIT (PROGN - (SPADLET |opvec| + (setq |opvec| (ELT |infovec| 1)) - (SPADLET |max| + (setq |max| (MAXINDEX |opvec|)) - (SPADLET |code| + (setq |code| (|getOpCode| |op| |opvec| |max|)) (COND ((NULL |code|) NIL) ('T - (SPADLET + (setq |byteVector| (CDDDR (ELT |infovec| 3))) - (SPADLET |endPos| + (setq |endPos| (COND ((> (+ |code| @@ -1017,12 +1017,12 @@ (ELT |opvec| (+ |code| 2))))) - (SPADLET + (setq |packageForm| (CONS |entry| (CONS '$ (CDR |cat|)))) - (SPADLET + (setq |package| (|evalSlotDomain| |packageForm| @@ -1031,7 +1031,7 @@ |packageVec| |i| |package|) |package|)))) - (SPADLET |table| + (setq |table| (OR (HGET |$Slot1DataBase| @@ -1039,12 +1039,12 @@ (|systemError| NIL))) (COND ((AND - (SPADLET |u| + (setq |u| (LASSQ |op| |table|)) - (SPADLET |v| + (setq |v| (PROG (G166406) - (SPADLET + (setq G166406 NIL) (RETURN (DO @@ -1074,12 +1074,12 @@ G166406 (CDR |x|)))))))))) - (SPADLET + (setq |packageForm| (CONS |entry| (CONS '$ (CDR |cat|)))) - (SPADLET |package| + (setq |package| (|evalSlotDomain| |packageForm| |dom|)) @@ -1120,7 +1120,7 @@ "Looking at instantiated package " |package|))) (COND - ((SPADLET |res| + ((setq |res| (|basicLookup| |op| |sig| |package| |dollar|)) (COND @@ -1159,7 +1159,7 @@ (|$monitorNewWorld| (|sayLooking1| "looking up add-chain: " |addFormDomain|))) - (SPADLET |addFunction| + (setq |addFunction| (|newLookupInDomain| |op| |sig| |addFormDomain| |dollar| 5)) (COND @@ -1192,11 +1192,11 @@ (PROG (|addFormCell|) (RETURN (SEQ (COND - ((SPADLET |addFormCell| (ELT |addFormDomain| |index|)) + ((setq |addFormCell| (ELT |addFormDomain| |index|)) (COND ((INTEGERP (KAR |addFormCell|)) (PROG (G166464) - (SPADLET G166464 NIL) + (setq G166464 NIL) (RETURN (DO ((G166470 NIL G166464) (G166471 |addFormCell| (CDR G166471)) @@ -1294,13 +1294,13 @@ |$FormalMapVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |slot4| (ELT |dom| 4)) - (SPADLET |catVec| (CADR |slot4|)) + (setq |slot4| (ELT |dom| 4)) + (setq |catVec| (CADR |slot4|)) (COND ((EQL (SIZE |catVec|) 0) NIL) ((INTEGERP (KDR (ELT |catVec| 0))) (|newLookupInCategories1| |op| |sig| |dom| |dollar|)) - ('T (SPADLET |$lookupDefaults| NIL) + ('T (setq |$lookupDefaults| NIL) (COND ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| @@ -1308,13 +1308,13 @@ (|form2String| (|devaluate| |dom|)) "-----> searching default packages for " |op|)))) - (SPADLET |predvec| (ELT |dom| 3)) - (SPADLET |packageVec| (QCAR |slot4|)) - (SPADLET |varList| (CONS '$ |$FormalMapVariableList|)) - (SPADLET |valueList| + (setq |predvec| (ELT |dom| 3)) + (setq |packageVec| (QCAR |slot4|)) + (setq |varList| (CONS '$ |$FormalMapVariableList|)) + (setq |valueList| (CONS |dom| (PROG (G166497) - (SPADLET G166497 NIL) + (setq G166497 NIL) (RETURN (DO ((G166502 @@ -1327,9 +1327,9 @@ (SETQ G166497 (CONS (ELT |dom| (+ 5 |i|)) G166497))))))))) - (SPADLET |valueList| + (setq |valueList| (PROG (G166510) - (SPADLET G166510 NIL) + (setq G166510 NIL) (RETURN (DO ((G166515 |valueList| (CDR G166515)) @@ -1342,17 +1342,17 @@ (SEQ (EXIT (SETQ G166510 (CONS (MKQ |val|) G166510)))))))) - (SPADLET |nsig| + (setq |nsig| (MSUBST (ELT |dom| 0) (ELT |dollar| 0) |sig|)) (DO ((G166531 (MAXINDEX |packageVec|)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G166531) NIL) (SEQ (EXIT (COND - ((AND (SPADLET |entry| + ((AND (setq |entry| (ELT |packageVec| |i|)) (NEQUAL |entry| 'T)) (PROGN - (SPADLET |package| + (setq |package| (COND ((VECP |entry|) (COND @@ -1362,35 +1362,35 @@ |entry|))) |entry|) ((IDENTP |entry|) - (SPADLET |cat| + (setq |cat| (ELT |catVec| |i|)) - (SPADLET |packageForm| + (setq |packageForm| NIL) (COND ((NULL (GETL |entry| 'LOADED)) (|loadLib| |entry|))) - (SPADLET |infovec| + (setq |infovec| (GETL |entry| '|infovec|)) - (SPADLET |success| + (setq |success| (PROGN - (SPADLET |opvec| + (setq |opvec| (ELT |infovec| 1)) - (SPADLET |max| + (setq |max| (MAXINDEX |opvec|)) - (SPADLET |code| + (setq |code| (|getOpCode| |op| |opvec| |max|)) (COND ((NULL |code|) NIL) ('T - (SPADLET + (setq |byteVector| (CDDDR (ELT |infovec| 3))) - (SPADLET |endPos| + (setq |endPos| (COND ((> (+ |code| @@ -1413,12 +1413,12 @@ |endPos|)) NIL) ('T - (SPADLET + (setq |packageForm| (CONS |entry| (CONS '$ (CDR |cat|)))) - (SPADLET + (setq |package| (|evalSlotDomain| |packageForm| @@ -1460,7 +1460,7 @@ "Looking at instantiated package " |package|))) (COND - ((SPADLET |res| + ((setq |res| (|basicLookup| |op| |sig| |package| |dollar|)) (COND @@ -1487,10 +1487,10 @@ (PROG (|args|) (RETURN (PROGN - (SPADLET |args| (ELT |bytevec| |start|)) + (setq |args| (ELT |bytevec| |start|)) (COND ((BOOT-EQUAL |num| |args|) 'T) - ((BOOT-EQUAL (SPADLET |start| (+ (+ |start| |args|) 4)) + ((BOOT-EQUAL (setq |start| (+ (+ |start| |args|) 4)) |finish|) NIL) ('T (|nrunNumArgCheck| |num| |bytevec| |start| |finish|))))))) @@ -1572,7 +1572,7 @@ |$Slot1DataBase| |$FormalMapVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |$lookupDefaults| NIL) + (setq |$lookupDefaults| NIL) (COND ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| @@ -1580,15 +1580,15 @@ (|form2String| (|devaluate| |dom|)) "-----> searching default packages for " |op|)))) - (SPADLET |predvec| (ELT |dom| 3)) - (SPADLET |slot4| (ELT |dom| 4)) - (SPADLET |packageVec| (CAR |slot4|)) - (SPADLET |catVec| (CAR (QCDR |slot4|))) - (SPADLET |varList| (CONS '$ |$FormalMapVariableList|)) - (SPADLET |valueList| + (setq |predvec| (ELT |dom| 3)) + (setq |slot4| (ELT |dom| 4)) + (setq |packageVec| (CAR |slot4|)) + (setq |catVec| (CAR (QCDR |slot4|))) + (setq |varList| (CONS '$ |$FormalMapVariableList|)) + (setq |valueList| (CONS |dom| (PROG (G166586) - (SPADLET G166586 NIL) + (setq G166586 NIL) (RETURN (DO ((G166591 (|#| (CDR (ELT |dom| 0)))) @@ -1599,9 +1599,9 @@ (SETQ G166586 (CONS (ELT |dom| (+ 5 |i|)) G166586))))))))) - (SPADLET |valueList| + (setq |valueList| (PROG (G166599) - (SPADLET G166599 NIL) + (setq G166599 NIL) (RETURN (DO ((G166604 |valueList| (CDR G166604)) (|val| NIL)) @@ -1612,25 +1612,25 @@ (NREVERSE0 G166599)) (SEQ (EXIT (SETQ G166599 (CONS (MKQ |val|) G166599)))))))) - (SPADLET |nsig| + (setq |nsig| (MSUBST (ELT |dom| 0) (ELT |dollar| 0) |sig|)) (DO ((G166616 (MAXINDEX |packageVec|)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G166616) NIL) (SEQ (EXIT (COND - ((AND (SPADLET |entry| + ((AND (setq |entry| (ELT |packageVec| |i|)) (OR (VECP |entry|) (AND - (SPADLET |predIndex| + (setq |predIndex| (CDR - (SPADLET |node| + (setq |node| (ELT |catVec| |i|)))) (OR (EQ |predIndex| 0) (|testBitVector| |predvec| |predIndex|))))) (PROGN - (SPADLET |package| + (setq |package| (COND ((VECP |entry|) (COND @@ -1640,32 +1640,32 @@ |entry|))) |entry|) ((IDENTP |entry|) - (SPADLET |cat| + (setq |cat| (QCAR |node|)) - (SPADLET |packageForm| NIL) + (setq |packageForm| NIL) (COND ((NULL (GETL |entry| 'LOADED)) (|loadLib| |entry|))) - (SPADLET |infovec| + (setq |infovec| (GETL |entry| '|infovec|)) - (SPADLET |success| + (setq |success| (COND ((VECP |infovec|) - (SPADLET |opvec| + (setq |opvec| (ELT |infovec| 1)) - (SPADLET |max| + (setq |max| (MAXINDEX |opvec|)) - (SPADLET |code| + (setq |code| (|getOpCode| |op| |opvec| |max|)) (COND ((NULL |code|) NIL) ('T - (SPADLET |byteVector| + (setq |byteVector| (CDDR (ELT |infovec| 3))) - (SPADLET |numOfArgs| + (setq |numOfArgs| (ELT |byteVector| (ELT |opvec| |code|))) @@ -1676,12 +1676,12 @@ (QCDR |sig|))) NIL) ('T - (SPADLET + (setq |packageForm| (CONS |entry| (CONS '$ (CDR |cat|)))) - (SPADLET |package| + (setq |package| (|evalSlotDomain| |packageForm| |dom|)) @@ -1690,19 +1690,19 @@ |package|) |package|))))) ('T - (SPADLET |table| + (setq |table| (OR (HGET |$Slot1DataBase| |entry|) (|systemError| NIL))) (COND ((AND - (SPADLET |u| + (setq |u| (LASSQ |op| |table|)) - (SPADLET |v| + (setq |v| (PROG (G166620) - (SPADLET + (setq G166620 NIL) (RETURN (DO @@ -1739,12 +1739,12 @@ G166620 (CDR |x|)))))))))))) - (SPADLET + (setq |packageForm| (CONS |entry| (CONS '$ (CDR |cat|)))) - (SPADLET |package| + (setq |package| (|evalSlotDomain| |packageForm| |dom|)) @@ -1784,7 +1784,7 @@ "Looking at instantiated package " |package|))) (COND - ((SPADLET |res| + ((setq |res| (|lookupInDomainVector| |op| |sig| |package| |dollar|)) (COND @@ -1836,15 +1836,15 @@ (RETURN (SEQ (PROGN (|hohohoho|) - (SPADLET |opvec| (ELT |infovec| 1)) - (SPADLET |numvec| (CDDR (ELT |infovec| 3))) - (SPADLET |max| (MAXINDEX |opvec|)) - (SPADLET |k| + (setq |opvec| (ELT |infovec| 1)) + (setq |numvec| (CDDR (ELT |infovec| 3))) + (setq |max| (MAXINDEX |opvec|)) + (setq |k| (OR (|getOpCode| |op| |opvec| |max|) (RETURN NIL))) - (SPADLET |maxIndex| (MAXINDEX |numvec|)) - (SPADLET |start| (ELT |opvec| |k|)) - (SPADLET |finish| + (setq |maxIndex| (MAXINDEX |numvec|)) + (setq |start| (ELT |opvec| |k|)) + (setq |finish| (COND ((QSGREATERP |max| |k|) (ELT |opvec| (QSPLUS |k| 2))) @@ -1852,26 +1852,26 @@ (COND ((QSGREATERP |finish| |maxIndex|) (|systemError| "limit too large"))) - (SPADLET |numArgs| (QSDIFFERENCE (|#| |sig|) 1)) - (SPADLET |success| NIL) + (setq |numArgs| (QSDIFFERENCE (|#| |sig|) 1)) + (setq |success| NIL) (DO () ((NULL (> |finish| |start|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |i| |start|) + (setq |i| |start|) (COND ((NEQUAL |numArgs| - (SPADLET |numTableArgs| + (setq |numTableArgs| (ELT |numvec| |i|))) NIL) ((|newCompareSigCheaply| |sig| |numvec| - (SPADLET |i| (QSPLUS |i| 2))) - (RETURN (SPADLET |success| 'T)))) - (SPADLET |start| + (setq |i| (QSPLUS |i| 2))) + (RETURN (setq |success| 'T)))) + (setq |start| (QSPLUS |start| (QSPLUS |numTableArgs| 4))))))) (COND ((NULL |success|) NIL) ('T - (SPADLET |defaultPackage| + (setq |defaultPackage| (|cacheCategoryPackage| |packageVec| |catVec| |i|))))))))) @@ -1891,14 +1891,14 @@ (PROG (|target| |k|) (RETURN (SEQ (PROGN - (SPADLET |k| |index|) + (setq |k| |index|) (COND - ((OR (NULL (SPADLET |target| (CAR |sig|))) + ((OR (NULL (setq |target| (CAR |sig|))) (|lazyMatchArg| |target| (ELT |numvec| |k|) |dollar| |domain|)) (COND ((PROG (G166706) - (SPADLET G166706 'T) + (setq G166706 'T) (RETURN (DO ((G166713 NIL (NULL G166706)) (G166714 (CDR |sig|) (CDR G166714)) @@ -1909,7 +1909,7 @@ (SEQ (EXIT (SETQ G166706 (AND G166706 (|lazyMatchArg| |s| - (ELT |numvec| (SPADLET |k| |i|)) + (ELT |numvec| (setq |k| |i|)) |dollar| |domain|)))))))) (ELT |numvec| (QSINC1 |k|))) ('T NIL))) @@ -1959,18 +1959,18 @@ (RETURN (PROGN (COND - ((BOOT-EQUAL |s| '$) (SPADLET |s| (|devaluate| |dollar|)))) + ((BOOT-EQUAL |s| '$) (setq |s| (|devaluate| |dollar|)))) (COND ((INTEGERP |a|) (COND ((NULL |typeFlag|) (BOOT-EQUAL |s| (ELT |domain| |a|))) ((AND (EQL |a| 6) |$isDefaultingPackage|) (BOOT-EQUAL |s| (|devaluate| |dollar|))) - ((VECP (SPADLET |d| (|domainVal| |dollar| |domain| |a|))) + ((VECP (setq |d| (|domainVal| |dollar| |domain| |a|))) (COND ((BOOT-EQUAL |s| (ELT |d| 0)) 'T) ('T - (SPADLET |domainArg| + (setq |domainArg| (COND (|$isDefaultingPackage| (ELT (ELT |domain| 6) 0)) @@ -1978,7 +1978,7 @@ (AND (BOOT-EQUAL (KAR |s|) (QCAR (ELT |d| 0))) (|lazyMatchArgDollarCheck| |s| (ELT |d| 0) (ELT |dollar| 0) |domainArg|))))) - ((|isDomain| |d|) (SPADLET |dhash| (|getDomainHash| |d|)) + ((|isDomain| |d|) (setq |dhash| (|getDomainHash| |d|)) (BOOT-EQUAL |dhash| (COND ((|hashCode?| |s|) |s|) @@ -1993,13 +1993,13 @@ ('T (AND (CONSP |s|) (EQ (QCAR |s|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |s|)) + (setq |ISTMP#1| (QCDR |s|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |y| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |y| (QCAR |ISTMP#1|)) 'T))) (BOOT-EQUAL (PNAME |y|) |a|)) (AND (IDENTP |s|) (BOOT-EQUAL (PNAME |s|) |a|))))) ((ATOM |a|) (BOOT-EQUAL |a| |s|)) - ('T (SPADLET |op| (|opOf| |a|)) + ('T (setq |op| (|opOf| |a|)) (COND ((BOOT-EQUAL |op| 'NRTEVAL) (BOOT-EQUAL |s| (|nrtEval| (CADR |a|) |domain|))) @@ -2037,21 +2037,21 @@ (SEQ (COND ((AND (CONSP |lazyt|) (PROGN - (SPADLET |op| (QCAR |lazyt|)) - (SPADLET |argl| (QCDR |lazyt|)) + (setq |op| (QCAR |lazyt|)) + (setq |argl| (QCDR |lazyt|)) 'T) (NULL (ATOM |source|)) (BOOT-EQUAL |op| (CAR |source|)) - (BOOT-EQUAL (|#| (SPADLET |sargl| (CDR |source|))) + (BOOT-EQUAL (|#| (setq |sargl| (CDR |source|))) (|#| |argl|))) (COND ((AND (member |op| '(|Record| |Union|)) (PROGN - (SPADLET |ISTMP#1| (CAR |argl|)) + (setq |ISTMP#1| (CAR |argl|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|:|)))) (PROG (G166783) - (SPADLET G166783 'T) + (setq G166783 'T) (RETURN (DO ((G166792 NIL (NULL G166783)) (G166793 |sargl| (CDR G166793)) @@ -2064,8 +2064,8 @@ NIL) (PROGN (PROGN - (SPADLET |stag| (CADR G166756)) - (SPADLET |s| (CADDR G166756)) + (setq |stag| (CADR G166756)) + (setq |s| (CADDR G166756)) G166756) NIL) (ATOM G166794) @@ -2074,8 +2074,8 @@ NIL) (PROGN (PROGN - (SPADLET |atag| (CADR G166760)) - (SPADLET |a| (CADDR G166760)) + (setq |atag| (CADR G166760)) + (setq |a| (CADDR G166760)) G166760) NIL)) G166783) @@ -2087,7 +2087,7 @@ |dollar| |domain|)))))))))) ((member |op| '(|Union| |Mapping| QUOTE)) (PROG (G166806) - (SPADLET G166806 'T) + (setq G166806 'T) (RETURN (DO ((G166813 NIL (NULL G166806)) (G166814 |sargl| (CDR G166814)) (|s| NIL) @@ -2101,14 +2101,14 @@ (AND G166806 (|lazyMatchArg| |s| |a| |dollar| |domain|))))))))) - ('T (SPADLET |coSig| (GETDATABASE |op| 'COSIG)) + ('T (setq |coSig| (GETDATABASE |op| 'COSIG)) (COND ((NULL |coSig|) (|error| (CONS '|bad Constructor op| (CONS |op| NIL)))) ('T (PROG (G166825) - (SPADLET G166825 'T) + (setq G166825 'T) (RETURN (DO ((G166833 NIL (NULL G166825)) (G166834 |sargl| (CDR G166834)) @@ -2137,7 +2137,7 @@ ((AND (STRINGP |source|) (CONSP |lazyt|) (EQ (QCAR |lazyt|) 'QUOTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |lazyt|)) + (setq |ISTMP#1| (QCDR |lazyt|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (EQUAL (QCAR |ISTMP#1|) |source|)))) 'T) @@ -2145,30 +2145,30 @@ (COND ((AND (CONSP |lazyt|) (EQ (QCAR |lazyt|) '|#|) (PROGN - (SPADLET |ISTMP#1| (QCDR |lazyt|)) + (setq |ISTMP#1| (QCDR |lazyt|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |slotNum| (QCAR |ISTMP#1|)) + (setq |slotNum| (QCAR |ISTMP#1|)) 'T)))) (BOOT-EQUAL |source| (|#| (ELT |domain| |slotNum|)))) ((AND (CONSP |lazyt|) (EQ (QCAR |lazyt|) '|call|) (PROGN - (SPADLET |ISTMP#1| (QCDR |lazyt|)) + (setq |ISTMP#1| (QCDR |lazyt|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'LENGTH) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |slotNum| + (setq |slotNum| (QCAR |ISTMP#2|)) 'T)))))) (BOOT-EQUAL |source| (|#| (ELT |domain| |slotNum|)))) ('T NIL))) ((AND (CONSP |source|) (EQ (QCAR |source|) '|construct|) - (PROGN (SPADLET |l| (QCDR |source|)) 'T)) + (PROGN (setq |l| (QCDR |source|)) 'T)) (BOOT-EQUAL |l| |lazyt|)) ('T NIL)))))) @@ -2194,14 +2194,14 @@ (SEQ (COND ((NEQUAL (|#| |s|) (|#| |d|)) NIL) ('T - (SPADLET |scoSig| + (setq |scoSig| (OR (GETDATABASE (|opOf| |s|) 'COSIG) (RETURN NIL))) (COND ((member (|opOf| |s|) '(|Union| |Mapping| |Record|)) - (SPADLET |scoSig| + (setq |scoSig| (PROG (G166901) - (SPADLET G166901 NIL) + (setq G166901 NIL) (RETURN (DO ((G166906 |s| (CDR G166906)) (|x| NIL)) @@ -2214,7 +2214,7 @@ (SETQ G166901 (CONS 'T G166901)))))))))) (PROG (G166912) - (SPADLET G166912 'T) + (setq G166912 'T) (RETURN (DO ((G166927 NIL (NULL G166912)) (G166928 (CDR |s|) (CDR G166928)) (|x| NIL) @@ -2236,19 +2236,19 @@ ((AND (CONSP |x|) (EQ (QCAR |x|) '|elt|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |someDomain| + (setq |someDomain| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |opname| + (setq |opname| (QCAR |ISTMP#2|)) 'T)))))) (|lookupInDomainByName| @@ -2310,16 +2310,16 @@ (RETURN (SEQ (COND ((ATOM |arg|) NIL) - ('T (SPADLET |opvec| (ELT (ELT |domain| 1) 2)) - (SPADLET |numvec| (|getDomainByteVector| |domain|)) - (SPADLET |predvec| (ELT |domain| 3)) - (SPADLET |max| (MAXINDEX |opvec|)) - (SPADLET |k| + ('T (setq |opvec| (ELT (ELT |domain| 1) 2)) + (setq |numvec| (|getDomainByteVector| |domain|)) + (setq |predvec| (ELT |domain| 3)) + (setq |max| (MAXINDEX |opvec|)) + (setq |k| (OR (|getOpCode| |op| |opvec| |max|) (RETURN NIL))) - (SPADLET |maxIndex| (MAXINDEX |numvec|)) - (SPADLET |start| (ELT |opvec| |k|)) - (SPADLET |finish| + (setq |maxIndex| (MAXINDEX |numvec|)) + (setq |start| (ELT |opvec| |k|)) + (setq |finish| (COND ((QSGREATERP |max| |k|) (ELT |opvec| (QSPLUS |k| 2))) @@ -2327,15 +2327,15 @@ (COND ((QSGREATERP |finish| |maxIndex|) (|systemError| "limit too large"))) - (SPADLET |success| NIL) + (setq |success| NIL) (DO () ((NULL (> |finish| |start|)) NIL) (SEQ (EXIT (PROGN - (SPADLET |i| |start|) - (SPADLET |numberOfArgs| + (setq |i| |start|) + (setq |numberOfArgs| (ELT |numvec| |i|)) - (SPADLET |predIndex| + (setq |predIndex| (ELT |numvec| - (SPADLET |i| (QSADD1 |i|)))) + (setq |i| (QSADD1 |i|)))) (COND ((AND (NE |predIndex| 0) (NULL @@ -2343,22 +2343,22 @@ |predIndex|))) NIL) ('T - (SPADLET |slotIndex| + (setq |slotIndex| (ELT |numvec| (+ (+ |i| 2) |numberOfArgs|))) - (SPADLET |newStart| + (setq |newStart| (QSPLUS |start| (QSPLUS |numberOfArgs| 4))) - (SPADLET |slot| + (setq |slot| (ELT |domain| |slotIndex|)) (COND ((AND (NULL (ATOM |slot|)) (EQ (CAR |slot|) (CAR |arg|)) (EQ (CDR |slot|) (CDR |arg|))) - (RETURN (SPADLET |success| 'T))) + (RETURN (setq |success| 'T))) ('T - (SPADLET |start| + (setq |start| (QSPLUS |start| (QSPLUS |numberOfArgs| 4))))))))))) |success|)))))) @@ -2398,10 +2398,10 @@ ((ATOM |lazyt|) |lazyt|) ((AND (CONSP |lazyt|) (PROGN - (SPADLET |vec| (QCAR |lazyt|)) - (SPADLET |ISTMP#1| (QCDR |lazyt|)) + (setq |vec| (QCAR |lazyt|)) + (setq |ISTMP#1| (QCDR |lazyt|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |lazyForm| (QCDR |ISTMP#1|)) 'T))) + (PROGN (setq |lazyForm| (QCDR |ISTMP#1|)) 'T))) (VECP |vec|)) (|newExpandLocalTypeForm| |lazyForm| |dollar| |domain|)) ('T (|newExpandLocalTypeForm| |lazyt| |dollar| |domain|)))))) @@ -2422,17 +2422,17 @@ (PROG (|functorName| |argl| |ISTMP#1| |tag| |dom| |coSig|) (RETURN (SEQ (PROGN - (SPADLET |functorName| (CAR G167017)) - (SPADLET |argl| (CDR G167017)) + (setq |functorName| (CAR G167017)) + (setq |argl| (CDR G167017)) (COND ((AND (member |functorName| '(|Record| |Union|)) (PROGN - (SPADLET |ISTMP#1| (CAR |argl|)) + (setq |ISTMP#1| (CAR |argl|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|:|)))) (CONS |functorName| (PROG (G167036) - (SPADLET G167036 NIL) + (setq G167036 NIL) (RETURN (DO ((G167042 |argl| (CDR G167042)) (G167012 NIL)) @@ -2442,8 +2442,8 @@ NIL) (PROGN (PROGN - (SPADLET |tag| (CADR G167012)) - (SPADLET |dom| + (setq |tag| (CADR G167012)) + (setq |dom| (CADDR G167012)) G167012) NIL)) @@ -2461,7 +2461,7 @@ ((member |functorName| '(|Union| |Mapping|)) (CONS |functorName| (PROG (G167053) - (SPADLET G167053 NIL) + (setq G167053 NIL) (RETURN (DO ((G167058 |argl| (CDR G167058)) (|a| NIL)) @@ -2477,7 +2477,7 @@ G167053))))))))) ((BOOT-EQUAL |functorName| 'QUOTE) (CONS |functorName| |argl|)) - ('T (SPADLET |coSig| (GETDATABASE |functorName| 'COSIG)) + ('T (setq |coSig| (GETDATABASE |functorName| 'COSIG)) (COND ((NULL |coSig|) (|error| (CONS '|bad functorName| @@ -2485,7 +2485,7 @@ ('T (CONS |functorName| (PROG (G167069) - (SPADLET G167069 NIL) + (setq G167069 NIL) (RETURN (DO ((G167075 |argl| (CDR G167075)) (|a| NIL) @@ -2530,15 +2530,15 @@ ('T (ELT |domain| |u|)))) ((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)))) (|nrtEval| |y| |domain|)) ((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)))) |y|) ((BOOT-EQUAL |u| '$$) (ELT |domain| 0)) ((ATOM |u|) |u|) @@ -2551,7 +2551,7 @@ (DEFUN |nrtEval| (|expr| |dom|) (PROG ($) (DECLARE (SPECIAL $)) - (RETURN (PROGN (SPADLET $ |dom|) (|eval| |expr|))))) + (RETURN (PROGN (setq $ |dom|) (|eval| |expr|))))) ;domainVal(dollar,domain,index) == ;--returns a domain or a lazy slot @@ -2595,8 +2595,8 @@ (declare (special |$monitorNewWorld|)) (RETURN (PROGN - (SPADLET |form| |lazyForm|) - (SPADLET |slotDomain| (|evalSlotDomain| |form| |thisDomain|)) + (setq |form| |lazyForm|) + (setq |slotDomain| (|evalSlotDomain| |form| |thisDomain|)) (COND (|$monitorNewWorld| (|sayLooking1| @@ -2670,14 +2670,14 @@ specified type. You cannot query a category.") NIL))) (IF (AND (CONSP |b|) (EQ (QCAR |b|) 'SIGNATURE) - (PROGN (SPADLET |opSig| (QCDR |b|)) 'T)) + (PROGN (setq |opSig| (QCDR |b|)) 'T)) (EXIT (|HasSignature| (|evalDomain| |a|) |opSig|))) (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 (|HasAttribute| (|evalDomain| |a|) |attr|))) (NEQUAL (|hasCaty| |a| |b| NIL) '|failed|) @@ -2688,46 +2688,46 @@ (RETURN (SEQ (IF (ATOM |x|) (EXIT |x|)) (PROGN - (SPADLET |pred| (CAR |x|)) - (SPADLET |l| (CDR |x|)) + (setq |pred| (CAR |x|)) + (setq |l| (CDR |x|)) |x|) (IF (BOOT-EQUAL |pred| '|has|) (EXIT (SEQ (IF (AND (CONSP |l|) (PROGN - (SPADLET |w1| (QCAR |l|)) - (SPADLET |ISTMP#1| (QCDR |l|)) + (setq |w1| (QCAR |l|)) + (setq |ISTMP#1| (QCDR |l|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |w2| + (setq |w2| (QCAR |ISTMP#3|)) 'T)))))))) (EXIT (|newHasTest| |w1| |w2|))) (IF (AND (CONSP |l|) (PROGN - (SPADLET |w1| (QCAR |l|)) - (SPADLET |ISTMP#1| (QCDR |l|)) + (setq |w1| (QCAR |l|)) + (setq |ISTMP#1| (QCDR |l|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'SIGNATURE) (PROGN - (SPADLET |w2| + (setq |w2| (QCDR |ISTMP#2|)) 'T)))))) (EXIT (|compiledLookup| (CAR |w2|) @@ -2737,7 +2737,7 @@ (CAR (CDR |l|))))))) (IF (BOOT-EQUAL |pred| 'OR) (EXIT (PROG (G167227) - (SPADLET G167227 NIL) + (setq G167227 NIL) (RETURN (DO ((G167233 NIL G167227) (G167234 |l| (CDR G167234)) @@ -2752,7 +2752,7 @@ (|newHasTest,evalCond| |i|)))))))))) (IF (BOOT-EQUAL |pred| 'AND) (EXIT (PROG (G167241) - (SPADLET G167241 'T) + (setq G167241 'T) (RETURN (DO ((G167247 NIL (NULL G167241)) (G167248 |l| (CDR G167248)) @@ -2774,17 +2774,17 @@ (RETURN (SEQ (COND ((AND (CONSP |domform|) - (PROGN (SPADLET |dom| (QCAR |domform|)) 'T) + (PROGN (setq |dom| (QCAR |domform|)) 'T) (|member| |dom| '(|Union| |Record| |Mapping| |Enumeration|))) (|ofCategory| |domform| |catOrAtt|)) ((BOOT-EQUAL |catOrAtt| '(|Type|)) 'T) - ('T (SPADLET |op| (|opOf| |catOrAtt|)) - (SPADLET |isAtom| (ATOM |catOrAtt|)) + ('T (setq |op| (|opOf| |catOrAtt|)) + (setq |isAtom| (ATOM |catOrAtt|)) (COND ((AND (NULL |isAtom|) (BOOT-EQUAL |op| '|Join|)) (PROG (G167279) - (SPADLET G167279 'T) + (setq G167279 'T) (RETURN (DO ((G167285 NIL (NULL G167279)) (G167286 (CDR |catOrAtt|) (CDR G167286)) @@ -2797,31 +2797,31 @@ (|newHasTest| |domform| |x|))))))))) ((AND (CONSP |catOrAtt|) (EQ (QCAR |catOrAtt|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |catOrAtt|)) + (setq |ISTMP#1| (QCDR |catOrAtt|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |fun| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |fun| (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|) '|Mapping|) (PROGN - (SPADLET |sig1| + (setq |sig1| (QCDR |ISTMP#3|)) 'T)))))))) (COND ((PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (|evaluateType| (CONS '|Mapping| |sig1|))) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|Mapping|) (PROGN - (SPADLET |sig2| (QCDR |ISTMP#1|)) + (setq |sig2| (QCDR |ISTMP#1|)) 'T))) (NULL (NULL (|HasSignature| |domform| (CONS |fun| (CONS |sig2| NIL)))))) @@ -2848,8 +2848,8 @@ NIL) (PROGN (PROGN - (SPADLET |aCat| (CAR G167272)) - (SPADLET |cond| (CDR G167272)) + (setq |aCat| (CAR G167272)) + (setq |cond| (CDR G167272)) G167272) NIL)) NIL) @@ -2858,7 +2858,7 @@ (RETURN (|newHasTest,evalCond| |cond|)))))))))) ((AND (NULL |isAtom|) (|constructor?| |op|)) - (SPADLET |domain| (|eval| (|mkEvalable| |domform|))) + (setq |domain| (|eval| (|mkEvalable| |domform|))) (|newHasCategory| |domain| |catOrAtt|)) ('T (|newHasAttribute| (|eval| (|mkEvalable| |domform|)) @@ -2882,16 +2882,16 @@ (PROG (|n| |percentHash| |xop| |lazyt|) (RETURN (SEQ (PROGN - (SPADLET |n| (MAXINDEX |catvec|)) + (setq |n| (MAXINDEX |catvec|)) (COND ((|hashCode?| |x|) - (SPADLET |percentHash| + (setq |percentHash| (COND ((VECP |domain|) (|hashType| (ELT |domain| 0) 0)) ('T (|getDomainHash| |domain|)))) (PROG (G167325) - (SPADLET G167325 NIL) + (setq G167325 NIL) (RETURN (DO ((G167332 NIL G167325) (|i| 0 (QSADD1 |i|))) @@ -2905,9 +2905,9 @@ |percentHash|)) (SETQ G167325 (OR G167325 (ELT |auxvec| |i|))))))))))) - ('T (SPADLET |xop| (CAR |x|)) + ('T (setq |xop| (CAR |x|)) (PROG (G167337) - (SPADLET G167337 NIL) + (setq G167337 NIL) (RETURN (DO ((G167344 NIL G167337) (|i| 0 (QSADD1 |i|))) @@ -2916,7 +2916,7 @@ ((AND (BOOT-EQUAL |xop| (CAR - (SPADLET |lazyt| + (setq |lazyt| (|getCatForm| |catvec| |i| |domain|)))) (|lazyMatch| |x| |lazyt| |domain| @@ -2932,7 +2932,7 @@ (PROG (|form|) (RETURN (COND - ((NUMBERP (SPADLET |form| (QVELT |catvec| |index|))) + ((NUMBERP (setq |form| (QVELT |catvec| |index|))) (ELT |domain| |form|)) ('T |form|))))) @@ -2946,17 +2946,17 @@ (PROG (|n| |xop| |lazyt|) (RETURN (SEQ (PROGN - (SPADLET |n| (MAXINDEX |vec|)) - (SPADLET |xop| (CAR |x|)) + (setq |n| (MAXINDEX |vec|)) + (setq |xop| (CAR |x|)) (PROG (G167364) - (SPADLET G167364 NIL) + (setq G167364 NIL) (RETURN (DO ((G167371 NIL G167364) (|i| 0 (QSADD1 |i|))) ((OR G167371 (QSGREATERP |i| |n|)) G167364) (SEQ (EXIT (COND ((AND (BOOT-EQUAL |xop| (CAR - (SPADLET |lazyt| + (setq |lazyt| (CAR (QVELT |vec| |i|))))) (|lazyMatch| |x| |lazyt| |domain| |domain|)) @@ -2983,7 +2983,7 @@ (PROG (|hashPercent| |u|) (RETURN (PROGN - (SPADLET |hashPercent| + (setq |hashPercent| (COND ((VECP |domain|) (|hashType| (ELT |domain| 0) 0)) ('T (|hashType| |domain| 0)))) @@ -2997,7 +2997,7 @@ ((|isNewWorldDomain| |domain|) (|newHasAttribute| |domain| |attrib|)) ('T - (AND (SPADLET |u| (LASSOC |attrib| (ELT |domain| 2))) + (AND (setq |u| (LASSOC |attrib| (ELT |domain| 2))) (|lookupPred| (CAR |u|) |domain| |domain|)))))))) ;newHasAttribute(domain,attrib) == @@ -3020,16 +3020,16 @@ (PROG (|hashPercent| |predIndex| |predvec|) (RETURN (SEQ (PROGN - (SPADLET |hashPercent| + (setq |hashPercent| (COND ((VECP |domain|) (|hashType| (ELT |domain| 0) 0)) ('T (|hashType| |domain| 0)))) - (SPADLET |predIndex| + (setq |predIndex| (COND ((|hashCode?| |attrib|) (PROG (G167395) - (SPADLET G167395 NIL) + (setq G167395 NIL) (RETURN (DO ((G167402 NIL G167395) (G167403 (ELT |domain| 2) @@ -3052,7 +3052,7 @@ (|predIndex| (COND ((EQ |predIndex| 0) 'T) - ('T (SPADLET |predvec| (ELT |domain| 3)) + ('T (setq |predvec| (ELT |domain| 3)) (|testBitVector| |predvec| |predIndex|)))) ('T NIL))))))) @@ -3077,20 +3077,20 @@ (RETURN (COND ((BOOT-EQUAL |catform| '(|Type|)) 'T) - ('T (SPADLET |slot4| (ELT |domain| 4)) - (SPADLET |auxvec| (CAR |slot4|)) - (SPADLET |catvec| (CADR |slot4|)) - (SPADLET |$isDefaultingPackage| + ('T (setq |slot4| (ELT |domain| 4)) + (setq |auxvec| (CAR |slot4|)) + (setq |catvec| (CADR |slot4|)) + (setq |$isDefaultingPackage| (|isDefaultPackageForm?| (|devaluate| |domain|))) (COND ((AND (> (|#| |catvec|) 0) (INTEGERP (KDR (ELT |catvec| 0)))) - (SPADLET |predIndex| + (setq |predIndex| (|lazyMatchAssocV1| |catform| |catvec| |domain|)) (COND ((NULL |predIndex|) NIL) ((EQ |predIndex| 0) 'T) - ('T (SPADLET |predvec| (QVELT |domain| 3)) + ('T (setq |predvec| (QVELT |domain| 3)) (|testBitVector| |predvec| |predIndex|)))) ('T (|lazyMatchAssocV| |catform| |auxvec| |catvec| |domain|)))))))) @@ -3122,31 +3122,31 @@ (RETURN (SEQ (COND ((AND (CONSP |catform'|) (EQ (QCAR |catform'|) 'SIGNATURE) - (PROGN (SPADLET |f| (QCDR |catform'|)) 'T)) + (PROGN (setq |f| (QCDR |catform'|)) 'T)) (|HasSignature| |domain| |f|)) ((AND (CONSP |catform'|) (EQ (QCAR |catform'|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (QCDR |catform'|)) + (setq |ISTMP#1| (QCDR |catform'|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |f| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |f| (QCAR |ISTMP#1|)) 'T)))) (|HasAttribute| |domain| |f|)) ((|isDomain| |domain|) (COND ((integerp (ELT (CAR |domain|) 0)) - (SPADLET |catform'| (|devaluate| |catform'|)) + (setq |catform'| (|devaluate| |catform'|)) (|basicLookup| '%% |catform'| |domain| |domain|)) ('T (|HasCategory| (CDDR |domain|) |catform'|)))) - ('T (SPADLET |catform| (|devaluate| |catform'|)) + ('T (setq |catform| (|devaluate| |catform'|)) (COND ((|isNewWorldDomain| |domain|) (|newHasCategory| |domain| |catform|)) - ('T (SPADLET |domain0| (ELT |domain| 0)) - (SPADLET |slot4| (ELT |domain| 4)) - (SPADLET |catlist| (ELT |slot4| 1)) + ('T (setq |domain0| (ELT |domain| 0)) + (setq |slot4| (ELT |domain| 4)) + (setq |catlist| (ELT |slot4| 1)) (OR (|member| |catform| |catlist|) (member (|opOf| |catform|) '(|Object| |Type|)) (PROG (G167440) - (SPADLET G167440 NIL) + (setq G167440 NIL) (RETURN (DO ((G167446 NIL G167440) (G167447 |catlist| (CDR G167447)) @@ -3178,12 +3178,12 @@ (declare (special |$monitorNewWorld|)) (RETURN (SEQ (PROGN - (SPADLET |$monitorNewWorld| NIL) - (SPADLET |dollar| (|devaluate| |dom|)) + (setq |$monitorNewWorld| NIL) + (setq |dollar| (|devaluate| |dom|)) (COND ((OR (ATOM |dollar|) (VECP |dollar|) (PROG (G167467) - (SPADLET G167467 NIL) + (setq G167467 NIL) (RETURN (DO ((G167473 NIL G167467) (G167474 |dollar| (CDR G167474)) @@ -3201,7 +3201,7 @@ (|concat| |prefix| (|formatOpSignature| |op| |sig|) (|bright| "from ") (|form2String| |dollar|))) - (SPADLET |$monitorNewWorld| 'T)))))))) + (setq |$monitorNewWorld| 'T)))))))) ;sayLooking1(prefix,dom) == ; $monitorNewWorld := false @@ -3216,13 +3216,13 @@ (declare (special |$monitorNewWorld|)) (RETURN (PROGN - (SPADLET |$monitorNewWorld| NIL) - (SPADLET |dollar| + (setq |$monitorNewWorld| NIL) + (setq |dollar| (COND ((VECP |dom|) (|devaluate| |dom|)) ('T (|devaluateList| |dom|)))) (|sayBrightly| (|concat| |prefix| (|form2String| |dollar|))) - (SPADLET |$monitorNewWorld| 'T))))) + (setq |$monitorNewWorld| 'T))))) ;cc() == -- don't remove this function ; clearConstructorCaches() diff --git a/src/interp/nrungo.lisp.pamphlet b/src/interp/nrungo.lisp.pamphlet index 1400199..74be92a 100644 --- a/src/interp/nrungo.lisp.pamphlet +++ b/src/interp/nrungo.lisp.pamphlet @@ -22,7 +22,7 @@ (DECLARE (SPECIAL |$lookupDefaults|)) (RETURN (PROGN - (SPADLET |$lookupDefaults| NIL) + (setq |$lookupDefaults| NIL) (|lookupInDomainVector| |op| |sig| |domvec| |dollar|))))) ;--======================================================= @@ -45,14 +45,14 @@ ((ATOM |t|) (COND ((NULL (INTEGERP |t|)) |t|) - ('T (SPADLET |t| (ELT |dom| |t|)) + ('T (setq |t| (ELT |dom| |t|)) (COND - ((CONSP |t|) (SPADLET |t| (|NRTevalDomain| |t|)))) + ((CONSP |t|) (setq |t| (|NRTevalDomain| |t|)))) (ELT |t| 0)))) ((member (CAR |t|) '(|Mapping| |Union| |Record| |:|)) (CONS (CAR |t|) (PROG (G166135) - (SPADLET G166135 NIL) + (setq G166135 NIL) (RETURN (DO ((G166140 (CDR |t|) (CDR G166140)) (|x| NIL)) @@ -77,7 +77,7 @@ (declare (special |$FormalMapVariableList|)) (RETURN (PROGN - (SPADLET |form| (|devaluate| |domain|)) + (setq |form| (|devaluate| |domain|)) (SUBLISLIS (CONS |form| (CDR |form|)) (CONS '$$ |$FormalMapVariableList|) |object|))))) @@ -123,24 +123,24 @@ (declare (special |$predVector| |$FormalMapVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |domain| (CAR G166171)) - (SPADLET |table| (CADR G166171)) + (setq |domain| (CAR G166171)) + (setq |table| (CADR G166171)) (COND ((EQ |table| '|derived|) (|lookupInAddChain| |op| |sig| |domain| |dollar|)) - ('T (SPADLET |success| NIL) (SPADLET |someMatch| NIL) + ('T (setq |success| NIL) (setq |someMatch| NIL) (DO ((G166196 (LASSQ |op| |table|) (CDR G166196)) (G166166 NIL)) ((OR (NULL (NULL |success|)) (ATOM G166196) (PROGN (SETQ G166166 (CAR G166196)) NIL) (PROGN (PROGN - (SPADLET |sig1| (CAR G166166)) - (SPADLET |code| (CDR G166166)) + (setq |sig1| (CAR G166166)) + (setq |code| (CDR G166166)) G166166) NIL)) NIL) - (SEQ (EXIT (SPADLET |success| + (SEQ (EXIT (setq |success| (COND ((NULL (|compareSig| |sig| |sig1| @@ -150,22 +150,22 @@ (EQ (QCAR |code|) '|subsumed|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |code|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |subsumptionSig| + (setq |subsumptionSig| (EQSUBSTLIST (CDR (ELT |domain| 0)) |$FormalMapVariableList| |a|)) - (SPADLET |someMatch| 'T) NIL) + (setq |someMatch| 'T) NIL) ('T - (SPADLET |predIndex| + (setq |predIndex| (QSQUOTIENT |code| 8192)) (COND ((AND (NEQUAL |predIndex| 0) @@ -176,16 +176,16 @@ |dollar| |domain|))) NIL) ('T - (SPADLET |loc| + (setq |loc| (QSQUOTIENT (QSREMAINDER |code| 8192) 2)) (COND ((EQL |loc| 0) - (SPADLET |someMatch| 'T) + (setq |someMatch| 'T) NIL) ('T - (SPADLET |slot| + (setq |slot| (ELT |domain| |loc|)) (COND ((EQCAR |slot| @@ -215,7 +215,7 @@ (COND ((AND (NE |success| '|failed|) |success|) |success|) ((AND |subsumptionSig| - (SPADLET |u| + (setq |u| (SPADCALL |op| |subsumptionSig| |dollar| (ELT |domain| 1)))) |u|) @@ -237,7 +237,7 @@ (COND ((NULL |$NRTmonitorIfTrue|) NIL) ('T - (SPADLET |prefix| + (setq |prefix| (COND ((BOOT-EQUAL |suffix| "") '>) ('T '<))) @@ -260,7 +260,7 @@ (PROG (|addFunction|) (RETURN (PROGN - (SPADLET |addFunction| + (setq |addFunction| (|lookupInDomain| |op| |sig| |addFormDomain| |dollar| 5)) (COND @@ -287,19 +287,19 @@ (RETURN (COND ((NULL (AND (CONSP |op|) - (PROGN (SPADLET |dom| (QCDR |op|)) 'T))) + (PROGN (setq |dom| (QCDR |op|)) 'T))) NIL) ((NULL (VECP |dom|)) NIL) ((NULL (> (|#| |dom|) 0)) NIL) ((NULL (PROGN - (SPADLET |ISTMP#1| (ELT |dom| 0)) + (setq |ISTMP#1| (ELT |dom| 0)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |packageName| (QCAR |ISTMP#1|)) + (setq |packageName| (QCAR |ISTMP#1|)) 'T)))) NIL) ((NULL (IDENTP |packageName|)) NIL) - ('T (SPADLET |pname| (PNAME |packageName|)) + ('T (setq |pname| (PNAME |packageName|)) (BOOT-EQUAL (ELT |pname| (MAXINDEX |pname|)) (|char| '&))))))) ;--======================================================= @@ -351,12 +351,12 @@ (declare (special |$Slot1DataBase| |$FormalMapVariableList|)) (RETURN (SEQ (PROGN - (SPADLET |catformList| (ELT (ELT |dom| 4) 0)) - (SPADLET |varList| (CONS '$ |$FormalMapVariableList|)) - (SPADLET |valueList| + (setq |catformList| (ELT (ELT |dom| 4) 0)) + (setq |varList| (CONS '$ |$FormalMapVariableList|)) + (setq |valueList| (CONS |dom| (PROG (G166273) - (SPADLET G166273 NIL) + (setq G166273 NIL) (RETURN (DO ((G166278 (|#| (CDR (ELT |dom| 0)))) @@ -367,9 +367,9 @@ (SETQ G166273 (CONS (ELT |dom| (+ 5 |i|)) G166273))))))))) - (SPADLET |valueList| + (setq |valueList| (PROG (G166286) - (SPADLET G166286 NIL) + (setq G166286 NIL) (RETURN (DO ((G166291 |valueList| (CDR G166291)) (|val| NIL)) @@ -380,11 +380,11 @@ (NREVERSE0 G166286)) (SEQ (EXIT (SETQ G166286 (CONS (MKQ |val|) G166286)))))))) - (SPADLET |nsig| + (setq |nsig| (MSUBST (ELT |dom| 0) (ELT |dollar| 0) |sig|)) - (SPADLET |r| + (setq |r| (PROG (G166297) - (SPADLET G166297 NIL) + (setq G166297 NIL) (RETURN (DO ((G166304 NIL G166297) (G166305 |catformList| @@ -397,14 +397,14 @@ G166297) (SEQ (EXIT (COND ((AND - (SPADLET |table| + (setq |table| (HGET |$Slot1DataBase| (CAR |catform|))) - (SPADLET |u| + (setq |u| (LASSQ |op| |table|)) - (SPADLET |v| + (setq |v| (PROG (G166312) - (SPADLET G166312 NIL) + (setq G166312 NIL) (RETURN (DO ((G166319 NIL @@ -470,11 +470,11 @@ ((BOOT-EQUAL |pred| 'T) 'T) ((BOOT-EQUAL |pred| '|asserted|) NIL) ((OR (AND (CONSP |pred|) (EQ (QCAR |pred|) 'AND) - (PROGN (SPADLET |pl| (QCDR |pred|)) 'T)) + (PROGN (setq |pl| (QCDR |pred|)) 'T)) (AND (CONSP |pred|) (EQ (QCAR |pred|) '|and|) - (PROGN (SPADLET |pl| (QCDR |pred|)) 'T))) + (PROGN (setq |pl| (QCDR |pred|)) 'T))) (PROG (G166385) - (SPADLET G166385 'T) + (setq G166385 'T) (RETURN (DO ((G166391 NIL (NULL G166385)) (G166392 |pl| (CDR G166392)) (|p| NIL)) @@ -486,11 +486,11 @@ (|lookupPred| |p| |dollar| |domain|))))))))) ((OR (AND (CONSP |pred|) (EQ (QCAR |pred|) 'OR) - (PROGN (SPADLET |pl| (QCDR |pred|)) 'T)) + (PROGN (setq |pl| (QCDR |pred|)) 'T)) (AND (CONSP |pred|) (EQ (QCAR |pred|) '|or|) - (PROGN (SPADLET |pl| (QCDR |pred|)) 'T))) + (PROGN (setq |pl| (QCDR |pred|)) 'T))) (PROG (G166399) - (SPADLET G166399 NIL) + (setq G166399 NIL) (RETURN (DO ((G166405 NIL G166399) (G166406 |pl| (CDR G166406)) (|p| NIL)) @@ -503,45 +503,45 @@ |domain|))))))))) ((OR (AND (CONSP |pred|) (EQ (QCAR |pred|) 'NOT) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |p| (QCAR |ISTMP#1|)) + (setq |p| (QCAR |ISTMP#1|)) 'T)))) (AND (CONSP |pred|) (EQ (QCAR |pred|) '|not|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |p| (QCAR |ISTMP#1|)) + (setq |p| (QCAR |ISTMP#1|)) 'T))))) (NULL (|lookupPred| |p| |dollar| |domain|))) ((AND (CONSP |pred|) (EQ (QCAR |pred|) '|is|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |dom1| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |dom1| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |dom2| (QCAR |ISTMP#2|)) + (setq |dom2| (QCAR |ISTMP#2|)) 'T)))))) (|domainEqual| |dom1| |dom2|)) ((AND (CONSP |pred|) (EQ (QCAR |pred|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |pred|)) + (setq |ISTMP#1| (QCDR |pred|)) (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|)) + (setq |b| (QCAR |ISTMP#2|)) 'T)))))) (COND ((VECP |a|) @@ -551,11 +551,11 @@ (CONS "vector as first argument to has" NIL)))) ('T - (SPADLET |a| + (setq |a| (|eval| (|mkEvalable| (|substDollarArgs| |dollar| |domain| |a|)))) - (SPADLET |b| + (setq |b| (|substDollarArgs| |dollar| |domain| |b|)) (|HasCategory| |a| |b|)))) ('T (|keyedSystemError| "Cannot process predicate: %1s" @@ -571,7 +571,7 @@ (declare (special |$FormalMapVariableList|)) (RETURN (PROGN - (SPADLET |form| (|devaluate| |domain|)) + (setq |form| (|devaluate| |domain|)) (SUBLISLIS (CONS (|devaluate| |dollar|) (CDR |form|)) (CONS '$ |$FormalMapVariableList|) |object|))))) @@ -587,11 +587,11 @@ (RETURN (SEQ (COND ((NULL (BOOT-EQUAL (|#| |sig|) (|#| |tableSig|))) NIL) - ((OR (NULL (SPADLET |target| (CAR |sig|))) + ((OR (NULL (setq |target| (CAR |sig|))) (|lazyCompareSigEqual| |target| (CAR |tableSig|) |dollar| |domain|)) (PROG (G166442) - (SPADLET G166442 'T) + (setq G166442 'T) (RETURN (DO ((G166449 NIL (NULL G166442)) (G166450 (CDR |sig|) (CDR G166450)) @@ -624,45 +624,45 @@ (COND ((BOOT-EQUAL |tslot| '$) (BOOT-EQUAL |s| |tslot|)) ((AND (INTEGERP |tslot|) - (CONSP (SPADLET |lazyt| (ELT |domain| |tslot|))) + (CONSP (setq |lazyt| (ELT |domain| |tslot|))) (CONSP |s|)) (COND ((AND (CONSP |lazyt|) (PROGN - (SPADLET |ISTMP#1| (QCDR |lazyt|)) + (setq |ISTMP#1| (QCDR |lazyt|)) (AND (CONSP |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) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCAR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (PROGN - (SPADLET |item| + (setq |item| (QCAR |ISTMP#5|)) - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCDR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) (EQ (QCDR |ISTMP#6|) NIL))))))))))))) (CONSP |item|) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (setq |ISTMP#1| (QCDR |item|)) (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 |functorName| + (setq |functorName| (QCAR |ISTMP#2|)) 'T))))) (BOOT-EQUAL |functorName| (CAR |s|))) @@ -702,7 +702,7 @@ (SEQ (COND ((BOOT-EQUAL |s| |t|) 'T) ((ATOM |t|) - (SPADLET |u| + (setq |u| (COND ((EQ |t| '$) |dollar|) ((|isSharpVar| |t|) @@ -714,7 +714,7 @@ (ELT (CDR |domain|) (POSN1 |t| |$FormalMapVariableList|))))) ((AND (STRINGP |t|) (IDENTP |s|)) - (SPADLET |s| (PNAME |s|)) |t|) + (setq |s| (PNAME |s|)) |t|) ('T NIL))) (COND ((BOOT-EQUAL |s| '$) @@ -725,7 +725,7 @@ (|compareSigEqual| |dollar| |t| |dollar| |domain|)) ((ATOM |s|) NIL) ((NEQUAL (|#| |s|) (|#| |t|)) NIL) - ('T (SPADLET |match| 'T) + ('T (setq |match| 'T) (SEQ (DO ((G166551 |s| (CDR G166551)) (|u| NIL) (G166552 |t| (CDR G166552)) (|v| NIL)) ((OR (ATOM G166551) @@ -738,7 +738,7 @@ (|compareSigEqual| |u| |v| |dollar| |domain|)) (EXIT - (RETURN (SPADLET |match| NIL)))))))) + (RETURN (setq |match| NIL)))))))) (EXIT |match|)))))))) ;--------------------Compiler for Interpreter--------------------------------- @@ -753,12 +753,12 @@ (declare (special |$insideCompileBodyIfTrue|)) (RETURN (PROGN - (SPADLET |u| + (setq |u| (|NRTcompiledLookup| |opName| |sigTail| |dcVector|)) (COND ((NULL (BOOT-EQUAL |$insideCompileBodyIfTrue| 'T)) (MKQ |u|)) ('T - (SPADLET |k| + (setq |k| (|NRTgetMinivectorIndex| |u| |opName| |sigTail| |dcVector|)) (CONS 'ELT (CONS '$$$ (CONS |k| NIL))))))))) @@ -781,9 +781,9 @@ (SEQ (PROGN (COND ((CONTAINED '|#| |sig|) - (SPADLET |sig| + (setq |sig| (PROG (G166580) - (SPADLET G166580 NIL) + (setq G166580 NIL) (RETURN (DO ((G166585 |sig| (CDR G166585)) (|t| NIL)) @@ -799,10 +799,10 @@ (COND ((|hashCode?| |sig|) (|compiledLookupCheck| |op| |sig| |dom|)) - ((SPADLET |fn| (|compiledLookup| |op| |sig| |dom|)) + ((setq |fn| (|compiledLookup| |op| |sig| |dom|)) |fn|) ('T - (SPADLET |percentHash| + (setq |percentHash| (COND ((VECP |dom|) (|hashType| (ELT |dom| 0) 0)) ('T (|getDomainHash| |dom|)))) @@ -824,7 +824,7 @@ ('T (CONS (CAR |t|) (PROG (G166603) - (SPADLET G166603 NIL) + (setq G166603 NIL) (RETURN (DO ((G166608 (CDR |t|) (CDR G166608)) (|tt| NIL)) @@ -853,11 +853,11 @@ (declare (special |$minivectorCode| |$compilingInputFile| |$minivector|)) (RETURN (SEQ (PROGN - (SPADLET |s| (|#| |$minivector|)) + (setq |s| (|#| |$minivector|)) (COND - ((SPADLET |k| + ((setq |k| (PROG (G166619) - (SPADLET G166619 NIL) + (setq G166619 NIL) (RETURN (DO ((G166627 NIL G166619) (G166628 (SPADDIFFERENCE |s| 1)) @@ -879,11 +879,11 @@ (OR G166619 |k|)))))))))) |k|) ('T - (SPADLET |$minivector| + (setq |$minivector| (APPEND |$minivector| (CONS |u| NIL))) (COND (|$compilingInputFile| - (SPADLET |$minivectorCode| + (setq |$minivectorCode| (APPEND |$minivectorCode| (CONS (CONS |op| @@ -980,12 +980,12 @@ (RETURN (SEQ (COND ((NULL (AND (CONSP |body|) (EQ (QCAR |body|) 'COND) - (PROGN (SPADLET |pcl| (QCDR |body|)) 'T))) + (PROGN (setq |pcl| (QCDR |body|)) 'T))) NIL) ('T - (SPADLET |pcl| + (setq |pcl| (PROG (G167057) - (SPADLET G167057 NIL) + (setq G167057 NIL) (RETURN (DO ((G167063 |pcl| (CDR G167063)) (|x| NIL)) @@ -999,7 +999,7 @@ (AND (CONSP |x|) (EQUAL (QCAR |x|) ''T) (PROGN - (SPADLET |mess| + (setq |mess| (QCDR |x|)) 'T) (OR @@ -1009,15 +1009,15 @@ '|throwKeyedMsg| |mess|)))) (SETQ G167057 (CONS |x| G167057)))))))))) - (SPADLET |integer| (EVALFUN |$Integer|)) - (SPADLET |iequalSlot| + (setq |integer| (EVALFUN |$Integer|)) + (setq |iequalSlot| (|compiledLookupCheck| '= '((|Boolean|) $ $) |integer|)) - (SPADLET |lesspSlot| + (setq |lesspSlot| (|compiledLookupCheck| '< '((|Boolean|) $ $) |integer|)) - (SPADLET |bf| '(|Boolean|)) - (SPADLET |notpSlot| + (setq |bf| '(|Boolean|)) + (setq |notpSlot| (|compiledLookupCheck| '|not| '((|Boolean|) (|Boolean|)) (EVALFUN |bf|))) (DO ((G167089 |pcl| (CDR G167089)) (G166730 NIL)) @@ -1025,8 +1025,8 @@ (PROGN (SETQ G166730 (CAR G167089)) NIL) (PROGN (PROGN - (SPADLET |p| (CAR G166730)) - (SPADLET |c| (CADR G166730)) + (setq |p| (CAR G166730)) + (setq |c| (CADR G166730)) G166730) NIL)) NIL) @@ -1034,36 +1034,36 @@ ((AND (CONSP |p|) (EQ (QCAR |p|) 'SPADCALL) (PROGN - (SPADLET |ISTMP#1| (QCDR |p|)) + (setq |ISTMP#1| (QCDR |p|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |sharpVar| + (setq |sharpVar| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |n1| + (setq |n1| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCAR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCAR |ISTMP#4|) 'ELT) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQUAL (QCAR |ISTMP#5|) |minivectorName|) (PROGN - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCDR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) @@ -1071,54 +1071,54 @@ (QCDR |ISTMP#6|) NIL) (PROGN - (SPADLET |slot| + (setq |slot| (QCAR |ISTMP#6|)) 'T))))))))))))) (EQ |iequalSlot| (ELT |$minivector| |slot|))) - (SPADLET |initList| + (setq |initList| (CONS (CONS |n1| |c|) |initList|)) - (SPADLET |sharpList| + (setq |sharpList| (|insert| |sharpVar| |sharpList|)) - (SPADLET |n| |n1|)) + (setq |n| |n1|)) ('T - (SPADLET |miscList| + (setq |miscList| (CONS (CONS |p| (CONS |c| NIL)) |miscList|))))))) (COND ((OR (NULL (AND (CONSP |miscList|) (EQ (QCDR |miscList|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |miscList|)) + (setq |ISTMP#1| (QCAR |miscList|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |generalPred| + (setq |generalPred| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |generalTerm| + (setq |generalTerm| (QCAR |ISTMP#2|)) 'T))))))) (NULL (AND (CONSP |sharpList|) (EQ (QCDR |sharpList|) NIL) (PROGN - (SPADLET |sharpArg| + (setq |sharpArg| (QCAR |sharpList|)) 'T)))) (RETURN NIL)) ((NULL |initList|) NIL) ('T - (SPADLET |specialValues| + (setq |specialValues| (MSORT (ASSOCLEFT |initList|))) (COND ((PROG (G167096) - (SPADLET G167096 NIL) + (setq G167096 NIL) (RETURN (DO ((G167102 NIL G167096) (G167103 |specialValues| @@ -1134,9 +1134,9 @@ (NULL (INTEGERP |n|))))))))) NIL) ('T - (SPADLET |minIndex| + (setq |minIndex| (PROG (G167110) - (SPADLET G167110 999999) + (setq G167110 999999) (RETURN (DO ((G167115 |specialValues| (CDR G167115)) @@ -1153,7 +1153,7 @@ (MIN G167110 G166645)))))))) (COND ((NULL (PROG (G167121) - (SPADLET G167121 'T) + (setq G167121 'T) (RETURN (DO ((G167128 NIL (NULL G167121)) (G167129 @@ -1179,7 +1179,7 @@ "Recurrence relation must give consecutive special ~ values. Given values are: %l %1") (CONS (PROG (G167138) - (SPADLET G167138 NIL) + (setq G167138 NIL) (RETURN (DO ((G167143 |specialValues| @@ -1198,37 +1198,37 @@ (CONS |sv| NIL))))))))) NIL)) (RETURN NIL)) - ('T (SPADLET |k| (|#| |specialValues|)) - (SPADLET |n| (+ |k| |minIndex|)) - (SPADLET |predOk| + ('T (setq |k| (|#| |specialValues|)) + (setq |n| (+ |k| |minIndex|)) + (setq |predOk| (COND ((EQUAL |generalPred| ''T) 'T) ((AND (CONSP |generalPred|) (EQ (QCAR |generalPred|) 'SPADCALL) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |generalPred|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |m| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| + (setq |m| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQUAL (QCAR |ISTMP#2|) |sharpArg|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCAR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCAR |ISTMP#4|) 'ELT) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) @@ -1236,7 +1236,7 @@ (QCAR |ISTMP#5|) |minivectorName|) (PROGN - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCDR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) @@ -1244,7 +1244,7 @@ (QCDR |ISTMP#6|) NIL) (PROGN - (SPADLET |slot| + (setq |slot| (QCAR |ISTMP#6|)) 'T))))))))))))) @@ -1254,36 +1254,36 @@ ((AND (CONSP |generalPred|) (EQ (QCAR |generalPred|) 'SPADCALL) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |generalPred|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'SPADCALL) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQUAL (QCAR |ISTMP#3|) |sharpArg|) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |m| + (setq |m| (QCAR |ISTMP#4|)) - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCAR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) @@ -1291,7 +1291,7 @@ (QCAR |ISTMP#6|) 'ELT) (PROGN - (SPADLET + (setq |ISTMP#7| (QCDR |ISTMP#6|)) @@ -1303,7 +1303,7 @@ |ISTMP#7|) |minivectorName|) (PROGN - (SPADLET + (setq |ISTMP#8| (QCDR |ISTMP#7|)) @@ -1315,31 +1315,31 @@ |ISTMP#8|) NIL) (PROGN - (SPADLET + (setq |slot| (QCAR |ISTMP#8|)) 'T))))))))))))))) (PROGN - (SPADLET |ISTMP#9| + (setq |ISTMP#9| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#9|) (EQ (QCDR |ISTMP#9|) NIL) (PROGN - (SPADLET |ISTMP#10| + (setq |ISTMP#10| (QCAR |ISTMP#9|)) (AND (CONSP |ISTMP#10|) (EQ (QCAR |ISTMP#10|) 'ELT) (PROGN - (SPADLET |ISTMP#11| + (setq |ISTMP#11| (QCDR |ISTMP#10|)) (AND (CONSP |ISTMP#11|) (EQUAL (QCAR |ISTMP#11|) |minivectorName|) (PROGN - (SPADLET |ISTMP#12| + (setq |ISTMP#12| (QCDR |ISTMP#11|)) (AND (CONSP |ISTMP#12|) @@ -1347,7 +1347,7 @@ (QCDR |ISTMP#12|) NIL) (PROGN - (SPADLET |notSlot| + (setq |notSlot| (QCAR |ISTMP#12|)) 'T))))))))))) (EQ |lesspSlot| @@ -1358,37 +1358,37 @@ ((AND (CONSP |generalPred|) (EQ (QCAR |generalPred|) 'NOT) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |generalPred|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) 'SPADCALL) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQUAL (QCAR |ISTMP#3|) |sharpArg|) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |m| + (setq |m| (QCAR |ISTMP#4|)) - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCAR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) @@ -1396,7 +1396,7 @@ (QCAR |ISTMP#6|) 'ELT) (PROGN - (SPADLET + (setq |ISTMP#7| (QCDR |ISTMP#6|)) @@ -1408,7 +1408,7 @@ |ISTMP#7|) |minivectorName|) (PROGN - (SPADLET + (setq |ISTMP#8| (QCDR |ISTMP#7|)) @@ -1435,13 +1435,13 @@ (CONS |n| (CONS |m| NIL))) (RETURN NIL)) ('T - (SPADLET |diffCell| + (setq |diffCell| (|compiledLookupCheck| '- '($ $ $) |integer|)) - (SPADLET |diffSlot| + (setq |diffSlot| (OR (PROG (G167149) - (SPADLET G167149 NIL) + (setq G167149 NIL) (RETURN (DO ((G167157 NIL G167149) @@ -1462,17 +1462,17 @@ (SETQ G167149 (OR G167149 |i|))))))))) (RETURN NIL))) - (SPADLET |sharpPosition| + (setq |sharpPosition| (PARSE-INTEGER (SUBSTRING |sharpArg| 1 NIL))) - (SPADLET |al| + (setq |al| (|mkDiffAssoc| |op| |generalTerm| |k| |sharpPosition| |sharpArg| |diffSlot| |minivectorName|)) (COND ((NULL |al|) NIL) ((|member| '|$failed| |al|) NIL) - ('T (SPADLET |body| |generalTerm|) + ('T (setq |body| |generalTerm|) (DO ((G167169 |al| (CDR G167169)) (G167047 NIL)) ((OR (ATOM G167169) @@ -1482,21 +1482,21 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G167047)) - (SPADLET |b| (CDR G167047)) + (setq |a| (CAR G167047)) + (setq |b| (CDR G167047)) G167047) NIL)) NIL) (SEQ (EXIT - (SPADLET |body| + (setq |body| (MSUBST |b| |a| |body|))))) - (SPADLET |result| + (setq |result| (CONS |body| (CONS |sharpArg| (CONS (SPADDIFFERENCE |n| 1) (NREVERSE (PROG (G167180) - (SPADLET G167180 NIL) + (setq G167180 NIL) (RETURN (DO ((G167185 @@ -1543,9 +1543,9 @@ (SEQ (COND ((ATOM |body|) NIL) ((AND (CONSP |body|) (EQ (QCAR |body|) 'COND) - (PROGN (SPADLET |pl| (QCDR |body|)) 'T)) + (PROGN (setq |pl| (QCDR |body|)) 'T)) (PROG (G167351) - (SPADLET G167351 NIL) + (setq G167351 NIL) (RETURN (DO ((G167357 |pl| (CDR G167357)) (G167273 NIL)) @@ -1555,8 +1555,8 @@ NIL) (PROGN (PROGN - (SPADLET |p| (CAR G167273)) - (SPADLET |c| (CADR G167273)) + (setq |p| (CAR G167273)) + (setq |c| (CADR G167273)) G167273) NIL)) G167351) @@ -1567,45 +1567,45 @@ |diffSlot| |vecname|))))))))) ((AND (CONSP |body|) (PROGN - (SPADLET |fn| (QCAR |body|)) - (SPADLET |argl| (QCDR |body|)) + (setq |fn| (QCAR |body|)) + (setq |argl| (QCDR |body|)) 'T)) (COND ((AND (BOOT-EQUAL |fn| |op|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (ELT |argl| (SPADDIFFERENCE |sharpPosition| 1))) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'SPADCALL) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQUAL (QCAR |ISTMP#2|) |sharpArg|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (PROGN - (SPADLET |n| (QCAR |ISTMP#3|)) - (SPADLET |ISTMP#4| + (setq |n| (QCAR |ISTMP#3|)) + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCAR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCAR |ISTMP#5|) 'ELT) (PROGN - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCDR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) (EQUAL (QCAR |ISTMP#6|) |vecname|) (PROGN - (SPADLET |ISTMP#7| + (setq |ISTMP#7| (QCDR |ISTMP#6|)) (AND (CONSP |ISTMP#7|) @@ -1622,7 +1622,7 @@ ('T (CONS '|$failed| NIL)))) ('T (PROG (G167364) - (SPADLET G167364 NIL) + (setq G167364 NIL) (RETURN (DO ((G167369 |argl| (CDR G167369)) (|x| NIL)) ((OR (ATOM G167369) diff --git a/src/interp/nrunopt.lisp.pamphlet b/src/interp/nrunopt.lisp.pamphlet index 8b7f0c2..46694a7 100644 --- a/src/interp/nrunopt.lisp.pamphlet +++ b/src/interp/nrunopt.lisp.pamphlet @@ -55,12 +55,12 @@ (declare (special |$byteVec|)) (RETURN (SEQ (PROGN - (SPADLET |newVec| (make-array (SIZE |vec|))) + (setq |newVec| (make-array (SIZE |vec|))) (DO ((G166069 (MAXINDEX |vec|)) (|index| 0 (QSADD1 |index|))) ((QSGREATERP |index| G166069) NIL) (SEQ (EXIT (PROGN - (SPADLET |item| (ELT |vec| |index|)) + (setq |item| (ELT |vec| |index|)) (COND ((NULL |item|) NIL) ('T @@ -71,9 +71,9 @@ (|makeGoGetSlot| |item| |index|)) ('T |item|))))))))) - (SPADLET |$byteVec| + (setq |$byteVec| (PROG (G166073) - (SPADLET G166073 NIL) + (setq G166073 NIL) (RETURN (DO ((G166078 (NREVERSE |$byteVec|) (CDR G166078)) @@ -103,19 +103,19 @@ (declare (special |$byteAddress| |$byteVec|)) (RETURN (PROGN - (SPADLET |sig| (CAR |item|)) - (SPADLET |whereToGo| (CADR |item|)) - (SPADLET |op| (CADDR |item|)) - (SPADLET |flag| (CDDDR |item|)) - (SPADLET |n| (SPADDIFFERENCE (|#| |sig|) 1)) - (SPADLET |newcode| + (setq |sig| (CAR |item|)) + (setq |whereToGo| (CADR |item|)) + (setq |op| (CADDR |item|)) + (setq |flag| (CDDDR |item|)) + (setq |n| (SPADDIFFERENCE (|#| |sig|) 1)) + (setq |newcode| (CONS |n| (CONS |whereToGo| (APPEND (|makeCompactSigCode| |sig| NIL) (CONS |index| NIL))))) - (SPADLET |$byteVec| (CONS |newcode| |$byteVec|)) - (SPADLET |curAddress| |$byteAddress|) - (SPADLET |$byteAddress| (+ (+ |$byteAddress| |n|) 4)) + (setq |$byteVec| (CONS |newcode| |$byteVec|)) + (setq |curAddress| |$byteAddress|) + (setq |$byteAddress| (+ (+ |$byteAddress| |n|) 4)) (CONS |curAddress| |op|))))) ;--======================================================================= @@ -138,15 +138,15 @@ |$NRTslot1PredicateList|)) (RETURN (SEQ (PROGN - (SPADLET |$predListLength| + (setq |$predListLength| (LENGTH |$NRTslot1PredicateList|)) - (SPADLET |$byteVecAcc| NIL) - (SPADLET |nam| (CAR |u|)) - (SPADLET |addForm| (CAADR |u|)) - (SPADLET |opList| (CDADR |u|)) - (SPADLET |d| + (setq |$byteVecAcc| NIL) + (setq |nam| (CAR |u|)) + (setq |addForm| (CAADR |u|)) + (setq |opList| (CDADR |u|)) + (setq |d| (PROG (G166126) - (SPADLET G166126 NIL) + (setq G166126 NIL) (RETURN (DO ((G166133 |opList| (CDR G166133)) (G166115 NIL)) @@ -156,24 +156,24 @@ NIL) (PROGN (PROGN - (SPADLET |op| (CAR G166115)) - (SPADLET |items| + (setq |op| (CAR G166115)) + (setq |items| (CDR G166115)) G166115) NIL)) (NREVERSE0 G166126)) (SEQ (EXIT (COND - ((SPADLET |y| + ((setq |y| (|makeCompactDirect1| |op| |items|)) (SETQ G166126 (CONS (CONS |op| (CONS |y| NIL)) G166126)))))))))) - (SPADLET |$byteVec| + (setq |$byteVec| (APPEND |$byteVec| (PROG (G166140) - (SPADLET G166140 NIL) + (setq G166140 NIL) (RETURN (DO ((G166145 (NREVERSE |$byteVecAcc|) @@ -191,7 +191,7 @@ (APPEND G166140 G166109))))))))) (LIST2VEC (PROG (G166151) - (SPADLET G166151 NIL) + (setq G166151 NIL) (RETURN (DO ((G166156 |d| (CDR G166156)) (G166110 NIL)) @@ -241,12 +241,12 @@ (declare (special |$isOpPackageName| |$byteAddress| |$lookupFunction|)) (RETURN (SEQ (PROGN - (SPADLET |sig| (CAR |y|)) - (SPADLET |r| (CDR |y|)) + (setq |sig| (CAR |y|)) + (setq |r| (CDR |y|)) |y|) (IF (BOOT-EQUAL |r| (CONS '|Subsumed| NIL)) - (EXIT (SEQ (SPADLET |n| (SPADDIFFERENCE (|#| |sig|) 1)) - (SPADLET |$byteAddress| + (EXIT (SEQ (setq |n| (SPADDIFFERENCE (|#| |sig|) 1)) + (setq |$byteAddress| (+ (+ |$byteAddress| |n|) 4)) (EXIT (CONS |n| (CONS 0 @@ -256,22 +256,22 @@ (CONS 0 NIL)))))))) (IF (AND (CONSP |r|) (PROGN - (SPADLET |n| (QCAR |r|)) - (SPADLET |s| (QCDR |r|)) + (setq |n| (QCAR |r|)) + (setq |s| (QCDR |r|)) 'T)) - (SEQ (SPADLET |slot| + (SEQ (setq |slot| (SEQ (IF (AND (CONSP |n|) (PROGN - (SPADLET |p| (QCAR |n|)) + (setq |p| (QCAR |n|)) 'T)) (EXIT |p|)) (EXIT |n|))) - (EXIT (SPADLET |predCode| + (EXIT (setq |predCode| (SEQ (IF (AND (CONSP |s|) (PROGN - (SPADLET |pred| (QCAR |s|)) + (setq |pred| (QCAR |s|)) 'T)) (EXIT (|predicateBitIndex| |pred|))) @@ -283,11 +283,11 @@ (SEQ (IF (BOOT-EQUAL |$lookupFunction| '|lookupIncomplete|) (EXIT (RETURN NIL))) - (EXIT (SPADLET |slot| 1))) + (EXIT (setq |slot| 1))) NIL) - (SPADLET |n| (SPADDIFFERENCE (|#| |sig|) 1)) - (SPADLET |$byteAddress| (+ (+ |$byteAddress| |n|) 4)) - (SPADLET |res| + (setq |n| (SPADDIFFERENCE (|#| |sig|) 1)) + (setq |$byteAddress| (+ (+ |$byteAddress| |n|) 4)) + (setq |res| (CONS |n| (CONS |predCode| (APPEND (|makeCompactSigCode| |sig| @@ -300,11 +300,11 @@ (DECLARE (SPECIAL |$op| |$byteVecAcc| |$byteAddress|)) (RETURN (SEQ (PROGN - (SPADLET |curAddress| |$byteAddress|) - (SPADLET |$op| |op|) - (SPADLET |newcodes| + (setq |curAddress| |$byteAddress|) + (setq |$op| |op|) + (setq |newcodes| (OR (PROG (G166213) - (SPADLET G166213 NIL) + (setq G166213 NIL) (RETURN (DO ((G166219 (|orderBySubsumption| |items|) @@ -317,12 +317,12 @@ G166213) (SEQ (EXIT (COND - ((SPADLET |u| + ((setq |u| (|makeCompactDirect1,fn| |y|)) (SETQ G166213 (APPEND G166213 |u|))))))))) (RETURN NIL))) - (SPADLET |$byteVecAcc| (CONS |newcodes| |$byteVecAcc|)) + (setq |$byteVecAcc| (CONS |newcodes| |$byteVecAcc|)) |curAddress|))))) ;orderBySubsumption items == @@ -346,7 +346,7 @@ (declare (special |$op|)) (RETURN (SEQ (PROGN - (SPADLET |acc| (SPADLET |subacc| NIL)) + (setq |acc| (setq |subacc| NIL)) (DO ((G166266 |items| (CDR G166266)) (|x| NIL)) ((OR (ATOM G166266) (PROGN (SETQ |x| (CAR G166266)) NIL)) @@ -355,29 +355,29 @@ ((AND (NULL (member |$op| '(|Zero| |One|))) (CONSP |x|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (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|) (EQ (QCDR |ISTMP#3|) NIL) (EQ (QCAR |ISTMP#3|) '|Subsumed|)))))))) - (SPADLET |subacc| (CONS |x| |subacc|))) - ('T (SPADLET |acc| (CONS |x| |acc|))))))) - (SPADLET |y| (SPADLET |z| NIL)) + (setq |subacc| (CONS |x| |subacc|))) + ('T (setq |acc| (CONS |x| |acc|))))))) + (setq |y| (setq |z| NIL)) (DO ((G166282 |subacc| (CDR G166282)) (G166250 NIL)) ((OR (ATOM G166282) (PROGN (SETQ G166250 (CAR G166282)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR G166250)) - (SPADLET |b| (CADR G166250)) + (setq |a| (CAR G166250)) + (setq |b| (CADR G166250)) G166250) NIL)) NIL) @@ -385,26 +385,26 @@ (|b| (PROGN (DO () ((NULL - (SPADLET |u| + (setq |u| (|assoc| |b| |subacc|))) NIL) (SEQ - (EXIT (SPADLET |b| (CADR |u|))))) - (SPADLET |u| + (EXIT (setq |b| (CADR |u|))))) + (setq |u| (OR (|assoc| |b| |acc|) (|systemError| NIL))) (COND ((NULL (CADR |u|)) - (SPADLET |u| + (setq |u| (CONS (CAR |u|) (CONS 1 NIL))))) - (SPADLET |y| + (setq |y| (CONS (CONS |a| (CONS '|Subsumed| NIL)) (CONS |u| |y|))) - (SPADLET |z| (|insert| |b| |z|)))))))) + (setq |z| (|insert| |b| |z|)))))))) (APPEND |y| (PROG (G166301) - (SPADLET G166301 NIL) + (setq G166301 NIL) (RETURN (DO ((G166308 |acc| (CDR G166308)) (|w| NIL)) @@ -414,7 +414,7 @@ NIL) (PROGN (PROGN - (SPADLET |c| (CAR |w|)) + (setq |c| (CAR |w|)) |w|) NIL)) (NREVERSE0 G166301)) @@ -437,7 +437,7 @@ (PROG () (RETURN (SEQ (PROG (G166343) - (SPADLET G166343 NIL) + (setq G166343 NIL) (RETURN (DO ((G166348 |sig| (CDR G166348)) (|x| NIL)) ((OR (ATOM G166348) @@ -488,16 +488,16 @@ |proto4| |bitVector| |predvec| |packagevec| |auxvec|) (RETURN (SEQ (PROGN - (SPADLET |domname| (|devaluate| |dollar|)) - (SPADLET |infovec| (GETL (|opOf| |domname|) '|infovec|)) - (SPADLET |lookupFunction| (|getLookupFun| |infovec|)) - (SPADLET |lookupFunction| + (setq |domname| (|devaluate| |dollar|)) + (setq |infovec| (GETL (|opOf| |domname|) '|infovec|)) + (setq |lookupFunction| (|getLookupFun| |infovec|)) + (setq |lookupFunction| (COND ((BOOT-EQUAL |lookupFunction| '|lookupIncomplete|) #'|lookupIncomplete|) ('T #'|lookupComplete|))) - (SPADLET |template| (ELT |infovec| 0)) + (setq |template| (ELT |infovec| 0)) (COND ((ELT |template| 5) (|stuffSlot| |dollar| 5 (ELT |template| 5)))) @@ -505,23 +505,23 @@ (|i| (+ 6 (|#| (CDR |domname|))) (+ |i| 1))) ((> |i| G166368) NIL) (SEQ (EXIT (COND - ((SPADLET |item| (ELT |template| |i|)) + ((setq |item| (ELT |template| |i|)) (|stuffSlot| |dollar| |i| |item|)))))) (SETELT |dollar| 1 (LIST |lookupFunction| |dollar| (ELT |infovec| 1))) (SETELT |dollar| 2 (ELT |infovec| 2)) - (SPADLET |proto4| (ELT |infovec| 3)) + (setq |proto4| (ELT |infovec| 3)) (SETELT |dollar| 4 (COND ((VECP (CDDR |proto4|)) (CONS (COPY-SEQ (CAR |proto4|)) (CDR |proto4|))) - ('T (SPADLET |bitVector| (ELT |dollar| 3)) - (SPADLET |predvec| (CAR |proto4|)) - (SPADLET |packagevec| (CADR |proto4|)) - (SPADLET |auxvec| + ('T (setq |bitVector| (ELT |dollar| 3)) + (setq |predvec| (CAR |proto4|)) + (setq |packagevec| (CADR |proto4|)) + (setq |auxvec| (LIST2VEC (PROG (G166376) - (SPADLET G166376 NIL) + (setq G166376 NIL) (RETURN (DO ((G166381 @@ -579,37 +579,37 @@ (CONS (SYMBOL-FUNCTION |item|) |dollar|)) ((AND (CONSP |item|) (PROGN - (SPADLET |n| (QCAR |item|)) - (SPADLET |op| (QCDR |item|)) + (setq |n| (QCAR |item|)) + (setq |op| (QCDR |item|)) 'T) (INTEGERP |n|)) (CONS '|newGoGet| (CONS |dollar| |item|))) ((AND (CONSP |item|) (EQ (QCAR |item|) 'CONS) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (setq |ISTMP#1| (QCDR |item|)) (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 |ISTMP#3| + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCAR |ISTMP#3|) 'FUNCALL) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#4|)) - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#5|)) 'T)))))))))))) (COND @@ -638,9 +638,9 @@ (declare (special |$pairlis| |$lisplibAttributes|)) (RETURN (SEQ (PROGN - (SPADLET |alist| + (setq |alist| (PROG (G166480) - (SPADLET G166480 NIL) + (setq G166480 NIL) (RETURN (DO ((G166486 |attributeList| (CDR G166486)) @@ -656,10 +656,10 @@ (|allConstructors|))) (SETQ G166480 (CONS |x| G166480)))))))))) - (SPADLET |$lisplibAttributes| + (setq |$lisplibAttributes| (|simplifyAttributeAlist| (PROG (G166498) - (SPADLET G166498 NIL) + (setq G166498 NIL) (RETURN (DO ((G166505 (SUBLIS |$pairlis| |alist|) @@ -671,8 +671,8 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G166470)) - (SPADLET |b| (CADR G166470)) + (setq |a| (CAR G166470)) + (setq |b| (CADR G166470)) G166470) NIL)) (NREVERSE0 G166498)) @@ -700,16 +700,16 @@ (SEQ (COND ((AND (CONSP |al|) (PROGN - (SPADLET |ISTMP#1| (QCAR |al|)) + (setq |ISTMP#1| (QCAR |al|)) (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))) - (PROGN (SPADLET |r| (QCDR |al|)) 'T)) - (SPADLET |u| + (PROGN (setq |r| (QCDR |al|)) 'T)) + (setq |u| (PROG (G166536) - (SPADLET G166536 NIL) + (setq G166536 NIL) (RETURN (DO ((G166542 |r| (CDR G166542)) (|x| NIL)) @@ -722,7 +722,7 @@ ((AND (CONSP |x|) (EQUAL (QCAR |x|) |a|) (PROGN - (SPADLET |b| (QCDR |x|)) + (setq |b| (QCDR |x|)) 'T)) (SETQ G166536 (CONS |x| G166536)))))))))) @@ -731,15 +731,15 @@ (CONS (CAR |al|) (|simplifyAttributeAlist| (CDR |al|)))) ('T - (SPADLET |pred| + (setq |pred| (|simpBool| (|makePrefixForm| (CONS |b| (ASSOCRIGHT |u|)) 'OR))) - (SPADLET |$NRTslot1PredicateList| + (setq |$NRTslot1PredicateList| (|insert| |pred| |$NRTslot1PredicateList|)) - (SPADLET |s| + (setq |s| (PROG (G166553) - (SPADLET G166553 NIL) + (setq G166553 NIL) (RETURN (DO ((G166559 |r| (CDR G166559)) (|x| NIL)) @@ -754,7 +754,7 @@ (AND (CONSP |x|) (EQUAL (QCAR |x|) |a|) (PROGN - (SPADLET |b| (QCDR |x|)) + (setq |b| (QCDR |x|)) 'T))) (SETQ G166553 (CONS |x| G166553)))))))))) @@ -770,7 +770,7 @@ (declare (special |$NRTattributeAlist|)) (RETURN (SEQ (PROG (G166590) - (SPADLET G166590 NIL) + (setq G166590 NIL) (RETURN (DO ((G166597 |$NRTattributeAlist| (CDR G166597)) (G166580 NIL)) @@ -778,13 +778,13 @@ (PROGN (SETQ G166580 (CAR G166597)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR G166580)) - (SPADLET |b| (CDR G166580)) + (setq |a| (CAR G166580)) + (setq |b| (CDR G166580)) G166580) NIL)) (NREVERSE0 G166590)) (SEQ (EXIT (COND - ((NEQUAL (SPADLET |k| + ((NEQUAL (setq |k| (|predicateBitIndex| |b|)) (SPADDIFFERENCE 1)) (SETQ G166590 @@ -804,10 +804,10 @@ (PROG (|u| |p|) (declare (special |$NRTslot1PredicateList|)) (RETURN - (SEQ (SPADLET |u| (|simpBool| (|transHasCode| |x|))) + (SEQ (setq |u| (|simpBool| (|transHasCode| |x|))) (IF (BOOT-EQUAL |u| 'T) (EXIT 0)) (IF (NULL |u|) (EXIT (SPADDIFFERENCE 1))) - (IF (SPADLET |p| (POSN1 |u| |$NRTslot1PredicateList|)) + (IF (setq |p| (POSN1 |u| |$NRTslot1PredicateList|)) (EXIT (+ |p| 1))) (IF (NULL |flag|) (EXIT (|predicateBitIndex,pn| @@ -830,14 +830,14 @@ (SEQ (COND ((AND (CONSP |p|) (PROGN - (SPADLET |op| (QCAR |p|)) - (SPADLET |argl| (QCDR |p|)) + (setq |op| (QCAR |p|)) + (setq |argl| (QCDR |p|)) 'T) (|member| |op| '(AND |and| OR |or| NOT |not|))) (|simpBool| (|makePrefixForm| (PROG (G166657) - (SPADLET G166657 NIL) + (setq G166657 NIL) (RETURN (DO ((G166662 |argl| (CDR G166662)) (|x| NIL)) @@ -853,23 +853,23 @@ |op|))) ((AND (CONSP |p|) (EQ (QCAR |p|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |p|)) + (setq |ISTMP#1| (QCDR |p|)) (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|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ISTMP#3| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCAR |ISTMP#3|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |a| (QCAR |ISTMP#4|)) + (setq |a| (QCAR |ISTMP#4|)) 'T)))))))))) (LASSOC |a| |$NRTattributeAlist|)) ('T |p|)))))) @@ -892,7 +892,7 @@ (DEFUN |makePrefixForm| (|u| |op|) (PROGN - (SPADLET |u| (MKPF |u| |op|)) + (setq |u| (MKPF |u| |op|)) (COND ((BOOT-EQUAL |u| ''T) 'T) ('T |u|)))) ;--======================================================================= @@ -926,8 +926,8 @@ (SEQ (PROGN (COND ((BOOT-EQUAL |$insideCategoryPackageIfTrue| 'T) - (SPADLET |pl| (|union| |pl| |$categoryPredicateList|)))) - (SPADLET |$predGensymAlist| NIL) + (setq |pl| (|union| |pl| |$categoryPredicateList|)))) + (setq |$predGensymAlist| NIL) (DO ((G166696 (|removeAttributePredicates| |pl|) (CDR G166696)) (|p| NIL)) @@ -935,12 +935,12 @@ (PROGN (SETQ |p| (CAR G166696)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |pred| + (setq |pred| (|simpBool| (|transHasCode| |p|))) (COND ((ATOM |pred|) '|skip|) ((|isHasDollarPred| |pred|) - (SPADLET |lasts| + (setq |lasts| (|insert| |pred| |lasts|)) (DO ((G166705 (|stripOutNonDollarPreds| |pred|) @@ -952,19 +952,19 @@ NIL)) NIL) (SEQ (EXIT - (SPADLET |firsts| + (setq |firsts| (|insert| |q| |firsts|)))))) ('T - (SPADLET |firsts| + (setq |firsts| (|insert| |pred| |firsts|)))))))) - (SPADLET |firstPl| + (setq |firstPl| (SUBLIS |$pairlis| (NREVERSE (|orderByContainment| |firsts|)))) - (SPADLET |lastPl| + (setq |lastPl| (SUBLIS |$pairlis| (NREVERSE (|orderByContainment| |lasts|)))) - (SPADLET |firstCode| + (setq |firstCode| (CONS '|buildPredVector| (CONS 0 (CONS 0 @@ -972,9 +972,9 @@ (|mungeAddGensyms| |firstPl| |$predGensymAlist|) NIL))))) - (SPADLET |lastCode| + (setq |lastCode| (|augmentPredCode| (|#| |firstPl|) |lastPl|)) - (SPADLET |$lisplibPredicates| (APPEND |firstPl| |lastPl|)) + (setq |$lisplibPredicates| (APPEND |firstPl| |lastPl|)) (CONS |$lisplibPredicates| (CONS |firstCode| |lastCode|))))))) ;augmentPredCode(n,lastPl) == @@ -988,13 +988,13 @@ (declare (special |$predGensymAlist|)) (RETURN (SEQ (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|mungeAddGensyms| |lastPl| |$predGensymAlist|)) - (SPADLET |pl| (CDR |LETTMP#1|)) - (SPADLET |delta| (EXPT 2 |n|)) - (SPADLET |l| + (setq |pl| (CDR |LETTMP#1|)) + (setq |delta| (EXPT 2 |n|)) + (setq |l| (PROG (G166739) - (SPADLET G166739 NIL) + (setq G166739 NIL) (RETURN (DO ((G166747 |pl| (CDR G166747)) (|x| NIL)) @@ -1006,7 +1006,7 @@ (SEQ (EXIT (SETQ G166739 (CONS (PROGN - (SPADLET |u| + (setq |u| (MKPF (CONS |x| (CONS @@ -1016,7 +1016,7 @@ (CONS |delta| NIL))) NIL)) 'AND)) - (SPADLET |delta| + (setq |delta| (TIMES 2 |delta|)) |u|) G166739))))))))))))) @@ -1039,13 +1039,13 @@ (SEQ (COND ((AND (CONSP |pred|) (PROGN - (SPADLET |op| (QCAR |pred|)) - (SPADLET |r| (QCDR |pred|)) + (setq |op| (QCAR |pred|)) + (setq |r| (QCDR |pred|)) 'T)) (COND ((member |op| '(AND |and| OR |or| NOT |not|)) (PROG (G166771) - (SPADLET G166771 NIL) + (setq G166771 NIL) (RETURN (DO ((G166777 NIL G166771) (G166778 |r| (CDR G166778)) (|x| NIL)) @@ -1071,12 +1071,12 @@ (SEQ (COND ((AND (CONSP |pred|) (PROGN - (SPADLET |op| (QCAR |pred|)) - (SPADLET |r| (QCDR |pred|)) + (setq |op| (QCAR |pred|)) + (setq |r| (QCDR |pred|)) 'T) (member |op| '(AND |and| OR |or| NOT |not|))) (PROG (G166795) - (SPADLET G166795 NIL) + (setq G166795 NIL) (RETURN (DO ((G166800 |r| (CDR G166800)) (|x| NIL)) ((OR (ATOM G166800) @@ -1105,7 +1105,7 @@ (PROG () (RETURN (SEQ (PROG (G166849) - (SPADLET G166849 NIL) + (setq G166849 NIL) (RETURN (DO ((G166854 |p| (CDR G166854)) (|x| NIL)) ((OR (ATOM G166854) @@ -1123,32 +1123,32 @@ (RETURN (SEQ (IF (AND (AND (CONSP |p|) (PROGN - (SPADLET |op| (QCAR |p|)) - (SPADLET |argl| (QCDR |p|)) + (setq |op| (QCAR |p|)) + (setq |argl| (QCDR |p|)) 'T)) (|member| |op| '(AND |and| OR |or| NOT |not|))) (EXIT (|makePrefixForm| (|removeAttributePredicates,fnl| |argl|) |op|))) (IF (AND (CONSP |p|) (EQ (QCAR |p|) '|has|) (PROGN - (SPADLET |ISTMP#1| (QCDR |p|)) + (setq |ISTMP#1| (QCDR |p|)) (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|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCAR |ISTMP#3|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#4|)) 'T)))))))))) (EXIT (SEQ (|sayBrightlyNT| "Predicate: ") @@ -1164,7 +1164,7 @@ (PROG () (RETURN (SEQ (PROG (G166879) - (SPADLET G166879 NIL) + (setq G166879 NIL) (RETURN (DO ((G166884 |pl| (CDR G166884)) (|p| NIL)) ((OR (ATOM G166884) @@ -1187,13 +1187,13 @@ (RETURN (SEQ (COND ((ATOM |x|) |x|) - ('T (SPADLET |op| (QCAR |x|)) + ('T (setq |op| (QCAR |x|)) (COND ((member |op| '(|HasCategory| |HasAttribute|)) |x|) ((EQ |op| '|has|) (|compHasFormat| |x|)) ('T (PROG (G166899) - (SPADLET G166899 NIL) + (setq G166899 NIL) (RETURN (DO ((G166904 |x| (CDR G166904)) (|y| NIL)) ((OR (ATOM G166904) @@ -1215,14 +1215,14 @@ (PROG (|g|) (RETURN (SEQ (IF (ATOM |x|) (EXIT |x|)) - (IF (SPADLET |g| (LASSOC |x| |gal|)) + (IF (setq |g| (LASSOC |x| |gal|)) (EXIT (SEQ (IF (EQL |n| 0) (EXIT (CONS 'LET (CONS |g| (CONS |x| NIL))))) (EXIT |g|)))) (EXIT (CONS (CAR |x|) (PROG (G166921) - (SPADLET G166921 NIL) + (setq G166921 NIL) (RETURN (DO ((G166926 (CDR |x|) (CDR G166926)) (|y| NIL)) @@ -1243,7 +1243,7 @@ (RETURN (SEQ (CONS 'LIST (PROG (G166942) - (SPADLET G166942 NIL) + (setq G166942 NIL) (RETURN (DO ((G166947 |u| (CDR G166947)) (|x| NIL)) ((OR (ATOM G166947) @@ -1273,30 +1273,30 @@ (RETURN (SEQ (COND ((OR (NULL |pl|) (NULL (CDR |pl|))) |pl|) - ('T (SPADLET |max| (CAR |pl|)) + ('T (setq |max| (CAR |pl|)) (DO ((G166964 (CDR |pl|) (CDR G166964)) (|x| NIL)) ((OR (ATOM G166964) (PROGN (SETQ |x| (CAR G166964)) NIL)) NIL) (SEQ (EXIT (PROGN (COND - ((SPADLET |y| (CONTAINED |max| |x|)) + ((setq |y| (CONTAINED |max| |x|)) (COND ((NULL (|assoc| |max| |$predGensymAlist|)) - (SPADLET |$predGensymAlist| + (setq |$predGensymAlist| (CONS (CONS |max| (GENSYM)) |$predGensymAlist|))) ((CONTAINED |x| |max|) (COND ((NULL (|assoc| |x| |$predGensymAlist|)) - (SPADLET |$predGensymAlist| + (setq |$predGensymAlist| (CONS (CONS |x| (GENSYM)) |$predGensymAlist|))) ('T NIL))) ('T NIL)))) - (COND (|y| (SPADLET |max| |x|)) ('T NIL)))))) + (COND (|y| (setq |max| |x|)) ('T NIL)))))) (CONS |max| (|orderByContainment| (|delete| |max| |pl|))))))))) ;buildBitTable(:l) == fn(REVERSE l,0) where fn(l,n) == @@ -1306,8 +1306,8 @@ ; fn(rest l,n) (DEFUN |buildBitTable,fn| (|l| |n|) - (SEQ (IF (NULL |l|) (EXIT |n|)) (SPADLET |n| (+ |n| |n|)) - (IF (QCAR |l|) (SPADLET |n| (+ |n| 1)) NIL) + (SEQ (IF (NULL |l|) (EXIT |n|)) (setq |n| (+ |n| |n|)) + (IF (QCAR |l|) (setq |n| (+ |n| 1)) NIL) (EXIT (|buildBitTable,fn| (CDR |l|) |n|)))) (DEFUN |buildBitTable| (&REST G166988 &AUX |l|) @@ -1321,7 +1321,7 @@ (DEFUN |buildPredVector,fn| (|acc| |n| |l|) (SEQ (IF (NULL |l|) (EXIT |acc|)) - (IF (CAR |l|) (SPADLET |acc| (+ |acc| |n|)) NIL) + (IF (CAR |l|) (setq |acc| (+ |acc| |n|)) NIL) (EXIT (|buildPredVector,fn| |acc| (+ |n| |n|) (CDR |l|))))) (DEFUN |buildPredVector| (|init| |n| |l|) @@ -1378,11 +1378,11 @@ |$levelAlist| |$pairlis| |$condAlist| |$uncondAlist|)) (RETURN (SEQ (PROGN - (SPADLET |$depthAssocCache| (MAKE-HASHTABLE 'ID)) - (SPADLET |$catAncestorAlist| NIL) - (SPADLET |pcAlist| + (setq |$depthAssocCache| (MAKE-HASHTABLE 'ID)) + (setq |$catAncestorAlist| NIL) + (setq |pcAlist| (APPEND (PROG (G167024) - (SPADLET G167024 NIL) + (setq G167024 NIL) (RETURN (DO ((G167029 |$uncondAlist| (CDR G167029)) @@ -1397,10 +1397,10 @@ (SETQ G167024 (CONS (CONS |x| 'T) G167024))))))) |$condAlist|)) - (SPADLET |$levelAlist| + (setq |$levelAlist| (|depthAssocList| (PROG (G167039) - (SPADLET G167039 NIL) + (setq G167039 NIL) (RETURN (DO ((G167044 |pcAlist| (CDR G167044)) @@ -1413,13 +1413,13 @@ (SEQ (EXIT (SETQ G167039 (CONS (CAAR |x|) G167039))))))))) - (SPADLET |opcAlist| + (setq |opcAlist| (NREVERSE (SORTBY #'|NRTcatCompare| |pcAlist|))) - (SPADLET |newPairlis| + (setq |newPairlis| (PROG (G167056) - (SPADLET G167056 NIL) + (setq G167056 NIL) (RETURN (DO ((G167063 |$pairlis| (CDR G167063)) (G167008 NIL) (|i| 1 (QSADD1 |i|))) @@ -1429,16 +1429,16 @@ NIL) (PROGN (PROGN - (SPADLET |b| (CDR G167008)) + (setq |b| (CDR G167008)) G167008) NIL)) (NREVERSE0 G167056)) (SEQ (EXIT (SETQ G167056 (CONS (CONS (+ 5 |i|) |b|) G167056)))))))) - (SPADLET |slot1| + (setq |slot1| (PROG (G167076) - (SPADLET G167076 NIL) + (setq G167076 NIL) (RETURN (DO ((G167083 (SUBLIS |$pairlis| |opcAlist|) @@ -1450,22 +1450,22 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G167011)) - (SPADLET |b| (CDR G167011)) + (setq |a| (CAR G167011)) + (setq |b| (CDR G167011)) G167011) NIL)) (NREVERSE0 G167076)) (SEQ (EXIT (COND ((NEQUAL - (SPADLET |k| + (setq |k| (|predicateBitIndex| |b|)) (SPADDIFFERENCE 1)) (SETQ G167076 (CONS (CONS |a| |k|) G167076)))))))))) - (SPADLET |slot0| + (setq |slot0| (PROG (G167095) - (SPADLET G167095 NIL) + (setq G167095 NIL) (RETURN (DO ((G167101 |slot1| (CDR G167101)) (G167015 NIL)) @@ -1475,8 +1475,8 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G167015)) - (SPADLET |b| (CDR G167015)) + (setq |a| (CAR G167015)) + (setq |b| (CDR G167015)) G167015) NIL)) (NREVERSE0 G167095)) @@ -1485,9 +1485,9 @@ (|hasDefaultPackage| (|opOf| |a|)) G167095)))))))) - (SPADLET |sixEtc| + (setq |sixEtc| (PROG (G167112) - (SPADLET G167112 NIL) + (setq G167112 NIL) (RETURN (DO ((G167117 (|#| |$pairlis|)) (|i| 1 (QSADD1 |i|))) @@ -1495,7 +1495,7 @@ (NREVERSE0 G167112)) (SEQ (EXIT (SETQ G167112 (CONS (+ 5 |i|) G167112)))))))) - (SPADLET |formals| (ASSOCRIGHT |$pairlis|)) + (setq |formals| (ASSOCRIGHT |$pairlis|)) (DO ((G167124 |slot1| (CDR G167124)) (|x| NIL)) ((OR (ATOM G167124) (PROGN (SETQ |x| (CAR G167124)) NIL)) @@ -1503,10 +1503,10 @@ (SEQ (EXIT (RPLACA |x| (EQSUBSTLIST (CONS '$$ |sixEtc|) (CONS '$ |formals|) (CAR |x|)))))) - (SPADLET |predList| (ASSOCRIGHT |slot1|)) - (SPADLET |maxPredList| + (setq |predList| (ASSOCRIGHT |slot1|)) + (setq |maxPredList| (PROG (G167130) - (SPADLET G167130 -999999) + (setq G167130 -999999) (RETURN (DO ((G167135 |predList| (CDR G167135)) (G167006 NIL)) @@ -1517,10 +1517,10 @@ G167130) (SEQ (EXIT (SETQ G167130 (MAX G167130 G167006)))))))) - (SPADLET |catformvec| (ASSOCLEFT |slot1|)) - (SPADLET |maxElement| + (setq |catformvec| (ASSOCLEFT |slot1|)) + (setq |maxElement| (PROG (G167141) - (SPADLET G167141 -999999) + (setq G167141 -999999) (RETURN (DO ((G167146 |$byteVec| (CDR G167146)) (G167007 NIL)) @@ -1543,7 +1543,7 @@ (MKQ (LIST2VEC (PROG (G167156) - (SPADLET G167156 NIL) + (setq G167156 NIL) (RETURN (DO ((G167161 @@ -1581,12 +1581,12 @@ (PROG (|k|) (RETURN (SEQ (COND - ((SPADLET |k| (|NRTassocIndex| |x|)) |k|) + ((setq |k| (|NRTassocIndex| |x|)) |k|) ((OR (ATOM |x|) (ATOM (CDR |x|))) |x|) ('T (CONS (CAR |x|) (PROG (G167210) - (SPADLET G167210 NIL) + (setq G167210 NIL) (RETURN (DO ((G167215 (CDR |x|) (CDR G167215)) (|y| NIL)) @@ -1606,8 +1606,8 @@ (declare (special |$levelAlist|)) (RETURN (PROGN - (SPADLET |catform| (CAR G167226)) - (SPADLET |pred| (CDR G167226)) + (setq |catform| (CAR G167226)) + (setq |pred| (CDR G167226)) (LASSOC (CAR |catform|) |$levelAlist|))))) ;hasDefaultPackage catname == @@ -1620,7 +1620,7 @@ (PROG (|defname|) (RETURN (PROGN - (SPADLET |defname| + (setq |defname| (INTERN (STRCONC |catname| "&"))) (COND ((|constructor?| |defname|) |defname|) ('T NIL)))))) @@ -1640,9 +1640,9 @@ (PROG () (RETURN (SEQ (PROGN - (SPADLET |u| (|delete| '|DomainSubstitutionMacro| |u|)) + (setq |u| (|delete| '|DomainSubstitutionMacro| |u|)) (REMDUP (PROG (G167249) - (SPADLET G167249 NIL) + (setq G167249 NIL) (RETURN (DO ((G167254 |u| (CDR G167254)) (|y| NIL)) @@ -1668,16 +1668,16 @@ (declare (special |$depthAssocCache|)) (RETURN (SEQ (COND - ((SPADLET |y| (HGET |$depthAssocCache| |x|)) |y|) + ((setq |y| (HGET |$depthAssocCache| |x|)) |y|) ((OR (AND (CONSP |x|) (EQ (QCAR |x|) '|Join|) - (PROGN (SPADLET |u| (QCDR |x|)) 'T)) - (SPADLET |u| (|getCatAncestors| |x|))) - (SPADLET |v| (|depthAssocList| |u|)) + (PROGN (setq |u| (QCDR |x|)) 'T)) + (setq |u| (|getCatAncestors| |x|))) + (setq |v| (|depthAssocList| |u|)) (HPUT |$depthAssocCache| |x| (CONS (CONS |x| (+ 1 (PROG (G167268) - (SPADLET G167268 -999999) + (setq G167268 -999999) (RETURN (DO ((G167273 |v| @@ -1703,7 +1703,7 @@ (PROG () (RETURN (SEQ (PROG (G167291) - (SPADLET G167291 NIL) + (setq G167291 NIL) (RETURN (DO ((G167296 (|parentsOf| (|opOf| |x|)) (CDR G167296)) @@ -1732,13 +1732,13 @@ ((ATOM |form|) |form|) ((AND (CONSP |form|) (PROGN - (SPADLET |op| (QCAR |form|)) - (SPADLET |l| (QCDR |form|)) + (setq |op| (QCAR |form|)) + (setq |l| (QCDR |form|)) 'T)) (COND ((BOOT-EQUAL |op| '|Join|) (PROG (G167315) - (SPADLET G167315 NIL) + (setq G167315 NIL) (RETURN (DO ((G167320 |l| (CDR G167320)) (|x| NIL)) ((OR (ATOM G167320) @@ -1753,9 +1753,9 @@ (|listOfCategoryEntries| |l|)) ((AND (BOOT-EQUAL |op| 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (CAR |l|)) + (setq |ISTMP#1| (CAR |l|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |f| (QCAR |ISTMP#1|)) 'T))) + (PROGN (setq |f| (QCAR |ISTMP#1|)) 'T))) (|constructor?| |f|)) (CONS (CAR |l|) NIL)) ((|member| |op| '(ATTRIBUTE SIGNATURE)) NIL) @@ -1786,37 +1786,37 @@ ((NULL |l|) NIL) ((AND (CONSP |l|) (PROGN - (SPADLET |ISTMP#1| (QCAR |l|)) + (setq |ISTMP#1| (QCAR |l|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |op| (QCAR |ISTMP#1|)) - (SPADLET |u| (QCDR |ISTMP#1|)) + (setq |op| (QCAR |ISTMP#1|)) + (setq |u| (QCDR |ISTMP#1|)) 'T))) - (PROGN (SPADLET |v| (QCDR |l|)) 'T)) - (SPADLET |firstItemList| + (PROGN (setq |v| (QCDR |l|)) 'T)) + (setq |firstItemList| (COND ((AND (BOOT-EQUAL |op| 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#1| (CAR |u|)) + (setq |ISTMP#1| (CAR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |f| (QCAR |ISTMP#1|)) + (setq |f| (QCAR |ISTMP#1|)) 'T))) (|constructor?| |f|)) (CONS (CAR |u|) NIL)) ((member |op| '(ATTRIBUTE SIGNATURE)) NIL) ((AND (BOOT-EQUAL |op| 'IF) (CONSP |u|) (PROGN - (SPADLET |pred| (QCAR |u|)) - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |pred| (QCAR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |conseq| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |conseq| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |alternate| + (setq |alternate| (QCAR |ISTMP#2|)) 'T)))))) (|listOfCategoryEntriesIf| |pred| |conseq| @@ -1824,7 +1824,7 @@ ('T (|categoryFormatError|)))) (APPEND |firstItemList| (|listOfCategoryEntries| |v|))) ((AND (CONSP |l|) (EQ (QCAR |l|) 'PROGN) - (PROGN (SPADLET |l| (QCDR |l|)) 'T)) + (PROGN (setq |l| (QCDR |l|)) 'T)) (|listOfCategoryEntries| |l|)) ((EQUAL |l| '(NIL)) NIL) ('T @@ -1853,20 +1853,20 @@ (COND ((AND (CONSP |conseq|) (EQ (QCAR |conseq|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |conseq|)) + (setq |ISTMP#1| (QCDR |conseq|)) (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 |c| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |c| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |a| (QCAR |ISTMP#3|)) + (setq |a| (QCAR |ISTMP#3|)) 'T)))))))) (|listOfCategoryEntriesIf| (|makePrefixForm| (CONS |pred| (CONS |p| NIL)) @@ -1874,7 +1874,7 @@ |c| |a|)) ('T (PROG (G167520) - (SPADLET G167520 NIL) + (setq G167520 NIL) (RETURN (DO ((G167532 (|listOfEntries| |conseq|) (CDR G167532)) @@ -1888,20 +1888,20 @@ ((AND (CONSP |x|) (EQ (QCAR |x|) 'IF) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| + (setq |a| (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)))))) (CONS 'IF @@ -1916,24 +1916,24 @@ (CONS |pred| (CONS |x| NIL))))) G167520)))))))))) - ('T (SPADLET |notPred| (|makePrefixForm| |pred| 'NOT)) + ('T (setq |notPred| (|makePrefixForm| |pred| 'NOT)) (COND ((AND (CONSP |conseq|) (EQ (QCAR |conseq|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |conseq|)) + (setq |ISTMP#1| (QCDR |conseq|)) (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 |c| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |c| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |a| (QCAR |ISTMP#3|)) + (setq |a| (QCAR |ISTMP#3|)) 'T)))))))) (|listOfCategoryEntriesIf| (|makePrefixForm| (CONS |notPred| (CONS |p| NIL)) @@ -1941,7 +1941,7 @@ |c| |a|)) ('T (PROG (G167549) - (SPADLET G167549 NIL) + (setq G167549 NIL) (RETURN (DO ((G167561 (|listOfEntries| |conseq|) (CDR G167561)) @@ -1955,20 +1955,20 @@ ((AND (CONSP |x|) (EQ (QCAR |x|) 'IF) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |a| + (setq |a| (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)))))) (CONS 'IF @@ -2010,18 +2010,18 @@ (PROG (|options| |con| |ok| |option|) (RETURN (PROGN - (SPADLET |con| (KAR |r|)) - (SPADLET |options| (KDR |r|)) - (SPADLET |ok| + (setq |con| (KAR |r|)) + (setq |options| (KDR |r|)) + (setq |ok| (OR (member |con| (|allConstructors|)) - (SPADLET |con| (|abbreviation?| |con|)))) + (setq |con| (|abbreviation?| |con|)))) (COND ((NULL |ok|) (|sayBrightly| "Format is: dc(,option)") (|sayBrightly| "options are: all (default), slots, atts, cats, data, ops, optable")) - ('T (SPADLET |option| (KAR |options|)) + ('T (setq |option| (KAR |options|)) (COND ((OR (BOOT-EQUAL |option| '|all|) (NULL |option|)) (|dcAll| |con|)) @@ -2053,19 +2053,19 @@ (DECLARE (SPECIAL |$infovec|)) (RETURN (SEQ (PROGN - (SPADLET |name| (OR (|abbreviation?| |con|) |con|)) - (SPADLET |$infovec| (|getInfovec| |name|)) - (SPADLET |template| (ELT |$infovec| 0)) + (setq |name| (OR (|abbreviation?| |con|) |con|)) + (setq |$infovec| (|getInfovec| |name|)) + (setq |template| (ELT |$infovec| 0)) (DO ((G167710 (MAXINDEX |template|)) (|i| 5 (+ |i| 1))) ((> |i| G167710) NIL) (SEQ (EXIT (PROGN (|sayBrightlyNT| (|bright| |i|)) - (SPADLET |item| (ELT |template| |i|)) + (setq |item| (ELT |template| |i|)) (COND ((AND (CONSP |item|) (PROGN - (SPADLET |n| (QCAR |item|)) - (SPADLET |op| (QCDR |item|)) + (setq |n| (QCAR |item|)) + (setq |op| (QCDR |item|)) 'T) (INTEGERP |n|)) (|dcOpLatchPrint| |op| |n|)) @@ -2084,30 +2084,30 @@ ((AND (CONSP |item|) (EQ (QCAR |item|) 'CONS) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (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 |ISTMP#3| + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCAR |ISTMP#3|) 'FUNCALL) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCAR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (PROGN - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCDR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) @@ -2115,19 +2115,19 @@ (QCDR |ISTMP#6|) NIL) (PROGN - (SPADLET |a| + (setq |a| (QCAR |ISTMP#6|)) 'T))))) (PROGN - (SPADLET |ISTMP#7| + (setq |ISTMP#7| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#7|) (EQ (QCDR |ISTMP#7|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#7|)) 'T)))))))))))) (|sayBrightly| @@ -2153,14 +2153,14 @@ (PROG (|numvec| |numOfArgs| |whereNumber| |signumList| |namePart|) (RETURN (PROGN - (SPADLET |numvec| (|getCodeVector|)) - (SPADLET |numOfArgs| (ELT |numvec| |index|)) - (SPADLET |whereNumber| - (ELT |numvec| (SPADLET |index| (+ |index| 1)))) - (SPADLET |signumList| + (setq |numvec| (|getCodeVector|)) + (setq |numOfArgs| (ELT |numvec| |index|)) + (setq |whereNumber| + (ELT |numvec| (setq |index| (+ |index| 1)))) + (setq |signumList| (|dcSig| |numvec| (+ |index| 1) |numOfArgs|)) - (SPADLET |index| (+ (+ |index| |numOfArgs|) 1)) - (SPADLET |namePart| + (setq |index| (+ (+ |index| |numOfArgs|) 1)) + (setq |namePart| (|concat| (|bright| '|from|) (|dollarPercentTran| (|form2String| @@ -2182,10 +2182,10 @@ (PROG (|u| |fullLibName|) (RETURN (COND - ((SPADLET |u| (GETL |name| '|infovec|)) |u|) + ((setq |u| (GETL |name| '|infovec|)) |u|) ((GETL |name| 'LOADED) NIL) ('T - (SPADLET |fullLibName| + (setq |fullLibName| (OR (GETDATABASE |name| 'OBJECT) (RETURN NIL))) (|startTimingProcess| '|load|) (|loadLibNoUpdate| |name| |name| |fullLibName|) @@ -2199,10 +2199,10 @@ (PROG (|vec| |numOfArgs|) (RETURN (SEQ (PROGN - (SPADLET |numOfArgs| - (ELT (SPADLET |vec| (|getCodeVector|)) |index|)) + (setq |numOfArgs| + (ELT (setq |vec| (|getCodeVector|)) |index|)) (PROG (G167756) - (SPADLET G167756 NIL) + (setq G167756 NIL) (RETURN (DO ((G167761 (+ (+ |index| |numOfArgs|) 3)) (|i| |index| (+ |i| 1))) @@ -2221,8 +2221,8 @@ (DECLARE (SPECIAL |$infovec|)) (RETURN (PROGN - (SPADLET |proto4| (ELT |$infovec| 3)) - (SPADLET |u| (CDDR |proto4|)) + (setq |proto4| (ELT |$infovec| 3)) + (setq |u| (CDDR |proto4|)) (COND ((VECP |u|) |u|) ('T (CDR |u|))))))) ;formatSlotDomain x == @@ -2244,7 +2244,7 @@ ((EQL |x| 0) (CONS '$ NIL)) ((EQL |x| 2) (CONS '$$ NIL)) ((INTEGERP |x|) - (SPADLET |val| (ELT (ELT |$infovec| 0) |x|)) + (setq |val| (ELT (ELT |$infovec| 0) |x|)) (COND ((NULL |val|) (CONS (STRCONC "#" @@ -2254,14 +2254,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 (G167788) - (SPADLET G167788 NIL) + (setq G167788 NIL) (RETURN (DO ((G167793 (CDR |x|) (CDR G167793)) (|y| NIL)) @@ -2300,30 +2300,30 @@ (DECLARE (SPECIAL |$infovec| |$predvec|)) (RETURN (SEQ (PROGN - (SPADLET |name| (OR (|abbreviation?| |con|) |con|)) - (SPADLET |$infovec| (|getInfovec| |name|)) - (SPADLET |template| (ELT |$infovec| 0)) - (SPADLET |$predvec| (GETDATABASE |con| 'PREDICATES)) - (SPADLET |opTable| (ELT |$infovec| 1)) + (setq |name| (OR (|abbreviation?| |con|) |con|)) + (setq |$infovec| (|getInfovec| |name|)) + (setq |template| (ELT |$infovec| 0)) + (setq |$predvec| (GETDATABASE |con| 'PREDICATES)) + (setq |opTable| (ELT |$infovec| 1)) (DO ((G167818 (MAXINDEX |opTable|)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G167818) NIL) (SEQ (EXIT (PROGN - (SPADLET |op| (ELT |opTable| |i|)) - (SPADLET |i| (+ |i| 1)) - (SPADLET |startIndex| (ELT |opTable| |i|)) - (SPADLET |stopIndex| + (setq |op| (ELT |opTable| |i|)) + (setq |i| (+ |i| 1)) + (setq |startIndex| (ELT |opTable| |i|)) + (setq |stopIndex| (COND ((> (+ |i| 1) (MAXINDEX |opTable|)) (MAXINDEX (|getCodeVector|))) ('T (ELT |opTable| (+ |i| 2))))) - (SPADLET |curIndex| |startIndex|) + (setq |curIndex| |startIndex|) (DO () ((NULL (> |stopIndex| |curIndex|)) NIL) (SEQ (EXIT - (SPADLET |curIndex| + (setq |curIndex| (|dcOpPrint| |op| |curIndex|)))))))))))))) ;dcOpPrint(op,index) == @@ -2354,16 +2354,16 @@ (declare (special |$infovec| |$predvec|)) (RETURN (PROGN - (SPADLET |numvec| (|getCodeVector|)) - (SPADLET |segment| (|getOpSegment| |index|)) - (SPADLET |numOfArgs| (ELT |numvec| |index|)) - (SPADLET |index| (+ |index| 1)) - (SPADLET |predNumber| (ELT |numvec| |index|)) - (SPADLET |index| (+ |index| 1)) - (SPADLET |signumList| (|dcSig| |numvec| |index| |numOfArgs|)) - (SPADLET |index| (+ (+ |index| |numOfArgs|) 1)) - (SPADLET |slotNumber| (ELT |numvec| |index|)) - (SPADLET |suffix| + (setq |numvec| (|getCodeVector|)) + (setq |segment| (|getOpSegment| |index|)) + (setq |numOfArgs| (ELT |numvec| |index|)) + (setq |index| (+ |index| 1)) + (setq |predNumber| (ELT |numvec| |index|)) + (setq |index| (+ |index| 1)) + (setq |signumList| (|dcSig| |numvec| |index| |numOfArgs|)) + (setq |index| (+ (+ |index| |numOfArgs|) 1)) + (setq |slotNumber| (ELT |numvec| |index|)) + (setq |suffix| (COND ((EQL |predNumber| 0) NIL) ('T @@ -2371,14 +2371,14 @@ (|pred2English| (ELT |$predvec| (SPADDIFFERENCE |predNumber| 1))))))) - (SPADLET |namePart| + (setq |namePart| (|bright| (COND ((EQL |slotNumber| 0) "subsumed by next entry") ((EQL |slotNumber| 1) "missing") ('T - (SPADLET |name| + (setq |name| (ELT (ELT |$infovec| 0) |slotNumber|)) (COND ((ATOM |name|) |name|) @@ -2395,7 +2395,7 @@ (PROG () (RETURN (SEQ (PROG (G167868) - (SPADLET G167868 NIL) + (setq G167868 NIL) (RETURN (DO ((|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| |numOfArgs|) (NREVERSE0 G167868)) @@ -2418,9 +2418,9 @@ (DECLARE (SPECIAL |$infovec| |$predvec|)) (RETURN (SEQ (PROGN - (SPADLET |name| (OR (|abbreviation?| |con|) |con|)) - (SPADLET |$infovec| (|getInfovec| |name|)) - (SPADLET |$predvec| (GETDATABASE |con| 'PREDICATES)) + (setq |name| (OR (|abbreviation?| |con|) |con|)) + (setq |$infovec| (|getInfovec| |name|)) + (setq |$predvec| (GETDATABASE |con| 'PREDICATES)) (DO ((G167887 (MAXINDEX |$predvec|)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G167887) NIL) @@ -2446,24 +2446,24 @@ (DECLARE (SPECIAL |$infovec| |$predvec|)) (RETURN (SEQ (PROGN - (SPADLET |name| (OR (|abbreviation?| |con|) |con|)) - (SPADLET |$infovec| (|getInfovec| |name|)) - (SPADLET |$predvec| (GETDATABASE |con| 'PREDICATES)) - (SPADLET |attList| (ELT |$infovec| 2)) + (setq |name| (OR (|abbreviation?| |con|) |con|)) + (setq |$infovec| (|getInfovec| |name|)) + (setq |$predvec| (GETDATABASE |con| 'PREDICATES)) + (setq |attList| (ELT |$infovec| 2)) (DO ((G167914 |attList| (CDR G167914)) (G167901 NIL) (|i| 0 (QSADD1 |i|))) ((OR (ATOM G167914) (PROGN (SETQ G167901 (CAR G167914)) NIL) (PROGN (PROGN - (SPADLET |a| (CAR G167901)) - (SPADLET |predNumber| (CDR G167901)) + (setq |a| (CAR G167901)) + (setq |predNumber| (CDR G167901)) G167901) NIL)) NIL) (SEQ (EXIT (PROGN (|sayBrightlyNT| (|bright| |i|)) - (SPADLET |suffix| + (setq |suffix| (COND ((EQL |predNumber| 0) NIL) ('T @@ -2503,24 +2503,24 @@ (DECLARE (SPECIAL |$infovec| |$predvec|)) (RETURN (SEQ (PROGN - (SPADLET |name| (OR (|abbreviation?| |con|) |con|)) - (SPADLET |$infovec| (|getInfovec| |name|)) - (SPADLET |u| (ELT |$infovec| 3)) + (setq |name| (OR (|abbreviation?| |con|) |con|)) + (setq |$infovec| (|getInfovec| |name|)) + (setq |u| (ELT |$infovec| 3)) (COND ((VECP (CDDR |u|)) (|dcCats1| |con|)) - ('T (SPADLET |$predvec| (GETDATABASE |con| 'PREDICATES)) - (SPADLET |catpredvec| (CAR |u|)) - (SPADLET |catinfo| (CADR |u|)) - (SPADLET |catvec| (CADDR |u|)) + ('T (setq |$predvec| (GETDATABASE |con| 'PREDICATES)) + (setq |catpredvec| (CAR |u|)) + (setq |catinfo| (CADR |u|)) + (setq |catvec| (CADDR |u|)) (DO ((G167946 (MAXINDEX |catvec|)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G167946) NIL) (SEQ (EXIT (PROGN (|sayBrightlyNT| (|bright| |i|)) - (SPADLET |form| (ELT |catvec| |i|)) - (SPADLET |predNumber| + (setq |form| (ELT |catvec| |i|)) + (setq |predNumber| (ELT |catpredvec| |i|)) - (SPADLET |suffix| + (setq |suffix| (COND ((EQL |predNumber| 0) NIL) ('T @@ -2531,10 +2531,10 @@ (ELT |$predvec| (SPADDIFFERENCE |predNumber| 1))))))) - (SPADLET |extra| + (setq |extra| (COND ((NULL - (SPADLET |info| + (setq |info| (ELT |catinfo| |i|))) NIL) ((IDENTP |info|) @@ -2572,18 +2572,18 @@ (declare (special |$predvec| |$infovec|)) (RETURN (SEQ (PROGN - (SPADLET |$predvec| (GETDATABASE |con| 'PREDICATES)) - (SPADLET |u| (ELT |$infovec| 3)) - (SPADLET |catvec| (CADR |u|)) - (SPADLET |catinfo| (CAR |u|)) + (setq |$predvec| (GETDATABASE |con| 'PREDICATES)) + (setq |u| (ELT |$infovec| 3)) + (setq |catvec| (CADR |u|)) + (setq |catinfo| (CAR |u|)) (DO ((G167988 (MAXINDEX |catvec|)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G167988) NIL) (SEQ (EXIT (PROGN (|sayBrightlyNT| (|bright| |i|)) - (SPADLET |LETTMP#1| (ELT |catvec| |i|)) - (SPADLET |form| (CAR |LETTMP#1|)) - (SPADLET |predNumber| (CDR |LETTMP#1|)) - (SPADLET |suffix| + (setq |LETTMP#1| (ELT |catvec| |i|)) + (setq |form| (CAR |LETTMP#1|)) + (setq |predNumber| (CDR |LETTMP#1|)) + (setq |suffix| (COND ((EQL |predNumber| 0) NIL) ('T @@ -2593,10 +2593,10 @@ (ELT |$predvec| (SPADDIFFERENCE |predNumber| 1))))))) - (SPADLET |extra| + (setq |extra| (COND ((NULL - (SPADLET |info| + (setq |info| (ELT |catinfo| |i|))) NIL) ((IDENTP |info|) @@ -2626,12 +2626,12 @@ (DECLARE (SPECIAL |$infovec|)) (RETURN (PROGN - (SPADLET |name| (OR (|abbreviation?| |con|) |con|)) - (SPADLET |$infovec| (|getInfovec| |name|)) + (setq |name| (OR (|abbreviation?| |con|) |con|)) + (setq |$infovec| (|getInfovec| |name|)) (|sayBrightly| "Operation data from slot 1") (PRINT-FULL (ELT |$infovec| 1)) - (SPADLET |vec| (|getCodeVector|)) - (SPADLET |vec| (COND ((CONSP |vec|) (CDR |vec|)) ('T |vec|))) + (setq |vec| (|getCodeVector|)) + (setq |vec| (COND ((CONSP |vec|) (CDR |vec|)) ('T |vec|))) (|sayBrightly| (CONS "Information vector has " (CONS (SIZE |vec|) @@ -2654,11 +2654,11 @@ (PROG (|n| |tens| |start|) (RETURN (SEQ (PROGN - (SPADLET |n| (MAXINDEX |vec|)) - (SPADLET |tens| (QUOTIENT |n| 10)) + (setq |n| (MAXINDEX |vec|)) + (setq |tens| (QUOTIENT |n| 10)) (DO ((|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| |tens|) NIL) (SEQ (EXIT (PROGN - (SPADLET |start| (TIMES 10 |i|)) + (setq |start| (TIMES 10 |i|)) (|sayBrightlyNT| (|rightJustifyString| (STRINGIMAGE |start|) 6)) @@ -2739,48 +2739,48 @@ |vSize| |itotal| |lookupFun| |suffix| |vtotal| |etotal|) (RETURN (SEQ (PROGN - (SPADLET |con| (KAR |options|)) - (SPADLET |options| (CDR |options|)) + (setq |con| (KAR |options|)) + (setq |options| (CDR |options|)) (COND ((NULL |con|) (|dcSizeAll|)) - ('T (SPADLET |quiet| (member '|quiet| |options|)) - (SPADLET |full| (member '|full| |options|)) - (SPADLET |name| (OR (|abbreviation?| |con|) |con|)) - (SPADLET |infovec| (|getInfovec| |name|)) - (SPADLET |template| (ELT |infovec| 0)) - (SPADLET |maxindex| (MAXINDEX |template|)) - (SPADLET |latch| 0) (SPADLET |lazy| 0) - (SPADLET |fun| 0) (SPADLET |lazyNodes| 0) + ('T (setq |quiet| (member '|quiet| |options|)) + (setq |full| (member '|full| |options|)) + (setq |name| (OR (|abbreviation?| |con|) |con|)) + (setq |infovec| (|getInfovec| |name|)) + (setq |template| (ELT |infovec| 0)) + (setq |maxindex| (MAXINDEX |template|)) + (setq |latch| 0) (setq |lazy| 0) + (setq |fun| 0) (setq |lazyNodes| 0) (DO ((|i| 5 (+ |i| 1))) ((> |i| |maxindex|) NIL) (SEQ (EXIT (COND - ((ATOM (SPADLET |item| + ((ATOM (setq |item| (ELT |template| |i|))) - (SPADLET |fun| (+ |fun| 1))) + (setq |fun| (+ |fun| 1))) ((INTEGERP (CAR |item|)) - (SPADLET |latch| (+ |latch| 1))) - ('T (SPADLET |lazy| (+ |lazy| 1)) - (SPADLET |lazyNodes| + (setq |latch| (+ |latch| 1))) + ('T (setq |lazy| (+ |lazy| 1)) + (setq |lazyNodes| (+ |lazyNodes| (|numberOfNodes| |item|)))))))) - (SPADLET |tSize| + (setq |tSize| (|sum| (|vectorSize| (+ 1 |maxindex|)) (|nodeSize| (+ |lazyNodes| |latch|)))) - (SPADLET |oSize| + (setq |oSize| (|vectorSize| (SIZE (ELT |infovec| 1)))) - (SPADLET |aSize| (|numberOfNodes| (ELT |infovec| 2))) - (SPADLET |slot4| (ELT |infovec| 3)) - (SPADLET |catvec| + (setq |aSize| (|numberOfNodes| (ELT |infovec| 2))) + (setq |slot4| (ELT |infovec| 3)) + (setq |catvec| (COND ((VECP (CDDR |slot4|)) (CADR |slot4|)) ('T (CADDR |slot4|)))) - (SPADLET |n| (MAXINDEX |catvec|)) - (SPADLET |cSize| + (setq |n| (MAXINDEX |catvec|)) + (setq |cSize| (|sum| (|nodeSize| 2) (|vectorSize| (SIZE (CAR |slot4|))) (|vectorSize| (+ |n| 1)) (|nodeSize| (PROG (G168056) - (SPADLET G168056 0) + (setq G168056 0) (RETURN (DO ((|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| |n|) @@ -2791,12 +2791,12 @@ (+ G168056 (|numberOfNodes| (ELT |catvec| |i|)))))))))))) - (SPADLET |codeVector| + (setq |codeVector| (COND ((VECP (CDDR |slot4|)) (CDDR |slot4|)) ('T (CDDDR |slot4|)))) - (SPADLET |vSize| (|halfWordSize| (SIZE |codeVector|))) - (SPADLET |itotal| + (setq |vSize| (|halfWordSize| (SIZE |codeVector|))) + (setq |itotal| (|sum| |tSize| |oSize| |aSize| |cSize| |vSize|)) (COND @@ -2807,8 +2807,8 @@ (CONS " BYTES" NIL)))))) (COND ((NULL |quiet|) - (SPADLET |lookupFun| (|getLookupFun| |infovec|)) - (SPADLET |suffix| + (setq |lookupFun| (|getLookupFun| |infovec|)) + (setq |suffix| (COND ((BOOT-EQUAL |lookupFun| '|lookupIncomplete|) @@ -2847,8 +2847,8 @@ (CONS "size of domain vectors = " (CONS (+ 1 |maxindex|) (CONS " slots" NIL)))))) - (SPADLET |vtotal| (+ |itotal| (|nodeSize| |fun|))) - (SPADLET |vtotal| + (setq |vtotal| (+ |itotal| (|nodeSize| |fun|))) + (setq |vtotal| (+ |vtotal| (|nodeSize| (TIMES 2 |latch|)))) (COND ((NULL |quiet|) @@ -2856,7 +2856,7 @@ (CONS "domain size = " (CONS |vtotal| (CONS " BYTES" NIL)))))) - (SPADLET |etotal| + (setq |etotal| (+ (|nodeSize| (+ |fun| (TIMES 2 |latch|))) (|vectorSize| (+ 1 |maxindex|)))) @@ -2883,8 +2883,8 @@ (PROG (|count| |s| |total|) (RETURN (SEQ (PROGN - (SPADLET |count| 0) - (SPADLET |total| 0) + (setq |count| 0) + (setq |total| 0) (DO ((G168111 (|allConstructors|) (CDR G168111)) (|x| NIL)) ((OR (ATOM G168111) @@ -2893,13 +2893,13 @@ (SEQ (EXIT (COND ((NULL (ATOM (GETL |x| '|infovec|))) (PROGN - (SPADLET |count| (+ |count| 1)) - (SPADLET |s| (|dcSize| |x| '|quiet|)) + (setq |count| (+ |count| 1)) + (setq |s| (|dcSize| |x| '|quiet|)) (|sayBrightly| (CONS |s| (CONS " : " (CONS |x| NIL)))) - (SPADLET |total| (+ |total| |s|)))))))) + (setq |total| (+ |total| |s|)))))))) (|sayBrightly| "------------total-------------") (|sayBrightly| @@ -2915,7 +2915,7 @@ (PROG () (RETURN (SEQ (PROG (G168126) - (SPADLET G168126 0) + (setq G168126 0) (RETURN (DO ((G168131 |l| (CDR G168131)) (G168125 NIL)) ((OR (ATOM G168131) @@ -2959,7 +2959,7 @@ (DEFUN |template| (|con|) (PROGN - (SPADLET |con| (OR (|abbreviation?| |con|) |con|)) + (setq |con| (OR (|abbreviation?| |con|) |con|)) (|ppTemplate| (ELT (|getInfovec| |con|) 0)))) ;ppTemplate vec == @@ -2997,8 +2997,8 @@ (PROG (|u|) (RETURN (PROGN - (SPADLET |con| (OR (|abbreviation?| |con|) |con|)) - (SPADLET |u| (|getInfovec| |con|)) + (setq |con| (OR (|abbreviation?| |con|) |con|)) + (setq |u| (|getInfovec| |con|)) (|sayBrightly| "---------------slot 0 is template-------------------") (|ppTemplate| (ELT |u| 0)) @@ -3051,9 +3051,9 @@ (DECLARE (SPECIAL |$infovec|)) (RETURN (PROGN - (SPADLET |con| (OR (|abbreviation?| |con|) |con|)) - (SPADLET |$infovec| (|getInfovec| |con|)) - (SPADLET |complete?| + (setq |con| (OR (|abbreviation?| |con|) |con|)) + (setq |$infovec| (|getInfovec| |con|)) + (setq |complete?| (COND ((EQL (|#| |$infovec|) 4) NIL) ('T @@ -3106,8 +3106,8 @@ (PROGN (SETQ G168199 (CAR G168214)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G168199)) - (SPADLET |u| (CDR G168199)) + (setq |op| (CAR G168199)) + (setq |u| (CDR G168199)) G168199) NIL)) NIL) @@ -3119,15 +3119,15 @@ NIL) (PROGN (PROGN - (SPADLET |sig| (CAR G168193)) - (SPADLET |slot| (CADR G168193)) - (SPADLET |pred| (CADDR G168193)) - (SPADLET |key| (CADDDR G168193)) + (setq |sig| (CAR G168193)) + (setq |slot| (CADR G168193)) + (setq |pred| (CADDR G168193)) + (setq |key| (CADDDR G168193)) G168193) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |suffix| + (setq |suffix| (COND ((ATOM |pred|) NIL) ('T @@ -3166,16 +3166,16 @@ (declare (special |$FormalMapVariableList|)) (RETURN (PROGN - (SPADLET |op| (CAR |form|)) - (SPADLET |argl| (CDR |form|)) + (setq |op| (CAR |form|)) + (setq |argl| (CDR |form|)) (COND ((BOOT-EQUAL |op| '|Record|) (CONS '|RecordCategory| |argl|)) ((BOOT-EQUAL |op| '|Union|) (CONS '|UnionCategory| |argl|)) ('T - (SPADLET |functorModemap| + (setq |functorModemap| (GETDATABASE |op| 'CONSTRUCTORMODEMAP)) - (SPADLET |target| (CADAR |functorModemap|)) - (SPADLET |tl| (CDDAR |functorModemap|)) + (setq |target| (CADAR |functorModemap|)) + (setq |tl| (CDDAR |functorModemap|)) (EQSUBSTLIST |argl| |$FormalMapVariableList| |target|))))))) ;NRTextendsCategory1(domform,exCategory,addForm) == @@ -3188,9 +3188,9 @@ (RETURN (SEQ (COND ((AND (CONSP |addForm|) (EQ (QCAR |addForm|) '|@Tuple|) - (PROGN (SPADLET |r| (QCDR |addForm|)) 'T)) + (PROGN (setq |r| (QCDR |addForm|)) 'T)) (PROG (G168278) - (SPADLET G168278 'T) + (setq G168278 'T) (RETURN (DO ((G168284 NIL (NULL G168278)) (G168285 |r| (CDR G168285)) (|x| NIL)) @@ -3227,9 +3227,9 @@ (SEQ (COND ((BOOT-EQUAL |u| |v|) 'T) ((AND (CONSP |v|) (EQ (QCAR |v|) '|Join|) - (PROGN (SPADLET |l| (QCDR |v|)) 'T)) + (PROGN (setq |l| (QCDR |v|)) 'T)) (PROG (G168335) - (SPADLET G168335 'T) + (setq G168335 'T) (RETURN (DO ((G168341 NIL (NULL G168335)) (G168342 |l| (CDR G168342)) (|x| NIL)) @@ -3241,11 +3241,11 @@ (|extendsCategory| |dom| |u| |x|))))))))) ((AND (CONSP |v|) (EQ (QCAR |v|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |v|)) + (setq |ISTMP#1| (QCDR |v|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |l| (QCDR |ISTMP#1|)) 'T)))) + (PROGN (setq |l| (QCDR |ISTMP#1|)) 'T)))) (PROG (G168349) - (SPADLET G168349 'T) + (setq G168349 'T) (RETURN (DO ((G168355 NIL (NULL G168349)) (G168356 |l| (CDR G168356)) (|x| NIL)) @@ -3257,40 +3257,40 @@ (|extendsCategory| |dom| |u| |x|))))))))) ((AND (CONSP |v|) (EQ (QCAR |v|) '|SubsetCategory|) (PROGN - (SPADLET |ISTMP#1| (QCDR |v|)) + (setq |ISTMP#1| (QCDR |v|)) (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 |d| (QCAR |ISTMP#2|)) + (setq |d| (QCAR |ISTMP#2|)) 'T)))))) (AND (|extendsCategory| |dom| |u| |cat|) (|isSubset| |dom| |d| |$e|))) ('T - (SPADLET |v| + (setq |v| (|substSlotNumbers| |v| |$template| |$functorForm|)) (COND ((|extendsCategoryBasic0| |dom| |u| |v|) 'T) ('T - (SPADLET |$why| + (setq |$why| (COND ((AND (CONSP |v|) (EQ (QCAR |v|) 'SIGNATURE) (PROGN - (SPADLET |ISTMP#1| (QCDR |v|)) + (setq |ISTMP#1| (QCDR |v|)) (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|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |sig| + (setq |sig| (QCAR |ISTMP#2|)) 'T)))))) (CONS |u| @@ -3322,38 +3322,38 @@ (COND ((AND (CONSP |v|) (EQ (QCAR |v|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |v|)) + (setq |ISTMP#1| (QCDR |v|)) (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 |ISTMP#3| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCAR |ISTMP#3|) 'ATTRIBUTE) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN - (SPADLET |c| (QCAR |ISTMP#4|)) + (setq |c| (QCAR |ISTMP#4|)) 'T))))) (PROGN - (SPADLET |ISTMP#5| (QCDR |ISTMP#2|)) + (setq |ISTMP#5| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL)))))))) - (SPADLET |uVec| + (setq |uVec| (CAR (|compMakeCategoryObject| |u| |$EmptyEnvironment|))) (COND ((AND (NULL (ATOM |c|)) (|isCategoryForm| |c| NIL)) - (SPADLET |slot4| (ELT |uVec| 4)) - (SPADLET |ISTMP#1| (LASSOC |c| (CADR |slot4|))) + (setq |slot4| (ELT |uVec| 4)) + (setq |ISTMP#1| (LASSOC |c| (CADR |slot4|))) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |p|))) - ('T (SPADLET |slot2| (ELT |uVec| 2)) - (SPADLET |ISTMP#1| (LASSOC |c| |slot2|)) + ('T (setq |slot2| (ELT |uVec| 2)) + (setq |ISTMP#1| (LASSOC |c| |slot2|)) (AND (CONSP |ISTMP#1|) (EQUAL (QCAR |ISTMP#1|) |p|))))) ('T (|extendsCategoryBasic| |dom| |u| |v|)))))) @@ -3375,9 +3375,9 @@ (RETURN (SEQ (COND ((AND (CONSP |u|) (EQ (QCAR |u|) '|Join|) - (PROGN (SPADLET |l| (QCDR |u|)) 'T)) + (PROGN (setq |l| (QCDR |u|)) 'T)) (PROG (G168483) - (SPADLET G168483 NIL) + (setq G168483 NIL) (RETURN (DO ((G168489 NIL G168483) (G168490 |l| (CDR G168490)) (|x| NIL)) @@ -3390,7 +3390,7 @@ |v|))))))))) ((BOOT-EQUAL |u| |v|) 'T) ('T - (SPADLET |uVec| + (setq |uVec| (CAR (|compMakeCategoryObject| |u| |$EmptyEnvironment|))) (COND @@ -3398,18 +3398,18 @@ (|catExtendsCat?| |u| |v| |uVec|)) ((AND (CONSP |v|) (EQ (QCAR |v|) 'SIGNATURE) (PROGN - (SPADLET |ISTMP#1| (QCDR |v|)) + (setq |ISTMP#1| (QCDR |v|)) (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)))))) (PROG (G168497) - (SPADLET G168497 NIL) + (setq G168497 NIL) (RETURN (DO ((G168509 NIL G168497) (G168510 (MAXINDEX |uVec|)) @@ -3418,17 +3418,17 @@ (SEQ (EXIT (SETQ G168497 (OR G168497 (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (ELT |uVec| |i|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCAR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQUAL (QCAR |ISTMP#2|) |op|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) @@ -3438,9 +3438,9 @@ |sig|))))))))))))))) ((AND (CONSP |u|) (EQ (QCAR |u|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |l| (QCDR |ISTMP#1|)) 'T)))) + (PROGN (setq |l| (QCDR |ISTMP#1|)) 'T)))) (COND ((AND (CONSP |v|) (EQ (QCAR |v|) 'IF)) (|member| |v| |l|)) @@ -3469,17 +3469,17 @@ (SEQ (COND ((BOOT-EQUAL |u| |v|) 'T) ('T - (SPADLET |uvec| + (setq |uvec| (OR |uvec| (CAR (|compMakeCategoryObject| |u| |$EmptyEnvironment|)))) - (SPADLET |slot4| (ELT |uvec| 4)) - (SPADLET |prinAncestorList| (CAR |slot4|)) + (setq |slot4| (ELT |uvec| 4)) + (setq |prinAncestorList| (CAR |slot4|)) (COND ((|member| |v| |prinAncestorList|) 'T) - ('T (SPADLET |vOp| (KAR |v|)) + ('T (setq |vOp| (KAR |v|)) (COND - ((SPADLET |similarForm| + ((setq |similarForm| (|assoc| |vOp| |prinAncestorList|)) (PRINT |u|) (|sayBrightlyNT| " extends ") @@ -3487,7 +3487,7 @@ (|sayBrightlyNT| " but not ") (PRINT |v|))) (PROG (G168533) - (SPADLET G168533 NIL) + (setq G168533 NIL) (RETURN (DO ((G168539 NIL G168533) (G168540 (ASSOCLEFT (CADR |slot4|)) @@ -3514,25 +3514,25 @@ (RETURN (SEQ (COND ((AND (CONSP |form|) - (PROGN (SPADLET |op| (QCAR |form|)) 'T) + (PROGN (setq |op| (QCAR |form|)) 'T) (member |op| (|allConstructors|))) (|expandType| |form| |template| |domain|)) ((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|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |sig| (QCAR |ISTMP#2|)) + (setq |sig| (QCAR |ISTMP#2|)) 'T)))))) (CONS 'SIGNATURE (CONS |op| (CONS (PROG (G168585) - (SPADLET G168585 NIL) + (setq G168585 NIL) (RETURN (DO ((G168590 |sig| (CDR G168590)) @@ -3552,16 +3552,16 @@ NIL)))) ((AND (CONSP |form|) (EQ (QCAR |form|) 'CATEGORY) (PROGN - (SPADLET |ISTMP#1| (QCDR |form|)) + (setq |ISTMP#1| (QCDR |form|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |k| (QCAR |ISTMP#1|)) - (SPADLET |u| (QCDR |ISTMP#1|)) + (setq |k| (QCAR |ISTMP#1|)) + (setq |u| (QCDR |ISTMP#1|)) 'T)))) (CONS 'CATEGORY (CONS |k| (PROG (G168600) - (SPADLET G168600 NIL) + (setq G168600 NIL) (RETURN (DO ((G168605 |u| (CDR G168605)) (|x| NIL)) @@ -3596,17 +3596,17 @@ (SEQ (COND ((ATOM |lazyt|) (|expandTypeArgs| |lazyt| |template| |domform|)) - ('T (SPADLET |functorName| (CAR |lazyt|)) - (SPADLET |argl| (CDR |lazyt|)) + ('T (setq |functorName| (CAR |lazyt|)) + (setq |argl| (CDR |lazyt|)) (COND ((AND (member |functorName| '(|Record| |Union|)) (PROGN - (SPADLET |ISTMP#1| (CAR |argl|)) + (setq |ISTMP#1| (CAR |argl|)) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) '|:|)))) (CONS |functorName| (PROG (G168644) - (SPADLET G168644 NIL) + (setq G168644 NIL) (RETURN (DO ((G168650 |argl| (CDR G168650)) (G168629 NIL)) @@ -3616,9 +3616,9 @@ NIL) (PROGN (PROGN - (SPADLET |tag| + (setq |tag| (CADR G168629)) - (SPADLET |dom| + (setq |dom| (CADDR G168629)) G168629) NIL)) @@ -3634,16 +3634,16 @@ G168644))))))))) ((AND (CONSP |lazyt|) (EQ (QCAR |lazyt|) '|local|) (PROGN - (SPADLET |ISTMP#1| (QCDR |lazyt|)) + (setq |ISTMP#1| (QCDR |lazyt|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |x| (QCAR |ISTMP#1|)) 'T)))) - (SPADLET |n| (POSN1 |x| |$FormalMapVariableList|)) + (PROGN (setq |x| (QCAR |ISTMP#1|)) 'T)))) + (setq |n| (POSN1 |x| |$FormalMapVariableList|)) (ELT |domform| (+ 1 |n|))) ('T (CONS |functorName| (PROG (G168661) - (SPADLET G168661 NIL) + (setq G168661 NIL) (RETURN (DO ((G168666 |argl| (CDR G168666)) (|a| NIL)) @@ -3676,15 +3676,15 @@ |template| |domform|)) ((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)))) |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)))) |y|) ((ATOM |u|) |u|) ('T (|expandType| |u| |template| |domform|)))))) diff --git a/src/interp/parsing.lisp.pamphlet b/src/interp/parsing.lisp.pamphlet index ff2495b..f4af56b 100644 --- a/src/interp/parsing.lisp.pamphlet +++ b/src/interp/parsing.lisp.pamphlet @@ -613,7 +613,7 @@ foo defined inside of fum gets renamed as fum,foo.") (cond ((IDENTP (FIRST L)) (DEF-select1 (FIRST L) (SECOND L))) ((LET* ((G (GENSYM)) (U (DEF-select1 G (SECOND L)))) - (LIST 'PROGN (LIST 'SPADLET G (FIRST L)) U))))) + (LIST 'PROGN (LIST 'setq G (FIRST L)) U))))) (defun DEF-select1 (X Y) (if (EQCAR Y 'SEQ) @@ -641,7 +641,7 @@ foo defined inside of fum gets renamed as fum,foo.") ((EQ (FIRST U) 'APPEND) (STRCONC "(" (MK_LEFORM-CONS U) ")") ) ((EQ (FIRST U) 'QUOTE) (MK_LEFORM (SECOND U))) ((EQ (FIRST U) 'EQUAL) (STRCONC "=" (MK_LEFORM (SECOND U)) )) - ((EQ (FIRST U) 'SPADLET) (MK_LEFORM (THIRD U))) + ((EQ (FIRST U) 'setq) (MK_LEFORM (THIRD U))) ((ERRHUH)))) (defun MK_LEFORM-CONS (U) @@ -957,8 +957,8 @@ parse (PROG (|typ| |consForm|) (RETURN (PROGN - (SPADLET |typ| (CAR arg)) - (SPADLET |consForm| (CADR arg)) + (setq |typ| (CAR arg)) + (setq |consForm| (CADR arg)) (CONS (CONS '|elt| (CONS |typ| (CONS '|makeRecord| NIL))) (|transUnCons| |consForm|)))))) @@ -981,25 +981,25 @@ parse ((ATOM |u|) (|systemErrorHere| "transUnCons")) ((AND (CONSP |u|) (EQ (QCAR |u|) 'APPEND) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (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 |y| (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq |y| (QCAR |ISTMP#2|)) 'T)))))) (COND ((NULL |y|) |x|) ('T (|systemErrorHere| "transUnCons")))) ((AND (CONSP |u|) (EQ (QCAR |u|) 'CONS) (PROGN - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (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 |y| (QCAR |ISTMP#2|)) 'T)))))) + (PROGN (setq |y| (QCAR |ISTMP#2|)) 'T)))))) (COND ((ATOM |y|) (CONS |x| |y|)) ('T (CONS |x| (|transUnCons| |y|))))))))) @@ -1039,15 +1039,15 @@ parse (SEQ (COND ((AND (CONSP |form|) (PROGN - (SPADLET |op| (QCAR |form|)) - (SPADLET |argl| (QCDR |form|)) + (setq |op| (QCAR |form|)) + (setq |argl| (QCDR |form|)) 'T)) - (SPADLET |$op| |op|) + (setq |$op| |op|) (COND ((BOOT-EQUAL |op| '|Mapping|) (CONS |op| (PROG (tpd1) - (SPADLET tpd1 NIL) + (setq tpd1 NIL) (RETURN (DO ((tpd2 |argl| (CDR tpd2)) (|a| NIL)) @@ -1065,7 +1065,7 @@ parse ((|isTaggedUnion| |form|) (CONS |op| (PROG (tpd3) - (SPADLET tpd3 NIL) + (setq tpd3 NIL) (RETURN (DO ((tpd4 |argl| (CDR tpd4)) @@ -1077,9 +1077,9 @@ parse NIL) (PROGN (PROGN - (SPADLET |sel| + (setq |sel| (CADR tpd5)) - (SPADLET |type| + (setq |type| (CADDR tpd5)) tpd5) NIL)) @@ -1097,7 +1097,7 @@ parse ('T (CONS |op| (PROG (tpd6) - (SPADLET tpd6 NIL) + (setq tpd6 NIL) (RETURN (DO ((tpd7 |argl| (CDR tpd7)) @@ -1115,7 +1115,7 @@ parse ((BOOT-EQUAL |op| '|Record|) (CONS |op| (PROG (tpd8) - (SPADLET tpd8 NIL) + (setq tpd8 NIL) (RETURN (DO ((tpd9 |argl| (CDR tpd9)) (tpda NIL)) @@ -1125,9 +1125,9 @@ parse NIL) (PROGN (PROGN - (SPADLET |sel| + (setq |sel| (CADR tpda)) - (SPADLET |type| + (setq |type| (CADDR tpda)) tpda) NIL)) @@ -1142,12 +1142,12 @@ parse NIL))) tpd8))))))))) ('T - (SPADLET |cmm| + (setq |cmm| (SEQ (COND - ((SPADLET |fn| + ((setq |fn| (|constructor?| |op|)) (COND - ((SPADLET |p| + ((setq |p| (|pathname| (CONS |fn| (CONS |$spadLibFT| @@ -1162,14 +1162,14 @@ parse (COND ((AND (CONSP |cmm|) (PROGN - (SPADLET |ISTMP#1| (QCAR |cmm|)) + (setq |ISTMP#1| (QCAR |cmm|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |argml| + (setq |argml| (QCDR |ISTMP#2|)) 'T)))))) (CONS |op| @@ -1195,7 +1195,7 @@ parse (PROG () (RETURN (SEQ (PROG (tpdb) - (SPADLET tpdb NIL) + (setq tpdb NIL) (RETURN (DO ((tpdc |argl| (CDR tpdc)) (|arg| NIL) (tpdd |argml| (CDR tpdd)) (|md| NIL) @@ -1286,28 +1286,28 @@ parse (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 (ATOM |op|)) |form|) ((BOOT-EQUAL - (SPADLET |s0| - (ELT (SPADLET |sop| (PNAME |op|)) 0)) + (setq |s0| + (ELT (setq |sop| (PNAME |op|)) 0)) '*) - (SPADLET |n| (|#| |sop|)) + (setq |n| (|#| |sop|)) (COND ((EQL |n| 1) |form|) - ('T (SPADLET |argKey| (ELT |sop| 1)) - (SPADLET |numArgs| + ('T (setq |argKey| (ELT |sop| 1)) + (setq |numArgs| (SPADDIFFERENCE (|#| |argl|) (COND ((BOOT-EQUAL |argKey| '|1|) 1) ('T 0)))) - (SPADLET |zeroOrOne| + (setq |zeroOrOne| (OR (BOOT-EQUAL |argKey| '|0|) (BOOT-EQUAL |argKey| '|1|))) - (SPADLET |isDmp| + (setq |isDmp| (COND ((> 10 |numArgs|) (AND (EQL |n| 6) @@ -1322,13 +1322,13 @@ parse (COND (|isDmp| (COND ((BOOT-EQUAL |argKey| '|0|) - (SPADLET |extraDomain| |$EmptyMode|) - (SPADLET |vl| |argl|)) + (setq |extraDomain| |$EmptyMode|) + (setq |vl| |argl|)) ('T - (SPADLET |LETTMP#1| (REVERSE |argl|)) - (SPADLET |extraDomain| + (setq |LETTMP#1| (REVERSE |argl|)) + (setq |extraDomain| (CAR |LETTMP#1|)) - (SPADLET |vl| + (setq |vl| (NREVERSE (CDR |LETTMP#1|))) |argl|)) (CONS '|DistributedMultivariatePolynomial| @@ -1338,18 +1338,18 @@ parse |extraDomain|) NIL)))) ((AND (EQL |n| 4) - (BOOT-EQUAL (SPADLET |s3| (ELT |sop| 3)) + (BOOT-EQUAL (setq |s3| (ELT |sop| 3)) 'M) |zeroOrOne|) (|specialModeTran| (PROGN - (SPADLET |extraDomain| + (setq |extraDomain| (COND ((BOOT-EQUAL |argKey| '|0|) (CONS |$EmptyMode| NIL)) ('T NIL))) (COND - ((EQL (SPADLET |n| + ((EQL (setq |n| (PARSE-INTEGER (PNAME (ELT |sop| 2)))) 1) @@ -1360,40 +1360,40 @@ parse (APPEND |argl| |extraDomain|))) ('T |form|))))) ('T - (SPADLET |isUpOrMp| + (setq |isUpOrMp| (COND ((> 10 |numArgs|) (OR (AND (EQL |n| 4) (BOOT-EQUAL - (SPADLET |s3| (ELT |sop| 3)) 'P) + (setq |s3| (ELT |sop| 3)) 'P) |zeroOrOne|) (AND (EQL |n| 5) (BOOT-EQUAL - (SPADLET |s3| (ELT |sop| 3)) 'R) + (setq |s3| (ELT |sop| 3)) 'R) (BOOT-EQUAL (ELT |sop| 4) 'F) |zeroOrOne|))) ('T (OR (AND (EQL |n| 5) (BOOT-EQUAL - (SPADLET |s3| (ELT |sop| 4)) 'P) + (setq |s3| (ELT |sop| 4)) 'P) |zeroOrOne|) (AND (EQL |n| 6) (BOOT-EQUAL - (SPADLET |s3| (ELT |sop| 4)) 'R) + (setq |s3| (ELT |sop| 4)) 'R) (BOOT-EQUAL (ELT |sop| 5) 'F) |zeroOrOne|))))) (COND (|isUpOrMp| - (SPADLET |polyForm| + (setq |polyForm| (PROGN - (SPADLET |domainPart| + (setq |domainPart| (COND ((BOOT-EQUAL |argKey| '|0|) |$EmptyMode|) ('T (|last| |argl|)))) - (SPADLET |argPart| + (setq |argPart| (COND ((BOOT-EQUAL |argKey| '|0|) |argl|) @@ -1403,7 +1403,7 @@ parse (COND ((AND (> 10 |numArgs|) (EQL - (SPADLET |n| + (setq |n| (PARSE-INTEGER (PNAME (ELT |sop| 2)))) 1)) @@ -1425,7 +1425,7 @@ parse ('T (CONS (CAR |form|) (PROG (tpde) - (SPADLET tpde NIL) + (setq tpde NIL) (RETURN (DO ((tpdf (CDR |form|) @@ -1444,7 +1444,7 @@ parse ('T (CONS (CAR |form|) (PROG (tpdg) - (SPADLET tpdg NIL) + (setq tpdg NIL) (RETURN (DO ((tpdh (CDR |form|) (CDR tpdh)) @@ -1480,20 +1480,20 @@ parse (EXIT (CONS '|ifClauseError| (CONS |x| NIL)))) (IF (AND (CONSP |ifExpr|) (EQ (QCAR |ifExpr|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |ifExpr|)) + (setq |ISTMP#1| (QCDR |ifExpr|)) (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|) (PROGN - (SPADLET |b| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| + (setq |b| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |c| (QCAR |ISTMP#3|)) + (setq |c| (QCAR |ISTMP#3|)) 'T)))))))) (EXIT (CONS 'IF (CONS (|parseTran| |a|) @@ -1513,8 +1513,8 @@ parse (PROG (|expr| |ifClause|) (RETURN (PROGN - (SPADLET |expr| (CAR arg)) - (SPADLET |ifClause| (CADR arg)) + (setq |expr| (CAR arg)) + (setq |ifClause| (CADR arg)) (|parseCases,casefn| |expr| |ifClause|))))) ; @@ -1533,7 +1533,7 @@ parse ;;; *** |parseExclusiveOr| REDEFINED -;(DEFUN |parseExclusiveOr| (#0=#:G167140) (PROG (|a| |b|) (RETURN (PROGN (SPADLET |a| (CAR #0#)) (SPADLET |b| (CADR #0#)) (|parseIf| (CONS |a| (CONS (|parseIf| (CONS |b| (QUOTE (|false| |true|)))) (CONS |b| NIL)))))))) +;(DEFUN |parseExclusiveOr| (#0=#:G167140) (PROG (|a| |b|) (RETURN (PROGN (setq |a| (CAR #0#)) (setq |b| (CADR #0#)) (|parseIf| (CONS |a| (CONS (|parseIf| (CONS |b| (QUOTE (|false| |true|)))) (CONS |b| NIL)))))))) ; ;transSeq l == @@ -1561,48 +1561,48 @@ parse (SEQ (COND ((NULL |l|) NIL) ((NULL (CDR |l|)) (|decExitLevel| (CAR |l|))) - ('T (SPADLET |item| (CAR |l|)) (SPADLET |tail| (CDR |l|)) + ('T (setq |item| (CAR |l|)) (setq |tail| (CDR |l|)) (COND ((AND (CONSP |item|) (EQ (QCAR |item|) 'SEQ) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (setq |ISTMP#1| (QCDR |item|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (REVERSE |ISTMP#1|)) + (setq |ISTMP#2| (REVERSE |ISTMP#1|)) 'T) (CONSP |ISTMP#2|) (PROGN - (SPADLET |ISTMP#3| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCAR |ISTMP#3|) '|exit|) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQUAL (QCAR |ISTMP#4|) 1) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCAR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) (EQ (QCAR |ISTMP#6|) 'IF) (PROGN - (SPADLET |ISTMP#7| + (setq |ISTMP#7| (QCDR |ISTMP#6|)) (AND (CONSP |ISTMP#7|) (PROGN - (SPADLET |p| + (setq |p| (QCAR |ISTMP#7|)) - (SPADLET |ISTMP#8| + (setq |ISTMP#8| (QCDR |ISTMP#7|)) (AND (CONSP |ISTMP#8|) (PROGN - (SPADLET |ISTMP#9| + (setq |ISTMP#9| (QCAR |ISTMP#8|)) (AND (CONSP |ISTMP#9|) @@ -1610,7 +1610,7 @@ parse (QCAR |ISTMP#9|) '|exit|) (PROGN - (SPADLET + (setq |ISTMP#10| (QCDR |ISTMP#9|)) @@ -1622,7 +1622,7 @@ parse |ISTMP#10|) 2) (PROGN - (SPADLET + (setq |ISTMP#11| (QCDR |ISTMP#10|)) @@ -1634,13 +1634,13 @@ parse |ISTMP#11|) NIL) (PROGN - (SPADLET + (setq |q| (QCAR |ISTMP#11|)) 'T))))))) (PROGN - (SPADLET + (setq |ISTMP#12| (QCDR |ISTMP#8|)) (AND @@ -1654,10 +1654,10 @@ parse (QCAR |ISTMP#12|) '|noBranch|))))))))))))))) - (PROGN (SPADLET |l| (QCDR |ISTMP#2|)) 'T) - (PROGN (SPADLET |l| (NREVERSE |l|)) 'T))) + (PROGN (setq |l| (QCDR |ISTMP#2|)) 'T) + (PROGN (setq |l| (NREVERSE |l|)) 'T))) (PROG (tpdj) - (SPADLET tpdj 'T) + (setq tpdj 'T) (RETURN (DO ((tpdk NIL (NULL tpdj)) (tpdl |l| (CDR tpdl)) @@ -1673,7 +1673,7 @@ parse (EQ (QCAR |x|) 'LET)))))))))) (CONS 'SEQ (APPEND (PROG (tpdm) - (SPADLET tpdm NIL) + (setq tpdm NIL) (RETURN (DO ((tpdn |l| (CDR tpdn)) @@ -1700,33 +1700,33 @@ parse NIL)))) ((AND (CONSP |item|) (EQ (QCAR |item|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (setq |ISTMP#1| (QCDR |item|)) (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|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCAR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCAR |ISTMP#3|) '|exit|) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCDR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQUAL (QCAR |ISTMP#4|) 1) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQ (QCDR |ISTMP#5|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#5|)) 'T))))))) (PROGN - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#6|) (EQ (QCDR |ISTMP#6|) NIL) @@ -1738,36 +1738,36 @@ parse (CONS (|transSeq| |tail|) NIL))))) ((AND (CONSP |item|) (EQ (QCAR |item|) 'IF) (PROGN - (SPADLET |ISTMP#1| (QCDR |item|)) + (setq |ISTMP#1| (QCDR |item|)) (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 (QCAR |ISTMP#2|) '|noBranch|) (PROGN - (SPADLET |ISTMP#3| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |ISTMP#4| + (setq |ISTMP#4| (QCAR |ISTMP#3|)) (AND (CONSP |ISTMP#4|) (EQ (QCAR |ISTMP#4|) '|exit|) (PROGN - (SPADLET |ISTMP#5| + (setq |ISTMP#5| (QCDR |ISTMP#4|)) (AND (CONSP |ISTMP#5|) (EQUAL (QCAR |ISTMP#5|) 1) (PROGN - (SPADLET |ISTMP#6| + (setq |ISTMP#6| (QCDR |ISTMP#5|)) (AND (CONSP |ISTMP#6|) (EQ (QCDR |ISTMP#6|) NIL) (PROGN - (SPADLET |b| + (setq |b| (QCAR |ISTMP#6|)) 'T)))))))))))))) (CONS 'IF @@ -1775,10 +1775,10 @@ parse (CONS (|transSeq| |tail|) (CONS (|decExitLevel| |b|) NIL))))) ((PROGN - (SPADLET |ISTMP#1| - (SPADLET |y| (|transSeq| |tail|))) + (setq |ISTMP#1| + (setq |y| (|transSeq| |tail|))) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'SEQ) - (PROGN (SPADLET |s| (QCDR |ISTMP#1|)) 'T))) + (PROGN (setq |s| (QCDR |ISTMP#1|)) 'T))) (CONS 'SEQ (CONS |item| |s|))) ('T (CONS 'SEQ @@ -1817,21 +1817,21 @@ parse (SEQ (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'SIGNATURE) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |lhs| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |lhs| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN - (SPADLET |rhs| (QCAR |ISTMP#2|)) + (setq |rhs| (QCAR |ISTMP#2|)) 'T)))))) (COND ((AND (CONSP |lhs|) (EQ (QCAR |lhs|) 'LISTOF) - (PROGN (SPADLET |y| (QCDR |lhs|)) 'T)) + (PROGN (setq |y| (QCDR |lhs|)) 'T)) (PROG (tpdo) - (SPADLET tpdo NIL) + (setq tpdo NIL) (RETURN (DO ((tpdp |y| (CDR tpdp)) (|z| NIL)) ((OR (ATOM tpdp) @@ -1844,14 +1844,14 @@ parse (CONS |z| (CONS |rhs| NIL)))))))))))) ((ATOM |lhs|) (COND - ((STRINGP |lhs|) (SPADLET |lhs| (INTERN |lhs|)))) + ((STRINGP |lhs|) (setq |lhs| (INTERN |lhs|)))) (COND ((AND (CONSP |rhs|) (EQ (QCAR |rhs|) '|Mapping|) - (PROGN (SPADLET |m| (QCDR |rhs|)) 'T)) + (PROGN (setq |m| (QCDR |rhs|)) 'T)) (COND ((AND (CONSP |m|) (PROGN - (SPADLET |ISTMP#1| (QCDR |m|)) + (setq |ISTMP#1| (QCDR |m|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (EQ (QCAR |ISTMP#1|) '|constant|)))) @@ -1863,17 +1863,17 @@ parse (LIST (CONS 'SIGNATURE (CONS |lhs| (CONS |m| NIL))))))) ('T - (SPADLET |$transCategoryAssoc| + (setq |$transCategoryAssoc| (CONS (CONS |lhs| |rhs|) |$transCategoryAssoc|)) NIL))) - ('T (SPADLET |op| (CAR |lhs|)) - (SPADLET |argl| (CDR |lhs|)) (SPADLET |extra| NIL) + ('T (setq |op| (CAR |lhs|)) + (setq |argl| (CDR |lhs|)) (setq |extra| NIL) (COND ((AND (CONSP |rhs|) (EQ (QCAR |rhs|) '|Mapping|) - (PROGN (SPADLET |m| (QCDR |rhs|)) 'T)) - (COND ((CDR |m|) (SPADLET |extra| (CDR |m|)))) - (SPADLET |rhs| (CAR |m|)))) + (PROGN (setq |m| (QCDR |rhs|)) 'T)) + (COND ((CDR |m|) (setq |extra| (CDR |m|)))) + (setq |rhs| (CAR |m|)))) (LIST (CONS 'SIGNATURE (CONS |op| (CONS @@ -1901,16 +1901,16 @@ parse ((OR (ATOM tpdq) (PROGN (SETQ |u| (CAR tpdq)) NIL)) NIL) - (SEQ (EXIT (SPADLET |y| (APPEND |y| |u|))))) - (SPADLET |code| + (SEQ (EXIT (setq |y| (APPEND |y| |u|))))) + (setq |code| (COND ((AND (CONSP |x|) (EQ (QCDR |x|) NIL) (PROGN - (SPADLET |ISTMP#1| (QCAR |x|)) + (setq |ISTMP#1| (QCAR |x|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |u| (QCAR |ISTMP#1|)) + (setq |u| (QCAR |ISTMP#1|)) 'T)))) |$quadSymbol|) ('T diff --git a/src/interp/profile.lisp.pamphlet b/src/interp/profile.lisp.pamphlet index bd0b050..ad4b1c8 100644 --- a/src/interp/profile.lisp.pamphlet +++ b/src/interp/profile.lisp.pamphlet @@ -15,7 +15,7 @@ ;--$profileCompiler := true ;$profileAlist := nil -(SPADLET |$profileAlist| NIL) +(setq |$profileAlist| NIL) ;profileWrite() == --called from finalizeLisplib ; outStream := MAKE_-OUTSTREAM CONCAT(LIBSTREAM_-DIRNAME $libFile,'"/info") @@ -28,11 +28,11 @@ (declare (special *PRINT-PRETTY* |$profileAlist|)) (RETURN (PROGN - (SPADLET |outStream| + (setq |outStream| (MAKE-OUTSTREAM (CONCAT (LIBSTREAM-DIRNAME |$libFile|) "/info"))) - (SPADLET *PRINT-PRETTY* 'T) + (setq *PRINT-PRETTY* 'T) (PRINT-FULL (|profileTran| |$profileAlist|) |outStream|) (SHUT |outStream|))))) @@ -49,25 +49,25 @@ (declare (special |$profileHash|)) (RETURN (SEQ (PROGN - (SPADLET |$profileHash| (MAKE-HASH-TABLE)) + (setq |$profileHash| (MAKE-HASH-TABLE)) (DO ((G166076 |alist| (CDR G166076)) (G166064 NIL)) ((OR (ATOM G166076) (PROGN (SETQ G166064 (CAR G166076)) NIL) (PROGN (PROGN - (SPADLET |opSig| (CAR G166064)) - (SPADLET |info| (CDR G166064)) + (setq |opSig| (CAR G166064)) + (setq |info| (CDR G166064)) G166064) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |op| (|opOf| |opSig|)) - (SPADLET |sig| (KAR (KDR |opSig|))) + (setq |op| (|opOf| |opSig|)) + (setq |sig| (KAR (KDR |opSig|))) (HPUT |$profileHash| |op| (CONS (CONS |sig| |info|) (HGET |$profileHash| |op|))))))) (PROG (G166087) - (SPADLET G166087 NIL) + (setq G166087 NIL) (RETURN (DO ((G166092 (|mySort| (HKEYS |$profileHash|)) (CDR G166092)) @@ -107,21 +107,21 @@ (RETURN (PROGN (COND - (|$insideCapsuleFunctionIfTrue| (SPADLET |op| |$op|) - (SPADLET |argl| (CDR |$form|)) - (SPADLET |opSig| + (|$insideCapsuleFunctionIfTrue| (setq |op| |$op|) + (setq |argl| (CDR |$form|)) + (setq |opSig| (CONS |$op| (CONS |$signatureOfForm| NIL)))) - ('T (SPADLET |op| '|constructor|) (SPADLET |argl| NIL) - (SPADLET |opSig| (CONS |op| NIL)))) + ('T (setq |op| '|constructor|) (setq |argl| NIL) + (setq |opSig| (CONS |op| NIL)))) (COND ((AND (BOOT-EQUAL |label| '|locals|) (member |name| |argl|)) - (SPADLET |label| '|arguments|))) - (SPADLET |alist1| (LASSOC |opSig| |$profileAlist|)) - (SPADLET |alist2| (LASSOC |label| |alist1|)) - (SPADLET |newAlist2| (|insertAlist| |name| |info| |alist2|)) - (SPADLET |newAlist1| + (setq |label| '|arguments|))) + (setq |alist1| (LASSOC |opSig| |$profileAlist|)) + (setq |alist2| (LASSOC |label| |alist1|)) + (setq |newAlist2| (|insertAlist| |name| |info| |alist2|)) + (setq |newAlist1| (|insertAlist| |label| |newAlist2| |alist1|)) - (SPADLET |$profileAlist| + (setq |$profileAlist| (|insertAlist| |opSig| |newAlist1| |$profileAlist|)) |$profileAlist|)))) @@ -143,8 +143,8 @@ (PROGN (SETQ G166125 (CAR G166135)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G166125)) - (SPADLET |alist1| (CDR G166125)) + (setq |op| (CAR G166125)) + (setq |alist1| (CDR G166125)) G166125) NIL)) NIL) @@ -182,8 +182,8 @@ (PROGN (SETQ G166147 (CAR G166171)) NIL) (PROGN (PROGN - (SPADLET |x| (CAR G166147)) - (SPADLET |t| (CDR G166147)) + (setq |x| (CAR G166147)) + (setq |t| (CDR G166147)) G166147) NIL)) NIL) @@ -200,8 +200,8 @@ (PROGN (SETQ G166152 (CAR G166182)) NIL) (PROGN (PROGN - (SPADLET |x| (CAR G166152)) - (SPADLET |t| (CDR G166152)) + (setq |x| (CAR G166152)) + (setq |t| (CDR G166152)) G166152) NIL)) NIL) @@ -213,8 +213,8 @@ (PROGN (SETQ G166162 (CAR G166199)) NIL) (PROGN (PROGN - (SPADLET |con| (CAR G166162)) - (SPADLET |alist2| (CDR G166162)) + (setq |con| (CAR G166162)) + (setq |alist2| (CDR G166162)) G166162) NIL)) NIL) @@ -233,9 +233,9 @@ NIL) (PROGN (PROGN - (SPADLET |op1| + (setq |op1| (CAR G166157)) - (SPADLET |sig| + (setq |sig| (CDR G166157)) G166157) NIL)) diff --git a/src/interp/record.lisp.pamphlet b/src/interp/record.lisp.pamphlet index 73f2b59..942449c 100644 --- a/src/interp/record.lisp.pamphlet +++ b/src/interp/record.lisp.pamphlet @@ -38,39 +38,39 @@ ;--======================================================================= ;$backslash := char '_\ -(SPADLET |$backslash| (|char| '|\\|)) +(setq |$backslash| (|char| '|\\|)) ;$testOutputLineFlag := nil -- referenced by charyTop, prnd to stash lines -(SPADLET |$testOutputLineFlag| NIL) +(setq |$testOutputLineFlag| NIL) ;$testOutputLineStack := nil -- saves lines to be printed (needed to convert -(SPADLET |$testOutputLineStack| NIL) +(setq |$testOutputLineStack| NIL) ; -- lines for use in hypertex) ;$runTestFlag := nil -- referenced by maPrin to stash output -(SPADLET |$runTestFlag| NIL) +(setq |$runTestFlag| NIL) ; -- by recordAndPrint to not print type/time ;$mkTestFlag := nil -- referenced by READLN to stash input -(SPADLET |$mkTestFlag| NIL) +(setq |$mkTestFlag| NIL) ; -- by maPrin to stash output ; -- by recordAndPrint to write i/o onto $testStream ;$mkTestInputStack := nil -- saves input for $testStream (see READLN) -(SPADLET |$mkTestInputStack| NIL) +(setq |$mkTestInputStack| NIL) ;$mkTestOutputStack := nil -- saves output for $testStream (see maPrin) -(SPADLET |$mkTestOutputStack| NIL) +(setq |$mkTestOutputStack| NIL) ;$mkTestOutputType := nil -- saves the type for $testStream -(SPADLET |$mkTestOutputType| NIL) +(setq |$mkTestOutputType| NIL) ; ;--======================================================================= @@ -107,24 +107,24 @@ |$currentLine| |$testStream|)) (RETURN (PROGN - (SPADLET |ifn| (PATHNAME-NAME |pathname|)) + (setq |ifn| (PATHNAME-NAME |pathname|)) (COND ((NULL (|isExistingFile| |pathname|)) (|throwKeyedMsg| "The file %1 is needed but does not exist." (CONS (|namestring| |ifn|) NIL))) - ('T (SPADLET |opath| (OR (KAR |option|) |pathname|)) - (SPADLET |odirect| (|pathnameDirectory| |opath|)) - (SPADLET |opathname| + ('T (setq |opath| (OR (KAR |option|) |pathname|)) + (setq |odirect| (|pathnameDirectory| |opath|)) + (setq |opathname| (|htMkPath| |odirect| |ifn| "rec")) - (SPADLET *PRINT-ARRAY* 'T) (SPADLET |$mkTestFlag| 'T) - (SPADLET |$runTestFlag| NIL) - (SPADLET |$mkTestInputStack| NIL) - (SPADLET |$mkTestOutputStack| NIL) - (SPADLET |$mkTestOutputType| NIL) - (SPADLET |$currentLine| NIL) + (setq *PRINT-ARRAY* 'T) (setq |$mkTestFlag| 'T) + (setq |$runTestFlag| NIL) + (setq |$mkTestInputStack| NIL) + (setq |$mkTestOutputStack| NIL) + (setq |$mkTestOutputType| NIL) + (setq |$currentLine| NIL) (COND ((|isExistingFile| |opathname|) (DELETE-FILE |opathname|))) - (SPADLET |$testStream| (MAKE-OUTSTREAM |opathname|)) + (setq |$testStream| (MAKE-OUTSTREAM |opathname|)) (CATCH 'SPAD_READER (/READ |pathname| NIL)) (COND ((NULL (NULL |$currentLine|)) @@ -156,10 +156,10 @@ |$printTypeIfTrue|)) (RETURN (SEQ (PROGN - (SPADLET $LINELENGTH (OR (KAR |option|) 76)) - (SPADLET |$printTimeIfTrue| NIL) - (SPADLET |$printTypeIfTrue| 'T) - (SPADLET |stream| + (setq $LINELENGTH (OR (KAR |option|) 76)) + (setq |$printTimeIfTrue| NIL) + (setq |$printTypeIfTrue| 'T) + (setq |stream| (DEFIOSTREAM (CONS (CONS 'FILE |pathname|) (CONS '(MODE . INPUT) NIL)) @@ -169,11 +169,11 @@ ((NULL (PEEK-CHAR 'T |stream| NIL NIL)) (RETURN NIL)) ('T - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|dewritify| (VMREAD |stream|))) - (SPADLET |i| (CAR |LETTMP#1|)) - (SPADLET |t| (CADR |LETTMP#1|)) - (SPADLET |o| (CDDR |LETTMP#1|)) + (setq |i| (CAR |LETTMP#1|)) + (setq |t| (CADR |LETTMP#1|)) + (setq |o| (CDDR |LETTMP#1|)) (terpri) (DO ((G166104 |i| (CDR G166104)) (|x| NIL)) @@ -215,12 +215,12 @@ |$testOutputLineList|)) (RETURN (SEQ (PROGN - (SPADLET $LINELENGTH |w|) - (SPADLET |$mkTestFlag| NIL) - (SPADLET |$testOutputLineFlag| 'T) - (SPADLET |$testOutputLineList| NIL) + (setq $LINELENGTH |w|) + (setq |$mkTestFlag| NIL) + (setq |$testOutputLineFlag| 'T) + (setq |$testOutputLineList| NIL) (|maPrin| (COPY |u|)) - (SPADLET |res| (REVERSE |$testOutputLineList|)) + (setq |res| (REVERSE |$testOutputLineList|)) (DO ((G166141 |res| (CDR G166141)) (|x| NIL)) ((OR (ATOM G166141) (PROGN (SETQ |x| (CAR G166141)) NIL)) @@ -249,23 +249,23 @@ |$testOutputLineList|)) (RETURN (SEQ (PROGN - (SPADLET $LINELENGTH |w|) - (SPADLET |$mkTestFlag| NIL) - (SPADLET |$testOutputLineFlag| 'T) - (SPADLET |$testOutputLineList| NIL) + (setq $LINELENGTH |w|) + (setq |$mkTestFlag| NIL) + (setq |$testOutputLineFlag| 'T) + (setq |$testOutputLineList| NIL) (|maPrin| (COPY |u|)) - (SPADLET |res| (REVERSE |$testOutputLineList|)) + (setq |res| (REVERSE |$testOutputLineList|)) (COND ((NULL |res|) "") ((NULL (CDR |res|)) (CAR |res|)) ('T (PROG (G166165) - (SPADLET G166165 "") + (setq G166165 "") (RETURN (DO ((G166170 (CONS (CAR |res|) (PROG (G166180) - (SPADLET G166180 NIL) + (setq G166180 NIL) (RETURN (DO ((G166185 (CDR |res|) @@ -336,26 +336,26 @@ |suffix|) (RETURN (SEQ (PROGN - (SPADLET |ifn| (PATHNAME-NAME |pathname|)) + (setq |ifn| (PATHNAME-NAME |pathname|)) (|sayBrightly| (CONS "Verifying" (|bright| |ifn|))) (COND ((NULL (|isExistingFile| |pathname|)) (|throwKeyedMsg| "The file %1 is needed but does not exist." (CONS (|namestring| |ifn|) NIL))) - ('T (SPADLET |stream| (MAKE-INSTREAM |pathname|)) - (|clearCmdAll|) (SPADLET |result| '|ok|) + ('T (setq |stream| (MAKE-INSTREAM |pathname|)) + (|clearCmdAll|) (setq |result| '|ok|) (DO ((|j| 1 (QSADD1 |j|))) (NIL NIL) (SEQ (EXIT (COND ((NULL (PEEK-CHAR 'T |stream| NIL NIL)) (RETURN NIL)) ('T - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|dewritify| (VMREAD |stream|))) - (SPADLET |i| (CAR |LETTMP#1|)) - (SPADLET |t| (CADR |LETTMP#1|)) - (SPADLET |o| (CDDR |LETTMP#1|)) + (setq |i| (CAR |LETTMP#1|)) + (setq |t| (CADR |LETTMP#1|)) + (setq |o| (CDDR |LETTMP#1|)) (COND ((NULL |i|) (RETURN NIL)) ((BOOT-EQUAL |t| @@ -363,20 +363,20 @@ (RETURN (|testInput2Output| |i| NIL))) ('T - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (|testInput2Output| |i| |j|)) - (SPADLET |typ| (CAR |LETTMP#1|)) - (SPADLET |output| (CDR |LETTMP#1|)) + (setq |typ| (CAR |LETTMP#1|)) + (setq |output| (CDR |LETTMP#1|)) (COND ((BOOT-EQUAL |typ| |t|) (COND ((BOOT-EQUAL |output| |o|) '|ok|) - ('T (SPADLET |result| '|error|) + ('T (setq |result| '|error|) (|wasIs| |o| |output|)))) - ('T (SPADLET |result| '|error|) + ('T (setq |result| '|error|) (|wasIs| |o| |output| |t| |typ|)))))))))) - (SPADLET |suffix| + (setq |suffix| (COND ((BOOT-EQUAL |result| '|ok|) "is ok") @@ -403,16 +403,16 @@ |$mkTestFlag| |$runTestFlag| |$testOutput|)) (RETURN (PROGN - (SPADLET |$mkTestOutputStack| NIL) - (SPADLET |$mkTestOutputType| NIL) - (SPADLET |$mkTestFlag| NIL) - (SPADLET |$runTestFlag| 'T) - (SPADLET |$testOutput| NIL) + (setq |$mkTestOutputStack| NIL) + (setq |$mkTestOutputType| NIL) + (setq |$mkTestFlag| NIL) + (setq |$runTestFlag| 'T) + (setq |$testOutput| NIL) (|evaluateLines| |lines|) (COND ((NULL |n|) NIL) - ('T (SPADLET |typ| |$mkTestOutputType|) - (SPADLET |output| (NREVERSE |$mkTestOutputStack|)) + ('T (setq |typ| |$mkTestOutputType|) + (setq |output| (NREVERSE |$mkTestOutputStack|)) (CONS (|prefix2String| |typ|) |output|))))))) ;evaluateLines lines == @@ -434,7 +434,7 @@ (DECLARE (SPECIAL /EDITFILE)) (RETURN (SEQ (PROGN - (SPADLET |file| + (setq |file| (MAKE-OUTSTREAM "/tmp/temp.input")) (DO ((G166280 |lines| (CDR G166280)) (|line| NIL)) ((OR (ATOM G166280) @@ -449,7 +449,7 @@ ('T (PRINTEXP |line| |file|) (TERPRI |file|)))))) (SHUT |file|) - (SPADLET /EDITFILE "/tmp/temp.input") + (setq /EDITFILE "/tmp/temp.input") (/RF) (DELETE-FILE "/tmp/temp.input")))))) @@ -490,11 +490,11 @@ (COND ((AND (CONSP |typePart|) (PROGN - (SPADLET |oldtype| (QCAR |typePart|)) - (SPADLET |ISTMP#1| (QCDR |typePart|)) + (setq |oldtype| (QCAR |typePart|)) + (setq |ISTMP#1| (QCDR |typePart|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |newtype| (QCAR |ISTMP#1|)) + (setq |newtype| (QCAR |ISTMP#1|)) 'T))) (NEQUAL |oldtype| |newtype|)) (PROGN @@ -542,26 +542,26 @@ (DECLARE (SPECIAL |$htStream|)) (RETURN (SEQ (PROGN - (SPADLET |ifn| (|pathnameName| |pathname|)) + (setq |ifn| (|pathnameName| |pathname|)) (COND ((NULL (|isExistingFile| |pathname|)) (|throwKeyedMsg| "The file %1 is needed but does not exist." (CONS (|namestring| |ifn|) NIL))) - ('T (SPADLET |opath| (OR (KAR |option|) |pathname|)) - (SPADLET |odirect| (|pathnameDirectory| |opath|)) - (SPADLET |opathname| + ('T (setq |opath| (OR (KAR |option|) |pathname|)) + (setq |odirect| (|pathnameDirectory| |opath|)) + (setq |opathname| (|htMkPath| |odirect| |ifn| "input")) (COND ((|isExistingFile| |opathname|) (DELETE-FILE |opathname|))) - (SPADLET |$htStream| (MAKE-INSTREAM |pathname|)) - (SPADLET |alist| + (setq |$htStream| (MAKE-INSTREAM |pathname|)) + (setq |alist| (PROG (G166341) - (SPADLET G166341 NIL) + (setq G166341 NIL) (RETURN (DO () - ((NULL (SPADLET |u| + ((NULL (setq |u| (|htExampleFind| "\\begin{page}"))) (NREVERSE0 G166341)) @@ -572,15 +572,15 @@ (|htGetSpadCommands|)) G166341)))))))) (SHUT |$htStream|) - (SPADLET |outStream| (MAKE-OUTSTREAM |opathname|)) + (setq |outStream| (MAKE-OUTSTREAM |opathname|)) (DO ((G166362 |alist| (CDR G166362)) (G166332 NIL)) ((OR (ATOM G166362) (PROGN (SETQ G166332 (CAR G166362)) NIL) (PROGN (PROGN - (SPADLET |pageName| (CAR G166332)) - (SPADLET |commands| (CDR G166332)) + (setq |pageName| (CAR G166332)) + (setq |commands| (CDR G166332)) G166332) NIL)) NIL) @@ -619,9 +619,9 @@ (DEFUN |htCommandToInputLine,fn| (|s| |init|) (PROG (|k|) (RETURN - (SEQ (IF (SPADLET |k| + (SEQ (IF (setq |k| (PROG (G166399) - (SPADLET G166399 NIL) + (setq G166399 NIL) (RETURN (DO ((G166406 NIL G166399) (G166407 (MAXINDEX |s|)) @@ -657,11 +657,11 @@ (PROG (|backslash| |k|) (RETURN (SEQ (PROGN - (SPADLET |backslash| (|char| '|\\|)) + (setq |backslash| (|char| '|\\|)) (COND - ((SPADLET |k| + ((setq |k| (PROG (G166422) - (SPADLET G166422 NIL) + (setq G166422 NIL) (RETURN (DO ((G166429 NIL G166422) (G166430 (MAXINDEX |s|)) @@ -692,7 +692,7 @@ (PROG (|nameType|) (RETURN (PROGN - (SPADLET |nameType| (STRCONC |name| "." |typ|)) + (setq |nameType| (STRCONC |name| "." |typ|)) (COND ((NULL |directory|) |nameType|) ('T (STRCONC |directory| |nameType|))))))) @@ -731,15 +731,15 @@ (RETURN (SEQ (IF (AND (CONSP |x|) (PROGN - (SPADLET |y| (QCAR |x|)) - (SPADLET |r| (QCDR |x|)) + (setq |y| (QCAR |x|)) + (setq |r| (QCDR |x|)) 'T)) (EXIT (SEQ (IF (BOOT-EQUAL (ELT |y| - (SPADLET |k| (MAXINDEX |y|))) + (setq |k| (MAXINDEX |y|))) (|char| '_)) (EXIT (SEQ - (SPADLET |u| + (setq |u| (|recordAndPrintTest,fn| |r|)) (EXIT (CONS @@ -756,17 +756,17 @@ |$currentLine|)) (RETURN (PROGN - (SPADLET |input| + (setq |input| (COND ((STRINGP |$currentLine|) (CONS |$currentLine| NIL)) ('T (|recordAndPrintTest,fn| |$currentLine|)))) - (SPADLET |output| (NREVERSE |$mkTestOutputStack|)) + (setq |output| (NREVERSE |$mkTestOutputStack|)) (PRINT (|writify| (CONS |input| (CONS (|prefix2String| |md|) |output|))) |$testStream|) - (SPADLET |$mkTestInputStack| NIL) - (SPADLET |$mkTestOutputStack| NIL))))) + (setq |$mkTestInputStack| NIL) + (setq |$mkTestOutputStack| NIL))))) \end{chunk} \eject diff --git a/src/interp/rulesets.lisp.pamphlet b/src/interp/rulesets.lisp.pamphlet index a42b398..d2ef424 100644 --- a/src/interp/rulesets.lisp.pamphlet +++ b/src/interp/rulesets.lisp.pamphlet @@ -210,10 +210,10 @@ |$mpolyTTRules|)) (RETURN (SEQ (PROGN - (SPADLET |mps| '(MP DMP NDMP)) - (SPADLET |mpRules| + (setq |mps| '(MP DMP NDMP)) + (setq |mpRules| (PROG (G166058) - (SPADLET G166058 NIL) + (setq G166058 NIL) (RETURN (DO ((G166063 |mps| (CDR G166063)) (|mp| NIL)) @@ -226,7 +226,7 @@ (APPEND G166058 (MSUBST |mp| '|mpoly1| |$mpolyTTRules|))))))))) - (SPADLET |$Res| + (setq |$Res| (CONS '(|t1| |t2| |x| |y|) (EQSUBSTLIST |$nameList| |$abList| (APPEND |$generalTTRules| |mpRules|)))) @@ -458,10 +458,10 @@ |$mpolyTMRules|)) (RETURN (SEQ (PROGN - (SPADLET |mps| '(MP DMP NDMP)) - (SPADLET |mpRules0| + (setq |mps| '(MP DMP NDMP)) + (setq |mpRules0| (PROG (G166077) - (SPADLET G166077 NIL) + (setq G166077 NIL) (RETURN (DO ((G166082 |mps| (CDR G166082)) (|mp| NIL)) @@ -474,9 +474,9 @@ (APPEND G166077 (MSUBST |mp| '|mpoly1| |$mpolyTMRules|))))))))) - (SPADLET |mpRules| + (setq |mpRules| (PROG (G166088) - (SPADLET G166088 NIL) + (setq G166088 NIL) (RETURN (DO ((G166093 |mps| (CDR G166093)) (|mp| NIL)) @@ -489,7 +489,7 @@ (APPEND G166088 (MSUBST |mp| '|mpoly2| |mpRules0|))))))))) - (SPADLET |$ResMode| + (setq |$ResMode| (CONS '(|t1| |t2| |x| |y|) (EQSUBSTLIST |$nameList| |$abList| (APPEND |mpRules| |$generalTMRules|)))) @@ -509,15 +509,15 @@ (declare (special |$TypeEQ| |$TypeEqui| |$abList| |$nameList|)) (RETURN (SEQ (PROGN - (SPADLET |$TypeEQ| + (setq |$TypeEQ| (CONS '(|t1|) (EQSUBSTLIST |$nameList| |$abList| '(((QF (P |t1|)) RF |t1|) ((QF (I)) RN) ((RE (RN)) RR))))) - (SPADLET |$TypeEqui| + (setq |$TypeEqui| (CONS (CAR |$TypeEQ|) (PROG (G166118) - (SPADLET G166118 NIL) + (setq G166118 NIL) (RETURN (DO ((G166124 (CDR |$TypeEQ|) (CDR G166124)) @@ -529,8 +529,8 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G166108)) - (SPADLET |b| (CDR G166108)) + (setq |a| (CAR G166108)) + (setq |b| (CDR G166108)) G166108) NIL)) (NREVERSE0 G166118)) @@ -557,12 +557,12 @@ |$newResolveAbbreviations| |$newResolveAbbreviations|)) (RETURN (PROGN - (SPADLET |$abList| (ASSOCLEFT |$newResolveAbbreviations|)) - (SPADLET |$nameList| (ASSOCRIGHT |$newResolveAbbreviations|)) + (setq |$abList| (ASSOCLEFT |$newResolveAbbreviations|)) + (setq |$nameList| (ASSOCRIGHT |$newResolveAbbreviations|)) (|createResolveTTRules|) (|createResolveTMRules|) (|createTypeEquivRules|) - (SPADLET |$ruleSetsInitialized| 'T) + (setq |$ruleSetsInitialized| 'T) 'T)))) \end{chunk} diff --git a/src/interp/server.lisp.pamphlet b/src/interp/server.lisp.pamphlet index 89a3deb..a374c79 100644 --- a/src/interp/server.lisp.pamphlet +++ b/src/interp/server.lisp.pamphlet @@ -70,8 +70,8 @@ |$frameNumber| |$CreateFrame| |$CallInterp|)) (RETURN (SEQ (PROGN - (SPADLET IN-STREAM CURINSTREAM) - (SPADLET *EOF* NIL) + (setq IN-STREAM CURINSTREAM) + (setq *EOF* NIL) (DO () ((NULL (AND (NULL |$EndServerSession|) (NULL *EOF*))) NIL) @@ -79,8 +79,8 @@ (COND (|$Prompt| (PRINC (MKPROMPT)) (FINISH-OUTPUT))) - (SPADLET |$Prompt| NIL) - (SPADLET |action| (|serverSwitch|)) + (setq |$Prompt| NIL) + (setq |action| (|serverSwitch|)) (COND ((BOOT-EQUAL |action| |$CallInterp|) (CATCH '|coerceFailure| @@ -92,38 +92,38 @@ (|sockSendInt| |$SessionManager| |$EndOfOutput|)) ((BOOT-EQUAL |action| |$CreateFrame|) - (SPADLET |frameName| + (setq |frameName| (GENTEMP "frame")) (|addNewInterpreterFrame| |frameName|) - (SPADLET |$frameAlist| + (setq |$frameAlist| (CONS (CONS |$frameNumber| |frameName|) |$frameAlist|)) - (SPADLET |$currentFrameNum| + (setq |$currentFrameNum| |$frameNumber|) (|sockSendInt| |$SessionManager| |$frameNumber|) - (SPADLET |$frameNumber| + (setq |$frameNumber| (+ |$frameNumber| 1)) (|sockSendString| |$SessionManager| (MKPROMPT))) ((BOOT-EQUAL |action| |$SwitchFrames|) - (SPADLET |$currentFrameNum| + (setq |$currentFrameNum| (|sockGetInt| |$SessionManager|)) - (SPADLET |currentFrame| + (setq |currentFrame| (LASSOC |$currentFrameNum| |$frameAlist|)) (|changeToNamedInterpreterFrame| |currentFrame|)) ((BOOT-EQUAL |action| |$EndSession|) - (SPADLET |$EndServerSession| 'T)) + (setq |$EndServerSession| 'T)) ((BOOT-EQUAL |action| |$LispCommand|) - (SPADLET |stringBuf| (MAKE-STRING 512)) + (setq |stringBuf| (MAKE-STRING 512)) (|sockGetString| |$MenuServer| |stringBuf| 512) - (SPADLET |form| + (setq |form| (|unescapeStringsInForm| (READ-FROM-STRING |stringBuf|))) (EVAL |form|)) @@ -131,7 +131,7 @@ |$QuietSpadCommand|) (|executeQuietCommand|)) ((BOOT-EQUAL |action| |$SpadCommand|) - (SPADLET |stringBuf| (MAKE-STRING 512)) + (setq |stringBuf| (MAKE-STRING 512)) (|sockGetString| |$MenuServer| |stringBuf| 512) (CATCH '|coerceFailure| @@ -142,7 +142,7 @@ (|sockSendInt| |$SessionManager| |$EndOfOutput|)) ('T NIL)))))) - (COND (*EOF* (SPADLET |$Prompt| 'T))) + (COND (*EOF* (setq |$Prompt| 'T))) NIL))))) ;parseAndEvalToHypertex str == @@ -157,9 +157,9 @@ (declare (special |$MenuServer|)) (RETURN (SEQ (PROGN - (SPADLET |lines| + (setq |lines| (|parseAndEvalToStringForHypertex| |str|)) - (SPADLET |len| (LENGTH |lines|)) + (setq |len| (LENGTH |lines|)) (|sockSendInt| |$MenuServer| |len|) (DO ((G166130 |lines| (CDR G166130)) (|s| NIL)) ((OR (ATOM G166130) @@ -180,10 +180,10 @@ (DECLARE (SPECIAL |$collectOutput| |$outputLines| |$IOindex|)) (RETURN (PROGN - (SPADLET |$collectOutput| 'T) - (SPADLET |$outputLines| NIL) - (SPADLET |$IOindex| NIL) - (SPADLET |v| + (setq |$collectOutput| 'T) + (setq |$outputLines| NIL) + (setq |$IOindex| NIL) + (setq |v| (CATCH 'SPAD_READER (CATCH '|top_level| (|parseAndEvalStr| |str|)))) (COND @@ -202,9 +202,9 @@ (DECLARE (SPECIAL |$collectOutput| |$outputLines|)) (RETURN (PROGN - (SPADLET |$collectOutput| 'T) - (SPADLET |$outputLines| NIL) - (SPADLET |v| + (setq |$collectOutput| 'T) + (setq |$outputLines| NIL) + (setq |v| (CATCH 'SPAD_READER (CATCH '|top_level| (|parseAndEvalStr| |str|)))) (COND @@ -223,9 +223,9 @@ (DECLARE (SPECIAL |$collectOutput| |$outputLines|)) (RETURN (PROGN - (SPADLET |$collectOutput| 'T) - (SPADLET |$outputLines| NIL) - (SPADLET |v| + (setq |$collectOutput| 'T) + (setq |$outputLines| NIL) + (setq |v| (CATCH 'SPAD_READER (CATCH '|top_level| (|parseAndEvalStr| |str|)))) (COND @@ -240,7 +240,7 @@ (PROG (|v|) (RETURN (PROGN - (SPADLET |v| + (setq |v| (|applyWithOutputToString| '|parseAndEvalStr| (CONS |str| NIL))) (|breakIntoLines| (CDR |v|)))))) @@ -257,10 +257,10 @@ (DECLARE (SPECIAL |$InteractiveMode| $BOOT $SPAD |$e|)) (RETURN (PROGN - (SPADLET |$InteractiveMode| 'T) - (SPADLET $BOOT NIL) - (SPADLET $SPAD 'T) - (SPADLET |$e| |$InteractiveFrame|) + (setq |$InteractiveMode| 'T) + (setq $BOOT NIL) + (setq $SPAD 'T) + (setq |$e| |$InteractiveFrame|) (|parseAndEvalStr1| |string|))))) ;parseAndEvalStr1 string == diff --git a/src/interp/simpbool.lisp.pamphlet b/src/interp/simpbool.lisp.pamphlet index c059e94..8d95b6d 100644 --- a/src/interp/simpbool.lisp.pamphlet +++ b/src/interp/simpbool.lisp.pamphlet @@ -39,7 +39,7 @@ (PROGN (SETQ |x| (CAR G166069)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |ok| 'T) + (setq |ok| 'T) (DO ((G166078 |u| (CDR G166078)) (|y| NIL)) ((OR (ATOM G166078) @@ -51,10 +51,10 @@ (COND ((BOOT-EQUAL |x| |y|) '|skip|) ((|dnfContains| |x| |y|) - (RETURN (SPADLET |ok| NIL))))))) + (RETURN (setq |ok| NIL))))))) (COND ((BOOT-EQUAL |ok| 'T) - (SPADLET |acc| (CONS |x| |acc|)))))))) + (setq |acc| (CONS |x| |acc|)))))))) (NREVERSE |acc|))))))) ;dnfContains([a,b],[c,d]) == fn(a,c) and fn(b,d) where @@ -64,7 +64,7 @@ (PROG () (RETURN (SEQ (PROG (G166090) - (SPADLET G166090 'T) + (setq G166090 'T) (RETURN (DO ((G166096 NIL (NULL G166090)) (G166097 |y| (CDR G166097)) (|u| NIL)) @@ -79,10 +79,10 @@ (PROG (|c| |d| |a| |b|) (RETURN (PROGN - (SPADLET |c| (CAR G166118)) - (SPADLET |d| (CADR G166118)) - (SPADLET |a| (CAR G166109)) - (SPADLET |b| (CADR G166109)) + (setq |c| (CAR G166118)) + (setq |d| (CADR G166118)) + (setq |a| (CAR G166109)) + (setq |b| (CADR G166109)) (AND (|dnfContains,fn| |a| |c|) (|dnfContains,fn| |b| |d|)))))) ;prove x == @@ -98,9 +98,9 @@ (PROG (|p| |world| |y|) (RETURN (SEQ (COND - ((SPADLET |world| + ((setq |world| (PROG (G166145) - (SPADLET G166145 NIL) + (setq G166145 NIL) (RETURN (DO ((G166151 (|listOfUserIds| |x|) (CDR G166151)) @@ -111,7 +111,7 @@ NIL)) (NREVERSE0 G166145)) (SEQ (EXIT (COND - ((SPADLET |p| + ((setq |p| (|getPredicate| |y|)) (SETQ G166145 (CONS |p| G166145)))))))))) @@ -125,7 +125,7 @@ (|be| (MKPF (CONS |x| |world|) 'AND))) NIL) ('T |x|))) - ((BOOT-EQUAL '|false| (SPADLET |y| (|be| |x|))) '|false|) + ((BOOT-EQUAL '|false| (setq |y| (|be| |x|))) '|false|) ((BOOT-EQUAL |y| '|true|) 'T) ('T (|dnf2pf| |y|))))))) @@ -151,25 +151,25 @@ 'AND))) 'T) ((BOOT-EQUAL '|false| - (SPADLET |y| + (setq |y| (|be| (MKPF (CONS |x| |world|) 'AND)))) NIL) ((AND (PROGN - (SPADLET |ISTMP#1| - (SPADLET |u| + (setq |ISTMP#1| + (setq |u| (|andReduce| (|dnf2pf| |y|) |world|))) (AND (CONSP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) 'AND) (PROGN - (SPADLET |v| (QCDR |ISTMP#1|)) + (setq |v| (QCDR |ISTMP#1|)) 'T))) - (NEQUAL (SPADLET |w| + (NEQUAL (setq |w| (SETDIFFERENCE |v| |world|)) |v|)) (|simpBool| (CONS 'AND |w|))) ('T |u|))) - ((BOOT-EQUAL '|false| (SPADLET |y| (|be| |x|))) NIL) + ((BOOT-EQUAL '|false| (setq |y| (|be| |x|))) NIL) ((BOOT-EQUAL '|true| |y|) 'T) ('T (|dnf2pf| |y|)))))) @@ -184,10 +184,10 @@ (RETURN (COND ((AND (CONSP |x|) (EQ (QCAR |x|) 'AND) - (PROGN (SPADLET |r| (QCDR |x|)) 'T)) + (PROGN (setq |r| (QCDR |x|)) 'T)) (COND ((AND (CONSP |y|) (EQ (QCAR |y|) 'AND) - (PROGN (SPADLET |s| (QCDR |y|)) 'T)) + (PROGN (setq |s| (QCDR |y|)) 'T)) (MKPF (S- |r| |s|) 'AND)) ('T (MKPF (S- |r| (CONS |s| NIL)) 'AND)))) ('T |x|))))) @@ -208,7 +208,7 @@ ((ATOM |x|) |x|) ('T (MKPF (PROG (G166196) - (SPADLET G166196 NIL) + (setq G166196 NIL) (RETURN (DO ((G166202 |x| (CDR G166202)) (G166186 NIL)) @@ -218,8 +218,8 @@ NIL) (PROGN (PROGN - (SPADLET |a| (CAR G166186)) - (SPADLET |b| (CADR G166186)) + (setq |a| (CAR G166186)) + (setq |b| (CADR G166186)) G166186) NIL)) (NREVERSE0 G166196)) @@ -228,7 +228,7 @@ (MKPF (APPEND (PROG (G166213) - (SPADLET G166213 NIL) + (setq G166213 NIL) (RETURN (DO ((G166218 |b| @@ -245,7 +245,7 @@ (SETQ G166213 (CONS |k| G166213))))))) (PROG (G166228) - (SPADLET G166228 NIL) + (setq G166228 NIL) (RETURN (DO ((G166233 |a| @@ -289,7 +289,7 @@ ((BOOT-EQUAL |x| 'T) '|true|) ((NULL |x|) '|false|) ((ATOM |x|) (|bassert| |x|)) - ('T (SPADLET |op| (CAR |x|)) (SPADLET |argl| (CDR |x|)) + ('T (setq |op| (CAR |x|)) (setq |argl| (CDR |x|)) (COND ((member |op| '(AND |and|)) (|band| |argl|)) ((member |op| '(OR |or|)) (|bor| |argl|)) @@ -306,8 +306,8 @@ (COND ((AND (CONSP |x|) (PROGN - (SPADLET |h| (QCAR |x|)) - (SPADLET |t| (QCDR |x|)) + (setq |h| (QCAR |x|)) + (setq |t| (QCDR |x|)) 'T)) (|andDnf| (|b2dnf| |h|) (|band| |t|))) ('T '|true|))))) @@ -322,8 +322,8 @@ (COND ((AND (CONSP |x|) (PROGN - (SPADLET |a| (QCAR |x|)) - (SPADLET |b| (QCDR |x|)) + (setq |a| (QCAR |x|)) + (setq |b| (QCDR |x|)) 'T)) (|orDnf| (|b2dnf| |a|) (|bor| |b|))) ('T '|false|))))) @@ -366,7 +366,7 @@ ('T (BOOT-EQUAL (AND (CONSP |a|) (EQ (QCDR |a|) NIL) - (PROGN (SPADLET |c| (QCAR |a|)) 'T)) + (PROGN (setq |c| (QCAR |a|)) 'T)) (|coafOrDnf| |c| |b|)) (|coafOrDnf| (CAR |a|) (|orDnf| (CDR |a|) |b|))))))) @@ -392,10 +392,10 @@ '|false|) ((NULL |a|) '|false|) ((AND (CONSP |a|) (EQ (QCDR |a|) NIL) - (PROGN (SPADLET |c| (QCAR |a|)) 'T)) + (PROGN (setq |c| (QCAR |a|)) 'T)) (|coafAndDnf| |c| |b|)) - ('T (SPADLET |x| (|coafAndDnf| (CAR |a|) |b|)) - (SPADLET |y| (|andDnf| (CDR |a|) |b|)) + ('T (setq |x| (|coafAndDnf| (CAR |a|) |b|)) + (setq |y| (|andDnf| (CDR |a|) |b|)) (COND ((BOOT-EQUAL |x| '|false|) |y|) ((BOOT-EQUAL |y| '|false|) |x|) @@ -416,7 +416,7 @@ ((BOOT-EQUAL |l| '|false|) '|true|) ((NULL |l|) '|true|) ((AND (CONSP |l|) (EQ (QCDR |l|) NIL) - (PROGN (SPADLET |x| (QCAR |l|)) 'T)) + (PROGN (setq |x| (QCAR |l|)) 'T)) (|notCoaf| |x|)) ('T (|andDnf| (|notCoaf| (CAR |l|)) (|notDnf| (CDR |l|)))))))) @@ -439,8 +439,8 @@ '|true|) ((BOOT-EQUAL |a| '|false|) |l|) ((|member| |a| |l|) |l|) - ('T (SPADLET |y| (|notCoaf| |a|)) - (SPADLET |x| (|ordIntersection| |y| |l|)) + ('T (setq |y| (|notCoaf| |a|)) + (setq |x| (|ordIntersection| |y| |l|)) (COND ((NULL |x|) (|orDel| |a| |l|)) ((BOOT-EQUAL |x| |l|) '|true|) @@ -464,11 +464,11 @@ (COND ((BOOT-EQUAL |a| '|true|) |b|) ((BOOT-EQUAL |a| '|false|) '|false|) - ('T (SPADLET |c| (CAR |b|)) (SPADLET |r| (CDR |b|)) + ('T (setq |c| (CAR |b|)) (setq |r| (CDR |b|)) (COND ((NULL |r|) (|coafAndCoaf| |a| |c|)) - ('T (SPADLET |x| (|coafAndCoaf| |a| |c|)) - (SPADLET |y| (|coafAndDnf| |a| |r|)) + ('T (setq |x| (|coafAndCoaf| |a| |c|)) + (setq |y| (|coafAndDnf| |a| |r|)) (COND ((BOOT-EQUAL |x| '|false|) |y|) ((BOOT-EQUAL |y| '|false|) |x|) @@ -482,10 +482,10 @@ (PROG (|p| |q| |a| |b|) (RETURN (PROGN - (SPADLET |p| (CAR G166330)) - (SPADLET |q| (CADR G166330)) - (SPADLET |a| (CAR G166321)) - (SPADLET |b| (CADR G166321)) + (setq |p| (CAR G166330)) + (setq |q| (CADR G166330)) + (setq |a| (CAR G166321)) + (setq |b| (CADR G166321)) (COND ((OR (|ordIntersection| |a| |q|) (|ordIntersection| |b| |p|)) '|false|) @@ -500,10 +500,10 @@ (PROG (|a| |b|) (RETURN (SEQ (PROGN - (SPADLET |a| (CAR G166350)) - (SPADLET |b| (CADR G166350)) + (setq |a| (CAR G166350)) + (setq |b| (CADR G166350)) (APPEND (PROG (G166363) - (SPADLET G166363 NIL) + (setq G166363 NIL) (RETURN (DO ((G166368 |a| (CDR G166368)) (|x| NIL)) @@ -518,7 +518,7 @@ (CONS (CONS |x| NIL) NIL)) G166363))))))) (PROG (G166378) - (SPADLET G166378 NIL) + (setq G166378 NIL) (RETURN (DO ((G166383 |b| (CDR G166383)) (|x| NIL)) @@ -544,8 +544,8 @@ (COND ((NULL (AND (CONSP |l|) (PROGN - (SPADLET |h| (QCAR |l|)) - (SPADLET |t| (QCDR |l|)) + (setq |h| (QCAR |l|)) + (setq |t| (QCDR |l|)) 'T))) NIL) ((NULL |h|) (|list1| |t|)) @@ -562,8 +562,8 @@ (COND ((NULL (AND (CONSP |l|) (PROGN - (SPADLET |h| (QCAR |l|)) - (SPADLET |t| (QCDR |l|)) + (setq |h| (QCAR |l|)) + (setq |t| (QCDR |l|)) 'T))) NIL) ((NULL |h|) (|list2| |t|)) @@ -580,8 +580,8 @@ (COND ((NULL (AND (CONSP |l|) (PROGN - (SPADLET |h| (QCAR |l|)) - (SPADLET |t| (QCDR |l|)) + (setq |h| (QCAR |l|)) + (setq |t| (QCDR |l|)) 'T))) NIL) ((NULL |h|) (|list3| |t|)) @@ -600,8 +600,8 @@ (COND ((AND (CONSP |l|) (PROGN - (SPADLET |h| (QCAR |l|)) - (SPADLET |t| (QCDR |l|)) + (setq |h| (QCAR |l|)) + (setq |t| (QCDR |l|)) 'T)) (COND ((BOOT-EQUAL |a| |h|) |t|) @@ -619,8 +619,8 @@ (COND ((AND (CONSP |l|) (PROGN - (SPADLET |h| (QCAR |l|)) - (SPADLET |t| (QCDR |l|)) + (setq |h| (QCAR |l|)) + (setq |t| (QCDR |l|)) 'T) |t|) (|orDel| |h| (|ordList| |t|))) @@ -639,14 +639,14 @@ (COND ((NULL (AND (CONSP |a|) (PROGN - (SPADLET |c| (QCAR |a|)) - (SPADLET |r| (QCDR |a|)) + (setq |c| (QCAR |a|)) + (setq |r| (QCDR |a|)) 'T))) |b|) ((NULL (AND (CONSP |b|) (PROGN - (SPADLET |d| (QCAR |b|)) - (SPADLET |s| (QCDR |b|)) + (setq |d| (QCAR |b|)) + (setq |s| (QCDR |b|)) 'T))) |a|) ((BOOT-EQUAL |c| |d|) (CONS |c| (|ordUnion| |r| |s|))) @@ -664,8 +664,8 @@ (COND ((NULL (AND (CONSP |a|) (PROGN - (SPADLET |h| (QCAR |a|)) - (SPADLET |t| (QCDR |a|)) + (setq |h| (QCAR |a|)) + (setq |t| (QCDR |a|)) 'T))) NIL) ((|member| |h| |b|) (CONS |h| (|ordIntersection| |t| |b|))) @@ -682,8 +682,8 @@ (COND ((NULL (AND (CONSP |b|) (PROGN - (SPADLET |h| (QCAR |b|)) - (SPADLET |t| (QCDR |b|)) + (setq |h| (QCAR |b|)) + (setq |t| (QCDR |b|)) 'T))) |a|) ((|member| |h| |a|) (|ordSetDiff| (|delete| |h| |a|) |t|)) @@ -706,7 +706,7 @@ (PROGN (SETQ |x| (CAR G166480)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |y| (|simpBool| |x|)) + (setq |y| (|simpBool| |x|)) (COND ((BOOT-EQUAL |x| |y|) NIL) ('T (|pp| |x|) diff --git a/src/interp/slam.lisp.pamphlet b/src/interp/slam.lisp.pamphlet index c84fb99..fa18b41 100644 --- a/src/interp/slam.lisp.pamphlet +++ b/src/interp/slam.lisp.pamphlet @@ -96,20 +96,20 @@ |$compiledOpNameList|)) (RETURN (PROGN - (SPADLET |$compiledOpNameList| (CONS |nam| NIL)) - (SPADLET |minivectorName| + (setq |$compiledOpNameList| (CONS |nam| NIL)) + (setq |minivectorName| (|makeInternalMapMinivectorName| |nam|)) - (SPADLET |$minivectorNames| + (setq |$minivectorNames| (CONS (CONS |op| |minivectorName|) |$minivectorNames|)) - (SPADLET |body| (MSUBST |minivectorName| '$$$ |body|)) + (setq |body| (MSUBST |minivectorName| '$$$ |body|)) (COND (|$compilingInputFile| - (SPADLET |$minivectorCode| + (setq |$minivectorCode| (APPEND |$minivectorCode| (CONS |minivectorName| NIL))))) (SET |minivectorName| (LIST2REFVEC |$minivector|)) - (SPADLET |argl| (COPY |argl|)) - (SPADLET |init| + (setq |argl| (COPY |argl|)) + (setq |init| (COND ((NULL (AND |isRecursive| |$compileRecurrence| (EQL (|#| |argl|) 1))) @@ -120,12 +120,12 @@ (COND (|init| (|compileRecurrenceRelation| |op| |nam| |argl| |body| |init|)) - ('T (SPADLET |cacheCount| (|getCacheCount| |op|)) + ('T (setq |cacheCount| (|getCacheCount| |op|)) (COND ((BOOT-EQUAL |cacheCount| '|all|) (|reportFunctionCacheAll| |op| |nam| |argl| |body|)) ((OR (EQL |cacheCount| 0) (NULL |argl|)) - (SPADLET function + (setq function (CONS |nam| (CONS (CONS 'LAMBDA (CONS @@ -135,7 +135,7 @@ NIL))) (|compileInteractive| function) |nam|) ('T - (SPADLET |num| + (setq |num| (COND ((integerp |cacheCount|) (COND @@ -151,9 +151,9 @@ (|sayKeyedMsg| "%1p will cache %2 most recently computed value(s)." (CONS |op| (CONS |num| NIL))) - (SPADLET |auxfn| (|mkAuxiliaryName| |nam|)) - (SPADLET |g1| (GENSYM)) - (SPADLET |LETTMP#1| + (setq |auxfn| (|mkAuxiliaryName| |nam|)) + (setq |g1| (GENSYM)) + (setq |LETTMP#1| (COND ((NULL |argl|) (CONS NIL (CONS (CONS |auxfn| NIL) NIL))) @@ -168,11 +168,11 @@ (CONS (MKQ |auxfn|) (CONS |g1| NIL))) NIL))))) - (SPADLET |arg| (CAR |LETTMP#1|)) - (SPADLET |computeValue| (CADR |LETTMP#1|)) - (SPADLET |cacheName| (|mkCacheName| |nam|)) - (SPADLET |g2| (GENSYM)) (SPADLET |g3| (GENSYM)) - (SPADLET |secondPredPair| + (setq |arg| (CAR |LETTMP#1|)) + (setq |computeValue| (CADR |LETTMP#1|)) + (setq |cacheName| (|mkCacheName| |nam|)) + (setq |g2| (GENSYM)) (setq |g3| (GENSYM)) + (setq |secondPredPair| (COND ((NULL |argl|) (CONS |cacheName| NIL)) ('T @@ -184,7 +184,7 @@ (CONS |cacheName| NIL))) NIL))) (CONS (CONS 'CDR (CONS |g3| NIL)) NIL))))) - (SPADLET |thirdPredPair| + (setq |thirdPredPair| (COND ((NULL |argl|) (CONS ''T @@ -220,7 +220,7 @@ (CONS 'RPLACD (CONS |g3| (CONS |g2| NIL))) (CONS |g2| NIL))))))))) - (SPADLET |codeBody| + (setq |codeBody| (CONS 'PROG (CONS (CONS |g2| (CONS |g3| NIL)) (CONS @@ -231,10 +231,10 @@ (CONS |thirdPredPair| NIL))) NIL)) NIL)))) - (SPADLET |lamex| + (setq |lamex| (CONS 'LAM (CONS |arg| (CONS |codeBody| NIL)))) - (SPADLET |mainFunction| (CONS |nam| (CONS |lamex| NIL))) - (SPADLET |computeFunction| + (setq |mainFunction| (CONS |nam| (CONS |lamex| NIL))) + (setq |computeFunction| (CONS |auxfn| (CONS (CONS 'LAMBDA (CONS @@ -244,21 +244,21 @@ NIL))) (|compileInteractive| |mainFunction|) (|compileInteractive| |computeFunction|) - (SPADLET |cacheType| 'function) - (SPADLET |cacheResetCode| + (setq |cacheType| 'function) + (setq |cacheResetCode| (CONS 'SETQ (CONS |cacheName| (CONS (CONS '|mkCircularAlist| (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|)) - (SPADLET |$e| + (setq |$e| (|put| |nam| '|cacheInfo| |cacheVector| |$e|)) (|eval| |cacheResetCode|) (SETANDFILE |cacheName| (|mkCircularAlist| |cacheCount|)) @@ -275,7 +275,7 @@ (declare (special |$cacheCount| |$cacheAlist|)) (RETURN (COND - ((SPADLET |n| (LASSOC |fn| |$cacheAlist|)) |n|) + ((setq |n| (LASSOC |fn| |$cacheAlist|)) |n|) ('T |$cacheCount|))))) ;reportFunctionCacheAll(op,nam,argl,body) == @@ -318,9 +318,9 @@ (PROGN (|sayKeyedMsg| "%1p will cache all previously computed values." (CONS |op| NIL)) - (SPADLET |auxfn| (|mkAuxiliaryName| |nam|)) - (SPADLET |g1| (GENSYM)) - (SPADLET |LETTMP#1| + (setq |auxfn| (|mkAuxiliaryName| |nam|)) + (setq |g1| (GENSYM)) + (setq |LETTMP#1| (COND ((NULL |argl|) (CONS (CONS '|envArg| NIL) @@ -337,12 +337,12 @@ (CONS (MKQ |auxfn|) (CONS |g1| NIL))) NIL))))) - (SPADLET |arg| (CAR |LETTMP#1|)) - (SPADLET |computeValue| (CADR |LETTMP#1|)) - (COND ((NULL |argl|) (SPADLET |g1| NIL))) - (SPADLET |cacheName| (|mkCacheName| |nam|)) - (SPADLET |g2| (GENSYM)) - (SPADLET |secondPredPair| + (setq |arg| (CAR |LETTMP#1|)) + (setq |computeValue| (CADR |LETTMP#1|)) + (COND ((NULL |argl|) (setq |g1| NIL))) + (setq |cacheName| (|mkCacheName| |nam|)) + (setq |g2| (GENSYM)) + (setq |secondPredPair| (CONS (CONS 'SETQ (CONS |g2| (CONS @@ -350,14 +350,14 @@ (CONS |cacheName| (CONS |g1| NIL))) NIL))) (CONS |g2| NIL))) - (SPADLET |thirdPredPair| + (setq |thirdPredPair| (CONS ''T (CONS (CONS 'HPUT (CONS |cacheName| (CONS |g1| (CONS |computeValue| NIL)))) NIL))) - (SPADLET |codeBody| + (setq |codeBody| (CONS 'PROG (CONS (CONS |g2| NIL) (CONS (CONS 'RETURN @@ -367,10 +367,10 @@ (CONS |thirdPredPair| NIL))) NIL)) NIL)))) - (SPADLET |lamex| + (setq |lamex| (CONS 'LAM (CONS |arg| (CONS |codeBody| NIL)))) - (SPADLET |mainFunction| (CONS |nam| (CONS |lamex| NIL))) - (SPADLET |computeFunction| + (setq |mainFunction| (CONS |nam| (CONS |lamex| NIL))) + (setq |computeFunction| (CONS |auxfn| (CONS (CONS 'LAMBDA (CONS @@ -380,19 +380,19 @@ NIL))) (|compileInteractive| |mainFunction|) (|compileInteractive| |computeFunction|) - (SPADLET |cacheType| '|hash-table|) - (SPADLET |cacheResetCode| + (setq |cacheType| '|hash-table|) + (setq |cacheResetCode| (CONS 'SETQ (CONS |cacheName| (CONS (CONS 'MAKE-HASHTABLE (CONS ''UEQUAL NIL)) NIL)))) - (SPADLET |cacheCountCode| + (setq |cacheCountCode| (CONS '|hashCount| (CONS |cacheName| NIL))) - (SPADLET |cacheVector| + (setq |cacheVector| (|mkCacheVec| |op| |cacheName| |cacheType| |cacheResetCode| |cacheCountCode|)) - (SPADLET |$e| (|put| |nam| '|cacheInfo| |cacheVector| |$e|)) + (setq |$e| (|put| |nam| '|cacheInfo| |cacheVector| |$e|)) (|eval| |cacheResetCode|) |nam|)))) @@ -405,7 +405,7 @@ (PROG () (RETURN (SEQ (PROG (G166140) - (SPADLET G166140 0) + (setq G166140 0) (RETURN (DO ((G166145 (HKEYS |table|) (CDR G166145)) (|key| NIL)) @@ -430,9 +430,9 @@ (declare (special |$failed|)) (RETURN (SEQ (PROGN - (SPADLET |l| + (setq |l| (PROG (G166160) - (SPADLET G166160 NIL) + (setq G166160 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) @@ -452,7 +452,7 @@ (PROG () (RETURN (SEQ (PROG (G166173) - (SPADLET G166173 0) + (setq G166173 0) (RETURN (DO ((G166179 |cal| (CDR G166179)) (|x| NIL) (|i| 1 (QSADD1 |i|))) @@ -473,7 +473,7 @@ (SEQ (PROGN (DO ((G166194 (QSSUB1 |n|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166194) NIL) - (SEQ (EXIT (SPADLET |al| (QCDR |al|))))) + (SEQ (EXIT (setq |al| (QCDR |al|))))) |al|))) ;assocCircular(x,al) == --like ASSOC except that al is circular @@ -490,16 +490,16 @@ (PROG (|val| |forwardPointer|) (RETURN (SEQ (PROGN - (SPADLET |forwardPointer| |al|) - (SPADLET |val| NIL) + (setq |forwardPointer| |al|) + (setq |val| NIL) (DO ((G166207 NIL (EQ |forwardPointer| |al|))) (G166207 NIL) (SEQ (EXIT (COND ((BOOT-EQUAL (CAAR |forwardPointer|) |x|) (RETURN - (SPADLET |val| (CAR |forwardPointer|)))) + (setq |val| (CAR |forwardPointer|)))) ('T - (SPADLET |forwardPointer| + (setq |forwardPointer| (CDR |forwardPointer|))))))) |val|))))) @@ -611,16 +611,16 @@ (declare (special |$e| |$TriangleVariableList| |$compiledOpNameList|)) (RETURN (SEQ (PROGN - (SPADLET |body| (CAR G166238)) - (SPADLET |sharpArg| (CADR G166238)) - (SPADLET |n| (CADDR G166238)) - (SPADLET |initCode| (CDDDR G166238)) - (SPADLET |k| (|#| |initCode|)) - (SPADLET |extraArgumentCode| + (setq |body| (CAR G166238)) + (setq |sharpArg| (CADR G166238)) + (setq |n| (CADDR G166238)) + (setq |initCode| (CDDDR G166238)) + (setq |k| (|#| |initCode|)) + (setq |extraArgumentCode| (COND - ((SPADLET |extraArguments| + ((setq |extraArguments| (PROG (G166269) - (SPADLET G166269 NIL) + (setq G166269 NIL) (RETURN (DO ((G166275 |argl| @@ -641,17 +641,17 @@ ((AND (CONSP |extraArguments|) (EQ (QCDR |extraArguments|) NIL) (PROGN - (SPADLET |x| + (setq |x| (QCAR |extraArguments|)) 'T)) |x|) ('T (CONS 'LIST |extraArguments|)))) ('T NIL))) - (SPADLET |g| (GENSYM)) - (SPADLET |gIndex| (GENSYM)) - (SPADLET |gsList| + (setq |g| (GENSYM)) + (setq |gIndex| (GENSYM)) + (setq |gsList| (PROG (G166285) - (SPADLET G166285 NIL) + (setq G166285 NIL) (RETURN (DO ((G166290 |initCode| (CDR G166290)) (|x| NIL)) @@ -662,17 +662,17 @@ (NREVERSE0 G166285)) (SEQ (EXIT (SETQ G166285 (CONS (GENSYM) G166285)))))))) - (SPADLET |auxfn| (|mkAuxiliaryName| |nam|)) - (SPADLET |$compiledOpNameList| + (setq |auxfn| (|mkAuxiliaryName| |nam|)) + (setq |$compiledOpNameList| (APPEND |$compiledOpNameList| (CONS |auxfn| NIL))) - (SPADLET |stateNam| (GENVAR)) - (SPADLET |stateVar| (GENSYM)) - (SPADLET |stateVal| (GENSYM)) - (SPADLET |lastArg| + (setq |stateNam| (GENVAR)) + (setq |stateVar| (GENSYM)) + (setq |stateVal| (GENSYM)) + (setq |lastArg| (INTERNL (STRCONC "#" (STRINGIMAGE (QSADD1 (LENGTH |argl|)))))) - (SPADLET |decomposeCode| + (setq |decomposeCode| (CONS (CONS 'LET (CONS |gIndex| (CONS @@ -680,7 +680,7 @@ (CONS |lastArg| (CONS 0 NIL))) NIL))) (PROG (G166301) - (SPADLET G166301 NIL) + (setq G166301 NIL) (RETURN (DO ((G166307 |gsList| (CDR G166307)) @@ -701,10 +701,10 @@ (CONS |i| NIL))) NIL))) G166301))))))))) - (SPADLET |gsRev| (REVERSE |gsList|)) - (SPADLET |rotateCode| + (setq |gsRev| (REVERSE |gsList|)) + (setq |rotateCode| (PROG (G166318) - (SPADLET G166318 NIL) + (setq G166318 NIL) (RETURN (DO ((G166324 |gsRev| (CDR G166324)) (|p| NIL) @@ -727,15 +727,15 @@ (CONS 'LET (CONS |p| (CONS |q| NIL))) G166318)))))))) - (SPADLET |advanceCode| + (setq |advanceCode| (CONS 'LET (CONS |gIndex| (CONS (CONS '1+ (CONS |gIndex| NIL)) NIL)))) - (SPADLET |newTripleCode| + (setq |newTripleCode| (CONS 'LIST (CONS |sharpArg| |gsList|))) - (SPADLET |newStateCode| + (setq |newStateCode| (COND ((NULL |extraArguments|) (CONS 'SETQ @@ -746,14 +746,14 @@ (CONS |stateNam| (CONS |extraArgumentCode| (CONS |newTripleCode| NIL))))))) - (SPADLET |cargl| (APPEND |argl| (CONS |lastArg| NIL))) - (SPADLET |returnValue| + (setq |cargl| (APPEND |argl| (CONS |lastArg| NIL))) + (setq |returnValue| (CONS 'PROGN (CONS |newStateCode| (CONS (CAR |gsList|) NIL)))) - (SPADLET |cbody| + (setq |cbody| (PROGN - (SPADLET |endTest| + (setq |endTest| (CONS 'COND (CONS (CONS @@ -765,7 +765,7 @@ (CONS |returnValue| NIL)) NIL)) NIL))) - (SPADLET |newValueCode| + (setq |newValueCode| (CONS 'LET (CONS |g| (CONS @@ -789,16 +789,16 @@ |rotateCode|)))) NIL))) NIL))))) - (SPADLET |computeFunction| + (setq |computeFunction| (CONS |auxfn| (CONS (CONS 'LAM (CONS |cargl| (CONS |cbody| NIL))) NIL))) - (SPADLET |fromScratchInit| + (setq |fromScratchInit| (CONS (CONS 'LET (CONS |gIndex| (CONS |n| NIL))) (PROG (G166339) - (SPADLET G166339 NIL) + (setq G166339 NIL) (RETURN (DO ((G166345 |gsList| (CDR G166345)) @@ -821,7 +821,7 @@ (CONS 'LET (CONS |g| (CONS |x| NIL))) G166339))))))))) - (SPADLET |continueInit| + (setq |continueInit| (CONS (CONS 'LET (CONS |gIndex| (CONS @@ -830,7 +830,7 @@ (CONS 0 NIL))) NIL))) (PROG (G166360) - (SPADLET G166360 NIL) + (setq G166360 NIL) (RETURN (DO ((G166366 |gsList| (CDR G166366)) @@ -851,21 +851,21 @@ (CONS |i| NIL))) NIL))) G166360))))))))) - (SPADLET |margl| (APPEND |argl| (CONS '|envArg| NIL))) - (SPADLET |max| (GENSYM)) - (SPADLET |tripleCode| + (setq |margl| (APPEND |argl| (CONS '|envArg| NIL))) + (setq |max| (GENSYM)) + (setq |tripleCode| (CONS 'CONS (CONS |n| (CONS (CONS 'LIST |initCode|) NIL)))) - (SPADLET |initialSetCode| + (setq |initialSetCode| (PROGN - (SPADLET |initialValueCode| + (setq |initialValueCode| (COND (|extraArguments| (CONS 'MAKE-HASHTABLE (CONS ''UEQUAL NIL))) ('T |tripleCode|))) - (SPADLET |cacheResetCode| + (setq |cacheResetCode| (CONS 'SETQ (CONS |stateNam| (CONS |initialValueCode| NIL)))) @@ -895,7 +895,7 @@ (CONS |stateNam| NIL))) NIL)) NIL))))) - (SPADLET |initialResetCode| + (setq |initialResetCode| (COND ((NULL |extraArguments|) NIL) ('T @@ -916,9 +916,9 @@ NIL))) NIL))) NIL)))) - (SPADLET |mbody| + (setq |mbody| (PROGN - (SPADLET |preset| + (setq |preset| (CONS |initialSetCode| (APPEND |initialResetCode| (CONS @@ -930,7 +930,7 @@ (CONS 0 NIL))) NIL))) NIL)))) - (SPADLET |phrase1| + (setq |phrase1| (CONS (CONS 'AND (CONS (CONS 'LET @@ -950,7 +950,7 @@ (APPEND |argl| (CONS |stateVar| NIL))) NIL))) - (SPADLET |phrase2| + (setq |phrase2| (CONS (CONS 'GT (CONS |sharpArg| (CONS @@ -978,7 +978,7 @@ NIL)) NIL))) NIL))) - (SPADLET |phrase3| + (setq |phrase3| (CONS (CONS 'GT (CONS |sharpArg| (CONS |n| NIL))) @@ -990,7 +990,7 @@ (CONS |n| |initCode|)) NIL))) NIL))) - (SPADLET |phrase4| + (setq |phrase4| (CONS (CONS 'GT (CONS |sharpArg| (CONS (SPADDIFFERENCE |n| |k|) @@ -1004,7 +1004,7 @@ (CONS |sharpArg| NIL))) NIL))) NIL))) - (SPADLET |phrase5| + (setq |phrase5| (CONS ''T (CONS (CONS '|recurrenceError| @@ -1021,7 +1021,7 @@ (CONS |phrase4| (CONS |phrase5| NIL)))))) NIL))))) - (SPADLET |mainFunction| + (setq |mainFunction| (CONS |nam| (CONS (CONS 'LAM (CONS |margl| @@ -1032,13 +1032,13 @@ (CONS |op| NIL)) (|compileInteractive| |computeFunction|) (|compileInteractive| |mainFunction|) - (SPADLET |cacheType| '|recurrence|) - (SPADLET |cacheCountCode| + (setq |cacheType| '|recurrence|) + (setq |cacheCountCode| (CONS '|nodeCount| (CONS |stateNam| NIL))) - (SPADLET |cacheVector| + (setq |cacheVector| (|mkCacheVec| |op| |stateNam| |cacheType| |cacheResetCode| |cacheCountCode|)) - (SPADLET |$e| + (setq |$e| (|put| |nam| '|cacheInfo| |cacheVector| |$e|)) |nam|))))) @@ -1122,8 +1122,8 @@ NIL) (PROGN (PROGN - (SPADLET |map| (CAR G166440)) - (SPADLET |sub| (CDR G166440)) + (setq |map| (CAR G166440)) + (setq |sub| (CDR G166440)) G166440) NIL)) NIL) @@ -1131,12 +1131,12 @@ ((BOOT-EQUAL |map| |x|) (EXIT (|/UNTRACE,2| |sub| NIL))))))) - (SPADLET |$e| + (setq |$e| (|putHist| |x| '|localModemap| NIL |$e|)) - (SPADLET |$e| + (setq |$e| (|putHist| |x| '|mapBody| NIL |$e|)) - (SPADLET |$e| + (setq |$e| (|putHist| |x| '|localVars| NIL |$e|)) (|sayKeyedMsg| "Compiled code for %1p has been cleared." @@ -1164,7 +1164,7 @@ (declare (special |$e| |$EmptyMode| |$mapSubNameAlist|)) (RETURN (SEQ (COND - ((SPADLET |u| (|get| |x| '|localModemap| |$e|)) + ((setq |u| (|get| |x| '|localModemap| |$e|)) (EXIT (PROGN (DO ((G166471 (ASSOCRIGHT |$mapSubNameAlist|) (CDR G166471)) @@ -1175,27 +1175,27 @@ NIL)) NIL) (SEQ (EXIT (|/UNTRACE,2| |sub| NIL)))) - (SPADLET |$e| + (setq |$e| (|putHist| |x| '|localModemap| NIL |$e|)) (DO ((G166484 |u| (CDR G166484)) (|mm| NIL)) ((OR (ATOM G166484) (PROGN (SETQ |mm| (CAR G166484)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |fn| (CADR |mm|)) + (setq |fn| (CADR |mm|)) (COND - ((SPADLET |def| + ((setq |def| (|get| |fn| '|definition| |$e|)) - (SPADLET |$e| + (setq |$e| (|putHist| |x| '|value| (mkObj |def| |$EmptyMode|) |$e|)))) (COND - ((SPADLET |cacheVec| + ((setq |cacheVec| (|get| |fn| '|cacheInfo| |$e|)) (SET (CADR |cacheVec|) NIL))) - (SPADLET |$e| + (setq |$e| (|addIntSymTabBinding| |x| NIL |$e|)))))) (|sayKeyedMsg| @@ -1231,12 +1231,12 @@ (|bright| "Generated LISP code for function:")) (|pp| |fn|))) - (SPADLET |optfn| + (setq |optfn| (COND (|$InteractiveMode| (CONS (|timedOptimization| |fn|) NIL)) ('T (CONS |fn| NIL)))) - (SPADLET |result| (|compQuietly| |optfn|)) + (setq |result| (|compQuietly| |optfn|)) (COND (|$InteractiveMode| (|stopTimingProcess| '|compilation|))) |result|)))) @@ -1265,12 +1265,12 @@ NIL) (SEQ (EXIT (COND ((NULL (member |x| |thoseCleared|)) - (SEQ (SPADLET |slamListName| + (SEQ (setq |slamListName| (|mkCacheName| |x|)) (SET |slamListName| NIL) - (SPADLET |thoseCleared| + (setq |thoseCleared| (ADJOIN |x| |thoseCleared|)) - (SPADLET |someMoreToClear| + (setq |someMoreToClear| (SETDIFFERENCE (LASSOC |x| |$functorDependencyAlist|) @@ -1293,7 +1293,7 @@ (DEFUN |clearSlam,LAM| (|functor|) (PROG (|id|) (RETURN - (PROGN (SPADLET |id| (|mkCacheName| |functor|)) (SET |id| NIL))))) + (PROGN (setq |id| (|mkCacheName| |functor|)) (SET |id| NIL))))) (DEFMACRO |clearSlam| (&WHOLE G166536 &REST G166537 &AUX G166535) (DSETQ G166535 G166536) diff --git a/src/interp/template.lisp.pamphlet b/src/interp/template.lisp.pamphlet index 6b6a040..0c70080 100644 --- a/src/interp/template.lisp.pamphlet +++ b/src/interp/template.lisp.pamphlet @@ -44,18 +44,18 @@ (PROG (|u| |f| |op| |sigList| |LETTMP#1| |sig| |r| |s| |t|) (RETURN (SEQ (PROGN - (SPADLET |u| (GETDATABASE |x| 'OPERATIONALIST)) + (setq |u| (GETDATABASE |x| 'OPERATIONALIST)) (COND ((NULL |u|) |u|) ((BOOT-EQUAL (CAAR |u|) '|$unique|) (CDR |u|)) - ('T (SPADLET |f| (|addConsDB| '(NIL T ELT))) + ('T (setq |f| (|addConsDB| '(NIL T ELT))) (DO ((G166086 |u| (CDR G166086)) (G166068 NIL)) ((OR (ATOM G166086) (PROGN (SETQ G166068 (CAR G166086)) NIL) (PROGN (PROGN - (SPADLET |op| (CAR G166068)) - (SPADLET |sigList| (CDR G166068)) + (setq |op| (CAR G166068)) + (setq |sigList| (CDR G166068)) G166068) NIL)) NIL) @@ -63,19 +63,19 @@ ((ATOM |items|) NIL) (SEQ (EXIT (PROGN - (SPADLET |LETTMP#1| + (setq |LETTMP#1| (CAR |items|)) - (SPADLET |sig| (CAR |LETTMP#1|)) - (SPADLET |r| (CDR |LETTMP#1|)) + (setq |sig| (CAR |LETTMP#1|)) + (setq |r| (CDR |LETTMP#1|)) (COND ((AND (CONSP |r|) (PROGN - (SPADLET |s| (QCDR |r|)) + (setq |s| (QCDR |r|)) 'T)) (COND ((AND (CONSP |s|) (PROGN - (SPADLET |t| + (setq |t| (QCDR |s|)) 'T)) (COND @@ -103,7 +103,7 @@ (PROG (|u|) (RETURN (PROGN - (SPADLET |u| (CAR |x|)) + (setq |u| (CAR |x|)) (RPLACA |x| '(|$unique|)) (RPLACD |x| (CONS |u| (CDR |x|))) (CDR |x|))))) @@ -156,21 +156,21 @@ (DECLARE (SPECIAL |$returnNowhereFromGoGet| $ |$lookupDefaults|)) (RETURN (SEQ (PROGN - (SPADLET |$returnNowhereFromGoGet| NIL) - (SPADLET $ |dollar|) - (SPADLET |$lookupDefaults| NIL) + (setq |$returnNowhereFromGoGet| NIL) + (setq $ |dollar|) + (setq |$lookupDefaults| NIL) (COND ((|isDomain| |u|) |u|) ((BOOT-EQUAL |u| '$) |dollar|) ((BOOT-EQUAL |u| '$$) |dollar|) ((integerp |u|) (COND - ((VECP (SPADLET |y| (ELT |dollar| |u|))) |y|) + ((VECP (setq |y| (ELT |dollar| |u|))) |y|) ((|isDomain| |y|) |y|) ((AND (CONSP |y|) (EQ (QCAR |y|) 'SETELT)) (|eval| |y|)) ((AND (CONSP |y|) - (PROGN (SPADLET |v| (QCAR |y|)) 'T)) + (PROGN (setq |v| (QCAR |y|)) 'T)) (COND ((VECP |v|) (|lazyDomainSet| |y| |dollar| |u|)) ((OR (|constructor?| |v|) @@ -180,24 +180,24 @@ ('T |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)))) (COND ((AND (CONSP |y|) (EQ (QCAR |y|) 'ELT)) (|evalSlotDomain| |y| |dollar|)) ('T (|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)))) |y|) ((AND (CONSP |u|) (EQ (QCAR |u|) '|Record|) - (PROGN (SPADLET |argl| (QCDR |u|)) 'T)) + (PROGN (setq |argl| (QCDR |u|)) 'T)) (FUNCALL '|Record0| (PROG (G166199) - (SPADLET G166199 NIL) + (setq G166199 NIL) (RETURN (DO ((G166205 |argl| (CDR G166205)) (G166136 NIL)) @@ -208,9 +208,9 @@ NIL) (PROGN (PROGN - (SPADLET |tag| + (setq |tag| (CADR G166136)) - (SPADLET |dom| + (setq |dom| (CADDR G166136)) G166136) NIL)) @@ -223,22 +223,22 @@ |dollar|)) G166199))))))))) ((AND (CONSP |u|) (EQ (QCAR |u|) '|Union|) - (PROGN (SPADLET |argl| (QCDR |u|)) 'T) + (PROGN (setq |argl| (QCDR |u|)) 'T) (PROGN - (SPADLET |ISTMP#1| (CAR |argl|)) + (setq |ISTMP#1| (CAR |argl|)) (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| + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL)))))))) (APPLY '|Union| (PROG (G166217) - (SPADLET G166217 NIL) + (setq G166217 NIL) (RETURN (DO ((G166223 |argl| (CDR G166223)) (G166152 NIL)) @@ -248,9 +248,9 @@ NIL) (PROGN (PROGN - (SPADLET |tag| + (setq |tag| (CADR G166152)) - (SPADLET |dom| + (setq |dom| (CADDR G166152)) G166152) NIL)) @@ -266,45 +266,45 @@ G166217))))))))) ((AND (CONSP |u|) (EQ (QCAR |u|) '|spadConstant|) (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) (PROGN - (SPADLET |n| (QCAR |ISTMP#2|)) + (setq |n| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |dom| (|evalSlotDomain| |d| |dollar|)) + (setq |dom| (|evalSlotDomain| |d| |dollar|)) (SPADCALL (ELT |dom| |n|))) ((AND (CONSP |u|) (EQ (QCAR |u|) 'ELT) (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) (PROGN - (SPADLET |n| (QCAR |ISTMP#2|)) + (setq |n| (QCAR |ISTMP#2|)) 'T)))))) - (SPADLET |dom| (|evalSlotDomain| |d| |dollar|)) - (SPADLET |slot| (ELT |dom| |n|)) + (setq |dom| (|evalSlotDomain| |d| |dollar|)) + (setq |slot| (ELT |dom| |n|)) (COND ((AND (CONSP |slot|) (EQ (QCAR |slot|) '|newGoGet|) - (PROGN (SPADLET |env| (QCDR |slot|)) 'T)) + (PROGN (setq |env| (QCDR |slot|)) 'T)) (|replaceGoGetSlot| |env|)) ('T |slot|))) ((AND (CONSP |u|) (PROGN - (SPADLET |op| (QCAR |u|)) - (SPADLET |argl| (QCDR |u|)) + (setq |op| (QCAR |u|)) + (setq |argl| (QCDR |u|)) 'T)) (APPLY |op| (PROG (G166234) - (SPADLET G166234 NIL) + (setq G166234 NIL) (RETURN (DO ((G166239 |argl| (CDR G166239)) (|x| NIL)) @@ -335,8 +335,8 @@ (PROGN (SETQ G166289 (CAR G166297)) NIL) (PROGN (PROGN - (SPADLET |nam| (CAR G166289)) - (SPADLET |val| (CDR G166289)) + (setq |nam| (CAR G166289)) + (setq |val| (CDR G166289)) G166289) NIL)) NIL) @@ -353,8 +353,8 @@ (PROGN (SETQ G166309 (CAR G166317)) NIL) (PROGN (PROGN - (SPADLET |nam| (CAR G166309)) - (SPADLET |val| (CDR G166309)) + (setq |nam| (CAR G166309)) + (setq |val| (CDR G166309)) G166309) NIL)) NIL) @@ -390,12 +390,12 @@ |sourceIndex| |uniqueSig|) (RETURN (SEQ (PROGN - (SPADLET |newVec| (make-array (SIZE |vec|))) + (setq |newVec| (make-array (SIZE |vec|))) (DO ((G166343 (MAXINDEX |vec|)) (|index| 0 (QSADD1 |index|))) ((QSGREATERP |index| G166343) NIL) (SEQ (EXIT (PROGN - (SPADLET |item| (ELT |vec| |index|)) + (setq |item| (ELT |vec| |index|)) (COND ((NULL |item|) NIL) ((AND (CONSP |item|) @@ -406,30 +406,30 @@ (COND ((ATOM |item|) |item|) ((NULL (ATOM (CAR |item|))) - (SPADLET |sig| (CAR |item|)) - (SPADLET |dcIndex| + (setq |sig| (CAR |item|)) + (setq |dcIndex| (CADR |item|)) - (SPADLET |op| (CADDR |item|)) - (SPADLET |flag| + (setq |op| (CADDR |item|)) + (setq |flag| (CDDDR |item|)) - (SPADLET |code| + (setq |code| (TIMES 4 |index|)) (COND ((> |dcIndex| 0) - (SPADLET |code| + (setq |code| (+ |code| 2))) ('T - (SPADLET |dcIndex| + (setq |dcIndex| (SPADDIFFERENCE |dcIndex|)))) (COND ((BOOT-EQUAL |flag| 'CONST) - (SPADLET |code| + (setq |code| (+ |code| 1)))) - (SPADLET |sourceIndex| + (setq |sourceIndex| (+ (TIMES 8192 |dcIndex|) |code|)) - (SPADLET |uniqueSig| + (setq |uniqueSig| (|addConsDB| |sig|)) (MKQ (CONS |op| @@ -467,19 +467,19 @@ |slot| |pred| |t| |predCode| |isConstant| |index|) (RETURN (SEQ (PROGN - (SPADLET |sig| (CAR |y|)) - (SPADLET |r| (CDR |y|)) + (setq |sig| (CAR |y|)) + (setq |r| (CDR |y|)) |y|) - (SPADLET |uniqueSig| (|addConsDB| |sig|)) - (SPADLET |predCode| 0) (SPADLET |isConstant| NIL) + (setq |uniqueSig| (|addConsDB| |sig|)) + (setq |predCode| 0) (setq |isConstant| NIL) (IF (AND (CONSP |r|) (PROGN - (SPADLET |subSig| (QCAR |r|)) - (SPADLET |ISTMP#1| (QCDR |r|)) + (setq |subSig| (QCAR |r|)) + (setq |ISTMP#1| (QCDR |r|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |pred| (QCAR |ISTMP#1|)) - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |pred| (QCAR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (EQ (QCAR |ISTMP#2|) '|Subsumed|)))))) @@ -488,22 +488,22 @@ (CONS (|addConsDB| |subSig|) NIL))))) (IF (AND (CONSP |r|) (PROGN - (SPADLET |n| (QCAR |r|)) - (SPADLET |s| (QCDR |r|)) + (setq |n| (QCAR |r|)) + (setq |s| (QCDR |r|)) 'T)) - (SEQ (SPADLET |slot| + (SEQ (setq |slot| (SEQ (IF (AND (CONSP |n|) (PROGN - (SPADLET |p| (QCAR |n|)) + (setq |p| (QCAR |n|)) 'T)) (EXIT |p|)) (EXIT |n|))) (EXIT (IF (AND (CONSP |s|) (PROGN - (SPADLET |pred| (QCAR |s|)) - (SPADLET |t| (QCDR |s|)) + (setq |pred| (QCAR |s|)) + (setq |t| (QCDR |s|)) 'T)) - (SEQ (SPADLET |predCode| + (SEQ (setq |predCode| (SEQ (IF (BOOT-EQUAL |pred| 'T) (EXIT 0)) @@ -512,27 +512,27 @@ (IF (AND (CONSP |t|) (EQUAL (QCAR |t|) 'CONST)) - (SPADLET |isConstant| 'T) NIL))) + (setq |isConstant| 'T) NIL))) NIL))) NIL) - (SPADLET |index| (TIMES 8192 |predCode|)) + (setq |index| (TIMES 8192 |predCode|)) (IF (AND (NUMBERP |slot|) (NEQUAL |slot| 0)) - (SPADLET |index| (+ |index| (TIMES 2 |slot|))) NIL) - (IF |isConstant| (SPADLET |index| (+ |index| 1)) NIL) + (setq |index| (+ |index| (TIMES 2 |slot|))) NIL) + (IF |isConstant| (setq |index| (+ |index| 1)) NIL) (EXIT (CONS |uniqueSig| |index|)))))) (DEFUN |makeOpDirect| (|u|) (PROG (|nam| |addForm| |opList| |op| |items|) (RETURN (SEQ (PROGN - (SPADLET |nam| (CAR |u|)) - (SPADLET |addForm| (CAADR |u|)) - (SPADLET |opList| (CDADR |u|)) + (setq |nam| (CAR |u|)) + (setq |addForm| (CAADR |u|)) + (setq |opList| (CDADR |u|)) (COND ((BOOT-EQUAL |opList| '|derived|) '|derived|) ('T (PROG (G166433) - (SPADLET G166433 NIL) + (setq G166433 NIL) (RETURN (DO ((G166439 |opList| (CDR G166439)) (G166419 NIL)) @@ -542,8 +542,8 @@ NIL) (PROGN (PROGN - (SPADLET |op| (CAR G166419)) - (SPADLET |items| (CDR G166419)) + (setq |op| (CAR G166419)) + (setq |items| (CDR G166419)) G166419) NIL)) (NREVERSE0 G166433)) @@ -551,7 +551,7 @@ (CONS (CONS |op| (PROG (G166450) - (SPADLET G166450 NIL) + (setq G166450 NIL) (RETURN (DO ((G166455 |items| @@ -597,8 +597,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 OR NOT))) (DO ((G166481 |u| (CDR G166481)) (|x| NIL)) @@ -607,14 +607,14 @@ NIL) (SEQ (EXIT (|putPredHash| |x|)))))) (COND - ((SPADLET |k| (HGET |$predHash| |pred|)) |k|) + ((setq |k| (HGET |$predHash| |pred|)) |k|) ('T (HPUT |$predHash| |pred| |$predVectorFrontier|) (COND ((> |$predVectorFrontier| (MAXINDEX |$predVector|)) - (SPADLET |$predVector| + (setq |$predVector| (|extendVectorSize| |$predVector|)))) (SETELT |$predVector| |$predVectorFrontier| |pred|) - (SPADLET |$predVectorFrontier| + (setq |$predVectorFrontier| (+ |$predVectorFrontier| 1)) (SPADDIFFERENCE |$predVectorFrontier| 1)))))))) @@ -629,9 +629,9 @@ (PROG (|n| |m| |newVec|) (RETURN (SEQ (PROGN - (SPADLET |n| (MAXINDEX |v|)) - (SPADLET |m| (QUOTIENT (TIMES 7 |n|) 5)) - (SPADLET |newVec| (make-array |m|)) + (setq |n| (MAXINDEX |v|)) + (setq |m| (QUOTIENT (TIMES 7 |n|) 5)) + (setq |newVec| (make-array |m|)) (DO ((|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (SETELT |newVec| |i| (ELT |v| |i|))))) |newVec|))))) @@ -654,10 +654,10 @@ (declare (special |$predVector| |$predVectorFrontier| |$consDB| |$predHash|)) (RETURN (SEQ (PROGN - (SPADLET |$predHash| (MAKE-HASHTABLE 'UEQUAL)) - (SPADLET |$consDB| (MAKE-HASHTABLE 'UEQUAL)) - (SPADLET |$predVectorFrontier| 1) - (SPADLET |$predVector| (make-array 100)) + (setq |$predHash| (MAKE-HASHTABLE 'UEQUAL)) + (setq |$consDB| (MAKE-HASHTABLE 'UEQUAL)) + (setq |$predVectorFrontier| 1) + (setq |$predVector| (make-array 100)) (DO ((G166538 (|allConstructors|) (CDR G166538)) (|nam| NIL)) ((OR (ATOM G166538) @@ -680,9 +680,9 @@ NIL) (PROGN (PROGN - (SPADLET |op| + (setq |op| (CAR G166517)) - (SPADLET |sigList| + (setq |sigList| (CDR G166517)) G166517) NIL)) @@ -699,9 +699,9 @@ NIL) (PROGN (PROGN - (SPADLET |sig| + (setq |sig| (CAR G166513)) - (SPADLET |r| + (setq |r| (CDR G166513)) G166513) NIL)) @@ -713,11 +713,11 @@ (COND ((AND (CONSP |r|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |r|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |pred| + (setq |pred| (QCAR |ISTMP#1|)) 'T)))) (|putPredHash| @@ -733,7 +733,7 @@ (PROG (|vec|) (RETURN (SEQ (PROGN - (SPADLET |vec| (make-array (QUOTIENT (TIMES 7 |n|) 5))) + (setq |vec| (make-array (QUOTIENT (TIMES 7 |n|) 5))) (DO ((|i| 0 (QSADD1 |i|)) (G166599 |u| (CDR G166599)) (|x| NIL)) ((OR (ATOM G166599) @@ -761,7 +761,7 @@ ((QSGREATERP |i| G166614) NIL) (SEQ (EXIT (|squeezeConsDB,fn| (ELT |u| |i|))))))) (IF (CONSP |u|) - (EXIT (SEQ (IF (EQ (SPADLET |x| (QCAR |u|)) 'QUOTE) + (EXIT (SEQ (IF (EQ (setq |x| (QCAR |u|)) 'QUOTE) (EXIT (RPLAC (CADR |u|) (|addConsDB| (CADR |u|))))) (|squeezeConsDB| |x|) @@ -776,7 +776,7 @@ (PROG () (RETURN (SEQ (PROG (G166631) - (SPADLET G166631 NIL) + (setq G166631 NIL) (RETURN (DO ((G166636 |x| (CDR G166636)) (|y| NIL)) ((OR (ATOM G166636) @@ -812,17 +812,17 @@ (PROG (|y|) (declare (special |$consDB|)) (RETURN - (SEQ (SPADLET |y| (HGET |$consDB| |x|)) (IF |y| (EXIT |y|)) + (SEQ (setq |y| (HGET |$consDB| |x|)) (IF |y| (EXIT |y|)) (HPUT |$consDB| |x| |x|) (EXIT |x|))))) (DEFUN |addConsDB,min| (|x|) (PROG (|y| |u|) (declare (special |$consDB|)) (RETURN - (SEQ (SPADLET |y| (HGET |$consDB| |x|)) (IF |y| (EXIT |y|)) + (SEQ (setq |y| (HGET |$consDB| |x|)) (IF |y| (EXIT |y|)) (IF (CONSP |x|) (EXIT (SEQ (DO ((|z| |x| (CDR |z|))) ((ATOM |z|) NIL) - (SEQ (SPADLET |u| + (SEQ (setq |u| (|addConsDB,min| (CAR |z|))) (EXIT (IF (NULL (EQ |u| (CAR |z|))) (RPLACA |z| |u|) NIL)))) @@ -872,29 +872,29 @@ NIL) ((AND (CONSP |u|) (PROGN - (SPADLET |op| (QCAR |u|)) - (SPADLET |ISTMP#1| (QCDR |u|)) + (setq |op| (QCAR |u|)) + (setq |ISTMP#1| (QCDR |u|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) + (setq |ISTMP#2| (QCDR |ISTMP#1|)) (AND (CONSP |ISTMP#2|) (PROGN - (SPADLET |i| (QCAR |ISTMP#2|)) - (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) + (setq |i| (QCAR |ISTMP#2|)) + (setq |ISTMP#3| (QCDR |ISTMP#2|)) (AND (CONSP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN - (SPADLET |a| (QCAR |ISTMP#3|)) + (setq |a| (QCAR |ISTMP#3|)) 'T))))))) (member |op| '(SETELT QSETREFV))) (COND ((AND (NULL |condList|) (CONSP |a|) (EQ (QCAR |a|) 'CONS) (PROGN - (SPADLET |ISTMP#1| (QCDR |a|)) + (setq |ISTMP#1| (QCDR |a|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |fn| (QCAR |ISTMP#1|)) + (setq |fn| (QCAR |ISTMP#1|)) 'T)))) (RPLACA |u| 'LIST) (RPLACD |u| NIL) (SETELT |$template| |i| @@ -903,24 +903,24 @@ ((AND (CONSP |fn|) (EQ (QCAR |fn|) '|dispatchFunction|) (PROGN - (SPADLET |ISTMP#1| (QCDR |fn|)) + (setq |ISTMP#1| (QCDR |fn|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN - (SPADLET |fn'| (QCAR |ISTMP#1|)) + (setq |fn'| (QCAR |ISTMP#1|)) 'T)))) |fn'|) ('T |fn|)))) ('T NIL))) ((AND (CONSP |u|) (EQ (QCAR |u|) 'COND) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) + (PROGN (setq |c| (QCDR |u|)) 'T)) (DO ((G166734 |c| (CDR G166734)) (G166724 NIL)) ((OR (ATOM G166734) (PROGN (SETQ G166724 (CAR G166734)) NIL) (PROGN (PROGN - (SPADLET |pred| (CAR G166724)) - (SPADLET |y| (CDR G166724)) + (setq |pred| (CAR G166724)) + (setq |y| (CDR G166724)) G166724) NIL)) NIL) @@ -928,7 +928,7 @@ (|y| (|NRTdescendCodeTran| (CAR |y|) (CONS |pred| |condList|)))))))) ((AND (CONSP |u|) (EQ (QCAR |u|) 'PROGN) - (PROGN (SPADLET |c| (QCDR |u|)) 'T)) + (PROGN (setq |c| (QCDR |u|)) 'T)) (DO ((G166744 |c| (CDR G166744)) (|x| NIL)) ((OR (ATOM G166744) (PROGN (SETQ |x| (CAR G166744)) NIL)) @@ -964,7 +964,7 @@ (SEQ (COND ((ATOM |x|) NIL) ((AND (CONSP |x|) (EQ (QCAR |x|) '|Record|) - (PROGN (SPADLET |l| (QCDR |x|)) 'T)) + (PROGN (setq |l| (QCDR |x|)) 'T)) (DO ((G166795 |l| (CDR G166795)) (G166767 NIL)) ((OR (ATOM G166795) @@ -973,7 +973,7 @@ NIL) (PROGN (PROGN - (SPADLET |y| (CADDR G166767)) + (setq |y| (CADDR G166767)) G166767) NIL)) NIL) @@ -988,32 +988,32 @@ ((AND (CONSP |y|) (EQ (QCAR |y|) '|:|) (PROGN - (SPADLET |ISTMP#1| (QCDR |y|)) + (setq |ISTMP#1| (QCDR |y|)) (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 |z| + (setq |z| (QCAR |ISTMP#2|)) 'T)))))) (|NRTinnerGetLocalIndex| |z|)) ('T (|NRTinnerGetLocalIndex| |y|))))))) ((AND (CONSP |x|) (EQ (QCAR |x|) '|SubDomain|) (PROGN - (SPADLET |ISTMP#1| (QCDR |x|)) + (setq |ISTMP#1| (QCDR |x|)) (AND (CONSP |ISTMP#1|) (PROGN - (SPADLET |y| (QCAR |ISTMP#1|)) + (setq |y| (QCAR |ISTMP#1|)) 'T)))) (|NRTinnerGetLocalIndex| |y|)) ((PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (|getConstructorSignature| |x|)) (AND (CONSP |ISTMP#1|) - (PROGN (SPADLET |ml| (QCDR |ISTMP#1|)) 'T))) + (PROGN (setq |ml| (QCDR |ISTMP#1|)) 'T))) (DO ((G166822 (CDR |x|) (CDR G166822)) (|y| NIL) (G166823 |ml| (CDR G166823)) (|m| NIL)) @@ -1063,10 +1063,10 @@ (RETURN (SEQ (COND ((AND (CONSP |cond|) (EQ (QCAR |cond|) 'AND) - (PROGN (SPADLET |u| (QCDR |cond|)) 'T)) + (PROGN (setq |u| (QCDR |cond|)) 'T)) (CONS 'AND (PROG (G166857) - (SPADLET G166857 NIL) + (setq G166857 NIL) (RETURN (DO ((G166862 |u| (CDR G166862)) (|x| NIL)) ((OR (ATOM G166862) @@ -1078,10 +1078,10 @@ (CONS (|assignSlotToPred| |x|) G166857))))))))) ((AND (CONSP |cond|) (EQ (QCAR |cond|) 'OR) - (PROGN (SPADLET |u| (QCDR |cond|)) 'T)) + (PROGN (setq |u| (QCDR |cond|)) 'T)) (CONS 'OR (PROG (G166872) - (SPADLET G166872 NIL) + (setq G166872 NIL) (RETURN (DO ((G166877 |u| (CDR G166877)) (|x| NIL)) ((OR (ATOM G166877) @@ -1094,9 +1094,9 @@ G166872))))))))) ((AND (CONSP |cond|) (EQ (QCAR |cond|) 'NOT) (PROGN - (SPADLET |ISTMP#1| (QCDR |cond|)) + (setq |ISTMP#1| (QCDR |cond|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) - (PROGN (SPADLET |u| (QCAR |ISTMP#1|)) 'T)))) + (PROGN (setq |u| (QCAR |ISTMP#1|)) 'T)))) (CONS 'NOT (CONS (|assignSlotToPred| |u|) NIL))) ('T (|thisNeedsTOBeFilledIn|))))))) @@ -1111,10 +1111,10 @@ (PROG (|f| |o| |t|) (RETURN (PROGN - (|pp| (MEASURE (SPADLET |f| |SparseUnivariatePolynomial;|))) - (|pp| (MEASURE (SPADLET |o| + (|pp| (MEASURE (setq |f| |SparseUnivariatePolynomial;|))) + (|pp| (MEASURE (setq |o| |SparseUnivariatePolynomial;opDirect|))) - (|pp| (MEASURE (SPADLET |t| + (|pp| (MEASURE (setq |t| |SparseUnivariatePolynomial;template|))) (|pp| (|measureCommon| (CONS |o| (CONS |t| NIL)))) (MEASURE (CONS |f| (CONS |o| (CONS |t| NIL)))))))) @@ -1141,7 +1141,7 @@ (SEQ (+ |n| (SEQ (IF (VECP |u|) (EXIT (PROG (G166901) - (SPADLET G166901 0) + (setq G166901 0) (RETURN (DO ((G166906 (MAXINDEX |u|)) @@ -1157,7 +1157,7 @@ (IF (SPADDIFFERENCE (SPADDIFFERENCE HASH TABLE) (P |u|)) (EXIT (PROG (G166910) - (SPADLET G166910 0) + (setq G166910 0) (RETURN (DO ((G166915 (HKEYS |u|) @@ -1178,7 +1178,7 @@ (HGET |u| |key|) 0))))))))))) (IF (CONSP |u|) (EXIT (SEQ (IF (HGET |$table| |u|) (EXIT 0)) - (SPADLET |m| + (setq |m| (+ (|measureCommon,fn| (CAR |u|) 0) (|measureCommon,fn| (CDR |u|) 0))) @@ -1193,7 +1193,7 @@ (DECLARE (SPECIAL |$table|)) (RETURN (PROGN - (SPADLET |$table| (MAKE-HASHTABLE 'UEQUAL)) + (setq |$table| (MAKE-HASHTABLE 'UEQUAL)) (|measureCommon,fn| |u| 0))))) ;makeSpadConstant [fn,dollar,slot] == @@ -1207,11 +1207,11 @@ (PROG (|fn| |dollar| |slot| |val| |u|) (RETURN (PROGN - (SPADLET |fn| (CAR G166936)) - (SPADLET |dollar| (CADR G166936)) - (SPADLET |slot| (CADDR G166936)) - (SPADLET |val| (FUNCALL |fn| |dollar|)) - (SPADLET |u| (ELT |dollar| |slot|)) + (setq |fn| (CAR G166936)) + (setq |dollar| (CADR G166936)) + (setq |slot| (CADDR G166936)) + (setq |val| (FUNCALL |fn| |dollar|)) + (setq |u| (ELT |dollar| |slot|)) (RPLACA |u| #'IDENTITY) (RPLACD |u| |val|) |val|)))) diff --git a/src/interp/termrw.lisp.pamphlet b/src/interp/termrw.lisp.pamphlet index f72dabb..f389f77 100644 --- a/src/interp/termrw.lisp.pamphlet +++ b/src/interp/termrw.lisp.pamphlet @@ -49,9 +49,9 @@ this means, EQ can be used to check whether something was done (SEQ (PROGN (DO ((G166065 NIL |b|)) (G166065 NIL) (SEQ (EXIT (PROGN - (SPADLET |t0| (|termRW1| |t| R)) - (SPADLET |b| (EQ |t| |t0|)) - (SPADLET |t| |t0|))))) + (setq |t0| (|termRW1| |t| R)) + (setq |b| (EQ |t| |t0|)) + (setq |t| |t0|))))) |t|))))) ; @@ -69,12 +69,12 @@ this means, EQ can be used to check whether something was done (PROG (|t0| |t1| |t2| |tt1| |tt2|) (RETURN (PROGN - (SPADLET |t0| (|term1RW| |t| R)) + (setq |t0| (|term1RW| |t| R)) (COND ((OR (NULL (EQ |t0| |t|)) (ATOM |t|)) |t0|) - ('T (SPADLET |t1| (CAR |t|)) (SPADLET |t2| (CDR |t|)) - (SPADLET |tt1| (|termRW1| |t1| R)) - (SPADLET |tt2| (AND |t2| (|termRW1| |t2| R))) + ('T (setq |t1| (CAR |t|)) (setq |t2| (CDR |t|)) + (setq |tt1| (|termRW1| |t1| R)) + (setq |tt2| (AND |t2| (|termRW1| |t2| R))) (COND ((AND (EQ |t1| |tt1|) (EQ |t2| |tt2|)) |t|) ('T (CONS |tt1| |tt2|))))))))) @@ -93,20 +93,20 @@ this means, EQ can be used to check whether something was done (PROG (|vars| |varRules| SL) (RETURN (SEQ (PROGN - (SPADLET |vars| (CAR R)) - (SPADLET |varRules| (CDR R)) + (setq |vars| (CAR R)) + (setq |varRules| (CDR R)) (DO ((G166098 |varRules| (CDR G166098)) (|r| NIL) (G166099 NIL (NULL (BOOT-EQUAL SL '|failed|)))) ((OR (ATOM G166098) (PROGN (SETQ |r| (CAR G166098)) NIL) G166099) NIL) (SEQ (EXIT (PROGN - (SPADLET SL + (setq SL (|termMatch| (CAR |r|) |t| NIL |vars|)) (COND ((NULL (BOOT-EQUAL SL '|failed|)) - (SPADLET |t| + (setq |t| (|subCopy| (COPY (CDR |r|)) SL)))))))) |t|))))) @@ -121,10 +121,10 @@ this means, EQ can be used to check whether something was done (PROG (|vars| |varRules| SL) (RETURN (SEQ (PROGN - (SPADLET |vars| (CAR R)) - (SPADLET |varRules| (CDR R)) + (setq |vars| (CAR R)) + (setq |varRules| (CDR R)) (PROG (G166122) - (SPADLET G166122 NIL) + (setq G166122 NIL) (RETURN (DO ((G166128 |varRules| (CDR G166128)) (|r| NIL)) ((OR (ATOM G166128) @@ -132,7 +132,7 @@ this means, EQ can be used to check whether something was done (NREVERSE0 G166122)) (SEQ (EXIT (COND ((NULL (EQ - (SPADLET SL + (setq SL (|termMatch| (CAR |r|) |t| NIL |vars|)) '|failed|)) @@ -173,14 +173,14 @@ this means, EQ can be used to check whether something was done (COND ((member |tp| |vars|) (COND - ((SPADLET |p| (|assoc| |tp| SL)) + ((setq |p| (|assoc| |tp| SL)) (BOOT-EQUAL (CDR |p|) |t|)) ('T (CONS (CONS |tp| |t|) SL)))) ('T '|failed|))) ((ATOM |t|) '|failed|) - ('T (SPADLET |tp1| (CAR |tp|)) (SPADLET |tp2| (CDR |tp|)) - (SPADLET |t1| (CAR |t|)) (SPADLET |t2| (CDR |t|)) - (SPADLET SL (|termMatch| |tp1| |t1| SL |vars|)) + ('T (setq |tp1| (CAR |tp|)) (setq |tp2| (CDR |tp|)) + (setq |t1| (CAR |t|)) (setq |t2| (CDR |t|)) + (setq SL (|termMatch| |tp1| |t1| SL |vars|)) (COND ((BOOT-EQUAL SL '|failed|) '|failed|) ((AND |tp2| |t2|) (|termMatch| |tp2| |t2| SL |vars|)) @@ -210,7 +210,7 @@ this means, EQ can be used to check whether something was done (PROG (|q|) (RETURN (PROGN - (SPADLET |q| (CONS |v| |t|)) + (setq |q| (CONS |v| |t|)) (COND ((NULL SL) (CONS |q| NIL)) ('T (CONS |q| SL))))))) ; @@ -230,9 +230,9 @@ this means, EQ can be used to check whether something was done ((NULL S1) S2) ((NULL S2) S1) ('T - (SPADLET S3 + (setq S3 (PROG (G166170) - (SPADLET G166170 NIL) + (setq G166170 NIL) (RETURN (DO ((G166176 S2 (CDR G166176)) (|p| NIL)) @@ -266,7 +266,7 @@ this means, EQ can be used to check whether something was done (PROG (|p|) (RETURN (COND - ((SPADLET |p| (|subCopyOrNil| |t| SL)) (CDR |p|)) + ((setq |p| (|subCopyOrNil| |t| SL)) (CDR |p|)) ('T |t|))))) ; @@ -285,15 +285,15 @@ this means, EQ can be used to check whether something was done (PROG (|p| |t1| |t2| |t0|) (RETURN (COND - ((SPADLET |p| (|assoc| |t| SL)) |p|) + ((setq |p| (|assoc| |t| SL)) |p|) ((ATOM |t|) NIL) - ('T (SPADLET |t1| (CAR |t|)) (SPADLET |t2| (CDR |t|)) + ('T (setq |t1| (CAR |t|)) (setq |t2| (CDR |t|)) (COND - ((SPADLET |t0| (|subCopyOrNil| |t1| SL)) + ((setq |t0| (|subCopyOrNil| |t1| SL)) (COND (|t2| (CONS |t| (CONS (CDR |t0|) (|subCopy0| |t2| SL)))) ('T (CONS |t| (CONS (CDR |t0|) |t2|))))) - ((AND |t2| (SPADLET |t0| (|subCopyOrNil| |t2| SL))) + ((AND |t2| (setq |t0| (|subCopyOrNil| |t2| SL))) (CONS |t| (CONS |t1| (CDR |t0|)))) ('T NIL))))))) @@ -317,7 +317,7 @@ this means, EQ can be used to check whether something was done (PROG (|p|) (RETURN (COND - ((SPADLET |p| (|deepSubCopyOrNil| |t| SL)) (CDR |p|)) + ((setq |p| (|deepSubCopyOrNil| |t| SL)) (CDR |p|)) ('T |t|))))) ; @@ -337,17 +337,17 @@ this means, EQ can be used to check whether something was done (PROG (|p| |t1| |t2| |t0|) (RETURN (COND - ((SPADLET |p| (|assoc| |t| SL)) + ((setq |p| (|assoc| |t| SL)) (CONS |t| (|deepSubCopy0| (CDR |p|) SL))) ((ATOM |t|) NIL) - ('T (SPADLET |t1| (CAR |t|)) (SPADLET |t2| (CDR |t|)) + ('T (setq |t1| (CAR |t|)) (setq |t2| (CDR |t|)) (COND - ((SPADLET |t0| (|deepSubCopyOrNil| |t1| SL)) + ((setq |t0| (|deepSubCopyOrNil| |t1| SL)) (COND (|t2| (CONS |t| (CONS (CDR |t0|) (|deepSubCopy0| |t2| SL)))) ('T (CONS |t| (CONS (CDR |t0|) |t2|))))) - ((AND |t2| (SPADLET |t0| (|deepSubCopyOrNil| |t2| SL))) + ((AND |t2| (setq |t0| (|deepSubCopyOrNil| |t2| SL))) (CONS |t| (CONS |t1| (CDR |t0|)))))))))) \end{chunk} diff --git a/src/interp/topics.lisp.pamphlet b/src/interp/topics.lisp.pamphlet index d767011..f6d4c9a 100644 --- a/src/interp/topics.lisp.pamphlet +++ b/src/interp/topics.lisp.pamphlet @@ -25,7 +25,7 @@ ; (extraction xRange yRange zRange elt qelt) ; (transformation map map!)) -(SPADLET |$topicsDefaults| +(setq |$topicsDefaults| '((|basic| |elt| |setelt| |qelt| |qsetelt| |eval| |xRange| |yRange| |zRange| |map| |map!| |qsetelt!|) (|conversion| |coerce| |convert| |retract|) @@ -55,7 +55,7 @@ ; (hy . hyperbolic) ; (t . transformation)) -(SPADLET |$topicSynonyms| +(setq |$topicSynonyms| '((|b| . |basic|) (|h| . |hidden|) (|e| . |extended|) (|a| . |algebraic|) (|g| . |algebraic|) (|c| . |construct|) (|d| . |destructive|) (|v| . |conversion|) @@ -65,7 +65,7 @@ ;$groupAssoc := '((extended . 1) (basic . 2) (hidden . 4)) -(SPADLET |$groupAssoc| +(setq |$groupAssoc| '((|extended| . 1) (|basic| . 2) (|hidden| . 4))) ;--======================================================================= @@ -120,15 +120,15 @@ |$defaultsHash| |$topicsDefaults|)) (RETURN (SEQ (PROGN - (SPADLET |$defaultsHash| (MAKE-HASHTABLE 'ID)) + (setq |$defaultsHash| (MAKE-HASHTABLE 'ID)) (DO ((G166073 |$topicsDefaults| (CDR G166073)) (G166057 NIL)) ((OR (ATOM G166073) (PROGN (SETQ G166057 (CAR G166073)) NIL) (PROGN (PROGN - (SPADLET |kind| (CAR G166057)) - (SPADLET |items| (CDR G166057)) + (setq |kind| (CAR G166057)) + (setq |items| (CDR G166057)) G166057) NIL)) NIL) @@ -142,36 +142,36 @@ (SEQ (EXIT (HPUT |$defaultsHash| |item| (CONS |kind| (HGET |$defaultsHash| |item|))))))))) - (SPADLET |$conTopicHash| (MAKE-HASHTABLE 'EQL)) - (SPADLET |instream| (OPEN "topics.data")) + (setq |$conTopicHash| (MAKE-HASHTABLE 'EQL)) + (setq |instream| (OPEN "topics.data")) (DO () ((NULL (NULL (EOFP |instream|))) NIL) (SEQ (EXIT (PROGN - (SPADLET |line| (READLINE |instream|)) + (setq |line| (READLINE |instream|)) (DO () ((NULL (|blankLine?| |line|)) NIL) (SEQ (EXIT - (SPADLET |line| + (setq |line| (READLINE |instream|))))) - (SPADLET |m| (MAXINDEX |line|)) + (setq |m| (MAXINDEX |line|)) (COND ((BOOT-EQUAL |m| (SPADDIFFERENCE 1)) '|skip|) ((BOOT-EQUAL (ELT |line| 0) (|char| '-)) '|skip|) ('T - (SPADLET |line| (|trimString| |line|)) - (SPADLET |m| (MAXINDEX |line|)) + (setq |line| (|trimString| |line|)) + (setq |m| (MAXINDEX |line|)) (COND ((NEQUAL (ELT |line| |m|) (|char| '|:|)) (|systemError| "wrong heading")) ('T - (SPADLET |con| + (setq |con| (INTERN (SUBSTRING |line| 0 |m|))) - (SPADLET |alist| + (setq |alist| (PROG (G166111) - (SPADLET G166111 NIL) + (setq G166111 NIL) (RETURN (DO ((|i| 1 (QSADD1 |i|))) @@ -181,7 +181,7 @@ (EOFP |instream|)) (NULL (|blankLine?| - (SPADLET |line| + (setq |line| (READLINE |instream|)))) (NEQUAL @@ -191,7 +191,7 @@ (SEQ (EXIT (COND - ((SPADLET |lst| + ((setq |lst| (|string2OpAlist| |line|)) (SETQ G166111 @@ -201,27 +201,27 @@ (|alist| (HPUT |$conTopicHash| |con| |alist|))))))))))) - (SPADLET |$topicHash| (MAKE-HASHTABLE 'ID)) + (setq |$topicHash| (MAKE-HASHTABLE 'ID)) (DO ((G166125 |$groupAssoc| (CDR G166125)) (G166062 NIL)) ((OR (ATOM G166125) (PROGN (SETQ G166062 (CAR G166125)) NIL) (PROGN (PROGN - (SPADLET |x| (CAR G166062)) - (SPADLET |c| (CDR G166062)) + (setq |x| (CAR G166062)) + (setq |c| (CDR G166062)) G166062) NIL)) NIL) (SEQ (EXIT (HPUT |$topicHash| |x| |c|)))) - (SPADLET |$topicIndex| (CDR (|last| |$groupAssoc|))) + (setq |$topicIndex| (CDR (|last| |$groupAssoc|))) (DO ((G166140 (HKEYS |$conTopicHash|) (CDR G166140)) (|con| NIL)) ((OR (ATOM G166140) (PROGN (SETQ |con| (CAR G166140)) NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |conCode| 0) + (setq |conCode| 0) (DO ((G166151 (HGET |$conTopicHash| |con|) (CDR G166151)) @@ -234,9 +234,9 @@ (SEQ (EXIT (PROGN (RPLACD |pair| - (SPADLET |code| + (setq |code| (|topicCode| (CDR |pair|)))) - (SPADLET |conCode| + (setq |conCode| (LOGIOR |conCode| |code|)))))) (HPUT |$conTopicHash| |con| (CONS (CONS '|constructor| |conCode|) @@ -260,7 +260,7 @@ (RETURN (SEQ (OR (BOOT-EQUAL (MAXINDEX |line|) (SPADDIFFERENCE 1)) (PROG (G166191) - (SPADLET G166191 'T) + (setq G166191 'T) (RETURN (DO ((G166197 NIL (NULL G166191)) (G166198 (MAXINDEX |line|)) @@ -288,28 +288,28 @@ (PROG (|m| |k| |u| |acc|) (RETURN (SEQ (PROGN - (SPADLET |m| (|#| |s|)) - (SPADLET |k| (OR (|skipBlanks| |s| 0 |m|) (RETURN NIL))) + (setq |m| (|#| |s|)) + (setq |k| (OR (|skipBlanks| |s| 0 |m|) (RETURN NIL))) (COND ((UPPER-CASE-P (ELT |s| |k|)) NIL) - ('T (SPADLET |k| 0) + ('T (setq |k| 0) (DO () - ((NULL (SPADLET |k| (|skipBlanks| |s| |k| |m|))) + ((NULL (setq |k| (|skipBlanks| |s| |k| |m|))) NIL) - (SEQ (EXIT (SPADLET |acc| + (SEQ (EXIT (setq |acc| (CONS (INTERN (SUBSTRING |s| |k| (+ (SPADDIFFERENCE |k|) - (SPADLET |k| + (setq |k| (|charPosition| (|char| '| |) |s| (+ |k| 1)))))) |acc|))))) - (SPADLET |acc| (NREVERSE |acc|)) + (setq |acc| (NREVERSE |acc|)) (COND - ((SPADLET |u| (|getDefaultProps| (CAR |acc|))) - (SPADLET |acc| + ((setq |u| (|getDefaultProps| (CAR |acc|))) + (setq |acc| (CONS (CAR |acc|) (APPEND |u| (CDR |acc|)))))) |acc|))))))) @@ -324,16 +324,16 @@ (declare (special |$defaultsHash|)) (RETURN (PROGN - (SPADLET |u| (HGET |$defaultsHash| |name|)) + (setq |u| (HGET |$defaultsHash| |name|)) (COND ((BOOT-EQUAL - (ELT (SPADLET |s| (PNAME |name|)) - (SPADLET |m| (MAXINDEX |s|))) + (ELT (setq |s| (PNAME |name|)) + (setq |m| (MAXINDEX |s|))) (|char| '?)) - (SPADLET |u| (CONS '|p| |u|)))) + (setq |u| (CONS '|p| |u|)))) (COND ((BOOT-EQUAL (ELT |s| |m|) (|char| '!)) - (SPADLET |u| (CONS '|destructive| |u|)))) + (setq |u| (CONS '|destructive| |u|)))) |u|)))) ; @@ -349,7 +349,7 @@ ((NULL (AND (> |m| |i|) (BOOT-EQUAL (ELT |u| |i|) |$charBlank|))) NIL) - (SEQ (EXIT (SPADLET |i| (+ |i| 1))))) + (SEQ (EXIT (setq |i| (+ |i| 1))))) (COND ((>= |i| |m|) NIL) ('T |i|))))) ;--======================================================================= @@ -372,9 +372,9 @@ (PROG (|k|) (declare (special |$topicIndex| |$topicHash|)) (RETURN - (SEQ (IF (SPADLET |k| (HGET |$topicHash| |x|)) (EXIT |k|)) + (SEQ (IF (setq |k| (HGET |$topicHash| |x|)) (EXIT |k|)) (HPUT |$topicHash| |x| - (SPADLET |$topicIndex| (TIMES |$topicIndex| 2))) + (setq |$topicIndex| (TIMES |$topicIndex| 2))) (EXIT |$topicIndex|))))) (DEFUN |topicCode| (|lst|) @@ -382,9 +382,9 @@ (declare (special |$topicSynonyms|)) (RETURN (SEQ (PROGN - (SPADLET |u| + (setq |u| (PROG (G166260) - (SPADLET G166260 NIL) + (setq G166260 NIL) (RETURN (DO ((G166265 |lst| (CDR G166265)) (|x| NIL)) @@ -396,7 +396,7 @@ (SEQ (EXIT (SETQ G166260 (CONS (COND - ((SPADLET |rename| + ((setq |rename| (LASSOC |x| |$topicSynonyms|)) |rename|) @@ -405,18 +405,18 @@ (COND ((NULL (|intersection| '(|basic| |extended| |hidden|) |u|)) - (SPADLET |u| (CONS '|extended| |u|)))) - (SPADLET |bitIndexList| NIL) + (setq |u| (CONS '|extended| |u|)))) + (setq |bitIndexList| NIL) (DO ((G166274 (REMDUP |u|) (CDR G166274)) (|x| NIL)) ((OR (ATOM G166274) (PROGN (SETQ |x| (CAR G166274)) NIL)) NIL) - (SEQ (EXIT (SPADLET |bitIndexList| + (SEQ (EXIT (setq |bitIndexList| (CONS (|topicCode,fn| |x|) |bitIndexList|))))) - (SPADLET |code| + (setq |code| (PROG (G166280) - (SPADLET G166280 0) + (setq G166280 0) (RETURN (DO ((G166285 |bitIndexList| (CDR G166285)) @@ -448,11 +448,11 @@ (declare (special |$conTopicHash|)) (RETURN (SEQ (PROGN - (SPADLET |alist| + (setq |alist| (OR (HGET |$conTopicHash| |con|) (RETURN |docAlist|))) (PROG (G166326) - (SPADLET G166326 NIL) + (setq G166326 NIL) (RETURN (DO ((G166337 |docAlist| (CDR G166337)) (|x| NIL)) ((OR (ATOM G166337) @@ -461,9 +461,9 @@ (SEQ (EXIT (SETQ G166326 (CONS (PROGN - (SPADLET |op| (CAR |x|)) - (SPADLET |pairlist| (CDR |x|)) - (SPADLET |code| + (setq |op| (CAR |x|)) + (setq |pairlist| (CDR |x|)) + (setq |code| (OR (LASSOC |op| |alist|) 0)) (DO ((G166348 |pairlist| @@ -480,7 +480,7 @@ (COND ((AND (CONSP |sigDoc|) (PROGN - (SPADLET |ISTMP#1| + (setq |ISTMP#1| (QCDR |sigDoc|)) (AND (CONSP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) @@ -508,11 +508,11 @@ (declare (special |$topicHash| |$topicClasses|)) (RETURN (SEQ (PROGN - (SPADLET |$topicClasses| + (setq |$topicClasses| (ASSOCRIGHT (|mySort| (PROG (G166368) - (SPADLET G166368 NIL) + (setq G166368 NIL) (RETURN (DO ((G166373 (HKEYS |$topicHash|) (CDR G166373)) @@ -529,7 +529,7 @@ (CONS (HGET |$topicHash| |key|) |key|) G166368)))))))))) - (SPADLET |hash| (MAKE-HASHTABLE 'ID)) + (setq |hash| (MAKE-HASHTABLE 'ID)) (|tdAdd| |con| |hash|) (|tdPrint| |hash|)))))) @@ -545,19 +545,19 @@ (declare (special |$conTopicHash|)) (RETURN (SEQ (PROGN - (SPADLET |v| (HGET |$conTopicHash| |con|)) - (SPADLET |u| (|addTopic2Documentation| |con| |v|)) + (setq |v| (HGET |$conTopicHash| |con|)) + (setq |u| (|addTopic2Documentation| |con| |v|)) (DO ((G166390 |u| (CDR G166390)) (|pair| NIL)) ((OR (ATOM G166390) (PROGN (SETQ |pair| (CAR G166390)) NIL)) NIL) (SEQ (EXIT (COND - ((AND (integerp (SPADLET |code| + ((AND (integerp (setq |code| (|myLastAtom| |pair|))) - (NEQUAL (SPADLET |op| (CAR |pair|)) + (NEQUAL (setq |op| (CAR |pair|)) '|construct|)) (DO ((G166399 - (SPADLET |names| + (setq |names| (|code2Classes| |code|)) (CDR G166399)) (|x| NIL)) @@ -614,11 +614,11 @@ (declare (special |$topicHash| |$topicClasses|)) (RETURN (SEQ (PROGN - (SPADLET |$topicClasses| + (setq |$topicClasses| (ASSOCRIGHT (|mySort| (PROG (G166444) - (SPADLET G166444 NIL) + (setq G166444 NIL) (RETURN (DO ((G166449 (HKEYS |$topicHash|) (CDR G166449)) @@ -635,11 +635,11 @@ (CONS (HGET |$topicHash| |key|) |key|) G166444)))))))))) - (SPADLET |hash| (MAKE-HASHTABLE 'ID)) + (setq |hash| (MAKE-HASHTABLE 'ID)) (|tdAdd| |con| |hash|) (DO ((G166458 (REMDUP (PROG (G166468) - (SPADLET G166468 NIL) + (setq G166468 NIL) (RETURN (DO ((G166473 (|ancestorsOf| @@ -679,9 +679,9 @@ (declare (special |$topicClasses|)) (RETURN (SEQ (PROGN - (SPADLET |cc| (TIMES 2 |cc|)) + (setq |cc| (TIMES 2 |cc|)) (PROG (G166502) - (SPADLET G166502 NIL) + (setq G166502 NIL) (RETURN (DO ((G166509 |$topicClasses| (CDR G166509)) (|x| NIL)) @@ -689,7 +689,7 @@ (PROGN (SETQ |x| (CAR G166509)) NIL)) (NREVERSE0 G166502)) (SEQ (EXIT (COND - ((ODDP (SPADLET |cc| (QUOTIENT |cc| 2))) + ((ODDP (setq |cc| (QUOTIENT |cc| 2))) (SETQ G166502 (CONS |x| G166502)))))))))))))) ; @@ -701,7 +701,7 @@ (SEQ (PROGN (DO () ((NULL (AND (CONSP |x|) - (PROGN (SPADLET |x| (QCDR |x|)) 'T))) + (PROGN (setq |x| (QCDR |x|)) 'T))) NIL) (SEQ (EXIT NIL))) |x|))) @@ -739,9 +739,9 @@ (PROGN (SETQ |pair| (CAR G166550)) NIL)) NIL) (SEQ (EXIT (COND - ((integerp (SPADLET |code| (|myLastAtom| |pair|))) + ((integerp (setq |code| (|myLastAtom| |pair|))) (COND - ((SPADLET |u| + ((setq |u| (|assoc| (QCAR |pair|) |opAlist|)) (EXIT (RPLACD (LASTNODE |u|) |code|))))))))))))) @@ -759,9 +759,9 @@ (declare (special |$topicHash|)) (RETURN (SEQ (PROGN - (SPADLET |bitNumber| (HGET |$topicHash| |topic|)) + (setq |bitNumber| (HGET |$topicHash| |topic|)) (PROG (G166567) - (SPADLET G166567 NIL) + (setq G166567 NIL) (RETURN (DO ((G166573 |opAlist| (CDR G166573)) (|x| NIL)) ((OR (ATOM G166573) @@ -769,7 +769,7 @@ (NREVERSE0 G166567)) (SEQ (EXIT (COND ((AND (integerp - (SPADLET |code| + (setq |code| (|myLastAtom| |x|))) (LOGBITP |bitNumber| |code|)) (SETQ G166567 (CONS |x| G166567)))))))))))))) @@ -786,13 +786,13 @@ (declare (special |$topicHash|)) (RETURN (SEQ (PROGN - (SPADLET |doc| (GETDATABASE |conname| 'DOCUMENTATION)) - (SPADLET |u| + (setq |doc| (GETDATABASE |conname| 'DOCUMENTATION)) + (setq |u| (OR (|assoc| '|constructor| |doc|) (RETURN NIL))) - (SPADLET |code| (|myLastAtom| |u|)) + (setq |code| (|myLastAtom| |u|)) (|mySort| (PROG (G166591) - (SPADLET G166591 NIL) + (setq G166591 NIL) (RETURN (DO ((G166597 (HKEYS |$topicHash|) (CDR G166597)) diff --git a/src/interp/util.lisp.pamphlet b/src/interp/util.lisp.pamphlet index 14898ea..cd3c6e5 100644 --- a/src/interp/util.lisp.pamphlet +++ b/src/interp/util.lisp.pamphlet @@ -210,7 +210,7 @@ After this function is called the image is clean and can be saved. |$interpreterTimedNames|)) (RETURN (PROGN - (SPADLET |$PrintCompilerMessageIfTrue| NIL) + (setq |$PrintCompilerMessageIfTrue| NIL) (COND (|$displayStartMsgs| (|sayKeyedMsg| "Axiom initialization: %1" @@ -218,7 +218,7 @@ After this function is called the image is clean and can be saved. (|initializeTimedNames| |$interpreterTimedNames| |$interpreterTimedClasses|) (|statisticsInitialization|) - (SPADLET |$InteractiveFrame| (|makeInitialModemapFrame|)) + (setq |$InteractiveFrame| (|makeInitialModemapFrame|)) (|initializeSystemCommands|) (|initializeInterpreterFrameRing|) (SETQ ERROROUTSTREAM @@ -274,8 +274,8 @@ After this function is called the image is clean and can be saved. "It is mostly likely a )set command. Please inspect the file." NIL))) (SAY (|fillerSpaces| $LINELENGTH "=")) - (TERPRI) (SPADLET $OLDLINE NIL))) - (SPADLET |$superHash| (MAKE-HASHTABLE 'UEQUAL)) + (TERPRI) (setq $OLDLINE NIL))) + (setq |$superHash| (MAKE-HASHTABLE 'UEQUAL)) (COND ((NULL |l|) (|runspad|))) '|EndOfSpad|)))) @@ -298,14 +298,14 @@ After this function is called the image is clean and can be saved. (declare (special $SYSCOMMANDS |$systemCommands|)) (RETURN (SEQ (PROGN - (SPADLET |l| |$systemCommands|) - (SPADLET $SYSCOMMANDS NIL) + (setq |l| |$systemCommands|) + (setq $SYSCOMMANDS NIL) (DO () ((NULL |l|) NIL) (SEQ (EXIT (PROGN - (SPADLET $SYSCOMMANDS + (setq $SYSCOMMANDS (CONS (CAAR |l|) $SYSCOMMANDS)) - (SPADLET |l| (CDR |l|)))))) - (SPADLET $SYSCOMMANDS (NREVERSE $SYSCOMMANDS))))))) + (setq |l| (CDR |l|)))))) + (setq $SYSCOMMANDS (NREVERSE $SYSCOMMANDS))))))) \end{chunk} \subsubsection{GCL porting changes} diff --git a/src/interp/vmlisp.lisp.pamphlet b/src/interp/vmlisp.lisp.pamphlet index 251ca55..4d58526 100644 --- a/src/interp/vmlisp.lisp.pamphlet +++ b/src/interp/vmlisp.lisp.pamphlet @@ -2541,9 +2541,9 @@ for primitive domains. Also used by putInLocalDomainReferences and optCal ,var)) ('T (ERROR "Cannot compileLET construct")))) -(defmacro SPADLET (A B) - (if (ATOM A) `(SETQ ,A ,B) - `(OR (IS ,B ,A) (letError ,(MK_LEFORM A) ,(MKQ B) )))) +(defmacro SPADLET (A B) `(SETQ ,A ,B)) +;tpd (if (ATOM A) `(SETQ ,A ,B) +;tpd `(OR (IS ,B ,A) (letError ,(MK_LEFORM A) ,(MKQ B) )))) (defmacro RPLAC (&rest L) (if (EQCAR (CAR L) 'ELT) -- 1.7.5.4