diff --git a/changelog b/changelog index 975de93..b597ab2 100644 --- a/changelog +++ b/changelog @@ -1,3 +1,79 @@ +20100228 tpd src/axiom-website/patches.html 20100228.02.tpd.patch +20100228 tpd src/interp/wi2.lisp remove MAKESTRING macro +20100228 tpd src/interp/wi1.lisp remove MAKESTRING macro +20100228 tpd src/interp/vmlisp.lisp remove MAKESTRING macro +20100228 tpd src/interp/util.lisp remove MAKESTRING macro +20100228 tpd src/interp/topics.lisp remove MAKESTRING macro +20100228 tpd src/interp/template.lisp remove MAKESTRING macro +20100228 tpd src/interp/slam.lisp remove MAKESTRING macro +20100228 tpd src/interp/simpbool.lisp remove MAKESTRING macro +20100228 tpd src/interp/server.lisp remove MAKESTRING macro +20100228 tpd src/interp/record.lisp remove MAKESTRING macro +20100228 tpd src/interp/pspad2.lisp remove MAKESTRING macro +20100228 tpd src/interp/pspad1.lisp remove MAKESTRING macro +20100228 tpd src/interp/profile.lisp remove MAKESTRING macro +20100228 tpd src/interp/parsing.lisp remove MAKESTRING macro +20100228 tpd src/interp/package.lisp remove MAKESTRING macro +20100228 tpd src/interp/nruntime.lisp remove MAKESTRING macro +20100228 tpd src/interp/nrunopt.lisp remove MAKESTRING macro +20100228 tpd src/interp/nrungo.lisp remove MAKESTRING macro +20100228 tpd src/interp/nrunfast.lisp remove MAKESTRING macro +20100228 tpd src/interp/nruncomp.lisp remove MAKESTRING macro +20100228 tpd src/interp/newfort.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-s.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-f07.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-f02.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-f01.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-e04.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-e02.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-e01.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-d03.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-d02.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-d01.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-c06.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-c05.lisp remove MAKESTRING macro +20100228 tpd src/interp/nag-c02.lisp remove MAKESTRING macro +20100228 tpd src/interp/msgdb.lisp remove MAKESTRING macro +20100228 tpd src/interp/modemap.lisp remove MAKESTRING macro +20100228 tpd src/interp/match.lisp remove MAKESTRING macro +20100228 tpd src/interp/mark.lisp remove MAKESTRING macro +20100228 tpd src/interp/lisplib.lisp remove MAKESTRING macro +20100228 tpd src/interp/iterator.lisp remove MAKESTRING macro +20100228 tpd src/interp/interop.lisp remove MAKESTRING macro +20100228 tpd src/interp/info.lisp remove MAKESTRING macro +20100228 tpd src/interp/i-util.lisp remove MAKESTRING macro +20100228 tpd src/interp/i-spec2.lisp remove MAKESTRING macro +20100228 tpd src/interp/i-spec1.lisp remove MAKESTRING macro +20100228 tpd src/interp/i-resolv.lisp remove MAKESTRING macro +20100228 tpd src/interp/i-output.lisp remove MAKESTRING macro +20100228 tpd src/interp/i-map.lisp remove MAKESTRING macro +20100228 tpd src/interp/i-intern.lisp remove MAKESTRING macro +20100228 tpd src/interp/i-eval.lisp remove MAKESTRING macro +20100228 tpd src/interp/i-coerce.lisp remove MAKESTRING macro +20100228 tpd src/interp/i-analy.lisp remove MAKESTRING macro +20100228 tpd src/interp/htcheck.lisp remove MAKESTRING macro +20100228 tpd src/interp/ht-util.lisp remove MAKESTRING macro +20100228 tpd src/interp/hashcode.lisp remove MAKESTRING macro +20100228 tpd src/interp/g-util.lisp remove MAKESTRING macro +20100228 tpd src/interp/g-timer.lisp remove MAKESTRING macro +20100228 tpd src/interp/g-opt.lisp remove MAKESTRING macro +20100228 tpd src/interp/g-error.lisp remove MAKESTRING macro +20100228 tpd src/interp/g-cndata.lisp remove MAKESTRING macro +20100228 tpd src/interp/g-boot.lisp remove MAKESTRING macro +20100228 tpd src/interp/functor.lisp remove MAKESTRING macro +20100228 tpd src/interp/fortcall.lisp remove MAKESTRING macro +20100228 tpd src/interp/format.lisp remove MAKESTRING macro +20100228 tpd src/interp/define.lisp remove MAKESTRING macro +20100228 tpd src/interp/database.lisp remove MAKESTRING macro +20100228 tpd src/interp/compiler.lisp remove MAKESTRING macro +20100228 tpd src/interp/clam.lisp remove MAKESTRING macro +20100228 tpd src/interp/cattable.lisp remove MAKESTRING macro +20100228 tpd src/interp/category.lisp remove MAKESTRING macro +20100228 tpd src/interp/c-util.lisp remove MAKESTRING macro +20100228 tpd src/interp/c-doc.lisp remove MAKESTRING macro +20100228 tpd src/interp/br-con.lisp remove MAKESTRING macro +20100228 tpd src/interp/bc-matrix.lisp remove MAKESTRING macro +20100228 tpd src/interp/as.lisp remove MAKESTRING macro 20100228 tpd src/axiom-website/patches.html 20100228.01.tpd.patch 20100228 tpd src/interp/wi2.lisp remove non-common lisp macros 20100228 tpd src/interp/wi1.lisp remove non-common lisp macros @@ -165,7 +241,7 @@ 20100203 tpd src/interp/Makefile remove monitor.lisp 20100203 tpd src/interp/monitor.lisp removed 20100203 tpd src/input/Makefile add monitortest -20100203 tpd src/input/monitortest.input.pamphlet unit test monitor code +20100203 tpd src/input/monitortest.input unit test monitor code 20100203 tpd books/bookvol5 merge and remove monitor.lisp 20100202 tpd src/axiom-website/patches.html 20100202.01.tpd.patch 20100202 tpd src/interp/varini.lisp pick up functions from intint @@ -237,7 +313,7 @@ 20100118 tpd src/axiom-website/patches.html 20100118.04.tpd.patch 20100118 tpd src/share/doc/msgs/s2-us.msgs removed unused file 20100118 tpd src/axiom-website/patches.html 20100118.03.tpd.patch -20100118 tpd src/interp/vmlisp.lisp.pamphlet update sourceFileList with INPUT +20100118 tpd src/interp/vmlisp.lisp update sourceFileList with INPUT 20100118 tpd src/interp/pathname.lisp removed 20100118 tpd src/interp/lisplib.lisp move functions from pathname.lisp 20100118 tpd src/interp/Makefile merge and remove pathname.lisp diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html index 540e2a8..07abcd4 100644 --- a/src/axiom-website/patches.html +++ b/src/axiom-website/patches.html @@ -2503,5 +2503,7 @@ src/interp/vmlisp.lisp remove some define-functions
src/interp/vmlisp.lisp remove unused functions
20100228.01.tpd.patch src/interp/vmlisp.lisp remove non-common lisp macros
+20100228.02.tpd.patch +src/interp/*.lisp.pamphlet remove MAKESTRING macro
diff --git a/src/interp/as.lisp.pamphlet b/src/interp/as.lisp.pamphlet index 3432d5f..74d47e9 100644 --- a/src/interp/as.lisp.pamphlet +++ b/src/interp/as.lisp.pamphlet @@ -41,9 +41,9 @@ (PROG (|instream| |lines|) (RETURN (SEQ (PROGN - (OBEY (MAKESTRING "rm -f temp.text")) - (OBEY (MAKESTRING "ls as/*.asy > temp.text")) - (SPADLET |instream| (OPEN (MAKESTRING "temp.text"))) + (OBEY "rm -f temp.text") + (OBEY "ls as/*.asy > temp.text") + (SPADLET |instream| (OPEN "temp.text")) (SPADLET |lines| (PROG (G166062) (SPADLET G166062 NIL) @@ -71,7 +71,7 @@ NIL) (SEQ (EXIT (PROGN (|sayBrightly| - (CONS (MAKESTRING "-----> ") + (CONS "-----> " (CONS |x| NIL))) (|asTran| |x|))))) '|done|))) @@ -84,7 +84,7 @@ (DEFUN |as| (|name|) (PROGN - (|astran| (STRCONC (STRINGIMAGE |name|) (MAKESTRING ".asy"))) + (|astran| (STRCONC (STRINGIMAGE |name|) ".asy")) '|done|)) ;astran asyFile == @@ -128,7 +128,7 @@ (SPADLET |$asyFile| |asyFile|) (SPADLET |$asFilename| (STRCONC (PATHNAME-NAME |asyFile|) - (MAKESTRING ".as"))) + ".as")) (|asytran| |asyFile|) (SPADLET |conlist| (PROG (G166115) @@ -469,7 +469,7 @@ (SPADLET |filestring| (STRCONC (PATHNAME-NAME (STRINGIMAGE |filename|)) - (MAKESTRING ".as"))) + ".as")) (SPADLET |constantPart| (AND (HGET |$constantHash| |con|) (CONS (CONS '|constant| 'T) NIL))) @@ -715,9 +715,9 @@ (DEFUN |displayDatabase,fn| (|x| |y|) (SEQ (|sayBrightly| - (CONS (MAKESTRING "----------------- ") + (CONS "----------------- " (CONS |y| - (CONS (MAKESTRING " --------------------") NIL)))) + (CONS " --------------------" NIL)))) (EXIT (|pp| (GETDATABASE |x| |y|))))) (DEFUN |displayDatabase| (|x|) @@ -764,12 +764,12 @@ (RETURN (SEQ (PROGN (SPADLET |banner| - (MAKESTRING "==============================")) + "==============================") (|sayBrightly| (CONS |banner| - (CONS (MAKESTRING " ") + (CONS " " (CONS |con| - (CONS (MAKESTRING " ") + (CONS " " (CONS |banner| NIL)))))) (DO ((G166534 |alist| (CDR G166534)) (G166523 NIL)) ((OR (ATOM G166534) @@ -784,7 +784,7 @@ (SEQ (EXIT (PROGN (|sayBrightlyNT| (CONS |prop| - (CONS (MAKESTRING ": ") NIL))) + (CONS ": " NIL))) (|pp| |value|)))))))))) ;asGetModemaps(opAlist,oform,kind,modemap) == @@ -1094,9 +1094,9 @@ (PROG (|k|) (RETURN (COND - ((SPADLET |k| (STRPOS (MAKESTRING "Description:") |str| 0 NIL)) + ((SPADLET |k| (STRPOS "Description:" |str| 0 NIL)) (|asyExtractDescription| (SUBSTRING |str| (PLUS |k| 12) NIL))) - ((SPADLET |k| (STRPOS (MAKESTRING "Author:") |str| 0 NIL)) + ((SPADLET |k| (STRPOS "Author:" |str| 0 NIL)) (|asyExtractDescription| (SUBSTRING |str| 0 |k|))) ('T |str|))))) @@ -1110,8 +1110,8 @@ (PROG (|m|) (RETURN (COND - ((OR (NULL |str|) (BOOT-EQUAL |str| (MAKESTRING ""))) - (MAKESTRING "")) + ((OR (NULL |str|) (BOOT-EQUAL |str| "")) + "") ('T (SPADLET |m| (MAXINDEX |str|)) (SPADLET |str| (SUBSTRING |str| 0 |m|)) (|trimString| |str|)))))) @@ -1474,7 +1474,7 @@ (SEQ (PROGN (SPADLET |inStream| (OPEN |fn|)) (|sayBrightly| - (CONS (MAKESTRING " Reading ") (CONS |fn| NIL))) + (CONS " Reading " (CONS |fn| NIL))) (SPADLET |u| (VMREAD |inStream|)) (SPADLET |$niladics| (|mkNiladics| |u|)) (DO ((G167029 |$niladics| (CDR G167029)) (|x| NIL)) @@ -1587,7 +1587,7 @@ (COND ((BOOT-EQUAL |id| '|failed|) |id|) ((NEQUAL (KAR |dform|) '|Declare|) - (|systemError| (MAKESTRING "asytranDeclaration"))) + (|systemError| "asytranDeclaration")) ('T (COND ((BOOT-EQUAL |levels| '(|top|)) @@ -1600,7 +1600,7 @@ (HPUT |$constantHash| |id| 'T)) ('T NIL)))) (SPADLET |comments| - (OR (LASSOC '|documentation| |r|) (MAKESTRING ""))) + (OR (LASSOC '|documentation| |r|) "")) (SPADLET |idForm| (COND ((AND (PAIRP |levels|) @@ -2007,8 +2007,7 @@ (|asytranForm1| CDR |levels| |local?|)) ('T (|asytranForm1| |x| |levels| |local?|)))) ('T - (|error| (MAKESTRING - "DEFINE forms are not handled yet"))))) + (|error| "DEFINE forms are not handled yet")))) ('T (COND ((BOOT-EQUAL |form| '%) (SPADLET |$hasPerCent| 'T))) @@ -2148,7 +2147,7 @@ (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |name| (QCAR |ISTMP#1|)) 'T)))) |name|) - ('T (|error| (MAKESTRING "Bad Enumeration entry"))))))) + ('T (|error| "Bad Enumeration entry")))))) ;asytranApplySpecial(x, levels, local?) == ; x is ['Declare, name, typ, :.] => [":",name,asytranForm(typ, levels, local?)] @@ -2417,8 +2416,7 @@ 'T)))))) (COND ((IFCAR |r|) - (|error| (MAKESTRING - "ELSE expressions not allowed yet in conditionals"))) + (|error| "ELSE expressions not allowed yet in conditionals")) ('T (SPADLET |pred| (COND @@ -2670,7 +2668,7 @@ ((BOOT-EQUAL |fn| '|With|) 'T) ('T NIL))) ((BOOT-EQUAL |t| '|Type|) 'T) - ('T (|error| (MAKESTRING "Unknown atomic type"))))) + ('T (|error| "Unknown atomic type")))) ('T (|error| NIL)))))) ;asyAbbreviation(id,n) == chk(id,main) where --> n = number of arguments @@ -2835,7 +2833,7 @@ (RETURN (COND ((NULL (SPADLET |k| - (STRPOS (MAKESTRING "Abbrev: ") |str| 0 NIL))) + (STRPOS "Abbrev: " |str| 0 NIL))) NIL) ('T (SPADLET |str| (SUBSTRING |str| (PLUS |k| 8) NIL)) (SPADLET |k| (STRPOS |$stringNewline| |str| 0 NIL)) @@ -4543,7 +4541,7 @@ (SEQ (EXIT (|asCategoryParts,build| |x| |pred|)))))) (IF (|member| |item| '(|noBranch|)) (EXIT '|ok|)) (IF (NULL |item|) (EXIT '|ok|)) - (EXIT (|systemError| (MAKESTRING "build error"))))))) + (EXIT (|systemError| "build error")))))) (DEFUN |asCategoryParts| (&REST G169422 &AUX |options| |category| |conform| |kind|) diff --git a/src/interp/bc-matrix.lisp.pamphlet b/src/interp/bc-matrix.lisp.pamphlet index 04026bb..a480dc3 100644 --- a/src/interp/bc-matrix.lisp.pamphlet +++ b/src/interp/bc-matrix.lisp.pamphlet @@ -43,7 +43,7 @@ (RETURN (PROGN (SPADLET |page| - (|htInitPage| (MAKESTRING "Matrix Basic Command") NIL)) + (|htInitPage| "Matrix Basic Command" NIL)) (|htpSetProperty| |page| '|exitFunction| |exitFunctionOrNil|) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -104,7 +104,7 @@ (RETURN (PROGN (SPADLET |page| - (|htInitPage| (MAKESTRING "Basic Matrix Command") + (|htInitPage| "Basic Matrix Command" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| S (|Symbol|)) @@ -122,7 +122,7 @@ . "Enter the general {\\em formula} for the entries:") (|text| . "\\newline\\tab{2} ") (|bcStrings| (40 "1/(x - i - j - 1)" |formula| FE)))) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|bcInputMatrixByFormulaGen|) (SPADLET |nrows| (COND @@ -167,12 +167,12 @@ (SPADLET |colVar| (|htpLabelInputString| |htPage| '|colVar|)) (SPADLET |nrows| (|htpProperty| |htPage| '|nrows|)) (SPADLET |ncols| (|htpProperty| |htPage| '|ncols|)) - (|bcGen| (STRCONC (MAKESTRING "matrix([[") |formula| - (MAKESTRING " for ") |colVar| - (MAKESTRING " in 1..") (STRINGIMAGE |ncols|) - (MAKESTRING "] for ") |rowVar| - (MAKESTRING " in 1..") (STRINGIMAGE |nrows|) - (MAKESTRING "])")))))))) + (|bcGen| (STRCONC "matrix([[" |formula| + " for " |colVar| + " in 1.." (STRINGIMAGE |ncols|) + "] for " |rowVar| + " in 1.." (STRINGIMAGE |nrows|) + "])"))))))) ;bcInputExplicitMatrix(htPage,junk) == ; nrows := @@ -252,18 +252,15 @@ (PROGN (SPADLET |rowpart| (STRCONC - (MAKESTRING - "{\\em Row") + "{\\em Row" (|htStringPad| |i| |wrows|))) (SPADLET |colpart| (STRCONC - (MAKESTRING - ", Column") + ", Column" (|htStringPad| |j| |wcols|) - (MAKESTRING - ":}\\space{2}"))) + ":}\\space{2}")) (SPADLET |prefix| (STRCONC |rowpart| @@ -275,7 +272,7 @@ (PLUS |k| 1))))) (CONS |prefix| (CONS - (MAKESTRING "") + "" (CONS 30 (CONS 0 (CONS |name| @@ -289,11 +286,11 @@ (CONS (CONS '|inputStrings| |labelList|) NIL))) (SPADLET |page| - (|htInitPage| (MAKESTRING "Solve Basic Command") + (|htInitPage| "Solve Basic Command" (|htpPropertyList| |htPage|))) - (|bcHt| (MAKESTRING "Enter the entries of the matrix:")) + (|bcHt| "Enter the entries of the matrix:") (|htMakePage| |labelList|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|bcGenExplicitMatrix|) (|htpSetProperty| |page| '|nrows| |nrows|) (|htpSetProperty| |page| '|ncols| |ncols|) @@ -347,12 +344,12 @@ (SPADLET |formula| (ELT |formula| 0)) (SPADLET |rowVar| (ELT (LASSOC '|rowVar| |mat|) 0)) (SPADLET |colVar| (ELT (LASSOC '|colVar| |mat|) 0)) - (STRCONC (MAKESTRING "matrix([[") |formula| - (MAKESTRING " for ") |colVar| - (MAKESTRING " in 1..") (STRINGIMAGE |ncols|) - (MAKESTRING "] for ") |rowVar| - (MAKESTRING " in 1..") (STRINGIMAGE |nrows|) - (MAKESTRING "])"))) + (STRCONC "matrix([[" |formula| + " for " |colVar| + " in 1.." (STRINGIMAGE |ncols|) + "] for " |rowVar| + " in 1.." (STRINGIMAGE |nrows|) + "])")) ((SPADLET |mat| (|htpProperty| |htPage| '|matrix|)) (SPADLET |mat| (REVERSE |mat|)) (SPADLET |k| (SPADDIFFERENCE 1)) @@ -407,16 +404,16 @@ (SETQ G166181 (CONS (|bcwords2liststring| |x|) G166181))))))))) - (STRCONC (MAKESTRING "matrix(") |matstring| - (MAKESTRING ")"))) + (STRCONC "matrix(" |matstring| + ")")) ('T (|systemError| NIL)))))))) ;--Hypertex commands other than solve and matrix ;bcDrawIt2(ind,a,b) == STRCONC('"{}",ind,'"=",a,'"{}..",b,'"{}") (DEFUN |bcDrawIt2| (|ind| |a| |b|) - (STRCONC (MAKESTRING "{}") |ind| (MAKESTRING "=") |a| - (MAKESTRING "{}..") |b| (MAKESTRING "{}"))) + (STRCONC "{}" |ind| "=" |a| + "{}.." |b| "{}")) ;bcIndefiniteIntegrate() == ; htInitPage("Indefinite Integration Basic Command",nil) @@ -471,8 +468,8 @@ (SPADLET |integrand| (|htpLabelInputString| |htPage| '|integrand|)) (SPADLET |var| (|htpLabelInputString| |htPage| '|symbol|)) - (|bcGen| (STRCONC (MAKESTRING "integrate(") |integrand| - (MAKESTRING ",") |var| '|)|)))))) + (|bcGen| (STRCONC "integrate(" |integrand| + "," |var| '|)|)))))) ;bcDefiniteIntegrate() == ; htInitPage("Definite Integration Basic Command",nil) @@ -579,18 +576,18 @@ (|htpButtonValue| |htPage| '|fromButton|) '|fromPoint|) (|htpLabelInputString| |htPage| '|from|)) - ('T (MAKESTRING "%minusInfinity")))) + ('T "%minusInfinity"))) (SPADLET |upperLimit| (COND ((BOOT-EQUAL (|htpButtonValue| |htPage| '|toButton|) '|toPoint|) (|htpLabelInputString| |htPage| '|to|)) - ('T (MAKESTRING "%plusInfinity")))) + ('T "%plusInfinity"))) (SPADLET |varpart| - (STRCONC |var| (MAKESTRING " = ") |lowerLimit| - (MAKESTRING "..") |upperLimit|)) - (|bcGen| (STRCONC (MAKESTRING "integrate(") |integrand| - (MAKESTRING ",") |varpart| (MAKESTRING ")"))))))) + (STRCONC |var| " = " |lowerLimit| + ".." |upperLimit|)) + (|bcGen| (STRCONC "integrate(" |integrand| + "," |varpart| ")")))))) ;bcSum() == ; htInitPage("Sum Basic Command",nil) @@ -663,9 +660,9 @@ (SPADLET |index| (|htpLabelInputString| |htPage| '|index|)) (SPADLET CAR (|htpLabelInputString| |htPage| '|first|)) (SPADLET |last| (|htpLabelInputString| |htPage| '|last|)) - (|bcGen| (STRCONC (MAKESTRING "sum(") |mand| (MAKESTRING ",") - |index| (MAKESTRING " = ") CAR - (MAKESTRING "..") |last| (MAKESTRING ")"))))))) + (|bcGen| (STRCONC "sum(" |mand| "," + |index| " = " CAR + ".." |last| ")")))))) ;bcProduct() == ; htInitPage("Product Basic Command",nil) @@ -721,9 +718,9 @@ (SPADLET |index| (|htpLabelInputString| |htPage| '|index|)) (SPADLET CAR (|htpLabelInputString| |htPage| '|first|)) (SPADLET |last| (|htpLabelInputString| |htPage| '|last|)) - (|bcGen| (STRCONC (MAKESTRING "product(") |mand| - (MAKESTRING ",") |index| (MAKESTRING ",") CAR - (MAKESTRING ",") |last| (MAKESTRING ")"))))))) + (|bcGen| (STRCONC "product(" |mand| + "," |index| "," CAR + "," |last| ")")))))) ;bcDifferentiate() == ; htInitPage("Differentiate Basic Command",nil) @@ -777,7 +774,7 @@ . "\\newline List the number of {\\em times} you want to differentiate with respect to each variable (leave blank if once for each)") (|text| . "\\newline\\tab{2} ") (|bcStrings| (55 "1 2" |times| S . |quoteString|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|bcDifferentiateGen|) + (|htMakeDoneButton| "Continue" '|bcDifferentiateGen|) (|htShowPage|))) ;bcDifferentiateGen htPage == @@ -821,16 +818,15 @@ (|bcwords2liststring| |indexList|)) ('T (|bcError| - (MAKESTRING - "You must say how many times you want to differentiate with respect to each variable---or leave that entry blank"))))) + "You must say how many times you want to differentiate with respect to each variable---or leave that entry blank")))) (SPADLET |lastPart| (COND (|indexpart| - (STRCONC (MAKESTRING ",") |indexpart| - (MAKESTRING ")"))) - ('T (MAKESTRING ")")))) - (|bcGen| (STRCONC (MAKESTRING "differentiate(") |mand| - (MAKESTRING ",") |varpart| |lastPart|)))))) + (STRCONC "," |indexpart| + ")")) + ('T ")"))) + (|bcGen| (STRCONC "differentiate(" |mand| + "," |varpart| |lastPart|)))))) ;bcDraw() == ; htInitPage('"Draw Basic Command",nil) @@ -854,31 +850,23 @@ (DEFUN |bcDraw| () (PROGN - (|htInitPage| (MAKESTRING "Draw Basic Command") NIL) - (|bcHt| (MAKESTRING "What would you like to draw?")) - (|bcHt| (MAKESTRING - "\\newline\\centerline{{\\em Two Dimensional Plots}}\\newline")) - (|bcHt| (MAKESTRING - "\\lispdownlink{A function of one variable}{(|bcDraw2Dfun|)}")) - (|bcHt| (MAKESTRING "\\space{2}y = f(x)\\newline")) - (|bcHt| (MAKESTRING - "\\lispdownlink{A parametrically defined curve}{(|bcDraw2Dpar|)}")) - (|bcHt| (MAKESTRING "\\space{2}(x(t), y(t))\\newline")) - (|bcHt| (MAKESTRING - "\\lispdownlink{A solution to a polynomial equation}{(|bcDraw2DSolve|)}")) - (|bcHt| (MAKESTRING "\\space{2} p(x,y) = 0\\newline")) - (|bcHt| (MAKESTRING "\\vspace{1}\\newline ")) - (|bcHt| (MAKESTRING - "\\centerline{{\\em Three Dimensional Surfaces}}\\newline\\newline")) - (|bcHt| (MAKESTRING - "\\lispdownlink{A function of two variables}{(|bcDraw3Dfun|)}")) - (|bcHt| (MAKESTRING "\\space{2} z = f(x,y)\\newline")) - (|bcHt| (MAKESTRING - "\\lispdownlink{A parametrically defined tube}{(|bcDraw3Dpar|)}")) - (|bcHt| (MAKESTRING "\\space{2}(x(t), y(t), z(t))\\newline")) - (|bcHt| (MAKESTRING - "\\lispdownlink{A parameterically defined surface}{(|bcDraw3Dpar1|)}")) - (|bcHt| (MAKESTRING "\\space{2}(x(u,v), y(u,v), z(u,v))\\newline")) + (|htInitPage| "Draw Basic Command" NIL) + (|bcHt| "What would you like to draw?") + (|bcHt| "\\newline\\centerline{{\\em Two Dimensional Plots}}\\newline") + (|bcHt| "\\lispdownlink{A function of one variable}{(|bcDraw2Dfun|)}") + (|bcHt| "\\space{2}y = f(x)\\newline") + (|bcHt| "\\lispdownlink{A parametrically defined curve}{(|bcDraw2Dpar|)}") + (|bcHt| "\\space{2}(x(t), y(t))\\newline") + (|bcHt| "\\lispdownlink{A solution to a polynomial equation}{(|bcDraw2DSolve|)}") + (|bcHt| "\\space{2} p(x,y) = 0\\newline") + (|bcHt| "\\vspace{1}\\newline ") + (|bcHt| "\\centerline{{\\em Three Dimensional Surfaces}}\\newline\\newline") + (|bcHt| "\\lispdownlink{A function of two variables}{(|bcDraw3Dfun|)}") + (|bcHt| "\\space{2} z = f(x,y)\\newline") + (|bcHt| "\\lispdownlink{A parametrically defined tube}{(|bcDraw3Dpar|)}") + (|bcHt| "\\space{2}(x(t), y(t), z(t))\\newline") + (|bcHt| "\\lispdownlink{A parameterically defined surface}{(|bcDraw3Dpar1|)}") + (|bcHt| "\\space{2}(x(u,v), y(u,v), z(u,v))\\newline") (|htShowPage|))) ;bcDraw2Dfun() == @@ -917,7 +905,7 @@ (DEFUN |bcDraw2Dfun| () (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "Draw Basic Command") NIL) + (|htInitPage| "Draw Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) (|isDomain| SY (|Symbol|))) @@ -967,15 +955,15 @@ (SPADLET |to1| (|htpLabelInputString| |htPage| '|to1|)) (SPADLET |title| (|htpLabelInputString| |htPage| '|title|)) (COND - ((NEQUAL |title| (MAKESTRING "")) + ((NEQUAL |title| "") (SPADLET |titlePart| - (STRCONC (MAKESTRING "{}") - (MAKESTRING "title ==\"") |title| - (MAKESTRING "\""))) - (|bcFinish| (MAKESTRING "draw") |fun| + (STRCONC "{}" + "title ==\"" |title| + "\"")) + (|bcFinish| "draw" |fun| (|bcDrawIt2| |ind| |from1| |to1|) |titlePart|)) ('T - (|bcFinish| (MAKESTRING "draw") |fun| + (|bcFinish| "draw" |fun| (|bcDrawIt2| |ind| |from1| |to1|)))))))) ;bcDraw2Dpar() == @@ -1013,7 +1001,7 @@ (DEFUN |bcDraw2Dpar| () (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "Draw Basic Command") NIL) + (|htInitPage| "Draw Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) (|isDomain| SY (|Symbol|))) @@ -1065,22 +1053,22 @@ (SPADLET |to1| (|htpLabelInputString| |htPage| '|to1|)) (SPADLET |title| (|htpLabelInputString| |htPage| '|title|)) (SPADLET |curvePart| - (STRCONC (MAKESTRING "curve(") (MAKESTRING "{}") - |fun1| (MAKESTRING ",{}") |fun2| - (MAKESTRING ")"))) + (STRCONC "curve(" "{}" + |fun1| ",{}" |fun2| + ")")) (COND - ((NEQUAL |title| (MAKESTRING "")) + ((NEQUAL |title| "") (SPADLET |titlePart| (COND - ((BOOT-EQUAL |title| (MAKESTRING "")) NIL) + ((BOOT-EQUAL |title| "") NIL) ('T - (STRCONC (MAKESTRING "{}") - (MAKESTRING "title ==\"") |title| - (MAKESTRING "\""))))) - (|bcFinish| (MAKESTRING "draw") |curvePart| + (STRCONC "{}" + "title ==\"" |title| + "\"")))) + (|bcFinish| "draw" |curvePart| (|bcDrawIt2| |ind| |from1| |to1|) |titlePart|)) ('T - (|bcFinish| (MAKESTRING "draw") |curvePart| + (|bcFinish| "draw" |curvePart| (|bcDrawIt2| |ind| |from1| |to1|)))))))) ;bcDraw2DSolve() == @@ -1120,7 +1108,7 @@ (DEFUN |bcDraw2DSolve| () (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "Draw Basic Command") NIL) + (|htInitPage| "Draw Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) (|isDomain| SY (|Symbol|))) @@ -1144,7 +1132,7 @@ (|text| "\\indent{0}\\vspace{1}\\newline\\menuitemstyle{}\\tab{2} " "Optionally enter a {\\em title} for your curve:") (|bcStrings| (15 "" |title| S)) (|text| . "\\indent{0}"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|bcDraw2DSolveGen|) + (|htMakeDoneButton| "Continue" '|bcDraw2DSolveGen|) (|htShowPage|))) ;bcDraw2DSolveGen htPage == @@ -1179,25 +1167,25 @@ (SPADLET |to2| (|htpLabelInputString| |htPage| '|to2|)) (SPADLET |title| (|htpLabelInputString| |htPage| '|title|)) (SPADLET |clipPart| - (STRCONC (MAKESTRING "{}") (MAKESTRING "range==[{}") - |from1| (MAKESTRING "..") |to1| '|,{}| - |from2| (MAKESTRING "..") |to2| - (MAKESTRING "]"))) + (STRCONC "{}" "range==[{}" + |from1| ".." |to1| '|,{}| + |from2| ".." |to2| + "]")) (COND - ((NEQUAL |title| (MAKESTRING "")) + ((NEQUAL |title| "") (SPADLET |titlePart| (COND - ((BOOT-EQUAL |title| (MAKESTRING "")) NIL) + ((BOOT-EQUAL |title| "") NIL) ('T - (STRCONC (MAKESTRING "{}") - (MAKESTRING "title ==\"") |title| - (MAKESTRING "\""))))) - (|bcFinish| (MAKESTRING "draw") - (STRCONC |fun| (MAKESTRING " = 0 ")) |ind1| |ind2| + (STRCONC "{}" + "title ==\"" |title| + "\"")))) + (|bcFinish| "draw" + (STRCONC |fun| " = 0 ") |ind1| |ind2| |clipPart| |titlePart|)) ('T - (|bcFinish| (MAKESTRING "draw") - (STRCONC |fun| (MAKESTRING " = 0 ")) |ind1| |ind2| + (|bcFinish| "draw" + (STRCONC |fun| " = 0 ") |ind1| |ind2| |clipPart|))))))) ;bcDraw3Dfun() == @@ -1241,7 +1229,7 @@ (DEFUN |bcDraw3Dfun| () (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "Three Dimensional Draw Basic Command") + (|htInitPage| "Three Dimensional Draw Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1305,19 +1293,19 @@ (SPADLET |to2| (|htpLabelInputString| |htPage| '|to2|)) (SPADLET |title| (|htpLabelInputString| |htPage| '|title|)) (COND - ((NEQUAL |title| (MAKESTRING "")) + ((NEQUAL |title| "") (SPADLET |titlePart| (COND - ((BOOT-EQUAL |title| (MAKESTRING "")) NIL) + ((BOOT-EQUAL |title| "") NIL) ('T - (STRCONC (MAKESTRING "{}") - (MAKESTRING "title ==\"") |title| - (MAKESTRING "\""))))) - (|bcFinish| (MAKESTRING "draw") |fun| + (STRCONC "{}" + "title ==\"" |title| + "\"")))) + (|bcFinish| "draw" |fun| (|bcDrawIt2| |ind1| |from1| |to1|) (|bcDrawIt2| |ind2| |from2| |to2|) |titlePart|)) ('T - (|bcFinish| (MAKESTRING "draw") |fun| + (|bcFinish| "draw" |fun| (|bcDrawIt2| |ind1| |from1| |to1|) (|bcDrawIt2| |ind2| |from2| |to2|)))))))) @@ -1358,7 +1346,7 @@ (DEFUN |bcDraw3Dpar| () (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "Draw Basic Command") NIL) + (|htInitPage| "Draw Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) (|isDomain| SY (|Symbol|))) @@ -1418,25 +1406,25 @@ (SPADLET |to1| (|htpLabelInputString| |htPage| '|to1|)) (SPADLET |title| (|htpLabelInputString| |htPage| '|title|)) (SPADLET |curvePart| - (STRCONC (MAKESTRING "curve(") (MAKESTRING "{}") - |fun1| (MAKESTRING ",{}") |fun2| - (MAKESTRING ",{}") |fun3| (MAKESTRING ")"))) + (STRCONC "curve(" "{}" + |fun1| ",{}" |fun2| + ",{}" |fun3| ")")) (SPADLET |tubePart| - (MAKESTRING "{}tubeRadius==.25,{}tubePoints==16")) + "{}tubeRadius==.25,{}tubePoints==16") (COND - ((NEQUAL |title| (MAKESTRING "")) + ((NEQUAL |title| "") (SPADLET |titlePart| (COND - ((BOOT-EQUAL |title| (MAKESTRING "")) NIL) + ((BOOT-EQUAL |title| "") NIL) ('T - (STRCONC (MAKESTRING "{}") - (MAKESTRING "title ==\"") |title| - (MAKESTRING "\""))))) - (|bcFinish| (MAKESTRING "draw") |curvePart| + (STRCONC "{}" + "title ==\"" |title| + "\"")))) + (|bcFinish| "draw" |curvePart| (|bcDrawIt2| |ind| |from1| |to1|) |tubePart| |titlePart|)) ('T - (|bcFinish| (MAKESTRING "draw") |curvePart| + (|bcFinish| "draw" |curvePart| (|bcDrawIt2| |ind| |from1| |to1|) |tubePart|))))))) ;bcDraw3Dpar1() == @@ -1487,7 +1475,7 @@ (DEFUN |bcDraw3Dpar1| () (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "Draw Basic Command") NIL) + (|htInitPage| "Draw Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| F (|Float|)) (|isDomain| SY (|Symbol|))) @@ -1523,7 +1511,7 @@ "Optionally enter a {\\em title} for your surface:") (|bcStrings| (15 "surface" |title| S)) (|text| . "\\indent{0}"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|bcDraw3Dpar1Gen|) + (|htMakeDoneButton| "Continue" '|bcDraw3Dpar1Gen|) (|htShowPage|))) ;bcDraw3Dpar1Gen htPage == @@ -1564,21 +1552,21 @@ (SPADLET |r1| (|bcDrawIt2| |ind1| |from1| |to1|)) (SPADLET |r2| (|bcDrawIt2| |ind2| |from2| |to2|)) (SPADLET |surfacePart| - (STRCONC (MAKESTRING "surface(") (MAKESTRING "{}") - |fun1| (MAKESTRING ",{}") |fun2| - (MAKESTRING ",{}") |fun3| (MAKESTRING ")"))) + (STRCONC "surface(" "{}" + |fun1| ",{}" |fun2| + ",{}" |fun3| ")")) (COND - ((NEQUAL |title| (MAKESTRING "")) + ((NEQUAL |title| "") (SPADLET |titlePart| (COND - ((BOOT-EQUAL |title| (MAKESTRING "")) NIL) + ((BOOT-EQUAL |title| "") NIL) ('T - (STRCONC (MAKESTRING "{}") - (MAKESTRING "title ==\"") |title| - (MAKESTRING "\""))))) - (|bcFinish| (MAKESTRING "draw") |surfacePart| |r1| |r2| + (STRCONC "{}" + "title ==\"" |title| + "\"")))) + (|bcFinish| "draw" |surfacePart| |r1| |r2| |titlePart|)) - ('T (|bcFinish| (MAKESTRING "draw") |surfacePart| |r1| |r2|))))))) + ('T (|bcFinish| "draw" |surfacePart| |r1| |r2|))))))) ;bcSeries() == ; htInitPage('"Series Basic Command",nil) @@ -1601,7 +1589,7 @@ (DEFUN |bcSeries| () (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "Series Basic Command") NIL) + (|htInitPage| "Series Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) (|isDomain| SY (|Symbol|))) @@ -1652,7 +1640,7 @@ (declare (ignore |a| |b|)) (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "Series Expansion Basic Command") NIL) + (|htInitPage| "Series Expansion Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| EEM (|Expression| |$EmptyMode|)) @@ -1673,7 +1661,7 @@ . "Enter the {\\em point} about which you want to expand") (|text| . "\\tab{49}") (|bcStrings| (8 "\\%pi/2" |point| EM)))) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|bcSeriesExpansionGen|) (|htShowPage|))) @@ -1694,7 +1682,7 @@ (SPADLET |terms| (|htpLabelInputString| |htPage| '|numberOfTerms|)) (|bcFinish| '|series| |fun| - (STRCONC |var| (MAKESTRING " = ") |point|)))))) + (STRCONC |var| " = " |point|)))))) ;bcSeriesByFormula(a,b) == ; htInitPage('"Power Series Basic Command",nil) @@ -1716,7 +1704,7 @@ (DEFUN |bcSeriesByFormula| (|a| |b|) (declare (ignore |a| |b|)) (PROGN - (|htInitPage| (MAKESTRING "Power Series Basic Command") NIL) + (|htInitPage| "Power Series Basic Command" NIL) (|htMakePage| '((|text| . "Select the kind of power series you want to create:") @@ -1788,7 +1776,7 @@ (declare (ignore |a| |b|)) (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "Taylor Series Basic Command") NIL) + (|htInitPage| "Taylor Series Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| EEM (|Expression| |$EmptyMode|)) @@ -1880,7 +1868,7 @@ (DEFUN |bcLaurentSeries| (|a| |b|) (declare (special |$EmptyMode|) (ignore |a| |b|)) (PROGN - (|htInitPage| (MAKESTRING "Laurent Series Basic Command") NIL) + (|htInitPage| "Laurent Series Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| EEM (|Expression| |$EmptyMode|)) @@ -1971,7 +1959,7 @@ (DEFUN |bcPuiseuxSeries| (|a| |b|) (declare (special |$EmptyMode|) (ignore |a| |b|)) (PROGN - (|htInitPage| (MAKESTRING "Puiseux Series Basic Command") NIL) + (|htInitPage| "Puiseux Series Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| EEM (|Expression| |$EmptyMode|)) @@ -2052,10 +2040,10 @@ (SPADLET |index| (|htpLabelInputString| |htPage| '|index|)) (SPADLET |var| (|htpLabelInputString| |htPage| '|variable|)) (SPADLET |point| (|htpLabelInputString| |htPage| '|point|)) - (SPADLET |varPart| (STRCONC |var| (MAKESTRING " = ") |point|)) - (SPADLET |minPart| (STRCONC |min| (MAKESTRING ".."))) - (|bcFinish| (MAKESTRING "series") - (STRCONC |index| (MAKESTRING " +-> ") |formula|) |varPart| + (SPADLET |varPart| (STRCONC |var| " = " |point|)) + (SPADLET |minPart| (STRCONC |min| "..")) + (|bcFinish| "series" + (STRCONC |index| " +-> " |formula|) |varPart| |minPart| |step|))))) ;bcLimit() == @@ -2086,7 +2074,7 @@ (DEFUN |bcLimit| () (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "Limit Basic Command") NIL) + (|htInitPage| "Limit Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) (|isDomain| SY (|Symbol|))) @@ -2145,7 +2133,7 @@ (DEFUN |bcRealLimit| (|a| |b|) (declare (special |$EmptyMode|) (ignore |a| |b|)) (PROGN - (|htInitPage| (MAKESTRING "Real Limit Basic Command") NIL) + (|htInitPage| "Real Limit Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) (|isDomain| F (|Float|)) @@ -2203,13 +2191,13 @@ (SPADLET |loc| (COND ((BOOT-EQUAL |p| '|plusInfinity|) - (MAKESTRING "%plusInfinity")) - ('T (MAKESTRING "%minusInfinity")))) - (|bcFinish| (MAKESTRING "limit") |fun| - (STRCONC |var| (MAKESTRING " = ") |loc|))) + "%plusInfinity") + ('T "%minusInfinity"))) + (|bcFinish| "limit" |fun| + (STRCONC |var| " = " |loc|))) ('T (SPADLET |page| - (|htInitPage| (MAKESTRING "Real Limit Basic Command") + (|htInitPage| "Real Limit Basic Command" NIL)) (|htMakePage| '((|text| . "Compute the limit") @@ -2246,14 +2234,14 @@ (SPADLET |direction| (COND ((BOOT-EQUAL |key| '|right|) - (MAKESTRING "\"right\"")) - ((BOOT-EQUAL |key| '|left|) (MAKESTRING "\"left\"")) + "\"right\"") + ((BOOT-EQUAL |key| '|left|) "\"left\"") ('T NIL))) (SPADLET |fun| (|htpProperty| |htPage| '|fun|)) (SPADLET |var| (|htpProperty| |htPage| '|var|)) (SPADLET |loc| (|htpProperty| |htPage| '|loc|)) - (SPADLET |varPart| (STRCONC |var| (MAKESTRING " = ") |loc|)) - (|bcFinish| (MAKESTRING "limit") |fun| |varPart| |direction|))))) + (SPADLET |varPart| (STRCONC |var| " = " |loc|)) + (|bcFinish| "limit" |fun| |varPart| |direction|))))) ;bcComplexLimit(a,b) == ; htInitPage('"Complex Limit Basic Command",nil) @@ -2291,7 +2279,7 @@ (DEFUN |bcComplexLimit| (|a| |b|) (declare (special |$EmptyMode|) (ignore |a| |b|)) (PROGN - (|htInitPage| (MAKESTRING "Complex Limit Basic Command") NIL) + (|htInitPage| "Complex Limit Basic Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) (|isDomain| S (|String|)) (|isDomain| F (|Float|)) @@ -2360,25 +2348,25 @@ '|complex|)) (SPADLET |complexPart| (COND - ((BOOT-EQUAL |comp| (MAKESTRING "0")) - (MAKESTRING "")) - ((BOOT-EQUAL |comp| (MAKESTRING "1")) - (MAKESTRING "%i")) - ('T (STRCONC |comp| (MAKESTRING "*%i"))))) + ((BOOT-EQUAL |comp| "0") + "") + ((BOOT-EQUAL |comp| "1") + "%i") + ('T (STRCONC |comp| "*%i")))) (COND - ((BOOT-EQUAL |real| (MAKESTRING "0")) + ((BOOT-EQUAL |real| "0") (COND - ((BOOT-EQUAL |complexPart| (MAKESTRING "")) + ((BOOT-EQUAL |complexPart| "") '|0|) ('T |complexPart|))) - ((BOOT-EQUAL |complexPart| (MAKESTRING "")) + ((BOOT-EQUAL |complexPart| "") |real|) ('T - (STRCONC |real| (MAKESTRING " + ") + (STRCONC |real| " + " |complexPart|)))) - ('T (MAKESTRING "%infinity")))) - (SPADLET |varPart| (STRCONC |var| (MAKESTRING " = ") |loc|)) - (|bcFinish| (MAKESTRING "complexLimit") |fun| |varPart|))))) + ('T "%infinity"))) + (SPADLET |varPart| (STRCONC |var| " = " |loc|)) + (|bcFinish| "complexLimit" |fun| |varPart|))))) ; -- HyperTeX basic Solve Command ;$systemType := nil @@ -2409,7 +2397,7 @@ (DEFUN |bcSolve| () (PROGN - (|htInitPage| (MAKESTRING "Solve Basic Command") NIL) + (|htInitPage| "Solve Basic Command" NIL) (|htMakePage| '((|text| . "What do you want to solve? ") (|text| . "\\beginmenu") (|text| . "\\item ") @@ -2447,7 +2435,7 @@ (DEFUN |bcLinearSolve| (|p| |nn|) (declare (ignore |p| |nn|)) (PROGN - (|htInitPage| (MAKESTRING "Basic Solve Command") NIL) + (|htInitPage| "Basic Solve Command" NIL) (|htMakePage| '((|text| . "How do you want to enter the equations?") (|text| . "\\beginmenu") (|text| . "\\item ") @@ -2477,13 +2465,13 @@ (DEFUN |bcLinearSolveEqns| (|htPage| |p|) (declare (ignore |htPage| |p|)) (PROGN - (|htInitPage| (MAKESTRING "Basic Solve Command") NIL) + (|htInitPage| "Basic Solve Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) (|inputStrings| ("Enter the {\\em number} of equations:" "" 5 2 |numberOfEquations| PI)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|bcLinearSolveEqns1|) + (|htMakeDoneButton| "Continue" '|bcLinearSolveEqns1|) (|htShowPage|))) ;bcSystemSolve(htPage, p) == @@ -2498,13 +2486,13 @@ (DEFUN |bcSystemSolve| (|htPage| |p|) (declare (ignore |htPage| |p|)) (PROGN - (|htInitPage| (MAKESTRING "Basic Solve Command") NIL) + (|htInitPage| "Basic Solve Command" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) (|inputStrings| ("Enter the {\\em number} of equations:" "" 5 2 |numberOfEquations| PI)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|bcSystemSolveEqns1|) + (|htMakeDoneButton| "Continue" '|bcSystemSolveEqns1|) (|htShowPage|))) ;bcSolveSingle(htPage,p) == @@ -2572,7 +2560,7 @@ (RETURN (PROGN (SPADLET |page| - (|htInitPage| (MAKESTRING "Solve Basic Command") + (|htInitPage| "Solve Basic Command" (|htpPropertyList| |htPage|))) (|htpSetProperty| |page| '|numberOfEquations| (|htpProperty| |htPage| '|numberOfEquations|)) @@ -2661,17 +2649,16 @@ (SEQ (IF (> |i| 99) (EXIT 0)) (IF (> |i| 9) (EXIT 1)) (EXIT 2))) (SPADLET |prefix| - (STRCONC (MAKESTRING - "\\newline\\tab{2}{\\em Equation ") - (STRINGIMAGE |i|) (MAKESTRING ":}"))) + (STRCONC "\\newline\\tab{2}{\\em Equation " + (STRINGIMAGE |i|) ":}")) (SPADLET |prefix| - (STRCONC |prefix| (MAKESTRING "\\space{") - (STRINGIMAGE |spacer|) (MAKESTRING "}"))) + (STRCONC |prefix| "\\space{" + (STRINGIMAGE |spacer|) "}")) (SPADLET |lnam| - (INTERN (STRCONC (MAKESTRING "l") + (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "r") + (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (SPADLET |var| (SEQ (IF |linearp| @@ -2741,20 +2728,20 @@ (|isDomain| PI (|PositiveInteger|))) |labelList|)) (SPADLET |page| - (|htInitPage| (MAKESTRING "Solve Basic Command") + (|htInitPage| "Solve Basic Command" (|htpPropertyList| |htPage|))) (|htpSetProperty| |page| '|numberOfEquations| |numEqs|) (|htpSetProperty| |page| '|solutionMethod| |solutionMethod|) - (|htSay| (MAKESTRING "\\newline\\menuitemstyle{}\\tab{2}")) + (|htSay| "\\newline\\menuitemstyle{}\\tab{2}") (|htSay| (COND ((EQL |numEqs| 1) - (MAKESTRING "Enter the {\\em Equation}:")) - ('T (MAKESTRING "Enter the {\\em Equations}:")))) - (|htSay| (MAKESTRING "\\newline\\tab{2}")) + "Enter the {\\em Equation}:") + ('T "Enter the {\\em Equations}:"))) + (|htSay| "\\newline\\tab{2}") (|htMakePage| |equationPart|) - (|bcHt| (MAKESTRING "\\blankline ")) - (|htSay| (MAKESTRING "\\newline\\menuitemstyle{}\\tab{2}")) + (|bcHt| "\\blankline ") + (|htSay| "\\newline\\menuitemstyle{}\\tab{2}") (|htMakePage| (COND ((EQL |numEqs| 1) @@ -2776,7 +2763,7 @@ (CONS 'P NIL)))) NIL)) NIL)))))) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|bcInputEquationsEnd|) (|htShowPage|)))))) @@ -2784,7 +2771,7 @@ ; STRCONC('"x",STRINGIMAGE i) (DEFUN |bcCreateVariableString| (|i|) - (STRCONC (MAKESTRING "x") (STRINGIMAGE |i|))) + (STRCONC "x" (STRINGIMAGE |i|))) ;bcMakeUnknowns(number)== ; APPLY('CONCAT,[STRCONC(bcCreateVariableString(i)," ") for i in 1..number]) @@ -2918,7 +2905,7 @@ (RETURN (PROGN (SPADLET |page| - (|htInitPage| (MAKESTRING "Solve Basic Command") + (|htInitPage| "Solve Basic Command" (|htpPropertyList| |htPage|))) (|htMakePage| '((|text| . "What would you like?") @@ -2932,7 +2919,7 @@ (|inputStrings| ("Enter the number of desired {\\em digits} of accuracy" "" 5 20 |acc| PI)))) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|bcSolveNumerically1|) (|htShowPage|))))) @@ -2980,8 +2967,8 @@ (SPADLET |accString| (COND ((|member| |kind| '(|rf| |cf|)) - (STRCONC (MAKESTRING "1.e-") |digits|)) - ('T (STRCONC (MAKESTRING "1/10**") |digits|)))))) + (STRCONC "1.e-" |digits|)) + ('T (STRCONC "1/10**" |digits|)))))) (SPADLET |alist| (|htpProperty| |htPage| '|inputArea|)) (SPADLET |varpart| (CADAR |alist|)) (SPADLET |r| (CDR |alist|)) @@ -2996,15 +2983,15 @@ (SPADLET |name| (COND ((|member| |kind| '(|rf| |rr|)) - (MAKESTRING "solve")) - ('T (MAKESTRING "complexSolve")))) + "solve") + ('T "complexSolve"))) (|bcFinish| |name| |eqnString| |accString|)) ('T (SPADLET |name| (COND ((BOOT-EQUAL |solutionMethod| '|radical|) - (MAKESTRING "radicalSolve")) - ('T (MAKESTRING "solve")))) + "radicalSolve") + ('T "solve"))) (|bcFinish| |name| |eqnString| |varString| |accString|))))))) ;bcLinearSolveMatrix(htPage,junk) == @@ -3030,7 +3017,7 @@ (PROGN (SPADLET |page| (|htInitPage| - (MAKESTRING "Linear Solve Basic Command") + "Linear Solve Basic Command" (|htpPropertyList| |htPage|))) (|htpSetProperty| |page| '|matrix| (|bcLinearExtractMatrix| |htPage|)) @@ -3080,16 +3067,16 @@ (SEQ (IF (> |i| 99) (EXIT 0)) (IF (> |i| 9) (EXIT 1)) (EXIT 2))) (SPADLET |prefix| - (STRCONC (MAKESTRING "{\\em Coefficient ") - (STRINGIMAGE |i|) (MAKESTRING ":}"))) + (STRCONC "{\\em Coefficient " + (STRINGIMAGE |i|) ":}")) (IF (NEQUAL |spacer| 0) (SPADLET |prefix| - (STRCONC |prefix| (MAKESTRING "\\space{") + (STRCONC |prefix| "\\space{" (STRINGIMAGE |spacer|) - (MAKESTRING "}"))) + "}")) NIL) (SPADLET |name| - (INTERN (STRCONC (MAKESTRING "c") + (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) (EXIT (CONS |prefix| (CONS '|| @@ -3118,7 +3105,7 @@ G166692)))))))) (SPADLET |page| (|htInitPage| - (MAKESTRING "Linear Solve Basic Command") + "Linear Solve Basic Command" (|htpPropertyList| |htPage|))) (|htpSetProperty| |page| '|matrix| (|htpProperty| |htPage| '|matrix|)) @@ -3172,7 +3159,7 @@ (SPADLET |matform| (|bcMatrixGen| |htPage|)) (COND ((BOOT-EQUAL |key| '|homo|) - (|bcFinish| (MAKESTRING "nullSpace") |matform|)) + (|bcFinish| "nullSpace" |matform|)) ('T (SPADLET |vector| (PROG (G166720) @@ -3193,11 +3180,11 @@ (CONS (ELT |x| 1) G166720)))))))) (SPADLET |vecform| (|bcVectorGen| |vector|)) (SPADLET |form| - (|bcMkFunction| (MAKESTRING "solve") |matform| + (|bcMkFunction| "solve" |matform| (CONS |vecform| NIL))) (|bcGen| (COND ((BOOT-EQUAL |key| '|particular|) - (STRCONC |form| (MAKESTRING ".particular"))) + (STRCONC |form| ".particular")) ('T |form|)))))))))) ;linearFinalRequest(nhh,mat,vect) == @@ -3214,13 +3201,12 @@ (RETURN (PROGN (|sayBrightly| - (MAKESTRING - "Do you want more information on the meaning of the output")) - (|sayBrightly| (MAKESTRING " (1) no ")) - (|sayBrightly| (MAKESTRING " (2) yes ")) + "Do you want more information on the meaning of the output") + (|sayBrightly| " (1) no ") + (|sayBrightly| " (2) yes ") (SPADLET |tt| (|bcQueryInteger| 1 2 'T)) (COND - ((EQL |tt| 1) (|sayBrightly| (MAKESTRING "Bye Bye"))) + ((EQL |tt| 1) (|sayBrightly| "Bye Bye")) ((EQL |tt| 2) (|explainLinear| |nhh|))))))) ;explainLinear(flag) == @@ -3258,16 +3244,15 @@ (PROG (|tt|) (RETURN (PROGN - (|sayBrightly| (MAKESTRING "Do you like:")) + (|sayBrightly| "Do you like:") (|sayBrightly| - (MAKESTRING " (1) the solutions how they are displayed")) - (|sayBrightly| (MAKESTRING " (2) to get ????")) + " (1) the solutions how they are displayed") + (|sayBrightly| " (2) to get ????") (|sayBrightly| - (MAKESTRING - " (3) more information on the meaning of the output")) + " (3) more information on the meaning of the output") (SPADLET |tt| (|bcQueryInteger| 1 3 'T)) (COND - ((EQL |tt| 1) (|sayBrightly| (MAKESTRING "Bye Bye"))) + ((EQL |tt| 1) (|sayBrightly| "Bye Bye")) ((EQL |tt| 2) (|moreExactSolution| |equations| |unknowns|)) ((EQL |tt| 3) (|explainExact| |equations| |unknowns|))))))) @@ -3297,7 +3282,7 @@ ('T (CAR |varlist|)))) (SPADLET |alist| (CDR |alist|)))) (SPADLET |eqnString| (|bcGenEquations| |alist|)) - (|bcFinish| (MAKESTRING "solve") |eqnString| |varString|))))) + (|bcFinish| "solve" |eqnString| |varString|))))) ;bcGenEquations alist == ; y := alist @@ -3324,7 +3309,7 @@ (SPADLET |eqnlist| (CONS (STRCONC |left| - (MAKESTRING " = ") |right|) + " = " |right|) |eqnlist|)))))) (COND ((CDR |eqnlist|) (|bcwords2liststring| |eqnlist|)) @@ -3359,7 +3344,7 @@ (|x| (SETQ G166797 (CONS |x| G166797)))))))))) - (STRCONC |name| (MAKESTRING "(") |arg| + (STRCONC |name| "(" |arg| (PROG (G166809) (SPADLET G166809 "") (RETURN @@ -3372,8 +3357,8 @@ G166809) (SEQ (EXIT (SETQ G166809 (STRCONC G166809 - (STRCONC (MAKESTRING ",") |x|)))))))) - (MAKESTRING ")"))))))) + (STRCONC "," |x|)))))))) + ")")))))) ;bcString2HyString2 s == ; (STRINGP s) and (s.0 = char '_") => @@ -3387,9 +3372,9 @@ (COND ((AND (STRINGP |s|) (BOOT-EQUAL (ELT |s| 0) (|char| '|"|))) (SPADLET |len| (|#| |s|)) - (STRCONC (MAKESTRING "\\\"") + (STRCONC "\\\"" (SUBSTRING |s| 1 (SPADDIFFERENCE |len| 2)) - (MAKESTRING "\\\""))) + "\\\"")) ('T |s|))))) ;bcString2HyString s == s @@ -3427,20 +3412,20 @@ (PROG (|string|) (RETURN (PROGN - (|htInitPage| (MAKESTRING "Basic Command") NIL) + (|htInitPage| "Basic Command" NIL) (SPADLET |string| (COND ((QSLESSP (|#| |command|) 50) - (STRCONC (MAKESTRING "{\\centerline{\\tt ") - |command| (MAKESTRING " }}"))) + (STRCONC "{\\centerline{\\tt " + |command| " }}")) ('T - (STRCONC (MAKESTRING "{\\tt ") |command| - (MAKESTRING " }"))))) + (STRCONC "{\\tt " |command| + " }")))) (|htMakePage| (CONS '(|text| "{Here is the AXIOM command you could have issued to compute this result:}" "\\vspace{2}\\newline ") (CONS (CONS '|text| |string|) NIL))) - (|htMakeDoitButton| (MAKESTRING "Do It") |command|) + (|htMakeDoitButton| "Do It" |command|) (|htShowPage|))))) ;-- bcGen for axiom - nag link @@ -3462,19 +3447,19 @@ (PROG (|string|) (RETURN (PROGN - (|htInitPage| (MAKESTRING "AXIOM-Nag Link Command") NIL) + (|htInitPage| "AXIOM-Nag Link Command" NIL) (SPADLET |string| (COND ((QSLESSP (|#| |command|) 50) - (STRCONC (MAKESTRING "{\\centerline{ ") |command| - (MAKESTRING " }}"))) + (STRCONC "{\\centerline{ " |command| + " }}")) ('T |command|))) (|htMakePage| (CONS '(|text| "\\centerline{{\\em Here is the AXIOM command}}" "\\centerline{{\\em you could have issued to compute this result:}}" "\\vspace{2}\\newline ") (CONS (CONS '|text| |string|) NIL))) - (|htMakeDoitButton| (MAKESTRING "Do It") |command|) + (|htMakeDoitButton| "Do It" |command|) (|htShowPage|))))) ;bcOptional s == @@ -3482,11 +3467,11 @@ ; s (DEFUN |bcOptional| (|s|) - (COND ((BOOT-EQUAL |s| (MAKESTRING "")) (MAKESTRING "2")) ('T |s|))) + (COND ((BOOT-EQUAL |s| "") "2") ('T |s|))) ;bcvspace() == bcHt '"\vspace{1}\newline " -(DEFUN |bcvspace| () (|bcHt| (MAKESTRING "\\vspace{1}\\newline "))) +(DEFUN |bcvspace| () (|bcHt| "\\vspace{1}\\newline ")) ;bcString2WordList s == fn(s,0,MAXINDEX s) where ; fn(s,i,n) == @@ -3533,15 +3518,15 @@ ; STRCONC('", ",first u,fn rest u) (DEFUN |bcwords2liststring,fn| (|u|) - (SEQ (IF (NULL |u|) (EXIT (MAKESTRING "]"))) - (EXIT (STRCONC (MAKESTRING ", ") (CAR |u|) + (SEQ (IF (NULL |u|) (EXIT "]")) + (EXIT (STRCONC ", " (CAR |u|) (|bcwords2liststring,fn| (CDR |u|)))))) (DEFUN |bcwords2liststring| (|u|) (COND ((NULL |u|) NIL) ('T - (STRCONC (MAKESTRING "[") (CAR |u|) + (STRCONC "[" (CAR |u|) (|bcwords2liststring,fn| (CDR |u|)))))) ;bcVectorGen vec == bcwords2liststring vec @@ -3554,13 +3539,13 @@ (DEFUN |bcError| (|string|) (PROGN - (|sayBrightlyNT| (MAKESTRING "NOTE: ")) + (|sayBrightlyNT| "NOTE: ") (|sayBrightly| |string|))) ;bcDrawIt(ind,a,b) == STRCONC(ind,'"=",a,'"..",b) (DEFUN |bcDrawIt| (|ind| |a| |b|) - (STRCONC |ind| (MAKESTRING "=") |a| (MAKESTRING "..") |b|)) + (STRCONC |ind| "=" |a| ".." |b|)) ;bcNotReady htPage == ; htInitPage('"Basic Command",nil) @@ -3572,7 +3557,7 @@ (DEFUN |bcNotReady| (|htPage|) (declare (ignore |htPage|)) (PROGN - (|htInitPage| (MAKESTRING "Basic Command") NIL) + (|htInitPage| "Basic Command" NIL) (|htMakePage| '((|text| . "{\\centerline{\\em This facility will soon be available}}"))) @@ -3589,9 +3574,9 @@ (PROGN (SPADLET |s| (STRINGIMAGE |n|)) (SPADLET |ws| (|#| |s|)) - (STRCONC (MAKESTRING "\\space{") + (STRCONC "\\space{" (STRINGIMAGE (PLUS (SPADDIFFERENCE |w| |ws|) 1)) - (MAKESTRING "}") |s|))))) + "}" |s|))))) ;stringList2String x == ; null x => '"()" @@ -3601,9 +3586,9 @@ (PROG () (RETURN (SEQ (COND - ((NULL |x|) (MAKESTRING "()")) + ((NULL |x|) "()") ('T - (STRCONC (MAKESTRING "(") (CAR |x|) + (STRCONC "(" (CAR |x|) (PROG (G166923) (SPADLET G166923 "") (RETURN @@ -3616,9 +3601,9 @@ G166923) (SEQ (EXIT (SETQ G166923 (STRCONC G166923 - (STRCONC (MAKESTRING ",") + (STRCONC "," |y|)))))))) - (MAKESTRING ")")))))))) + ")"))))))) ;htMkName(s,n) == STRCONC(s,STRINGIMAGE n) diff --git a/src/interp/br-con.lisp.pamphlet b/src/interp/br-con.lisp.pamphlet index 9dba180..e5fc1a3 100644 --- a/src/interp/br-con.lisp.pamphlet +++ b/src/interp/br-con.lisp.pamphlet @@ -260,31 +260,31 @@ (PROG (|sourceFileName| |filename|) (RETURN (PROGN - (|htSay| '|{\\sf | |name| (MAKESTRING "}")) + (|htSay| '|{\\sf | |name| "}") (COND ((NEQUAL |abbrev| |name|) (|bcHt| (CONS '| has abbreviation | (CONS |abbrev| NIL))))) (COND - (|file?| (|bcHt| (CONS (MAKESTRING " is a source file.") NIL)))) + (|file?| (|bcHt| (CONS " is a source file." NIL)))) (COND ((EQL |nargs| 0) (COND - ((NEQUAL |abbrev| |name|) (|bcHt| (MAKESTRING "."))) + ((NEQUAL |abbrev| |name|) (|bcHt| ".")) ('T NIL))) ('T (COND - ((NEQUAL |abbrev| |name|) (|bcHt| (MAKESTRING " and")))) + ((NEQUAL |abbrev| |name|) (|bcHt| " and"))) (|bcHt| (COND ((EQL |nargs| 1) - (MAKESTRING " takes one argument:")) + " takes one argument:") ('T (CONS '| takes | (CONS (STRINGIMAGE |nargs|) (CONS '| arguments:| NIL)))))))) (|htSaturnBreak|) - (|htSayStandard| (MAKESTRING "\\indentrel{2}")) + (|htSayStandard| "\\indentrel{2}") (COND ((> |nargs| 0) (|kPageArgs| |conform| |signature|))) - (|htSayStandard| (MAKESTRING "\\indentrel{-2}")) + (|htSayStandard| "\\indentrel{-2}") (COND ((BOOT-EQUAL (ELT |name| (SPADDIFFERENCE (|#| |name|) 1)) (|char| '&)) @@ -295,23 +295,21 @@ (SPADLET |filename| (|extractFileNameFromPath| |sourceFileName|)) (COND - ((NEQUAL |filename| (MAKESTRING "")) - (|htSayStandard| (MAKESTRING "\\newline{}")) - (|htSay| (MAKESTRING - "The source code for the constructor is found in ")))) + ((NEQUAL |filename| "") + (|htSayStandard| "\\newline{}") + (|htSay| "The source code for the constructor is found in "))) (|htMakePage| (CONS (CONS '|text| - (CONS (MAKESTRING "\\unixcommand{") + (CONS "\\unixcommand{" (CONS |filename| (CONS - (MAKESTRING - "}{\\$AXIOM/lib/SPADEDIT ") + "}{\\$AXIOM/lib/SPADEDIT " (CONS |sourceFileName| - (CONS (MAKESTRING " ") + (CONS " " (CONS |name| - (CONS (MAKESTRING "}") NIL)))))))) + (CONS "}" NIL)))))))) NIL)) - (COND ((NEQUAL |nargs| 0) (|htSay| (MAKESTRING ".")))) + (COND ((NEQUAL |nargs| 0) (|htSay| "."))) (|htSaturnBreak|))))) ;kArgPage(htPage,arg) == @@ -357,7 +355,7 @@ (ELT '(|First| |Second| |Third| |Fourth| |Fifth|) |n|)))) (|htpSetProperty| |htPage| '|rank| |rank|) - (|htpSetProperty| |htPage| '|thing| (MAKESTRING "argument")) + (|htpSetProperty| |htPage| '|thing| "argument") (|dbShowCons| |htPage| '|names|))))) ;reportCategory(conform,typeForm,arg) == @@ -386,32 +384,32 @@ (PROG (|LETTMP#1| |conlist| |attrlist| |oplist| |u|) (RETURN (PROGN - (|htSay| (MAKESTRING "Argument {\\em ") |arg| (MAKESTRING "}")) + (|htSay| "Argument {\\em " |arg| "}") (SPADLET |LETTMP#1| (|categoryParts| |conform| |typeForm| 'T)) (SPADLET |conlist| (CAR |LETTMP#1|)) (SPADLET |attrlist| (CADR |LETTMP#1|)) (SPADLET |oplist| (CDDR |LETTMP#1|)) - (|htSay| (MAKESTRING " must ")) + (|htSay| " must ") (COND - (|conlist| (|htSay| (MAKESTRING "belong to ")) + (|conlist| (|htSay| "belong to ") (COND ((AND (PAIRP |conlist|) (EQ (QCDR |conlist|) NIL) (PROGN (SPADLET |u| (QCAR |conlist|)) 'T)) - (|htSay| (MAKESTRING "category ")) + (|htSay| "category ") (|bcConform| (CAR |u|)) (|bcPred| (CDR |u|))) - ('T (|htSay| (MAKESTRING "categories:")) + ('T (|htSay| "categories:") (|bcConPredTable| |conlist| (|opOf| |conform|)) - (|htSay| (MAKESTRING "\\newline ")))))) + (|htSay| "\\newline "))))) (COND - (|attrlist| (COND (|conlist| (|htSay| (MAKESTRING " and ")))) - (|reportAO| (MAKESTRING "attribute") |attrlist|) - (|htSay| (MAKESTRING "\\newline ")))) + (|attrlist| (COND (|conlist| (|htSay| " and "))) + (|reportAO| "attribute" |attrlist|) + (|htSay| "\\newline "))) (COND (|oplist| (COND ((OR |conlist| |attrlist|) - (|htSay| (MAKESTRING " and ")))) - (|reportAO| (MAKESTRING "operation") |oplist|)) + (|htSay| " and "))) + (|reportAO| "operation" |oplist|)) ('T NIL)))))) ;reportAO(kind,oplist) == @@ -435,7 +433,7 @@ (PROG (|op| |sig| |pred| |attr| |ops| |sigs|) (RETURN (SEQ (PROGN - (|htSay| (MAKESTRING "have ") |kind| (MAKESTRING ":")) + (|htSay| "have " |kind| ":") (DO ((G165885 |oplist| (CDR G165885)) (G165871 NIL)) ((OR (ATOM G165885) (PROGN (SETQ G165871 (CAR G165885)) NIL) @@ -448,20 +446,20 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\newline ") (COND ((EQL (|#| |oplist|) 1) - (|htSay| (MAKESTRING "\\centerline{")))) + (|htSay| "\\centerline{"))) (COND ((BOOT-EQUAL |kind| - (MAKESTRING "attribute")) + "attribute") (SPADLET |attr| (|form2String| (CONS |op| |sig|))) (|satDownLink| |attr| - (CONS (MAKESTRING "(|attrPage| '|") + (CONS "(|attrPage| '|" (CONS |attr| - (CONS (MAKESTRING "|)") NIL))))) + (CONS "|)" NIL))))) ('T (SPADLET |ops| (|escapeSpecialChars| @@ -470,18 +468,18 @@ (|form2HtString| (CONS '|Mapping| |sig|))) (|satDownLink| |ops| - (CONS (MAKESTRING "(|opPage| '|") + (CONS "(|opPage| '|" (CONS |ops| - (CONS (MAKESTRING "| |") + (CONS "| |" (CONS |sigs| - (CONS (MAKESTRING "|)") NIL)))))) - (|htSay| (MAKESTRING ": ")) + (CONS "|)" NIL)))))) + (|htSay| ": ") (|bcConform| (CONS '|Mapping| |sig|)))) (COND ((EQL (|#| |oplist|) 1) - (|htSay| (MAKESTRING "}"))) + (|htSay| "}")) ('T NIL)))))) - (|htSay| (MAKESTRING "\\newline "))))))) + (|htSay| "\\newline ")))))) ;mkDomTypeForm(typeForm,conform,domname) == --called by kargPage ; domname => SUBLISLIS(rest domname,rest conform,typeForm) @@ -709,12 +707,12 @@ (|errorPage| |htPage| |domname|)) ('T (SPADLET |heading| - (CONS (MAKESTRING "Description of ") + (CONS "Description of " (CONS (|capitalize| |kind|) - (CONS (MAKESTRING " {\\sf ") + (CONS " {\\sf " (CONS |name| (CONS |args| - (CONS (MAKESTRING "}") NIL))))))) + (CONS "}" NIL))))))) (SPADLET |page| (|htInitPage| |heading| (|htCopyProplist| |htPage|))) @@ -787,14 +785,14 @@ (SPADLET |conname| (|opOf| |conform|)) (SPADLET |heading| (CONS (|capitalize| |kind|) - (CONS (MAKESTRING " {\\sf ") + (CONS " {\\sf " (CONS (COND (|domname| (|form2HtString| |domname| NIL 'T)) ('T |constring|)) - (CONS (MAKESTRING "}") NIL))))) + (CONS "}" NIL))))) (SPADLET |data| (|sublisFormal| (OR (IFCDR |domname|) (CDR |conform|)) @@ -831,15 +829,15 @@ (PLUS (PLUS (|#| |conlist|) (|#| |attrlist|)) (|#| |oplist|)) - (MAKESTRING "Export") - (MAKESTRING "Exports"))) + "Export" + "Exports")) (SPADLET |page| (|htInitPage| (APPEND |prefix| - (CONS (MAKESTRING " of ") + (CONS " of " |heading|)) (|htCopyProplist| |htPage|))) - (|htSayStandard| (MAKESTRING "\\beginmenu ")) + (|htSayStandard| "\\beginmenu ") (|htpSetProperty| |page| '|data| |data|) (COND (|conlist| @@ -847,27 +845,26 @@ (CONS (CONS '|bcLinks| (CONS (CONS (|menuButton|) - (CONS (MAKESTRING "") + (CONS "" (CONS '|dbShowCons1| (CONS |conlist| (CONS '|names| NIL))))) NIL)) NIL)) - (|htSayStandard| (MAKESTRING "\\tab{2}")) - (|htSay| (MAKESTRING - "All attributes and operations from:")) + (|htSayStandard| "\\tab{2}") + (|htSay| "All attributes and operations from:") (|bcConPredTable| |conlist| (|opOf| |conform|) (CDR |conform|)))) (COND (|attrlist| (COND (|conlist| (|htBigSkip|))) - (|kePageDisplay| |page| (MAKESTRING "attribute") + (|kePageDisplay| |page| "attribute" (|kePageOpAlist| |attrlist|)))) (COND (|oplist| (COND ((OR |conlist| |attrlist|) (|htBigSkip|))) - (|kePageDisplay| |page| (MAKESTRING "operation") + (|kePageDisplay| |page| "operation" (|kePageOpAlist| |oplist|)))) - (|htSayStandard| (MAKESTRING " \\endmenu ")) + (|htSayStandard| " \\endmenu ") (|htShowPage|)))))))) ;kePageOpAlist oplist == @@ -953,44 +950,44 @@ ((EQL |count| 0) NIL) ('T (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (|htpSetProperty| |htPage| '|opAlist| |opAlist|)) ('T (|htpSetProperty| |htPage| '|attrAlist| |opAlist|))) (SPADLET |expandProperty| (COND ((BOOT-EQUAL |which| - (MAKESTRING "operation")) + "operation") '|expandOperations|) ('T '|expandAttributes|))) (|htpSetProperty| |htPage| |expandProperty| '|lists|) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS (|menuButton|) - (CONS (MAKESTRING "") + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|names| NIL))))) NIL)) NIL)) - (|htSayStandard| (MAKESTRING "\\tab{2}")) + (|htSayStandard| "\\tab{2}") (COND ((NEQUAL |count| |total|) (COND ((EQL |count| 1) - (|htSay| (MAKESTRING "1 name for "))) + (|htSay| "1 name for ")) ('T (|htSay| (STRINGIMAGE |count|) - (MAKESTRING " names for ")))))) + " names for "))))) (COND ((> |total| 1) - (|htSay| (STRINGIMAGE |total|) (MAKESTRING " ") + (|htSay| (STRINGIMAGE |total|) " " (|pluralize| |which|) - (MAKESTRING " are explicitly exported:"))) + " are explicitly exported:")) ('T - (|htSay| (MAKESTRING "1 ") |which| - (MAKESTRING " is explicitly exported:")))) - (|htSaySaturn| (MAKESTRING "\\\\")) + (|htSay| "1 " |which| + " is explicitly exported:"))) + (|htSaySaturn| "\\\\") (SPADLET |data| (|dbGatherData| |htPage| |opAlist| |which| '|names|)) @@ -1044,29 +1041,28 @@ ((NULL |domname|) (|htpProperty| |htPage| '|heading|)) ('T - (CONS (MAKESTRING "{\\sf ") + (CONS "{\\sf " (CONS (|form2HtString| |domname| NIL 'T) - (CONS (MAKESTRING "}") NIL)))))) + (CONS "}" NIL)))))) (COND (|domname| (|htpSetProperty| |htPage| '|domname| |domname|) (|htpSetProperty| |htPage| '|heading| |heading|))) (SPADLET |domain| (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) NIL) + ((BOOT-EQUAL |kind| "category") NIL) ('T (EVAL |domname|)))) (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) (SPADLET |page| (|htInitPageNoScroll| (|htCopyProplist| |htPage|) - (CONS (MAKESTRING "Search order for ") + (CONS "Search order for " |heading|))) - (|htSay| (MAKESTRING - "When an operation is not defined by the domain, the following domains are searched in order for a \"default definition")) - (|htSayStandard| (MAKESTRING "\\beginscroll ")) + (|htSay| "When an operation is not defined by the domain, the following domains are searched in order for a \"default definition") + (|htSayStandard| "\\beginscroll ") (SPADLET |u| (|dbSearchOrder| |conform| |domname| |domain|)) (|htpSetProperty| |htPage| '|cAlist| |u|) (|htpSetProperty| |htPage| '|thing| - (MAKESTRING "constructor")) + "constructor") (|dbShowCons| |htPage| '|names|))))))) ;dbSearchOrder(conform,domname,$domain) == --domain = nil or set to live domain @@ -1282,12 +1278,12 @@ ((NULL |domname|) (|htpProperty| |htPage| '|heading|)) ('T - (CONS (MAKESTRING "{\\sf ") + (CONS "{\\sf " (CONS (|form2HtString| |domname| NIL 'T) - (CONS (MAKESTRING "}") NIL)))))) + (CONS "}" NIL)))))) (SPADLET |page| (|htInitPage| - (CONS (MAKESTRING "Cross Reference for ") + (CONS "Cross Reference for " |heading|) (|htCopyProplist| |htPage|))) (COND @@ -1295,39 +1291,35 @@ (|htpSetProperty| |htPage| '|domname| |domname|) (|htpSetProperty| |htPage| '|heading| |heading|))) (COND - ((AND (BOOT-EQUAL |kind| (MAKESTRING "category")) + ((AND (BOOT-EQUAL |kind| "category") (|dbpHasDefaultCategory?| |xpart|)) - (|htSay| (MAKESTRING - "This category has default package ")) - (|bcCon| (STRCONC |name| (|char| '&)) (MAKESTRING "")))) - (|htSayStandard| (MAKESTRING "\\newline")) (|htBeginMenu| 3) - (|htSayStandard| (MAKESTRING "\\item ")) + (|htSay| "This category has default package ") + (|bcCon| (STRCONC |name| (|char| '&)) ""))) + (|htSayStandard| "\\newline") (|htBeginMenu| 3) + (|htSayStandard| "\\item ") (SPADLET |message| (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) - (CONS (MAKESTRING - "Categories it directly extends") + ((BOOT-EQUAL |kind| "category") + (CONS "Categories it directly extends" NIL)) ('T - (CONS (MAKESTRING "Categories the ") + (CONS "Categories the " (CONS (COND ((BOOT-EQUAL |kind| - (MAKESTRING "default package")) - (MAKESTRING "package")) + "default package") + "package") ('T |kind|)) (CONS - (MAKESTRING - " belongs to by assertion") + " belongs to by assertion" NIL)))))) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING - "\\menuitemstyle{Parents}") + (CONS (CONS "\\menuitemstyle{Parents}" (CONS (CONS (CONS '|text| (CONS - (MAKESTRING "\\tab{12}") + "\\tab{12}" |message|)) NIL) (CONS '|kcpPage| @@ -1337,24 +1329,22 @@ (|satBreak|) (SPADLET |message| (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) - (CONS (MAKESTRING - "All categories it is an extension of") + ((BOOT-EQUAL |kind| "category") + (CONS "All categories it is an extension of" NIL)) ('T - (CONS (MAKESTRING "All categories the ") + (CONS "All categories the " (CONS |kind| - (CONS (MAKESTRING " belongs to") + (CONS " belongs to" NIL)))))) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING - "\\menuitemstyle{Ancestors}") + (CONS (CONS "\\menuitemstyle{Ancestors}" (CONS (CONS (CONS '|text| (CONS - (MAKESTRING "\\tab{12}") + "\\tab{12}" |message|)) NIL) (CONS '|kcaPage| @@ -1362,19 +1352,17 @@ NIL)) NIL)) (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) (|satBreak|) + ((BOOT-EQUAL |kind| "category") (|satBreak|) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING - "\\menuitemstyle{Children}") + "\\menuitemstyle{Children}" (CONS (CONS (CONS '|text| - (CONS (MAKESTRING "\\tab{12}") + (CONS "\\tab{12}" (CONS - (MAKESTRING - "Categories which directly extend this category") + "Categories which directly extend this category" NIL))) NIL) (CONS '|kccPage| (CONS NIL NIL)))) @@ -1384,15 +1372,13 @@ (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING - "\\menuitemstyle{Descendants}") + "\\menuitemstyle{Descendants}" (CONS (CONS (CONS '|text| - (CONS (MAKESTRING "\\tab{12}") + (CONS "\\tab{12}" (CONS - (MAKESTRING - "All categories which extend this category") + "All categories which extend this category" NIL))) NIL) (CONS '|kcdPage| (CONS NIL NIL)))) @@ -1401,17 +1387,15 @@ (COND ((NULL (|asharpConstructorName?| |conname|)) (|satBreak|) (SPADLET |message| - (MAKESTRING - "Constructors mentioning this as an argument type")) + "Constructors mentioning this as an argument type") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING - "\\menuitemstyle{Dependents}") + "\\menuitemstyle{Dependents}" (CONS (CONS (CONS '|text| - (CONS (MAKESTRING "\\tab{12}") + (CONS "\\tab{12}" (CONS |message| NIL))) NIL) (CONS '|kcdePage| (CONS NIL NIL)))) @@ -1419,37 +1403,33 @@ NIL)))) (COND ((AND (NULL (|asharpConstructorName?| |conname|)) - (NEQUAL |kind| (MAKESTRING "category"))) + (NEQUAL |kind| "category")) (|satBreak|) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING - "\\menuitemstyle{Lineage}") + "\\menuitemstyle{Lineage}" (CONS - (MAKESTRING - "\\tab{12}Constructor hierarchy used for operation lookup") + "\\tab{12}Constructor hierarchy used for operation lookup" (CONS '|ksPage| (CONS NIL NIL)))) NIL)) NIL)))) (COND ((NULL (|asharpConstructorName?| |conname|)) (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) + ((BOOT-EQUAL |kind| "category") (|satBreak|) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING - "\\menuitemstyle{Domains}") + "\\menuitemstyle{Domains}" (CONS (CONS (CONS '|text| (CONS - (MAKESTRING "\\tab{12}") + "\\tab{12}" (CONS - (MAKESTRING - "All domains which are of this category") + "All domains which are of this category" NIL))) NIL) (CONS '|kcdoPage| @@ -1457,50 +1437,44 @@ NIL)) NIL)))) (COND - ((NEQUAL |kind| (MAKESTRING "category")) (|satBreak|) + ((NEQUAL |kind| "category") (|satBreak|) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING - "\\menuitemstyle{Clients}") + "\\menuitemstyle{Clients}" (CONS - (MAKESTRING - "\\tab{12}Constructors") + "\\tab{12}Constructors" (CONS '|kcuPage| (CONS NIL NIL)))) NIL)) NIL)) (COND ((HGET |$defaultPackageNamesHT| |conname|) - (|htSay| (MAKESTRING - " which {\\em may use} this default package"))) + (|htSay| " which {\\em may use} this default package")) ('T - (|htSay| (MAKESTRING " which {\\em use} this ") + (|htSay| " which {\\em use} this " |kind|)))) ('T NIL)))) (COND - ((OR (NEQUAL |kind| (MAKESTRING "category")) + ((OR (NEQUAL |kind| "category") (|dbpHasDefaultCategory?| |xpart|)) (|satBreak|) (SPADLET |message| (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) - (CONS (MAKESTRING - "Constructors {\\em used by} its default package") + ((BOOT-EQUAL |kind| "category") + (CONS "Constructors {\\em used by} its default package" NIL)) ('T - (CONS (MAKESTRING - "Constructors {\\em used by} the ") + (CONS "Constructors {\\em used by} the " (CONS |kind| NIL))))) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING - "\\menuitemstyle{Benefactors}") + "\\menuitemstyle{Benefactors}" (CONS (CONS (CONS '|text| - (CONS (MAKESTRING "\\tab{12}") + (CONS "\\tab{12}" |message|)) NIL) (CONS '|kcnPage| (CONS NIL NIL)))) @@ -1511,18 +1485,16 @@ (|hasNewInfoAlist| |conname|)) (|satBreak|) (SPADLET |message| - (CONS (MAKESTRING - "Cross reference for capsule implementation") + (CONS "Cross reference for capsule implementation" NIL)) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING - "\\menuitemstyle{CapsuleInfo}") + "\\menuitemstyle{CapsuleInfo}" (CONS (CONS (CONS '|text| - (CONS (MAKESTRING "\\tab{12}") + (CONS "\\tab{12}" |message|)) NIL) (CONS '|kciPage| (CONS NIL NIL)))) @@ -1579,9 +1551,9 @@ ((NULL |domname|) (|htpProperty| |htPage| '|heading|)) ('T - (CONS (MAKESTRING "{\\sf ") + (CONS "{\\sf " (CONS (|form2HtString| |domname| NIL 'T) - (CONS (MAKESTRING "}") NIL)))))) + (CONS "}" NIL)))))) (COND (|domname| (|htpSetProperty| |htPage| '|domname| |domname|) @@ -1590,7 +1562,7 @@ (SPADLET |conname| (|opOf| |conform|)) (SPADLET |page| (|htInitPage| - (CONS (MAKESTRING "Parents of ") |heading|) + (CONS "Parents of " |heading|) (|htCopyProplist| |htPage|))) (SPADLET |parents| (|parentsOf| |conname|)) (COND @@ -1598,7 +1570,7 @@ (SUBLISLIS (CDR |domname|) (CDR |conform|) |parents|)))) (|htpSetProperty| |htPage| '|cAlist| |parents|) - (|htpSetProperty| |htPage| '|thing| (MAKESTRING "parent")) + (|htpSetProperty| |htPage| '|thing| "parent") (SPADLET |choice| (COND (|domname| '|parameters|) ('T '|names|))) (|dbShowCons| |htPage| |choice|))))))) @@ -1643,24 +1615,24 @@ (DEFUN |kcaPage| (|htPage| |junk|) (declare (ignore |junk|)) - (|kcaPage1| |htPage| (MAKESTRING "category") (MAKESTRING " an ") - (MAKESTRING "ancestor") (|function| |ancestorsOf|) NIL)) + (|kcaPage1| |htPage| "category" " an " + "ancestor" (|function| |ancestorsOf|) NIL)) ;kcdPage(htPage,junk) == ; kcaPage1(htPage,'"category",'" a ",'"descendant",function descendantsOf,true) (DEFUN |kcdPage| (|htPage| |junk|) (declare (ignore |junk|)) - (|kcaPage1| |htPage| (MAKESTRING "category") (MAKESTRING " a ") - (MAKESTRING "descendant") (|function| |descendantsOf|) 'T)) + (|kcaPage1| |htPage| "category" " a " + "descendant" (|function| |descendantsOf|) 'T)) ;kcdoPage(htPage,junk)== ; kcaPage1(htPage,'"domain",'" a ",'"descendant",function domainsOf, false) (DEFUN |kcdoPage| (|htPage| |junk|) (declare (ignore |junk|)) - (|kcaPage1| |htPage| (MAKESTRING "domain") (MAKESTRING " a ") - (MAKESTRING "descendant") (|function| |domainsOf|) NIL)) + (|kcaPage1| |htPage| "domain" " a " + "descendant" (|function| |domainsOf|) NIL)) ;kcaPage1(htPage,kind,article,whichever,fn, isCatDescendants?) == ; [kind,name,nargs,xpart,sig,args,abbrev,comments] := htpProperty(htPage,'parts) @@ -1714,9 +1686,9 @@ ((NULL |domname|) (|htpProperty| |htPage| '|heading|)) ('T - (CONS (MAKESTRING "{\\sf ") + (CONS "{\\sf " (CONS (|form2HtString| |domname| NIL 'T) - (CONS (MAKESTRING "}") NIL)))))) + (CONS "}" NIL)))))) (COND ((AND |domname| (NULL |isCatDescendants?|)) (|htpSetProperty| |htPage| '|domname| |domname|) @@ -1725,7 +1697,7 @@ (SPADLET |conname| (|opOf| |conform|)) (SPADLET |ancestors| (FUNCALL |fn| |conform| |domname|)) (COND - ((NEQUAL |whichever| (MAKESTRING "ancestor")) + ((NEQUAL |whichever| "ancestor") (SPADLET |ancestors| (|augmentHasArgs| |ancestors| |conform|)))) (SPADLET |ancestors| @@ -1781,9 +1753,9 @@ ((NULL |domname|) (|htpProperty| |htPage| '|heading|)) ('T - (CONS (MAKESTRING "{\\sf ") + (CONS "{\\sf " (CONS (|form2HtString| |domname| NIL 'T) - (CONS (MAKESTRING "}") NIL)))))) + (CONS "}" NIL)))))) (COND (|domname| (|htpSetProperty| |htPage| '|domname| |domname|) @@ -1792,7 +1764,7 @@ (SPADLET |conname| (|opOf| |conform|)) (SPADLET |page| (|htInitPage| - (CONS (MAKESTRING "Children of ") |heading|) + (CONS "Children of " |heading|) (|htCopyProplist| |htPage|))) (SPADLET |children| (|augmentHasArgs| (|childrenOf| |conform|) @@ -1803,7 +1775,7 @@ (|reduceAlistForDomain| |children| |domname| |conform|)))) (|htpSetProperty| |htPage| '|cAlist| |children|) - (|htpSetProperty| |htPage| '|thing| (MAKESTRING "child")) + (|htpSetProperty| |htPage| '|thing| "child") (|dbShowCons| |htPage| '|names|))))))) ;augmentHasArgs(alist,conform) == @@ -1895,7 +1867,7 @@ (SPADLET |constring| (STRCONC |name| |args|)) (SPADLET |conform| (COND - ((NEQUAL |kind| (MAKESTRING "default package")) + ((NEQUAL |kind| "default package") (|ncParseFromString| |constring|)) ('T (CONS (INTERN |name|) @@ -1923,7 +1895,7 @@ G166636)))))))) (|htpSetProperty| |htPage| '|cAlist| |cAlist|) (|htpSetProperty| |htPage| '|thing| - (MAKESTRING "dependent")) + "dependent") (|dbShowCons| |htPage| '|names|)))))) ;kcuPage(htPage,junk) == @@ -1962,7 +1934,7 @@ (SPADLET |constring| (STRCONC |name| |args|)) (SPADLET |conform| (COND - ((NEQUAL |kind| (MAKESTRING "default package")) + ((NEQUAL |kind| "default package") (|ncParseFromString| |constring|)) ('T (CONS (INTERN |name|) @@ -1970,7 +1942,7 @@ (STRCONC (|char| '|d|) |args|))))))) (SPADLET |pakname| (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) + ((BOOT-EQUAL |kind| "category") (INTERN (STRCONC |name| (|char| '&)))) ('T (|opOf| |conform|)))) (SPADLET |domList| (|getUsersOfConstructor| |pakname|)) @@ -1992,7 +1964,7 @@ 'T) G166692)))))))) (|htpSetProperty| |htPage| '|cAlist| |cAlist|) - (|htpSetProperty| |htPage| '|thing| (MAKESTRING "user")) + (|htpSetProperty| |htPage| '|thing| "user") (|dbShowCons| |htPage| '|names|)))))) ;kcnPage(htPage,junk) == @@ -2045,10 +2017,10 @@ ((NULL |domname|) (|htpProperty| |htPage| '|heading|)) ('T - (CONS (MAKESTRING "{\\sf ") + (CONS "{\\sf " (CONS (|form2HtString| |domname| NIL 'T) - (CONS (MAKESTRING "}") NIL)))))) + (CONS "}" NIL)))))) (COND (|domname| (|htpSetProperty| |htPage| '|domname| |domname|) @@ -2056,7 +2028,7 @@ (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) (SPADLET |pakname| (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) + ((BOOT-EQUAL |kind| "category") (INTERN (STRCONC (PNAME |conname|) (|char| '&)))) ('T (|opOf| |conform|)))) @@ -2083,7 +2055,7 @@ (CONS (CONS |x| 'T) G166749)))))))) (|htpSetProperty| |htPage| '|cAlist| |cAlist|) (|htpSetProperty| |htPage| '|thing| - (MAKESTRING "benefactor")) + "benefactor") (|dbShowCons| |htPage| '|names|)))))))) ;koPageInputAreaUnchanged?(htPage, nargs) == @@ -2103,7 +2075,7 @@ (CONS (|htpLabelInputString| |htPage| (INTERN - (STRCONC (MAKESTRING "*") + (STRCONC "*" (STRINGIMAGE |i|)))) G166784))))))) (|htpProperty| |htPage| '|inputAreaList|)))))) @@ -2219,26 +2191,23 @@ 0) (CONS '|error| (CONS NIL - (CONS (MAKESTRING - "\\centerline{You gave values for only {\\em ") + (CONS "\\centerline{You gave values for only {\\em " (CONS |n| (CONS - (MAKESTRING " } of the {\\em ") + " } of the {\\em " (CONS (|#| |args|) - (CONS (MAKESTRING "}}") + (CONS "}}" (CONS - (MAKESTRING - "\\centerline{parameters of {\\sf ") + "\\centerline{parameters of {\\sf " (CONS |name| (CONS - (MAKESTRING - "}}\\vspace{1}\\centerline{Please enter either {\\em all} or {\\em none} of the type parameters}") + "}}\\vspace{1}\\centerline{Please enter either {\\em all} or {\\em none} of the type parameters}" NIL))))))))))) ('T NIL))) ('T (SPADLET |argString| (COND - ((NULL |args|) (MAKESTRING "()")) + ((NULL |args|) "()") ('T (SPADLET |argTailPart| (PROG (G166866) @@ -2264,7 +2233,7 @@ (DO ((G166882 (CONS - (MAKESTRING ",") + "," |x|) (CDR G166882)) (G166796 NIL)) @@ -2286,10 +2255,10 @@ (SPADLET G166888 "") (RETURN (DO ((G166893 - (CONS (MAKESTRING "(") + (CONS "(" (APPEND (CAR |args|) (CONS |argTailPart| - (CONS (MAKESTRING ")") NIL)))) + (CONS ")" NIL)))) (CDR G166893)) (G166797 NIL)) ((OR (ATOM G166893) @@ -2329,7 +2298,7 @@ (PROG (|form|) (RETURN (COND - ((BOOT-EQUAL |s| (MAKESTRING "")) NIL) + ((BOOT-EQUAL |s| "") NIL) ((AND |domain?| (SPADLET |form| (|conSpecialString?| |s|))) (COND ((NULL (KDR |form|)) @@ -2475,14 +2444,14 @@ (PROG (|form| |parse|) (RETURN (COND - ((NEQUAL |kind| (MAKESTRING "default package")) + ((NEQUAL |kind| "default package") (SPADLET |form| (STRCONC |name| |argString|)) (SPADLET |parse| (|parseNoMacroFromString| |form|)) (COND ((NULL |parse|) - (|sayBrightlyNT| (MAKESTRING "Won't parse: ")) + (|sayBrightlyNT| "Won't parse: ") (|pp| |form|) - (|systemError| (MAKESTRING "Keywords in argument list?"))) + (|systemError| "Keywords in argument list?")) ((ATOM |parse|) (CONS |parse| NIL)) ('T |parse|))) ('T @@ -2508,7 +2477,7 @@ (PROGN (SPADLET |updown| (|dbCompositeWithMap| |htPage|)) (COND - ((BOOT-EQUAL |updown| (MAKESTRING "DOWN")) + ((BOOT-EQUAL |updown| "DOWN") (SPADLET |domname| (|htpProperty| |htPage| '|domname|)) (|conOpPage1| (|dbExtractUnderlyingDomain| |domname|) (CONS (CONS '|updomain| |domname|) NIL))) @@ -2528,7 +2497,7 @@ (PROG (|domain| |opAlist|) (RETURN (COND - ((|htpProperty| |htPage| '|updomain|) (MAKESTRING "UP")) + ((|htpProperty| |htPage| '|updomain|) "UP") ('T (SPADLET |domain| (|htpProperty| |htPage| '|domname|)) (COND ((NULL |domain|) NIL) @@ -2536,7 +2505,7 @@ (COND ((|dbExtractUnderlyingDomain| (|htpProperty| |htPage| '|domname|)) - (MAKESTRING "DOWN")) + "DOWN") ('T NIL))))))))) ;dbExtractUnderlyingDomain domain == or/[x for x in KDR domain | isValidType x] @@ -2625,7 +2594,7 @@ (SPADLET |abbrev| (CADDR (CDDDDR |parts|))) (SPADLET |comments| (CADDDR (CDDDDR |parts|))) (SPADLET |isFile| (NULL |kind|)) - (SPADLET |kind| (OR |kind| (MAKESTRING "package"))) + (SPADLET |kind| (OR |kind| "package")) (RPLACA |parts| |kind|) (SPADLET |constring| (STRCONC |name| |args|)) (SPADLET |conform| (|mkConform| |kind| |name| |args|)) @@ -2634,16 +2603,16 @@ (SPADLET |sourceFileName| (|dbSourceFile| (INTERN |name|))) (SPADLET |emString| - (CONS (MAKESTRING "{\\sf ") + (CONS "{\\sf " (CONS |constring| - (CONS (MAKESTRING "}") NIL)))) + (CONS "}" NIL)))) (SPADLET |heading| (CONS |capitalKind| - (CONS (MAKESTRING " ") |emString|))) + (CONS " " |emString|))) (COND ((NULL (|isExposedConstructor| |conname|)) (SPADLET |heading| - (CONS (MAKESTRING "Unexposed ") |heading|)))) + (CONS "Unexposed " |heading|)))) (SPADLET |page| (|htInitPage| |heading| NIL)) (|htpSetProperty| |page| '|isFile| 'T) (|htpSetProperty| |page| '|fromConOpPage1| 'T) @@ -2671,7 +2640,7 @@ NIL)) NIL) (SEQ (EXIT (|htpSetProperty| |page| |a| |b|)))) - (|koPage| |page| (MAKESTRING "operation"))))))))) + (|koPage| |page| "operation")))))))) ;--======================================================================= ;-- Operation Page from Main Page @@ -2739,9 +2708,9 @@ ('T |constring|))) (SPADLET |heading| (CONS (|capitalize| |kind|) - (CONS (MAKESTRING " {\\sf ") + (CONS " {\\sf " (CONS |headingString| - (CONS (MAKESTRING "}") NIL))))) + (CONS "}" NIL))))) (|htpSetProperty| |htPage| '|which| |which|) (|htpSetProperty| |htPage| '|heading| |heading|) (|koPageAux| |htPage| |which| |domname| |heading|))))))) @@ -2776,10 +2745,10 @@ (SPADLET |heading| (|htpProperty| |htPage| '|heading|)) (SPADLET |opAlist| (COND - ((BOOT-EQUAL |which| (MAKESTRING "attribute")) + ((BOOT-EQUAL |which| "attribute") (|koAttrs| |conform| |domname|)) ((BOOT-EQUAL |which| - (MAKESTRING "general operation")) + "general operation") (|koOps| |conform| |domname| 'T)) ('T (|koOps| |conform| |domname|)))) (COND @@ -2818,7 +2787,7 @@ (RETURN (SEQ (COND ((BOOT-EQUAL (|htpLabelInputString| |htPage| '|filter|) - (MAKESTRING "")) + "") (|koaPageFilterByCategory| |htPage| |functionToCall|)) ('T (SPADLET |filter| @@ -3091,7 +3060,7 @@ (SPADLET |sig| (CAR G167382)) (SPADLET |doc| (CDR G167382)) G167382 - (SEQ (IF (BOOT-EQUAL |$which| (MAKESTRING "attribute")) + (SEQ (IF (BOOT-EQUAL |$which| "attribute") (EXIT (AND (AND (PAIRP |sig|) (EQ (QCAR |sig|) '|attribute|) (EQUAL (QCDR |sig|) |$sig|)) @@ -3350,7 +3319,7 @@ (CONS |x| G167520)))))))))) (COND ((NULL |u|) - (|emptySearchPage| (MAKESTRING "constructor") + (|emptySearchPage| "constructor" |filter|)) ('T (SPADLET |htPage| @@ -3516,7 +3485,7 @@ ((SPADLET |u| (|htpProperty| |page| '|specialMessage|)) (APPLY (CAR |u|) (CDR |u|)))) - (|htSayStandard| (MAKESTRING "\\beginscroll ")) + (|htSayStandard| "\\beginscroll ") (|htpSetProperty| |page| '|cAlist| |cAlist|) (SPADLET |$conformsAreDomains| (|htpProperty| |page| '|domname|)) @@ -3615,8 +3584,7 @@ (declare (special |$atLeastOneUnexposed|)) (SEQ (COND (|$atLeastOneUnexposed| - (EXIT (|htSay| (MAKESTRING - "\\newline{}-------------\\newline{}{\\em *} = unexposed"))))))) + (EXIT (|htSay| "\\newline{}-------------\\newline{}{\\em *} = unexposed")))))) ;-- DUPLICATE DEF - ALSO in br-saturn.boot ;-- dbShowConsKinds cAlist == @@ -3743,7 +3711,7 @@ (SPADLET |sig| '((CATEGORY |domain|) (|SetCategory|) (|SetCategory|))) - (|displayDomainOp| |htPage| (MAKESTRING "constructor") + (|displayDomainOp| |htPage| "constructor" |conform| |conname| |sig| 'T |doc| |indexOrNil| '|dbSelectCon| NIL NIL)) ('T (SPADLET |exposeFlag| (|isExposedConstructor| |conname|)) @@ -3759,11 +3727,11 @@ (SUBLISLIS |conargs| |$TriangleVariableList| |signature|)) ('T (|sublisFormal| |conargs| |signature|)))) - (|htSaySaturn| (MAKESTRING "\\begin{description}")) - (|displayDomainOp| |htPage| (MAKESTRING "constructor") + (|htSaySaturn| "\\begin{description}") + (|displayDomainOp| |htPage| "constructor" |conform| |conname| |sig| 'T |doc| |indexOrNil| '|dbSelectCon| (NULL |exposeFlag|) NIL) - (|htSaySaturn| (MAKESTRING "\\end{description}")))))))) + (|htSaySaturn| "\\end{description}"))))))) ; --NOTE that we pass conform is as "origin" ;getConstructorDocumentation conname == @@ -3789,7 +3757,7 @@ (SPADLET |line| (QCAR |ISTMP#3|)) 'T))))))) |line|) - (MAKESTRING ""))))) + "")))) ;dbSelectCon(htPage,which,index) == ; conPage opOf first htpProperty(htPage,'cAlist) . index @@ -3828,18 +3796,18 @@ (SPADLET |consNoPred| (CAR |LETTMP#1|)) (SPADLET |consPred| (CDR |LETTMP#1|)) (SPADLET |singular| - (CONS |kind| (CONS (MAKESTRING " is") NIL))) + (CONS |kind| (CONS " is" NIL))) (SPADLET |plural| (CONS (|pluralize| (STRINGIMAGE |kind|)) - (CONS (MAKESTRING " are") NIL))) + (CONS " are" NIL))) (|dbSayItems| (|#| |consNoPred|) |singular| |plural| - (MAKESTRING " unconditional")) - (|htSaySaturn| (MAKESTRING "\\\\")) + " unconditional") + (|htSaySaturn| "\\\\") (|bcConPredTable| |consNoPred| |conname|) (|htSayHrule|) (|dbSayItems| (|#| |consPred|) |singular| |plural| - (MAKESTRING " conditional")) - (|htSaySaturn| (MAKESTRING "\\\\")) + " conditional") + (|htSaySaturn| "\\\\") (|bcConPredTable| |consPred| |conname|))))) ;dbConsHeading(htPage,conlist,view,kind) == @@ -3885,7 +3853,7 @@ (PROGN (SPADLET |thing| (OR (AND |htPage| (|htpProperty| |htPage| '|thing|)) - (MAKESTRING "constructor"))) + "constructor")) (SPADLET |place| (COND (|htPage| @@ -3894,25 +3862,25 @@ ('T NIL))) (SPADLET |count| (|#| (REMDUP |conlist|))) (COND - ((BOOT-EQUAL |thing| (MAKESTRING "benefactor")) + ((BOOT-EQUAL |thing| "benefactor") (CONS (STRINGIMAGE |count|) - (CONS (MAKESTRING " Constructors Used by ") + (CONS " Constructors Used by " (CONS (|form2HtString| |place| NIL 'T) NIL)))) ('T (SPADLET |modifier| (COND - ((BOOT-EQUAL |thing| (MAKESTRING "argument")) + ((BOOT-EQUAL |thing| "argument") (SPADLET |rank| (AND |htPage| (|htpProperty| |htPage| '|rank|))) - (CONS (MAKESTRING " Possible ") - (CONS |rank| (CONS (MAKESTRING " ") NIL)))) + (CONS " Possible " + (CONS |rank| (CONS " " NIL)))) ((BOOT-EQUAL |kind| '|constructor|) - (CONS (MAKESTRING " ") NIL)) + (CONS " " NIL)) ('T - (CONS (MAKESTRING " ") + (CONS " " (CONS (|capitalize| (STRINGIMAGE |kind|)) - (CONS (MAKESTRING " ") NIL)))))) + (CONS " " NIL)))))) (SPADLET |exposureWord| (COND (|$exposedOnlyIfTrue| '(" Exposed ")) @@ -3926,7 +3894,7 @@ ('T (SPADLET |firstWord| (COND - ((EQL |count| 0) (MAKESTRING "No ")) + ((EQL |count| 0) "No ") ('T (STRINGIMAGE |count|)))) (CONS |firstWord| (APPEND |exposureWord| @@ -3937,7 +3905,7 @@ NIL))))))) (SPADLET |placepart| (COND - (|place| (CONS (MAKESTRING " of {\\em ") + (|place| (CONS " of {\\em " (CONS (|form2HtString| |place| NIL 'T) (CONS '} NIL)))) @@ -3946,19 +3914,19 @@ (SPADLET |connective| (COND ((|member| |view| '(|abbrs| |files| |kinds|)) - (MAKESTRING " as ")) - ('T (MAKESTRING " with ")))) + " as ") + ('T " with "))) (COND ((AND (NEQUAL |count| 0) (|member| |view| '(|abbrs| |files| |parameters| |conditions|))) (SPADLET |heading| (APPEND |heading| - (CONS (MAKESTRING " viewed") + (CONS " viewed" (CONS |connective| - (CONS (MAKESTRING "{\\em ") + (CONS "{\\em " (CONS (STRINGIMAGE |view|) - (CONS (MAKESTRING "}") NIL))))))))) + (CONS "}" NIL))))))))) |heading|)))))) ;dbShowConstructorLines lines == @@ -4010,7 +3978,7 @@ (PROG (|firstTime| |ft| |filename|) (RETURN (SEQ (PROGN - (|htSay| (MAKESTRING "\\newline")) + (|htSay| "\\newline") (|htBeginTable|) (SPADLET |firstTime| 'T) (DO ((G167861 |u| (CDR G167861)) (|x| NIL)) @@ -4020,8 +3988,8 @@ (SEQ (EXIT (PROGN (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "&")))) - (|htSay| (MAKESTRING "{")) + ('T (|htSaySaturn| "&"))) + (|htSay| "{") (SPADLET |ft| (COND ((|isAsharpFileName?| |x|) @@ -4034,15 +4002,14 @@ (|htMakePage| (CONS (CONS '|text| (CONS - (MAKESTRING "\\unixcommand{") + "\\unixcommand{" (CONS (PATHNAME-NAME |x|) (CONS - (MAKESTRING - "}{$AXIOM/lib/SPADEDIT ") + "}{$AXIOM/lib/SPADEDIT " (CONS |filename| - (CONS (MAKESTRING "} ") NIL)))))) + (CONS "} " NIL)))))) NIL)) - (|htSay| (MAKESTRING "}")))))) + (|htSay| "}"))))) (|htEndTable|)))))) ;isAsharpFileName? con == false @@ -4070,9 +4037,9 @@ (PROGN (SPADLET |conform| (|getConstructorForm| |conname|)) (SPADLET |heading| - (CONS (MAKESTRING "Description of Domain {\\sf ") + (CONS "Description of Domain {\\sf " (CONS (|form2HtString| |conform|) - (CONS (MAKESTRING "}") NIL)))) + (CONS "}" NIL)))) (SPADLET |page| (|htInitPage| |heading| NIL)) (|htpSetProperty| |page| '|conname| |conname|) (SPADLET |$conformsAreDomains| NIL) @@ -4101,15 +4068,15 @@ (|dbSpecialExpandIfNecessary| |conform| (CDR (GETL |conname| '|documentation|)))) (SPADLET |fromHeading| - (CONS (MAKESTRING " from domain {\\sf ") + (CONS " from domain {\\sf " (CONS (|form2HtString| |conform|) - (CONS (MAKESTRING "}") NIL)))) + (CONS "}" NIL)))) (|htpSetProperty| |page| '|fromHeading| |fromHeading|) (|htpSetProperty| |page| '|conform| |conform|) (|htpSetProperty| |page| '|opAlist| |opAlist|) (|htpSetProperty| |page| '|noUsage| 'T) (|htpSetProperty| |page| '|condition?| '|no|) - (|dbShowOp1| |page| |opAlist| (MAKESTRING "operation") + (|dbShowOp1| |page| |opAlist| "operation" '|names|))))) ;dbSpecialExports(conname) == @@ -4126,14 +4093,14 @@ (SPADLET |conform| (|getConstructorForm| |conname|)) (SPADLET |page| (|htInitPage| - (CONS (MAKESTRING "Exports of {\\sf ") + (CONS "Exports of {\\sf " (CONS (|form2HtString| |conform|) - (CONS (MAKESTRING "}") NIL))) + (CONS "}" NIL))) NIL)) (SPADLET |opAlist| (|dbSpecialExpandIfNecessary| |conform| (CDR (GETL |conname| '|documentation|)))) - (|kePageDisplay| |page| (MAKESTRING "operation") |opAlist|) + (|kePageDisplay| |page| "operation" |opAlist|) (|htShowPage|))))) ;dbSpecialExpandIfNecessary(conform,opAlist) == @@ -4198,20 +4165,17 @@ ;X := '"{\sf Record(a:A,b:B)} is used to create the class of pairs of objects made up of a value of type {\em A} selected by the symbol {\em a} and a value of type {\em B} selected by the symbol {\em b}. " (SPADLET X - (MAKESTRING - "{\\sf Record(a:A,b:B)} is used to create the class of pairs of objects made up of a value of type {\\em A} selected by the symbol {\\em a} and a value of type {\\em B} selected by the symbol {\\em b}. ")) + "{\\sf Record(a:A,b:B)} is used to create the class of pairs of objects made up of a value of type {\\em A} selected by the symbol {\\em a} and a value of type {\\em B} selected by the symbol {\\em b}. ") ;Y := '"In general, the {\sf Record} constructor can take any number of arguments and thus can be used to create aggregates of heterogeneous components of arbitrary size selectable by name. " (SPADLET Y - (MAKESTRING - "In general, the {\\sf Record} constructor can take any number of arguments and thus can be used to create aggregates of heterogeneous components of arbitrary size selectable by name. ")) + "In general, the {\\sf Record} constructor can take any number of arguments and thus can be used to create aggregates of heterogeneous components of arbitrary size selectable by name. ") ;Z := '"{\sf Record} is a primitive domain of \Language{} which cannot be defined in the \Language{} language." (SPADLET Z - (MAKESTRING - "{\\sf Record} is a primitive domain of \\Language{} which cannot be defined in the \\Language{} language.")) + "{\\sf Record} is a primitive domain of \\Language{} which cannot be defined in the \\Language{} language.") ;MESSAGE := STRCONC(X,Y,Z) @@ -4258,14 +4222,12 @@ ;X := '"{\sf Union(A,B)} denotes the class of objects which are which are either members of domain {\em A} or of domain {\em B}. The {\sf Union} constructor can take any number of arguments. " (SPADLET X - (MAKESTRING - "{\\sf Union(A,B)} denotes the class of objects which are which are either members of domain {\\em A} or of domain {\\em B}. The {\\sf Union} constructor can take any number of arguments. ")) + "{\\sf Union(A,B)} denotes the class of objects which are which are either members of domain {\\em A} or of domain {\\em B}. The {\\sf Union} constructor can take any number of arguments. ") ;Y := '"For an alternate form of {\sf Union} with _"tags_", see \downlink{Union(a:A,b:B)}{DomainUnion}. {\sf Union} is a primitive domain of \Language{} which cannot be defined in the \Language{} language." (SPADLET Y - (MAKESTRING - "For an alternate form of {\\sf Union} with \"tags\", see \\downlink{Union(a:A,b:B)}{DomainUnion}. {\\sf Union} is a primitive domain of \\Language{} which cannot be defined in the \\Language{} language.")) + "For an alternate form of {\\sf Union} with \"tags\", see \\downlink{Union(a:A,b:B)}{DomainUnion}. {\\sf Union} is a primitive domain of \\Language{} which cannot be defined in the \\Language{} language.") ;MESSAGE := STRCONC(X,Y) @@ -4311,32 +4273,27 @@ ;X := '"{\sf Union(a:A,b:B)} denotes the class of objects which are either members of domain {\em A} or of domain {\em B}. " (SPADLET X - (MAKESTRING - "{\\sf Union(a:A,b:B)} denotes the class of objects which are either members of domain {\\em A} or of domain {\\em B}. ")) + "{\\sf Union(a:A,b:B)} denotes the class of objects which are either members of domain {\\em A} or of domain {\\em B}. ") ;Y := '"The symbols {\em a} and {\em b} are called _"tags_" and are used to identify the two _"branches_" of the union. " (SPADLET Y - (MAKESTRING - "The symbols {\\em a} and {\\em b} are called \"tags\" and are used to identify the two \"branches\" of the union. ")) + "The symbols {\\em a} and {\\em b} are called \"tags\" and are used to identify the two \"branches\" of the union. ") ;Z := '"The {\sf Union} constructor can take any number of arguments and has an alternate form without {\em tags} (see \downlink{Union(A,B)}{UntaggedUnion}). " (SPADLET Z - (MAKESTRING - "The {\\sf Union} constructor can take any number of arguments and has an alternate form without {\\em tags} (see \\downlink{Union(A,B)}{UntaggedUnion}). ")) + "The {\\sf Union} constructor can take any number of arguments and has an alternate form without {\\em tags} (see \\downlink{Union(A,B)}{UntaggedUnion}). ") ;W := '"This tagged {\sf Union} type is necessary, for example, to disambiguate two branches of a union where {\em A} and {\em B} denote the same type. " (SPADLET W - (MAKESTRING - "This tagged {\\sf Union} type is necessary, for example, to disambiguate two branches of a union where {\\em A} and {\\em B} denote the same type. ")) + "This tagged {\\sf Union} type is necessary, for example, to disambiguate two branches of a union where {\\em A} and {\\em B} denote the same type. ") ;A := '"{\sf Union} is a primitive domain of \Language{} which cannot be defined in the \Language{} language." (SPADLET A - (MAKESTRING - "{\\sf Union} is a primitive domain of \\Language{} which cannot be defined in the \\Language{} language.")) + "{\\sf Union} is a primitive domain of \\Language{} which cannot be defined in the \\Language{} language.") ;MESSAGE := STRCONC(X,Y,Z,W,A) @@ -4382,20 +4339,17 @@ ;X := '"{\sf Mapping(T,S,...)} denotes the class of objects which are mappings from a source domain ({\em S,...}) into a target domain {\em T}. The {\sf Mapping} constructor can take any number of arguments." (SPADLET X - (MAKESTRING - "{\\sf Mapping(T,S,...)} denotes the class of objects which are mappings from a source domain ({\\em S,...}) into a target domain {\\em T}. The {\\sf Mapping} constructor can take any number of arguments.")) + "{\\sf Mapping(T,S,...)} denotes the class of objects which are mappings from a source domain ({\\em S,...}) into a target domain {\\em T}. The {\\sf Mapping} constructor can take any number of arguments.") ;Y := '" All but the first argument is regarded as part of a source tuple for the mapping. For example, {\sf Mapping(T,A,B)} denotes the class of mappings from {\em (A,B)} into {\em T}. " (SPADLET Y - (MAKESTRING - " All but the first argument is regarded as part of a source tuple for the mapping. For example, {\\sf Mapping(T,A,B)} denotes the class of mappings from {\\em (A,B)} into {\\em T}. ")) + " All but the first argument is regarded as part of a source tuple for the mapping. For example, {\\sf Mapping(T,A,B)} denotes the class of mappings from {\\em (A,B)} into {\\em T}. ") ;Z := '"{\sf Mapping} is a primitive domain of \Language{} which cannot be defined in the \Language{} language." (SPADLET Z - (MAKESTRING - "{\\sf Mapping} is a primitive domain of \\Language{} which cannot be defined in the \\Language{} language.")) + "{\\sf Mapping} is a primitive domain of \\Language{} which cannot be defined in the \\Language{} language.") ;MESSAGE := STRCONC(X,Y,Z) @@ -4416,14 +4370,12 @@ ;X := '"{\em Enumeration(a1, a2 ,..., aN)} creates an object which is exactly one of the N symbols {\em a1}, {\em a2}, ..., or {\em aN}, N > 0. " (SPADLET X - (MAKESTRING - "{\\em Enumeration(a1, a2 ,..., aN)} creates an object which is exactly one of the N symbols {\\em a1}, {\\em a2}, ..., or {\\em aN}, N > 0. ")) + "{\\em Enumeration(a1, a2 ,..., aN)} creates an object which is exactly one of the N symbols {\\em a1}, {\\em a2}, ..., or {\\em aN}, N > 0. ") ;Y := '" The {\em Enumeration} can constructor can take any number of symbols as arguments." (SPADLET Y - (MAKESTRING - " The {\\em Enumeration} can constructor can take any number of symbols as arguments.")) + " The {\\em Enumeration} can constructor can take any number of symbols as arguments.") ;MESSAGE := STRCONC(X, Y) @@ -4508,7 +4460,7 @@ (PROG (|str| |c| |n| |segment|) (RETURN (SEQ (PROGN - (SPADLET |str| (MAKESTRING "")) + (SPADLET |str| "") (DO ((G168025 (MAXINDEX |s|)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G168025) NIL) (SEQ (EXIT (PROGN @@ -4621,57 +4573,54 @@ (SPADLET |$CatLst| NIL) (SPADLET |$PakLst| NIL) (SPADLET |$DefLst| NIL) - (|deleteFile| (MAKESTRING "temp.text")) + (|deleteFile| "temp.text") (SPADLET |$outStream| - (MAKE-OUTSTREAM (MAKESTRING "temp.text"))) + (MAKE-OUTSTREAM "temp.text")) (COND ((NULL |domainList|) (SPADLET |comments| - (MAKESTRING - "\\spad{Union(A,B,...,C)} is a primitive type in AXIOM used to represent objects of type \\spad{A} or of type \\spad{B} or...or of type \\spad{C}.")) + "\\spad{Union(A,B,...,C)} is a primitive type in AXIOM used to represent objects of type \\spad{A} or of type \\spad{B} or...or of type \\spad{C}.") (|writedb| (|buildLibdbString| - (CONS (MAKESTRING "dUnion") + (CONS "dUnion" (CONS 1 - (CONS (MAKESTRING "x") - (CONS (MAKESTRING "special") - (CONS (MAKESTRING "(A,B,...,C)") + (CONS "x" + (CONS "special" + (CONS "(A,B,...,C)" (CONS 'UNION (CONS |comments| NIL))))))))) (SPADLET |comments| - (MAKESTRING - "\\spad{Record(a:A,b:B,...,c:C)} is a primitive type in AXIOM used to represent composite objects made up of objects of type \\spad{A}, \\spad{B},..., \\spad{C} which are indexed by \"keys\" (identifiers) \\spad{a},\\spad{b},...,\\spad{c}.")) + "\\spad{Record(a:A,b:B,...,c:C)} is a primitive type in AXIOM used to represent composite objects made up of objects of type \\spad{A}, \\spad{B},..., \\spad{C} which are indexed by \"keys\" (identifiers) \\spad{a},\\spad{b},...,\\spad{c}.") (|writedb| (|buildLibdbString| - (CONS (MAKESTRING "dRecord") + (CONS "dRecord" (CONS 1 - (CONS (MAKESTRING "x") - (CONS (MAKESTRING "special") + (CONS "x" + (CONS "special" (CONS - (MAKESTRING "(a:A,b:B,...,c:C)") + "(a:A,b:B,...,c:C)" (CONS 'RECORD (CONS |comments| NIL))))))))) (SPADLET |comments| - (MAKESTRING "\\spad{Mapping(T,S)} is a primitive type in AXIOM used to represent mappings from source type \\spad{S} to target type \\spad{T}. Similarly, \\spad{Mapping(T,A,B)} denotes a mapping from source type \\spad{(A,B)} to target type \\spad{T}.")) + "\\spad{Mapping(T,S)} is a primitive type in AXIOM used to represent mappings from source type \\spad{S} to target type \\spad{T}. Similarly, \\spad{Mapping(T,A,B)} denotes a mapping from source type \\spad{(A,B)} to target type \\spad{T}.") (|writedb| (|buildLibdbString| - (CONS (MAKESTRING "dMapping") + (CONS "dMapping" (CONS 1 - (CONS (MAKESTRING "x") - (CONS (MAKESTRING "special") - (CONS (MAKESTRING "(T,S)") + (CONS "x" + (CONS "special" + (CONS "(T,S)" (CONS 'MAPPING (CONS |comments| NIL))))))))) (SPADLET |comments| - (MAKESTRING - "\\spad{Enumeration(a,b,...,c)} is a primitive type in AXIOM used to represent the object composed of the symbols \\spad{a},\\spad{b},..., and \\spad{c}.")) + "\\spad{Enumeration(a,b,...,c)} is a primitive type in AXIOM used to represent the object composed of the symbols \\spad{a},\\spad{b},..., and \\spad{c}.") (|writedb| (|buildLibdbString| - (CONS (MAKESTRING "dEnumeration") + (CONS "dEnumeration" (CONS 1 - (CONS (MAKESTRING "x") - (CONS (MAKESTRING "special") - (CONS (MAKESTRING "(a,b,...,c)") + (CONS "x" + (CONS "special" + (CONS "(a,b,...,c)" (CONS 'ENUM (CONS |comments| NIL))))))))))) (SPADLET |$conname| NIL) @@ -4701,17 +4650,14 @@ ('T (OBEY (COND ((BOOT-EQUAL |$machineType| 'RIOS) - (MAKESTRING - "sort -f -T /tmp -y200 \"temp.text\" > \"libdb.text\"")) + "sort -f -T /tmp -y200 \"temp.text\" > \"libdb.text\"") ((BOOT-EQUAL |$machineType| 'SPARC) - (MAKESTRING - "sort -f \"temp.text\" > \"libdb.text\"")) + "sort -f \"temp.text\" > \"libdb.text\"") ('T - (MAKESTRING - "sort \"temp.text\" > \"libdb.text\"")))) - (RENAME-FILE (MAKESTRING "libdb.text") - (MAKESTRING "olibdb.text")) - (|deleteFile| (MAKESTRING "temp.text"))))))))) + "sort \"temp.text\" > \"libdb.text\""))) + (RENAME-FILE "libdb.text" + "olibdb.text") + (|deleteFile| "temp.text")))))))) ;buildLibdbConEntry conname == ; NULL GETDATABASE(conname, 'CONSTRUCTORMODEMAP) => nil @@ -4759,8 +4705,8 @@ (SPADLET |$exposed?| (COND ((|isExposedConstructor| |conname|) - (MAKESTRING "x")) - ('T (MAKESTRING "n")))) + "x") + ('T "n"))) (SPADLET |$doc| (GETDATABASE |conname| 'DOCUMENTATION)) (SPADLET |pname| (PNAME |conname|)) (SPADLET |kind| (GETDATABASE |conname| 'CONSTRUCTORKIND)) @@ -4809,7 +4755,7 @@ (SPADLET |r| (QCDR |ISTMP#2|)) 'T))))) (|libdbTrim| (|concatWithBlanks| |r|))) - ('T (MAKESTRING "")))) + ('T ""))) (SPADLET |argpart| (SUBSTRING (|form2HtString| (CONS '|f| |argl|)) 1 NIL)) @@ -4850,7 +4796,7 @@ G168204) (SEQ (EXIT (SETQ G168204 (STRCONC G168204 - (STRCONC (MAKESTRING "`") + (STRCONC "`" (STRINGIMAGE |y|))))))))))))))) ;libConstructorSig [conname,:argl] == @@ -4993,7 +4939,7 @@ (COND ((NULL (|ncParseFromString| |sigpart|)) (|sayBrightly| - (CONS (MAKESTRING "Won't parse: ") + (CONS "Won't parse: " (CONS |sigpart| NIL))))) |sigpart|))))) @@ -5013,10 +4959,10 @@ (SPADLET |tail| (QCDR |r|)) 'T)) (COND - (|tail| (STRCONC |head| (MAKESTRING " ") + (|tail| (STRCONC |head| " " (|concatWithBlanks| |tail|))) ('T |head|))) - ('T (MAKESTRING "")))))) + ('T ""))))) ;writedb(u) == ; not STRINGP u => nil --skip if not a string @@ -5041,7 +4987,7 @@ ((> (|#| |s|) |n|) (STRCONC (SUBSTRING |s| 0 |n|) (|addPatchesToLongLines| - (STRCONC (MAKESTRING "--") (SUBSTRING |s| |n| NIL)) + (STRCONC "--" (SUBSTRING |s| |n| NIL)) |n|))) ('T |s|))) @@ -5101,17 +5047,17 @@ (|form2LispString| (CONS '|Mapping| |nsig|))) (SPADLET |predString| (COND - ((BOOT-EQUAL |pred| 'T) (MAKESTRING "")) + ((BOOT-EQUAL |pred| 'T) "") ('T (|form2LispString| |pred|)))) (SPADLET |sop| (COND ((BOOT-EQUAL (SPADLET |s| (STRINGIMAGE |op|)) - (MAKESTRING "One")) - (MAKESTRING "1")) - ((BOOT-EQUAL |s| (MAKESTRING "Zero")) - (MAKESTRING "0")) + "One") + "1") + ((BOOT-EQUAL |s| "Zero") + "0") ('T |s|))) - (SPADLET |header| (STRCONC (MAKESTRING "o") |sop|)) + (SPADLET |header| (STRCONC "o" |sop|)) (SPADLET |conform| (STRCONC |$kind| (|form2LispString| |$conform|))) (SPADLET |comments| @@ -5198,26 +5144,24 @@ (COND ((BOOT-EQUAL |kind| '|attribute|) (CONS |sop| - (CONS (MAKESTRING "(") + (CONS "(" (CONS |sigpart| - (CONS (MAKESTRING ")") NIL))))) + (CONS ")" NIL))))) ('T (CONS |sop| - (CONS (MAKESTRING ": ") + (CONS ": " (CONS |sigpart| NIL)))))) (|sayBrightly| - (CONS (MAKESTRING "(") + (CONS "(" (CONS |$conname| - (CONS (MAKESTRING - " documentation) missing left brace--> ") + (CONS " documentation) missing left brace--> " |tail|)))))) (COND ((> |count| 0) (|sayBrightly| - (CONS (MAKESTRING "(") + (CONS "(" (CONS |$conname| - (CONS (MAKESTRING - " documentation) missing right brace--> ") + (CONS " documentation) missing right brace--> " |tail|)))))) (COND ((OR (NEQUAL |count| 0) |missingLeft|) @@ -5263,7 +5207,7 @@ (RETURN (PROGN (SPADLET |header| - (STRCONC (MAKESTRING "a") (STRINGIMAGE |name|))) + (STRCONC "a" (STRINGIMAGE |name|))) (SPADLET |argPart| (SUBSTRING (|form2LispString| (CONS '|f| |argl|)) 1 NIL)) @@ -5272,10 +5216,10 @@ |pred|)) (SPADLET |predString| (COND - ((BOOT-EQUAL |pred| 'T) (MAKESTRING "")) + ((BOOT-EQUAL |pred| 'T) "") ('T (|form2LispString| |pred|)))) (SPADLET |header| - (STRCONC (MAKESTRING "a") (STRINGIMAGE |name|))) + (STRCONC "a" (STRINGIMAGE |name|))) (SPADLET |conname| (STRCONC |$kind| (|form2LispString| |$conname|))) (SPADLET |comments| @@ -5314,7 +5258,7 @@ (RETURN (SEQ (PROGN (SPADLET |instream| - (MAKE-INSTREAM (MAKESTRING "libdb.text"))) + (MAKE-INSTREAM "libdb.text")) (DO () ((NULL (NULL (EOFP |instream|))) NIL) (SEQ (EXIT (PROGN (SPADLET |fp| (FILE-POSITION |instream|)) @@ -5358,12 +5302,12 @@ (SPADLET |abb| (|constructor?| |conname|)) (SPADLET |ucname| (UPCASE (STRINGIMAGE |abb|))) (SPADLET |pathname| - (STRCONC (|getEnv| (MAKESTRING "AXIOM")) - (MAKESTRING "/doc/hypertex/pages/") |ucname| - (MAKESTRING ".ht"))) + (STRCONC (|getEnv| "AXIOM") + "/doc/hypertex/pages/" |ucname| + ".ht")) (COND ((|isExistingFile| |pathname|) - (INTERN (STRCONC |sname| (MAKESTRING "XmpPage")))) + (INTERN (STRCONC |sname| "XmpPage"))) ('T NIL)))))) ;dbRead(n) == @@ -5379,8 +5323,8 @@ (PROGN (SPADLET |instream| (MAKE-INSTREAM - (STRCONC (|getEnv| (MAKESTRING "AXIOM")) - (MAKESTRING "/algebra/libdb.text")))) + (STRCONC (|getEnv| "AXIOM") + "/algebra/libdb.text"))) (FILE-POSITION |instream| |n|) (SPADLET |line| (READLINE |instream|)) (SHUT |instream|) @@ -5404,12 +5348,12 @@ (PROG (|instream| |line| |x| |k| |j| |xtralines|) (RETURN (SEQ (COND - ((EQL |n| 0) (MAKESTRING "")) + ((EQL |n| 0) "") ('T (SPADLET |instream| (MAKE-INSTREAM - (STRCONC (|getEnv| (MAKESTRING "AXIOM")) - (MAKESTRING "/algebra/comdb.text")))) + (STRCONC (|getEnv| "AXIOM") + "/algebra/comdb.text"))) (FILE-POSITION |instream| |n|) (SPADLET |line| (READLINE |instream|)) (SPADLET |k| (|dbTickIndex| |line| 1 1)) @@ -5488,14 +5432,14 @@ (RETURN (SEQ (PROGN (SPADLET |instream| - (MAKE-INSTREAM (MAKESTRING "olibdb.text"))) + (MAKE-INSTREAM "olibdb.text")) (SPADLET |outstream| - (MAKE-OUTSTREAM (MAKESTRING "libdb.text"))) + (MAKE-OUTSTREAM "libdb.text")) (SPADLET |comstream| - (MAKE-OUTSTREAM (MAKESTRING "comdb.text"))) + (MAKE-OUTSTREAM "comdb.text")) (PRINTEXP 0 |comstream|) (PRINTEXP |$tick| |comstream|) - (PRINTEXP (MAKESTRING "") |comstream|) + (PRINTEXP "" |comstream|) (TERPRI |comstream|) (DO () ((NULL (NULL (EOFP |instream|))) NIL) (SEQ (EXIT (PROGN @@ -5536,7 +5480,7 @@ (SHUT |instream|) (SHUT |outstream|) (SHUT |comstream|) - (OBEY (MAKESTRING "rm olibdb.text"))))))) + (OBEY "rm olibdb.text")))))) ;dbSplit(line,n,k) == ; k := charPosition($tick,line,k + 1) @@ -5566,7 +5510,7 @@ (PROG (|k| |u|) (RETURN (COND - ((BOOT-EQUAL |line| (MAKESTRING "")) NIL) + ((BOOT-EQUAL |line| "") NIL) ('T (SPADLET |k| (|charPosition| (|char| '-) |line| (PLUS |n| 2))) (COND @@ -5645,25 +5589,24 @@ (SPADLET |$constructorName| NIL) (SPADLET |$exposeFlag| 'T) (SPADLET |$outStream| - (MAKE-OUTSTREAM (MAKESTRING "temp.text"))) + (MAKE-OUTSTREAM "temp.text")) (SPADLET |$x| NIL) (SPADLET |$attribute?| 'T) (SPADLET |pathname| - (STRCONC (|getEnv| (MAKESTRING "AXIOM")) - (MAKESTRING "/algebra/gloss.text"))) + (STRCONC (|getEnv| "AXIOM") + "/algebra/gloss.text")) (SPADLET |instream| (MAKE-INSTREAM |pathname|)) - (SPADLET |keypath| (MAKESTRING "glosskey.text")) - (OBEY (STRCONC (MAKESTRING "rm -f ") |keypath|)) + (SPADLET |keypath| "glosskey.text") + (OBEY (STRCONC "rm -f " |keypath|)) (SPADLET |outstream| (MAKE-OUTSTREAM |keypath|)) - (SPADLET |htpath| (MAKESTRING "gloss.ht")) - (OBEY (STRCONC (MAKESTRING "rm -f ") |htpath|)) + (SPADLET |htpath| "gloss.ht") + (OBEY (STRCONC "rm -f " |htpath|)) (SPADLET |htstream| (MAKE-OUTSTREAM |htpath|)) - (SPADLET |defpath| (MAKESTRING "glossdef.text")) + (SPADLET |defpath| "glossdef.text") (SPADLET |defstream| (MAKE-OUTSTREAM |defpath|)) (SPADLET |pairs| (|getGlossLines| |instream|)) (PRINTEXP - (MAKESTRING - "\\begin{page}{GlossaryPage}{G l o s s a r y}\\beginscroll\\beginmenu") + "\\begin{page}{GlossaryPage}{G l o s s a r y}\\beginscroll\\beginmenu" |htstream|) (DO ((G168653 |pairs| (CDR G168653)) (G168626 NIL)) ((OR (ATOM G168653) @@ -5689,11 +5632,10 @@ (PRINTEXP |defP| |outstream|) (TERPRI |outstream|) (PRINTEXP - (MAKESTRING - "\\item\\newline{\\em \\menuitemstyle{}}{\\em ") + "\\item\\newline{\\em \\menuitemstyle{}}{\\em " |htstream|) (PRINTEXP |name| |htstream|) - (PRINTEXP (MAKESTRING "}\\space{}") + (PRINTEXP "}\\space{}" |htstream|) (TERPRI |htstream|) (DO ((G168667 |lines| (CDR G168667)) @@ -5729,12 +5671,11 @@ (STRCONC G168673 G168623))))))) |htstream|) (TERPRI |htstream|))))) - (PRINTEXP (MAKESTRING "\\endmenu\\endscroll") |htstream|) + (PRINTEXP "\\endmenu\\endscroll" |htstream|) (PRINTEXP - (MAKESTRING - "\\lispdownlink{Search}{(|htGloss| \"\\stringvalue{pattern}\")} for glossary entry matching \\inputstring{pattern}{24}{*}") + "\\lispdownlink{Search}{(|htGloss| \"\\stringvalue{pattern}\")} for glossary entry matching \\inputstring{pattern}{24}{*}" |htstream|) - (PRINTEXP (MAKESTRING "\\end{page}") |htstream|) + (PRINTEXP "\\end{page}" |htstream|) (SHUT |instream|) (SHUT |outstream|) (SHUT |defstream|) @@ -5756,7 +5697,7 @@ (DEFUN |spreadGlossText| (|line|) (COND - ((BOOT-EQUAL |line| (MAKESTRING "")) NIL) + ((BOOT-EQUAL |line| "") NIL) ((> (MAXINDEX |line|) 500) (CONS (SUBSTRING |line| 0 500) (|spreadGlossText| (SUBSTRING |line| 500 NIL)))) @@ -5817,17 +5758,16 @@ ((EQL (|#| |last|) 0) (COND (|lastLineHadTick| - (MAKESTRING "")) + "") ('T - (MAKESTRING - "\\blankline ")))) + "\\blankline "))) ((AND (> (|#| |last|) 0) (NEQUAL (ELT |last| (MAXINDEX |last|)) |$charBlank|)) |$charBlank|) - ('T (MAKESTRING "")))) + ('T ""))) (SPADLET |lastLineHadTick| NIL) (SPADLET |text| (CONS @@ -5965,7 +5905,7 @@ (SPADLET |pakname| (INTERN (STRCONC (PNAME |catAncestor|) - (MAKESTRING "&")))) + "&"))) (COND ((|getCDTEntry| |pakname| 'T) (SPADLET |acc| (CONS |pakname| |acc|)))) @@ -6248,7 +6188,7 @@ (IF (BOOT-EQUAL |x| '$$) (EXIT '$$)) (IF (STRINGP |x|) (EXIT |x|)) (EXIT (|systemError| - (MAKESTRING "bad argument in template"))))))) + "bad argument in template")))))) (DEFUN |getImports| (|conname|) (PROG (|conform| |infovec| |template| |ISTMP#1| |op| |u|) @@ -7370,20 +7310,20 @@ ('T (|buildLibdb| |conlist|) (SPADLET |$newConstructorList| (|union| |conlist| |$newConstructorList|)) - (SPADLET |localLibdb| (MAKESTRING "libdb.text")) + (SPADLET |localLibdb| "libdb.text") (COND - ((NULL (PROBE-FILE (MAKESTRING "libdb.text"))) - (RENAME-FILE (MAKESTRING "temp.text") - (MAKESTRING "libdb.text"))) + ((NULL (PROBE-FILE "libdb.text")) + (RENAME-FILE "temp.text" + "libdb.text")) ('T (SPADLET |oldlines| (|purgeNewConstructorLines| (|dbReadLines| |localLibdb|) |conlist|)) (SPADLET |newlines| - (|dbReadLines| (MAKESTRING "temp.text"))) + (|dbReadLines| "temp.text")) (|dbWriteLines| (MSORT (|union| |oldlines| |newlines|)) - (MAKESTRING "libdb.text")) - (|deleteFile| (MAKESTRING "temp.text"))))))))) + "libdb.text") + (|deleteFile| "temp.text")))))))) ;$returnNowhereFromGoGet := false @@ -7459,8 +7399,7 @@ (RETURN (SEQ (PROGN (|sayBrightly| - (MAKESTRING - "-------------Operation summary-----------------")) + "-------------Operation summary-----------------") (SPADLET |missingOnlyFlag| (KAR |options|)) (SPADLET |domainForm| (|devaluate| |dom|)) (SPADLET |nam| (CAR |domainForm|)) @@ -7494,15 +7433,13 @@ (|sayBrightly| (COND (|nowheres| - (CONS (MAKESTRING - "Functions exported but not implemented by") + (CONS "Functions exported but not implemented by" (APPEND (|bright| (|form2String| |domainForm|)) - (CONS (MAKESTRING ":") NIL)))) + (CONS ":" NIL)))) ('T (APPEND (|bright| (|form2String| |domainForm|)) - (CONS (MAKESTRING - "implements all exported operations") + (CONS "implements all exported operations" NIL))))) (|showDomainsOp1| |nowheres| '|nowhere|) (COND @@ -7523,13 +7460,13 @@ (APPEND (|bright| (|form2String| |key|)) - (CONS (MAKESTRING ":") NIL)))) + (CONS ":" NIL)))) ('T (CONS '|Functions implemented by| (APPEND (|bright| (|form2String| |key|)) - (CONS (MAKESTRING ":") NIL)))))) + (CONS ":" NIL)))))) (SPADLET |u| (|showDomainsOp1| |u| |key|)))))) (SPADLET |u| (SORTBY 'CDDR |defexports|)) @@ -7547,12 +7484,11 @@ (CONS |defop| (CDDR |key|))) (|sayBrightly| (CONS - (MAKESTRING - "Default functions from") + "Default functions from" (APPEND (|bright| (|form2String| |domainForm|)) - (CONS (MAKESTRING ":") NIL)))) + (CONS ":" NIL)))) (SPADLET |u| (|showDomainsOp1| |u| |key|)))))) (SPADLET |u| (SORTBY 'CDDR |unexports|)) @@ -7561,7 +7497,7 @@ (SPADLET |LETTMP#1| (CAR |u|)) (SPADLET |key| (CDDR |LETTMP#1|)) (|sayBrightly| - (CONS (MAKESTRING "Not exported: ") + (CONS "Not exported: " NIL)) (SPADLET |u| (|showDomainsOp1| |u| |key|))))))))))))) @@ -7629,9 +7565,9 @@ NIL) (SEQ (EXIT (PROGN (|sayBrightly| - (|concat| (MAKESTRING "From ") + (|concat| "From " (|form2String| |conform|) - (MAKESTRING ":"))) + ":")) (DO ((G169967 |l| (CDR G169967)) (G169924 NIL)) ((OR (ATOM G169967) @@ -7648,7 +7584,7 @@ NIL) (SEQ (EXIT (|sayBrightly| - (CONS (MAKESTRING " ") + (CONS " " (|formatOpSignature| |op| |sig|))))))))))))))) ;--======================================================================= @@ -7999,7 +7935,7 @@ NIL) (SEQ (EXIT (PROGN (|sayBrightly| - (CONS (MAKESTRING " ") + (CONS " " (|formatOpSignature| |op| |sig|))) (SPADLET |u| (CDR |u|)))))) |u|))))) @@ -8080,8 +8016,7 @@ (RETURN (SEQ (PROGN (|sayBrightly| - (MAKESTRING - "--------------------Predicate summary-------------------")) + "--------------------Predicate summary-------------------") (SPADLET |conname| (CAR (ELT |dom| 0))) (SPADLET |predvector| (ELT |dom| 3)) (SPADLET |predicateList| @@ -8097,8 +8032,8 @@ (COND ((|testBitVector| |predvector| |i|) - (MAKESTRING "true : ")) - ('T (MAKESTRING "false: ")))) + "true : ") + ('T "false: "))) (|sayBrightly| (CONS |prefix| (|pred2English| |p|)))))))))))) @@ -8119,8 +8054,7 @@ (RETURN (SEQ (PROGN (|sayBrightly| - (MAKESTRING - "--------------------Attribute summary-------------------")) + "--------------------Attribute summary-------------------") (SPADLET |conname| (CAR (ELT |dom| 0))) (SPADLET |abb| (|getConstructorAbbreviation| |conname|)) (SPADLET |predvector| (ELT |dom| 3)) @@ -8140,8 +8074,8 @@ (COND ((|testBitVector| |predvector| |p|) - (MAKESTRING "true : ")) - ('T (MAKESTRING "false: ")))) + "true : ") + ('T "false: "))) (|sayBrightly| (|concat| |prefix| (|form2String| |a|)))))))))))) @@ -8222,7 +8156,7 @@ |whereNumber|)))) (|sayBrightly| (CONS |i| - (CONS (MAKESTRING ": ") + (CONS ": " (APPEND (|formatOpSignature| |op| |signumList|) @@ -8347,7 +8281,7 @@ ((STRINGP |x|) (NEQUAL (|dbPart| |x| 2 1) - (MAKESTRING "0"))) + "0")) ('T (KAR |x|))))))))))))))))))))) ;--============================================================================ @@ -8407,14 +8341,14 @@ (OR (|htpProperty| |htPage| '|key|) '|names|)))) (SPADLET |opAlist| (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))) (COND ((BOOT-EQUAL |key| '|generalise|) (SPADLET |arg| (STRINGIMAGE (CAAR |opAlist|))) (COND - ((BOOT-EQUAL |which| (MAKESTRING "attribute")) + ((BOOT-EQUAL |which| "attribute") (|aPage| |arg|)) ('T (|oPage| |arg|)))) ((BOOT-EQUAL |key| '|allDomains|) @@ -8455,7 +8389,7 @@ (|htInitPageNoScroll| (|htCopyProplist| |htPage|))) (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (|htpSetProperty| |htPage| '|opAlist| |opAlist|)) ('T @@ -8501,7 +8435,7 @@ |opAlist|) ('T (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| - (MAKESTRING "operation") 'T NIL) + "operation" 'T NIL) (SPADLET |bitNumber| (HGET |$topicHash| |$groupChoice|)) (SPADLET |res| (PROG (G170603) @@ -8706,7 +8640,7 @@ (|htInitPageNoScroll| (|htCopyProplist| |htPage|))) (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (|htpSetProperty| |htPage| '|opAlist| |opAlist|)) ('T (|htpSetProperty| |htPage| '|attrAlist| @@ -8835,7 +8769,7 @@ ((COND ((AND (BOOT-EQUAL |what| - (MAKESTRING "Name")) + "Name") |$exposedOnlyIfTrue|) (ATOM |x|)) ('T 'T)) @@ -8847,12 +8781,12 @@ (SPADLET |ops| (|escapeSpecialChars| (STRINGIMAGE (CAAR |opAlist|)))) - (CONS (MAKESTRING " {\\em ") + (CONS " {\\em " (CONS |ops| - (CONS (MAKESTRING "}") NIL)))) + (CONS "}" NIL)))) ('T NIL))) (COND - ((AND (BOOT-EQUAL |what| (MAKESTRING "Condition")) + ((AND (BOOT-EQUAL |what| "Condition") (NULL (KAR (KAR |data|)))) (SPADLET |dataCount| (SPADDIFFERENCE |dataCount| 1)))) (SPADLET |exposurePart| @@ -8862,7 +8796,7 @@ (SPADLET |firstPart| (COND ((EQL |opCount| 0) - (CONS (MAKESTRING "No ") + (CONS "No " (APPEND |exposurePart| (CONS (|pluralize| @@ -8877,7 +8811,7 @@ |namedPart|))) ('T (CONS (STRINGIMAGE |opCount|) - (CONS (MAKESTRING " ") + (CONS " " (APPEND |exposurePart| (CONS (|pluralize| @@ -8888,9 +8822,9 @@ (|pluralSay| |dataCount| |what| |whats|)) (APPEND |prefix| - (CONS (MAKESTRING " for ") + (CONS " for " (CONS (STRINGIMAGE |opCount|) - (CONS (MAKESTRING " ") + (CONS " " (CONS (|pluralize| (|capitalize| |which|)) @@ -8908,7 +8842,7 @@ ((SPADLET |u| (|htpProperty| |page| '|specialMessage|)) (APPLY (CAR |u|) (CDR |u|)))) - (|htSayStandard| (MAKESTRING "\\beginscroll ")) + (|htSayStandard| "\\beginscroll ") (FUNCALL |fn| |page| |opAlist| |which| |data|) (|dbOpsExposureMessage|) (|htSayStandard| '|\\endscroll |) @@ -8944,7 +8878,7 @@ ((OR (NULL |$exposedOnlyIfTrue|) (BOOT-EQUAL |which| - (MAKESTRING "attribute"))) + "attribute")) (|#| |items|)) ('T (PROG (G170814) @@ -8988,12 +8922,12 @@ (SPADLET |suffix| (COND ((BOOT-EQUAL |branch| '|parameters|) - (MAKESTRING " viewed with parameters")) + " viewed with parameters") ((BOOT-EQUAL |branch| '|origins|) - (MAKESTRING " organized by origins")) + " organized by origins") ((BOOT-EQUAL |branch| '|conditions|) - (MAKESTRING " organized by conditions")) - ('T (MAKESTRING "")))) + " organized by conditions") + ('T ""))) (APPEND |heading| (CONS |suffix| NIL)))))) ;dbOpsExposureMessage() == @@ -9003,7 +8937,7 @@ (declare (special |$atLeastOneUnexposed|)) (SEQ (COND (|$atLeastOneUnexposed| - (EXIT (|htSay| (MAKESTRING "{\\em *} = unexposed"))))))) + (EXIT (|htSay| "{\\em *} = unexposed")))))) ;fromHeading htPage == ; null htPage => '"" @@ -9032,11 +8966,11 @@ (declare (special |$pn|)) (RETURN (SEQ (COND - ((NULL |htPage|) (MAKESTRING "")) + ((NULL |htPage|) "") ('T (SPADLET |$pn| (CONS (ELT |htPage| 0) - (CONS (MAKESTRING "}{") NIL))) + (CONS "}{" NIL))) (COND ((SPADLET |updomain| (|htpProperty| |htPage| '|updomain|)) @@ -9046,15 +8980,14 @@ (SPADLET |dnFence| (|form2Fence| |dnForm|)) (SPADLET |upFence| (|form2Fence| |updomain|)) (SPADLET |upOp| (PNAME (|opOf| |updomain|))) - (CONS (MAKESTRING " {\\em from} ") + (CONS " {\\em from} " (APPEND (|dbConformGen| |dnForm|) - (CONS (MAKESTRING - " {\\em under} \\ops{") + (CONS " {\\em under} \\ops{" (CONS |upOp| - (CONS (MAKESTRING "}{") + (CONS "}{" (APPEND |$pn| (APPEND |upFence| - (CONS (MAKESTRING "}") NIL))))))))) + (CONS "}" NIL))))))))) ('T (SPADLET |domname| (|htpProperty| |htPage| '|domname|)) @@ -9082,7 +9015,7 @@ (CONS |x| G170850))))))))))) (COND ((KDR |domname|) - (CONS (MAKESTRING " {\\em from} ") + (CONS " {\\em from} " (|dbConformGen| |domname|))) ('T (|htpProperty| |htPage| '|fromHeading|))))))))))) @@ -9150,7 +9083,7 @@ (RETURN (SEQ (PROGN (SPADLET |exception| - (OR |exception| (MAKESTRING "%%%nothing%%%"))) + (OR |exception| "%%%nothing%%%")) (SPADLET |op1| (CAR |form|)) (SPADLET |args| (CDR |form|)) (SPADLET |op| @@ -9287,7 +9220,7 @@ (COND (|keyword| (CONS |keyword| - (CONS (MAKESTRING ": ") + (CONS ": " |res|))) ('T |res|))) G170961)))))))) @@ -9300,7 +9233,7 @@ (|special| (CONS |op| NIL)) ('T (APPLY |opFn| (CONS |form| NIL))))) (APPEND |head| - (CONS (MAKESTRING "(") + (CONS "(" (APPEND (CAR |sargl|) (APPEND (PROG (G170996) @@ -9322,7 +9255,7 @@ (SETQ G170996 (APPEND G170996 (CONS '|,| |y|)))))))) - (CONS (MAKESTRING ")") NIL)))))))))))))) + (CONS ")" NIL)))))))))))))) ;dbMapping2StringList [target,:sl] == ; null sl => target @@ -9365,13 +9298,13 @@ (SPADLET |sourcePart| (COND (|restPart| - (CONS (MAKESTRING "(") + (CONS "(" (APPEND (CAR |sl|) (APPEND |restPart| - (CONS (MAKESTRING ")") NIL))))) + (CONS ")" NIL))))) ('T (CAR |sl|)))) (APPEND |sourcePart| - (CONS (MAKESTRING " -> ") |target|))))))))) + (CONS " -> " |target|))))))))) ;dbOuttran form == ; if LISTP form then @@ -9480,10 +9413,10 @@ (CONS '|\\ops{| (APPEND (|conform2StringList| |form| #'|conname2StringList| #'|conformString| NIL) - (CONS (MAKESTRING "}{") + (CONS "}{" (APPEND |$pn| (APPEND (|form2Fence| |form|) - (CONS (MAKESTRING "}") NIL))))))) + (CONS "}" NIL))))))) ;dbConformGen form == dbConformGen1(form,true) @@ -9654,7 +9587,7 @@ (SPADLET |opAlist| (COND ((BOOT-EQUAL |which| - (MAKESTRING "operation")) + "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))))) @@ -9664,8 +9597,7 @@ ((AND |htPage| (|htpProperty| |htPage| '|conform|) (NEQUAL |which| - (MAKESTRING - "package operation"))) + "package operation")) 'T) ('T NIL))) (DO ((G171198 |opAlist| (CDR G171198)) @@ -9902,7 +9834,7 @@ (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) (SPADLET |domainForm| (|htpProperty| |htPage| '|domname|)) (SPADLET |dom| (EVAL |domainForm|)) - (SPADLET |which| (MAKESTRING "operation")) + (SPADLET |which| "operation") (SPADLET |nam| (CAR |domainForm|)) (SPADLET |$domainArgs| (CDR |domainForm|)) (SPADLET |$predicateList| (GETDATABASE |nam| 'PREDICATES)) @@ -10004,7 +9936,7 @@ (|dbReduceByForm| |opAlist| (CAR |data|))) ('T (|systemError| - (CONS (MAKESTRING "Unexpected branch: ") (CONS |branch| NIL)))))) + (CONS "Unexpected branch: " (CONS |branch| NIL)))))) ;dbReduceByOpSignature(opAlist,datalist) == ;--reduces opAlist by implementation datalist, one of the form @@ -10288,7 +10220,7 @@ (PROGN (SPADLET |sig| (CAR G171613)) (COND - ((BOOT-EQUAL |$which| (MAKESTRING "attribute")) + ((BOOT-EQUAL |$which| "attribute") (CONS |op| (CONS |sig| NIL))) ('T (|dbMakeContrivedForm| |op| |sig|))))))) @@ -10343,10 +10275,9 @@ (SPADLET |ops| (|escapeSpecialChars| (STRINGIMAGE (CAAR |opAlist|)))) - (|htSayStandard| (MAKESTRING "Select a view below")) + (|htSayStandard| "Select a view below") (|htSaySaturn| - (MAKESTRING - "Select a view with the right mouse button"))) + "Select a view with the right mouse button")) ('T (SPADLET |exposedOnly?| (AND |$exposedOnlyIfTrue| @@ -10386,7 +10317,7 @@ (SEQ (EXIT (PROGN (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "&")))) + ('T (|htSaySaturn| "&"))) (COND ((ATOM |item|) (SPADLET |op| |item|) (SPADLET |exposeFlag| 'T)) @@ -10399,20 +10330,20 @@ (COND ((OR |exposeFlag| (NULL |exposedOnly?|)) (PROGN - (|htSay| (MAKESTRING "{")) + (|htSay| "{") (|bcStarSpaceOp| |ops| |exposeFlag|) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS |ops| - (CONS (MAKESTRING "") + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS |i| NIL))))) NIL)) NIL)) - (|htSay| (MAKESTRING "}"))))))))) + (|htSay| "}")))))))) (|htEndTable|)))))) ;dbShowOpAllDomains(htPage,opAlist,which) == @@ -10568,9 +10499,9 @@ (|getConstructorForm| (CAR |pair|)))))) (|htpSetProperty| |htPage| '|cAlist| |cAlist|) (|htpSetProperty| |htPage| '|thing| - (MAKESTRING "constructor")) + "constructor") (|htpSetProperty| |htPage| '|specialHeading| - (MAKESTRING "hoho")) + "hoho") (|dbShowCons| |htPage| '|names|)))))) ;simpOrDumb(new,old) == @@ -10590,14 +10521,14 @@ (DEFUN |dbShowOpOrigins| (|htPage| |opAlist| |which| |data|) (|dbGatherThenShow| |htPage| |opAlist| |which| |data| 'T - (MAKESTRING "from") (|function| |bcStarConform|))) + "from" (|function| |bcStarConform|))) ;dbShowOpImplementations(htPage,opAlist,which,data) == ; dbGatherThenShow(htPage,opAlist,which,data,true,'"by",function bcStarConform) (DEFUN |dbShowOpImplementations| (|htPage| |opAlist| |which| |data|) (|dbGatherThenShow| |htPage| |opAlist| |which| |data| 'T - (MAKESTRING "by") (|function| |bcStarConform|))) + "by" (|function| |bcStarConform|))) ;dbShowOpConditions(htPage,opAlist,which,data) == ; dbGatherThenShow(htPage,opAlist,which,data,nil,nil,function bcPred) @@ -10626,8 +10557,8 @@ ((BOOT-EQUAL (ELT (SPADLET |s| (PNAME |conname|)) (MAXINDEX |s|)) '&) - (MAKESTRING "default package")) - ('T (MAKESTRING "domain")))) + "default package") + ('T "domain"))) ('T (PNAME |kind|))))))) ;dbShowOpSignatures(htPage,opAlist,which,data) == dbShowOpSigList(which,data,0) @@ -10681,17 +10612,17 @@ (SEQ (EXIT (PROGN (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "&")))) + ('T (|htSaySaturn| "&"))) (SPADLET |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) - (|htSay| (MAKESTRING "{")) + (|htSay| "{") (|htSayExpose| |ops| |exposureFlag|) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS |ops| - (CONS (MAKESTRING "") + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS |count| NIL))))) @@ -10699,16 +10630,16 @@ NIL)) (COND ((BOOT-EQUAL |which| - (MAKESTRING "attribute")) + "attribute") (|htSay| (|args2HtString| (AND |sig| (CONS |sig| NIL))))) - ('T (|htSay| (MAKESTRING ": ")) + ('T (|htSay| ": ") (COND ((BOOT-EQUAL |tail| 'ASCONST) (|bcConform| (CAR |sig|))) ('T (|bcConform| (CONS '|Mapping| |sig|)))))) - (|htSay| (MAKESTRING "}")) + (|htSay| "}") (SPADLET |count| (PLUS |count| 1)))))) (|htEndTable|) |count|))))) @@ -10765,7 +10696,7 @@ (SEQ (EXIT (PROGN (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "&")))) + ('T (|htSaySaturn| "&"))) (SPADLET |opform| (CAR |item|)) (SPADLET |exposeFlag| (CADR |item|)) (SPADLET |tail| (CDDR |item|)) @@ -10774,7 +10705,7 @@ (SPADLET |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) - (|htSay| (MAKESTRING "{")) + (|htSay| "{") (|htSayExpose| |ops| |exposeFlag|) (SPADLET |n| (|#| |opform|)) (|do| (COND @@ -10782,17 +10713,17 @@ (LASSOC '|Nud| (PROPLIST |op|))) (|dbShowOpParameterJump| |ops| |which| |count| |single?|) - (|htSay| (MAKESTRING " {\\em ") - (KAR |args|) (MAKESTRING "}"))) + (|htSay| " {\\em " + (KAR |args|) "}")) ((AND (EQL |n| 3) (LASSOC '|Led| (PROPLIST |op|))) - (|htSay| (MAKESTRING "{\\em ") - (KAR |args|) (MAKESTRING "} ")) + (|htSay| "{\\em " + (KAR |args|) "} ") (|dbShowOpParameterJump| |ops| |which| |count| |single?|) - (|htSay| (MAKESTRING " {\\em ") + (|htSay| " {\\em " (KAR (KDR |args|)) - (MAKESTRING "}"))) + "}")) ('T (|dbShowOpParameterJump| |ops| |which| |count| |single?|) @@ -10802,16 +10733,16 @@ (|member| |op| '(0 1)) (AND (BOOT-EQUAL |which| - (MAKESTRING "attribute")) + "attribute") (NULL (IFCAR |args|)))) '|skip|) - ('T (|htSay| (MAKESTRING "(")) + ('T (|htSay| "(") (COND ((IFCAR |args|) (|htSay| - (MAKESTRING "{\\em ") + "{\\em " (IFCAR |args|) - (MAKESTRING "}")))) + "}"))) (DO ((G171917 (IFCDR |args|) (CDR G171917)) @@ -10824,10 +10755,10 @@ (SEQ (EXIT (|htSay| - (MAKESTRING ",{\\em ") |x| - (MAKESTRING "}"))))) - (|htSay| (MAKESTRING ")"))))))) - (|htSay| (MAKESTRING "}")) + ",{\\em " |x| + "}")))) + (|htSay| ")")))))) + (|htSay| "}") (SPADLET |count| (PLUS |count| 1)))))) (|htEndTable|)))))) @@ -10837,12 +10768,12 @@ (DEFUN |dbShowOpParameterJump| (|ops| |which| |count| |single?|) (COND - (|single?| (|htSay| (MAKESTRING "{\\em ") |ops| (MAKESTRING "}"))) + (|single?| (|htSay| "{\\em " |ops| "}")) ('T (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS |ops| - (CONS (MAKESTRING "") + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS |count| NIL))))) @@ -10905,7 +10836,7 @@ (SPADLET |opAlist| (COND ((BOOT-EQUAL |which| - (MAKESTRING "operation")) + "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))))) (SPADLET |newWhich| @@ -10917,8 +10848,8 @@ '|conform|))) (COND ((BOOT-EQUAL |which| - (MAKESTRING "package operation")) - (MAKESTRING "operation")) + "package operation") + "operation") ('T |which|)))) (SPADLET |expand| (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| @@ -10941,7 +10872,7 @@ (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL))))))) - (|htSaySaturn| (MAKESTRING "\\begin{description}")) + (|htSaySaturn| "\\begin{description}") (DO ((G171988 |opAlist| (CDR G171988)) (G171965 NIL)) ((OR (ATOM G171988) @@ -10979,7 +10910,7 @@ (COND ((AND (NEQUAL |comments| - (MAKESTRING "")) + "") (STRINGP |comments|) (SPADLET |k| (|string2Integer| @@ -10987,7 +10918,7 @@ (SPADLET |comments| (COND ((MEMQ |k| '(0 1)) - (MAKESTRING "")) + "") ('T (|dbReadComments| |k|)))) @@ -11000,7 +10931,7 @@ ((AND (STRINGP |comments|) (NEQUAL |comments| - (MAKESTRING ""))) + "")) |comments|) ('T NIL))) (SPADLET |pred| @@ -11011,8 +10942,7 @@ ('T (PLUS |base| |j|)))) (COND ((BOOT-EQUAL |which| - (MAKESTRING - "package operation")) + "package operation") (SPADLET |sig| (MSUBST |conform| '$ |sig|)) @@ -11024,7 +10954,7 @@ |sig| |pred| |doc| |index| '|dbChooseDomainOp| (NULL |exposeFlag|) 'T)))))))))))) - (|htSaySaturn| (MAKESTRING "\\end{description}"))))))) + (|htSaySaturn| "\\end{description}")))))) ;dbChooseDomainOp(htPage,which,index) == ; [opKey,entryKey] := DIVIDE(index,8192) @@ -11051,7 +10981,7 @@ (SPADLET |entryKey| (CADR |LETTMP#1|)) (SPADLET |opAlist| (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))) (SPADLET |LETTMP#1| (ELT |opAlist| |opKey|)) @@ -11061,7 +10991,7 @@ (SPADLET |htPage| (|htInitPageNoScroll| (|htCopyProplist| |htPage|))) (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (|htpSetProperty| |htPage| '|opAlist| (CONS (CONS |op| (CONS |entry| NIL)) NIL))) ('T @@ -11087,9 +11017,9 @@ (COND (|flag| (|htBlank|)) ((BOOT-EQUAL (ELT |op| 0) (|char| '*)) - (|htSay| (MAKESTRING "{\\em *} "))) + (|htSay| "{\\em *} ")) ('T (|htSayUnexposed|)))) - ('T (|htSay| (MAKESTRING ""))))) + ('T (|htSay| "")))) ;--============================================================================ ;-- Branch-in From Other Places @@ -11171,34 +11101,34 @@ (SPADLET |exposePart| (COND ((|isExposedConstructor| (|opOf| |conform|)) - (MAKESTRING "")) - ('T (MAKESTRING " Unexposed ")))) + "") + ('T " Unexposed "))) (SPADLET |fromPart| (COND (|domform| (|evalableConstructor2HtString| |domform|)) ('T (|form2HtString| |conform|)))) (SPADLET |heading| - (CONS (MAKESTRING " from ") + (CONS " from " (CONS |exposePart| (CONS |kind| - (CONS (MAKESTRING " {\\em ") + (CONS " {\\em " (CONS |fromPart| - (CONS (MAKESTRING "}") NIL))))))) + (CONS "}" NIL))))))) (SPADLET |expandProperty| (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") '|expandOperations|) ('T '|expandAttributes|))) (|htpSetProperty| |htPage| |expandProperty| '|lists|) (|htpSetProperty| |htPage| '|fromHeading| |heading|) (SPADLET |reducedOpAlist| (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (|reduceByGroup| |htPage| |opAlist|)) ('T |opAlist|))) (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (|htpSetProperty| |htPage| '|principalOpAlist| |opAlist|) (|htpSetProperty| |htPage| '|opAlist| |reducedOpAlist|)) @@ -11360,18 +11290,18 @@ (|listSort| (|function| LEXLESSEQP) (NREVERSE |opAlist|))) (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (|htpSetProperty| |htPage| '|opAlist| |opAlist|)) ('T (|htpSetProperty| |htPage| '|attrAlist| |opAlist|))) (SPADLET |expandProperty| (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") '|expandOperations|) ('T '|expandAttributes|))) (|htpSetProperty| |htPage| |expandProperty| '|strings|) (|dbResetOpAlistCondition| |htPage| |which| |opAlist|) (COND - ((AND (BOOT-EQUAL |which| (MAKESTRING "attribute")) + ((AND (BOOT-EQUAL |which| "attribute") (BOUNDP '|$attributeArgs|) |$attributeArgs|) (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| |which| NIL NIL) @@ -11546,7 +11476,7 @@ (SPADLET |value| NIL) (SPADLET |expandProperty| (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") '|expandOperations|) ('T '|expandAttributes|))) (SPADLET |expandFlag| @@ -11613,7 +11543,7 @@ (|ncParseFromString| |sigs|)) (COND ((BOOT-EQUAL |which| - (MAKESTRING "operation")) + "operation") (COND ((NULL (AND (PAIRP |sig|) @@ -11621,11 +11551,10 @@ '|Mapping|))) (|sayBrightly| (CONS - (MAKESTRING - "Unexpected signature for ") + "Unexpected signature for " (CONS |name| (CONS - (MAKESTRING ": ") + ": " (CONS |sigs| NIL)))))) ('T (SPADLET |sig| @@ -11751,7 +11680,7 @@ (COND ((AND (NULL |doc|) (BOOT-EQUAL |which| - (MAKESTRING "attribute"))) + "attribute")) (SPADLET |doc| (|getRegistry| |op| |sig|)))) @@ -11810,7 +11739,7 @@ (SETQ G172408 (OR G172408 |y|)))))))))) (CADR |match|)) - ('T (MAKESTRING "")))))))) + ('T ""))))))) ;evalableConstructor2HtString domform == ; if VECP domform then domform := devaluate domform @@ -11986,7 +11915,7 @@ (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T)))) - (STRCONC (MAKESTRING "'") + (STRCONC "'" (PROG (G172582) (SPADLET G172582 "") (RETURN @@ -12074,10 +12003,10 @@ (EXIT (SETQ G172610 (STRCONC G172610 - (STRCONC (MAKESTRING ",") + (STRCONC "," (STRINGIMAGE |x|)))))))))) - (STRCONC (MAKESTRING "[") (STRINGIMAGE (CAR |arg|)) - |tailPart| (MAKESTRING "]"))) + (STRCONC "[" (STRINGIMAGE (CAR |arg|)) + |tailPart| "]")) ((AND (PAIRP |form|) (EQ (QCAR |form|) 'BRACKET) (PROGN (SPADLET |ISTMP#1| (QCDR |form|)) @@ -12119,9 +12048,9 @@ (EXIT (SETQ G172621 (STRCONC G172621 - (STRCONC (MAKESTRING ",") |x|))))))))) - (STRCONC (MAKESTRING "[") (CAR |arg|) |tailPart| - (MAKESTRING "]"))) + (STRCONC "," |x|))))))))) + (STRCONC "[" (CAR |arg|) |tailPart| + "]")) ((ATOM |form|) |form|) ('T (PROG (G172632) @@ -12464,7 +12393,7 @@ (EXIT NIL)))) (IF (BOOT-EQUAL |pred| 'T) (EXIT 'T)) (EXIT (|systemError| - (MAKESTRING "unknown atomic predicate form"))))))) + "unknown atomic predicate form")))))) (DEFUN |evalDomainOpPred,evpred| (|dom| |pred|) (PROG (|k|) @@ -12586,8 +12515,7 @@ |p|) NIL))))))) (EXIT (|systemError| - (MAKESTRING - "unknown predicate form")))))) + "unknown predicate form"))))) (IF (BOOT-EQUAL |pred| 'T) (EXIT 'T)) (EXIT (|systemError| NIL)))))) @@ -12651,23 +12579,23 @@ (SPADLET |kind| (QCAR |ISTMP#1|)) (SPADLET |r| (QCDR |ISTMP#1|)) 'T)))) - (|htSay| (MAKESTRING "a ") |kind| (MAKESTRING " ")) + (|htSay| "a " |kind| " ") (|htSayExplicitExports| |r|)) ((BOOT-EQUAL |key| '|is|) - (|htSay| (MAKESTRING "the domain ")) + (|htSay| "the domain ") (|bcConform| |u| 'T)) ('T (|htSay| (COND ((BOOT-EQUAL |key| '|is|) - (MAKESTRING "the domain ")) + "the domain ") ('T (SPADLET |kind| (GETDATABASE (|opOf| |u|) 'CONSTRUCTORKIND)) (COND ((BOOT-EQUAL |kind| '|domain|) - (MAKESTRING "an element of ")) - ('T (MAKESTRING "a domain of ")))))) + "an element of ") + ('T "a domain of "))))) (COND ((AND (PAIRP |u|) (EQ (QCAR |u|) '|Join|) (PROGN @@ -12685,7 +12613,7 @@ (SPADLET |middle| (NREVERSE |middle|)) 'T)))) (COND - ((CDR |middle|) (|htSay| (MAKESTRING "categories ")) + ((CDR |middle|) (|htSay| "categories ") (|bcConform| (CAR |middle|) 'T) (DO ((G172987 (CDR |middle|) (CDR G172987)) (|x| NIL)) @@ -12693,7 +12621,7 @@ (PROGN (SETQ |x| (CAR G172987)) NIL)) NIL) (SEQ (EXIT (PROGN - (|htSay| (MAKESTRING ", ")) + (|htSay| ", ") (|bcConform| |x| 'T))))) (COND ((AND (PAIRP |r|) (EQ (QCAR |r|) 'CATEGORY) @@ -12703,11 +12631,11 @@ (PROGN (SPADLET |r| (QCDR |ISTMP#1|)) 'T)))) - (|htSay| (MAKESTRING " and ")) + (|htSay| " and ") (|htSayExplicitExports| |r|)) - ('T (|htSay| (MAKESTRING " and ")) + ('T (|htSay| " and ") (|bcConform| |r| 'T)))) - ('T (|htSay| (MAKESTRING "category ")) + ('T (|htSay| "category ") (|bcConform| (CAR |middle|) 'T) (COND ((AND (PAIRP |r|) (EQ (QCAR |r|) 'CATEGORY) @@ -12717,11 +12645,11 @@ (PROGN (SPADLET |r| (QCDR |ISTMP#1|)) 'T)))) - (|htSay| (MAKESTRING " ")) + (|htSay| " ") (|htSayExplicitExports| |r|)) - ('T (|htSay| (MAKESTRING " and ")) + ('T (|htSay| " and ") (|bcConform| |r| 'T)))))) - ('T (|htSay| |kind| (MAKESTRING " ")) + ('T (|htSay| |kind| " ") (|bcConform| |u| 'T))))))))) ;htSayExplicitExports r == @@ -12747,16 +12675,16 @@ (declare (special |$displayReturnValue|)) (RETURN (SEQ (PROGN - (|htSay| (MAKESTRING "with explicit exports")) + (|htSay| "with explicit exports") (COND (|$displayReturnValue| NIL) - ('T (|htSay| (MAKESTRING ":")) + ('T (|htSay| ":") (DO ((G173049 |r| (CDR G173049)) (|x| NIL)) ((OR (ATOM G173049) (PROGN (SETQ |x| (CAR G173049)) NIL)) NIL) (SEQ (EXIT (PROGN - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\newline ") (COND ((AND (PAIRP |x|) (EQ (QCAR |x|) 'SIGNATURE) @@ -12782,12 +12710,12 @@ (CONS '|bcLinks| (CONS (CONS |ops| - (CONS (MAKESTRING "") + (CONS "" (CONS '|oPage| (CONS |ops| NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING ": ")) + (|htSay| ": ") (|bcConform| (CONS '|Mapping| |sig|))) ((AND (PAIRP |x|) (EQ (QCAR |x|) 'ATTRIBUTE) @@ -12805,13 +12733,13 @@ (CONS '|bcLinks| (CONS (CONS |ops| - (CONS (MAKESTRING "") + (CONS "" (CONS '|aPage| (CONS |s| NIL)))) NIL)) NIL))) ((AND (PAIRP |x|) (EQ (QCAR |x|) 'IF)) - (|htSay| (MAKESTRING "{\\em if ...}"))) + (|htSay| "{\\em if ...}")) ('T (|systemError|)))))))))))))) ;displayBreakIntoAnds pred == @@ -12855,16 +12783,16 @@ (SPADLET |target| (QCAR |ISTMP#1|)) (SPADLET |source| (QCDR |ISTMP#1|)) 'T)))) - (|htSay| (MAKESTRING "a function from ")) - (|htSayTuple| |source|) (|htSay| (MAKESTRING " to ")) + (|htSay| "a function from ") + (|htSayTuple| |source|) (|htSay| " to ") (|htSayArgument| |target|)) ((BOOT-EQUAL |t| '(|Category|)) - (|htSay| (MAKESTRING "a category"))) + (|htSay| "a category")) ((OR (AND (PAIRP |t|) (PROGN (SPADLET |op| (QCAR |t|)) 'T) (MEMQ |op| '(|Join| CATEGORY))) (|constructor?| (|opOf| |t|))) (|htSayConstructor| NIL |t|)) - ('T (|htSay| (MAKESTRING "an element of domain ")) + ('T (|htSay| "an element of domain ") (|htSayArgument| |t|)))))) ;htSayArgument t == --called only for operations not for constructors @@ -12891,28 +12819,27 @@ (RETURN (COND ((NULL |$signature|) - (|htSay| (CONS (MAKESTRING "{\\em ") - (CONS |t| (CONS (MAKESTRING "}") NIL))))) + (|htSay| (CONS "{\\em " + (CONS |t| (CONS "}" NIL))))) ((MEMQ |t| '($ %)) (COND - ((AND (BOOT-EQUAL |$conkind| (MAKESTRING "category")) + ((AND (BOOT-EQUAL |$conkind| "category") (> |$conlength| 20)) (COND (|$generalSearch?| - (|htSay| (MAKESTRING - "{\\em D} of the origin category"))) + (|htSay| "{\\em D} of the origin category")) ('T (|addWhereList| '$ '|is| NIL) - (|htSayStandard| (MAKESTRING "{\\em $}")) - (|htSaySaturn| (MAKESTRING "{\\em \\%}"))))) - ('T (|htSayStandard| (MAKESTRING "{\\em $}")) - (|htSaySaturn| (MAKESTRING "{\\em \\%}"))))) + (|htSayStandard| "{\\em $}") + (|htSaySaturn| "{\\em \\%}")))) + ('T (|htSayStandard| "{\\em $}") + (|htSaySaturn| "{\\em \\%}")))) ((NULL (IDENTP |t|)) (|bcConform| |t| 'T)) ('T (SPADLET |k| (|position| |t| |$conargs|)) (COND ((> |k| (SPADDIFFERENCE 1)) (SPADLET |typeOfArg| (ELT (CDR |$signature|) |k|)) (|addWhereList| |t| '|member| |typeOfArg|))) - (|htSay| (MAKESTRING "{\\em ") |t| (MAKESTRING "}"))))))) + (|htSay| "{\\em " |t| "}")))))) ;addWhereList(id,kind,typ) == ; $whereList := insert([id,kind,:typ],$whereList) @@ -12933,17 +12860,17 @@ (DEFUN |htSayTuple| (|t|) (SEQ (COND - ((NULL |t|) (|htSay| (MAKESTRING "()"))) + ((NULL |t|) (|htSay| "()")) ((NULL (CDR |t|)) (|htSayArgument| (CAR |t|))) - ('T (|htSay| (MAKESTRING "(")) (|htSayArgument| (CAR |t|)) + ('T (|htSay| "(") (|htSayArgument| (CAR |t|)) (DO ((G173112 (CDR |t|) (CDR G173112)) (|d| NIL)) ((OR (ATOM G173112) (PROGN (SETQ |d| (CAR G173112)) NIL)) NIL) (SEQ (EXIT (PROGN - (|htSay| (MAKESTRING ",")) + (|htSay| ",") (|htSayArgument| |d|))))) - (|htSay| (MAKESTRING ")")))))) + (|htSay| ")"))))) ;dbGetDisplayFormForOp(op,sig,doc) == ; dbGetFormFromDocumentation(op,sig,doc) or dbGetContrivedForm(op,sig) @@ -12971,9 +12898,9 @@ (SPADLET |doc| (COND ((STRINGP |x|) |x|) ('T (CAR |x|)))) (COND ((AND (STRINGP |doc|) - (OR (AND (|stringPrefix?| (MAKESTRING "\\spad{") |doc|) + (OR (AND (|stringPrefix?| "\\spad{" |doc|) (SPADLET |k| 6)) - (AND (|stringPrefix?| (MAKESTRING "\\s{") |doc|) + (AND (|stringPrefix?| "\\s{" |doc|) (SPADLET |k| 3)))) (SPADLET |n| (|charPosition| |$charRbrace| |doc| |k|)) (SPADLET |s| (SUBSTRING |doc| |k| (SPADDIFFERENCE |n| |k|))) @@ -13027,8 +12954,8 @@ (PROG () (RETURN (SEQ (COND - ((BOOT-EQUAL |op| (MAKESTRING "0")) (CONS 0 NIL)) - ((BOOT-EQUAL |op| (MAKESTRING "1")) (CONS 1 NIL)) + ((BOOT-EQUAL |op| "0") (CONS 0 NIL)) + ((BOOT-EQUAL |op| "1") (CONS 1 NIL)) ('T (CONS |op| (PROG (G173161) @@ -13091,8 +13018,8 @@ (COND ((NEQUAL |kind| '|category|) (COND - ((OR (|anySubstring?| (MAKESTRING "Integer") |s| 0) - (|anySubstring?| (MAKESTRING "Number") |s| 0)) + ((OR (|anySubstring?| "Integer" |s| 0) + (|anySubstring?| "Number" |s| 0)) (SPADLET |x| (CAR |$NumberList|)) (SPADLET |$NumberList| (CDR |$NumberList|)) |x|) ('T @@ -13446,8 +13373,8 @@ (SPADLET |u| (|whoUses| |opl| |conform|)) (SPADLET |prefix| (|pluralSay| (|#| |u|) - (MAKESTRING "constructor uses") - (MAKESTRING "constructors use"))) + "constructor uses" + "constructors use")) (SPADLET |suffix| (COND ((AND (PAIRP |opAlist|) @@ -13462,16 +13389,16 @@ (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL)))))) - (CONS (MAKESTRING " operation {\\em ") + (CONS " operation {\\em " (CONS (|escapeSpecialChars| (STRINGIMAGE |op1|)) - (CONS (MAKESTRING ":") + (CONS ":" (CONS (|form2HtString| (CONS '|Mapping| |sig|)) - (CONS (MAKESTRING "}") NIL)))))) + (CONS "}" NIL)))))) ('T - (CONS (MAKESTRING " these operations") NIL)))) + (CONS " these operations" NIL)))) (SPADLET |page| (|htInitPage| (APPEND |prefix| |suffix|) (|htCopyProplist| |htPage|))) @@ -13522,27 +13449,27 @@ (STRINGIMAGE |op|))) (SPADLET |usedList| (CONS |pair| |usedList|)) - (|htSay| (MAKESTRING "Users of {\\em ") - |ops| (MAKESTRING ": ")) + (|htSay| "Users of {\\em " + |ops| ": ") (|bcConform| (CONS '|Mapping| (|sublisFormal| |conargs| |sig|))) - (|htSay| (MAKESTRING "}\\newline")) + (|htSay| "}\\newline") (|bcConTable| (|listSort| (|function| GLESSEQP) (REMDUP |namelist|))))))) (SPADLET |noOneUses| (SETDIFFERENCE |opl| |usedList|)) (COND ((> (|#| |noOneUses|) 0) - (|htSay| (MAKESTRING "No constructor uses the ")) + (|htSay| "No constructor uses the ") (|htSay| (COND ((EQL (|#| |noOneUses|) 1) - (MAKESTRING "operation: ")) + "operation: ") ('T (CONS (|#| |noOneUses|) - (CONS (MAKESTRING " operations:") + (CONS " operations:" NIL))))) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\newline ") (DO ((G173475 |noOneUses| (CDR G173475)) (G173397 NIL)) ((OR (ATOM G173475) @@ -13555,15 +13482,15 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (|htSay| (MAKESTRING "\\tab{2}{\\em ") + (|htSay| "\\tab{2}{\\em " (|escapeSpecialChars| (STRINGIMAGE |op|)) - (MAKESTRING ": ")) + ": ") (|bcConform| (CONS '|Mapping| (|sublisFormal| |conargs| |sig|))) - (|htSay| (MAKESTRING "}\\newline")))))))) - (|htSayStandard| (MAKESTRING "\\endscroll ")) + (|htSay| "}\\newline"))))))) + (|htSayStandard| "\\endscroll ") (|dbPresentOps| |page| |which| '|usage|) (|htShowPageNoScroll|))))))) @@ -14401,11 +14328,11 @@ (|htInitPageNoScroll| (|htCopyProplist| |htPage|) (|dbHeading| |opAlist| |which| (|htpProperty| |htPage| '|heading|)))) - (|htSay| (MAKESTRING "Select a category ancestor below or ")) + (|htSay| "Select a category ancestor below or ") (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "filter") - (CONS (MAKESTRING "on:") + (CONS (CONS "filter" + (CONS "on:" (CONS |calledFrom| (CONS '|filter| NIL)))) NIL)) @@ -14413,11 +14340,11 @@ (|htMakePage| (CONS (CONS '|bcStrings| (CONS (CONS 13 - (CONS (MAKESTRING "") + (CONS "" (CONS '|filter| (CONS 'EM NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING "\\beginscroll ")) + (|htSay| "\\beginscroll ") (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) (SPADLET |domname| (|htpProperty| |htPage| '|domname|)) (SPADLET |ancestors| @@ -14481,7 +14408,7 @@ ('T (|pluralSay| |count| NIL (|pluralize| |capwhich|))))) - (APPEND |prefix| (CONS (MAKESTRING " for ") |heading|))))))) + (APPEND |prefix| (CONS " for " |heading|))))))) ;koaPageFilterByCategory1(htPage,i) == ; ancestor := htpProperty(htPage,'ancestors) . i @@ -14633,9 +14560,9 @@ (CONS (CONS |op| (NREVERSE |alist|)) |falist|))))) (|htpSetProperty| |htPage| '|fromcat| - (CONS (MAKESTRING " from category {\\sf ") + (CONS " from category {\\sf " (CONS (|form2HtString| |ancestor|) - (CONS (MAKESTRING "}") NIL)))) + (CONS "}" NIL)))) (|dbShowOperationsFromConform| |htPage| |which| |falist|)))))) ;--======================================================================= @@ -14656,7 +14583,7 @@ (SPADLET |htPage| (|htInitPage| NIL NIL)) (|htpSetProperty| |htPage| '|opAlist| |opAlist|) (|htpSetProperty| |htPage| '|expandOperations| '|lists|) - (SPADLET |which| (MAKESTRING "operation")) + (SPADLET |which| "operation") (|dbShowOp1| |htPage| |opAlist| |which| '|names|))))) ;opPageFastPath opstring == @@ -14792,7 +14719,7 @@ (SPADLET |ntarget| (CONS '|Union| (CONS |target| - (CONS (MAKESTRING "failed") NIL)))) + (CONS "failed" NIL)))) (SPADLET |dcSig| (MSUBST |ntarget| |target| |dcSig|)))) (SPADLET |alist| (OR (|findSubstitutionOrder?| @@ -14802,7 +14729,7 @@ (SPADLET |nsig| (|substInOrder| |alist| |sig|)) (COND ((OR (|hasPatternVar| |nsig|) (|hasPatternVar| |predList|)) - (|pp| (MAKESTRING "--------------")) (|pp| |op|) + (|pp| "--------------") (|pp| |op|) (|pp| |predList|) (|pp| |nsig|) (|pp| |mm|) (SPADLET |$badStack| (CONS (CONS |op| (CONS |mm| NIL)) |$badStack|)))) @@ -14991,8 +14918,8 @@ (RETURN (PROGN (SPADLET |$localLibdb| - (AND (|fnameExists?| (MAKESTRING "libdb.text")) - (MAKESTRING "libdb.text"))) + (AND (|fnameExists?| "libdb.text") + "libdb.text")) (SPADLET |lines| (|grepConstruct1| |s| |key|)) (COND ((IFCAR |options|) @@ -15273,7 +15200,7 @@ (|not?| (|grepf| (CAR |argl|) |s| NIL)) ('T (SPADLET |lines| - (|grepf| (|mkGrepPattern| (MAKESTRING "*") + (|grepf| (|mkGrepPattern| "*" |$key|) |s| NIL)) (|grepf| (CAR |argl|) |lines| 'T)))) @@ -15323,13 +15250,11 @@ (OR (AND (SPADLET |parse| (|pmParseFromString| |s|)) (|checkPmParse| |parse|)) (CONS '|error| - (CONS (MAKESTRING "Illegal search string") - (CONS (MAKESTRING - "\\vspace{3}\\center{{\\em Your search string} ") + (CONS "Illegal search string" + (CONS "\\vspace{3}\\center{{\\em Your search string} " (CONS (|escapeSpecialChars| |s|) (CONS - (MAKESTRING - " {\\em has incorrect syntax}}") + " {\\em has incorrect syntax}}" NIL))))))) ((PROG (G174630) (SPADLET G174630 NIL) @@ -15353,9 +15278,8 @@ (SPADDIFFERENCE |i| 1)) (|char| |$charUnderscore|))))))))))) (CONS '|error| - (CONS (MAKESTRING "Illegal search string") - (CONS (MAKESTRING - "\\vspace{3}\\center{Consecutive {\\em *}'s are not allowed in search patterns}") + (CONS "Illegal search string" + (CONS "\\vspace{3}\\center{Consecutive {\\em *}'s are not allowed in search patterns}" NIL)))) ('T |s|))))))) @@ -15554,7 +15478,7 @@ (SETQ G174779 (STRCONC G174779 (STRCONC - (MAKESTRING " ") |x|))))))))))) + " " |x|))))))))))) (EXIT (CONS |op| (PROG (G174794) (SPADLET G174794 NIL) @@ -15630,7 +15554,7 @@ (DEFUN |pmPreparse,fn| (|s| |n| |siz|) (PROG (|i| |j| |t| |middle|) (RETURN - (SEQ (IF (BOOT-EQUAL |n| |siz|) (EXIT (MAKESTRING ""))) + (SEQ (IF (BOOT-EQUAL |n| |siz|) (EXIT "")) (SPADLET |i| (OR (|firstNonDelim| |s| |n|) (RETURN (SUBSTRING |s| |n| NIL)))) @@ -15735,9 +15659,8 @@ (COND (|doc?| (SPADLET |instream2| (OPEN (STRCONC - (|getEnv| (MAKESTRING "AXIOM")) - (MAKESTRING - "/algebra/libdb.text")))))) + (|getEnv| "AXIOM") + "/algebra/libdb.text"))))) (SPADLET CONS (SPADLET |atts| (SPADLET |doms| NIL))) (DO () ((NULL (AND (PAIRP |lines|) @@ -15788,15 +15711,15 @@ ((BOOT-EQUAL |kind| (|char| '-)) '|skip|) ('T (|systemError| '|kind|))))))) (COND (|doc?| (CLOSE |instream2|))) - (CONS (CONS (MAKESTRING "attribute") (NREVERSE |atts|)) - (CONS (CONS (MAKESTRING "operation") + (CONS (CONS "attribute" (NREVERSE |atts|)) + (CONS (CONS "operation" (NREVERSE |ops|)) - (CONS (CONS (MAKESTRING "category") + (CONS (CONS "category" (NREVERSE |cats|)) - (CONS (CONS (MAKESTRING "domain") + (CONS (CONS "domain" (NREVERSE |doms|)) (CONS - (CONS (MAKESTRING "package") + (CONS "package" (NREVERSE |paks|)) NIL)))))))))) @@ -15816,7 +15739,7 @@ (EXIT |c|))) (DEFUN |mkUpDownPattern,recurse| (|s| |i| |n|) - (SEQ (IF (BOOT-EQUAL |i| |n|) (EXIT (MAKESTRING ""))) + (SEQ (IF (BOOT-EQUAL |i| |n|) (EXIT "")) (EXIT (STRCONC (|mkUpDownPattern,fixchar| (ELT |s| |i|)) (|mkUpDownPattern,recurse| |s| (PLUS |i| 1) |n|))))) @@ -15924,13 +15847,13 @@ 'T)) |x|) (EXIT |x|)) - (EXIT (MAKESTRING "[^x]")))) - (SPADLET |tick| (MAKESTRING "[^`]*`")) + (EXIT "[^x]"))) + (SPADLET |tick| "[^`]*`") (IF (BOOT-EQUAL |one| '|w|) (EXIT |s|)) (IF (BOOT-EQUAL |one| '|none|) - (EXIT (SEQ (IF (BOOT-EQUAL |s| (MAKESTRING "`")) - (EXIT (MAKESTRING "^."))) - (EXIT (STRCONC (MAKESTRING "^") |s|))))) + (EXIT (SEQ (IF (BOOT-EQUAL |s| "`") + (EXIT "^.")) + (EXIT (STRCONC "^" |s|))))) (SPADLET |prefix| (SEQ (IF (BOOT-EQUAL |one| '|t|) (EXIT (STRCONC |tick| |tick| |tick| |tick| @@ -15942,13 +15865,13 @@ (IF (BOOT-EQUAL |one| '|s|) (EXIT (STRCONC |tick| |tick| |tick|))) (IF (BOOT-EQUAL |one| '|k|) - (EXIT (MAKESTRING "[cdp]"))) + (EXIT "[cdp]")) (IF (BOOT-EQUAL |one| '|y|) - (EXIT (MAKESTRING "[cdpx]"))) + (EXIT "[cdpx]")) (EXIT (STRINGIMAGE |one|)))) (IF (BOOT-EQUAL |s| |$wild1|) - (EXIT (STRCONC (MAKESTRING "^") |prefix|))) - (EXIT (STRCONC (MAKESTRING "^") |prefix| |s|)))))) + (EXIT (STRCONC "^" |prefix|))) + (EXIT (STRCONC "^" |prefix| |s|)))))) (DEFUN |mkGrepPattern1,charPosition| (|c| |t| |startpos|) (PROG (|n| |k|) @@ -15998,8 +15921,8 @@ (SPADLET |k| (|mkGrepPattern1,charPosition| (|char| |$charUnderscore|) |s| 0))) - (EXIT (STRCONC (SUBSTRING |s| 0 |k|) (MAKESTRING "[") - (ELT |s| (PLUS |k| 1)) (MAKESTRING "]") + (EXIT (STRCONC (SUBSTRING |s| 0 |k|) "[" + (ELT |s| (PLUS |k| 1)) "]" (|mkGrepPattern1,remUnderscores| (SUBSTRING |s| (PLUS |k| 2) NIL))))) (EXIT |s|))))) @@ -16017,8 +15940,8 @@ (CONS |$wild1| (CONS |s| |res|))))) (SPADLET |res| (CDR |res|)) (IF (NULL (MEMQ '|w| |$options|)) - (IF (NEQUAL (CAR |res|) (MAKESTRING "")) - (SPADLET |res| (CONS (MAKESTRING "`") |res|)) + (IF (NEQUAL (CAR |res|) "") + (SPADLET |res| (CONS "`" |res|)) (IF (AND (AND (PAIRP |res|) (PROGN (SPADLET |ISTMP#1| (QCDR |res|)) @@ -16057,7 +15980,7 @@ (DEFUN |mkGrepPattern1,addWilds| (|sl|) (declare (special |$wild1|)) - (SEQ (IF (BOOT-EQUAL (IFCAR |sl|) (MAKESTRING "")) + (SEQ (IF (BOOT-EQUAL (IFCAR |sl|) "") (EXIT (|mkGrepPattern1,h| (IFCDR |sl|) (CONS |$wild1| NIL)))) (EXIT (|mkGrepPattern1,h| |sl| NIL)))) @@ -16188,11 +16111,11 @@ ((NULL |itemlist|) (|systemError| (CONS |conform| - (CONS (MAKESTRING " has no operation named ") + (CONS " has no operation named " (CONS |opname| NIL))))) ('T (SPADLET |opAlist| (CONS |itemlist| NIL)) (|dbShowOperationsFromConform| |htPage| - (MAKESTRING "operation") |opAlist|))))))) + "operation" |opAlist|))))))) ;aPage(a,:b) == --called by \spadatt{a} ; $attributeArgs : local := nil @@ -16236,11 +16159,10 @@ (SPADLET |form| (OR (|ncParseFromString| |s|) (|systemError| - (CONS (MAKESTRING "Argument: ") + (CONS "Argument: " (CONS |s| (CONS - (MAKESTRING - " to spadType won't parse") + " to spadType won't parse" NIL)))))) (COND ((ATOM |form|) (SPADLET |form| (CONS |form| NIL)))) (SPADLET |op| (|opOf| |form|)) @@ -16311,11 +16233,10 @@ (SPADLET |form| (OR (|ncParseFromString| |s|) (|systemError| - (CONS (MAKESTRING "Argument: ") + (CONS "Argument: " (CONS |s| (CONS - (MAKESTRING - " to spadType won't parse") + " to spadType won't parse" NIL)))))) (|htSystemCommands| (PNAME (|opOf| |form|))))))) @@ -16348,7 +16269,7 @@ (RETURN (SEQ (COND ((NULL (SPADLET |filter| (|checkFilter| |filter|))) NIL) - ((BOOT-EQUAL |filter| (MAKESTRING "*")) (|htErrorStar|)) + ((BOOT-EQUAL |filter| "*") (|htErrorStar|)) ('T (SPADLET |includeDoc?| (NULL (IFCAR |options|))) (SPADLET |regSearchAlist| (|grepConstruct| (STRINGIMAGE |filter|) @@ -16473,7 +16394,7 @@ (SPADLET |count| (PLUS |regCount| |docCount|)) (COND ((EQL |count| 0) - (|emptySearchPage| (MAKESTRING "entry") |filter| 'T)) + (|emptySearchPage| "entry" |filter| 'T)) ((EQL |count| 1) (SPADLET |alist| (COND @@ -16534,19 +16455,19 @@ (SPADLET |plural| (COND (|$exposedOnlyIfTrue| - (MAKESTRING "exposed entries match")) - ('T (MAKESTRING "entries match")))) + "exposed entries match") + ('T "entries match"))) (SPADLET |prefix| - (|pluralSay| |count| (MAKESTRING "") + (|pluralSay| |count| "" |plural|)) (SPADLET |emfilter| - (CONS (MAKESTRING "{\\em ") + (CONS "{\\em " (CONS (|escapeSpecialChars| (STRINGIMAGE |filter|)) - (CONS (MAKESTRING "}") NIL)))) + (CONS "}" NIL)))) (SPADLET |header| (APPEND |prefix| - (CONS (MAKESTRING " ") |emfilter|))) + (CONS " " |emfilter|))) (SPADLET |page| (|htInitPage| |header| NIL)) (|htpSetProperty| |page| '|regSearchAlist| |regSearchAlist|) @@ -16556,11 +16477,10 @@ (COND (|docSearchAlist| (|dbSayItems| - (CONS (MAKESTRING - "{\\bf Construct Summary:} ") + (CONS "{\\bf Construct Summary:} " (CONS |regCount| NIL)) - (MAKESTRING "name matches") - (MAKESTRING "names match")))) + "name matches" + "names match"))) (DO ((G175327 |regSearchAlist| (CDR G175327)) (G175275 NIL) (|i| 0 (QSADD1 |i|))) ((OR (ATOM G175327) @@ -16578,23 +16498,22 @@ ((> (|#| (CAR |pair|)) 0) (PROGN (|bcHt| - (MAKESTRING "\\newline{}")) + "\\newline{}") (|htSayStandard| - (MAKESTRING "\\tab{2}")) + "\\tab{2}") (|genSearchSay| |pair| |summarize?| |kind| |i| '|showConstruct|))))))) (COND (|docSearchAlist| - (|htSaySaturn| (MAKESTRING "\\bigskip{}")) + (|htSaySaturn| "\\bigskip{}") (|dbSayItems| - (CONS (MAKESTRING - "\\newline{\\bf Documentation Summary:} ") + (CONS "\\newline{\\bf Documentation Summary:} " (CONS |docCount| NIL)) - (MAKESTRING "mention") - (MAKESTRING "mentions") - (MAKESTRING " of {\\em ") |key| - (MAKESTRING "}")) + "mention" + "mentions" + " of {\\em " |key| + "}") (DO ((G175343 |docSearchAlist| (CDR G175343)) (G175280 NIL) (|i| 0 (QSADD1 |i|))) @@ -16614,7 +16533,7 @@ (PROGN (|bcHt| '|\\newline{}|) (|htSayStandard| - (MAKESTRING "\\tab{2}")) + "\\tab{2}") (|genSearchSay| |pair| 'T |kind| |i| '|showDoc|))))))))) (|htShowPageStar|)))))))))) @@ -16799,7 +16718,7 @@ (PROGN (SPADLET |kind| (CAR G175516)) (SPADLET |lines| (CDDR G175516)) - (|dbSearch| |lines| |kind| (MAKESTRING "")))))) + (|dbSearch| |lines| |kind| ""))))) ;genSearchSay(pair,summarize,kind,who,fn) == ; [u,:fullLineList] := pair @@ -16852,7 +16771,7 @@ (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS (|menuButton|) - (CONS (MAKESTRING "") + (CONS "" (CONS '|genSearchSayJump| (CONS (CONS |fullLineList| @@ -16862,21 +16781,21 @@ NIL)) (COND ((EQL |count| 0) - (|htSay| (MAKESTRING "{\\em No ") |kind| - (MAKESTRING "} "))) + (|htSay| "{\\em No " |kind| + "} ")) ((EQL |count| 1) - (|htSay| (MAKESTRING "{\\em 1 ") |kind| - (MAKESTRING "} "))) + (|htSay| "{\\em 1 " |kind| + "} ")) ('T - (|htSay| (MAKESTRING "{\\em ") |count| (MAKESTRING " ") - (|pluralize| |kind|) (MAKESTRING "} ")))) + (|htSay| "{\\em " |count| " " + (|pluralize| |kind|) "} "))) (COND (|short| '|done|) ('T (COND ((NEQUAL |uniqueCount| 1) - (|htSayStandard| (MAKESTRING "\\indent{4}")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSayStandard| "\\indent{4}") + (|htSay| "\\newline ") (|htBeginTable|))) (SPADLET |lastid| NIL) (SPADLET |groups| (|organizeByName| |u|)) @@ -16913,7 +16832,7 @@ (OR G175554 (|dbExposed?| |item| (|dbKind| |item|)))))))))))) - (|bcHt| (MAKESTRING "{")) + (|bcHt| "{") (COND (|$includeUnexposed?| (COND @@ -16924,7 +16843,7 @@ (CONS '|bcLinks| (CONS (CONS |id| - (CONS (MAKESTRING "") + (CONS "" (CONS |fn| (CONS (PLUS |who| (TIMES 8 |i|)) @@ -16932,10 +16851,10 @@ NIL)) NIL)) (SPADLET |i| (PLUS |i| (|#| |group|))) - (|bcHt| (MAKESTRING "}")))))) + (|bcHt| "}"))))) (COND ((NEQUAL |uniqueCount| 1) (|htEndTable|) - (|htSayStandard| (MAKESTRING "\\indent{0}"))) + (|htSayStandard| "\\indent{0}")) ('T NIL))))))))) ;organizeByName u == @@ -17048,18 +16967,18 @@ (SPADLET |options| (QCDR |options|)) 'T)) |x|) - ('T (MAKESTRING "")))) + ('T ""))) (SPADLET |colon| (COND - ((IFCAR |options|) (MAKESTRING ":")) - ('T (MAKESTRING "")))) + ((IFCAR |options|) ":") + ('T ""))) (COND ((EQL |count| 0) - (|concat| (MAKESTRING "No ") |singular| |item|)) + (|concat| "No " |singular| |item|)) ((EQL |count| 1) - (|concat| (MAKESTRING "1 ") |singular| |item| |colon|)) + (|concat| "1 " |singular| |item| |colon|)) ('T - (|concat| |count| (MAKESTRING " ") |plural| |item| |colon|))))))) + (|concat| |count| " " |plural| |item| |colon|))))))) ;--======================================================================= ;-- Documentation Search @@ -17078,7 +16997,7 @@ (RETURN (SEQ (COND ((NULL (SPADLET |filter| (|checkFilter| |filter|))) NIL) - ((BOOT-EQUAL |filter| (MAKESTRING "*")) (|htErrorStar|)) + ((BOOT-EQUAL |filter| "*") (|htErrorStar|)) ('T (SPADLET |key| (|removeSurroundingStars| |filter|)) (SPADLET |docSearchAlist| (|grepConstruct| |filter| '|w| 'T)) @@ -17137,7 +17056,7 @@ (SPADLET |count| (|searchCount| |docSearchAlist|)) (COND ((EQL |count| 0) - (|emptySearchPage| (MAKESTRING "entry") |filter| 'T)) + (|emptySearchPage| "entry" |filter| 'T)) ((EQL |count| 1) (|showNamedConstruct| (PROG (G175713) @@ -17160,28 +17079,27 @@ ('T (SPADLET |prefix| (|pluralSay| |count| - (MAKESTRING "entry matches") - (MAKESTRING "entries match"))) + "entry matches" + "entries match")) (SPADLET |emfilter| - (CONS (MAKESTRING "{\\em ") + (CONS "{\\em " (CONS (|escapeSpecialChars| (STRINGIMAGE |filter|)) - (CONS (MAKESTRING "}") NIL)))) + (CONS "}" NIL)))) (SPADLET |header| (APPEND |prefix| - (CONS (MAKESTRING " ") |emfilter|))) + (CONS " " |emfilter|))) (SPADLET |page| (|htInitPage| |header| NIL)) (|htpSetProperty| |page| '|docSearchAlist| |docSearchAlist|) (|htpSetProperty| |page| '|regSearchAlist| NIL) (|htpSetProperty| |page| '|filter| |filter|) (|dbSayItems| - (CONS (MAKESTRING - "\\newline Documentation Summary: ") + (CONS "\\newline Documentation Summary: " (CONS |count| NIL)) - (MAKESTRING "mention") (MAKESTRING "mentions") - (MAKESTRING " of {\\em ") |filter| - (MAKESTRING "}")) + "mention" "mentions" + " of {\\em " |filter| + "}") (DO ((G175737 |docSearchAlist| (CDR G175737)) (G175708 NIL) (|i| 0 (QSADD1 |i|))) ((OR (ATOM G175737) @@ -17196,9 +17114,9 @@ (SEQ (EXIT (COND ((> (|#| (CAR |pair|)) 0) (PROGN - (|bcHt| (MAKESTRING "\\newline{}")) + (|bcHt| "\\newline{}") (|htSayStandard| - (MAKESTRING "\\tab{2}")) + "\\tab{2}") (|genSearchSay| |pair| 'T |kind| |i| '|showDoc|))))))) (|htShowPageStar|)))))))) @@ -17252,7 +17170,7 @@ (declare (special |$blank|)) (RETURN (PROGN - (|htSay| (MAKESTRING "{\\em ")) + (|htSay| "{\\em ") (COND ((AND (PAIRP |message|) (PROGN @@ -17278,19 +17196,19 @@ (SPADLET |rightEnd| (QCAR |ISTMP#4|)) 'T)))))))))) - (|htSay| |leftEnd| |left| (MAKESTRING "}")) + (|htSay| |leftEnd| |left| "}") (COND - ((AND (NEQUAL |left| (MAKESTRING "")) + ((AND (NEQUAL |left| "") (BOOT-EQUAL (ELT |left| (MAXINDEX |left|)) |$blank|)) (|htBlank|))) (|htSay| |middle|) (COND - ((AND (NEQUAL |right| (MAKESTRING "")) + ((AND (NEQUAL |right| "") (BOOT-EQUAL (ELT |right| 0) |$blank|)) (|htBlank|))) - (|htSay| (MAKESTRING "{\\em ") |right| |rightEnd|)) + (|htSay| "{\\em " |right| |rightEnd|)) ('T (|htSay| |message|))) - (|htSay| (MAKESTRING "}")))))) + (|htSay| "}"))))) ;stripOffSegments(s,n) == ; progress := true @@ -17354,7 +17272,7 @@ (PROGN (SPADLET |filter| (STRINGIMAGE |filter|)) (COND - ((BOOT-EQUAL |filter| (MAKESTRING "")) (MAKESTRING "*")) + ((BOOT-EQUAL |filter| "") "*") ('T (|trimString| |filter|))))) ;aSearch filter == --called from HD (man0.ht): general attribute search @@ -17366,7 +17284,7 @@ ((NULL (SPADLET |filter| (|checkFilter| |filter|))) NIL) ('T (|dbSearch| (|grepConstruct| |filter| '|a|) - (MAKESTRING "attribute") |filter|)))) + "attribute" |filter|)))) ;oSearch filter == -- called from HD (man0.ht): operation search ; opAlist := opPageFastPath filter => opPageFast opAlist @@ -17384,13 +17302,13 @@ ('T (SPADLET |key| '|o|) (COND ((NULL (SPADLET |filter| (|checkFilter| |filter|))) NIL) - ((BOOT-EQUAL |filter| (MAKESTRING "*")) - (|grepSearchQuery| (MAKESTRING "operation") + ((BOOT-EQUAL |filter| "*") + (|grepSearchQuery| "operation" (CONS |filter| (CONS |key| - (CONS (MAKESTRING "operation") + (CONS "operation" (CONS '|oSearchGrep| NIL)))))) - ('T (|oSearchGrep| |filter| |key| (MAKESTRING "operation"))))))))) + ('T (|oSearchGrep| |filter| |key| "operation")))))))) ;oSearchGrep(filter,key,kind) == --called from grepSearchQuery/oSearch ; dbSearch(grepConstruct(filter,'o),kind,filter) @@ -17409,13 +17327,12 @@ (PROG (|page|) (RETURN (PROGN - (SPADLET |page| (|htInitPage| (MAKESTRING "Query Page") NIL)) + (SPADLET |page| (|htInitPage| "Query Page" NIL)) (|htpSetProperty| |page| '|items| |items|) (|htQuery| - (CONS (MAKESTRING - "{\\em Do you want a list of {\\em all} ") + (CONS "{\\em Do you want a list of {\\em all} " (CONS (|pluralize| |kind|) - (CONS (MAKESTRING "?\\vspace{1}}") NIL))) + (CONS "?\\vspace{1}}" NIL))) '|grepSearchJump| 'T) (|htShowPage|))))) @@ -17424,42 +17341,42 @@ (DEFUN |cSearch| (|filter|) (|constructorSearch| (|checkFilter| |filter|) '|c| - (MAKESTRING "category"))) + "category")) ;dSearch filter == --called from HD (man0.ht): domain search ; constructorSearch(checkFilter filter,'d,'"domain") (DEFUN |dSearch| (|filter|) (|constructorSearch| (|checkFilter| |filter|) '|d| - (MAKESTRING "domain"))) + "domain")) ;pSearch filter == --called from HD (man0.ht): package search ; constructorSearch(checkFilter filter,'p,'"package") (DEFUN |pSearch| (|filter|) (|constructorSearch| (|checkFilter| |filter|) '|p| - (MAKESTRING "package"))) + "package")) ;xSearch filter == --called from HD (man0.ht): default package search ; constructorSearch(checkFilter filter,'x,'"default package") (DEFUN |xSearch| (|filter|) (|constructorSearch| (|checkFilter| |filter|) '|x| - (MAKESTRING "default package"))) + "default package")) ;kSearch filter == --called from HD (man0.ht): constructor search (no defaults) ; constructorSearch(checkFilter filter,'k,'"constructor") (DEFUN |kSearch| (|filter|) (|constructorSearch| (|checkFilter| |filter|) '|k| - (MAKESTRING "constructor"))) + "constructor")) ;ySearch filter == --called from conPage: like kSearch but defaults included ; constructorSearch(checkFilter filter,'y,'"constructor") (DEFUN |ySearch| (|filter|) (|constructorSearch| (|checkFilter| |filter|) '|y| - (MAKESTRING "constructor"))) + "constructor")) ;constructorSearch(filter,key,kind) == ; null filter => nil --in case of filter error @@ -17516,36 +17433,35 @@ (SPADLET |newkind| (COND ((BOOT-EQUAL |code| (|char| '|p|)) - (MAKESTRING "package")) + "package") ((BOOT-EQUAL |code| (|char| '|d|)) - (MAKESTRING "domain")) + "domain") ((BOOT-EQUAL |code| (|char| '|c|)) - (MAKESTRING "category")) + "category") ('T NIL))) (COND - ((OR (BOOT-EQUAL |kind| (MAKESTRING "constructor")) + ((OR (BOOT-EQUAL |kind| "constructor") (BOOT-EQUAL |kind| |newkind|)) (|kPage| |line|)) ('T (SPADLET |page| - (|htInitPage| (MAKESTRING "Query Page") NIL)) + (|htInitPage| "Query Page" NIL)) (|htpSetProperty| |page| '|line| |line|) (SPADLET |message| - (CONS (MAKESTRING "{\\em ") + (CONS "{\\em " (CONS (|dbName| |line|) (CONS - (MAKESTRING "} is not a {\\em ") + "} is not a {\\em " (CONS |kind| (CONS - (MAKESTRING "} but a {\\em ") + "} but a {\\em " (CONS |newkind| (CONS - (MAKESTRING - "}. Would you like to view it?\\vspace{1}") + "}. Would you like to view it?\\vspace{1}" NIL)))))))) (|htQuery| |message| '|grepConstructorSearch| 'T) (|htShowPage|)))) - ((BOOT-EQUAL |filter| (MAKESTRING "*")) + ((BOOT-EQUAL |filter| "*") (|grepSearchQuery| |kind| (CONS |filter| (CONS |key| @@ -17618,7 +17534,7 @@ ((OR (MEMQ (KAR |form|) '(|and| |or| |not|)) (CONTAINED '* |form|)) NIL) - ((BOOT-EQUAL |filter| (MAKESTRING "Mapping")) NIL) + ((BOOT-EQUAL |filter| "Mapping") NIL) ((SPADLET |u| (|kisValidType| |form|)) |u|) (|secondTime| NIL) ('T @@ -17721,7 +17637,7 @@ (SETQ G176053 (OR G176053 |j|))))))))) (RETURN NIL))) - (SPADLET |buf| (MAKESTRING "")) + (SPADLET |buf| "") (DO () ((NULL (AND (<= |k| |maxIndex|) (NULL (|member| @@ -17890,7 +17806,7 @@ (SPADLET |conlist| (CDR G176172)) (COND ((NULL |conlist|) - (|emptySearchPage| (MAKESTRING "abbreviation") + (|emptySearchPage| "abbreviation" |filter|)) ('T (SPADLET |kind| (|intern| |kind|)) (COND @@ -17942,7 +17858,7 @@ (CONS (CONS |con| 'T) G176208)))))))) (SPADLET |htPage| - (|htInitPage| (MAKESTRING "") NIL)) + (|htInitPage| "" NIL)) (|htpSetProperty| |htPage| '|cAlist| |cAlist|) (|htpSetProperty| |htPage| '|thing| NIL) (RETURN (|dbShowCons| |htPage| '|names|)) @@ -17950,10 +17866,9 @@ (|htInitPage| (CONS (|#| |conlist|) (CONS - (MAKESTRING - " Abbreviations Match {\\em ") + " Abbreviations Match {\\em " (CONS (STRINGIMAGE |filter|) - (CONS (MAKESTRING "}") NIL)))) + (CONS "}" NIL)))) NIL)) (DO ((G176230 |conlist| (CDR G176230)) (G176166 NIL)) @@ -17971,16 +17886,15 @@ NIL) (SEQ (EXIT (PROGN (SPADLET |kind| (LASSOC '|kind| |r|)) - (|htSay| (MAKESTRING - "\\newline{\\em ") + (|htSay| "\\newline{\\em " (SPADLET |s| (STRINGIMAGE |abbr|))) (|htSayStandard| - (MAKESTRING "\\tab{10}")) - (|htSay| (MAKESTRING "}")) + "\\tab{10}") + (|htSay| "}") (|htSay| |kind|) (|htSayStandard| - (MAKESTRING "\\tab{19}")) + "\\tab{19}") (|bcCon| |nam|))))) (|htShowPage|)))))))))) @@ -18038,12 +17952,10 @@ (PROGN (SPADLET |page| (|htInitPage| - (MAKESTRING "Detailed Search with Options") NIL)) + "Detailed Search with Options" NIL)) (SPADLET |filter| (|escapeSpecialChars| (PNAME |filter|))) - (|bcHt| (MAKESTRING - "Select what you want to search for, then click on {\\em Search} below")) - (|bcHt| (MAKESTRING - "\\newline{\\it Note:} Logical searches using {\\em and}, {\\em or}, and {\\em not} are not permitted here.")) + (|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|) (|htMakePage| '((|text| . "\\newline") @@ -18158,7 +18070,7 @@ (COND ((BOOT-EQUAL |which| '|ops|) (|char| '|o|)) ((BOOT-EQUAL |which| '|attrs|) (|char| '|a|)) - ('T (SPADLET |acc| (MAKESTRING "")) + ('T (SPADLET |acc| "") (COND ((|htButtonOn?| |htPage| '|cats|) (SPADLET |acc| (STRCONC (|char| '|c|) |acc|)))) @@ -18174,7 +18086,7 @@ (SPADLET |n| (|#| |acc|)) (COND ((OR (EQL |n| 0) (EQL |n| 4)) - (MAKESTRING "[cdpx]")) + "[cdpx]") ((EQL |n| 1) |acc|) ('T (STRCONC (|char| '[) |acc| (|char| ']))))))) (SPADLET |form| @@ -18191,19 +18103,19 @@ ((EQL |n| 1) (COND ((|htButtonOn?| |htPage| '|cats|) - (MAKESTRING "category")) + "category") ((|htButtonOn?| |htPage| '|doms|) - (MAKESTRING "domain")) + "domain") ((|htButtonOn?| |htPage| '|paks|) - (MAKESTRING "package")) - ('T (MAKESTRING "default package")))) - ('T (MAKESTRING "constructor")))) + "package") + ('T "default package"))) + ('T "constructor"))) ((BOOT-EQUAL |which| '|ops|) - (MAKESTRING "operation")) - ('T (MAKESTRING "attribute")))) + "operation") + ('T "attribute"))) (COND ((NULL |lines|) (|emptySearchPage| |kind| NIL)) - ('T (|dbSearch| |lines| |kind| (MAKESTRING "filter")))))))) + ('T (|dbSearch| |lines| |kind| "filter"))))))) ;generalSearchString(htPage,sel) == ; string := htpLabelInputString(htPage,sel) @@ -18216,7 +18128,7 @@ (PROGN (SPADLET |string| (|htpLabelInputString| |htPage| |sel|)) (COND - ((BOOT-EQUAL |string| (MAKESTRING "")) (MAKESTRING "*")) + ((BOOT-EQUAL |string| "") "*") ('T |string|)))))) ;htButtonOn?(htPage,key) == @@ -18230,7 +18142,7 @@ (LASSOC |key| (|htpInputAreaAlist| |htPage|))) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T))) - (BOOT-EQUAL |a| (MAKESTRING " t")))))) + (BOOT-EQUAL |a| " t"))))) ;mkDetailedGrepPattern(kind,name,nargs,argOrSig) == main where ; main == @@ -18282,7 +18194,7 @@ (DEFUN |mkDetailedGrepPattern,conc| (|a| |b|) (declare (special |$tick|)) - (SEQ (IF (OR (BOOT-EQUAL |b| (MAKESTRING "[^`]*")) + (SEQ (IF (OR (BOOT-EQUAL |b| "[^`]*") (BOOT-EQUAL |b| (|char| (INTERN "." "BOOT")))) (EXIT |a|)) (EXIT (STRCONC |a| |$tick| |b|)))) @@ -18292,7 +18204,7 @@ (declare (special |$saturn| |$tick|)) (RETURN (PROGN - (SPADLET |nottick| (MAKESTRING "[^`]")) + (SPADLET |nottick| "[^`]") (SPADLET |name| (|replaceGrepStar| |name|)) (SPADLET |firstPart| (COND @@ -18325,7 +18237,7 @@ (COND ((> |i| |final|) |s|) ('T - (STRCONC (SUBSTRING |s| 0 |i|) (MAKESTRING "[^`]*") + (STRCONC (SUBSTRING |s| 0 |i|) "[^`]*" (|replaceGrepStar| (SUBSTRING |s| (PLUS |i| 1) NIL)))))))))) @@ -18343,7 +18255,7 @@ ((BOOT-EQUAL (ELT |s| 0) (|char| '|(|)) |s|) ('T (SPADLET |k| - (OR (STRPOS (MAKESTRING "->") |s| 0 NIL) + (OR (STRPOS "->" |s| 0 NIL) (RETURN |s|))) (COND ((BOOT-EQUAL (ELT |s| (SPADDIFFERENCE |k| 1)) @@ -18362,12 +18274,12 @@ (DEFUN |underscoreDollars,fn| (|s| |i| |n|) (PROG (|m|) (RETURN - (SEQ (IF (> |i| |n|) (EXIT (MAKESTRING ""))) + (SEQ (IF (> |i| |n|) (EXIT "")) (IF (> (SPADLET |m| (|charPosition| (|char| '$) |s| |i|)) |n|) (EXIT (SUBSTRING |s| |i| NIL))) (EXIT (STRCONC (SUBSTRING |s| |i| (SPADDIFFERENCE |m| |i|)) - (MAKESTRING "_$") + "_$" (|underscoreDollars,fn| |s| (PLUS |m| 1) |n|))))))) (DEFUN |underscoreDollars| (|s|) @@ -18397,7 +18309,7 @@ (RETURN (PROGN (SPADLET |pathname| (|mkGrepFile| |kind|)) - (|obey| (STRCONC (MAKESTRING "rm -f ") |pathname|)) + (|obey| (STRCONC "rm -f " |pathname|)) |pathname|)))) ;dbWriteLines(s, :options) == @@ -18486,9 +18398,9 @@ (declare (special $SPADROOT |$localLibdb|)) (COND ((BOOT-EQUAL |key| '|libdb|) - (STRCONC $SPADROOT (MAKESTRING "/algebra/libdb.text"))) + (STRCONC $SPADROOT "/algebra/libdb.text")) ((BOOT-EQUAL |key| '|gloss|) - (STRCONC $SPADROOT (MAKESTRING "/algebra/glosskey.text"))) + (STRCONC $SPADROOT "/algebra/glosskey.text")) ((BOOT-EQUAL |key| |$localLibdb|) |$localLibdb|) ('T (|mkGrepTextfile| @@ -18501,7 +18413,7 @@ (DEFUN |mkGrepTextfile| (|s|) (declare (special $spadroot)) (STRCONC $SPADROOT '|/algebra/| (STRINGIMAGE |s|) - (MAKESTRING ".text"))) + ".text")) ;mkGrepFile s == --called to generate a path name for a temporary grep file ; prefix := @@ -18518,10 +18430,10 @@ (SPADLET |prefix| (COND ((OR |$standard| |$aixTestSaturn|) - (MAKESTRING "/tmp/")) - ('T (STRCONC $SPADROOT (MAKESTRING "/algebra/"))))) - (SPADLET |suffix| (|getEnv| (MAKESTRING "SPADNUM"))) - (STRCONC |prefix| (PNAME |s|) (MAKESTRING ".txt.") |suffix|))))) + "/tmp/") + ('T (STRCONC $SPADROOT "/algebra/")))) + (SPADLET |suffix| (|getEnv| "SPADNUM")) + (STRCONC |prefix| (PNAME |s|) ".txt." |suffix|))))) ;--======================================================================= ;-- Grepping Code @@ -18569,21 +18481,21 @@ (SPADLET |casepart| (COND ((MEMQ '|iv| |options|) - (MAKESTRING "-vi")) - ('T (MAKESTRING "-i")))) + "-vi") + ('T "-i"))) (SPADLET |command| - (STRCONC (MAKESTRING "grep ") |casepart| - (MAKESTRING " '") |pattern| - (MAKESTRING "' ") |source|)) + (STRCONC "grep " |casepart| + " '" |pattern| + "' " |source|)) (|obey| (COND ((|member| |key| '(|a| |o| |c| |d| |p| |x|)) (STRCONC |command| - (MAKESTRING " | sed 's/~/") + " | sed 's/~/" (STRINGIMAGE |key|) - (MAKESTRING "/' > ") |target|)) + "/' > " |target|)) ('T - (STRCONC |command| (MAKESTRING " > ") + (STRCONC |command| " > " |target|)))) (|dbReadLines| |target|)) ('T (SPADLET |invert?| (MEMQ '|iv| |options|)) @@ -18662,7 +18574,7 @@ ;$wild1 := '"[^`]*" --phrase used to convert keys to grep strings -(SPADLET |$wild1| (MAKESTRING "[^`]*")) +(SPADLET |$wild1| "[^`]*") ;$browseCountThreshold := 10 --the maximum number of names that will display @@ -18744,16 +18656,16 @@ $dbKindAlist := ; [char 'c,:'"category"],[char 'x,:'"default_ package"]] (SPADLET |$dbKindAlist| - (CONS (CONS (|char| '|a|) (MAKESTRING "attribute")) - (CONS (CONS (|char| '|o|) (MAKESTRING "operation")) - (CONS (CONS (|char| '|d|) (MAKESTRING "domain")) + (CONS (CONS (|char| '|a|) "attribute") + (CONS (CONS (|char| '|o|) "operation") + (CONS (CONS (|char| '|d|) "domain") (CONS (CONS (|char| '|p|) - (MAKESTRING "package")) + "package") (CONS (CONS (|char| '|c|) - (MAKESTRING "category")) + "category") (CONS (CONS (|char| '|x|) - (MAKESTRING "default package")) + "default package") NIL))))))) ;$OpViewTable := '( @@ -18779,7 +18691,7 @@ $dbKindAlist := ;bcBlankLine() == bcHt '"\vspace{1}\newline " -(DEFUN |bcBlankLine| () (|bcHt| (MAKESTRING "\\vspace{1}\\newline "))) +(DEFUN |bcBlankLine| () (|bcHt| "\\vspace{1}\\newline ")) ;pluralize k == ; k = '"child" => '"children" @@ -18789,11 +18701,11 @@ $dbKindAlist := (DEFUN |pluralize| (|k|) (COND - ((BOOT-EQUAL |k| (MAKESTRING "child")) (MAKESTRING "children")) - ((BOOT-EQUAL |k| (MAKESTRING "category")) - (MAKESTRING "categories")) - ((BOOT-EQUAL |k| (MAKESTRING "entry")) (MAKESTRING "entries")) - ('T (STRCONC |k| (MAKESTRING "s"))))) + ((BOOT-EQUAL |k| "child") "children") + ((BOOT-EQUAL |k| "category") + "categories") + ((BOOT-EQUAL |k| "entry") "entries") + ('T (STRCONC |k| "s")))) ;capitalize s == ; LASSOC(s,'( @@ -18836,7 +18748,7 @@ $dbKindAlist := ((EQL (|#| |u|) 1) (COND ((|member| |u| |$htSpecialChars|) - (CONS (CONCAT (MAKESTRING "\\") |u|) NIL)) + (CONS (CONCAT "\\" |u|) NIL)) ('T (CONS |u| NIL)))) ('T (SPADLET |c| (|char| (ELT |u| 0))) (COND @@ -18852,7 +18764,7 @@ $dbKindAlist := (SEQ (EXIT (SETQ G176470 (OR G176470 (BOOT-EQUAL |c| (|char| |y|))))))))) - (CONS (CONCAT (MAKESTRING "\\") |u|) NIL)) + (CONS (CONCAT "\\" |u|) NIL)) ('T (CONS |u| NIL))))))))) ;escapeString com == --this makes changes on single comment lines @@ -18877,12 +18789,12 @@ $dbKindAlist := (SPADLET |look| NIL)) ('T (SPADLET |look| - (STRPOSL (MAKESTRING "${}#%") + (STRPOSL "${}#%" |com| |look| NIL)) (COND (|look| (SPADLET |com| (RPLACSTR |com| |look| 0 - (MAKESTRING "\\"))) + "\\")) (SPADLET |look| (PLUS |look| 2))) ('T NIL))))))) |com|))))) @@ -18937,11 +18849,11 @@ $dbKindAlist := (RETURN (SEQ (SPADLET |s| (|form2HtString| |c|)) (IF (|member| |s| |$emList|) - (EXIT (|htSay| (MAKESTRING "{\\em ") |s| - (MAKESTRING "}")))) + (EXIT (|htSay| "{\\em " |s| + "}"))) (EXIT (|satDownLink| |s| - (CONS (MAKESTRING "(|aPage| '|") - (CONS |s| (CONS (MAKESTRING "|)") NIL))))))))) + (CONS "(|aPage| '|" + (CONS |s| (CONS "|)" NIL))))))))) (DEFUN |htPred2English,gn| (|x| |op| |l| |prec|) (declare (ignore |prec|)) @@ -18949,19 +18861,19 @@ $dbKindAlist := (declare (special |$emList|)) (RETURN (SEQ (IF (MEMQ |op| '(NOT |not|)) - (EXIT (SEQ (|htSay| (MAKESTRING "not ")) + (EXIT (SEQ (|htSay| "not ") (EXIT (|htPred2English,fn| (CAR |l|) 0))))) (IF (BOOT-EQUAL |op| '|HasCategory|) (EXIT (SEQ (|bcConform| (CAR |l|) |$emList|) - (|htSay| (MAKESTRING " has ")) + (|htSay| " has ") (EXIT (|bcConform| (CADADR |l|) |$emList|))))) (IF (BOOT-EQUAL |op| '|HasAttribute|) (EXIT (SEQ (|bcConform| (CAR |l|) |$emList|) - (|htSay| (MAKESTRING " has ")) + (|htSay| " has ") (EXIT (|htPred2English,fnAttr| (CADADR |l|)))))) (IF (MEMQ |op| '(|has| |ofCategory|)) (EXIT (SEQ (|bcConform| (CAR |l|) |$emList|) - (|htSay| (MAKESTRING " has ")) + (|htSay| " has ") (PROGN (SPADLET |a| (CAR |l|)) (SPADLET |b| (CADR |l|)) @@ -19001,7 +18913,7 @@ $dbKindAlist := 'T))) (EXIT (SEQ (IF (> |iprec| |prec|) - (|htSay| (MAKESTRING "(")) NIL) + (|htSay| "(") NIL) (|htPred2English,fn| (CAR |l|) |iprec|) (DO @@ -19014,22 +18926,22 @@ $dbKindAlist := NIL)) NIL) (SEQ - (|htSay| (MAKESTRING " ") + (|htSay| " " (OR |rename| |op|) - (MAKESTRING " ")) + " ") (EXIT (|htPred2English,fn| |y| |iprec|)))) (EXIT (IF (> |iprec| |prec|) - (|htSay| (MAKESTRING ")")) NIL))))) - (IF (> 5 |prec|) (|htSay| (MAKESTRING "(")) + (|htSay| ")") NIL))))) + (IF (> 5 |prec|) (|htSay| "(") NIL) (|htPred2English,gn| |x| |op| |l| |prec|) (EXIT (IF (> 5 |prec|) - (|htSay| (MAKESTRING ")")) NIL))))) + (|htSay| ")") NIL))))) (IF (BOOT-EQUAL |x| '|etc|) - (EXIT (|htSay| (MAKESTRING "...")))) + (EXIT (|htSay| "..."))) (IF (AND (IDENTP |x|) (NULL (MEMQ |x| |$emList|))) (EXIT (|htSay| (|escapeSpecialIds| (PNAME |x|))))) (EXIT (|htSay| (|form2HtString| |x| |$emList|))))))) @@ -19087,7 +18999,7 @@ $dbKindAlist := (SEQ (IF (IDENTP |u|) (EXIT (|escapeSpecialIds| (PNAME |u|)))) (IF (STRINGP |u|) (EXIT (|escapeString| |u|))) (IF (ATOM |u|) (EXIT (|systemError|))) - (EXIT (CONS (MAKESTRING "(") + (EXIT (CONS "(" (APPEND (PROG (G176603) (SPADLET G176603 NIL) (RETURN @@ -19104,10 +19016,10 @@ $dbKindAlist := (SETQ G176603 (APPEND G176603 (|lisp2HT,fn| |x|)))))))) - (CONS (MAKESTRING ")") NIL)))))))) + (CONS ")" NIL)))))))) -(DEFUN |lisp2HT| (|u|) (CONS (MAKESTRING "'") (|lisp2HT,fn| |u|))) +(DEFUN |lisp2HT| (|u|) (CONS "'" (|lisp2HT,fn| |u|))) ;args2HtString(x,:options) == ; null x => '"" @@ -19119,7 +19031,7 @@ $dbKindAlist := (PROG (|emList|) (RETURN (COND - ((NULL |x|) (MAKESTRING "")) + ((NULL |x|) "") ('T (SPADLET |emList| (IFCAR |options|)) (SUBSTRING (|form2HtString| (CONS '|f| |x|) |emList|) 1 NIL)))))) @@ -19158,12 +19070,12 @@ $dbKindAlist := ; STRCONC('",",fn first x,fnTailTail rest x) (DEFUN |form2HtString,fnTailTail| (|x|) - (SEQ (IF (NULL |x|) (EXIT (MAKESTRING ""))) - (EXIT (STRCONC (MAKESTRING ",") (|form2HtString,fn| (CAR |x|)) + (SEQ (IF (NULL |x|) (EXIT "")) + (EXIT (STRCONC "," (|form2HtString,fn| (CAR |x|)) (|form2HtString,fnTailTail| (CDR |x|)))))) (DEFUN |form2HtString,fnTail| (|x| |str|) - (SEQ (IF (NULL |x|) (EXIT (MAKESTRING ""))) + (SEQ (IF (NULL |x|) (EXIT "")) (EXIT (STRCONC (ELT |str| 0) (|form2HtString,fn| (CAR |x|)) (|form2HtString,fnTailTail| (CDR |x|)) (ELT |str| 1))))) @@ -19174,37 +19086,37 @@ $dbKindAlist := (RETURN (SEQ (IF (ATOM |x|) (EXIT (SEQ (IF (MEMQ |x| |$FormalMapVariableList|) - (EXIT (STRCONC (MAKESTRING "\\") + (EXIT (STRCONC "\\" (STRINGIMAGE |x|)))) (SPADLET |u| (|escapeSpecialChars| (STRINGIMAGE |x|))) (IF (MEMQ |x| |$emList|) - (EXIT (STRCONC (MAKESTRING "{\\em ") |u| - (MAKESTRING "}")))) + (EXIT (STRCONC "{\\em " |u| + "}"))) (IF (STRINGP |x|) - (EXIT (STRCONC (MAKESTRING "\"") |u| - (MAKESTRING "\"")))) + (EXIT (STRCONC "\"" |u| + "\""))) (EXIT |u|)))) (IF (BOOT-EQUAL (CAR |x|) 'QUOTE) - (EXIT (STRCONC (MAKESTRING "'") + (EXIT (STRCONC "'" (|sexpr2HtString| (CAR (CDR |x|)))))) (IF (BOOT-EQUAL (CAR |x|) '|:|) (EXIT (STRCONC (|form2HtString,fn| (CAR (CDR |x|))) - (MAKESTRING ": ") + ": " (|form2HtString,fn| (CAR (CDR (CDR |x|))))))) (IF (BOOT-EQUAL (CAR |x|) '|Mapping|) (EXIT (STRCONC (|form2HtString,fnTail| (CDR (CDR |x|)) - (MAKESTRING "()")) - (MAKESTRING "->") + "()") + "->" (|form2HtString,fn| (CAR (CDR |x|)))))) (IF (BOOT-EQUAL (CAR |x|) '|construct|) (EXIT (|form2HtString,fnTail| (CDR |x|) - (MAKESTRING "[]")))) + "[]"))) (SPADLET |tail| (|form2HtString,fnTail| (CDR |x|) - (MAKESTRING "()"))) + "()")) (SPADLET |head| (|form2HtString,fn| (CAR |x|))) (EXIT (STRCONC |head| |tail|)))))) @@ -19233,11 +19145,11 @@ $dbKindAlist := (RETURN (SEQ (SPADLET |r| (CDR |x|)) (SPADLET |suffix| - (SEQ (IF (NULL |r|) (EXIT (MAKESTRING ""))) + (SEQ (IF (NULL |r|) (EXIT "")) (IF (ATOM |r|) - (EXIT (STRCONC (MAKESTRING " . ") + (EXIT (STRCONC " . " (|form2HtString| (CDR |x|))))) - (EXIT (STRCONC (MAKESTRING " ") + (EXIT (STRCONC " " (|sexpr2HtString,fn| |r|))))) (EXIT (STRCONC (|sexpr2HtString| (CAR |x|)) |suffix|)))))) @@ -19245,8 +19157,8 @@ $dbKindAlist := (COND ((ATOM |x|) (|form2HtString| |x|)) ('T - (STRCONC (MAKESTRING "(") (|sexpr2HtString,fn| |x|) - (MAKESTRING ")"))))) + (STRCONC "(" (|sexpr2HtString,fn| |x|) + ")")))) ;form2LispString(x) == ; atom x => @@ -19267,19 +19179,19 @@ $dbKindAlist := (COND ((ATOM |x|) (COND - ((BOOT-EQUAL |x| '$) (MAKESTRING "_$")) + ((BOOT-EQUAL |x| '$) "_$") ((MEMQ |x| |$FormalMapVariableList|) (STRCONC (STRINGIMAGE '_) (STRINGIMAGE |x|))) ((STRINGP |x|) - (STRCONC (MAKESTRING "\"") (STRINGIMAGE |x|) - (MAKESTRING "\""))) + (STRCONC "\"" (STRINGIMAGE |x|) + "\"")) ('T (STRINGIMAGE |x|)))) ((AND (PAIRP |x|) (EQ (QCAR |x|) 'QUOTE) (PROGN (SPADLET |ISTMP#1| (QCDR |x|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) 'T)))) - (STRCONC (MAKESTRING "'") (|sexpr2LispString| |a|))) + (STRCONC "'" (|sexpr2LispString| |a|))) ((AND (PAIRP |x|) (EQ (QCAR |x|) '|:|) (PROGN (SPADLET |ISTMP#1| (QCDR |x|)) @@ -19289,14 +19201,14 @@ $dbKindAlist := (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |b| (QCAR |ISTMP#2|)) 'T)))))) - (STRCONC (|form2LispString| |a|) (MAKESTRING ":") + (STRCONC (|form2LispString| |a|) ":" (|form2LispString| |b|))) ((BOOT-EQUAL (CAR |x|) '|Mapping|) (COND ((NULL (CDR (SPADLET |r| (CDR |x|)))) - (STRCONC (MAKESTRING "()->") (|form2LispString| (CAR |r|)))) + (STRCONC "()->" (|form2LispString| (CAR |r|)))) ('T - (STRCONC (|args2LispString| (CDR |r|)) (MAKESTRING "->") + (STRCONC (|args2LispString| (CDR |r|)) "->" (|form2LispString| (CAR |r|)))))) ('T (STRCONC (|form2LispString| (CAR |x|)) @@ -19317,11 +19229,11 @@ $dbKindAlist := (RETURN (SEQ (SPADLET |r| (CDR |x|)) (SPADLET |suffix| - (SEQ (IF (NULL |r|) (EXIT (MAKESTRING ""))) + (SEQ (IF (NULL |r|) (EXIT "")) (IF (ATOM |r|) - (EXIT (STRCONC (MAKESTRING " . ") + (EXIT (STRCONC " . " (|form2LispString| (CDR |x|))))) - (EXIT (STRCONC (MAKESTRING " ") + (EXIT (STRCONC " " (|sexpr2LispString,fn| |r|))))) (EXIT (STRCONC (|sexpr2HtString| (CAR |x|)) |suffix|)))))) @@ -19329,8 +19241,8 @@ $dbKindAlist := (COND ((ATOM |x|) (|form2LispString| |x|)) ('T - (STRCONC (MAKESTRING "(") (|sexpr2LispString,fn| |x|) - (MAKESTRING ")"))))) + (STRCONC "(" (|sexpr2LispString,fn| |x|) + ")")))) ;args2LispString x == ; null x => '"" @@ -19340,17 +19252,17 @@ $dbKindAlist := ; STRCONC('",",form2LispString first x,fnTailTail rest x) (DEFUN |args2LispString,fnTailTail| (|x|) - (SEQ (IF (NULL |x|) (EXIT (MAKESTRING ""))) - (EXIT (STRCONC (MAKESTRING ",") (|form2LispString| (CAR |x|)) + (SEQ (IF (NULL |x|) (EXIT "")) + (EXIT (STRCONC "," (|form2LispString| (CAR |x|)) (|args2LispString,fnTailTail| (CDR |x|)))))) (DEFUN |args2LispString| (|x|) (COND - ((NULL |x|) (MAKESTRING "")) + ((NULL |x|) "") ('T - (STRCONC (MAKESTRING "(") (|form2LispString| (CAR |x|)) + (STRCONC "(" (|form2LispString| (CAR |x|)) (|args2LispString,fnTailTail| (CDR |x|)) - (MAKESTRING ")"))))) + ")")))) ;dbConstructorKind x == ; target := CADAR GETDATABASE(x,'CONSTRUCTORMODEMAP) @@ -19439,15 +19351,15 @@ $dbKindAlist := (COND ((STRINGP |comments|) (COND - ((BOOT-EQUAL |comments| (MAKESTRING "")) NIL) - ('T (|htSay| (MAKESTRING "\\newline ")) - (COND (|italics?| (|htSay| (MAKESTRING "{\\em ")))) + ((BOOT-EQUAL |comments| "") NIL) + ('T (|htSay| "\\newline ") + (COND (|italics?| (|htSay| "{\\em "))) (|htSay| |comments|) (COND - (|italics?| (|htSay| (MAKESTRING "}"))) + (|italics?| (|htSay| "}")) ('T NIL))))) ((NULL |comments|) NIL) - ('T (|htSay| (MAKESTRING "\\newline ")) + ('T (|htSay| "\\newline ") (COND (|italics?| (|htSay| '|{\\em |))) (|htSay| (CAR |comments|)) (DO ((G176760 (CDR |comments|) (CDR G176760)) @@ -19455,9 +19367,9 @@ $dbKindAlist := ((OR (ATOM G176760) (PROGN (SETQ |x| (CAR G176760)) NIL)) NIL) - (SEQ (EXIT (|htSay| (MAKESTRING " ") |x|)))) + (SEQ (EXIT (|htSay| " " |x|)))) (COND - (|italics?| (|htSay| (MAKESTRING "}"))) + (|italics?| (|htSay| "}")) ('T NIL))))))))) ;bcConform(form,:options) == @@ -19549,7 +19461,7 @@ $dbKindAlist := ;htSayItalics s == htSay('"{\em ",s,'"}") (DEFUN |htSayItalics| (|s|) - (|htSay| (MAKESTRING "{\\em ") |s| (MAKESTRING "}"))) + (|htSay| "{\\em " |s| "}")) ;bcCon(name,:options) == ; argString := IFCAR options or '"" @@ -19563,7 +19475,7 @@ $dbKindAlist := (PROG (|argString| |s|) (RETURN (PROGN - (SPADLET |argString| (OR (IFCAR |options|) (MAKESTRING ""))) + (SPADLET |argString| (OR (IFCAR |options|) "")) (SPADLET |s| (STRINGIMAGE |name|)) (|bcStar| |name|) (|htSayConstructorName| |s| |s|) @@ -19620,7 +19532,7 @@ $dbKindAlist := ((NULL |exposed?|) (|htSayUnexposed|) (COND ((BOOT-EQUAL (ELT |op| 0) (|char| '*)) - (|htSay| (MAKESTRING " "))) + (|htSay| " ")) ('T NIL))) ('T (|htBlank|)))) @@ -19644,10 +19556,10 @@ $dbKindAlist := (PROGN (SPADLET |u| (GETDATABASE |name| 'SOURCEFILE)) (COND - ((NULL |u|) (MAKESTRING "")) + ((NULL |u|) "") ('T (SPADLET |n| (PATHNAME-NAME |u|)) (SPADLET |t| (PATHNAME-TYPE |u|)) - (STRCONC |n| (MAKESTRING ".") |t|))))))) + (STRCONC |n| "." |t|))))))) ;asharpConstructorName? name == ; u:= GETDATABASE(name,'SOURCEFILE) @@ -19658,7 +19570,7 @@ $dbKindAlist := (RETURN (PROGN (SPADLET |u| (GETDATABASE |name| 'SOURCEFILE)) - (AND |u| (BOOT-EQUAL (PATHNAME-TYPE |u|) (MAKESTRING "as"))))))) + (AND |u| (BOOT-EQUAL (PATHNAME-TYPE |u|) "as")))))) ;asharpConstructors() == ; [x for x in allConstructors() | not asharpConstructorName? x] @@ -19719,19 +19631,19 @@ $dbKindAlist := (SEQ (EXIT (PROGN (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "&")))) - (|htSay| (MAKESTRING "{")) + ('T (|htSaySaturn| "&"))) + (|htSay| "{") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS (|escapeSpecialChars| (STRINGIMAGE (|opOf| |op|))) - (CONS (MAKESTRING "") + (CONS "" (CONS |fn| (CONS |i| NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING "}")))))) + (|htSay| "}"))))) (|htEndTable|)))))) ;bcNameConTable u == @@ -19772,11 +19684,11 @@ $dbKindAlist := (SEQ (EXIT (PROGN (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "&")))) - (|htSay| (MAKESTRING "{")) + ('T (|htSaySaturn| "&"))) + (|htSay| "{") (|bcStarSpace| (|opOf| |con|)) (|bcConform| |con|) - (|htSay| (MAKESTRING "}")))))) + (|htSay| "}"))))) (|htEndTable|)))))) ;bcAbbTable u == @@ -19805,7 +19717,7 @@ $dbKindAlist := (SEQ (EXIT (PROGN (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "&")))) + ('T (|htSaySaturn| "&"))) (COND ((AND (PAIRP |x|) (PROGN @@ -19816,9 +19728,9 @@ $dbKindAlist := (SPADLET |abb| (QCAR |ISTMP#1|)) 'T)))) - (|htSay| (MAKESTRING "{")) + (|htSay| "{") (|bcAbb| |con| |abb|) - (|htSay| (MAKESTRING "}"))) + (|htSay| "}")) ('T NIL)))))) (|htEndTable|)))))) @@ -19864,8 +19776,8 @@ $dbKindAlist := (SEQ (EXIT (PROGN (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "&")))) - (|htSay| (MAKESTRING "{")) + ('T (|htSaySaturn| "&"))) + (|htSay| "{") (|bcStarSpace| (|opOf| |conform|)) (SPADLET |form| (COND @@ -19885,13 +19797,13 @@ $dbKindAlist := (SPADLET |pred| (QCDR |ISTMP#1|)) 'T))) - (|htSay| (MAKESTRING " {\\em of} ")) + (|htSay| " {\\em of} ") (|bcConform| (CONS |conname| |arglist|) |italicList| 'T))) (COND ((NEQUAL |pred| '|etc|) (|bcPred| |pred| |italicList|))) - (|htSay| (MAKESTRING "}")))))) + (|htSay| "}"))))) (|htEndTable|)))))) ;bcPred(pred,:options) == @@ -19905,13 +19817,13 @@ $dbKindAlist := (PROG (|italicList|) (RETURN (COND - ((OR (BOOT-EQUAL |pred| (MAKESTRING "")) (BOOT-EQUAL |pred| 'T) + ((OR (BOOT-EQUAL |pred| "") (BOOT-EQUAL |pred| 'T) (NULL |pred|)) '|skip|) ('T (SPADLET |italicList| (IFCAR |options|)) (COND ((NULL (IFCAR (IFCDR |options|))) - (|htSay| (MAKESTRING " {\\em if} ")))) + (|htSay| " {\\em if} "))) (|htPred2English| |pred| |italicList|)))))) ;extractHasArgs pred == @@ -20013,7 +19925,7 @@ $dbKindAlist := (PROG (|firstTime| |s|) (RETURN (SEQ (PROGN - (|htSay| (MAKESTRING "\\newline")) + (|htSay| "\\newline") (|htBeginTable|) (SPADLET |firstTime| 'T) (DO ((G177128 |u| (CDR G177128)) (|x| NIL)) @@ -20023,8 +19935,8 @@ $dbKindAlist := (SEQ (EXIT (PROGN (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "&")))) - (|htSay| (MAKESTRING "{")) + ('T (|htSaySaturn| "&"))) + (|htSay| "{") (COND ((IFCAR |option|) (|bcStar| |x|))) (|htMakePage| (CONS (CONS '|bcLinks| @@ -20033,11 +19945,11 @@ $dbKindAlist := (SPADLET |s| (|escapeSpecialChars| (STRINGIMAGE |x|))) - (CONS (MAKESTRING "") + (CONS "" (CONS |fn| (CONS |s| NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING "}")))))) + (|htSay| "}"))))) (|htEndTable|)))))) ;bcNameCountTable(u,fn,gn,:options) == @@ -20065,7 +19977,7 @@ $dbKindAlist := (COND ((IFCAR |options|) '|bcLispLinks|) ('T '|bcLinks|))) - (|htSay| (MAKESTRING "\\newline")) + (|htSay| "\\newline") (|htBeginTable|) (SPADLET |firstTime| 'T) (DO ((|i| 0 (QSADD1 |i|)) (G177152 |u| (CDR G177152)) @@ -20076,17 +19988,17 @@ $dbKindAlist := (SEQ (EXIT (PROGN (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "&")))) - (|htSay| (MAKESTRING "{")) + ('T (|htSaySaturn| "&"))) + (|htSay| "{") (|htMakePage| (CONS (CONS |linkFunction| (CONS (CONS (FUNCALL |fn| |x|) - (CONS (MAKESTRING "") + (CONS "" (CONS |gn| (CONS |i| NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING "}")))))) + (|htSay| "}"))))) (|htEndTable|)))))) ;dbSayItemsItalics(:u) == @@ -20097,9 +20009,9 @@ $dbKindAlist := (DEFUN |dbSayItemsItalics| (&REST G177169 &AUX |u|) (DSETQ |u| G177169) (PROGN - (|htSay| (MAKESTRING "{\\em ")) + (|htSay| "{\\em ") (APPLY (|function| |dbSayItems|) |u|) - (|htSay| (MAKESTRING "}")))) + (|htSay| "}"))) ;dbSayItems(countOrPrefix,singular,plural,:options) == ; bcHt '"\newline " @@ -20121,7 +20033,7 @@ $dbKindAlist := (PROG (|ISTMP#1| |c| |prefix| |count|) (RETURN (SEQ (PROGN - (|bcHt| (MAKESTRING "\\newline ")) + (|bcHt| "\\newline ") (SPADLET |count| (COND ((AND (PAIRP |countOrPrefix|) @@ -20141,16 +20053,16 @@ $dbKindAlist := ('T |countOrPrefix|))) (COND ((EQL |count| 0) - (|htSay| (MAKESTRING "No ") |singular|)) - ((EQL |count| 1) (|htSay| (MAKESTRING "1 ") |singular|)) - ('T (|htSay| |count| (MAKESTRING " ") |plural|))) + (|htSay| "No " |singular|)) + ((EQL |count| 1) (|htSay| "1 " |singular|)) + ('T (|htSay| |count| " " |plural|))) (DO ((G177179 |options| (CDR G177179)) (|x| NIL)) ((OR (ATOM G177179) (PROGN (SETQ |x| (CAR G177179)) NIL)) NIL) (SEQ (EXIT (|bcHt| |x|)))) (COND - ((NEQUAL |count| 0) (|bcHt| (MAKESTRING ":"))) + ((NEQUAL |count| 0) (|bcHt| ":")) ('T NIL))))))) ;dbBasicConstructor? conname == MEMBER(dbSourceFile conname,'("catdef" "coerce")) @@ -20222,22 +20134,20 @@ $dbKindAlist := (PROGN (SPADLET |skipNamePart| (IFCAR |options|)) (SPADLET |heading| - (CONS (MAKESTRING "No ") + (CONS "No " (CONS (|capitalize| |kind|) - (CONS (MAKESTRING " Found") NIL)))) + (CONS " Found" NIL)))) (|htInitPage| |heading| NIL) (SPADLET |exposePart| (COND ((NULL |$includeUnexposed?|) - (MAKESTRING "{\\em exposed} ")) - ('T (MAKESTRING "")))) - (|htSay| (MAKESTRING - "\\vspace{1}\\newline\\centerline{There is no ") + "{\\em exposed} ") + ('T ""))) + (|htSay| "\\vspace{1}\\newline\\centerline{There is no " |exposePart| |kind| - (MAKESTRING - " matching pattern}\\newline\\centerline{{\\em ")) + " matching pattern}\\newline\\centerline{{\\em ") (COND (|filter| (|htPred2English| |filter|))) - (|htSay| (MAKESTRING "}}")) + (|htSay| "}}") (|htShowPage|))))) ;isLoaded? conform == GET(constructor? opOf conform,'LOADED) @@ -20277,8 +20187,8 @@ $dbKindAlist := (PROGN (SPADLET |s| (|htpLabelInputString| |htPage| '|filter|)) (COND - ((OR (NULL |s|) (BOOT-EQUAL |s| (MAKESTRING ""))) - (MAKESTRING "*")) + ((OR (NULL |s|) (BOOT-EQUAL |s| "")) + "*") ('T |s|)))))) ;--======================================================================= @@ -20306,7 +20216,7 @@ $dbKindAlist := (SEQ (EXIT (|htSay| |x|)))) (|htShowPage|)) ('T - (|systemError| (MAKESTRING "Unexpected error message")))))))) + (|systemError| "Unexpected error message"))))))) ;errorPage(htPage,[heading,kind,:info]) == ; kind = 'invalidType => kInvalidTypePage first info @@ -20330,7 +20240,7 @@ $dbKindAlist := ('T (COND ((BOOT-EQUAL |heading| '|error|) - (|htInitPage| (MAKESTRING "Error") NIL)) + (|htInitPage| "Error" NIL)) ('T (|htInitPage| |heading| NIL))) (|bcBlankLine|) (DO ((G177299 |info| (CDR G177299)) (|x| NIL)) @@ -20345,10 +20255,9 @@ $dbKindAlist := (DEFUN |htErrorStar| () (|errorPage| NIL - (CONS (MAKESTRING "{\\em *} not a valid search string") + (CONS "{\\em *} not a valid search string" (CONS NIL - (CONS (MAKESTRING - "\\vspace{3}\\centerline{{\\em *} is not a valid search string for a general search}\\centerline{\\em {it would match everything!}}") + (CONS "\\vspace{3}\\centerline{{\\em *} is not a valid search string for a general search}\\centerline{\\em {it would match everything!}}" NIL))))) ;htQueryPage(htPage,heading,message,query,fn) == @@ -20386,29 +20295,29 @@ $dbKindAlist := (PROGN (SPADLET |upLink?| (IFCAR |options|)) (COND - (|question| (|htSay| (MAKESTRING "\\vspace{1}\\centerline{")) - (|htSay| |question|) (|htSay| (MAKESTRING "}")))) - (|htSay| (MAKESTRING "\\centerline{")) + (|question| (|htSay| "\\vspace{1}\\centerline{") + (|htSay| |question|) (|htSay| "}"))) + (|htSay| "\\centerline{") (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "\\fbox{Yes}") - (CONS (MAKESTRING "") + (CONS (CONS "\\fbox{Yes}" + (CONS "" (CONS |fn| (CONS '|yes| NIL)))) NIL)) NIL)) (|htBlank| 4) (COND (|upLink?| - (|htSay| (MAKESTRING "\\downlink{\\fbox{No}}{UpPage}"))) + (|htSay| "\\downlink{\\fbox{No}}{UpPage}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "\\fbox{No}") - (CONS (MAKESTRING "") + (CONS (CONS "\\fbox{No}" + (CONS "" (CONS |fn| (CONS '|no| NIL)))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}")))))) + (|htSay| "}"))))) ;kInvalidTypePage form == ; htInitPage('"Error",nil) @@ -20419,11 +20328,10 @@ $dbKindAlist := (DEFUN |kInvalidTypePage| (|form|) (PROGN - (|htInitPage| (MAKESTRING "Error") NIL) + (|htInitPage| "Error" NIL) (|bcBlankLine|) - (|htSay| (MAKESTRING - "\\centerline{You gave an invalid type:}\\newline\\centerline{{\\sf ")) - (|htSay| (|form2HtString| |form|) (MAKESTRING "}}")) + (|htSay| "\\centerline{You gave an invalid type:}\\newline\\centerline{{\\sf ") + (|htSay| (|form2HtString| |form|) "}}") (|htShowPage|))) ;dbNotAvailablePage(:options) == @@ -20435,11 +20343,10 @@ $dbKindAlist := (DEFUN |dbNotAvailablePage| (&REST G177333 &AUX |options|) (DSETQ |options| G177333) (PROGN - (|htInitPage| (MAKESTRING "Missing Page") NIL) + (|htInitPage| "Missing Page" NIL) (|bcBlankLine|) (|htSay| (OR (IFCAR |options|) - (MAKESTRING - "\\centerline{This page is not available yet}"))) + "\\centerline{This page is not available yet}")) (|htShowPage|))) ;--======================================================================= @@ -20590,12 +20497,12 @@ $dbKindAlist := |infoAlist| |opAlist|) (RETURN (PROGN - (SPADLET |which| (MAKESTRING "operation")) + (SPADLET |which| "operation") (|htpSetProperty| |htPage| '|which| |which|) (SPADLET |domname| (|htpProperty| |htPage| '|domname|)) (SPADLET |conform| (|htpProperty| |htPage| '|conform|)) (SPADLET |heading| - (CONS (MAKESTRING "Capsule Cross Reference for ") + (CONS "Capsule Cross Reference for " (|htpProperty| |htPage| '|heading|))) (SPADLET |page| (|htInitPage| |heading| (|htCopyProplist| |htPage|))) @@ -20930,7 +20837,7 @@ $dbKindAlist := (COND ((BOOT-EQUAL |kind| '|category|) (CONS (INTERN (STRCONC (PNAME |conname|) - (MAKESTRING "&"))) + "&")) (CONS '$ (CDR |conform|)))) ('T |conform|))) (SPADLET |faTypes| @@ -20947,20 +20854,20 @@ $dbKindAlist := (|escapeSpecialChars| (STRINGIMAGE (|zeroOneConvert| |op|)))) (SPADLET |oppart| - (CONS (MAKESTRING "{\\em ") - (CONS |ops| (CONS (MAKESTRING "}") NIL)))) + (CONS "{\\em " + (CONS |ops| (CONS "}" NIL)))) (SPADLET |head| (COND (|sig| (APPEND |oppart| - (CONS (MAKESTRING ": ") + (CONS ": " (|dbConformGen| (|dbInfoSig| |sig|))))) ('T |oppart|))) (SPADLET |heading| (APPEND |head| - (CONS (MAKESTRING " from {\\sf ") + (CONS " from {\\sf " (CONS (|form2HtString| |conform|) - (CONS (MAKESTRING "}") NIL))))) + (CONS "}" NIL))))) (DO ((G177589 |alist| (CDR G177589)) (|u| NIL)) ((OR (ATOM G177589) (PROGN (SETQ |u| (CAR G177589)) NIL)) @@ -21041,7 +20948,7 @@ $dbKindAlist := (SETQ G177606 (OR G177606 |x|))))))))) (|systemError| - (MAKESTRING "cannot find signature")))) + "cannot find signature"))) (SPADLET |sig| (CAR |item|)) (SPADLET |pred| (CADR |item|)) (SPADLET |origin| (CADDR |item|)) @@ -21049,13 +20956,11 @@ $dbKindAlist := (SPADLET |doc| (CAR (CDDDDR |item|))) (|htpSetProperty| |htPage| '|fromAlist| |fromAlist|) (|htSayHline|) - (|htSay| (MAKESTRING - "\\center{Cross Reference for definition of {\\em ") - |ops| (MAKESTRING "}}\\beginmenu ")) + (|htSay| "\\center{Cross Reference for definition of {\\em " + |ops| "}}\\beginmenu ") (COND (|locals| - (|htSay| (MAKESTRING - "\\item\\menuitemstyle{}{\\em local variables:}\\newline")) + (|htSay| "\\item\\menuitemstyle{}{\\em local variables:}\\newline") (|dbShowInfoList| |locals| 8192 NIL))) (SPADLET |bincount| 2) (DO ((G177635 |fromAlist| (CDR G177635)) @@ -21070,15 +20975,13 @@ $dbKindAlist := NIL)) NIL) (SEQ (EXIT (PROGN - (|htSay| (MAKESTRING "\\item")) + (|htSay| "\\item") (COND ((IDENTP |con|) - (|htSay| (MAKESTRING - "\\menuitemstyle{} {\\em calls to} ")) + (|htSay| "\\menuitemstyle{} {\\em calls to} ") (COND ((NEQUAL |con| '|Rep|) - (|htSay| (MAKESTRING - "{\\em argument} ")))) + (|htSay| "{\\em argument} "))) (|htSay| |con|) (COND ((PROG (G177642) @@ -21120,8 +21023,7 @@ $dbKindAlist := |orig|)) (BOOT-EQUAL |origin| |orig|)))))))))) - (|htSay| (MAKESTRING - " {\\em of type} ")) + (|htSay| " {\\em of type} ") (|bcConform| |orig|))) (SPADLET |buttonForOp| NIL)) ('T @@ -21130,20 +21032,20 @@ $dbKindAlist := (CONS '|bcLinks| (CONS (CONS - (MAKESTRING "\\menuitemstyle{}") - (CONS (MAKESTRING "") + "\\menuitemstyle{}" + (CONS "" (CONS '|dbInfoChoose| (CONS |bincount| NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING "{\\em calls to} ")) + (|htSay| "{\\em calls to} ") (|bcConform| |con|) (SPADLET |buttonForOp| 'T))) - (|htSay| (MAKESTRING ":\\newline ")) + (|htSay| ":\\newline ") (|dbShowInfoList| |fns| (TIMES |bincount| 8192) |buttonForOp|) (SPADLET |bincount| (PLUS |bincount| 1)))))) - (|htSay| (MAKESTRING "\\endmenu "))))))) + (|htSay| "\\endmenu ")))))) ;dbShowInfoList(dataItems,count,buttonForOp?) == ;--dataItems are [op,:sig] @@ -21176,7 +21078,7 @@ $dbKindAlist := (RETURN (SEQ (PROGN (SPADLET |single?| (NULL (CDR |dataItems|))) - (|htSay| (MAKESTRING "\\table{")) + (|htSay| "\\table{") (DO ((G177759 |dataItems| (CDR G177759)) (|item| NIL)) ((OR (ATOM G177759) (PROGN (SETQ |item| (CAR G177759)) NIL)) @@ -21208,12 +21110,12 @@ $dbKindAlist := (SPADLET |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) - (|htSay| (MAKESTRING "{")) + (|htSay| "{") (COND ((OR (> 16384 |count|) (NULL |buttonForOp?|)) (|htSay| (CONS |ops| - (CONS (MAKESTRING ": ") NIL))) + (CONS ": " NIL))) (COND ((ATOM |sig|) (|bcConform| |sig|)) ('T (|bcConform| (|dbInfoSig| |sig|))))) @@ -21223,18 +21125,18 @@ $dbKindAlist := (CONS '|bcLinks| (CONS (CONS |ops| - (CONS (MAKESTRING "") + (CONS "" (CONS '|dbInfoChooseSingle| (CONS |count| NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING ": ")) + (|htSay| ": ") (COND ((ATOM |sig|) (|htSay| |sig|)) ('T (|bcConform| (|dbInfoSig| |sig|)))))) - (|htSay| (MAKESTRING "}")) + (|htSay| "}") (SPADLET |count| (PLUS |count| 1)))))) - (|htSay| (MAKESTRING "} ")) + (|htSay| "} ") |count|))))) ;dbInfoFindCat(conform,conArgTypes,u) == @@ -21455,7 +21357,7 @@ $dbKindAlist := (|htpSetProperty| |page| '|kind| (PNAME (GETDATABASE (|opOf| |con|) 'CONSTRUCTORKIND))) (|dbShowOperationsFromConform| |page| - (MAKESTRING "operation") |opAlist|)))))) + "operation" |opAlist|)))))) ;dbInfoSigMatch(x,alist) == ; [op,:sigAlist] := x @@ -21593,7 +21495,7 @@ $dbKindAlist := (|koOps| (|htpProperty| |htPage| '|conform|) NIL)) (|htpSetProperty| |htPage| '|opAlist| |opAlist|) (|dbExpandOpAlistIfNecessary| |htPage| |opAlist| - (MAKESTRING "operation") NIL NIL))) + "operation" NIL NIL))) (|htpProperty| |htPage| '|opAlist|))))) ;--============================================================================ @@ -21693,20 +21595,20 @@ $dbKindAlist := (COND (|cat?| (SPADLET |conname| (INTERN (STRCONC (STRINGIMAGE |conname|) - (MAKESTRING "&")))))) + "&"))))) (SPADLET |abb| (OR (|constructor?| |conname|) - (RETURN (MAKESTRING "not a constructor")))) + (RETURN "not a constructor"))) (SPADLET |fs| - (STRCONC (PNAME |abb|) (MAKESTRING ".nrlib/info"))) + (STRCONC (PNAME |abb|) ".nrlib/info")) (SPADLET |inStream| (COND ((PROBE-FILE |fs|) (OPEN |fs|)) ('T (SPADLET |filename| - (STRCONC (MAKESTRING "/spad/int/algebra/") + (STRCONC "/spad/int/algebra/" (PNAME |abb|) - (MAKESTRING ".nrlib/info"))) + ".nrlib/info")) (COND ((PROBE-FILE |filename|) (OPEN |filename|)) ('T (RETURN NIL)))))) @@ -21729,7 +21631,7 @@ $dbKindAlist := ;--$standard:= true --true to write browser output on AIX ;$saturnAmpersand := '"\&\&" -(SPADLET |$saturnAmpersand| (MAKESTRING "\\&\\&")) +(SPADLET |$saturnAmpersand| "\\&\\&") ;$saturnFileNumber --true to write DOS files for Thinkpad (testing only) ; := false @@ -21838,7 +21740,7 @@ $dbKindAlist := (SPADLET |$saturn| 'T) (SPADLET |$saturnFileNumber| NIL) (SPADLET |$standard| NIL) - (|saturnEvalToFile| |command| (MAKESTRING "/tmp/sat.text")))) + (|saturnEvalToFile| |command| "/tmp/sat.text"))) ;ut() == ; $saturn := false @@ -21857,7 +21759,7 @@ $dbKindAlist := (declare (special |$saturnFileNumber|)) (PROGN (SPADLET |$saturnFileNumber| 1) - (|obey| (MAKESTRING "dosdir")))) + (|obey| "dosdir"))) ;offDisk() == ; $saturnFileNumber := false @@ -21884,9 +21786,9 @@ $dbKindAlist := (DEFUN |htSayCold| (|x|) (PROGN - (|htSay| (MAKESTRING "\\lispLink{}{")) + (|htSay| "\\lispLink{}{") (|htSay| |x|) - (|htSay| (MAKESTRING "}")))) + (|htSay| "}"))) ;htSayIfStandard(x, :options) == --do only for $standard ; $standard => htSayBind(x,options) @@ -21983,7 +21885,7 @@ $dbKindAlist := (DEFUN |htShowPage| () (PROGN - (|htSayStandard| (MAKESTRING "\\endscroll")) + (|htSayStandard| "\\endscroll") (|htShowPageNoScroll|))) ;------------------> NEW DEFINITION (see ht-util.boot.pamphlet) @@ -22016,7 +21918,7 @@ $dbKindAlist := |$saturn| |$standard|)) (RETURN (PROGN - (|htSayStandard| (MAKESTRING "\\autobuttons")) + (|htSayStandard| "\\autobuttons") (COND (|$standard| (|htpSetPageDescription| |$curPage| @@ -22067,19 +21969,17 @@ $dbKindAlist := (COND (|$saturn| (SPADLET |$marg| 0) (SPADLET |$linelength| 80) (|writeSaturn| - (MAKESTRING - "\\inputonce{/doc/browser/browmacs.tex}")) + "\\inputonce{/doc/browser/browmacs.tex}") (|writeSaturnPrefix|) (|writeSaturn| |line|) (|writeSaturnSuffix|) (COND (|$saturnFileNumber| (SPADLET |fn| - (STRCONC (MAKESTRING "sat") + (STRCONC "sat" (STRINGIMAGE |$saturnFileNumber|) - (MAKESTRING ".tex"))) - (|obey| (STRCONC (MAKESTRING - "doswrite -a saturn.tex ") - |fn| (MAKESTRING ".tex"))) + ".tex")) + (|obey| (STRCONC "doswrite -a saturn.tex " + |fn| ".tex")) (SPADLET |$saturnFileNumber| (PLUS |$saturnFileNumber| 1))) ('T NIL))) @@ -22108,16 +22008,16 @@ $dbKindAlist := (PLUS |$saturnContextMenuIndex| 1)))) (|writeSaturnLines| - (CONS (MAKESTRING "\\newmenu{BCM") + (CONS "\\newmenu{BCM" (CONS |index| - (CONS (MAKESTRING "}{") + (CONS "}{" (APPEND (NREVERSE |$saturnContextMenuLines|) (CONS - (MAKESTRING "}\\usemenu{BCM") + "}\\usemenu{BCM" (CONS |index| - (CONS (MAKESTRING "}{\\vbox{") + (CONS "}{\\vbox{" NIL)))))))))))))))) ;writeSaturnSuffix() == @@ -22127,7 +22027,7 @@ $dbKindAlist := (declare (special |$saturnContextMenuLines|)) (SEQ (COND (|$saturnContextMenuLines| - (EXIT (|saturnPRINTEXP| (MAKESTRING "}}"))))))) + (EXIT (|saturnPRINTEXP| "}}")))))) ;issueHTStandard line == --called by htMakePageNoScroll and htMakeErrorPage ; if $standard then @@ -22181,7 +22081,7 @@ $dbKindAlist := NIL) (SEQ (EXIT (PROGN (COND - ((AND (NEQUAL |line| (MAKESTRING "")) + ((AND (NEQUAL |line| "") (BOOT-EQUAL (ELT |line| 0) (|char| '|\\|))) (|saturnTERPRI|))) @@ -22271,19 +22171,19 @@ $dbKindAlist := (|writeSaturnPrint| |segment|) (COND ((EQL |code| 1) - (|writeSaturnPrint| (MAKESTRING "\\\\")) + (|writeSaturnPrint| "\\\\") (|writeSaturn| (SUBSTRING |line| (PLUS |k| 2) NIL))) ((EQL |code| 2) - (|writeSaturnPrint| (MAKESTRING " &")) + (|writeSaturnPrint| " &") (|writeSaturn| (SUBSTRING |line| (PLUS |k| 4) NIL))) ((EQL |code| 3) - (|writeSaturnPrint| (MAKESTRING "\\item")) + (|writeSaturnPrint| "\\item") (|writeSaturn| (SUBSTRING |line| (PLUS |k| 5) NIL))) ((EQL |code| 4) - (|writeSaturnPrint| (MAKESTRING "\\newline")) + (|writeSaturnPrint| "\\newline") (|writeSaturn| (SUBSTRING |line| (PLUS |k| 8) NIL))) ((EQL |code| 5) - (|writeSaturnPrint| (MAKESTRING "\\table{")) + (|writeSaturnPrint| "\\table{") (SPADLET |$marg| (PLUS |$marg| 3)) (|writeSaturnTable| (SUBSTRING |line| (PLUS |k| 7) NIL))) @@ -22302,11 +22202,11 @@ $dbKindAlist := ((EQL |code| 8) (SPADLET |i| (COND - ((|substring?| (MAKESTRING "\\beginmenu") + ((|substring?| "\\beginmenu" |line| |k|) (PLUS |k| 9)) ((|substring?| - (MAKESTRING "\\beginscroll") |line| + "\\beginscroll" |line| |k|) (PLUS |k| 11)) ('T @@ -22326,10 +22226,10 @@ $dbKindAlist := ((EQL |code| 9) (SPADLET |i| (COND - ((|substring?| (MAKESTRING "\\endmenu") + ((|substring?| "\\endmenu" |line| |k|) (PLUS |k| 7)) - ((|substring?| (MAKESTRING "\\endscroll") + ((|substring?| "\\endscroll" |line| |k|) (PLUS |k| 9)) ('T @@ -22382,15 +22282,15 @@ $dbKindAlist := ((BOOT-EQUAL |char2| (|char| '|\\|)) 1) ((BOOT-EQUAL |char2| (|char| '&)) (COND - ((|substring?| (MAKESTRING "&\\&") |line| |k|) 2) + ((|substring?| "&\\&" |line| |k|) 2) ('T NIL))) ((BOOT-EQUAL |char2| (|char| '|i|)) (COND - ((|substring?| (MAKESTRING "item") |line| |k|) 3) + ((|substring?| "item" |line| |k|) 3) ('T NIL))) ((BOOT-EQUAL |char2| (|char| '|n|)) (COND - ((|substring?| (MAKESTRING "newline") |line| |k|) 4) + ((|substring?| "newline" |line| |k|) 4) ('T NIL))) ((BOOT-EQUAL |char2| (|char| '|t|)) (COND @@ -22401,18 +22301,18 @@ $dbKindAlist := (COND ((> (SPADLET |k| (PLUS |k| 1)) |n|) NIL) ((BOOT-EQUAL (ELT |line| |k|) (|char| '{)) 6) - ((|substring?| (MAKESTRING "table") |line| + ((|substring?| "table" |line| (SPADDIFFERENCE |k| 3)) 5) ('T NIL))))) ((BOOT-EQUAL |char2| (|char| '!)) 7) ((BOOT-EQUAL |char2| (|char| '|b|)) (COND - ((|substring?| (MAKESTRING "begin") |line| |k|) 8) + ((|substring?| "begin" |line| |k|) 8) ('T NIL))) ((BOOT-EQUAL |char2| (|char| '|e|)) (COND - ((|substring?| (MAKESTRING "end") |line| |k|) 9) + ((|substring?| "end" |line| |k|) 9) ('T NIL))) ('T NIL))))))) @@ -22427,7 +22327,7 @@ $dbKindAlist := (DO ((G178364 (SPADDIFFERENCE |$marg| 1)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G178364) NIL) - (SEQ (EXIT (|saturnPRINTEXP| (MAKESTRING " "))))) + (SEQ (EXIT (|saturnPRINTEXP| " ")))) (|saturnPRINTEXP| |s|) (|saturnTERPRI|)))) @@ -22468,15 +22368,15 @@ $dbKindAlist := (RETURN (PROGN (SPADLET |open| - (|charPosition| (|char| (MAKESTRING "{")) |line| 0)) + (|charPosition| (|char| "{") |line| 0)) (SPADLET |close| - (|charPosition| (|char| (MAKESTRING "}")) |line| 0)) + (|charPosition| (|char| "}") |line| 0)) (COND ((> |close| |open|) (SPADLET |close| (OR (|findBalancingBrace| |line| (PLUS |open| 1) (MAXINDEX |line|) 0) - (|error| (MAKESTRING "no balancing brace")))) + (|error| "no balancing brace"))) (|writeSaturnPrint| (SUBSTRING |line| 0 (PLUS |close| 1))) (|writeSaturnTable| (SUBSTRING |line| (PLUS |close| 1) NIL))) ('T (SPADLET |$marg| (SPADDIFFERENCE |$marg| 3)) @@ -22638,7 +22538,7 @@ $dbKindAlist := (|htProcessDoitButton| |items|)) ('T (|systemError| - (MAKESTRING "unexpected branch")))))))))))) + "unexpected branch"))))))))))) ;saturnTran x == ; x is [[kind, [s1, s2, :callTail]]] and MEMQ(kind,'(bcLinks bcLispLinks)) => @@ -22689,9 +22589,9 @@ $dbKindAlist := ((SPADLET |y| (|isMenuItemStyle?| |s1|)) (SPADLET |t1| (|mkDocLink| |fs| (|mkMenuButton|))) (COND - ((BOOT-EQUAL |y| (MAKESTRING "")) + ((BOOT-EQUAL |y| "") (COND - ((BOOT-EQUAL |s2| (MAKESTRING "")) |t1|) + ((BOOT-EQUAL |s2| "") |t1|) ('T (|mkTabularItem| (CONS |t1| (CONS |text| NIL)))))) ('T (SPADLET |t2| (|mkDocLink| |fs| |y|)) (|mkTabularItem| @@ -22718,9 +22618,9 @@ $dbKindAlist := (PROGN (SPADLET |secondPart| (COND - ((ATOM |s|) (CONS |s| (CONS (MAKESTRING "}") NIL))) - ('T (APPEND |s| (CONS (MAKESTRING "}") NIL))))) - (CONS (MAKESTRING "{\\bf ") |secondPart|))))) + ((ATOM |s|) (CONS |s| (CONS "}" NIL))) + ('T (APPEND |s| (CONS "}" NIL))))) + (CONS "{\\bf " |secondPart|))))) ;mkMenuButton() == [menuButton()] @@ -22728,7 +22628,7 @@ $dbKindAlist := ;menuButton() == '"\menuitemstyle{}" -(DEFUN |menuButton| () (MAKESTRING "\\menuitemstyle{}")) +(DEFUN |menuButton| () "\\menuitemstyle{}") ;-- Saturn must translate \menuitemstyle ==> {\menuButton} ;--------------------> NEW DEFINITION (override in ht-util.boot.pamphlet) @@ -22742,9 +22642,9 @@ $dbKindAlist := (RETURN (PROGN (SPADLET |func| (|mkCurryFun| (CAR |form|) (CDR |form|))) - (STRCONC (MAKESTRING "(|htDoneButton| '|") |func| - (MAKESTRING "| ") (|htpName| (|page|)) - (MAKESTRING ")")))))) + (STRCONC "(|htDoneButton| '|" |func| + "| " (|htpName| (|page|)) + ")"))))) ;mkDocLink(code,s) == ; if atom code then code := [code] @@ -22755,10 +22655,10 @@ $dbKindAlist := (PROGN (COND ((ATOM |code|) (SPADLET |code| (CONS |code| NIL)))) (COND ((ATOM |s|) (SPADLET |s| (CONS |s| NIL)))) - (CONS (MAKESTRING "\\lispLink[d]{\\verb!") + (CONS "\\lispLink[d]{\\verb!" (APPEND |code| - (CONS (MAKESTRING "!}{") - (APPEND |s| (CONS (MAKESTRING "}") NIL))))))) + (CONS "!}{" + (APPEND |s| (CONS "}" NIL))))))) ;saturnTranText x == ; STRINGP x => [unTab x] @@ -22779,9 +22679,9 @@ $dbKindAlist := (SPADLET |ISTMP#1| (QCDR |r|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |fn| (QCAR |ISTMP#1|)) 'T))) - (BOOT-EQUAL |s| (MAKESTRING "\\unixcommand{"))) - (CONS (MAKESTRING "{\\it ") - (CONS |s| (CONS (MAKESTRING ".spad}") NIL)))) + (BOOT-EQUAL |s| "\\unixcommand{")) + (CONS "{\\it " + (CONS |s| (CONS ".spad}" NIL)))) ((AND (PAIRP |x|) (PROGN (SPADLET |ISTMP#1| (QCAR |x|)) @@ -22797,7 +22697,7 @@ $dbKindAlist := (DEFUN |isMenuItemStyle?| (|s|) (COND - ((EQL 15 (STRING< (MAKESTRING "\\menuitemstyle{") |s|)) + ((EQL 15 (STRING< "\\menuitemstyle{" |s|)) (SUBSTRING |s| 15 (SPADDIFFERENCE (MAXINDEX |s|) 15))) ('T NIL))) @@ -22841,8 +22741,8 @@ $dbKindAlist := (DEFUN |htSayHrule| () (declare (special |$saturn|)) (|bcHt| (COND - (|$saturn| (MAKESTRING "\\hrule{}\\newline{}")) - ('T (MAKESTRING "\\horizontalline{}\\newline{}"))))) + (|$saturn| "\\hrule{}\\newline{}") + ('T "\\horizontalline{}\\newline{}")))) ;--------------------> NEW DEFINITION (override in ht-util.boot.pamphlet) ;htpAddInputAreaProp(htPage, label, prop) == @@ -22894,7 +22794,7 @@ $dbKindAlist := ((|typeCheckInputAreas| |htPage|) (|htMakeErrorPage| |htPage|)) ((NULL (FBOUNDP |func|)) (|systemError| - (CONS (MAKESTRING "unknown function") (CONS |func| NIL)))) + (CONS "unknown function" (CONS |func| NIL)))) ('T (FUNCALL (SYMBOL-FUNCTION |func|) |htPage|))))) ;--------------------> NEW DEFINITION (override in ht-util.boot.pamphlet) @@ -22936,9 +22836,9 @@ $dbKindAlist := (SPADLET |link| (COND (|$saturn| - (MAKESTRING "\\lispLink[d]")) + "\\lispLink[d]") ('T - (MAKESTRING "\\lispdownlink")))) + "\\lispdownlink"))) (|htMakeButton| |link| |message| (|mkCurryFun| |func| |value|) |skipStateInfo?|) @@ -22978,8 +22878,8 @@ $dbKindAlist := (SPADLET |link| (COND (|$saturn| - (MAKESTRING "\\lispLink[n]")) - ('T (MAKESTRING "\\lisplink")))) + "\\lispLink[n]") + ('T "\\lisplink"))) (|htMakeButton| |link| |message| (|mkCurryFun| |func| |value|)) (|bcIssueHt| |info|)))))))))) @@ -23012,19 +22912,19 @@ $dbKindAlist := (|htMakeButtonSaturn| |htCommand| |message| |func| |options|)) ('T (SPADLET |skipStateInfo?| (IFCAR |options|)) - (|iht| (CONS |htCommand| (CONS (MAKESTRING "{") NIL))) + (|iht| (CONS |htCommand| (CONS "{" NIL))) (|bcIssueHt| |message|) (COND (|skipStateInfo?| - (|iht| (CONS (MAKESTRING "}{(|htDoneButton| '|") + (|iht| (CONS "}{(|htDoneButton| '|" (CONS |func| - (CONS (MAKESTRING "| ") + (CONS "| " (CONS (|htpName| |$curPage|) - (CONS (MAKESTRING ")}") NIL))))))) + (CONS ")}" NIL))))))) ('T - (|iht| (CONS (MAKESTRING "}{(|htDoneButton| '|") + (|iht| (CONS "}{(|htDoneButton| '|" (CONS |func| - (CONS (MAKESTRING "| (PROGN ") NIL)))) + (CONS "| (PROGN " NIL)))) (DO ((G178686 (|htpInputAreaAlist| |$curPage|) (CDR G178686)) (G178674 NIL)) @@ -23039,27 +22939,26 @@ $dbKindAlist := NIL) (SEQ (EXIT (PROGN (|iht| (CONS - (MAKESTRING - "(|htpSetLabelInputString| ") + "(|htpSetLabelInputString| " (CONS (|htpName| |$curPage|) - (CONS (MAKESTRING "'|") + (CONS "'|" (CONS |id| - (CONS (MAKESTRING "| ") NIL)))))) + (CONS "| " NIL)))))) (COND ((BOOT-EQUAL |type| '|string|) (|iht| (CONS - (MAKESTRING "\"\\stringvalue{") + "\"\\stringvalue{" (CONS |id| - (CONS (MAKESTRING "}\"") NIL))))) + (CONS "}\"" NIL))))) ('T (|iht| - (CONS (MAKESTRING "\"\\boxvalue{") + (CONS "\"\\boxvalue{" (CONS |id| - (CONS (MAKESTRING "}\"") NIL)))))) - (|iht| (MAKESTRING ") ")))))) + (CONS "}\"" NIL)))))) + (|iht| ") "))))) (|iht| (CONS (|htpName| |$curPage|) - (CONS (MAKESTRING "))}") NIL))))))))))) + (CONS "))}" NIL))))))))))) ;htMakeButtonSaturn(htCommand, message, func,options) == ; skipStateInfo? := IFCAR options @@ -23093,19 +22992,18 @@ $dbKindAlist := (|iht| |htCommand|) (COND (|skipStateInfo?| - (|iht| (CONS (MAKESTRING - "{\\verb!(|htDoneButton| '|") + (|iht| (CONS "{\\verb!(|htDoneButton| '|" (CONS |func| - (CONS (MAKESTRING "| ") + (CONS "| " (CONS (|htpName| (|page|)) - (CONS (MAKESTRING ")!}{") NIL)))))) - (|bcIssueHt| |message|) (|iht| (MAKESTRING "}"))) + (CONS ")!}{" NIL)))))) + (|bcIssueHt| |message|) (|iht| "}")) ('T - (|iht| (CONS (MAKESTRING "{\\verb!(|htDoneButton| '|") - (CONS |func| (CONS (MAKESTRING "| ") NIL)))) + (|iht| (CONS "{\\verb!(|htDoneButton| '|" + (CONS |func| (CONS "| " NIL)))) (COND (|$kPageSaturnArguments| - (|iht| (MAKESTRING "(PROGN ")) + (|iht| "(PROGN ") (DO ((G178711 |$kPageSaturnArguments| (CDR G178711)) (|id| NIL) @@ -23122,23 +23020,22 @@ $dbKindAlist := (SEQ (EXIT (PROGN (|iht| (CONS - (MAKESTRING - "(|htpSetLabelInputString| ") + "(|htpSetLabelInputString| " (CONS (|htpName| (|page|)) - (CONS (MAKESTRING "'|") + (CONS "'|" (CONS |var| - (CONS (MAKESTRING "| ") NIL)))))) + (CONS "| " NIL)))))) (|iht| (CONS '|'\|!\\| (CONS |id| - (CONS (MAKESTRING "\\verb!|") + (CONS "\\verb!|" NIL)))) - (|iht| (MAKESTRING ")")))))) + (|iht| ")"))))) (|iht| (|htpName| |$saturnPage|)) - (|iht| (MAKESTRING ")"))) + (|iht| ")")) ('T (|iht| (|htpName| |$saturnPage|)))) - (|iht| (MAKESTRING ")!}{")) (|bcIssueHt| |message|) - (|iht| (MAKESTRING "}"))))))))) + (|iht| ")!}{") (|bcIssueHt| |message|) + (|iht| "}")))))))) ;htpAddToPageDescription(htPage, pageDescrip) == ; newDescript := @@ -23189,7 +23086,7 @@ $dbKindAlist := NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |mess2| (MAKESTRING "")) + (SPADLET |mess2| "") (COND ((NULL (LASSOC |stringName| (|htpInputAreaAlist| (|page|)))) @@ -23201,24 +23098,24 @@ $dbKindAlist := (COND ((|htpLabelErrorMsg| (|page|) |stringName|) (|iht| (CONS - (MAKESTRING "\\centerline{{\\em ") + "\\centerline{{\\em " (CONS (|htpLabelErrorMsg| (|page|) |stringName|) - (CONS (MAKESTRING "}}") NIL)))) + (CONS "}}" NIL)))) (SPADLET |mess2| (CONCAT |mess2| (|bcSadFaces|))) (|htpSetLabelErrorMsg| (|page|) |stringName| NIL))) - (|iht| (CONS (MAKESTRING "\\inputstring{") + (|iht| (CONS "\\inputstring{" (CONS |stringName| - (CONS (MAKESTRING "}{") + (CONS "}{" (CONS |numChars| - (CONS (MAKESTRING "}{") + (CONS "}{" (CONS (|htpLabelDefault| (|page|) |stringName|) - (CONS (MAKESTRING "} ") + (CONS "} " (CONS |mess2| NIL))))))))))))))))) ;--------------------> NEW DEFINITION (override in ht-util.boot.pamphlet) @@ -23238,7 +23135,7 @@ $dbKindAlist := (DEFUN |htInitPage| (|title| |propList|) (PROGN (|htInitPageNoScroll| |propList| |title|) - (|htSayStandard| (MAKESTRING "\\beginscroll ")) + (|htSayStandard| "\\beginscroll ") (|page|))) ;--------------------> NEW DEFINITION <-------------------------- @@ -23285,12 +23182,12 @@ $dbKindAlist := (|title| (COND (|$standard| (|htSayStandard| - (CONS (MAKESTRING "\\begin{page}{") + (CONS "\\begin{page}{" (CONS (|htpName| |$curPage|) - (CONS (MAKESTRING "}{") NIL)))))) - (|htSaySaturn| (MAKESTRING "\\browseTitle{")) - (|htSay| |title|) (|htSaySaturn| (MAKESTRING "}")) - (|htSayStandard| (MAKESTRING "} ")))) + (CONS "}{" NIL)))))) + (|htSaySaturn| "\\browseTitle{") + (|htSay| |title|) (|htSaySaturn| "}") + (|htSayStandard| "} "))) (|page|))))) ;--------------------> NEW DEFINITION <-------------------------- @@ -23404,7 +23301,7 @@ $dbKindAlist := (SPADLET |comments| (CADDDR (CDDDDR |parts|))) (SPADLET |form| (IFCAR |options|)) (SPADLET |isFile| (NULL |kind|)) - (SPADLET |kind| (OR |kind| (MAKESTRING "package"))) + (SPADLET |kind| (OR |kind| "package")) (RPLACA |parts| |kind|) (SPADLET |conform| (|mkConform| |kind| |name| |args|)) (SPADLET |$kPageSaturnArguments| (CDR |conform|)) @@ -23417,16 +23314,16 @@ $dbKindAlist := ((KDR |form|) (|dbConformGenUnder| |form|)) ('T (CONS (STRCONC |name| |args|) NIL)))) (SPADLET |emString| - (CONS (MAKESTRING "{\\sf ") + (CONS "{\\sf " (APPEND |constrings| - (CONS (MAKESTRING "}") NIL)))) + (CONS "}" NIL)))) (SPADLET |heading| (CONS |capitalKind| - (CONS (MAKESTRING " ") |emString|))) + (CONS " " |emString|))) (COND ((NULL (|isExposedConstructor| |conname|)) (SPADLET |heading| - (CONS (MAKESTRING "Unexposed ") |heading|)))) + (CONS "Unexposed " |heading|)))) (COND ((BOOT-EQUAL |name| |abbrev|) (SPADLET |abbrev| (|asyAbbreviation| |conname| |nargs|)))) @@ -23451,7 +23348,7 @@ $dbKindAlist := (|addParameterTemplates| |page| |conform|))) (COND (|$atLeastOneUnexposed| - (|htSay| (MAKESTRING "\\newline{}{\\em *} = unexposed")))) + (|htSay| "\\newline{}{\\em *} = unexposed"))) (|htSayStandard| '|\\endscroll |) (|kPageContextMenu| |page|) (|htShowPageNoScroll|))))) @@ -23521,146 +23418,146 @@ $dbKindAlist := (SPADLET |comments| (CADDDR (CDDDDR |LETTMP#1|))) (SPADLET |conform| (|htpProperty| |page| '|conform|)) (SPADLET |conname| (|opOf| |conform|)) (|htBeginTable|) - (|htSay| (MAKESTRING "{")) + (|htSay| "{") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Ancestors| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kcaPage| (CONS NIL NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Attributes| - (CONS (MAKESTRING "") + (CONS "" (CONS '|koPage| - (CONS (MAKESTRING "attribute") + (CONS "attribute" NIL)))) NIL)) NIL)) (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) - (|htSay| (MAKESTRING "}{")) + ((BOOT-EQUAL |kind| "category") + (|htSay| "}{") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Children| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kccPage| (CONS NIL NIL)))) NIL)) NIL)))) (COND ((NULL (|asharpConstructorName?| |conname|)) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Dependents| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kcdePage| (CONS NIL NIL)))) NIL)) NIL)))) (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) - (|htSay| (MAKESTRING "}{")) + ((BOOT-EQUAL |kind| "category") + (|htSay| "}{") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Descendents| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kcdPage| (CONS NIL NIL)))) NIL)) NIL)))) (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) - (|htSay| (MAKESTRING "}{")) + ((BOOT-EQUAL |kind| "category") + (|htSay| "}{") (COND ((NULL (|asharpConstructorName?| |conname|)) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Domains| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kcdoPage| (CONS NIL NIL)))) NIL)) NIL))) - ('T (|htSay| (MAKESTRING "{\\em Domains}")))))) - (|htSay| (MAKESTRING "}{")) + ('T (|htSay| "{\\em Domains}"))))) + (|htSay| "}{") (COND - ((AND (NEQUAL |kind| (MAKESTRING "category")) + ((AND (NEQUAL |kind| "category") (SPADLET |pathname| (|dbHasExamplePage| |conname|))) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Examples| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kxPage| (CONS |pathname| NIL)))) NIL)) NIL))) - ('T (|htSay| (MAKESTRING "{\\em Examples}")))) - (|htSay| (MAKESTRING "}{")) + ('T (|htSay| "{\\em Examples}"))) + (|htSay| "}{") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Exports| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kePage| (CONS NIL NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Operations| - (CONS (MAKESTRING "") + (CONS "" (CONS '|koPage| - (CONS (MAKESTRING "operation") + (CONS "operation" NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Parents| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kcpPage| - (CONS (MAKESTRING "operation") + (CONS "operation" NIL)))) NIL)) NIL)) (COND - ((NEQUAL |kind| (MAKESTRING "category")) - (|htSay| (MAKESTRING "}{")) + ((NEQUAL |kind| "category") + (|htSay| "}{") (COND ((NULL (|asharpConstructorName?| |conname|)) (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Search Path| - (CONS (MAKESTRING "") + (CONS "" (CONS '|ksPage| (CONS NIL NIL)))) NIL)) NIL))) - ('T (|htSay| (MAKESTRING "{\\em Search Path}")))))) + ('T (|htSay| "{\\em Search Path}"))))) (COND - ((NEQUAL |kind| (MAKESTRING "category")) - (|htSay| (MAKESTRING "}{")) + ((NEQUAL |kind| "category") + (|htSay| "}{") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Users| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kcuPage| (CONS NIL NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS '|Uses| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kcnPage| (CONS NIL NIL)))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}")) + (|htSay| "}") (COND (|$standard| (|htEndTable|)) ('T NIL))))))) ;kPageContextMenuSaturn page == @@ -23722,26 +23619,26 @@ $dbKindAlist := (SPADLET |conname| (|opOf| |conform|)) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "\\&Ancestors") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Ancestors" + (CONS "" (CONS '|kcaPage| (CONS NIL NIL)))) NIL)) NIL)) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "Attri\\&butes") - (CONS (MAKESTRING "") + (CONS (CONS "Attri\\&butes" + (CONS "" (CONS '|koPage| - (CONS (MAKESTRING "attribute") + (CONS "attribute" NIL)))) NIL)) NIL)) (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) + ((BOOT-EQUAL |kind| "category") (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "\\&Children") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Children" + (CONS "" (CONS '|kccPage| (CONS NIL NIL)))) NIL)) @@ -23750,61 +23647,61 @@ $dbKindAlist := ((NULL (|asharpConstructorName?| |conname|)) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "\\&Dependents") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Dependents" + (CONS "" (CONS '|kcdePage| (CONS NIL NIL)))) NIL)) NIL)))) (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) + ((BOOT-EQUAL |kind| "category") (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "Desce\\&ndents") - (CONS (MAKESTRING "") + (CONS (CONS "Desce\\&ndents" + (CONS "" (CONS '|kcdPage| (CONS NIL NIL)))) NIL)) NIL)))) (COND - ((BOOT-EQUAL |kind| (MAKESTRING "category")) + ((BOOT-EQUAL |kind| "category") (COND ((NULL (|asharpConstructorName?| |conname|)) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "Do\\&mains") - (CONS (MAKESTRING "") + (CONS (CONS "Do\\&mains" + (CONS "" (CONS '|kcdoPage| (CONS NIL NIL)))) NIL)) NIL))) - ('T (|htSayCold| (MAKESTRING "Do\\&mains")))))) + ('T (|htSayCold| "Do\\&mains"))))) (COND - ((AND (NEQUAL |kind| (MAKESTRING "category")) + ((AND (NEQUAL |kind| "category") (SPADLET |name| (|saturnHasExamplePage| |conname|))) (|saturnExampleLink| |name|)) - ('T (|htSayCold| (MAKESTRING "E\\&xamples")))) + ('T (|htSayCold| "E\\&xamples"))) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "\\&Exports") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Exports" + (CONS "" (CONS '|kePage| (CONS NIL NIL)))) NIL)) NIL)) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "\\&Operations") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Operations" + (CONS "" (CONS '|koPage| - (CONS (MAKESTRING "operation") + (CONS "operation" NIL)))) NIL)) NIL)) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "\\&Parents") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Parents" + (CONS "" (CONS '|kcpPage| - (CONS (MAKESTRING "operation") + (CONS "operation" NIL)))) NIL)) NIL)) @@ -23812,33 +23709,33 @@ $dbKindAlist := ((NULL (|asharpConstructorName?| |conname|)) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "Search O\\&rder") - (CONS (MAKESTRING "") + (CONS (CONS "Search O\\&rder" + (CONS "" (CONS '|ksPage| (CONS NIL NIL)))) NIL)) NIL))) - ('T (|htSayCold| (MAKESTRING "Search Order")))) + ('T (|htSayCold| "Search Order"))) (COND - ((OR (NEQUAL |kind| (MAKESTRING "category")) + ((OR (NEQUAL |kind| "category") (|dbpHasDefaultCategory?| |xpart|)) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "\\&Users") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Users" + (CONS "" (CONS '|kcuPage| (CONS NIL NIL)))) NIL)) NIL)) (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "U\\&ses") - (CONS (MAKESTRING "") + (CONS (CONS "U\\&ses" + (CONS "" (CONS '|kcnPage| (CONS NIL NIL)))) NIL)) NIL))) - ('T (|htSayCold| (MAKESTRING "\\&Users")) - (|htSayCold| (MAKESTRING "U\\&ses")))) + ('T (|htSayCold| "\\&Users") + (|htSayCold| "U\\&ses"))) (SPADLET |$saturnContextMenuLines| |$htLineList|))))) ;saturnExampleLink lname == @@ -23847,9 +23744,9 @@ $dbKindAlist := (DEFUN |saturnExampleLink| (|lname|) (PROGN - (|htSay| (MAKESTRING "\\docLink{\\csname ")) + (|htSay| "\\docLink{\\csname ") (|htSay| (STRCONC (CAR (CDR |lname|)) - (MAKESTRING "\\endcsname}{E&xamples}"))))) + "\\endcsname}{E&xamples}")))) ;$exampleConstructors := nil @@ -23881,7 +23778,7 @@ $dbKindAlist := (RETURN (PROGN (SPADLET |file| - (STRCONC (|getEnv| (MAKESTRING "AXIOM")) + (STRCONC (|getEnv| "AXIOM") '|/doc/axug/examples.lsp|)) (COND ((NULL (PROBE-FILE |file|)) NIL) @@ -23961,21 +23858,21 @@ $dbKindAlist := (SPADLET |exposedUnexposedFlag| |$includeUnexposed?|) (SPADLET |star?| 'T) (COND (|$standard| (|htBeginTable|))) - (|htSay| (MAKESTRING "{")) + (|htSay| "{") (COND ((OR |one?| (|member| '|abbrs| |exclusions|)) - (|htSay| (MAKESTRING "{\\em Abbreviations}"))) + (|htSay| "{\\em Abbreviations}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| (CONS (CONS - (MAKESTRING "Abbreviations") - (CONS (MAKESTRING "") + "Abbreviations" + (CONS "" (CONS '|dbShowCons| (CONS '|abbrs| NIL)))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND ((OR |one?| (|member| '|conditions| |exclusions|) (PROG (G178946) @@ -23992,39 +23889,39 @@ $dbKindAlist := (SEQ (EXIT (SETQ G178946 (AND G178946 (BOOT-EQUAL (CDR |x|) 'T))))))))) - (|htSay| (MAKESTRING "{\\em Conditions}"))) + (|htSay| "{\\em Conditions}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "Conditions") - (CONS (MAKESTRING "") + (CONS (CONS "Conditions" + (CONS "" (CONS '|dbShowCons| (CONS '|conditions| NIL)))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND ((OR |empty?| (|member| '|documentation| |exclusions|)) - (|htSay| (MAKESTRING "{\\em Descriptions}"))) + (|htSay| "{\\em Descriptions}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| (CONS (CONS - (MAKESTRING "Descriptions") - (CONS (MAKESTRING "") + "Descriptions" + (CONS "" (CONS '|dbShowCons| (CONS '|documentation| NIL)))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND ((OR |one?| (NULL (CDR |cAlist|))) - (|htSay| (MAKESTRING "{\\em Filter}"))) + (|htSay| "{\\em Filter}")) ('T (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "Filter") - (CONS (MAKESTRING "") + (CONS (CONS "Filter" + (CONS "" (CONS '|htFilterPage| (CONS (CONS '|dbShowCons| @@ -24032,34 +23929,34 @@ $dbKindAlist := NIL)))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND ((OR |one?| (|member| '|kinds| |exclusions|) (NEQUAL |kind| '|constructor|)) - (|htSay| (MAKESTRING "{\\em Kinds}"))) + (|htSay| "{\\em Kinds}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "Kinds") - (CONS (MAKESTRING "") + (CONS (CONS "Kinds" + (CONS "" (CONS '|dbShowCons| (CONS '|kinds| NIL)))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND ((OR |one?| (|member| '|names| |exclusions|)) - (|htSay| (MAKESTRING "{\\em Names}"))) + (|htSay| "{\\em Names}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "Names") - (CONS (MAKESTRING "") + (CONS (CONS "Names" + (CONS "" (CONS '|dbShowCons| (CONS '|names| NIL)))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND ((OR |one?| (|member| '|parameters| |exclusions|) (NULL (PROG (G178960) @@ -24077,45 +23974,44 @@ $dbKindAlist := (SEQ (EXIT (SETQ G178960 (OR G178960 (CDAR |x|)))))))))) - (|htSay| (MAKESTRING "{\\em Parameters}"))) + (|htSay| "{\\em Parameters}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "Parameters") - (CONS (MAKESTRING "") + (CONS (CONS "Parameters" + (CONS "" (CONS '|dbShowCons| (CONS '|parameters| NIL)))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND (|$exposedOnlyIfTrue| (COND - (|one?| (|htSay| (MAKESTRING - "{\\em Unexposed Also}"))) + (|one?| (|htSay| "{\\em Unexposed Also}")) ('T (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING "Unexposed Also") - (CONS (MAKESTRING "") + "Unexposed Also" + (CONS "" (CONS '|dbShowCons| (CONS '|exposureOff| NIL)))) NIL)) NIL))))) - (|one?| (|htSay| (MAKESTRING "{\\em Exposed Only}"))) + (|one?| (|htSay| "{\\em Exposed Only}")) ('T (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING "Exposed Only") - (CONS (MAKESTRING "") + "Exposed Only" + (CONS "" (CONS '|dbShowCons| (CONS '|exposureOn| NIL)))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}")) + (|htSay| "}") (COND (|$standard| (|htEndTable|)) ('T NIL)))))))) ;dbPresentConsSaturn(htPage,kind,exclusions) == @@ -24182,13 +24078,13 @@ $dbKindAlist := (COND (|$standard| (|htBeginTable|))) (COND ((OR |one?| (|member| '|abbrs| |exclusions|)) - (|htSayCold| (MAKESTRING "\\&Abbreviations"))) + (|htSayCold| "\\&Abbreviations")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| (CONS (CONS - (MAKESTRING "\\&Abbreviations") - (CONS (MAKESTRING "") + "\\&Abbreviations" + (CONS "" (CONS '|dbShowCons| (CONS '|abbrs| NIL)))) NIL)) @@ -24209,57 +24105,57 @@ $dbKindAlist := (SEQ (EXIT (SETQ G178987 (AND G178987 (BOOT-EQUAL (CDR |x|) 'T))))))))) - (|htSayCold| (MAKESTRING "\\&Conditions"))) + (|htSayCold| "\\&Conditions")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| (CONS (CONS - (MAKESTRING "\\&Conditions") - (CONS (MAKESTRING "") + "\\&Conditions" + (CONS "" (CONS '|dbShowCons| (CONS '|conditions| NIL)))) NIL)) NIL)))) (COND ((OR |empty?| (|member| '|documentation| |exclusions|)) - (|htSayCold| (MAKESTRING "\\&Descriptions"))) + (|htSayCold| "\\&Descriptions")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| (CONS (CONS - (MAKESTRING "\\&Descriptions") - (CONS (MAKESTRING "") + "\\&Descriptions" + (CONS "" (CONS '|dbShowCons| (CONS '|documentation| NIL)))) NIL)) NIL)))) (COND ((OR |one?| (NULL (CDR |cAlist|))) - (|htSayCold| (MAKESTRING "\\&Filter"))) + (|htSayCold| "\\&Filter")) ('T (|htMakeSaturnFilterPage| (CONS '|dbShowCons| (CONS '|filter| NIL))))) (COND ((OR |one?| (|member| '|kinds| |exclusions|) (NEQUAL |kind| '|constructor|)) - (|htSayCold| (MAKESTRING "\\&Kinds"))) + (|htSayCold| "\\&Kinds")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "\\&Kinds") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Kinds" + (CONS "" (CONS '|dbShowCons| (CONS '|kinds| NIL)))) NIL)) NIL)))) (COND ((OR |one?| (|member| '|names| |exclusions|)) - (|htSayCold| (MAKESTRING "\\&Names"))) + (|htSayCold| "\\&Names")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "\\&Names") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Names" + (CONS "" (CONS '|dbShowCons| (CONS '|names| NIL)))) NIL)) @@ -24280,42 +24176,41 @@ $dbKindAlist := (SEQ (EXIT (SETQ G179001 (OR G179001 (CDAR |x|)))))))))) - (|htSayCold| (MAKESTRING "\\&Parameters"))) + (|htSayCold| "\\&Parameters")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| (CONS (CONS - (MAKESTRING "\\&Parameters") - (CONS (MAKESTRING "") + "\\&Parameters" + (CONS "" (CONS '|dbShowCons| (CONS '|parameters| NIL)))) NIL)) NIL)))) - (|htSaySaturn| (MAKESTRING "\\hrule")) + (|htSaySaturn| "\\hrule") (COND (|$exposedOnlyIfTrue| (COND (|one?| (|htSayCold| - (MAKESTRING "\\&Unexposed Also"))) + "\\&Unexposed Also")) ('T (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING - "\\&Unexposed Also") - (CONS (MAKESTRING "") + "\\&Unexposed Also" + (CONS "" (CONS '|dbShowCons| (CONS '|exposureOff| NIL)))) NIL)) NIL))))) - (|one?| (|htSayCold| (MAKESTRING "\\Exposed Only\\&y"))) + (|one?| (|htSayCold| "\\Exposed Only\\&y")) ('T (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING "Exposed Onl\\&y") - (CONS (MAKESTRING "") + "Exposed Onl\\&y" + (CONS "" (CONS '|dbShowCons| (CONS '|exposureOn| NIL)))) NIL)) @@ -24337,22 +24232,22 @@ $dbKindAlist := (PROGN (|htInitPage| '|Filter String| (|htCopyProplist| |htPage|)) (|htSay| '|\\centerline{Enter filter string (use {\\em *} for wild card):}|) - (|htSay| (MAKESTRING "\\centerline{")) + (|htSay| "\\centerline{") (|htMakePage| (CONS (CONS '|bcStrings| (CONS (CONS 50 - (CONS (MAKESTRING "") + (CONS "" (CONS '|filter| (CONS 'EM NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING "}\\vspace{1}\\centerline{")) + (|htSay| "}\\vspace{1}\\centerline{") (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "\\fbox{Filter}") - (CONS (MAKESTRING "") |args|)) + (CONS (CONS "\\fbox{Filter}" + (CONS "" |args|)) NIL)) NIL)) - (|htSay| (MAKESTRING "}")) + (|htSay| "}") (|htShowPage|))) ;htMakeSaturnFilterPage [fn2Call,:args] == @@ -24375,24 +24270,21 @@ $dbKindAlist := (SEQ (PROGN (SPADLET |fn2Call| (CAR G179039)) (SPADLET |args| (CDR G179039)) - (|htSay| (MAKESTRING - "\\inputboxLink[\\lispLink[d]{\\verb+(|")) + (|htSay| "\\inputboxLink[\\lispLink[d]{\\verb+(|") (|htSay| |fn2Call|) - (|htSay| (MAKESTRING "| ")) + (|htSay| "| ") (|htSay| (|htpName| |$saturnPage|)) (DO ((G179054 |args| (CDR G179054)) (|x| NIL)) ((OR (ATOM G179054) (PROGN (SETQ |x| (CAR G179054)) NIL)) NIL) (SEQ (EXIT (PROGN - (|htSay| (MAKESTRING " '|")) + (|htSay| " '|") (|htSay| |x|) - (|htSay| (MAKESTRING "|")))))) - (|htSay| (MAKESTRING - " \"+\\FILTERSTRING\\verb+\")+}{}]{\\FILTERSTRING}{*}")) - (|htSay| (MAKESTRING - "{\\centerline{Enter filter string (use {\\em *} for wild card):}}")) - (|htSay| (MAKESTRING "{Filter Page}{\\&Filter}"))))))) + (|htSay| "|"))))) + (|htSay| " \"+\\FILTERSTRING\\verb+\")+}{}]{\\FILTERSTRING}{*}") + (|htSay| "{\\centerline{Enter filter string (use {\\em *} for wild card):}}") + (|htSay| "{Filter Page}{\\&Filter}")))))) ;dbShowConsKinds cAlist == ; cats := doms := paks := defs := nil @@ -24456,7 +24348,7 @@ $dbKindAlist := (CONS (NREVERSE |paks|) (CONS (NREVERSE |defs|) NIL))))) (|htBeginMenu| '|description|) - (|htSayStandard| (MAKESTRING "\\indent{1}")) + (|htSayStandard| "\\indent{1}") (SPADLET |kinds| (PROG (G179081) (SPADLET G179081 0) @@ -24491,9 +24383,9 @@ $dbKindAlist := (|firstTime| (SPADLET |firstTime| NIL)) ('T - (|htSaySaturn| (MAKESTRING "\\\\")))) - (|htSaySaturn| (MAKESTRING "\\item[")) - (|htSayStandard| (MAKESTRING "\\item")) + (|htSaySaturn| "\\\\"))) + (|htSaySaturn| "\\item[") + (|htSayStandard| "\\item") (COND ((EQL |kinds| 1) (|htSay| (|menuButton|))) @@ -24503,7 +24395,7 @@ $dbKindAlist := (CONS '|bcLinks| (CONS (CONS (|menuButton|) - (CONS (MAKESTRING "") + (CONS "" (CONS '|dbShowConsKindsFilter| (CONS @@ -24512,18 +24404,18 @@ $dbKindAlist := NIL)))) NIL)) NIL)))) - (|htSaySaturn| (MAKESTRING "]")) + (|htSaySaturn| "]") (|htSayStandard| - (MAKESTRING "\\tab{1}")) - (|htSay| (MAKESTRING "{\\em ") + "\\tab{1}") + (|htSay| "{\\em " (SPADLET |c| (|#| |x|)) - (MAKESTRING " ")) + " ") (|htSay| (COND ((> |c| 1) (|pluralize| |kind|)) ('T |kind|))) - (|htSay| (MAKESTRING ":}")) - (|htSaySaturn| (MAKESTRING "\\\\")) + (|htSay| ":}") + (|htSaySaturn| "\\\\") (|bcConTable| (REMDUP (PROG (G179123) @@ -24544,7 +24436,7 @@ $dbKindAlist := (CONS (CAAR |y|) G179123))))))))))))))) (|htEndMenu| '|description|) - (|htSayStandard| (MAKESTRING "\\indent{0}"))))))) + (|htSayStandard| "\\indent{0}")))))) ;addParameterTemplates(page, conform) == ;---------------> from kPage <----------------------- @@ -24623,16 +24515,16 @@ $dbKindAlist := 10)) (SPADLET |w| (COND (|manuelsCode?| 55) ('T 23))) (|htSaySaturn| - (MAKESTRING "\\colorbuttonbox{lightgray}{")) - (|htSay| (MAKESTRING "Optional argument value")) + "\\colorbuttonbox{lightgray}{") + (|htSay| "Optional argument value") (|htSay| (COND - ((CDR |parlist|) (MAKESTRING "s:")) - ('T (MAKESTRING ":")))) - (|htSaySaturn| (MAKESTRING "}")) + ((CDR |parlist|) "s:") + ('T ":"))) + (|htSaySaturn| "}") (COND ((CDR |conform|) - (|htSaySaturn| (MAKESTRING "\\newline{}")))) - (|htSaySaturn| (MAKESTRING "\\begin{tabular}{p{.25in}l}")) + (|htSaySaturn| "\\newline{}"))) + (|htSaySaturn| "\\begin{tabular}{p{.25in}l}") (SPADLET |firstTime| 'T) (SPADLET |odd| NIL) (SPADLET |argSublis| (|htpProperty| |page| '|argSublis|)) @@ -24653,7 +24545,7 @@ $dbKindAlist := ('T '|\\tab{29}|))) (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "\\\\")))) + ('T (|htSaySaturn| "\\\\"))) (SPADLET |odd| (NULL |odd|)) (SPADLET |argstring| (COND @@ -24666,12 +24558,12 @@ $dbKindAlist := 'T)) (SPADLET |$conArgstrings| |r|) |a|) - ('T (MAKESTRING "")))) + ('T ""))) (|htMakePageStandard| (CONS (CONS '|text| - (CONS (MAKESTRING "{\\em ") + (CONS "{\\em " (CONS |par| - (CONS (MAKESTRING "} = ") NIL)))) + (CONS "} = " NIL)))) (CONS (CONS '|bcStrings| (CONS @@ -24687,19 +24579,18 @@ $dbKindAlist := (|$saturn| (|setUpDefault| |parname| (CONS '|string| - (CONS (MAKESTRING "") + (CONS "" (CONS 'EM (CONS NIL NIL))))))) - (|htSaySaturn| (MAKESTRING "{\\em ")) + (|htSaySaturn| "{\\em ") (|htSaySaturn| |par|) - (|htSaySaturn| (MAKESTRING " = }")) + (|htSaySaturn| " = }") (|htSaySaturnAmpersand|) (|htSaySaturn| - (MAKESTRING - "\\colorbuttonbox{lightgray}{\\inputbox[2.5in]{\\")) + "\\colorbuttonbox{lightgray}{\\inputbox[2.5in]{\\") (|htSaySaturn| (SUBLIS |argSublis| |par|)) - (|htSaySaturn| (MAKESTRING "}{")) + (|htSaySaturn| "}{") (|htSaySaturn| |argstring|) - (|htSaySaturn| (MAKESTRING "}}")))))) + (|htSaySaturn| "}}"))))) (|htEndTabular|)))))) ;kPageArgs([op,:args],[.,.,:source]) == @@ -24734,7 +24625,7 @@ $dbKindAlist := (SPADLET |op| (CAR G179254)) (SPADLET |args| (CDR G179254)) (|htSaySaturn| - (MAKESTRING "\\begin{tabular}{p{.25in}lp{0in}}")) + "\\begin{tabular}{p{.25in}lp{0in}}") (SPADLET |firstTime| 'T) (SPADLET |coSig| (CDR (GETDATABASE |op| 'COSIG))) (DO ((G179306 |args| (CDR G179306)) (|x| NIL) @@ -24750,9 +24641,9 @@ $dbKindAlist := (SEQ (EXIT (PROGN (COND (|firstTime| (SPADLET |firstTime| NIL)) - ('T (|htSaySaturn| (MAKESTRING "\\\\")) - (|htSayStandard| (MAKESTRING ", and")))) - (|htSayStandard| (MAKESTRING "\\newline ")) + ('T (|htSaySaturn| "\\\\") + (|htSayStandard| ", and"))) + (|htSayStandard| "\\newline ") (|htSaySaturnAmpersand|) (SPADLET |typeForm| (COND @@ -24781,25 +24672,23 @@ $dbKindAlist := (CONS '|bcLinks| (CONS (CONS |x| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kArgPage| (CONS |x| NIL)))) NIL)) NIL))) ('T - (|htSay| (MAKESTRING "{\\em ") |x| - (MAKESTRING "}")))) - (|htSayStandard| (MAKESTRING "\\tab{") + (|htSay| "{\\em " |x| + "}"))) + (|htSayStandard| "\\tab{" (STRINGIMAGE (|#| (PNAME |x|))) - (MAKESTRING "}, ")) + "}, ") (|htSaySaturnAmpersand|) (|htSay| (COND (|pred| - (MAKESTRING - "a domain of category ")) + "a domain of category ") ('T - (MAKESTRING - "an element of the domain ")))) + "an element of the domain "))) (|bcConform| |typeForm| 'T))))) (|htEndTabular|)))))) @@ -24819,15 +24708,15 @@ $dbKindAlist := (|$saturn| (CONS '|\\lispLink[d]{\\verb!(\|conPage\| '| (APPEND (|form2Fence| (|dbOuttran| |form|)) - (CONS (MAKESTRING ")!}{") + (CONS ")!}{" (APPEND (|form2StringList| (|opOf| |form|)) (CONS '} NIL)))))) ('T (CONS '|\\conf{| (APPEND (|form2StringList| (|opOf| |form|)) - (CONS (MAKESTRING "}{") + (CONS "}{" (APPEND (|form2Fence| (|dbOuttran| |form|)) - (CONS (MAKESTRING "}") NIL)))))))) + (CONS "}" NIL)))))))) ;--------------------> NEW DEFINITION (see br-op1.boot.pamphlet) ;htTab s == if $standard then htSayStandard ('"\tab{",s,'"}") @@ -24836,7 +24725,7 @@ $dbKindAlist := (declare (special |$standard|)) (COND (|$standard| - (|htSayStandard| (MAKESTRING "\\tab{") |s| (MAKESTRING "}"))) + (|htSayStandard| "\\tab{" |s| "}")) ('T NIL))) ;--------------------> NEW DEFINITION (see br-op1.boot.pamphlet) @@ -24898,8 +24787,8 @@ $dbKindAlist := NIL)) NIL) (SEQ (EXIT (PROGN - (|htSaySaturn| (MAKESTRING "\\item[")) - (|htSayStandard| (MAKESTRING "\\item")) + (|htSaySaturn| "\\item[") + (|htSayStandard| "\\item") (COND (|single?| (|htSay| (|menuButton|))) ('T @@ -24908,7 +24797,7 @@ $dbKindAlist := (CONS '|bcLinks| (CONS (CONS (|menuButton|) - (CONS (MAKESTRING "") + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS |bincount| NIL))))) @@ -24922,46 +24811,44 @@ $dbKindAlist := (CONS '|bcLinks| (CONS (CONS |button| - (CONS (MAKESTRING "") + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS |bincount| NIL))))) NIL)) NIL)))) - (|htSaySaturn| (MAKESTRING "]")) - (|htSay| (MAKESTRING "{\\em ")) + (|htSaySaturn| "]") + (|htSay| "{\\em ") (|htSay| (COND ((BOOT-EQUAL |thing| '|nowhere|) - (MAKESTRING - "implemented nowhere")) + "implemented nowhere") ((BOOT-EQUAL |thing| '|constant|) - (MAKESTRING "constant")) + "constant") ((BOOT-EQUAL |thing| '$) - (MAKESTRING "by the domain")) + "by the domain") ((INTEGERP |thing|) - (MAKESTRING "unexported")) + "unexported") (|constructorIfTrue| (|htSay| |word|) (COND ((ATOM |thing|) - (MAKESTRING - " an unknown constructor")) - ('T (MAKESTRING "")))) + " an unknown constructor") + ('T ""))) ((ATOM |thing|) - (MAKESTRING "unconditional")) - ('T (MAKESTRING "")))) - (|htSay| (MAKESTRING "}")) + "unconditional") + ('T ""))) + (|htSay| "}") (COND ((NULL (ATOM |thing|)) (COND (|constructorIfTrue| - (|htSay| (MAKESTRING " {\\em ") + (|htSay| " {\\em " (|dbShowKind| |thing|) - (MAKESTRING "}")))) - (|htSay| (MAKESTRING " ")) + "}"))) + (|htSay| " ") (FUNCALL |fn| |thing|))) - (|htSay| (MAKESTRING ":\\newline ")) + (|htSay| ":\\newline ") (|dbShowOpSigList| |which| |items| (TIMES (PLUS 1 |bincount|) 8192)) (SPADLET |bincount| (PLUS |bincount| 1)))))) @@ -25064,7 +24951,7 @@ $dbKindAlist := (SPADLET |star?| (OR (NULL |fromConPage?|) (BOOT-EQUAL |which| - (MAKESTRING "package operation")))) + "package operation"))) (SPADLET |implementation?| (AND (NULL |asharp?|) (BOOT-EQUAL |$UserLevel| '|development|) @@ -25079,7 +24966,7 @@ $dbKindAlist := (|htpSetProperty| |htPage| '|exclusion| (CAR |exclusions|)) (SPADLET |opAlist| (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))) (SPADLET |empty?| (NULL |opAlist|)) @@ -25088,45 +24975,45 @@ $dbKindAlist := (PROGN (SPADLET |entry| (QCAR |opAlist|)) 'T) (EQL 2 (|#| |entry|)))) (SPADLET |one?| (OR |empty?| |one?|)) (|htBeginTable|) - (|htSay| (MAKESTRING "{")) + (|htSay| "{") (COND ((OR |one?| (|member| '|conditions| |exclusions|) (BOOT-EQUAL (|htpProperty| |htPage| '|condition?|) '|no|)) - (|htSay| (MAKESTRING "{\\em Conditions}"))) + (|htSay| "{\\em Conditions}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "Conditions") - (CONS (MAKESTRING "") + (CONS (CONS "Conditions" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|conditions| NIL))))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND ((OR |empty?| (|member| '|documentation| |exclusions|)) - (|htSay| (MAKESTRING "{\\em Descriptions}"))) + (|htSay| "{\\em Descriptions}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "Descriptions") - (CONS (MAKESTRING "") + (CONS (CONS "Descriptions" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|documentation| NIL))))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND ((NULL (IFCDR |opAlist|)) - (|htSay| (MAKESTRING "{\\em Filter}"))) + (|htSay| "{\\em Filter}")) ('T (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "Filter ") - (CONS (MAKESTRING "") + (CONS (CONS "Filter " + (CONS "" (CONS '|htFilterPage| (CONS (CONS '|dbShowOps| @@ -25135,126 +25022,124 @@ $dbKindAlist := NIL)))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND ((OR |one?| (|member| '|names| |exclusions|) (NULL (KDR |opAlist|))) - (|htSay| (MAKESTRING "{\\em Names}"))) + (|htSay| "{\\em Names}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "Names") - (CONS (MAKESTRING "") + (CONS (CONS "Names" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|names| NIL))))) NIL)) NIL)))) (COND - ((NULL |star?|) (|htSay| (MAKESTRING "}{")) + ((NULL |star?|) (|htSay| "}{") (COND ((OR (NULL |implementation?|) (|member| '|implementation| |exclusions|) - (BOOT-EQUAL |which| (MAKESTRING "attribute")) + (BOOT-EQUAL |which| "attribute") (AND (SPADLET |conname| (|opOf| (|htpProperty| |htPage| '|conform|))) (BOOT-EQUAL (GETDATABASE |conname| 'CONSTRUCTORKIND) '|category|))) - (|htSay| (MAKESTRING "{\\em Implementations}"))) + (|htSay| "{\\em Implementations}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| (CONS (CONS - (MAKESTRING "Implementations") - (CONS (MAKESTRING "") + "Implementations" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|implementation| NIL))))) NIL)) NIL)))))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND ((OR |one?| (|member| '|origins| |exclusions|)) - (|htSay| (MAKESTRING "{\\em Origins}"))) + (|htSay| "{\\em Origins}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "Origins") - (CONS (MAKESTRING "") + (CONS (CONS "Origins" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|origins| NIL))))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND ((OR |one?| (|member| '|parameters| |exclusions|) (NULL (|dbDoesOneOpHaveParameters?| |opAlist|))) - (|htSay| (MAKESTRING "{\\em Parameters}"))) + (|htSay| "{\\em Parameters}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "Parameters") - (CONS (MAKESTRING "") + (CONS (CONS "Parameters" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|parameters| NIL))))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}{")) + (|htSay| "}{") (COND - ((NEQUAL |which| (MAKESTRING "attribute")) + ((NEQUAL |which| "attribute") (COND ((OR |one?| (|member| '|signatures| |exclusions|)) - (|htSay| (MAKESTRING "{\\em Signatures}"))) + (|htSay| "{\\em Signatures}")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "Signatures") - (CONS (MAKESTRING "") + (CONS (CONS "Signatures" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|signatures| NIL))))) NIL)) NIL)))))) - (|htSay| (MAKESTRING "}")) + (|htSay| "}") (COND - (|star?| (|htSay| (MAKESTRING "{")) + (|star?| (|htSay| "{") (COND (|$exposedOnlyIfTrue| (COND (|one?| (|htSay| - (MAKESTRING - "{\\em Unexposed Also}"))) + "{\\em Unexposed Also}")) ('T (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING "Unexposed Also") - (CONS (MAKESTRING "") + "Unexposed Also" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|exposureOff| NIL))))) NIL)) NIL))))) - (|one?| (|htSay| (MAKESTRING - "{\\em Exposed Only}"))) + (|one?| (|htSay| "{\\em Exposed Only}")) ('T (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING "Exposed Only") - (CONS (MAKESTRING "") + "Exposed Only" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|exposureOn| NIL))))) NIL)) NIL)))) - (|htSay| (MAKESTRING "}")))) + (|htSay| "}"))) (|htEndTable|)))))) ;dbPresentOpsSaturn(htPage,which,exclusions) == @@ -25341,7 +25226,7 @@ $dbKindAlist := (SPADLET |star?| (OR (NULL |fromConPage?|) (BOOT-EQUAL |which| - (MAKESTRING "package operation")))) + "package operation"))) (SPADLET |implementation?| (AND (NULL |asharp?|) (BOOT-EQUAL |$UserLevel| '|development|) @@ -25356,7 +25241,7 @@ $dbKindAlist := (|htpSetProperty| |htPage| '|exclusion| (CAR |exclusions|)) (SPADLET |opAlist| (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (|htpProperty| |htPage| '|opAlist|)) ('T (|htpProperty| |htPage| '|attrAlist|)))) (SPADLET |empty?| (NULL |opAlist|)) @@ -25369,12 +25254,12 @@ $dbKindAlist := ((OR |one?| (|member| '|conditions| |exclusions|) (BOOT-EQUAL (|htpProperty| |htPage| '|condition?|) '|no|)) - (|htSayCold| (MAKESTRING "\\&Conditions"))) + (|htSayCold| "\\&Conditions")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "\\&Conditions") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Conditions" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|conditions| NIL))))) @@ -25382,12 +25267,12 @@ $dbKindAlist := NIL)))) (COND ((OR |empty?| (|member| '|documentation| |exclusions|)) - (|htSayCold| (MAKESTRING "\\&Descriptions"))) + (|htSayCold| "\\&Descriptions")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "\\&Descriptions") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Descriptions" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|documentation| NIL))))) @@ -25395,27 +25280,26 @@ $dbKindAlist := NIL)))) (COND ((NULL (IFCDR |opAlist|)) - (|htSayCold| (MAKESTRING "\\&Filter"))) + (|htSayCold| "\\&Filter")) ('T (|htMakeSaturnFilterPage| (CONS '|dbShowOps| (CONS |which| (CONS '|filter| NIL)))))) (COND ((OR (NULL |implementation?|) (|member| '|implementation| |exclusions|) - (BOOT-EQUAL |which| (MAKESTRING "attribute")) + (BOOT-EQUAL |which| "attribute") (AND (SPADLET |conname| (|opOf| (|htpProperty| |htPage| '|conform|))) (BOOT-EQUAL (GETDATABASE |conname| 'CONSTRUCTORKIND) '|category|))) - (|htSayCold| (MAKESTRING "\\&Implementations"))) + (|htSayCold| "\\&Implementations")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING - "\\&Implementations") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Implementations" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|implementation| NIL))))) @@ -25424,12 +25308,12 @@ $dbKindAlist := (COND ((OR |one?| (|member| '|names| |exclusions|) (NULL (KDR |opAlist|))) - (|htSayCold| (MAKESTRING "\\&Names"))) + (|htSayCold| "\\&Names")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "\\&Names") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Names" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|names| NIL))))) @@ -25437,12 +25321,12 @@ $dbKindAlist := NIL)))) (COND ((OR |one?| (|member| '|origins| |exclusions|)) - (|htSayCold| (MAKESTRING "\\&Origins"))) + (|htSayCold| "\\&Origins")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "\\&Origins") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Origins" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|origins| NIL))))) @@ -25451,61 +25335,60 @@ $dbKindAlist := (COND ((OR |one?| (|member| '|parameters| |exclusions|) (NULL (|dbDoesOneOpHaveParameters?| |opAlist|))) - (|htSayCold| (MAKESTRING "\\&Parameters"))) + (|htSayCold| "\\&Parameters")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "\\&Parameters") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Parameters" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|parameters| NIL))))) NIL)) NIL)))) (COND - ((NEQUAL |which| (MAKESTRING "attribute")) + ((NEQUAL |which| "attribute") (COND ((OR |one?| (|member| '|signatures| |exclusions|)) - (|htSayCold| (MAKESTRING "\\&Signatures"))) + (|htSayCold| "\\&Signatures")) ('T (|htMakePage| (CONS (CONS '|bcLispLinks| - (CONS (CONS (MAKESTRING "\\&Signatures") - (CONS (MAKESTRING "") + (CONS (CONS "\\&Signatures" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|signatures| NIL))))) NIL)) NIL)))))) (COND - (|star?| (|htSay| (MAKESTRING "\\hrule")) + (|star?| (|htSay| "\\hrule") (COND (|$exposedOnlyIfTrue| (COND (|one?| (|htSayCold| - (MAKESTRING "\\&Unexposed Also"))) + "\\&Unexposed Also")) ('T (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING - "\\&Unexposed Also") - (CONS (MAKESTRING "") + "\\&Unexposed Also" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|exposureOff| NIL))))) NIL)) NIL))))) (|one?| (|htSayCold| - (MAKESTRING "Exposed Onl\\&y"))) + "Exposed Onl\\&y")) ('T (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS - (MAKESTRING "Exposed Onl\\&y") - (CONS (MAKESTRING "") + "Exposed Onl\\&y" + (CONS "" (CONS '|dbShowOps| (CONS |which| (CONS '|exposureOn| NIL))))) @@ -25530,13 +25413,13 @@ $dbKindAlist := (declare (special |$saturn| |$exposedOnlyIfTrue|)) (COND (|$saturn| (|htShowPageStarSaturn|)) - ('T (|htSayStandard| (MAKESTRING "\\endscroll ")) + ('T (|htSayStandard| "\\endscroll ") (COND (|$exposedOnlyIfTrue| (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "Unexposed Also") - (CONS (MAKESTRING "") + (CONS (CONS "Unexposed Also" + (CONS "" (CONS '|repeatSearch| (CONS NIL NIL)))) NIL)) @@ -25544,8 +25427,8 @@ $dbKindAlist := ('T (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "Exposed Only") - (CONS (MAKESTRING "") + (CONS (CONS "Exposed Only" + (CONS "" (CONS '|repeatSearch| (CONS 'T NIL)))) NIL)) @@ -25574,8 +25457,8 @@ $dbKindAlist := (|$exposedOnlyIfTrue| (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "Unexposed Also") - (CONS (MAKESTRING "") + (CONS (CONS "Unexposed Also" + (CONS "" (CONS '|repeatSearch| (CONS NIL NIL)))) NIL)) @@ -25583,8 +25466,8 @@ $dbKindAlist := ('T (|htMakePage| (CONS (CONS '|bcLinks| - (CONS (CONS (MAKESTRING "Exposed Only") - (CONS (MAKESTRING "") + (CONS (CONS "Exposed Only" + (CONS "" (CONS '|repeatSearch| (CONS 'T NIL)))) NIL)) @@ -25846,47 +25729,47 @@ $dbKindAlist := (SPADLET |$DomainList| (CDR |$DomainList|)))) (SPADLET |opform| (COND - ((BOOT-EQUAL |which| (MAKESTRING "attribute")) + ((BOOT-EQUAL |which| "attribute") (COND ((NULL |sig|) (CONS |op| NIL)) ('T (CONS |op| (CONS |sig| NIL))))) ((BOOT-EQUAL |which| - (MAKESTRING "constructor")) + "constructor") |origin|) ('T (|dbGetDisplayFormForOp| |op| |sig| |doc|)))) - (|htSayStandard| (MAKESTRING "\\newline")) - (|htSaySaturn| (MAKESTRING "\\item[")) + (|htSayStandard| "\\newline") + (|htSaySaturn| "\\item[") (COND (|exactlyOneOpSig| (|htSay| (|menuButton|))) ('T (|htMakePage| (CONS (CONS '|bcLinks| (CONS (CONS (|menuButton|) - (CONS (MAKESTRING "") + (CONS "" (CONS |chooseFn| (CONS |which| (CONS |index| NIL))))) NIL)) NIL)))) - (|htSaySaturn| (MAKESTRING "]")) - (|htSayStandard| (MAKESTRING "\\tab{2}")) + (|htSaySaturn| "]") + (|htSayStandard| "\\tab{2}") (SPADLET |op| (IFCAR |opform|)) (SPADLET |args| (IFCDR |opform|)) (SPADLET |ops| (|escapeSpecialChars| (STRINGIMAGE |op|))) (SPADLET |n| (|#| |sig|)) (|do| (COND ((AND (EQL |n| 2) (LASSOC '|Nud| (PROPLIST |op|))) - (|htSay| |ops| (MAKESTRING " {\\em ") + (|htSay| |ops| " {\\em " (|quickForm2HtString| (KAR |args|)) - (MAKESTRING "}"))) + "}")) ((AND (EQL |n| 3) (LASSOC '|Led| (PROPLIST |op|))) - (|htSay| (MAKESTRING "{\\em ") + (|htSay| "{\\em " (|quickForm2HtString| (KAR |args|)) - (MAKESTRING "} ") |ops| - (MAKESTRING " {\\em ") + "} " |ops| + " {\\em " (|quickForm2HtString| (KAR (KDR |args|))) - (MAKESTRING "}"))) + "}")) ('T (COND ((AND |unexposed?| |$includeUnexposed?|) @@ -25898,16 +25781,16 @@ $dbKindAlist := (|member| |op| '(0 1))) '|skip|) ((AND (BOOT-EQUAL |which| - (MAKESTRING "attribute")) + "attribute") (NULL |args|)) '|skip|) - ('T (|htSay| (MAKESTRING "(")) + ('T (|htSay| "(") (COND ((IFCAR |args|) - (|htSay| (MAKESTRING "{\\em ") + (|htSay| "{\\em " (|quickForm2HtString| (IFCAR |args|)) - (MAKESTRING "}")))) + "}"))) (DO ((G179480 (IFCDR |args|) (CDR G179480)) (|x| NIL)) @@ -25916,10 +25799,10 @@ $dbKindAlist := (SETQ |x| (CAR G179480)) NIL)) NIL) - (SEQ (EXIT (|htSay| (MAKESTRING ",{\\em ") + (SEQ (EXIT (|htSay| ",{\\em " (|quickForm2HtString| |x|) - (MAKESTRING "}"))))) - (|htSay| (MAKESTRING ")"))))))) + "}")))) + (|htSay| ")")))))) (SPADLET |constring| (|form2HtString| |conform|)) (SPADLET |conname| (CAR |conform|)) (SPADLET |$conkind| @@ -25930,7 +25813,7 @@ $dbKindAlist := (SPADLET |$conform| |conform|) (SPADLET |$conargs| (CDR |conform|)) (COND - ((BOOT-EQUAL |which| (MAKESTRING "operation")) + ((BOOT-EQUAL |which| "operation") (SPADLET |$signature| (COND ((MEMQ |conname| |$Primitives|) NIL) @@ -25945,11 +25828,11 @@ $dbKindAlist := (SPADLET |$sig| (COND ((OR (BOOT-EQUAL |which| - (MAKESTRING "attribute")) + "attribute") (BOOT-EQUAL |which| - (MAKESTRING "constructor"))) + "constructor")) |sig|) - ((NEQUAL |$conkind| (MAKESTRING "package")) + ((NEQUAL |$conkind| "package") |sig|) ('T (SPADLET |symbolsUsed| @@ -25975,16 +25858,15 @@ $dbKindAlist := (SETDIFFERENCE |$DomainList| |symbolsUsed|)) (|getSubstSigIfPossible| |sig|)))) - (|htSaySaturn| (MAKESTRING "\\begin{tabular}{lp{0in}}")) + (|htSaySaturn| "\\begin{tabular}{lp{0in}}") (COND ((|member| |which| '("operation" "constructor")) (SPADLET |$displayReturnValue| NIL) (COND (|args| (|htSayStandard| - (MAKESTRING - "\\newline\\tab{2}{\\em Arguments:}")) + "\\newline\\tab{2}{\\em Arguments:}") (|htSaySaturn| - (MAKESTRING "{\\em Arguments:}")) + "{\\em Arguments:}") (|htSaySaturnAmpersand|) (SPADLET |firstTime| 'T) (SPADLET |coSig| @@ -26006,7 +25888,7 @@ $dbKindAlist := (COND ((NULL |firstTime|) (|htSaySaturn| - (MAKESTRING "\\\\ ")) + "\\\\ ") (|htSaySaturnAmpersand|))) (SPADLET |firstTime| NIL) (|htSayIndentRel| 15 'T) @@ -26022,16 +25904,16 @@ $dbKindAlist := (CONS '|bcLinks| (CONS (CONS |a| - (CONS (MAKESTRING "") + (CONS "" (CONS '|kArgPage| (CONS |a| NIL)))) NIL)) NIL))) ('T (|htSay| - (MAKESTRING "{\\em ") + "{\\em " (|form2HtString| |a|) - (MAKESTRING "}")))) + "}"))) (|htSay| '|, |) (SPADLET |coSig| (KDR |coSig|)) @@ -26039,25 +25921,25 @@ $dbKindAlist := (|htSayIndentRel| (SPADDIFFERENCE 15) 'T) (|htSayStandard| - (MAKESTRING "\\newline ")))))) - (|htSaySaturn| (MAKESTRING "\\\\")))) + "\\newline "))))) + (|htSaySaturn| "\\\\"))) (COND ((CAR |$sig|) (SPADLET |$displayReturnValue| 'T) - (|htSayStandard| (MAKESTRING "\\newline\\tab{2}")) - (|htSay| (MAKESTRING "{\\em Returns:}")) + (|htSayStandard| "\\newline\\tab{2}") + (|htSay| "{\\em Returns:}") (|htSaySaturnAmpersand|) (|htSayIndentRel| 15 'T) (|htSayValue| (CAR |$sig|)) (|htSayIndentRel| (SPADDIFFERENCE 15) 'T) - (|htSaySaturn| (MAKESTRING "\\\\"))) + (|htSaySaturn| "\\\\")) ('T NIL)))) (COND ((AND |origin| (OR |$generalSearch?| (NEQUAL |origin| |conform|)) (NEQUAL |op| (|opOf| |origin|))) - (|htSaySaturn| (MAKESTRING "{\\em Origin:}")) + (|htSaySaturn| "{\\em Origin:}") (|htSaySaturnAmpersand|) (|htSayStandard| - (MAKESTRING "\\newline\\tab{2}{\\em Origin:}")) + "\\newline\\tab{2}{\\em Origin:}") (|htSayIndentRel| 15) (COND ((AND (NULL (|isExposedConstructor| @@ -26066,15 +25948,15 @@ $dbKindAlist := (|htSayUnexposed|))) (|bcConform| |origin| 'T) (|htSayIndentRel| (SPADDIFFERENCE 15)) - (|htSaySaturn| (MAKESTRING "\\\\")))) + (|htSaySaturn| "\\\\"))) (COND ((NULL (MEMQ |predicate| '(T ASCONST))) (SPADLET |pred| (|sublisFormal| (KDR |conform|) |predicate|)) (SPADLET |count| (|#| |pred|)) - (|htSaySaturn| (MAKESTRING "{\\em Conditions:}")) + (|htSaySaturn| "{\\em Conditions:}") (|htSayStandard| - (MAKESTRING "\\newline\\tab{2}{\\em Conditions:}")) + "\\newline\\tab{2}{\\em Conditions:}") (SPADLET |firstTime| 'T) (DO ((G179538 (|displayBreakIntoAnds| @@ -26087,7 +25969,7 @@ $dbKindAlist := (SEQ (EXIT (PROGN (COND ((NULL |firstTime|) - (|htSaySaturn| (MAKESTRING "\\\\")))) + (|htSaySaturn| "\\\\"))) (|htSayIndentRel| 15 (> |count| 1)) (SPADLET |firstTime| NIL) (|htSaySaturnAmpersand|) @@ -26095,24 +25977,24 @@ $dbKindAlist := (|htSayIndentRel| (SPADDIFFERENCE 15) (> |count| 1)) (|htSayStandard| - (MAKESTRING "\\newline ")))))) - (|htSaySaturn| (MAKESTRING "\\\\")))) + "\\newline "))))) + (|htSaySaturn| "\\\\"))) (COND (|$whereList| (SPADLET |count| (|#| |$whereList|)) - (|htSaySaturn| (MAKESTRING "{\\em Where:}")) + (|htSaySaturn| "{\\em Where:}") (|htSayStandard| - (MAKESTRING "\\newline\\tab{2}{\\em Where:}")) + "\\newline\\tab{2}{\\em Where:}") (SPADLET |firstTime| 'T) (COND ((|assoc| '$ |$whereList|) (|htSayIndentRel| 15 'T) (|htSaySaturnAmpersand|) - (|htSayStandard| (MAKESTRING "{\\em \\$} is ")) - (|htSaySaturn| (MAKESTRING "{\\em \\%} is ")) + (|htSayStandard| "{\\em \\$} is ") + (|htSaySaturn| "{\\em \\%} is ") (|htSay| (COND ((BOOT-EQUAL |$conkind| - (MAKESTRING "category")) - (MAKESTRING "of category ")) - ('T (MAKESTRING "the domain ")))) + "category") + "of category ") + ('T "the domain "))) (|bcConform| |conform| 'T 'T) (SPADLET |firstTime| NIL) (|htSayIndentRel| (SPADDIFFERENCE 15) 'T))) @@ -26138,7 +26020,7 @@ $dbKindAlist := (COND ((NULL |firstTime|) (|htSaySaturn| - (MAKESTRING "\\\\ ")))) + "\\\\ "))) (|htSaySaturnAmpersand|) (SPADLET |firstTime| NIL) (|htSay| '|{\\em | |d| '|} is |) @@ -26148,18 +26030,18 @@ $dbKindAlist := (|htSayIndentRel| (SPADDIFFERENCE 15) (> |count| 1)))))))) - (|htSaySaturn| (MAKESTRING "\\\\")))) + (|htSaySaturn| "\\\\"))) (COND - ((AND |doc| (NEQUAL |doc| (MAKESTRING "")) + ((AND |doc| (NEQUAL |doc| "") (OR (NULL (AND (PAIRP |doc|) (EQ (QCDR |doc|) NIL) (PROGN (SPADLET |d| (QCAR |doc|)) 'T))) - (NEQUAL |d| (MAKESTRING "")))) - (|htSaySaturn| (MAKESTRING "{\\em Description:}")) + (NEQUAL |d| ""))) + (|htSaySaturn| "{\\em Description:}") (|htSaySaturnAmpersand|) (|htSayStandard| - (MAKESTRING "\\newline\\tab{2}{\\em Description:}")) + "\\newline\\tab{2}{\\em Description:}") (|htSayIndentRel| 15) (COND ((BOOT-EQUAL |doc| |$charFauxNewline|) @@ -26192,35 +26074,35 @@ $dbKindAlist := (|htSay| |ndoc|))) (|htSayIndentRel| (SPADDIFFERENCE 15)))) (COND - ((BOOT-EQUAL |which| (MAKESTRING "constructor")) + ((BOOT-EQUAL |which| "constructor") (COND ((SPADLET |abbr| (GETDATABASE |conname| 'ABBREVIATION)) - (|htSaySaturn| (MAKESTRING "\\\\")) - (|htSaySaturn| (MAKESTRING "{\\em Abbreviation:}")) + (|htSaySaturn| "\\\\") + (|htSaySaturn| "{\\em Abbreviation:}") (|htSaySaturnAmpersand|) (|htSayStandard| - (MAKESTRING "\\tab{2}{\\em Abbreviation:}")) + "\\tab{2}{\\em Abbreviation:}") (|htSayIndentRel| 15) (|htSay| |abbr|) (|htSayIndentRel| (SPADDIFFERENCE 15)) - (|htSayStandard| (MAKESTRING "\\newline{}")))) + (|htSayStandard| "\\newline{}"))) (COND ((AND |$saturn| (SPADLET |link| (|saturnHasExamplePage| |conname|))) - (|htSaySaturn| (MAKESTRING "\\\\")) - (|htSaySaturn| (MAKESTRING "{\\em Examples:}")) + (|htSaySaturn| "\\\\") + (|htSaySaturn| "{\\em Examples:}") (|htSaySaturnAmpersand|) (|htSayIndentRel| 15) - (|htSay| (MAKESTRING "\\spadref{")) + (|htSay| "\\spadref{") (|htSay| (CAR (CDR |link|))) - (|htSay| (MAKESTRING "}")) + (|htSay| "}") (|htSayIndentRel| (SPADDIFFERENCE 15)) - (|htSayStandard| (MAKESTRING "\\newline{}")))) - (|htSaySaturn| (MAKESTRING "\\\\")) - (|htSaySaturn| (MAKESTRING "{\\em Source File:}")) + (|htSayStandard| "\\newline{}"))) + (|htSaySaturn| "\\\\") + (|htSaySaturn| "{\\em Source File:}") (|htSaySaturnAmpersand|) (|htSayStandard| - (MAKESTRING "\\tab{2}{\\em Source File:}")) + "\\tab{2}{\\em Source File:}") (|htSayIndentRel| 15) (|htSaySourceFile| |conname|) (|htSayIndentRel| (SPADDIFFERENCE 15)))) (COND @@ -26228,7 +26110,7 @@ $dbKindAlist := (SPADLET |infoAlist| (|htpProperty| |htPage| '|infoAlist|))) (|displayInfoOp| |htPage| |infoAlist| |op| |sig|))) - (|htSaySaturn| (MAKESTRING "\\end{tabular}"))))))) + (|htSaySaturn| "\\end{tabular}")))))) ;htSaySourceFile conname == ; sourceFileName := (GETDATABASE(conname,'SOURCEFILE) or '"none") @@ -26242,20 +26124,19 @@ $dbKindAlist := (PROGN (SPADLET |sourceFileName| (OR (GETDATABASE |conname| 'SOURCEFILE) - (MAKESTRING "none"))) + "none")) (SPADLET |filename| (|extractFileNameFromPath| |sourceFileName|)) (|htMakePage| (CONS (CONS '|text| - (CONS (MAKESTRING "\\unixcommand{") + (CONS "\\unixcommand{" (CONS |filename| (CONS - (MAKESTRING - "}{\\$AXIOM/lib/SPADEDIT ") + "}{\\$AXIOM/lib/SPADEDIT " (CONS |sourceFileName| - (CONS (MAKESTRING " ") + (CONS " " (CONS |conname| - (CONS (MAKESTRING "}") NIL)))))))) + (CONS "}" NIL)))))))) NIL)))))) ;--------------------> NEW DEFINITION (see br-op2.boot.pamphlet) @@ -26284,16 +26165,16 @@ $dbKindAlist := (COND ((> |n| 0) (COND - (|flag| (CONS (MAKESTRING "\\indent{") + (|flag| (CONS "\\indent{" (CONS (STRINGIMAGE |m|) - (CONS (MAKESTRING "}\\tab{-2}") + (CONS "}\\tab{-2}" NIL)))) ('T - (CONS (MAKESTRING "\\indent{") + (CONS "\\indent{" (CONS (STRINGIMAGE |m|) - (CONS (MAKESTRING "}\\tab{0}") NIL)))))) + (CONS "}\\tab{0}" NIL)))))) ((MINUSP |n|) - (CONS (MAKESTRING "\\indent{0}\\newline ") NIL))))) + (CONS "\\indent{0}\\newline " NIL))))) ('T NIL)))))) ;htSayUnexposed() == @@ -26303,7 +26184,7 @@ $dbKindAlist := (DEFUN |htSayUnexposed| () (declare (special |$atLeastOneUnexposed|)) (PROGN - (|htSay| (MAKESTRING "{\\em *}")) + (|htSay| "{\\em *}") (SPADLET |$atLeastOneUnexposed| 'T))) ;--======================================================================= @@ -26313,7 +26194,7 @@ $dbKindAlist := ; htSaySaturn '"\end{tabular}" (DEFUN |htEndTabular| () - (|htSaySaturn| (MAKESTRING "\\end{tabular}"))) + (|htSaySaturn| "\\end{tabular}")) ;htPopSaturn s == ; pageDescription := ELT($saturnPage, 7) @@ -26339,8 +26220,8 @@ $dbKindAlist := (DEFUN |htBeginTable| () (PROGN - (|htSaySaturn| (MAKESTRING "\\begin{dirlist}[lv]")) - (|htSayStandard| (MAKESTRING "\\table{")))) + (|htSaySaturn| "\\begin{dirlist}[lv]") + (|htSayStandard| "\\table{"))) ;htEndTable() == ; htSaySaturn '"\end{dirlist}" @@ -26348,8 +26229,8 @@ $dbKindAlist := (DEFUN |htEndTable| () (PROGN - (|htSaySaturn| (MAKESTRING "\\end{dirlist}")) - (|htSayStandard| (MAKESTRING "}")))) + (|htSaySaturn| "\\end{dirlist}") + (|htSayStandard| "}"))) ;htBeginMenu(kind,:options) == ; skip := IFCAR options @@ -26374,15 +26255,15 @@ $dbKindAlist := (|$saturn| (COND ((BOOT-EQUAL |kind| '|description|) - (|htSaySaturn| (MAKESTRING "\\begin{description}"))) - ('T (|htSaySaturn| (MAKESTRING "\\begin{tabular}")) + (|htSaySaturn| "\\begin{description}")) + ('T (|htSaySaturn| "\\begin{tabular}") (|htSaySaturn| (COND - ((EQL |kind| 3) (MAKESTRING "{llp{0in}}")) - ((EQL |kind| 2) (MAKESTRING "{lp{0in}}")) + ((EQL |kind| 3) "{llp{0in}}") + ((EQL |kind| 2) "{lp{0in}}") ('T (|error| NIL)))))))) (COND - ((NULL |skip|) (|htSayStandard| (MAKESTRING "\\beginmenu "))) + ((NULL |skip|) (|htSayStandard| "\\beginmenu ")) ('T NIL)))))) ;htEndMenu(kind) == @@ -26399,10 +26280,10 @@ $dbKindAlist := (|$saturn| (COND ((BOOT-EQUAL |kind| '|description|) - (|htSaySaturn| (MAKESTRING "\\end{description}"))) - ('T (|htPopSaturn| (MAKESTRING "\\\\")) - (|htSaySaturn| (MAKESTRING "\\end{tabular}")))))) - (|htSayStandard| (MAKESTRING "\\endmenu ")))) + (|htSaySaturn| "\\end{description}")) + ('T (|htPopSaturn| "\\\\") + (|htSaySaturn| "\\end{tabular}"))))) + (|htSayStandard| "\\endmenu "))) ;htSayConstructorName(nameShown, name) == ; if $saturn then @@ -26419,17 +26300,17 @@ $dbKindAlist := (COND (|$saturn| (SPADLET |code| - (CONS (MAKESTRING "(|conPage| '|") - (CONS |name| (CONS (MAKESTRING "|)") NIL)))) + (CONS "(|conPage| '|" + (CONS |name| (CONS "|)" NIL)))) (|htSaySaturn| (|mkDocLink| |code| |nameShown|)))) (COND (|$standard| (|htSayStandard| (CONS '|\\lispdownlink{| (CONS |nameShown| - (CONS (MAKESTRING "}{(|conPage| '|") + (CONS "}{(|conPage| '|" (CONS |name| - (CONS (MAKESTRING "|)}") NIL))))))) + (CONS "|)}" NIL))))))) ('T NIL)))))) ;--------------------> NEW DEFINITION (see ht-util.boot.pamphlet) @@ -26454,14 +26335,14 @@ $dbKindAlist := (declare (special |$saturn| |$curPage| |$standard|)) (PROGN (COND - (|$saturn| (|htSaySaturn| (MAKESTRING "\\browseTitle{")) - (|htSaySaturn| |title|) (|htSaySaturn| (MAKESTRING "}")))) + (|$saturn| (|htSaySaturn| "\\browseTitle{") + (|htSaySaturn| |title|) (|htSaySaturn| "}"))) (COND (|$standard| - (|htSayStandard| (MAKESTRING "\\begin{page}{") - (|htpName| |$curPage|) (MAKESTRING "}{")))) + (|htSayStandard| "\\begin{page}{" + (|htpName| |$curPage|) "}{"))) (|htSayStandard| |title|) - (|htSayStandard| (MAKESTRING "}")))) + (|htSayStandard| "}"))) ;--======================================================================= ;-- Utilities @@ -26507,12 +26388,12 @@ $dbKindAlist := ((QSGREATERP |i| |n|) G179737) (SEQ (EXIT (SETQ G179737 (STRCONC G179737 - (MAKESTRING "\\phantom{*}"))))))))) + "\\phantom{*}")))))))) (|htSayStandard| - (STRCONC (MAKESTRING "\\space{") (STRINGIMAGE |n|) - (MAKESTRING "}")))) - ('T (|htSaySaturn| (MAKESTRING "\\phantom{*}")) - (|htSayStandard| (MAKESTRING "\\space{1}")))))))) + (STRCONC "\\space{" (STRINGIMAGE |n|) + "}"))) + ('T (|htSaySaturn| "\\phantom{*}") + (|htSayStandard| "\\space{1}"))))))) ;unTab s == ; STRINGP s => unTab1 s @@ -26534,7 +26415,7 @@ $dbKindAlist := (PROG (|k|) (RETURN (COND - ((AND (EQL (STRING< (MAKESTRING "\\tab{") |s|) 5) + ((AND (EQL (STRING< "\\tab{" |s|) 5) (SPADLET |k| (|charPosition| (|char| '}) |s| 4))) (SUBSTRING |s| (PLUS |k| 1) NIL)) ('T |s|))))) @@ -26545,8 +26426,8 @@ $dbKindAlist := (DEFUN |satBreak| () (PROGN - (|htSaySaturn| (MAKESTRING "\\\\ ")) - (|htSayStandard| (MAKESTRING "\\item ")))) + (|htSaySaturn| "\\\\ ") + (|htSayStandard| "\\item "))) ;htBigSkip() == ; htSaySaturn '"\bigskip{}" @@ -26554,12 +26435,12 @@ $dbKindAlist := (DEFUN |htBigSkip| () (PROGN - (|htSaySaturn| (MAKESTRING "\\bigskip{}")) - (|htSayStandard| (MAKESTRING "\\vspace{1}\\newline ")))) + (|htSaySaturn| "\\bigskip{}") + (|htSayStandard| "\\vspace{1}\\newline "))) ;htSaturnBreak() == htSaySaturn '"\!" -(DEFUN |htSaturnBreak| () (|htSaySaturn| (MAKESTRING "\\!"))) +(DEFUN |htSaturnBreak| () (|htSaySaturn| "\\!")) ;satDownLink(s,code) == ; htSaySaturn '"\lispFunctionLink{\verb!" @@ -26576,16 +26457,16 @@ $dbKindAlist := (DEFUN |satDownLink| (|s| |code|) (PROGN - (|htSaySaturn| (MAKESTRING "\\lispFunctionLink{\\verb!")) + (|htSaySaturn| "\\lispFunctionLink{\\verb!") (|htSaySaturn| |code|) - (|htSaySaturn| (MAKESTRING "!}{")) + (|htSaySaturn| "!}{") (|htSaySaturn| |s|) - (|htSaySaturn| (MAKESTRING "}")) - (|htSayStandard| (MAKESTRING "\\lispdownlink{")) + (|htSaySaturn| "}") + (|htSayStandard| "\\lispdownlink{") (|htSayStandard| |s|) - (|htSayStandard| (MAKESTRING "}{")) + (|htSayStandard| "}{") (|htSayStandard| |code|) - (|htSayStandard| (MAKESTRING "}")))) + (|htSayStandard| "}"))) ;satTypeDownLink(s,code) == ; htSaySaturn '"\lispLink[d]{\verb!" @@ -26602,22 +26483,22 @@ $dbKindAlist := (DEFUN |satTypeDownLink| (|s| |code|) (PROGN - (|htSaySaturn| (MAKESTRING "\\lispLink[d]{\\verb!")) + (|htSaySaturn| "\\lispLink[d]{\\verb!") (|htSaySaturn| |code|) - (|htSaySaturn| (MAKESTRING "!}{")) + (|htSaySaturn| "!}{") (|htSaySaturn| |s|) - (|htSaySaturn| (MAKESTRING "}")) - (|htSayStandard| (MAKESTRING "\\lispdownlink{")) + (|htSaySaturn| "}") + (|htSayStandard| "\\lispdownlink{") (|htSayStandard| |s|) - (|htSayStandard| (MAKESTRING "}{")) + (|htSayStandard| "}{") (|htSayStandard| |code|) - (|htSayStandard| (MAKESTRING "}")))) + (|htSayStandard| "}"))) ;mkButtonBox n == STRCONC('"\buttonbox{", STRINGIMAGE n, '"}") (DEFUN |mkButtonBox| (|n|) - (STRCONC (MAKESTRING "\\buttonbox{") (STRINGIMAGE |n|) - (MAKESTRING "}"))) + (STRCONC "\\buttonbox{" (STRINGIMAGE |n|) + "}")) ;--======================================================================= ;-- Create separate databases for operations, constructors @@ -26703,10 +26584,10 @@ $dbKindAlist := (PROGN (SPADLET |sin| (STRINGIMAGE |x|)) (SPADLET |sout| (STRINGIMAGE |y|)) - (OBEY (STRCONC (MAKESTRING "sort -f \"") |sin| - (MAKESTRING ".text\" > \"") |sout| - (MAKESTRING ".text\""))) - (OBEY (STRCONC (MAKESTRING "rm ") |sin| (MAKESTRING ".text"))))))) + (OBEY (STRCONC "sort -f \"" |sin| + ".text\" > \"" |sout| + ".text\"")) + (OBEY (STRCONC "rm " |sin| ".text")))))) ;--======================================================================= ;-- from define.boot @@ -26951,17 +26832,17 @@ $dbKindAlist := ((AND |$compileOnlyCertainItems| (NULL (|member| |$op| |$compileOnlyCertainItems|))) (|sayBrightly| - (CONS (MAKESTRING " skipping ") + (CONS " skipping " (CONS |localOrExported| (|bright| |$op|)))) (CONS NIL (CONS (CONS '|Mapping| |signature'|) (CONS |oldE| NIL)))) ('T (|sayBrightly| - (CONS (MAKESTRING " compiling ") + (CONS " compiling " (CONS |localOrExported| (APPEND (|bright| |$op|) - (CONS (MAKESTRING ": ") + (CONS ": " |formattedSig|))))) (COND ((BOOT-EQUAL |$newComp| 'T) @@ -26989,9 +26870,9 @@ $dbKindAlist := |e|)) (CONS (INTERN " " "BOOT") (CONS |rettype| (CONS |e| NIL))))) - (SAY (MAKESTRING "The old compiler generates:")) + (SAY "The old compiler generates:") (|prTriple| |oldT|) - (SAY (MAKESTRING "The new compiler generates:")) + (SAY "The new compiler generates:") (|prTriple| T$)) ('T NIL))) ('T @@ -27003,7 +26884,7 @@ $dbKindAlist := (|NRTassignCapsuleFunctionSlot| |$op| |signature'|) (COND ((BOOT-EQUAL |$newCompCompare| 'T) - (SAY (MAKESTRING "The old compiler generates:")) + (SAY "The old compiler generates:") (|prTriple| T$)) ('T NIL)))) (SPADLET |catchTag| (MKQ (GENSYM))) @@ -27167,35 +27048,35 @@ $dbKindAlist := (DEFUN |bcConform1,say| (|x|) (declare (special |$italics?|)) - (SEQ (IF |$italics?| (|bcHt| (MAKESTRING "{\\em ")) NIL) - (IF (BOOT-EQUAL |x| '|etc|) (SPADLET |x| (MAKESTRING "...")) + (SEQ (IF |$italics?| (|bcHt| "{\\em ") NIL) + (IF (BOOT-EQUAL |x| '|etc|) (SPADLET |x| "...") NIL) (|bcHt| (|escapeSpecialIds| (STRINGIMAGE |x|))) - (EXIT (IF |$italics?| (|bcHt| (MAKESTRING "}")) NIL)))) + (EXIT (IF |$italics?| (|bcHt| "}") NIL)))) (DEFUN |bcConform1,tl| (|u|) (PROG (|firstTime|) (RETURN - (SEQ (|bcHt| (MAKESTRING "(")) (SPADLET |firstTime| 'T) + (SEQ (|bcHt| "(") (SPADLET |firstTime| 'T) (DO ((G180021 |u| (CDR G180021)) (|x| NIL)) ((OR (ATOM G180021) (PROGN (SETQ |x| (CAR G180021)) NIL)) NIL) - (SEQ (IF (NULL |firstTime|) (|bcHt| (MAKESTRING ",")) NIL) + (SEQ (IF (NULL |firstTime|) (|bcHt| ",") NIL) (SPADLET |firstTime| NIL) (EXIT (|bcConform1,hd| |x|)))) - (EXIT (|bcHt| (MAKESTRING ")"))))))) + (EXIT (|bcHt| ")")))))) (DEFUN |bcConform1,tuple| (|u|) - (SEQ (IF (NULL |u|) (EXIT (|bcHt| (MAKESTRING "()")))) + (SEQ (IF (NULL |u|) (EXIT (|bcHt| "()"))) (IF (NULL (CDR |u|)) (EXIT (|bcConform1,hd| |u|))) - (|bcHt| (MAKESTRING "(")) (|bcConform1,hd| (CAR |u|)) + (|bcHt| "(") (|bcConform1,hd| (CAR |u|)) (DO ((G180035 (CDR |u|) (CDR G180035)) (|x| NIL)) ((OR (ATOM G180035) (PROGN (SETQ |x| (CAR G180035)) NIL)) NIL) - (SEQ (|bcHt| (MAKESTRING ",")) (EXIT (|bcConform1,hd| |x|)))) - (EXIT (|bcHt| (MAKESTRING ")"))))) + (SEQ (|bcHt| ",") (EXIT (|bcConform1,hd| |x|)))) + (EXIT (|bcHt| ")")))) (DEFUN |bcConform1,mapping| (G180044) (PROG (|target| |source|) @@ -27207,8 +27088,8 @@ $dbKindAlist := G180044 (SEQ (|bcConform1,tuple| |source|) (|bcHt| (SEQ (IF |$saturn| - (EXIT (MAKESTRING " {\\ttrarrow} "))) - (EXIT (MAKESTRING " -> ")))) + (EXIT " {\\ttrarrow} ")) + (EXIT " -> "))) (EXIT (|bcConform1,hd| |target|)))))))) (DEFUN |bcConform1,hd| (|form|) @@ -27237,7 +27118,7 @@ $dbKindAlist := (ELT |$FormalMapVariableList| |n|))))) - (|htSay| (MAKESTRING "\\")) + (|htSay| "\\") (EXIT (|htSay| |form|))))) (EXIT (|htSay| @@ -27249,26 +27130,25 @@ $dbKindAlist := (IF |$bcMultipleNames| (EXIT (|satTypeDownLink| |s| (CONS - (MAKESTRING - "(|conPageChoose| '|") + "(|conPageChoose| '|" (CONS |s| - (CONS (MAKESTRING "|)") NIL)))))) + (CONS "|)" NIL)))))) (EXIT (|satTypeDownLink| |s| (CONS '|(\|conPage\| '\|| (CONS |s| - (CONS (MAKESTRING "|)") NIL)))))))) + (CONS "|)" NIL)))))))) (IF (BOOT-EQUAL (SPADLET |head| (QCAR |form|)) 'QUOTE) - (EXIT (SEQ (|htSay| (MAKESTRING "'")) + (EXIT (SEQ (|htSay| "'") (EXIT (|bcConform1,hd| (CADR |form|)))))) (IF (BOOT-EQUAL |head| 'SIGNATURE) - (EXIT (SEQ (|htSay| (CADR |form|) (MAKESTRING ": ")) + (EXIT (SEQ (|htSay| (CADR |form|) ": ") (EXIT (|bcConform1,mapping| (CADDR |form|)))))) (IF (AND (BOOT-EQUAL |head| '|Mapping|) (CDR |form|)) (EXIT (IF (CDR |form|) (EXIT (|bcConform1,mapping| (CDR |form|)))))) (IF (BOOT-EQUAL |head| '|:|) (EXIT (SEQ (|bcConform1,hd| (CADR |form|)) - (|htSay| (MAKESTRING ": ")) + (|htSay| ": ") (EXIT (|bcConform1,hd| (CADDR |form|)))))) (IF (AND (QCDR |form|) (|dbEvalableConstructor?| |form|)) (EXIT (|bcConstructor| |form| |head|))) @@ -27379,7 +27259,7 @@ $dbKindAlist := (declare (special |$newConstructorList|)) (PROGN (SPADLET |$newConstructorList| NIL) - (|deleteFile| (MAKESTRING "libdb.text")))) + (|deleteFile| "libdb.text"))) @ \eject diff --git a/src/interp/c-doc.lisp.pamphlet b/src/interp/c-doc.lisp.pamphlet index d3283b0..3d70425 100644 --- a/src/interp/c-doc.lisp.pamphlet +++ b/src/interp/c-doc.lisp.pamphlet @@ -556,24 +556,24 @@ ((OR |noHeading| |signatures| |attributes|) (|sayKeyedMsg| 'S2CD0002 (CONS (STRCONC (STRINGIMAGE |bigcnt|) - (MAKESTRING ".")) + ".") (CONS |name| NIL))) (SPADLET |bigcnt| (PLUS |bigcnt| 1)) (SPADLET |litcnt| 1) (COND (|noHeading| (|sayKeyedMsg| 'S2CD0003 - (CONS (STRCONC (MAKESTRING "(") + (CONS (STRCONC "(" (STRINGIMAGE |litcnt|) - (MAKESTRING ")")) + ")") (CONS |name| NIL))) (SPADLET |litcnt| (PLUS |litcnt| 1)))) (COND (|signatures| (|sayKeyedMsg| 'S2CD0004 - (CONS (STRCONC (MAKESTRING "(") + (CONS (STRCONC "(" (STRINGIMAGE |litcnt|) - (MAKESTRING ")")) + ")") NIL)) (SPADLET |litcnt| (PLUS |litcnt| 1)) (DO ((G166479 |signatures| @@ -603,9 +603,9 @@ (COND (|attributes| (|sayKeyedMsg| 'S2CD0005 - (CONS (STRCONC (MAKESTRING "(") + (CONS (STRCONC "(" (STRINGIMAGE |litcnt|) - (MAKESTRING ")")) + ")") NIL)) (SPADLET |litcnt| (PLUS |litcnt| 1)) (DO ((G166491 |attributes| @@ -629,7 +629,7 @@ (|unusedCommentLineNumbers| (|sayKeyedMsg| 'S2CD0006 (CONS (STRCONC (STRINGIMAGE |bigcnt|) - (MAKESTRING ".")) + ".") (CONS |name| NIL))) (DO ((G166501 |unusedCommentLineNumbers| (CDR G166501)) @@ -646,9 +646,9 @@ NIL)) NIL) (SEQ (EXIT (|sayMSG| - (CONS (MAKESTRING " ") + (CONS " " (APPEND (|bright| |n|) - (CONS (MAKESTRING " ") + (CONS " " (CONS |r| NIL))))))))) ('T NIL))) ('T NIL)))) @@ -701,10 +701,9 @@ (RETURN (SEQ (PROGN (|sayBrightly| - (CONS (MAKESTRING " Processing ") + (CONS " Processing " (CONS |$constructorName| - (CONS (MAKESTRING - " for Browser database:") + (CONS " for Browser database:" NIL)))) (SPADLET |commentList| (|transDoc| |$constructorName| |doclist|)) @@ -728,7 +727,7 @@ (|conEntry| (|checkDocError| (CONS - (MAKESTRING "Spurious comments: ") + "Spurious comments: " (CONS |x| NIL)))) ('T (SPADLET |conEntry| |entry|)))) ('T (SPADLET |acc| (CONS |entry| |acc|))))))) @@ -736,7 +735,7 @@ (|conEntry| (CONS |conEntry| |acc|)) ('T (|checkDocError1| - (CONS (MAKESTRING "Missing Description") NIL)) + (CONS "Missing Description" NIL)) |acc|))))))) ;transDoc(conname,doclist) == @@ -825,8 +824,7 @@ ('T (|checkDocError1| (CONS - (MAKESTRING - "Not documented!!!!") + "Not documented!!!!" NIL))))) ('T (SPADLET |u| @@ -846,17 +844,14 @@ (SPADLET |v| (OR (|checkExtract| - (MAKESTRING - "Description:") + "Description:" |u|) (AND |u| (|checkExtract| - (MAKESTRING - "Description:") + "Description:" (CONS (STRCONC - (MAKESTRING - "Description: ") + "Description: " (CAR |u|)) (CDR |u|)))))) (|transformAndRecheckComments| @@ -945,9 +940,9 @@ (SPADLET |$origin| '|gloss|) (SPADLET |$recheckingFlag| NIL) (SPADLET |$exposeFlagHeading| - (CONS (MAKESTRING "--------") + (CONS "--------" (CONS |name| - (CONS (MAKESTRING "---------") NIL)))) + (CONS "---------" NIL)))) (COND ((NULL |$exposeFlag|) (|sayBrightly| |$exposeFlagHeading|))) (SPADLET |u| (|checkComments| |name| |lines|)) @@ -1033,7 +1028,7 @@ (COND ((AND |w| (BOOT-EQUAL (CAR |w|) - (MAKESTRING "\\end{verbatim}"))) + "\\end{verbatim}")) (SPADLET |verbatim| NIL) (SPADLET |u2| (APPEND |u2| |w|))) ('T @@ -1041,7 +1036,7 @@ (APPEND |u2| (CONS |x| NIL)))))) ((AND |w| (BOOT-EQUAL (CAR |w|) - (MAKESTRING "\\begin{verbatim}"))) + "\\begin{verbatim}")) (SPADLET |verbatim| 'T) (SPADLET |u2| (APPEND |u2| |w|))) ('T (SPADLET |u2| (APPEND |u2| |w|)))))))) @@ -1094,14 +1089,13 @@ (SPADLET |x| (CAR |u|)) (COND ((AND (BOOT-EQUAL |x| - (MAKESTRING "\\texht")) + "\\texht") (SPADLET |u| (IFCDR |u|))) (COND ((NULL (BOOT-EQUAL (IFCAR |u|) |$charLbrace|)) (|checkDocError| - (MAKESTRING - "First left brace after \\texht missing")))) + "First left brace after \\texht missing"))) (SPADLET |count| 1) (DO () ((NULL @@ -1129,7 +1123,7 @@ (IFCAR (SPADLET |u| (CDR |u|)))))) (COND ((AND (BOOT-EQUAL |x| - (MAKESTRING "\\httex")) + "\\httex") (SPADLET |u| (IFCDR |u|)) (BOOT-EQUAL (IFCAR |u|) |$charLbrace|)) @@ -1310,7 +1304,7 @@ (CONS (CONS |$name| |$origin|) (CDR |entry|))))) ((AND (BOOT-EQUAL |x| - (MAKESTRING "\\spadsys")) + "\\spadsys") (SPADLET |u| (|checkLookForLeftBrace| (IFCDR |u|))) @@ -1329,16 +1323,14 @@ ((NULL |parse|) (|checkDocError| (CONS - (MAKESTRING - "Unparseable \\spadtype: ") + "Unparseable \\spadtype: " (CONS |s| NIL)))) ((NULL (|member| (|opOf| |parse|) |$currentSysList|)) (|checkDocError| (CONS - (MAKESTRING - "Bad system command: ") + "Bad system command: " (CONS |s| NIL)))) ((OR (ATOM |parse|) (NULL @@ -1360,8 +1352,7 @@ (PROGN (|checkDocError| (CONS - (MAKESTRING - "Incorrect \\spadsys: ") + "Incorrect \\spadsys: " (CONS |s| NIL))) (SPADLET |entry| (OR (HGET |$sysHash| |htname|) @@ -1371,7 +1362,7 @@ (CONS (CONS |$name| |$origin|) (CDR |entry|)))))))) ((AND (BOOT-EQUAL |x| - (MAKESTRING "\\spadtype")) + "\\spadtype") (SPADLET |u| (|checkLookForLeftBrace| (IFCDR |u|))) @@ -1385,8 +1376,7 @@ ((NULL |parse|) (|checkDocError| (CONS - (MAKESTRING - "Unparseable \\spadtype: ") + "Unparseable \\spadtype: " (CONS |s| NIL)))) ('T (SPADLET |n| @@ -1395,8 +1385,7 @@ ((NULL |n|) (|checkDocError| (CONS - (MAKESTRING - "Unknown \\spadtype: ") + "Unknown \\spadtype: " (CONS |s| NIL)))) ((AND (ATOM |parse|) (> |n| 0)) '|skip|) @@ -1405,15 +1394,13 @@ (|checkIsValidType| |parse|))) (|checkDocError| (CONS - (MAKESTRING - "Unknown \\spadtype: ") + "Unknown \\spadtype: " (CONS |s| NIL)))) ((ATOM |key|) '|ok|) ('T (|checkDocError| (CONS - (MAKESTRING - "Wrong number of arguments: ") + "Wrong number of arguments: " (CONS (|form2HtString| |key|) NIL)))))))) ((AND (|member| |x| @@ -1432,8 +1419,7 @@ (GETL |x| '|Nud|))) (|checkDocError| (CONS - (MAKESTRING - "Unknown \\spadop: ") + "Unknown \\spadop: " (CONS |x| NIL)))))) ('T NIL)))) (SPADLET |u| (CDR |u|)))))) @@ -1456,7 +1442,7 @@ (declare (special |$charBack|)) (RETURN (COND - ((BOOT-EQUAL |s| (MAKESTRING "")) (MAKESTRING "")) + ((BOOT-EQUAL |s| "") "") ((> (|#| |s|) (SPADLET |k| (|charPosition| |$charBack| |s| 0))) (COND ((EQL |k| 0) (|removeBackslashes| (SUBSTRING |s| 1 NIL))) @@ -1561,7 +1547,7 @@ (SPADDIFFERENCE (SPADDIFFERENCE |j| |k|) 1))) ('T (|checkDocError| - (CONS (MAKESTRING "Ill-formed lisp expression : ") + (CONS "Ill-formed lisp expression : " (CONS |s| NIL))) '|illformed|)))))) @@ -1727,7 +1713,7 @@ (SPADLET |n| (|#| |line|)) (SPADLET |k| (|htcharPosition| (|char| '%) |line| 0)) (COND - ((EQL |k| 0) (MAKESTRING "")) + ((EQL |k| 0) "") ((OR (>= |k| (SPADDIFFERENCE |n| 1)) (NEQUAL (ELT |line| (PLUS |k| 1)) (|char| '%))) |line|) @@ -1790,13 +1776,12 @@ (SPADLET |acc| (COND ((BOOT-EQUAL |x| - (MAKESTRING "\\end{verbatim}")) + "\\end{verbatim}") (SPADLET |verbatim| NIL) (CONS |x| |acc|)) (|verbatim| (CONS |x| |acc|)) ((BOOT-EQUAL |x| - (MAKESTRING - "\\begin{verbatim}")) + "\\begin{verbatim}") (SPADLET |verbatim| 'T) (CONS |x| |acc|)) ((SPADLET |y| @@ -1873,7 +1858,7 @@ (COND ((AND |w| (BOOT-EQUAL (CAR |w|) - (MAKESTRING "\\end{verbatim}"))) + "\\end{verbatim}")) (SPADLET |verbatim| NIL) (SPADLET |u2| (APPEND |u2| |w|))) ('T @@ -1881,7 +1866,7 @@ (APPEND |u2| (CONS |x| NIL)))))) ((AND |w| (BOOT-EQUAL (CAR |w|) - (MAKESTRING "\\begin{verbatim}"))) + "\\begin{verbatim}")) (SPADLET |verbatim| 'T) (SPADLET |u2| (APPEND |u2| |w|))) ('T (SPADLET |u2| (APPEND |u2| |w|)))))))) @@ -1957,18 +1942,17 @@ (SPADLET |u2| (APPEND |u2| (CONS - (MAKESTRING - "\\blankline ") + "\\blankline " NIL)))))) ('T (SPADLET |s| (SUBSTRING |x| |k| NIL)) (COND ((BOOT-EQUAL |s| - (MAKESTRING "\\begin{verbatim}")) + "\\begin{verbatim}") (SPADLET |verbatim| 'T) (SPADLET |u2| (APPEND |u2| (CONS |s| NIL)))) ((BOOT-EQUAL |s| - (MAKESTRING "\\end{verbatim}")) + "\\end{verbatim}") (SPADLET |verbatim| NIL) (SPADLET |u2| (APPEND |u2| (CONS |s| NIL)))) @@ -1986,15 +1970,14 @@ (APPEND |u2| (CONS (STRCONC - (MAKESTRING - "\\indented{") + "\\indented{" (STRINGIMAGE (SPADDIFFERENCE |k| |margin|)) - (MAKESTRING "}{") + "}{" (|checkAddSpaceSegments| |s| 0) - (MAKESTRING "}")) + "}") NIL))))))))))) |u2|))))) @@ -2061,7 +2044,7 @@ (SEQ (EXIT (SPADLET |i| (PLUS |i| 1))))) (COND ((> |i| |m|) NIL) - ('T (SPADLET |buf| (MAKESTRING "")) + ('T (SPADLET |buf| "") (SPADLET |ch| (ELT |l| |i|)) (COND ((BOOT-EQUAL |ch| |$charFauxNewline|) @@ -2131,7 +2114,7 @@ (SPADLET |k| (|firstNonBlankPosition| |u|)) (COND ((> |k| 0) (|checkGetArgs| (SUBSTRING |u| |k| NIL))) - ((|stringPrefix?| (MAKESTRING "\\spad{") |u|) + ((|stringPrefix?| "\\spad{" |u|) (SPADLET |k| (OR (|getMatchingRightPren| |u| 6 (|char| '{) (|char| '})) @@ -2233,14 +2216,14 @@ (SPADLET |k| (|firstNonBlankPosition| |x|)) (COND ((BOOT-EQUAL |k| (SPADDIFFERENCE 1)) - (MAKESTRING "\\blankline ")) + "\\blankline ") ((BOOT-EQUAL |margin| |k|) |x|) ('T - (STRCONC (MAKESTRING "\\indented{") + (STRCONC "\\indented{" (STRINGIMAGE (SPADDIFFERENCE |k| |margin|)) - (MAKESTRING "}{") + "}{" (|checkAddSpaceSegments| (SUBSTRING |x| |k| NIL) 0) - (MAKESTRING "}")))))))) + "}"))))))) ;checkAddSpaceSegments(u,k) == ; m := MAXINDEX u @@ -2273,8 +2256,8 @@ (COND ((> |n| 1) (STRCONC (SUBSTRING |u| 0 |i|) - (MAKESTRING "\\space{") (STRINGIMAGE |n|) - (MAKESTRING "}") + "\\space{" (STRINGIMAGE |n|) + "}" (|checkAddSpaceSegments| (SUBSTRING |u| (PLUS |i| |n|) NIL) 0))) ('T (|checkAddSpaceSegments| |u| |j|)))))))))) @@ -2325,7 +2308,7 @@ (PLUS |k| 1)) (PLUS |k| 1))) (EXIT (|systemError| - (MAKESTRING " Improper comment found")))) + " Improper comment found"))) (EXIT |k|))))) (DEFUN |checkTrim| (|$x| |lines|) @@ -2346,8 +2329,7 @@ (|checkDocError| (CONS |$x| (CONS - (MAKESTRING - " has varying indentation levels") + " has varying indentation levels" NIL))) (SPADLET |s| (CONS |j| |s|))) ('T NIL)))))) @@ -2484,10 +2466,10 @@ (NEQUAL (IFCAR (IFCDR (CDR |u|))) |$charLbrace|)) (|checkDocError| - (CONS (MAKESTRING "Reversing ") + (CONS "Reversing " (CONS |next| (CONS - (MAKESTRING " and left brace") + " and left brace" NIL)))) (SPADLET |acc| (CONS |$charLbrace| @@ -2580,7 +2562,7 @@ (COND ((NULL |verbatim|) (COND - ((BOOT-EQUAL |x| (MAKESTRING "\\em")) + ((BOOT-EQUAL |x| "\\em") (COND ((> |count| 0) (SPADLET |mathSymbolsOk| @@ -2590,8 +2572,7 @@ ('T (|checkDocError| (CONS - (MAKESTRING - "\\em must be enclosed in braces") + "\\em must be enclosed in braces" NIL)))))) (COND ((|member| |x| @@ -2628,26 +2609,24 @@ (CONS '|Symbol | (CONS |x| (CONS - (MAKESTRING - " appearing outside \\spad{}") + " appearing outside \\spad{}" NIL))))) ('T NIL))) ('T NIL)))) (SPADLET |acc| (COND ((BOOT-EQUAL |x| - (MAKESTRING "\\end{verbatim}")) + "\\end{verbatim}") (SPADLET |verbatim| NIL) (CONS |x| |acc|)) (|verbatim| (CONS |x| |acc|)) ((BOOT-EQUAL |x| - (MAKESTRING - "\\begin{verbatim}")) + "\\begin{verbatim}") (SPADLET |verbatim| 'T) (CONS |x| |acc|)) ((AND (BOOT-EQUAL |x| - (MAKESTRING "\\begin")) + "\\begin") (BOOT-EQUAL (CAR (SPADLET |v| (IFCDR |u|))) @@ -2655,18 +2634,18 @@ (BOOT-EQUAL (CAR (SPADLET |v| (IFCDR |v|))) - (MAKESTRING "detail")) + "detail") (BOOT-EQUAL (CAR (SPADLET |v| (IFCDR |v|))) |$charRbrace|)) (SPADLET |u| |v|) (CONS - (MAKESTRING "\\blankline ") + "\\blankline " |acc|)) ((AND (BOOT-EQUAL |x| - (MAKESTRING "\\end")) + "\\end") (BOOT-EQUAL (CAR (SPADLET |v| (IFCDR |u|))) @@ -2674,7 +2653,7 @@ (BOOT-EQUAL (CAR (SPADLET |v| (IFCDR |v|))) - (MAKESTRING "detail")) + "detail") (BOOT-EQUAL (CAR (SPADLET |v| (IFCDR |v|))) @@ -2683,21 +2662,21 @@ ((OR (BOOT-EQUAL |x| (|char| '$)) (BOOT-EQUAL |x| - (MAKESTRING "$"))) - (CONS (MAKESTRING "\\$") |acc|)) + "$")) + (CONS "\\$" |acc|)) ((OR (BOOT-EQUAL |x| (|char| '%)) (BOOT-EQUAL |x| - (MAKESTRING "%"))) - (CONS (MAKESTRING "\\%") |acc|)) + "%")) + (CONS "\\%" |acc|)) ((OR (BOOT-EQUAL |x| (|char| '|,|)) (BOOT-EQUAL |x| - (MAKESTRING ","))) - (CONS (MAKESTRING ",{}") |acc|)) + ",")) + (CONS ",{}" |acc|)) ((BOOT-EQUAL |x| - (MAKESTRING "\\spad")) - (CONS (MAKESTRING "\\spad") + "\\spad") + (CONS "\\spad" |acc|)) ((AND (STRINGP |x|) (DIGITP (ELT |x| 0))) @@ -2713,7 +2692,7 @@ (CONS |$charRbrace| (CONS |x| (CONS |$charLbrace| - (CONS (MAKESTRING "\\spad") + (CONS "\\spad" |acc|))))) ((AND (NULL |spadflag|) (OR @@ -2728,7 +2707,7 @@ (CONS |$charRbrace| (CONS |x| (CONS |$charLbrace| - (CONS (MAKESTRING "\\spad") + (CONS "\\spad" |acc|))))) ('T (SPADLET |xcount| (|#| |x|)) (COND @@ -2737,12 +2716,12 @@ (|char| '|t|)) (BOOT-EQUAL (ELT |x| 2) (|char| '|h|))) - (CONS (MAKESTRING "th") + (CONS "th" (CONS |$charRbrace| (CONS (ELT |x| 0) (CONS |$charLbrace| (CONS - (MAKESTRING "\\spad") + "\\spad" |acc|)))))) ((AND (EQL |xcount| 4) (BOOT-EQUAL (ELT |x| 1) @@ -2751,12 +2730,12 @@ (|char| '|t|)) (BOOT-EQUAL (ELT |x| 3) (|char| '|h|))) - (CONS (MAKESTRING "-th") + (CONS "-th" (CONS |$charRbrace| (CONS (ELT |x| 0) (CONS |$charLbrace| (CONS - (MAKESTRING "\\spad") + "\\spad" |acc|)))))) ((OR (AND (EQL |xcount| 2) @@ -2773,7 +2752,7 @@ (CONS |x| (CONS |$charLbrace| (CONS - (MAKESTRING "\\spad") + "\\spad" |acc|))))) ('T (CONS @@ -2902,7 +2881,7 @@ (SEQ (EXIT (PROGN (COND ((BOOT-EQUAL |f| - (MAKESTRING "\\begin{verbatim}")) + "\\begin{verbatim}") (SPADLET |space| |$charFauxNewline|) (COND ((NULL |u2|) @@ -2918,7 +2897,7 @@ (APPEND |u2| (CONS |f| NIL))))) (COND ((BOOT-EQUAL |f| - (MAKESTRING "\\end{verbatim}")) + "\\end{verbatim}") (SPADLET |u2| (APPEND |u2| (CONS |space| NIL))) @@ -2956,13 +2935,12 @@ (SPADLET |acc| (COND ((BOOT-EQUAL |x| - (MAKESTRING "\\end{verbatim}")) + "\\end{verbatim}") (SPADLET |verbatim| NIL) (CONS |x| |acc|)) (|verbatim| (CONS |x| |acc|)) ((BOOT-EQUAL |x| - (MAKESTRING - "\\begin{verbatim}")) + "\\begin{verbatim}") (SPADLET |verbatim| 'T) (CONS |x| |acc|)) ((SPADLET |z| @@ -2991,7 +2969,7 @@ (RETURN (SEQ (COND ((CHARP |x|) NIL) - ((BOOT-EQUAL |x| (MAKESTRING "")) NIL) + ((BOOT-EQUAL |x| "") NIL) ('T (SPADLET |m| (MAXINDEX |x|)) (SEQ (DO ((G167607 (SPADDIFFERENCE |m| 3)) (|k| 0 (QSADD1 |k|))) @@ -3010,7 +2988,7 @@ (ELT |x| (PLUS |k| 2)) (|char| '|e|)) (SPADLET |key| - (MAKESTRING "that is"))) + "that is")) (AND (BOOT-EQUAL (ELT |x| |k|) (|char| '|e|)) @@ -3018,7 +2996,7 @@ (ELT |x| (PLUS |k| 2)) (|char| '|g|)) (SPADLET |key| - (MAKESTRING "for example"))))) + "for example")))) (EXIT (PROGN (SPADLET |firstPart| @@ -3030,9 +3008,9 @@ (SPADLET |result| (APPEND |firstPart| (CONS - (MAKESTRING "\\spadignore{") + "\\spadignore{" (CONS (SUBSTRING |x| |k| 4) - (CONS (MAKESTRING "}") + (CONS "}" (|checkIeEgfun| (SUBSTRING |x| (PLUS |k| 4) NIL)))))))))))))) @@ -3066,13 +3044,12 @@ (SPADLET |acc| (COND ((BOOT-EQUAL |x| - (MAKESTRING "\\end{verbatim}")) + "\\end{verbatim}") (SPADLET |verbatim| NIL) (CONS |x| |acc|)) (|verbatim| (CONS |x| |acc|)) ((BOOT-EQUAL |x| - (MAKESTRING - "\\begin{verbatim}")) + "\\begin{verbatim}") (SPADLET |verbatim| 'T) (CONS |x| |acc|)) ((SPADLET |z| @@ -3235,11 +3212,11 @@ |$charPeriod|)) (APPEND (|checkSplitPunctuation| (SUBSTRING |x| 0 (SPADDIFFERENCE |m| 2))) - (CONS (MAKESTRING "...") NIL))) + (CONS "..." NIL))) ('T (APPEND (|checkSplitPunctuation| (SUBSTRING |x| 0 (SPADDIFFERENCE |m| 1))) - (CONS (MAKESTRING "..") NIL))))) + (CONS ".." NIL))))) ((OR (BOOT-EQUAL |lastchar| |$charPeriod|) (BOOT-EQUAL |lastchar| |$charSemiColon|) (BOOT-EQUAL |lastchar| |$charComma|)) @@ -3383,14 +3360,12 @@ ((NEQUAL |open| |top|) (|checkDocError| (CONS - (MAKESTRING - "Mismatch: left ") + "Mismatch: left " (CONS (|checkSayBracket| |top|) (CONS - (MAKESTRING - " matches right ") + " matches right " (CONS (|checkSayBracket| |open|) @@ -3399,8 +3374,7 @@ ('T (|checkDocError| (CONS - (MAKESTRING - "Missing left ") + "Missing left " (CONS (|checkSayBracket| |open|) NIL))))))))) @@ -3416,7 +3390,7 @@ NIL) (SEQ (EXIT (|checkDocError| (CONS - (MAKESTRING "Missing right ") + "Missing right " (CONS (|checkSayBracket| |x|) NIL)))))))) |u|))))) @@ -3429,10 +3403,10 @@ (DEFUN |checkSayBracket| (|x|) (COND ((OR (BOOT-EQUAL |x| (|char| '|(|)) (BOOT-EQUAL |x| (|char| '|)|))) - (MAKESTRING "pren")) + "pren") ((OR (BOOT-EQUAL |x| (|char| '{)) (BOOT-EQUAL |x| (|char| '}))) - (MAKESTRING "brace")) - ('T (MAKESTRING "bracket")))) + "brace") + ('T "bracket"))) ;checkBeginEnd u == ; beginEndStack := nil @@ -3490,26 +3464,26 @@ (NULL (HGET |$htMacroTable| |x|)) (NULL (BOOT-EQUAL |x| - (MAKESTRING "\\spadignore"))) + "\\spadignore")) (BOOT-EQUAL (IFCAR (IFCDR |u|)) |$charLbrace|) (NULL (OR (|substring?| - (MAKESTRING "\\radiobox") |x| + "\\radiobox" |x| 0) (|substring?| - (MAKESTRING "\\inputbox") |x| + "\\inputbox" |x| 0)))) (|checkDocError| (CONS '|Unexpected HT command: | (CONS |x| NIL)))) ((BOOT-EQUAL |x| - (MAKESTRING "\\beginitems")) + "\\beginitems") (SPADLET |beginEndStack| (CONS '|items| |beginEndStack|))) ((BOOT-EQUAL |x| - (MAKESTRING "\\begin")) + "\\begin") (COND ((AND (PAIRP |u|) (PROGN @@ -3536,10 +3510,9 @@ |$beginEndList|)) (|checkDocError| (CONS - (MAKESTRING - "Unknown begin type: \\begin{") + "Unknown begin type: \\begin{" (CONS |y| - (CONS (MAKESTRING "}") + (CONS "}" NIL)))))) (SPADLET |beginEndStack| (CONS |y| |beginEndStack|)) @@ -3547,11 +3520,10 @@ ('T (|checkDocError| (CONS - (MAKESTRING - "Improper \\begin command") + "Improper \\begin command" NIL))))) ((BOOT-EQUAL |x| - (MAKESTRING "\\item")) + "\\item") (COND ((|member| (IFCAR |beginEndStack|) @@ -3560,19 +3532,17 @@ ((NULL |beginEndStack|) (|checkDocError| (CONS - (MAKESTRING - "\\item appears outside a \\begin-\\end") + "\\item appears outside a \\begin-\\end" NIL))) ('T (|checkDocError| (CONS - (MAKESTRING - "\\item appears within a \\begin{") + "\\item appears within a \\begin{" (CONS (IFCAR |beginEndStack|) - (CONS (MAKESTRING "}..") + (CONS "}.." NIL))))))) ((BOOT-EQUAL |x| - (MAKESTRING "\\end")) + "\\end") (COND ((AND (PAIRP |u|) (PROGN @@ -3602,27 +3572,24 @@ ('T (|checkDocError| (CONS - (MAKESTRING - "Trying to match \\begin{") + "Trying to match \\begin{" (CONS (IFCAR |beginEndStack|) (CONS - (MAKESTRING - "} with \\end{") + "} with \\end{" (CONS |y| (CONS '} NIL))))))))) ('T (|checkDocError| (CONS - (MAKESTRING - "Improper \\end command") + "Improper \\end command" NIL)))))))) (SPADLET |u| (CDR |u|)))))) (COND (|beginEndStack| (|checkDocError| - (CONS (MAKESTRING "Missing \\end{") + (CONS "Missing \\end{" (CONS (CAR |beginEndStack|) - (CONS (MAKESTRING "}") NIL))))) + (CONS "}" NIL))))) ('T '|ok|))))))) ;checkArguments u == @@ -3679,13 +3646,13 @@ ((NULL (SPADLET |u| (|checkLookForLeftBrace| |u|))) (RETURN (|checkDocError| - (CONS (MAKESTRING "Missing argument for ") + (CONS "Missing argument for " (CONS |keyword| NIL)))))) (COND ((NULL (SPADLET |u| (|checkLookForRightBrace| (IFCDR |u|)))) (RETURN (|checkDocError| - (CONS (MAKESTRING "Missing right brace for ") + (CONS "Missing right brace for " (CONS |keyword| NIL)))))) (|checkHTargs| |keyword| (CDR |u|) (SPADDIFFERENCE |nargs| 1) |integerValue?|)))))) @@ -3758,7 +3725,7 @@ (RETURN (SEQ (COND ((CHARP |s|) NIL) - ((BOOT-EQUAL |s| (MAKESTRING "")) NIL) + ((BOOT-EQUAL |s| "") NIL) ('T (PROG (G167927) (SPADLET G167927 'T) @@ -3847,10 +3814,10 @@ (PROGN (SPADLET |namestring| (PNAME |opname|)) (COND - ((BOOT-EQUAL |namestring| (MAKESTRING "Zero")) - (SPADLET |namestring| (MAKESTRING "0"))) - ((BOOT-EQUAL |namestring| (MAKESTRING "One")) - (SPADLET |namestring| (MAKESTRING "1"))) + ((BOOT-EQUAL |namestring| "Zero") + (SPADLET |namestring| "0")) + ((BOOT-EQUAL |namestring| "One") + (SPADLET |namestring| "1")) ('T NIL)) (COND ((> |margin| 0) (SPADLET |s| (|leftTrim| |u|)) @@ -3879,27 +3846,24 @@ ((NEQUAL |namestring| (SPADLET |firstWord| (SUBSTRING |u| 0 |i|))) (|checkDocError| - (CONS (MAKESTRING - "Improper first word in comments: ") + (CONS "Improper first word in comments: " (CONS |firstWord| NIL))) |u|) ((NULL |k|) (COND ((BOOT-EQUAL |open| (|char| '[)) (|checkDocError| - (CONS (MAKESTRING - "Missing close bracket on first line: ") + (CONS "Missing close bracket on first line: " (CONS |u| NIL)))) ('T (|checkDocError| - (CONS (MAKESTRING - "Missing close parenthesis on first line: ") + (CONS "Missing close parenthesis on first line: " (CONS |u| NIL))))) |u|) ('T - (STRCONC (MAKESTRING "\\spad{") + (STRCONC "\\spad{" (SUBSTRING |u| 0 (PLUS |k| 1)) - (MAKESTRING "}") + "}" (SUBSTRING |u| (PLUS |k| 1) NIL))))) ('T (SPADLET |k| @@ -3915,8 +3879,7 @@ (SPADLET |firstWord| (SUBSTRING |u| 0 |i|))) (|checkDocError| - (CONS (MAKESTRING - "Improper first word in comments: ") + (CONS "Improper first word in comments: " (CONS |firstWord| NIL))) |u|) ((AND (EQL (|#| (SPADLET |p| (PNAME |infixOp|))) @@ -3930,13 +3893,13 @@ (COND ((> |l| (MAXINDEX |u|)) (SPADLET |l| (SPADDIFFERENCE |k| 1)))) - (STRCONC (MAKESTRING "\\spad{") + (STRCONC "\\spad{" (SUBSTRING |u| 0 (PLUS |l| 1)) - (MAKESTRING "}") + "}" (SUBSTRING |u| (PLUS |l| 1) NIL))) ('T - (STRCONC (MAKESTRING "\\spad{") - (SUBSTRING |u| 0 |k|) (MAKESTRING "}") + (STRCONC "\\spad{" + (SUBSTRING |u| 0 |k|) "}" (SUBSTRING |u| |k| NIL))))) ('T (SPADLET |l| @@ -3948,13 +3911,12 @@ (COND ((NEQUAL |namestring| (PNAME |infixOp|)) (|checkDocError| - (CONS (MAKESTRING - "Improper initial operator in comments: ") + (CONS "Improper initial operator in comments: " (CONS |infixOp| NIL))) |u|) ('T - (STRCONC (MAKESTRING "\\spad{") - (SUBSTRING |u| 0 |n|) (MAKESTRING "}") + (STRCONC "\\spad{" + (SUBSTRING |u| 0 |n|) "}" (SUBSTRING |u| |n| NIL))))))))) ('T (SPADLET |i| @@ -3963,8 +3925,7 @@ ((NEQUAL |namestring| (SPADLET |firstWord| (SUBSTRING |u| 0 |i|))) (|checkDocError| - (CONS (MAKESTRING - "Improper first word in comments: ") + (CONS "Improper first word in comments: " (CONS |firstWord| NIL))) |u|) ('T (SPADLET |prefixOp| (INTERN (SUBSTRING |u| 0 |i|))) @@ -3983,9 +3944,9 @@ (COND ((> |j| |m|) |u|) ('T - (STRCONC (MAKESTRING "\\spad{") + (STRCONC "\\spad{" (SUBSTRING |u| 0 (PLUS |j| 1)) - (MAKESTRING "}") + "}" (SUBSTRING |u| (PLUS |j| 1) NIL))))) ('T (SPADLET |k| @@ -3996,14 +3957,13 @@ (SPADLET |firstWord| (SUBSTRING |u| 0 |i|))) (|checkDocError| - (CONS (MAKESTRING - "Improper first word in comments: ") + (CONS "Improper first word in comments: " (CONS |firstWord| NIL))) |u|) ('T - (STRCONC (MAKESTRING "\\spad{") + (STRCONC "\\spad{" (SUBSTRING |u| 0 |k|) - (MAKESTRING "}") + "}" (SUBSTRING |u| |k| NIL)))))))))))))))))) ;getMatchingRightPren(u,j,open,close) == @@ -4122,20 +4082,17 @@ (DEFUN |docreport| (|nam|) (PROGN - (OBEY (MAKESTRING "rm docreport.input")) - (OBEY (STRCONC (MAKESTRING "echo \")bo setOutStream('") - (STRINGIMAGE |nam|) (MAKESTRING ")\" > temp.input"))) - (OBEY (MAKESTRING - "cat docreport.header temp.input > docreport.input")) - (OBEY (STRCONC (MAKESTRING "awk '/") (STRINGIMAGE |nam|) - (MAKESTRING - "/ {printf(\")co %s.spad\\n\",$2)}' whofiles > temp.input"))) - (OBEY (MAKESTRING "cat docreport.input temp.input > temp1.input")) - (OBEY (MAKESTRING - "cat temp1.input docreport.trailer > docreport.input")) - (OBEY (MAKESTRING "rm temp.input")) - (OBEY (MAKESTRING "rm temp1.input")) - (SETQ /EDITFILE (MAKESTRING "docreport.input")) + (OBEY "rm docreport.input") + (OBEY (STRCONC "echo \")bo setOutStream('" + (STRINGIMAGE |nam|) ")\" > temp.input")) + (OBEY "cat docreport.header temp.input > docreport.input") + (OBEY (STRCONC "awk '/" (STRINGIMAGE |nam|) + "/ {printf(\")co %s.spad\\n\",$2)}' whofiles > temp.input")) + (OBEY "cat docreport.input temp.input > temp1.input") + (OBEY "cat temp1.input docreport.trailer > docreport.input") + (OBEY "rm temp.input") + (OBEY "rm temp1.input") + (SETQ /EDITFILE "docreport.input") (/RQ))) ;setOutStream nam == @@ -4148,7 +4105,7 @@ (RETURN (PROGN (SPADLET |filename| - (STRCONC (MAKESTRING "/tmp/") (STRINGIMAGE |nam|) + (STRCONC "/tmp/" (STRINGIMAGE |nam|) (INTERN ".docreport" "BOOT"))) (SPADLET |$outStream| (MAKE-OUTSTREAM |filename|)))))) @@ -4173,11 +4130,10 @@ ((NULL |$exposeFlag|) NIL) ('T (SPADLET |filename| (GETDATABASE |con| 'SOURCEFILE)) (SPADLET |quoteChar| (|char| '|"|)) - (OBEY (STRCONC (MAKESTRING "awk '$2 == ") |quoteChar| + (OBEY (STRCONC "awk '$2 == " |quoteChar| |filename| |quoteChar| - (MAKESTRING - " {print $1}' whofiles > /tmp/temp"))) - (SPADLET |instream| (MAKE-INSTREAM (MAKESTRING "/tmp/temp"))) + " {print $1}' whofiles > /tmp/temp")) + (SPADLET |instream| (MAKE-INSTREAM "/tmp/temp")) (SPADLET |value| (COND ((EOFP |instream|) NIL) @@ -4226,7 +4182,7 @@ (|$recheckingFlag| (COND (|$constructorName| (|checkDocMessage| |u|)) - ('T (|concat| (MAKESTRING "> ") |u|)))) + ('T (|concat| "> " |u|)))) (|$constructorName| (|checkDocMessage| |u|)) ('T |u|))) (COND @@ -4256,15 +4212,15 @@ (SPADLET |sourcefile| (GETDATABASE |$constructorName| 'SOURCEFILE)) (SPADLET |person| - (OR (|whoOwns| |$constructorName|) (MAKESTRING "---"))) + (OR (|whoOwns| |$constructorName|) "---")) (SPADLET |middle| (COND ((BOUNDP '|$x|) - (CONS (MAKESTRING "(") - (CONS |$x| (CONS (MAKESTRING "): ") NIL)))) - ('T (CONS (MAKESTRING ": ") NIL)))) - (|concat| |person| (MAKESTRING ">") |sourcefile| - (MAKESTRING "-->") |$constructorName| |middle| |u|))))) + (CONS "(" + (CONS |$x| (CONS "): " NIL)))) + ('T (CONS ": " NIL)))) + (|concat| |person| ">" |sourcefile| + "-->" |$constructorName| |middle| |u|))))) ;checkDecorateForHt u == ; count := 0 @@ -4305,7 +4261,7 @@ (|do| (PROGN (COND ((BOOT-EQUAL |x| - (MAKESTRING "\\em")) + "\\em") (COND ((> |count| 0) (SPADLET |spadflag| @@ -4313,8 +4269,7 @@ ('T (|checkDocError| (CONS - (MAKESTRING - "\\em must be enclosed in braces") + "\\em must be enclosed in braces" NIL)))))) (COND ((|member| |x| @@ -4342,19 +4297,18 @@ (CONS '|Symbol | (CONS |x| (CONS - (MAKESTRING - " appearing outside \\spad{}") + " appearing outside \\spad{}" NIL))))) ('T NIL))) ('T NIL)) (COND ((OR (BOOT-EQUAL |x| - (MAKESTRING "$")) + "$") (BOOT-EQUAL |x| - (MAKESTRING "%"))) + "%")) (|checkDocError| - (CONS (MAKESTRING "Unescaped ") + (CONS "Unescaped " (CONS |x| NIL))))))) (SPADLET |u| (CDR |u|)))))) |u|))))) diff --git a/src/interp/c-util.lisp.pamphlet b/src/interp/c-util.lisp.pamphlet index 0e6c45b..2dfcb9e 100644 --- a/src/interp/c-util.lisp.pamphlet +++ b/src/interp/c-util.lisp.pamphlet @@ -57,9 +57,7 @@ (PROGN (SPADLET |n| (QCAR |l|)) 'T) (INTEGERP |n|)) (|displayComp| (SPADLET |$level| |n|))) ('T - (SAY (MAKESTRING - "Correct format: (level n) where n is the level you want to go to" - ))))))) + (SAY "Correct format: (level n) where n is the level you want to go to" ))))))) ; ;UP() == up() @@ -131,9 +129,9 @@ ((EQL |n| 0) NIL) ('T (SPADLET |l| (NREVERSE |$semanticErrorStack|)) (SPADLET |$semanticErrorStack| NIL) - (|sayBrightly| (|bright| (MAKESTRING " Semantic Errors:"))) + (|sayBrightly| (|bright| " Semantic Errors:")) (|displaySemanticError| |l| CUROUTSTREAM) - (|sayBrightly| (MAKESTRING " ")) (|displayWarnings|))))))) + (|sayBrightly| " ") (|displayWarnings|))))))) ; ;displaySemanticError(l,stream) == @@ -147,9 +145,9 @@ ((OR (ATOM G2529) (PROGN (SETQ |x| (CAR G2529)) NIL)) NIL) (SEQ (EXIT (|sayBrightly| - (CONS (MAKESTRING " [") + (CONS " [" (CONS |i| - (CONS (MAKESTRING "] ") (CAR |x|)))) + (CONS "] " (CAR |x|)))) |stream|)))))) ; @@ -174,11 +172,11 @@ (REMDUP |$warningStack|)))) (COND ((EQL |n| 0) NIL) - ('T (|sayBrightly| (|bright| (MAKESTRING " Warnings:"))) + ('T (|sayBrightly| (|bright| " Warnings:")) (SPADLET |l| (NREVERSE |$warningStack|)) (|displayWarning| |l| CUROUTSTREAM) (SPADLET |$warningStack| NIL) - (|sayBrightly| (MAKESTRING " ")))))))) + (|sayBrightly| " "))))))) ; ;displayWarning(l,stream) == @@ -192,8 +190,8 @@ ((OR (ATOM G2550) (PROGN (SETQ |x| (CAR G2550)) NIL)) NIL) (SEQ (EXIT (|sayBrightly| - (CONS (MAKESTRING " [") - (CONS |i| (CONS (MAKESTRING "] ") |x|))) + (CONS " [" + (CONS |i| (CONS "] " |x|))) |stream|)))))) ; @@ -229,16 +227,16 @@ (COND ((BOOT-EQUAL |$insideCapsuleFunctionIfTrue| 'T) (|sayBrightly| - (CONS (MAKESTRING "error in function") + (CONS "error in function" (CONS '|%b| (CONS |$op| (CONS '|%d| (CONS '|%l| NIL)))))))) (|pp| (|removeZeroOne| (|mkErrorExpr| |level|))) (|sayBrightly| - (CONS (MAKESTRING "****** level") + (CONS "****** level" (CONS '|%b| (CONS |level| (CONS '|%d| - (CONS (MAKESTRING " ******") NIL)))))) + (CONS " ******" NIL)))))) (SPADLET |LETTMP#1| (ELEM |$s| |level|)) (SPADLET |$x| (CAR |LETTMP#1|)) (SPADLET |$m| (CADR |LETTMP#1|)) @@ -247,9 +245,9 @@ (SPADLET $X |$x|) (SPADLET $M |$m|) (SPADLET $F |$f|) - (SAY (MAKESTRING "$x:= ") |$x|) - (SAY (MAKESTRING "$m:= ") |$m|) - (SAY (MAKESTRING "$f:=")) + (SAY "$x:= " |$x|) + (SAY "$m:= " |$m|) + (SAY "$f:=") (|F,PRINT-ONE| |$f|) NIL)))) @@ -343,7 +341,7 @@ (SPADLET |x| (CAR G2621)) (SPADLET |m| (CADR G2621)) (SPADLET |e| (CADDR G2621)) - (SAY (MAKESTRING "tracing comp, compFormWithModemap of: ") |x|) + (SAY "tracing comp, compFormWithModemap of: " |x|) (|TRACE,1| (CONS '|comp| (CONS '|compFormWithModemap| NIL)) NIL) (SPADLET T$ (|comp| |x| |m| |e|)) @@ -360,7 +358,7 @@ (|stackWarning| (CONS '|%b| (CONS |s| - (CONS '|%d| (CONS (MAKESTRING "has no value") NIL)))))) + (CONS '|%d| (CONS "has no value" NIL)))))) ; ;unErrorRef s == unStackWarning ['%b,s,'%d,'"has no value"] @@ -371,7 +369,7 @@ (|unStackWarning| (CONS '|%b| (CONS |s| - (CONS '|%d| (CONS (MAKESTRING "has no value") NIL)))))) + (CONS '|%d| (CONS "has no value" NIL)))))) ; ;--% ENVIRONMENT FUNCTIONS @@ -409,8 +407,7 @@ (CONS '|%b| (CONS |x| (CONS '|%d| - (CONS (MAKESTRING - "is BOTH a variable and a literal") + (CONS "is BOTH a variable and a literal" NIL)))) NIL)) @@ -496,7 +493,7 @@ (SPADLET |el| (CDR G2695)) (COND ((NULL (BOOT-EQUAL |el| |el'|)) - (|systemError| (MAKESTRING "deltaContour"))) + (|systemError| "deltaContour")) ('T (|deltaContour,eliminateDuplicatePropertyLists| (|deltaContour,contourDifference| |c| |c'|)))))))) @@ -973,9 +970,9 @@ (PROGN (SETQ |y| (CAR G3038)) NIL)) NIL) (SEQ (EXIT (PROGN - (SAY (MAKESTRING "******CONTOUR ") - |j| (MAKESTRING ", LEVEL ") |i| - (MAKESTRING ":******")) + (SAY "******CONTOUR " + |j| ", LEVEL " |i| + ":******") (DO ((G3053 |y| (CDR G3053)) (|z| NIL)) @@ -989,8 +986,7 @@ (PROGN (TERPRI) (SAY - (MAKESTRING - "Properties Of: ") + "Properties Of: " (CAR |z|)) (DO ((G3065 (CDR |z|) @@ -1045,9 +1041,9 @@ (PROGN (SETQ |y| (CAR G3112)) NIL)) NIL) (SEQ (EXIT (PROGN - (SAY (MAKESTRING "******CONTOUR ") - |j| (MAKESTRING ", LEVEL ") |i| - (MAKESTRING ":******")) + (SAY "******CONTOUR " + |j| ", LEVEL " |i| + ":******") (DO ((G3128 |y| (CDR G3128)) (|z| NIL)) @@ -1065,8 +1061,7 @@ (PROGN (TERPRI) (SAY - (MAKESTRING - "Properties Of: ") + "Properties Of: " (CAR |z|)) (DO ((G3140 (CDR |z|) @@ -1160,9 +1155,9 @@ (DEFUN |prTriple| (T$) (PROGN - (SAY (MAKESTRING "Code:")) + (SAY "Code:") (|pp| (ELT T$ 0)) - (SAY (MAKESTRING "Mode:")) + (SAY "Mode:") (|pp| (ELT T$ 1)))) ; @@ -1821,8 +1816,7 @@ ;;; *** |printDashedLine| REDEFINED (DEFUN |printDashedLine| () - (SAY (MAKESTRING - "----------------------------------------------------------------------"))) + (SAY "----------------------------------------------------------------------")) ; ;stackSemanticError(msg,expr) == @@ -2091,12 +2085,12 @@ (|normalizeStatAndStringify| |elapsedSeconds|)) (COND ((EQL |byteCount| 0) - (SAY (MAKESTRING "Time: ") |timeString| - (MAKESTRING " SEC."))) + (SAY "Time: " |timeString| + " SEC.")) ('T - (SAY (MAKESTRING "Size: ") |byteCount| - (MAKESTRING " BYTES Time: ") |timeString| - (MAKESTRING " SEC.")))) + (SAY "Size: " |byteCount| + " BYTES Time: " |timeString| + " SEC."))) (TERPRI) NIL)))) @@ -2567,7 +2561,7 @@ (declare (special |$EmptyMode| |$f| |$x|)) (RETURN (SEQ (COND - ((ATOM |$x|) (|sayBrightly| (MAKESTRING "$x is an atom"))) + ((ATOM |$x|) (|sayBrightly| "$x is an atom")) ('T (DO ((G3999 (CDR |$x|) (CDR G3999)) (|y| NIL)) ((OR (ATOM G3999) @@ -2578,7 +2572,7 @@ (|comp| |y| |$EmptyMode| |$f|)) (|sayBrightly| (CONS |y| - (CONS (MAKESTRING " ==> mode") + (CONS " ==> mode" (CONS '|%b| (CONS (CADR |u|) (CONS '|%d| NIL))))))) @@ -2586,8 +2580,7 @@ (|sayBrightly| (CONS |y| (CONS - (MAKESTRING - " does not compile") + " does not compile" NIL)))))))))))))) ; @@ -2633,7 +2626,7 @@ ((SPADLET |u| (|qModemap| |mm|)) (RETURN |u|)) ('T NIL)))))) - ('T (|sayBrightly| (MAKESTRING "no modemaps for $x")))))))) + ('T (|sayBrightly| "no modemaps for $x"))))))) ; ;qModemap mm == @@ -2651,7 +2644,7 @@ (SEQ (PROGN (|sayBrightly| (CONS '|%b| - (CONS (MAKESTRING "modemap") + (CONS "modemap" (CONS '|%d| (|formatModemap| |mm|))))) (SPADLET |dc| (CAAR |mm|)) (SPADLET |target| (CADAR |mm|)) @@ -2675,7 +2668,7 @@ ('T (|sayBrightly| (CONS '|%b| - (CONS (MAKESTRING "fails") + (CONS "fails" (CONS '|%d| (CONS '|%l| NIL)))))))))))) ; @@ -2699,7 +2692,7 @@ ('T '|no|))) (|sayBrightly| (CONS |a| - (CONS (MAKESTRING " --> ") + (CONS " --> " (CONS |m| (CONS '|%b| (CONS |yesOrNo| (CONS '|%d| NIL))))))) @@ -2715,7 +2708,7 @@ ;_?comp x == ; msg:= ; u:= comp(x,$EmptyMode,$f) => -; [MAKESTRING "compiles to mode",'%b,u.mode,'%d] +; "compiles to mode"'%b,u.mode,'%d] ; nil ; sayBrightly msg @@ -2729,7 +2722,7 @@ (SPADLET |msg| (COND ((SPADLET |u| (|comp| |x| |$EmptyMode| |$f|)) - (CONS (MAKESTRING "compiles to mode") + (CONS "compiles to mode" (CONS '|%b| (CONS (CADR |u|) (CONS '|%d| NIL))))) ('T NIL))) @@ -2825,14 +2818,14 @@ (SPADLET |val| (CONS (CAR |val|) (CONS (CADR |val|) - (CONS (MAKESTRING "...") NIL)))) + (CONS "..." NIL)))) NIL) (|sayBrightly| - (CONS (MAKESTRING " ") + (CONS " " (CONS '|%b| (CONS |prop| (CONS '|%d| - (CONS (MAKESTRING ": ") + (CONS ": " (CONS |val| NIL))))))) (EXIT (|displayProplist,fn| (|deleteAssoc| |prop| |l|)))))))))) @@ -2842,9 +2835,9 @@ (DEFUN |displayProplist| (|x| |alist|) (PROGN (|sayBrightly| - (CONS (MAKESTRING "properties of") + (CONS "properties of" (CONS '|%b| - (CONS |x| (CONS '|%d| (CONS (MAKESTRING ":") NIL)))))) + (CONS |x| (CONS '|%d| (CONS ":" NIL)))))) (|displayProplist,fn| |alist|))) ; diff --git a/src/interp/category.lisp.pamphlet b/src/interp/category.lisp.pamphlet index 983ab45..fde6d0d 100644 --- a/src/interp/category.lisp.pamphlet +++ b/src/interp/category.lisp.pamphlet @@ -48,34 +48,32 @@ Sorry to say, this hack is needed by isCategoryType (PROG (|u|) (RETURN (SEQ (PROGN - (SAY (MAKESTRING "--------------------------------------")) - (SAY (MAKESTRING "Name (and arguments) of category:")) + (SAY "--------------------------------------") + (SAY "Name (and arguments) of category:") (PRETTYPRINT (ELT D 0)) - (SAY (MAKESTRING "operations:")) + (SAY "operations:") (PRETTYPRINT (ELT D 1)) - (SAY (MAKESTRING "attributes:")) + (SAY "attributes:") (PRETTYPRINT (ELT D 2)) - (SAY (MAKESTRING "This is a sub-category of")) + (SAY "This is a sub-category of") (PRETTYPRINT (CAR (ELT D 4))) (DO ((G166065 (CADR (ELT D 4)) (CDR G166065)) (|u| NIL)) ((OR (ATOM G166065) (PROGN (SETQ |u| (CAR G166065)) NIL)) NIL) - (SEQ (EXIT (SAY (MAKESTRING - "This has an alternate view: slot ") + (SEQ (EXIT (SAY "This has an alternate view: slot " (CDR |u|) - (MAKESTRING " corresponds to ") + " corresponds to " (CAR |u|))))) (DO ((G166074 (CADDR (ELT D 4)) (CDR G166074)) (|u| NIL)) ((OR (ATOM G166074) (PROGN (SETQ |u| (CAR G166074)) NIL)) NIL) - (SEQ (EXIT (SAY (MAKESTRING - "This has a local domain: slot ") + (SEQ (EXIT (SAY "This has a local domain: slot " (CDR |u|) - (MAKESTRING " corresponds to ") + " corresponds to " (CAR |u|))))) (DO ((G166085 (MAXINDEX D)) (|j| 6 (+ |j| 1))) ((> |j| G166085) NIL) @@ -83,10 +81,9 @@ Sorry to say, this hack is needed by isCategoryType (SPADLET |u| (ELT D |j|)) (COND ((NULL |u|) - (SAY (MAKESTRING "another domain"))) + (SAY "another domain")) ((ATOM (CAR |u|)) - (SAY (MAKESTRING - "Alternate View corresponding to: ") + (SAY "Alternate View corresponding to: " |u|)) ('T (PRETTYPRINT |u|)))))))))))) @@ -580,8 +577,7 @@ Subsumption code (for operators) ((NULL (|MachineLevelSubsume| (QCAR |o|) (QCAR |x|))) - (MAKESTRING - "Source level subsumption not implemented")) + "Source level subsumption not implemented") ('T (SPADLET |extra| (|delete| |x| |extra|))))))))))) diff --git a/src/interp/cattable.lisp.pamphlet b/src/interp/cattable.lisp.pamphlet index b42bdec..4e98dea 100644 --- a/src/interp/cattable.lisp.pamphlet +++ b/src/interp/cattable.lisp.pamphlet @@ -90,7 +90,7 @@ (PROGN (|sayMSG| (APPEND (|bright| |id|) - (CONS (MAKESTRING "extends:") NIL))) + (CONS "extends:" NIL))) (PRINT (HGET |$ct| |id|))))))))))))) ;genCategoryTable() == @@ -959,7 +959,7 @@ (RPLACD |u| |p|)) ('T (|sayMSG| - (MAKESTRING "Duplicate entries:")) + "Duplicate entries:") (PRINT (CONS |newEntry| (CONS (CDR |u|) NIL)))))) @@ -1828,7 +1828,7 @@ (SEQ (EXIT (|categoryParts,build| |x| |pred|)))))) (IF (|member| |item| '(|noBranch|)) (EXIT '|ok|)) (IF (NULL |item|) (EXIT '|ok|)) - (EXIT (|systemError| (MAKESTRING "build error"))))))) + (EXIT (|systemError| "build error")))))) (DEFUN |categoryParts| (&REST G167466 &AUX |options| |category| |conform|) @@ -1886,14 +1886,14 @@ (DECLARE (SPECIAL |$found|)) (RETURN (SEQ (PROGN - (|sayBrightlyNT| (MAKESTRING "compressing hash table...")) + (|sayBrightlyNT| "compressing hash table...") (SPADLET |$found| (MAKE-HASHTABLE 'UEQUAL)) (DO ((G167471 (HKEYS |ht|) (CDR G167471)) (|x| NIL)) ((OR (ATOM G167471) (PROGN (SETQ |x| (CAR G167471)) NIL)) NIL) (SEQ (EXIT (|compressSexpr| (HGET |ht| |x|) NIL NIL)))) - (|sayBrightly| (MAKESTRING "done")) + (|sayBrightly| "done") |ht|))))) ;compressSexpr(x,left,right) == diff --git a/src/interp/clam.lisp.pamphlet b/src/interp/clam.lisp.pamphlet index 56a6993..f71c9cb 100644 --- a/src/interp/clam.lisp.pamphlet +++ b/src/interp/clam.lisp.pamphlet @@ -208,15 +208,15 @@ (SPADLET |phrase| (COND ((EQL |cacheCount| 1) - (CONS (MAKESTRING "computed value only") NIL)) + (CONS "computed value only" NIL)) ('T (APPEND (|bright| |cacheCount|) - (CONS (MAKESTRING "computed values") + (CONS "computed values" NIL))))) (|sayBrightly| (APPEND (|bright| |op|) - (CONS (MAKESTRING "will save last") |phrase|))) - (SPADLET |auxfn| (INTERNL |op| (MAKESTRING ";"))) + (CONS "will save last" |phrase|))) + (SPADLET |auxfn| (INTERNL |op| ";")) (SPADLET |g1| (GENSYM)) (SPADLET |LETTMP#1| (COND @@ -233,12 +233,12 @@ NIL))))) (SPADLET |arg| (CAR |LETTMP#1|)) (SPADLET |computeValue| (CADR |LETTMP#1|)) - (SPADLET |cacheName| (INTERNL |op| (MAKESTRING ";AL"))) + (SPADLET |cacheName| (INTERNL |op| ";AL")) (COND ((BOOT-EQUAL |$reportCounts| 'T) - (SPADLET |hitCounter| (INTERNL |op| (MAKESTRING ";hit"))) + (SPADLET |hitCounter| (INTERNL |op| ";hit")) (SPADLET |callCounter| - (INTERNL |op| (MAKESTRING ";calls"))) + (INTERNL |op| ";calls")) (SET |hitCounter| 0) (SET |callCounter| 0) (SPADLET |callCountCode| (CONS (CONS 'SETQ @@ -330,9 +330,7 @@ (COND (|$reportCompilation| (|sayBrightlyI| - (|bright| - (MAKESTRING - "Generated LISP code for function:"))) + (|bright| "Generated LISP code for function:")) (|pp| |computeFunction|))) (|compileQuietly| (CONS |computeFunction| NIL)) (SPADLET |cacheType| '|function|) @@ -498,7 +496,7 @@ ((AND (NULL |cacheNameOrNil|) (NULL (MEMQ |eqEtc| '(EQ CVEC UEQUAL)))) (|keyedSystemError| 'S2GE0012 (CONS |op| NIL))) - ('T (SPADLET |auxfn| (INTERNL |op| (MAKESTRING ";"))) + ('T (SPADLET |auxfn| (INTERNL |op| ";")) (SPADLET |g1| (GENSYM)) (SPADLET |LETTMP#1| (COND @@ -537,12 +535,12 @@ (SPADLET |computeValue| (CADDR |LETTMP#1|)) (SPADLET |cacheName| (OR |cacheNameOrNil| - (INTERNL |op| (MAKESTRING ";AL")))) + (INTERNL |op| ";AL"))) (COND ((BOOT-EQUAL |$reportCounts| 'T) - (SPADLET |hitCounter| (INTERNL |op| (MAKESTRING ";hit"))) + (SPADLET |hitCounter| (INTERNL |op| ";hit")) (SPADLET |callCounter| - (INTERNL |op| (MAKESTRING ";calls"))) + (INTERNL |op| ";calls")) (SET |hitCounter| 0) (SET |callCounter| 0) (SPADLET |callCountCode| (CONS (CONS 'SETQ @@ -640,7 +638,7 @@ (CONS |computeValue| NIL))) NIL)) NIL))))))) - ('T (|systemError| (MAKESTRING "unexpected"))))) + ('T (|systemError| "unexpected")))) (|cacheNameOrNil| |computeValue|) (|countFl| (CONS 'CDR @@ -704,9 +702,7 @@ (COND (|$reportCompilation| (|sayBrightlyI| - (|bright| - (MAKESTRING - "Generated LISP code for function:"))) + (|bright| "Generated LISP code for function:")) (|pp| |computeFunction|))) (|compileQuietly| (CONS |computeFunction| NIL)) (COND @@ -785,9 +781,8 @@ (COND ((NULL (MEMQ |eqEtc| '(UEQUAL))) (|sayBrightly| - (MAKESTRING - "for hash option, only EQ, CVEC, and UEQUAL are allowed")))) - (SPADLET |auxfn| (INTERNL |op| (MAKESTRING ";"))) + "for hash option, only EQ, CVEC, and UEQUAL are allowed"))) + (SPADLET |auxfn| (INTERNL |op| ";")) (SPADLET |g1| (GENSYM)) (SPADLET |LETTMP#1| (PROGN @@ -1011,14 +1006,14 @@ ((BOUNDP (SPADLET |cacheName| (INTERNL (STRCONC (PNAME |name|) - (MAKESTRING ";AL"))))) + ";AL")))) (SET |cacheName| NIL)) ('T NIL)))) (COND ((BOUNDP (SPADLET |cacheName| (INTERNL (STRCONC (PNAME |name|) - (MAKESTRING ";CAT"))))) + ";CAT")))) (SET |cacheName| NIL)) ('T NIL)))))))))) @@ -1034,7 +1029,7 @@ (PROGN (SPADLET |cacheName| (INTERNL (STRCONC (PNAME |catName|) - (MAKESTRING ";AL")))) + ";AL"))) (SET |cacheName| NIL))))) ;displayHashtable x == @@ -1116,12 +1111,10 @@ (SEQ (EXIT (COND ((NULL (MEMQ '|count| |u|)) (|sayBrightly| - (CONS (MAKESTRING "%b") + (CONS "%b" (CONS |fn| - (CONS (MAKESTRING "%d") - (CONS - (MAKESTRING - "does not keep reference counts") + (CONS "%d" + (CONS "does not keep reference counts" NIL)))))) ((INTEGERP |kind|) (|reportCircularCacheStats| |fn| |kind|)) @@ -1129,11 +1122,10 @@ (|reportHashCacheStats| |fn|)) ('T (|sayBrightly| - (CONS (MAKESTRING - "Unknown cache type for") - (CONS (MAKESTRING "%b") + (CONS "Unknown cache type for" + (CONS "%b" (CONS |fn| - (CONS (MAKESTRING "%d") NIL)))))))))))))) + (CONS "%d" NIL)))))))))))))) ;reportCircularCacheStats(fn,n) == ; infovec:= GET(fn,'cacheInfo) @@ -1171,17 +1163,17 @@ G2595) (SEQ (EXIT (SETQ G2595 (PLUS G2595 1)))))))) (|sayBrightly| - (CONS (MAKESTRING "%b") + (CONS "%b" (CONS |fn| - (CONS (MAKESTRING "%d") - (CONS (MAKESTRING "has") - (CONS (MAKESTRING "%b") + (CONS "%d" + (CONS "has" + (CONS "%b" (CONS |numberUsed| - (CONS (MAKESTRING "%d") - (CONS (MAKESTRING "/ ") + (CONS "%d" + (CONS "/ " (CONS |n| (CONS - (MAKESTRING " values cached") + " values cached" NIL))))))))))) (|displayCacheFrequency| (|mkCircularCountAlist| |circList| |n|)) @@ -1296,10 +1288,10 @@ G2673)))))))) (|sayBrightly| (APPEND (|bright| |fn|) - (CONS (MAKESTRING "has") + (CONS "has" (APPEND (|bright| (|#| |hashValues|)) (CONS - (MAKESTRING "values cached.") + "values cached." NIL))))) (|displayCacheFrequency| (|mkHashCountAlist| |hashValues|)) @@ -1588,10 +1580,10 @@ ('T (SPADLET |hitCounter| (INTERNL |op| - (MAKESTRING ";hit"))) + ";hit")) (SPADLET |callCounter| (INTERNL |op| - (MAKESTRING ";calls"))) + ";calls")) (SPADLET |res| (CONS '|%b| (CONS (|eval| |hitCounter|) @@ -1815,8 +1807,8 @@ ((BOOT-EQUAL |$reportEachInstantiation| 'T) (SPADLET |trailer| (COND - (|dropIfTrue| (MAKESTRING " dropped")) - ('T (MAKESTRING " instantiated")))) + (|dropIfTrue| " dropped") + ('T " instantiated"))) (COND ((BOOT-EQUAL |$insideCoerceInteractive| 'T) (SPADLET |$instantCoerceCount| @@ -1832,9 +1824,9 @@ (SPADLET |$instantCanCoerceCount| (PLUS 1 |$instantCanCoerceCount|)) (SPADLET |xtra| - (CONS (MAKESTRING " for ") + (CONS " for " (CONS (|outputDomainConstructor| |m1|) - (CONS (MAKESTRING "-->") + (CONS "-->" (CONS (|outputDomainConstructor| |m2|) NIL))))))) @@ -1948,11 +1940,9 @@ NIL))) G2984))))))))))))))) (|sayBrightly| - (CONS (MAKESTRING - "# instantiated/# dropped/domain name") - (CONS (MAKESTRING "%l") - (CONS (MAKESTRING - "------------------------------------") + (CONS "# instantiated/# dropped/domain name" + (CONS "%l" + (CONS "------------------------------------" NIL)))) (SPADLET |nTotal| (SPADLET |mTotal| @@ -1988,62 +1978,36 @@ |form|) NIL))))))))) (|sayBrightly| - (CONS (MAKESTRING "%b") - (CONS (MAKESTRING "Totals:") - (CONS (MAKESTRING "%d") + (CONS "%b" + (CONS "Totals:" + (CONS "%d" (CONS |nTotal| - (CONS (MAKESTRING " instantiated") - (CONS (MAKESTRING "%l") - (CONS (MAKESTRING " ") + (CONS " instantiated" + (CONS "%l" + (CONS " " (CONS |$instantCoerceCount| - (CONS - (MAKESTRING - " inside coerceInteractive") - (CONS (MAKESTRING "%l") - (CONS - (MAKESTRING " ") - (CONS - |$instantCanCoerceCount| - (CONS - (MAKESTRING - " inside canCoerceFrom") - (CONS (MAKESTRING "%l") - (CONS - (MAKESTRING " ") - (CONS - |$instantMmCondCount| - (CONS - (MAKESTRING - " inside evalMmCond") - (CONS - (MAKESTRING "%l") - (CONS - (MAKESTRING - " ") + (CONS " inside coerceInteractive" + (CONS "%l" + (CONS " " + (CONS |$instantCanCoerceCount| + (CONS " inside canCoerceFrom" + (CONS "%l" + (CONS " " + (CONS |$instantMmCondCount| + (CONS " inside evalMmCond" + (CONS "%l" + (CONS " " (CONS |rTotal| - (CONS - (MAKESTRING - " reinstantiated") - (CONS - (MAKESTRING "%l") - (CONS - (MAKESTRING - " ") + (CONS " reinstantiated" + (CONS "%l" + (CONS " " (CONS |mTotal| - (CONS - (MAKESTRING - " dropped") - (CONS - (MAKESTRING - "%l") - (CONS - (MAKESTRING - " ") + (CONS " dropped" + (CONS "%l" + (CONS " " (CONS |nForms| - (CONS - (MAKESTRING - " distinct domains instantiated/dropped") + (CONS " distinct domains instantiated/dropped" NIL))))))))))))))))))))))))))))))))))) ;hputNewProp(ht,op,argList,val) == @@ -2298,9 +2262,9 @@ (CONS |argList1| NIL))) |reportList|))))))))))) (|sayBrightly| - (CONS (MAKESTRING "%b") - (CONS (MAKESTRING " USE NAME ARGS") - (CONS (MAKESTRING "%d") NIL)))) + (CONS "%b" + (CONS " USE NAME ARGS" + (CONS "%d" NIL)))) (DO ((G3179 (NREVERSE (SORTBY |sortFn| |reportList|)) (CDR G3179)) (G3127 NIL)) @@ -2404,13 +2368,13 @@ NIL) (SEQ (EXIT (PROGN (|sayBrightly| - (CONS (MAKESTRING "Un-clamming function") + (CONS "Un-clamming function" (CONS '|%b| (CONS |fun| (CONS '|%d| NIL))))) (SET |fun| (|eval| (INTERN (STRCONC (STRINGIMAGE |fun|) - (MAKESTRING ";"))))))))))))) + ";")))))))))))) @ diff --git a/src/interp/compiler.lisp.pamphlet b/src/interp/compiler.lisp.pamphlet index 8d3cb4c..a939292 100644 --- a/src/interp/compiler.lisp.pamphlet +++ b/src/interp/compiler.lisp.pamphlet @@ -265,8 +265,8 @@ from the compiler stack {\tt \$compStack} and (EXIT (CONS '|failedCompilation| (CONS |m| (CONS |e| NIL))))))) (|displaySemanticErrors|) - (SAY (MAKESTRING "****** comp fails at level ") |$level| - (MAKESTRING " with expression: ******")) + (SAY "****** comp fails at level " |$level| + " with expression: ******") (|displayComp| |$level|) (EXIT (|userError| |errorMessage|)))))) @@ -475,7 +475,7 @@ from the compiler stack {\tt \$compStack} and ((BOOT-EQUAL |op| '|:|) (|compColon| |x| |m| |e|)) ((BOOT-EQUAL |op| '|::|) (|compCoerce| |x| |m| |e|)) ((AND (NULL (BOOT-EQUAL |$insideCompTypeOf| 'T)) - (|stringPrefix?| (MAKESTRING "TypeOf") (PNAME |op|))) + (|stringPrefix?| "TypeOf" (PNAME |op|))) (|compTypeOf| |x| |m| |e|)) ('T (SPADLET |t| (|compExpression| |x| |m| |e|)) (COND @@ -2659,8 +2659,8 @@ from the compiler stack {\tt \$compStack} and (COND ((NEQUAL (|#| |dc|) (|#| |sig|)) (|keyedSystemError| 'S2GE0016 - (CONS (MAKESTRING "substituteIntoFunctorModemap") - (CONS (MAKESTRING "Incompatible maps") NIL)))) + (CONS "substituteIntoFunctorModemap" + (CONS "Incompatible maps" NIL)))) ((BOOT-EQUAL (|#| |argl|) (|#| (CDR |sig|))) (SPADLET |sig| (EQSUBSTLIST |argl| (CDR |dc|) |sig|)) (SPADLET |Tl| @@ -3890,23 +3890,23 @@ the left hand side of the macro. (SPADLET |prhs| (COND ((AND (PAIRP |rhs|) (EQ (QCAR |rhs|) 'CATEGORY)) - (CONS (MAKESTRING "-- the constructor category") + (CONS "-- the constructor category" NIL)) ((AND (PAIRP |rhs|) (EQ (QCAR |rhs|) '|Join|)) - (CONS (MAKESTRING "-- the constructor category") + (CONS "-- the constructor category" NIL)) ((AND (PAIRP |rhs|) (EQ (QCAR |rhs|) 'CAPSULE)) - (CONS (MAKESTRING "-- the constructor capsule") + (CONS "-- the constructor capsule" NIL)) ((AND (PAIRP |rhs|) (EQ (QCAR |rhs|) '|add|)) - (CONS (MAKESTRING "-- the constructor capsule") + (CONS "-- the constructor capsule" NIL)) ('T (|formatUnabbreviated| |rhs|)))) (|sayBrightly| - (CONS (MAKESTRING " processing macro definition") + (CONS " processing macro definition" (CONS '|%b| (APPEND (|formatUnabbreviated| |lhs|) - (CONS (MAKESTRING " ==> ") + (CONS " ==> " (APPEND |prhs| (CONS '|%d| NIL))))))) (COND ((OR (BOOT-EQUAL |m| |$EmptyMode|) @@ -4172,8 +4172,8 @@ Compile exit (declare (special |$exitModeStack| |$reportExitModeStack|)) (COND (|$reportExitModeStack| - (SAY (MAKESTRING "exitModeStack: ") (COPY |$exitModeStack|) - (MAKESTRING " ====> ") + (SAY "exitModeStack: " (COPY |$exitModeStack|) + " ====> " (PROGN (SETELT |$exitModeStack| |index| (|resolve| |m| (ELT |$exitModeStack| |index|))) @@ -4252,7 +4252,7 @@ Compile return NIL) ((NEQUAL |level| 1) (|userError| - (MAKESTRING "multi-level returns not supported"))) + "multi-level returns not supported")) ('T (SPADLET |index| (MAX 0 (SPADDIFFERENCE (|#| |$exitModeStack|) 1))) @@ -4338,22 +4338,20 @@ Compile Elt ((EQL 0 |n|) (RETURN (|stackMessage| - (CONS (MAKESTRING "Operation ") + (CONS "Operation " (CONS '|%b| (CONS |anOp| (CONS '|%d| (CONS - (MAKESTRING - "missing from domain: ") + "missing from domain: " (CONS |aDomain| NIL))))))))) ('T (|stackWarning| - (CONS (MAKESTRING - "more than 1 modemap for: ") + (CONS "more than 1 modemap for: " (CONS |anOp| - (CONS (MAKESTRING " with dc=") + (CONS " with dc=" (CONS |aDomain| - (CONS (MAKESTRING " ===>") + (CONS " ===>" (CONS |mmList| NIL))))))) (ELT |mmList| 0))))) (SPADLET |sig| (CAR |modemap|)) @@ -4764,8 +4762,7 @@ Compile if 'T)))))))) (COND ((NULL (|canReturn| |a| 0 0 'T)) - (SAY (MAKESTRING - "IF statement can not cause consequents to be executed")) + (SAY "IF statement can not cause consequents to be executed") (|pp| |expr|))) (OR (|canReturn| |a| |level| |exitCount| NIL) (|canReturn| |b| |level| |exitCount| |ValueFlag|) @@ -4807,7 +4804,7 @@ Compile if (AND G169533 (|canReturn| |u| |level| |exitCount| |ValueFlag|))))))))) - ('T (|systemErrorHere| (MAKESTRING "canReturn")))))))) + ('T (|systemErrorHere| "canReturn"))))))) @ \subsection{compBoolean} @@ -5469,8 +5466,7 @@ An angry JHD - August 15th., 1984 (|getmode| |x| |e|) (|systemErrorHere| - (MAKESTRING - "compColonOld"))))) + "compColonOld")))) G170104)))))))))) (|put| |op| '|mode| |signature| |e|)) ('T (|put| |f| '|mode| |t| |e|)))) @@ -5713,9 +5709,8 @@ of basic objects may not be the same. (COND (|$InteractiveMode| (|keyedSystemError| 'S2GE0016 - (CONS (MAKESTRING "coerce") - (CONS (MAKESTRING - "function coerce called from the interpreter.") + (CONS "coerce" + (CONS "function coerce called from the interpreter." NIL)))) ('T (|rplac| (CADR T$) (MSUBST '$ |$Rep| (CADR T$))) (COND @@ -5754,7 +5749,7 @@ of basic objects may not be the same. (CONS (CAR T$) (CONS (CONS '|userError| (CONS - (MAKESTRING "Did not really exit.") + "Did not really exit." NIL)) NIL))) (CONS |m| (CONS (CADDR T$) NIL)))) @@ -6520,14 +6515,14 @@ should only be used in the old (preWATT) compiler (SETQ HT (MAKE-HASHTABLE 'UEQUAL)) (SPADLET |newName| (|fnameMake| (|pathnameDirectory| |path|) - (|pathnameName| |path|) (MAKESTRING "as"))) + (|pathnameName| |path|) "as")) (SPADLET |canDoIt| 'T) (COND ((NULL (|fnameWritable?| |newName|)) (|sayKeyedMsg| 'S2IZ0086 (CONS (NAMESTRING |newName|) NIL)) (SPADLET |newName| - (|fnameMake| (MAKESTRING ".") - (|pathnameName| |path|) (MAKESTRING "as"))) + (|fnameMake| "." + (|pathnameName| |path|) "as")) (COND ((NULL (|fnameWritable?| |newName|)) (|sayKeyedMsg| 'S2IZ0087 @@ -6539,7 +6534,7 @@ should only be used in the old (preWATT) compiler ('T (|sayKeyedMsg| 'S2IZ0088 (CONS (NAMESTRING |newName|) NIL)) (SPADLET |$outStream| (MAKE-OUTSTREAM |newName|)) - (|markSay| (MAKESTRING "#include \"axiom.as\"")) + (|markSay| "#include \"axiom.as\"") (|markTerpri|) (CATCH 'SPAD_READER (|compiler| (CONS |path| NIL))) (SHUT |$outStream|) (|mkCheck|) '|done|)))))) @@ -6610,13 +6605,11 @@ should only be used in the old (preWATT) compiler (EXIT (|sayBrightly| (CONS - (MAKESTRING ">>> Warning ") + ">>> Warning " (CONS '|%b| (CONS |ii| (CONS '|%d| - (CONS - (MAKESTRING - " was not found") + (CONS " was not found" NIL))))))))))))))))))))) @ diff --git a/src/interp/database.lisp.pamphlet b/src/interp/database.lisp.pamphlet index f9b9756..a2b37a5 100644 --- a/src/interp/database.lisp.pamphlet +++ b/src/interp/database.lisp.pamphlet @@ -397,27 +397,27 @@ (SPADLET |$InteractiveMode| 'T) (SPADLET |$constructorList| NIL) (SPADLET |$ConstructorCache| (MAKE-HASHTABLE 'ID)) - (SAY (MAKESTRING "Making constructor autoload")) + (SAY "Making constructor autoload") (|makeConstructorsAutoLoad|) - (SAY (MAKESTRING "Building category table")) + (SAY "Building category table") (|genCategoryTable|) - (SAY (MAKESTRING "Building libdb.text")) + (SAY "Building libdb.text") (|buildLibdb|) - (SAY (MAKESTRING "splitting libdb.text")) + (SAY "splitting libdb.text") (|dbSplitLibdb|) - (SAY (MAKESTRING "creating browse constructor index")) + (SAY "creating browse constructor index") (|dbAugmentConstructorDataTable|) - (SAY (MAKESTRING "Building browse.lisp")) + (SAY "Building browse.lisp") (|buildBrowsedb|) - (SAY (MAKESTRING "Building constructor users database")) + (SAY "Building constructor users database") (|mkUsersHashTable|) - (SAY (MAKESTRING "Saving constructor users database")) + (SAY "Saving constructor users database") (|saveUsersHashTable|) - (SAY (MAKESTRING "Building constructor dependents database")) + (SAY "Building constructor dependents database") (|mkDependentsHashTable|) - (SAY (MAKESTRING "Saving constructor dependents database")) + (SAY "Saving constructor dependents database") (|saveDependentsHashTable|) - (SAY (MAKESTRING "Building glossary files")) + (SAY "Building glossary files") (|buildGloss|))))) ;saveUsersHashTable() == @@ -1212,7 +1212,7 @@ (QCAR |ISTMP#2|)) 'T))))) (BOOT-EQUAL |tag| - (MAKESTRING "failed")) + "failed") (BOOT-EQUAL |xTails| |sig|)) (SPADLET |x| |dom|) (SPADLET |partial| 'T))) diff --git a/src/interp/define.lisp.pamphlet b/src/interp/define.lisp.pamphlet index 1b5362a..44eb606 100644 --- a/src/interp/define.lisp.pamphlet +++ b/src/interp/define.lisp.pamphlet @@ -165,7 +165,7 @@ |m| |e| NIL |$formalArgList|)) ((NULL |$form|) (|stackAndThrow| - (CONS (MAKESTRING "bad == form ") + (CONS "bad == form " (CONS |form| NIL)))) ('T (SPADLET |newPrefix| @@ -173,7 +173,7 @@ (|$prefix| (INTERN (STRCONC (|encodeItem| |$prefix|) - (MAKESTRING ",") + "," (|encodeItem| |$op|)))) ('T (|getAbbreviation| |$op| @@ -315,10 +315,9 @@ (COND ((AND (PAIRP |rhs|) (EQ (QCAR |rhs|) 'CAPSULE)) (|stackSemanticError| - (CONS (MAKESTRING "target category of ") + (CONS "target category of " (CONS |lhs| - (CONS (MAKESTRING - " cannot be determined from definition") + (CONS " cannot be determined from definition" NIL))) NIL)) ((AND (PAIRP |rhs|) (EQ (QCAR |rhs|) '|SubDomain|) @@ -661,10 +660,10 @@ (SPADLET |op| (CAR |form|)) (SPADLET |argl| (CDR |form|)) (SPADLET |packageName| - (INTERN (STRCONC (PNAME |op|) (MAKESTRING "&")))) + (INTERN (STRCONC (PNAME |op|) "&"))) (SPADLET |packageAbb| (INTERN (STRCONC (GETDATABASE |op| 'ABBREVIATION) - (MAKESTRING "-")))) + "-"))) (SPADLET |$options| NIL) (|abbreviationsSpad2Cmd| (CONS '|domain| @@ -1033,7 +1032,7 @@ (CONS (CONS |a| |v|) G166682)))))))) (SPADLET |parSignature| (SUBLIS |pairlis| |signature'|)) (SPADLET |parForm| (SUBLIS |pairlis| |form|)) - (|lisplibWrite| (MAKESTRING "compilerInfo") + (|lisplibWrite| "compilerInfo" (|removeZeroOne| (CONS 'SETQ (CONS '|$CategoryFrame| @@ -1522,8 +1521,7 @@ (OR (|compMakeCategoryObject| |target| |$e|) (PROGN (|sayBrightly| - (MAKESTRING - " cannot produce category object:")) + " cannot produce category object:") (|pp| |target|) (RETURN NIL)))) (SPADLET |ds| (CAR |LETTMP#1|)) @@ -1531,7 +1529,7 @@ (SPADLET |$domainShell| (COPY-SEQ |ds|)) (SPADLET |$attributesName| (INTERN (STRCONC (PNAME |$op|) - (MAKESTRING ";attributes")))) + ";attributes"))) (SPADLET |attributeList| (|disallowNilAttribute| (ELT |ds| 2))) (SPADLET |$goGetList| NIL) @@ -1766,7 +1764,7 @@ (COND (|$isOpPackageName| (|lisplibWrite| - (MAKESTRING "slot1DataBase") + "slot1DataBase" (CONS '|updateSlot1DataBase| (CONS (MKQ |$NRTslot1Info|) NIL)) |$libFile|))) @@ -1814,7 +1812,7 @@ |operationAlist|) (SPADLET |$lisplibMissingFunctions| |$CheckVectorList|))) - (|lisplibWrite| (MAKESTRING "compilerInfo") + (|lisplibWrite| "compilerInfo" (|removeZeroOne| (CONS 'SETQ (CONS '|$CategoryFrame| @@ -1966,9 +1964,9 @@ (PROGN (|displayMissingFunctions|) (COND - (|$semanticErrorStack| (|sayBrightly| (MAKESTRING " ")))) + (|$semanticErrorStack| (|sayBrightly| " "))) (|displaySemanticErrors|) - (COND (|$warningStack| (|sayBrightly| (MAKESTRING " ")))) + (COND (|$warningStack| (|sayBrightly| " "))) (|displayWarnings|) (SPADLET |$functorStats| (|addStats| |$functorStats| |$functionStats|)) @@ -1977,16 +1975,15 @@ (|sayBrightly| (CONS '|%l| (APPEND (|bright| - (MAKESTRING - " Cumulative Statistics for Constructor")) + " Cumulative Statistics for Constructor") (CONS |$op| NIL)))) (SPADLET |timeString| (|normalizeStatAndStringify| |elapsedSeconds|)) (|sayBrightly| - (CONS (MAKESTRING " Time:") + (CONS " Time:" (APPEND (|bright| |timeString|) - (CONS (MAKESTRING "seconds") NIL)))) - (|sayBrightly| (MAKESTRING " ")) + (CONS "seconds" NIL)))) + (|sayBrightly| " ") '|done|)))) ;displayMissingFunctions() == @@ -2052,8 +2049,7 @@ (|loc| (|sayBrightly| (CONS '|%l| (|bright| - (MAKESTRING - " Missing Local Functions:")))) + " Missing Local Functions:"))) (DO ((G167443 |loc| (CDR G167443)) (G167413 NIL) (|i| 1 (QSADD1 |i|))) ((OR (ATOM G167443) @@ -2068,9 +2064,9 @@ NIL)) NIL) (SEQ (EXIT (|sayBrightly| - (CONS (MAKESTRING " [") + (CONS " [" (CONS |i| - (CONS (MAKESTRING "]") + (CONS "]" (APPEND (|bright| |op|) (CONS '|: | (|formatUnabbreviatedSig| @@ -2079,8 +2075,7 @@ (|exp| (|sayBrightly| (CONS '|%l| (|bright| - (MAKESTRING - " Missing Exported Functions:")))) + " Missing Exported Functions:"))) (DO ((G167455 |exp| (CDR G167455)) (G167418 NIL) (|i| 1 (QSADD1 |i|))) ((OR (ATOM G167455) @@ -2095,9 +2090,9 @@ NIL)) NIL) (SEQ (EXIT (|sayBrightly| - (CONS (MAKESTRING " [") + (CONS " [" (CONS |i| - (CONS (MAKESTRING "]") + (CONS "]" (APPEND (|bright| |op|) (CONS '|: | (|formatUnabbreviatedSig| @@ -2845,8 +2840,8 @@ (EXIT (OR (|getmode| |a| |e|) (|userError| (|concat| - (MAKESTRING "There is no mode for argument") - |a| (MAKESTRING "of function") (CAR |form|))))))) + "There is no mode for argument" + |a| "of function" (CAR |form|))))))) (DEFUN |compDefWhereClause,removeSuchthat| (|x|) (PROG (|ISTMP#1| |y| |ISTMP#2| |p|) @@ -3065,12 +3060,12 @@ ((MEMQ |v| |d|) (PROGN (SAY |v| - (MAKESTRING " depends on itself")) + " depends on itself") (SPADLET |fatalError| 'T))))))) (COND (|fatalError| (|userError| - (MAKESTRING "Parameter specification error"))) + "Parameter specification error")) ('T (DO ((G168258 NIL (NULL |vl|))) (G168258 NIL) (SEQ (EXIT (PROGN @@ -3435,17 +3430,17 @@ ((AND |$compileOnlyCertainItems| (NULL (|member| |$op| |$compileOnlyCertainItems|))) (|sayBrightly| - (CONS (MAKESTRING " skipping ") + (CONS " skipping " (CONS |localOrExported| (|bright| |$op|)))) (CONS NIL (CONS (CONS '|Mapping| |signature'|) (CONS |oldE| NIL)))) ('T (|sayBrightly| - (CONS (MAKESTRING " compiling ") + (CONS " compiling " (CONS |localOrExported| (APPEND (|bright| |$op|) - (CONS (MAKESTRING ": ") + (CONS ": " |formattedSig|))))) (COND ((BOOT-EQUAL |$newComp| 'T) @@ -3473,9 +3468,9 @@ |e|)) (CONS (INTERN " " "BOOT") (CONS |rettype| (CONS |e| NIL))))) - (SAY (MAKESTRING "The old compiler generates:")) + (SAY "The old compiler generates:") (|prTriple| |oldT|) - (SAY (MAKESTRING "The new compiler generates:")) + (SAY "The new compiler generates:") (|prTriple| T$)) ('T NIL))) ('T @@ -3487,7 +3482,7 @@ (|NRTassignCapsuleFunctionSlot| |$op| |signature'|) (COND ((BOOT-EQUAL |$newCompCompare| 'T) - (SAY (MAKESTRING "The old compiler generates:")) + (SAY "The old compiler generates:") (|prTriple| T$)) ('T NIL)))) (SPADLET |catchTag| (MKQ (GENSYM))) @@ -3726,20 +3721,18 @@ (CONS '| | (APPEND (|bright| |a|) (CONS - (MAKESTRING - "must have type ") + "must have type " (CONS |m| - (CONS (MAKESTRING " not ") + (CONS " not " (CONS |m1| (CONS '|%l| |stack|)))))))))))) ('T (SPADLET |e| (|put| |a| '|mode| |m| |e|)))))) (COND (|stack| (|sayBrightly| - (CONS (MAKESTRING " Parameters of ") + (CONS " Parameters of " (APPEND (|bright| (CAR |form|)) (CONS - (MAKESTRING - " are of wrong type:") + " are of wrong type:" (CONS '|%l| |stack|))))))) |e|))))) @@ -3829,12 +3822,11 @@ (PROGN (SPADLET |sig| (QCDR |ISTMP#1|)) 'T))) |sig|) ('T - (SAY (MAKESTRING - "************* USER ERROR **********")) - (SAY (MAKESTRING "available signatures for ") |op| - (MAKESTRING ": ")) + (SAY "************* USER ERROR **********") + (SAY "available signatures for " |op| + ": ") (COND - ((NULL |mmList|) (SAY (MAKESTRING " NONE"))) + ((NULL |mmList|) (SAY " NONE")) ('T (DO ((G168676 |mmList| (CDR G168676)) (G168646 NIL)) @@ -4118,7 +4110,7 @@ NIL))))) (IF (NULL |clist|) (EXIT |$body|)) (EXIT (|systemErrorHere| - (MAKESTRING "addArgumentConditions"))))))) + "addArgumentConditions")))))) (DEFUN |addArgumentConditions| (|$body| |$functionName|) (DECLARE (SPECIAL |$body| |$functionName| |$argumentConditionList|)) @@ -4634,12 +4626,11 @@ (CONS |op| (CONS '|%d| (CONS - (MAKESTRING - " is local and exported") + " is local and exported" NIL))))))) (INTERN (STRCONC (|encodeItem| |$prefix|) - (MAKESTRING ";") + ";" (|encodeItem| |op|)))) ((AND (|isPackageFunction|) (NEQUAL (KAR |$functorForm|) @@ -4648,7 +4639,7 @@ ((NULL |opmodes|) (|userError| (CONS - (MAKESTRING "no modemap for ") + "no modemap for " (CONS |op| NIL))))) (COND ((AND (PAIRP |opmodes|) @@ -4717,21 +4708,20 @@ (COND ((NULL |unew|) (|sayBrightly| - (CONS (MAKESTRING - " Error: Item did not previously exist") + (CONS " Error: Item did not previously exist" NIL)) (|sayBrightly| - (CONS (MAKESTRING " Item not saved: ") + (CONS " Item not saved: " (|bright| (ELT |u| 0)))) (|sayBrightly| - (CONS (MAKESTRING " What's there is: ") + (CONS " What's there is: " (CONS |$lisplibItemsAlreadyThere| NIL))) NIL) ('T (|sayBrightly| - (CONS (MAKESTRING " Renaming ") + (CONS " Renaming " (CONS (ELT |u| 0) - (CONS (MAKESTRING " as ") + (CONS " as " (CONS |unew| NIL))))) (SPADLET |u| (CONS |unew| (CDR |u|))) (SPADLET |$savableItems| @@ -4783,9 +4773,9 @@ (COND ((CONTAINED (INTERN " " "BOOT") |body|) (|sayBrightly| - (CONS (MAKESTRING " ") + (CONS " " (APPEND (|bright| |nam|) - (CONS (MAKESTRING " not compiled") + (CONS " not compiled" NIL))))) ('T (COND @@ -4806,10 +4796,10 @@ (CONS (MKQ '|SPADreplace|) (CONS (MKQ |nam'|) NIL))))) (|sayBrightly| - (CONS (MAKESTRING " ") + (CONS " " (APPEND (|bright| |nam|) (CONS - (MAKESTRING "is replaced by") + "is replaced by" (|bright| |nam'|)))))) ((AND (OR (ATOM |body|) (PROG (G169410) @@ -4843,10 +4833,10 @@ (CONS (MKQ '|SPADreplace|) (CONS (MKQ |macform|) NIL))))) (|sayBrightly| - (CONS (MAKESTRING " ") + (CONS " " (APPEND (|bright| |nam|) (CONS - (MAKESTRING "is replaced by") + "is replaced by" (|bright| |body|)))))) ('T NIL)) (COND @@ -5047,7 +5037,7 @@ (CONS (MKQ (CAR |functorForm|)) (CONS ''|%d| - (CONS (MAKESTRING "from") + (CONS "from" (CONS ''|%b| (CONS (MKQ @@ -5055,8 +5045,7 @@ |sourceFile|)) (CONS ''|%d| (CONS - (MAKESTRING - "needs to be compiled") + "needs to be compiled" NIL))))))))) NIL)) NIL)) @@ -5127,7 +5116,7 @@ (CAR |$functorForm|)) (CONS ''|%d| (CONS - (MAKESTRING "from") + "from" (CONS ''|%b| (CONS (MKQ @@ -5135,8 +5124,7 @@ /EDITFILE)) (CONS ''|%d| (CONS - (MAKESTRING - "needs to be compiled") + "needs to be compiled" NIL))))))))) NIL)) NIL)) @@ -5742,7 +5730,7 @@ Since we can't be sure we take the least disruptive course of action. (PROGN (SETQ |dom| (CAR G170018)) NIL)) NIL) (SEQ (EXIT (|sayBrightly| - (CONS (MAKESTRING " importing ") + (CONS " importing " (|formatUnabbreviated| |dom|)))))) (SPADLET |LETTMP#1| (|compOrCroak| |item| |$EmptyMode| |$e|)) @@ -5942,7 +5930,7 @@ Since we can't be sure we take the least disruptive course of action. (SPADLET |LETTMP#1| (OR (|comp| |p| |$Boolean| |$e|) (|userError| - (CONS (MAKESTRING "not a Boolean:") + (CONS "not a Boolean:" (CONS |p| NIL))))) (SPADLET |p'| (CAR |LETTMP#1|)) (SPADLET |$e| (CADDR |LETTMP#1|)) @@ -6249,7 +6237,7 @@ Since we can't be sure we take the least disruptive course of action. (|mkExplicitCategoryFunction| |domainOrPackage| |$sigList| |$atList|)) (CONS |rep| (CONS |m| (CONS |e| NIL)))) - ('T (|systemErrorHere| (MAKESTRING "compCategory"))))))))) + ('T (|systemErrorHere| "compCategory")))))))) ;mkExplicitCategoryFunction(domainOrPackage,sigList,atList) == ; body:= diff --git a/src/interp/format.lisp.pamphlet b/src/interp/format.lisp.pamphlet index 5786184..ad17955 100644 --- a/src/interp/format.lisp.pamphlet +++ b/src/interp/format.lisp.pamphlet @@ -80,7 +80,7 @@ (CONS '|%b| (CONS |op| (CONS '|%d| - (CONS (MAKESTRING ":") NIL)))))))))) + (CONS ":" NIL)))))))))) (DO ((G166070 |modemaps| (CDR G166070)) (|modemap| NIL)) ((OR (ATOM G166070) @@ -120,7 +120,7 @@ (SPADLET |sig| (CONS (CONS '|Union| (CONS |b| - (CONS (MAKESTRING "failed") NIL))) + (CONS "failed" NIL))) |c|)) (SPADLET |mm| (CONS (CONS |x| |sig|) @@ -130,7 +130,7 @@ (SPADLET |sig| (CONS (CONS '|Union| (CONS |b| - (CONS (MAKESTRING "failed") NIL))) + (CONS "failed" NIL))) |c|)) (SPADLET |mm| (CONS (CONS |x| |sig|) (CONS |y| |z|)))) ('T NIL)) @@ -532,7 +532,7 @@ (SPADLET |fromPart| (COND ((AND (BOOT-EQUAL |dc| 'D) D) - (|concat| '|%b| (MAKESTRING "from") '|%d| + (|concat| '|%b| "from" '|%d| (|prefix2String| D))) ('T (|concat| '|%b| "from" '|%d| @@ -542,7 +542,7 @@ (COND ((> (PLUS (|sayWidth| |firstPart|) (|sayWidth| |fromPart|)) 74) - (SPADLET |fromPart| (|concat| (MAKESTRING " ") |fromPart|)) + (SPADLET |fromPart| (|concat| " " |fromPart|)) (SPADLET |secondPart| (COND ((> 75 @@ -692,11 +692,11 @@ (SPADLET |mmsU| (CONS |mm| |mmsU|)))))))) (COND (|mmsE| (|reportOpSymbol,sayMms| |op| |mmsE| - (MAKESTRING "exposed")))) + "exposed"))) (COND (|mmsU| (COND (|mmsE| (|sayNewLine|))) (|reportOpSymbol,sayMms| |op| |mmsU| - (MAKESTRING "unexposed")))) + "unexposed"))) (DO ((G166512 |domlist| (CDR G166512)) (|adom| NIL)) ((OR (ATOM G166512) @@ -825,7 +825,7 @@ (DEFUN |formatOpConstant| (|op|) (|concat| '|%b| (|formatOpSymbol| |op| '($)) '|%d| - (MAKESTRING ": constant"))) + ": constant")) ;formatOpSymbol(op,sig) == ; if op = 'Zero then op := "0" @@ -882,7 +882,7 @@ ((EQL |n| 3) (COND ((BOOT-EQUAL |op| 'SEGMENT) - (SPADLET |op| (MAKESTRING "..")))) + (SPADLET |op| ".."))) (COND ((BOOT-EQUAL |op| '|in|) (CONS |quad| @@ -941,7 +941,7 @@ (PROG (|ISTMP#1| |op| |ISTMP#2| |ISTMP#3| |sig|) (RETURN (COND - ((AND (STRINGP |x|) (BOOT-EQUAL |x| (MAKESTRING "*"))) '|"*"|) + ((AND (STRINGP |x|) (BOOT-EQUAL |x| "*")) '|"*"|) ((ATOM |x|) (|formatOpSymbol| |x| NIL)) ((AND (PAIRP |x|) (EQ (QCAR |x|) '|:|) (PROGN @@ -1007,7 +1007,7 @@ (COND ((AND (EQ |y| |y1|) (EQ |z| |z1|)) |x|) ('T (CONS |y1| |z1|)))) - ((OR (BOOT-EQUAL |x| '$) (BOOT-EQUAL |x| (MAKESTRING "$"))) + ((OR (BOOT-EQUAL |x| '$) (BOOT-EQUAL |x| "$")) '%%) ('T |x|))))) @@ -1056,7 +1056,7 @@ (RETURN (COND ((NULL |sig|) '|() -> ()|) - ((INTEGERP |sig|) (MAKESTRING "hashcode")) + ((INTEGERP |sig|) "hashcode") ('T (SPADLET |tm| (CAR |sig|)) (SPADLET |sml| (CDR |sig|)) (SPADLET |sourcePart| (|formatSignatureArgs0| |sml|)) (SPADLET |targetPart| (|prefix2String0| |tm|)) @@ -1425,9 +1425,9 @@ |u1|)) ((BOOT-EQUAL |op| '|:|) (COND - ((NULL |argl|) (CONS (MAKESTRING ":") NIL)) + ((NULL |argl|) (CONS ":" NIL)) ((NULL (CDR |argl|)) - (CONS (MAKESTRING ":") + (CONS ":" (CONS (|form2String1| (CAR |argl|)) NIL))) ('T (|formDecl2String| (ELT |argl| 0) (ELT |argl| 1))))) @@ -1473,12 +1473,12 @@ (|rbrkSch|))) ((BOOT-EQUAL |op| 'SEGMENT) (COND - ((NULL |argl|) (MAKESTRING "..")) + ((NULL |argl|) "..") ('T (SPADLET |lo| (|form2String1| (CAR |argl|))) (SPADLET |argl| (CDR |argl|)) (COND ((OR (NULL |argl|) (NULL (CAR |argl|))) - (CONS |lo| (CONS (MAKESTRING "..") NIL))) + (CONS |lo| (CONS ".." NIL))) ('T (CONS |lo| (CONS ".." @@ -1516,8 +1516,8 @@ (RETURN (COND ((EQL |$formatSigAsTeX| 1) |id|) - ((EQL |$formatSigAsTeX| 2) (SPADLET |sep| (MAKESTRING "`")) - (FORMAT NIL (MAKESTRING "\\verb~a~a~a") |sep| |id| |sep|)) + ((EQL |$formatSigAsTeX| 2) (SPADLET |sep| "`") + (FORMAT NIL "\\verb~a~a~a" |sep| |id| |sep|)) ('T (|error| '|Bad formatSigValue|)))))) ;formArguments2String(argl,ml) == [fn(x,m) for x in argl for m in ml] where @@ -1593,7 +1593,7 @@ (COND ((AND (NE |$whereList| |whereBefore|) |$permitWhere|) |ls|) ('T - (|concat| (|form2StringLocal| |ls|) (MAKESTRING ": ") |rs|))))))) + (|concat| (|form2StringLocal| |ls|) ": " |rs|))))))) ;formJoin1(op,u) == ; if op = 'Join then [:argl,last] := u else (argl := nil; last := [op,:u]) @@ -1630,19 +1630,19 @@ (|member| |id| '(|mkCategory| CATEGORY))) (COND ((BOOT-EQUAL |$abbreviateJoin| 'T) - (|concat| (|formJoin2| |argl|) '|%b| (MAKESTRING "with") - '|%d| (MAKESTRING "..."))) + (|concat| (|formJoin2| |argl|) '|%b| "with" + '|%d| "...")) ((BOOT-EQUAL |$permitWhere| 'T) (SPADLET |opList| (|formatJoinKey| |r| |id|)) (SPADLET |$whereList| (|concat| |$whereList| '|%l| |$declVar| '|: | (|formJoin2| |argl|) '|%b| - (MAKESTRING "with") '|%d| '|%i| |opList| + "with" '|%d| '|%i| |opList| '|%u|)) (|formJoin2| |argl|)) ('T (SPADLET |opList| (|formatJoinKey| |r| |id|)) (SPADLET |suffix| - (|concat| '|%b| (MAKESTRING "with") '|%d| '|%i| + (|concat| '|%b| "with" '|%d| '|%i| |opList| '|%u|)) (|concat| (|formJoin2| |argl|) |suffix|)))) ('T (|formJoin2| |u|))))))) @@ -1758,12 +1758,12 @@ (EXIT (SETQ G167130 (APPEND G167130 - (|concat| '|%l| (MAKESTRING " ") + (|concat| '|%l| " " (|form2StringLocal| |con|) (|formatIf| |pred|)))))))))) ('T NIL))) (|concat| |opString| |catString|)) - ('T (MAKESTRING "?? unknown mkCategory format ??")))) + ('T "?? unknown mkCategory format ??"))) ('T (PROG (G167143) (SPADLET G167143 NIL) @@ -1821,7 +1821,7 @@ (PROG () (RETURN (SEQ (COND - ((NULL |argl|) (MAKESTRING "")) + ((NULL |argl|) "") ((EQL 1 (|#| |argl|)) (|form2StringLocal| (ELT |argl| 0))) ('T (|application2String| '|Join| @@ -1865,7 +1865,7 @@ '|)|)) (COND ((EQL (|#| |argl|) 1) - (|concat| (CAR |argl|) (MAKESTRING " with ") + (|concat| (CAR |argl|) " with " |postString|)) ('T (|concat| (|application2String| '|Join| |argl| NIL) @@ -1939,7 +1939,7 @@ (PROGN (SPADLET |f| (QCAR |l|)) 'T)) (|form2StringLocal| |f|)) ('T NIL))) - (|concat| '|for | |y| '| in | |s| (MAKESTRING "..") |tail|)) + (|concat| '|for | |y| '| in | |s| ".." |tail|)) ((AND (PAIRP |x|) (EQ (QCAR |x|) '|tails|) (PROGN (SPADLET |ISTMP#1| (QCDR |x|)) @@ -2052,8 +2052,8 @@ '("failed" "nil" "prime" "sqfr" "irred")) (SPADLET |x| - (STRCONC (MAKESTRING "\"") |x| - (MAKESTRING "\""))))) + (STRCONC "\"" |x| + "\"")))) (SPADLET |string| (|concat| |string| (|concat| '|,| @@ -2067,7 +2067,7 @@ (DEFUN |script2String| (|s|) (COND - ((NULL |s|) (MAKESTRING "")) + ((NULL |s|) "") ('T (COND ((NULL (PAIRP |s|)) (SPADLET |s| (CONS |s| NIL)))) (|linearFormatForm| (CAR |s|) (CDR |s|))))) @@ -2346,13 +2346,13 @@ ((OR (EQL 1 (SIZE (SPADLET |op'| (PNAME |op|)))) (NEQUAL (|char| '*) (ELT |op'| 0))) NIL) - ((NULL (SPADLET |e| (STRPOS (MAKESTRING ";") |op'| 1 NIL))) + ((NULL (SPADLET |e| (STRPOS ";" |op'| 1 NIL))) NIL) ((OR (BOOT-EQUAL (|char| '| |) (SPADLET |y| (ELT |op'| 1))) (BOOT-EQUAL (|char| '*) |y|)) NIL) ('T - (SPADLET |table| (MAKETRTTABLE (MAKESTRING "0123456789") NIL)) + (SPADLET |table| (MAKETRTTABLE "0123456789" NIL)) (SPADLET |s| (STRPOSL |table| |op'| 1 'T)) (COND ((OR (NULL |s|) (> |s| |e|)) NIL) @@ -2398,12 +2398,12 @@ '| | (CAR |argl|))))) ((BOOT-EQUAL |op| 'SEGMENT) (COND - ((NULL |argl|) (MAKESTRING "..")) + ((NULL |argl|) "..") ((OR (NULL (CDR |argl|)) (NULL (CAR (CDR |argl|)))) - (|concat| (CAR |argl|) (MAKESTRING ".."))) + (|concat| (CAR |argl|) "..")) ('T (|concat| (CAR |argl|) - (|concat| (MAKESTRING "..") (CAR (CDR |argl|))))))) + (|concat| ".." (CAR (CDR |argl|))))))) ('T (|concat| (|app2StringWrap| (|formWrapId| |op|) |linkInfo|) (|concat| '|(| (|concat| (|tuple2String| |argl|) '|)|)))))))) @@ -2453,7 +2453,7 @@ ('T (|app2StringConcat0| G167632 G167633))))))))))) - (SPADLET |sep| (MAKESTRING "`")) + (SPADLET |sep| "`") (FORMAT NIL "\\lispLink{\\verb!(|conPage| '~a)!}{~a}" |str2| |string|)) ('T (|error| '|Bad value for $formatSigAsTeX|))))))) @@ -2484,7 +2484,7 @@ (|concat| |argPart| '|,| |a| '|: | (|form2StringLocal| |b|)))))) (COND - ((NULL |argPart|) (MAKESTRING "Record()")) + ((NULL |argPart|) "Record()") ('T (|concat| '|Record(| (CDR |argPart|) '|)|)))))))) ;plural(n,string) == @@ -2719,7 +2719,7 @@ (SPADLET |ISTMP#1| (QCDR |x|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |l| (QCAR |ISTMP#1|)) 'T)))) - (|concat| (MAKESTRING "not ") (|pred2English| |l|))) + (|concat| "not " (|pred2English| |l|))) ((AND (PAIRP |x|) (PROGN (SPADLET |op| (QCAR |x|)) @@ -2734,7 +2734,7 @@ (SPADLET |b| (QCAR |ISTMP#2|)) 'T))))) (|member| |op| '(|has| |ofCategory|))) - (|concat| (|pred2English| |a|) '|%b| (MAKESTRING "has") + (|concat| (|pred2English| |a|) '|%b| "has" '|%d| (|form2String| (|abbreviate| |b|)))) ((AND (PAIRP |x|) (PROGN @@ -2752,7 +2752,7 @@ (|member| |op| '(|HasSignature| |HasAttribute| |HasCategory|))) (|concat| (|prefix2String0| (|formatPredParts| |a|)) - '|%b| (MAKESTRING "has") '|%d| + '|%b| "has" '|%d| (|prefix2String0| (|formatPredParts| |b|)))) ((AND (PAIRP |x|) (PROGN @@ -2778,7 +2778,7 @@ (SPADLET |b'| (QCAR |ISTMP#1|)) 'T)))) (SPADLET |b| |b'|))) - (|concat| (|pred2English| |a|) (MAKESTRING ": ") + (|concat| (|pred2English| |a|) ": " (|form2String| (|abbreviate| |b|)))) ((AND (PAIRP |x|) (PROGN @@ -2794,7 +2794,7 @@ (SPADLET |b| (QCAR |ISTMP#2|)) 'T))))) (|member| |op| '(|isDomain| |domainEqual|))) - (|concat| (|pred2English| |a|) (MAKESTRING " = ") + (|concat| (|pred2English| |a|) " = " (|form2String| (|abbreviate| |b|)))) ((AND (PAIRP |x|) (PROGN (SPADLET |op| (QCAR |x|)) 'T) (SPADLET |translation| @@ -2823,7 +2823,7 @@ (COND ((STRINGP |x|) |x|) ((IDENTP |x|) (PNAME |x|)) - ((NULL |x|) (MAKESTRING "")) + ((NULL |x|) "") ((PAIRP |x|) (STRCONC (|object2String| (CAR |x|)) (|object2String| (CDR |x|)))) ('T (WRITE-TO-STRING |x|)))) @@ -2884,7 +2884,7 @@ (COND ((NULL (PAIRP |keyStuff|)) (SPADLET |keyStuff| (CONS |keyStuff| NIL)))) - (SPADLET |allMsgs| (CONS (MAKESTRING " ") NIL)) + (SPADLET |allMsgs| (CONS " " NIL)) (DO () ((NULL (NULL (NULL |keyStuff|))) NIL) (SEQ (EXIT (PROGN (SPADLET |dbN| NIL) @@ -3007,12 +3007,12 @@ 'T)) (COND ((BOOT-EQUAL |op| 'QUOTE) - (CONS (MAKESTRING "(QUOTE ") + (CONS "(QUOTE " (APPEND (|form2FenceQuote| (CAR |argl|)) - (CONS (MAKESTRING ")") NIL)))) + (CONS ")" NIL)))) ('T - (CONS (MAKESTRING "(") - (CONS (FORMAT NIL (MAKESTRING "|~a|") |op|) + (CONS "(" + (CONS (FORMAT NIL "|~a|" |op|) (APPEND (PROG (G168166) (SPADLET G168166 NIL) (RETURN @@ -3031,9 +3031,9 @@ (SETQ G168166 (APPEND G168166 (|form2Fence1| |y|)))))))) - (CONS (MAKESTRING ")") NIL))))))) - ((IDENTP |x|) (FORMAT NIL (MAKESTRING "|~a|") |x|)) - ('T (CONS (MAKESTRING " ") (CONS |x| NIL)))))))) + (CONS ")" NIL))))))) + ((IDENTP |x|) (FORMAT NIL "|~a|" |x|)) + ('T (CONS " " (CONS |x| NIL)))))))) ;form2FenceQuote x == ; NUMBERP x => [STRINGIMAGE x] @@ -3044,10 +3044,10 @@ (DEFUN |form2FenceQuote| (|x|) (COND ((NUMBERP |x|) (CONS (STRINGIMAGE |x|) NIL)) - ((SYMBOLP |x|) (CONS (FORMAT NIL (MAKESTRING "|~a|") |x|) NIL)) - ((ATOM |x|) (MAKESTRING "??")) + ((SYMBOLP |x|) (CONS (FORMAT NIL "|~a|" |x|) NIL)) + ((ATOM |x|) "??") ('T - (CONS (MAKESTRING "(") + (CONS "(" (APPEND (|form2FenceQuote| (CAR |x|)) (|form2FenceQuoteTail| (CDR |x|))))))) @@ -3058,12 +3058,12 @@ (DEFUN |form2FenceQuoteTail| (|x|) (COND - ((NULL |x|) (CONS (MAKESTRING ")") NIL)) + ((NULL |x|) (CONS ")" NIL)) ((ATOM |x|) - (CONS (MAKESTRING " . ") - (APPEND (|form2FenceQuote| |x|) (CONS (MAKESTRING ")") NIL)))) + (CONS " . " + (APPEND (|form2FenceQuote| |x|) (CONS ")" NIL)))) ('T - (CONS (MAKESTRING " ") + (CONS " " (APPEND (|form2FenceQuote| (CAR |x|)) (|form2FenceQuoteTail| (CDR |x|))))))) diff --git a/src/interp/fortcall.lisp.pamphlet b/src/interp/fortcall.lisp.pamphlet index 72cc979..9453747 100644 --- a/src/interp/fortcall.lisp.pamphlet +++ b/src/interp/fortcall.lisp.pamphlet @@ -244,7 +244,7 @@ (MAKE-OUTSTREAM (STRCONC |file| (INTERN ".c" "BOOT")))) (|writeCFile| |name| |args| |fortranArgs| |dummies| |decls| |results| |returnType| |asps| |fp|) - (COND ((NULL |dir|) (SPADLET |dir| (MAKESTRING ".")))) + (COND ((NULL |dir|) (SPADLET |dir| "."))) (COND (|asps| (SYSTEM (STRCONC '|cc -c | |file| (INTERN ".c ; mv " "BOOT") |file| @@ -318,23 +318,22 @@ (declare (special |$addUnderscoreToFortranNames|)) (RETURN (SEQ (PROGN - (WRITE-LINE (MAKESTRING "#include ") |fp|) - (WRITE-LINE (MAKESTRING "#include ") |fp|) - (WRITE-LINE (MAKESTRING "#include ") |fp|) - (WRITE-LINE (MAKESTRING "#ifndef NULL") |fp|) - (WRITE-LINE (MAKESTRING "#define NULL 0") |fp|) - (WRITE-LINE (MAKESTRING "#endif NULL") |fp|) + (WRITE-LINE "#include " |fp|) + (WRITE-LINE "#include " |fp|) + (WRITE-LINE "#include " |fp|) + (WRITE-LINE "#ifndef NULL" |fp|) + (WRITE-LINE "#define NULL 0" |fp|) + (WRITE-LINE "#endif NULL" |fp|) (WRITE-LINE - (MAKESTRING "#define MAX_ARRAY(x) (x ? x : 20000)") + "#define MAX_ARRAY(x) (x ? x : 20000)" |fp|) (WRITE-LINE - (MAKESTRING - "#define CHECK(x) if (!x) {fprintf(stderr,\"xdr failed\"); exit(1);}") + "#define CHECK(x) if (!x) {fprintf(stderr,\"xdr failed\"); exit(1);}" |fp|) - (WRITE-LINE (MAKESTRING "void main()") |fp|) - (WRITE-LINE (MAKESTRING "{") |fp|) - (WRITE-LINE (MAKESTRING " XDR xdrs;") |fp|) - (WRITE-LINE (MAKESTRING " {") |fp|) + (WRITE-LINE "void main()" |fp|) + (WRITE-LINE "{" |fp|) + (WRITE-LINE " XDR xdrs;" |fp|) + (WRITE-LINE " {" |fp|) (COND (|$addUnderscoreToFortranNames| (SPADLET |routineName| (STRCONC |name| (STRING 95)))) @@ -343,13 +342,13 @@ (|returnType| (SPADLET |returnName| (INTERN (STRCONC |name| '|_result|))) - (|wl| (CONS (MAKESTRING " ") + (|wl| (CONS " " (CONS (|getCType| |returnType|) - (CONS (MAKESTRING " ") + (CONS " " (CONS |returnName| - (CONS (MAKESTRING ",") + (CONS "," (CONS |routineName| - (CONS (MAKESTRING "();") NIL))))))) + (CONS "();" NIL))))))) |fp|))) (SPADLET |argList| NIL) (DO ((G166252 |args| (CDR G166252)) (|a| NIL)) @@ -368,9 +367,7 @@ (|printDec| (SECOND (CAR |argList|)) |a| |asps| |fp|))))) (SPADLET |argList| (NREVERSE |argList|)) - (WRITE-LINE - (MAKESTRING - " xdrstdio_create(&xdrs, stdin, XDR_DECODE);") + (WRITE-LINE" xdrstdio_create(&xdrs, stdin, XDR_DECODE);" |fp|) (DO ((G166263 |argList| (CDR G166263)) (|a| NIL)) ((OR (ATOM G166263) @@ -385,16 +382,16 @@ (COND ((NULL (MEMQ (CAR |a|) (APPEND |dummies| |asps|))) - (|writeXDR| |a| (MAKESTRING "&xdrs") + (|writeXDR| |a| "&xdrs" |fp|))))))) (COND (|returnType| - (|wt| (CONS (MAKESTRING " ") + (|wt| (CONS " " (CONS |returnName| - (CONS (MAKESTRING "=") NIL))) + (CONS "=" NIL))) |fp|)) - ('T (|wt| (CONS (MAKESTRING " ") NIL) |fp|))) - (|wt| (CONS |routineName| (CONS (MAKESTRING "(") NIL)) + ('T (|wt| (CONS " " NIL) |fp|))) + (|wt| (CONS |routineName| (CONS "(" NIL)) |fp|) (COND ((CAR |fortranArgs|) @@ -407,21 +404,19 @@ (PROGN (SETQ |a| (CAR G166274)) NIL)) NIL) (SEQ (EXIT (PROGN - (PRINC (MAKESTRING ",") |fp|) + (PRINC "," |fp|) (|printCName| |a| (|isPointer?| |a| |decls|) |asps| |fp|))))) (|writeStringLengths| |fortranArgs| |decls| |fp|) - (WRITE-LINE (MAKESTRING ");") |fp|) - (WRITE-LINE - (MAKESTRING - " xdrstdio_create(&xdrs, stdout, XDR_ENCODE);") + (WRITE-LINE ");" |fp|) + (WRITE-LINE " xdrstdio_create(&xdrs, stdout, XDR_ENCODE);" |fp|) (COND (|returnType| (|writeXDR| (CONS |returnName| (CONS (|getCType| |returnType|) NIL)) - (MAKESTRING "&xdrs") |fp|))) + "&xdrs" |fp|))) (DO ((G166283 |results| (CDR G166283)) (|r| NIL)) ((OR (ATOM G166283) (PROGN (SETQ |r| (CAR G166283)) NIL)) @@ -432,10 +427,10 @@ (|getCType| (|getFortranType| |r| |decls|)) NIL)) - (MAKESTRING "&xdrs") |fp|)))) - (WRITE-LINE (MAKESTRING " exit(0);") |fp|) - (WRITE-LINE (MAKESTRING " }") |fp|) - (WRITE-LINE (MAKESTRING "}") |fp|)))))) + "&xdrs" |fp|)))) + (WRITE-LINE " exit(0);" |fp|) + (WRITE-LINE " }" |fp|) + (WRITE-LINE "}" |fp|)))))) ;writeStringLengths(fortranArgs,decls,fp) == ; for a in fortranArgs repeat @@ -448,9 +443,9 @@ NIL) (SEQ (EXIT (COND ((|isString?| |a| |decls|) - (|wt| (CONS (MAKESTRING ",&") + (|wt| (CONS ",&" (CONS |a| - (CONS (MAKESTRING "_length") NIL))) + (CONS "_length" NIL))) |fp|)) ('T NIL))))))) @@ -493,7 +488,7 @@ (COND (|$addUnderscoreToFortranNames| (PRINC (STRING 95) |fp|)) ('T NIL))) - ('T (COND ((NULL |ispointer|) (PRINC (MAKESTRING "&") |fp|))) + ('T (COND ((NULL |ispointer|) (PRINC "&" |fp|))) (PRINC |u| |fp|)))) ;getFortranType(u,decls) == @@ -538,8 +533,7 @@ (COND (|result| |result|) ('T - (|error| (CONS (MAKESTRING - "Undeclared Fortran parameter: ") + (|error| (CONS "Undeclared Fortran parameter: " (CONS |u| NIL)))))))))) ;getCType t == @@ -565,25 +559,25 @@ ((LISTP |t|) (COND ((BOOT-EQUAL (CAR |t|) '|character|) - (CONS (MAKESTRING "char") (CDR |t|))) + (CONS "char" (CDR |t|))) ((BOOT-EQUAL (CAR |t|) '|complex|) - (CONS (MAKESTRING "float") (CONS 2 (CDR |t|)))) + (CONS "float" (CONS 2 (CDR |t|)))) ((BOOT-EQUAL (CAR |t|) '|double complex|) - (CONS (MAKESTRING "double") (CONS 2 (CDR |t|)))) + (CONS "double" (CONS 2 (CDR |t|)))) ('T (CONS (|getCType| (CAR |t|)) (CDR |t|))))) - ((BOOT-EQUAL |t| '|double|) (MAKESTRING "double")) - ((BOOT-EQUAL |t| '|double precision|) (MAKESTRING "double")) - ((BOOT-EQUAL |t| '|integer|) (MAKESTRING "int")) - ((BOOT-EQUAL |t| '|real|) (MAKESTRING "float")) - ((BOOT-EQUAL |t| '|logical|) (MAKESTRING "int")) + ((BOOT-EQUAL |t| '|double|) "double") + ((BOOT-EQUAL |t| '|double precision|) "double") + ((BOOT-EQUAL |t| '|integer|) "int") + ((BOOT-EQUAL |t| '|real|) "float") + ((BOOT-EQUAL |t| '|logical|) "int") ((BOOT-EQUAL |t| '|character|) - (CONS (MAKESTRING "char") (CONS 1 NIL))) + (CONS "char" (CONS 1 NIL))) ((BOOT-EQUAL |t| '|complex|) - (CONS (MAKESTRING "float") (CONS 2 NIL))) + (CONS "float" (CONS 2 NIL))) ((BOOT-EQUAL |t| '|double complex|) - (CONS (MAKESTRING "double") (CONS 2 NIL))) + (CONS "double" (CONS 2 NIL))) ('T - (|error| (CONS (MAKESTRING "Unrecognised Fortran type: ") + (|error| (CONS "Unrecognised Fortran type: " (CONS |t| NIL)))))) ;XDRFun t == @@ -597,9 +591,9 @@ (COND ((LISTP (SPADLET |ty| (SECOND |t|))) (COND - ((BOOT-EQUAL (CAR |ty|) (MAKESTRING "char")) - (MAKESTRING "wrapstring")) - ('T (MAKESTRING "array")))) + ((BOOT-EQUAL (CAR |ty|) "char") + "wrapstring") + ('T "array"))) ('T |ty|))))) ;printDec(type,dec,asps,fp) == @@ -619,9 +613,9 @@ (DEFUN |printDec| (|type| |dec| |asps| |fp|) (declare (special |$addUnderscoreToFortranNames|)) (PROGN - (|wt| (CONS (MAKESTRING " ") + (|wt| (CONS " " (CONS (COND ((LISTP |type|) (CAR |type|)) ('T |type|)) - (CONS (MAKESTRING " ") NIL))) + (CONS " " NIL))) |fp|) (COND ((|member| |dec| |asps|) @@ -629,21 +623,21 @@ (|$addUnderscoreToFortranNames| (|wl| (CONS |dec| (CONS (STRING 95) - (CONS (MAKESTRING "();") NIL))) + (CONS "();" NIL))) |fp|)) - ('T (|wl| (CONS |dec| (CONS (MAKESTRING "();") NIL)) |fp|)))) + ('T (|wl| (CONS |dec| (CONS "();" NIL)) |fp|)))) ((LISTP |type|) - (|wl| (CONS (MAKESTRING "*") - (CONS |dec| (CONS (MAKESTRING " = NULL;") NIL))) + (|wl| (CONS "*" + (CONS |dec| (CONS " = NULL;" NIL))) |fp|) - (|wl| (CONS (MAKESTRING " u_int ") - (CONS |dec| (CONS (MAKESTRING "_length = 0;") NIL))) + (|wl| (CONS " u_int " + (CONS |dec| (CONS "_length = 0;" NIL))) |fp|)) - ((BOOT-EQUAL |type| (MAKESTRING "char")) - (|wl| (CONS (MAKESTRING "*") - (CONS |dec| (CONS (MAKESTRING " = NULL;") NIL))) + ((BOOT-EQUAL |type| "char") + (|wl| (CONS "*" + (CONS |dec| (CONS " = NULL;" NIL))) |fp|)) - ('T (|wl| (CONS |dec| (CONS (MAKESTRING ";") NIL)) |fp|))))) + ('T (|wl| (CONS |dec| (CONS ";" NIL)) |fp|))))) ;writeXDR(v,str,fp) == ; -- Generate the calls to the filters which will read from the temp @@ -661,30 +655,30 @@ (RETURN (PROGN (SPADLET |underscore| (STRING (CHAR '|_:| 0))) - (|wt| (CONS (MAKESTRING " CHECK(xdr") + (|wt| (CONS " CHECK(xdr" (CONS |underscore| (CONS (|XDRFun| |v|) - (CONS (MAKESTRING "(") + (CONS "(" (CONS |str| - (CONS (MAKESTRING ",&") + (CONS ",&" (CONS (CAR |v|) NIL))))))) |fp|) (COND ((AND (LISTP (SPADLET |ty| (SECOND |v|))) - (NULL (BOOT-EQUAL (CAR |ty|) (MAKESTRING "char")))) - (|wt| (CONS (MAKESTRING ",&") + (NULL (BOOT-EQUAL (CAR |ty|) "char"))) + (|wt| (CONS ",&" (CONS (CAR |v|) - (CONS (MAKESTRING "_length,MAX_ARRAY(") + (CONS "_length,MAX_ARRAY(" (CONS (CAR |v|) - (CONS (MAKESTRING "_length),") NIL))))) + (CONS "_length)," NIL))))) |fp|) - (|wt| (CONS (MAKESTRING "sizeof(") + (|wt| (CONS "sizeof(" (CONS (CAR |ty|) - (CONS (MAKESTRING "),xdr") + (CONS "),xdr" (CONS |underscore| (CONS (CAR |ty|) NIL))))) |fp|))) - (|wl| (CONS (MAKESTRING "));") NIL) |fp|))))) + (|wl| (CONS "));" NIL) |fp|))))) ;prefix2Infix(l) == ; atom(l) => [l] @@ -706,8 +700,7 @@ (APPEND (|prefix2Infix| (THIRD |l|)) (CONS '|)| NIL)))))) ('T - (|error| (MAKESTRING - "Function in array dimensions with more than two arguments"))))) + (|error| "Function in array dimensions with more than two arguments")))) ;writeMalloc(name,type,dims,fp) == ; -- Write out a malloc for array arguments @@ -724,9 +717,9 @@ (PROG () (RETURN (SEQ (PROGN - (|wl| (CONS (MAKESTRING " ") + (|wl| (CONS " " (CONS |name| - (CONS (MAKESTRING "_length=") + (CONS "_length=" (CONS (|prefix2Infix| (CAR |dims|)) (APPEND @@ -749,35 +742,31 @@ (APPEND G166377 (CONS '* (|prefix2Infix| |u|))))))))) - (CONS (MAKESTRING ";") NIL)))))) + (CONS ";" NIL)))))) |fp|) (COND - ((BOOT-EQUAL |type| (MAKESTRING "char")) - (|wl| (CONS (MAKESTRING " ") + ((BOOT-EQUAL |type| "char") + (|wl| (CONS " " (CONS |name| - (CONS (MAKESTRING "=(") + (CONS "=(" (CONS |type| (CONS '| *)malloc((1+| (CONS |name| - (CONS - (MAKESTRING - "_length)*sizeof(") + (CONS "_length)*sizeof(" (CONS |type| - (CONS (MAKESTRING "));") + (CONS "));" NIL))))))))) |fp|)) ('T - (|wl| (CONS (MAKESTRING " ") + (|wl| (CONS " " (CONS |name| - (CONS (MAKESTRING "=(") + (CONS "=(" (CONS |type| (CONS '| *)malloc(| (CONS |name| - (CONS - (MAKESTRING - "_length*sizeof(") + (CONS "_length*sizeof(" (CONS |type| - (CONS (MAKESTRING "));") + (CONS "));" NIL))))))))) |fp|)))))))) @@ -854,8 +843,8 @@ (CONS '|ThreeDimensionalMatrix| (CONS (|spadTypeTTT| (CAR |u|)) NIL))) ('T - (|error| (MAKESTRING - "Can only handle one-, two- and three-dimensional matrices"))))) + (|error| + "Can only handle one-, two- and three-dimensional matrices")))) ((BOOT-EQUAL |u| '|double|) (CONS '|DoubleFloat| NIL)) ((BOOT-EQUAL |u| '|double precision|) (CONS '|DoubleFloat| NIL)) ((BOOT-EQUAL |u| '|real|) (CONS '|DoubleFloat| NIL)) @@ -867,7 +856,7 @@ ((BOOT-EQUAL |u| '|double complex|) (CONS '|Complex| (CONS (CONS '|DoubleFloat| NIL) NIL))) ('T - (|error| (CONS (MAKESTRING "Unrecognised Fortran type: ") + (|error| (CONS "Unrecognised Fortran type: " (CONS |u| NIL)))))) ;mkQuote l == @@ -1020,7 +1009,7 @@ (CONS (INTERN (STRCONC (STRINGIMAGE |u|) - (MAKESTRING "_arg"))) + "_arg")) G166484)))))))) (SPADLET |aType| (PROG (G166499) @@ -1081,7 +1070,7 @@ (CONS (INTERN (STRCONC (STRINGIMAGE |u|) - (MAKESTRING "_arg"))) + "_arg")) G166530)))))))))) (DO ((G166545 |asps| (CDR G166545)) (|u| NIL)) ((OR (ATOM G166545) @@ -1091,7 +1080,7 @@ (|delete| (INTERN (STRCONC (STRINGIMAGE |u|) - (MAKESTRING "_arg"))) + "_arg")) |fargNames|))))) (SPADLET |resPar| (CONS '|construct| @@ -1133,8 +1122,8 @@ (COND (|asps| (SPADLET |aspId| (STRCONC (|getEnv| - (MAKESTRING "SPADNUM")) - (GENTEMP (MAKESTRING "NAG")))) + "SPADNUM") + (GENTEMP "NAG"))) (SPADLET |body| (CONS 'SEQ (APPEND @@ -1320,14 +1309,14 @@ (CONS (CONS (CONS '|$elt| (CONS 'FOP (CONS '|pushFortranOutputStack| NIL))) (CONS (CONS '|filename| - (CONS (MAKESTRING "") + (CONS "" (CONS (STRCONC (STRINGIMAGE |asp|) |aspId|) - (CONS (MAKESTRING "f") NIL)))) + (CONS "f" NIL)))) NIL)) (CONS (|makeOutputAsFortran| (INTERN (STRCONC (STRINGIMAGE |asp|) - (MAKESTRING "_arg")))) + "_arg"))) (CONS (CONS (CONS '|$elt| (CONS 'FOP (CONS '|popFortranOutputStack| @@ -1380,13 +1369,13 @@ (SETQ G166652 (CONS (STRCONC (STRINGIMAGE |a|) - |aspId| (MAKESTRING ".f")) + |aspId| ".f") G166652)))))))) (CONS |$fortranCompilerName| - (CONS (STRCONC |file| (MAKESTRING ".o")) + (CONS (STRCONC |file| ".o") (CONS (STRCONC |file| - (MAKESTRING ".spadexe")) + ".spadexe") (CONS |$fortranLibraries| NIL)))))))))) ;compileAndLink(fortFileList,fortCompiler,cFile,outFile,linkerArgs) == @@ -1791,8 +1780,7 @@ |els|))))))) ('T (|error| (CONS - (MAKESTRING - "Can't cope with complex output dimensions higher than 2") + "Can't cope with complex output dimensions higher than 2" NIL)))) (SPADLET |spadForms| (CONS @@ -1887,8 +1875,7 @@ |els|))))))) ('T (|error| (CONS - (MAKESTRING - "Can't cope with logical output dimensions higher than 2") + "Can't cope with logical output dimensions higher than 2" NIL)))) (SPADLET |spadForms| (CONS @@ -2035,8 +2022,7 @@ |els|))))))) ('T (|error| (CONS - (MAKESTRING - "Can't cope with output dimensions higher than 3") + "Can't cope with output dimensions higher than 3" NIL)))) (COND ((NULL (MEMQ 0 |dims|)) @@ -2062,9 +2048,7 @@ |ty| |fort|) |spadForms|))) ('T - (|error| (CONS - (MAKESTRING - "Unrecognised output format: ") + (|error| (CONS "Unrecognised output format: " (CONS |fort| NIL))))))))) (NREVERSE |spadForms|)))))) @@ -2093,7 +2077,7 @@ ((BOOT-EQUAL |u| '|complex|) 'SHORT-FLOAT) ((BOOT-EQUAL |u| '|double complex|) 'DOUBLE-FLOAT) ('T - (|error| (CONS (MAKESTRING "Unrecognised Fortran type: ") + (|error| (CONS "Unrecognised Fortran type: " (CONS |u| NIL)))))) ;getVal(u,names,values) == @@ -2131,8 +2115,7 @@ ((SPADLET |place| (POSITION |u| |names|)) (NTH |place| |values|)) ('T - (|error| (CONS (MAKESTRING - "No value found for parameter: ") + (|error| (CONS "No value found for parameter: " (CONS |u| NIL))))))))) ;prepareData(args,dummies,values,decls) == @@ -2260,8 +2243,7 @@ (EXIT (|makeVector| (CONS |longZero| (CONS |longZero| NIL)) 'LONG-FLOAT))) - (EXIT (|error| (CONS (MAKESTRING - "Unrecognised Fortran type: ") + (EXIT (|error| (CONS "Unrecognised Fortran type: " (CONS |type| NIL)))))))) (DEFUN |prepareResults| (|results| |args| |dummies| |values| |decls|) @@ -2515,18 +2497,18 @@ (DEFUN |generateDataName| () (declare (special |$fortranTmpDir|)) - (STRCONC |$fortranTmpDir| (|getEnv| (MAKESTRING "HOST")) - (|getEnv| (MAKESTRING "SPADNUM")) - (GENTEMP (MAKESTRING "NAG")) (MAKESTRING "data"))) + (STRCONC |$fortranTmpDir| (|getEnv| "HOST") + (|getEnv| "SPADNUM") + (GENTEMP "NAG") "data")) ;generateResultsName()==STRCONC($fortranTmpDir,getEnv('"HOST"), ; getEnv('"SPADNUM"), GENTEMP('"NAG"),'"results") (DEFUN |generateResultsName| () (declare (special |$fortranTmpDir|)) - (STRCONC |$fortranTmpDir| (|getEnv| (MAKESTRING "HOST")) - (|getEnv| (MAKESTRING "SPADNUM")) - (GENTEMP (MAKESTRING "NAG")) (MAKESTRING "results"))) + (STRCONC |$fortranTmpDir| (|getEnv| "HOST") + (|getEnv| "SPADNUM") + (GENTEMP "NAG") "results")) ;fortCall(objFile,data,results) == ; tmpFile1 := writeData(generateDataName(),data) @@ -2621,8 +2603,8 @@ (PROGN (SPADLET |nagMessagesString| (COND - (|$nagMessages| (MAKESTRING "on")) - ('T (MAKESTRING "off")))) + (|$nagMessages| "on") + ('T "off"))) (|writeData| |tmpFiled| |data|) (SPADLET |toSend| (STRCONC |$nagHost| '| | |nfile| '| | |tmpFiler| '| | @@ -2635,10 +2617,8 @@ ((EQL (|sockGetInt| 8) 1) (SPADLET |results| (|readData| |tmpFiler| |results|))) ('T - (|error| (CONS (MAKESTRING - "An error was detected while reading data: ") - (CONS (MAKESTRING - "perhaps an incorrect array index was given ?") + (|error| (CONS "An error was detected while reading data: " + (CONS "perhaps an incorrect array index was given ?" NIL))))) |results|)))) diff --git a/src/interp/functor.lisp.pamphlet b/src/interp/functor.lisp.pamphlet index 15a34b6..95670e5 100644 --- a/src/interp/functor.lisp.pamphlet +++ b/src/interp/functor.lisp.pamphlet @@ -70,8 +70,7 @@ ('T (SPADLET |$Sublis| (CONS (CONS (|keyItem| D) '|original|) NIL)) - (SAY (MAKESTRING - "-----------------------------------------------------------------------")) + (SAY "-----------------------------------------------------------------------") (|DomainPrint1| D NIL |env|) (DO () ((NULL |$WhereList|) NIL) (SEQ (EXIT (PROGN @@ -88,15 +87,13 @@ (PROGN (TERPRI) (SAY - (CONS (MAKESTRING "Where ") + (CONS "Where " (CONS (CAR |u|) - (CONS (MAKESTRING " is:") + (CONS " is:" NIL)))) (|DomainPrint1| (CDR |u|) |brief| |env|))))))))) - (SAY (MAKESTRING - "-----------------------------------------------------------------------" - ))))))))) + (SAY "-----------------------------------------------------------------------" ))))))))) ;DomainPrint1(D,brief,$e) == @@ -172,7 +169,7 @@ (CONS (CONS (CDR |u|) (INTERNL - (STRCONC (MAKESTRING "View") + (STRCONC "View" (STRINGIMAGE |i|)))) G166124))))))) |$Sublis|)) @@ -185,14 +182,12 @@ ((AND |brief| (> |i| 1)) NIL) ('T (SPADLET |uu| (COPY-SEQ (CDR |u|))) (SETELT |uu| 4 - (MAKESTRING "This domain")) + "This domain") (COND ((NULL |brief|) - (SAY (CONS (MAKESTRING "View number ") + (SAY (CONS "View number " (CONS |i| - (CONS - (MAKESTRING - " corresponding to categories:") + (CONS " corresponding to categories:" NIL)))) (PRETTYPRINT (CAR |u|)))) (COND @@ -237,9 +232,7 @@ ((> |i| 1) (SETELT |uu| 1 (SETELT |uu| 2 - (SETELT |uu| 5 - (MAKESTRING - "As in first view")))))) + (SETELT |uu| 5 "As in first view"))))) (DO ((G166170 (MAXINDEX |uu|)) (|i| 6 (+ |i| 1))) ((> |i| G166170) NIL) @@ -309,7 +302,7 @@ (RETURN (PROGN (SPADLET |name| - (INTERNL (STRCONC (MAKESTRING "Where") + (INTERNL (STRCONC "Where" (STRINGIMAGE |$WhereCounter|)))) (SPADLET |$WhereCounter| (PLUS |$WhereCounter| 1)) |name|)))) @@ -585,8 +578,7 @@ (SEQ (COND ((ATOM |u|) |u|) ((NULL (ATOM (CAR |u|))) - (|error| (CONS (MAKESTRING - "compCategories: need an atom in operator position") + (|error| (CONS "compCategories: need an atom in operator position" (CONS (CAR |u|) NIL)))) ((BOOT-EQUAL (CAR |u|) '|Record|) (CONS (CAR |u|) @@ -641,20 +633,18 @@ ('T (SPADLET |v| (|get| (CAR |u|) '|modemap| |$e|)) (COND ((ATOM |v|) - (|error| (CONS (MAKESTRING - "compCategories: could not get proper modemap for operator") + (|error| (CONS + "compCategories: could not get proper modemap for operator" (CONS (CAR |u|) NIL)))) ('T (COND ((CDR |v|) (|sayBrightly| - (CONS (MAKESTRING "compCategories: ") + (CONS "compCategories: " (CONS '|%b| - (CONS (MAKESTRING "Warning") + (CONS "Warning" (CONS '|%d| - (CONS - (MAKESTRING - "ignoring unexpected stuff at end of modemap") + (CONS "ignoring unexpected stuff at end of modemap" NIL)))))) (|pp| (CDR |v|)))) (COND @@ -943,7 +933,7 @@ (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |v| (QCAR |ISTMP#1|)) 'T)))) |v|) - ('T (|systemErrorHere| (MAKESTRING "optFunctorBodyRequote"))))))) + ('T (|systemErrorHere| "optFunctorBodyRequote")))))) ;optFunctorPROGN l == ; l is [x,:l'] => @@ -1656,7 +1646,7 @@ (SPADLET |$supplementaries| (S- |$supplementaries| |slist|)) (PRETTYPRINT (CONS |instantiator| - (CONS (MAKESTRING " should solve") NIL))) + (CONS " should solve" NIL))) (PRETTYPRINT |slist|) (SPADLET |slist| (PROG (G167031) @@ -2248,25 +2238,13 @@ (CONS |instantiatedBase| (CONS - (INTERN - (MAKESTRING - "START1") - (MAKESTRING - "KEYWORD")) + (INTERN "START1" "KEYWORD") (CONS |count| (CONS - (INTERN - (MAKESTRING - "START2") - (MAKESTRING - "KEYWORD")) + (INTERN "START2" "KEYWORD") (CONS |i| (CONS - (INTERN - (MAKESTRING - "END2") - (MAKESTRING - "KEYWORD")) + (INTERN "END2" "KEYWORD") (CONS (PLUS |j| 1) NIL))))))))) @@ -2697,7 +2675,7 @@ ((AND (PAIRP |code|) (EQ (QCAR |code|) 'QSETREFV)) |code|) ('T (|stackWarning| - (CONS (MAKESTRING "unknown Functor code ") + (CONS "unknown Functor code " (CONS |code| NIL))) |code|)))))) @@ -3134,7 +3112,7 @@ ((NULL |v|) NIL) ((ATOM |v|) (|systemErrorHere| - (MAKESTRING "CheckVector"))) + "CheckVector")) ((ATOM (CAR |v|)) (DO ((G168015 |$catNames| (CDR G168015)) @@ -4355,7 +4333,7 @@ (COND ((EQL (LENGTH |l|) 1) (CAR |l|)) ('T (CONS 'OR |l|)))))) - ('T (|systemErrorHere| (MAKESTRING "ICformat")))))))) + ('T (|systemErrorHere| "ICformat"))))))) ;partPessimise(a,trueconds) == ; atom a => a @@ -4395,7 +4373,7 @@ (SPADLET |LETTMP#1| (OR (|compMakeCategoryObject| |u| |$e|) (|systemErrorHere| - (MAKESTRING "getPossibleViews")))) + "getPossibleViews"))) (SPADLET |vec| (CAR |LETTMP#1|)) (SPADLET |views| (PROG (G168961) @@ -4440,7 +4418,7 @@ (SPADLET |LETTMP#1| (OR (|compMakeCategoryObject| |u| |$e|) (|systemErrorHere| - (MAKESTRING "getViewsConditions")))) + "getViewsConditions"))) (SPADLET |vec| (CAR |LETTMP#1|)) (SPADLET |views| (PROG (G168990) diff --git a/src/interp/g-boot.lisp.pamphlet b/src/interp/g-boot.lisp.pamphlet index fc2e5ef..f2da45f 100644 --- a/src/interp/g-boot.lisp.pamphlet +++ b/src/interp/g-boot.lisp.pamphlet @@ -1066,7 +1066,7 @@ (MKPROGN (CONS |l1| (APPEND |l2| (CONS |name| NIL))))))) ('T (SPADLET |g| - (INTERN (STRCONC (MAKESTRING "LETTMP#") + (INTERN (STRCONC "LETTMP#" (STRINGIMAGE |$letGenVarCounter|)))) (SPADLET |$letGenVarCounter| (PLUS |$letGenVarCounter| 1)) (SPADLET |rhs'| (CONS $LET (CONS |g| (CONS |rhs| NIL)))) @@ -1203,7 +1203,7 @@ (SPADLET |patrev| (|defISReverse| |var2| |var1|)) (SPADLET |rev| (CONS 'REVERSE (CONS |rhs| NIL))) (SPADLET |g| - (INTERN (STRCONC (MAKESTRING "LETTMP#") + (INTERN (STRCONC "LETTMP#" (STRINGIMAGE |$letGenVarCounter|)))) (SPADLET |$letGenVarCounter| (PLUS |$letGenVarCounter| 1)) (SPADLET |l2| (|defLET2| |patrev| |g|)) @@ -1443,7 +1443,7 @@ (CONS 'EQUAL (CONS |lhs| (CONS |a| NIL)))) ((PAIRP |lhs|) (SPADLET |g| - (INTERN (STRCONC (MAKESTRING "ISTMP#") + (INTERN (STRCONC "ISTMP#" (STRINGIMAGE |$isGenVarCounter|)))) (SPADLET |$isGenVarCounter| (PLUS |$isGenVarCounter| 1)) (MKPROGN (CONS (CONS $LET (CONS |g| (CONS |lhs| NIL))) diff --git a/src/interp/g-cndata.lisp.pamphlet b/src/interp/g-cndata.lisp.pamphlet index ece9995..79474cc 100644 --- a/src/interp/g-cndata.lisp.pamphlet +++ b/src/interp/g-cndata.lisp.pamphlet @@ -663,7 +663,7 @@ (|throwKeyedMsg| 'S2IL0014 (CONS |op| (CONS (|plural| (|#| |argtypes|) - (MAKESTRING "argument")) + "argument") (CONS (|bright| (|#| |arglist|)) NIL))))) ('T (PROG (G166428) diff --git a/src/interp/g-error.lisp.pamphlet b/src/interp/g-error.lisp.pamphlet index 2040ed0..70ccab7 100644 --- a/src/interp/g-error.lisp.pamphlet +++ b/src/interp/g-error.lisp.pamphlet @@ -119,7 +119,7 @@ (EQ (QCAR |errorMsg|) '|mathprint|)) |errorMsg|) ((NULL (PAIRP |errorMsg|)) - (CONS (MAKESTRING " ") + (CONS " " (CONS |errorMsg| NIL))) ('T (setq |splitmsg| 'T) (COND @@ -152,7 +152,7 @@ (CONS '|%l| (CONS " " (CONS |u| NIL)))))))))))) - ('T (CONS (MAKESTRING " ") |errorMsg|)))))) + ('T (CONS " " |errorMsg|)))))) (|sayErrorly| |errorLabel| |msg|) (|handleLispBreakLoop| |$BreakMode|))))))) @@ -308,11 +308,11 @@ (PROGN (setq *STANDARD-OUTPUT* |$texOutputStream|) (setq |old| (|pushSatOutput| '|line|)) - (|sayString| (MAKESTRING "\\bgroup\\color{red}")) - (|sayString| (MAKESTRING "\\begin{verbatim}")) + (|sayString| "\\bgroup\\color{red}") + (|sayString| "\\begin{verbatim}") (|sayErrorly1| |errorLabel| |msg|) - (|sayString| (MAKESTRING "\\end{verbatim}")) - (|sayString| (MAKESTRING "\\egroup")) + (|sayString| "\\end{verbatim}") + (|sayString| "\\egroup") (|popSatOutput| |old|))))) ;sayErrorly1(errorLabel, msg) == @@ -329,7 +329,7 @@ (DECLARE (SPECIAL |$testingErrorPrefix|)) (RETURN (PROGN - (|sayBrightly| (MAKESTRING " ")) + (|sayBrightly| " ") (COND (|$testingSystem| (|sayMSG| |$testingErrorPrefix|))) (|sayBrightly| (CONS " >> " (CONS |errorLabel| (CONS ":" NIL)))) diff --git a/src/interp/g-opt.lisp.pamphlet b/src/interp/g-opt.lisp.pamphlet index 4eed8de..2c4a645 100644 --- a/src/interp/g-opt.lisp.pamphlet +++ b/src/interp/g-opt.lisp.pamphlet @@ -96,16 +96,16 @@ (COND (|$reportOptimization| (|sayBrightlyI| - (|bright| (MAKESTRING "Original LISP code:"))) + (|bright| "Original LISP code:")) (|pp| |def|))) (SPADLET |def'| (|optimize| (COPY |def|))) (COND (|$reportOptimization| (|sayBrightlyI| - (|bright| (MAKESTRING "Optimized LISP code:"))) + (|bright| "Optimized LISP code:")) (|pp| |def'|) (|sayBrightlyI| - (|bright| (MAKESTRING "Final LISP code:"))))) + (|bright| "Final LISP code:")))) (SPADLET |name| (CAR |def'|)) (SPADLET |slamOrLam| (CAADR |def'|)) (SPADLET |args| (CADADR |def'|)) @@ -169,8 +169,7 @@ (EXIT (RPLAC (CAR |x|) |body|))) (IF (NULL (<= (LENGTH |argl|) (LENGTH |a|))) (SEQ (SAY - (MAKESTRING - "length mismatch in XLAM expression")) + "length mismatch in XLAM expression") (EXIT (PRETTYPRINT |y|))) NIL) (EXIT (RPLAC (CAR |x|) @@ -504,7 +503,7 @@ ('T (RPLAC (CAR |x|) 'SPADCALL) (COND (|$QuickCode| (RPLACA |fn| 'QREFELT))) (RPLAC (CDR |x|) (APPEND |a| (CONS |fn| NIL))) |x|))) - ('T (|systemErrorHere| (MAKESTRING "optCall")))))))))) + ('T (|systemErrorHere| "optCall"))))))))) ;optCallSpecially(q,x,n,R) == ; y:= LASSOC(R,$specialCaseKeyList) => optSpecialCall(x,y,n) @@ -701,7 +700,7 @@ ((NULL (SPADLET |name| (BPINAME |u|))) (|keyedSystemError| 'S2OO0001 (CONS |u| NIL))) ((BOOT-EQUAL |name| '|Undef|) - (MOAN (MAKESTRING "optimiser found unknown function"))) + (MOAN "optimiser found unknown function")) ('T |name|))))) ;optMkRecord ["mkRecord",:u] == @@ -1366,7 +1365,7 @@ ;optRECORDCOPY ["RECORDCOPY",name,len] == ; len=1 => ["LIST",["CAR",name]] ; len=2 => ["CONS",["CAR",name],["CDR",name]] -; ["MOVEVEC",["MAKE_-VEC",len],name] +; ["MOVEVEC",["MAKE_-ARRAY",len],name] (DEFUN |optRECORDCOPY| (G167262) (PROG (|name| |len|) diff --git a/src/interp/g-timer.lisp.pamphlet b/src/interp/g-timer.lisp.pamphlet index 7d2f981..3aa0761 100644 --- a/src/interp/g-timer.lisp.pamphlet +++ b/src/interp/g-timer.lisp.pamphlet @@ -75,10 +75,10 @@ (SPADDIFFERENCE 70 (|#| |strname|)) (|#| |strval|)) - (MAKESTRING ".")) + ".") (|bright| |strval|))))))) (|sayBrightly| - (|bright| (|fillerSpaces| 72 (MAKESTRING "-")))) + (|bright| (|fillerSpaces| 72 "-"))) (|sayBrightly| (|concat| (|bright| "Total") (|fillerSpaces| @@ -133,7 +133,7 @@ (RETURN (SEQ (PROGN (SPADLET |total| 0) - (SPADLET |str| (MAKESTRING "")) + (SPADLET |str| "") (SPADLET |otherStatTotal| (GETL '|other| |property|)) (DO ((G166123 |listofnames| (CDR G166123)) (G166105 NIL)) @@ -163,7 +163,7 @@ (SPADLET |timestr| (|normalizeStatAndStringify| |n|))) - ('T (SPADLET |timestr| (MAKESTRING "")) + ('T (SPADLET |timestr| "") (SPADLET |otherStatTotal| (PLUS |otherStatTotal| |n|)))) (SPADLET |str| @@ -186,7 +186,7 @@ (GETL |cl| |classproperty|))))) (COND ((NEQUAL |flag| '|long|) (SPADLET |total| 0) - (SPADLET |str| (MAKESTRING "")) + (SPADLET |str| "") (DO ((G166136 |listofclasses| (CDR G166136)) (G166112 NIL)) ((OR (ATOM G166136) @@ -216,8 +216,8 @@ (STRCONC (|normalizeStatAndStringify| |total|) " " |units|)) (COND - ((BOOT-EQUAL |str| (MAKESTRING "")) |total|) - ('T (STRCONC |str| (MAKESTRING " = ") |total|)))))))) + ((BOOT-EQUAL |str| "") |total|) + ('T (STRCONC |str| " = " |total|)))))))) ;normalizeStatAndStringify t == ; RNUMP t => @@ -238,16 +238,16 @@ (COND ((RNUMP |t|) (SPADLET |t| (|roundStat| |t|)) (COND - ((BOOT-EQUAL |t| 0.0) (MAKESTRING "0")) - ('T (FORMAT NIL (MAKESTRING "~,2F") |t|)))) + ((BOOT-EQUAL |t| 0.0) "0") + ('T (FORMAT NIL "~,2F" |t|)))) ((integerp |t|) (SPADLET K 1024) (SPADLET M (TIMES K K)) (COND ((> |t| (TIMES 9 M)) (CONCAT (STRINGIMAGE (QUOTIENT (PLUS |t| (TIMES 512 K)) M)) - (MAKESTRING "M"))) + "M")) ((> |t| (TIMES 9 K)) (CONCAT (STRINGIMAGE (QUOTIENT (PLUS |t| 512) K)) - (MAKESTRING "K"))) + "K")) ('T (STRINGIMAGE |t|)))) ('T (STRINGIMAGE |t|)))))) @@ -278,18 +278,18 @@ (PROG (|opening|) (RETURN (COND - ((BOOT-EQUAL |time| (MAKESTRING "")) |oldstr|) + ((BOOT-EQUAL |time| "") |oldstr|) ('T (SPADLET |opening| (COND - ((BOOT-EQUAL |flag| '|long|) (MAKESTRING "(")) - ('T (MAKESTRING " (")))) + ((BOOT-EQUAL |flag| '|long|) "(") + ('T " ("))) (COND - ((BOOT-EQUAL |oldstr| (MAKESTRING "")) - (STRCONC |time| |opening| |abb| (MAKESTRING ")"))) + ((BOOT-EQUAL |oldstr| "") + (STRCONC |time| |opening| |abb| ")")) ('T - (STRCONC |oldstr| (MAKESTRING " + ") |time| |opening| |abb| - (MAKESTRING ")"))))))))) + (STRCONC |oldstr| " + " |time| |opening| |abb| + ")")))))))) ;peekTimedName() == IFCAR $timedNameStack @@ -470,8 +470,8 @@ (DEFUN |printNamedStats| (|listofnames|) (PROGN (|printNamedStatsByProperty| |listofnames| '|TimeTotal|) - (|sayBrightly| (MAKESTRING " ")) - (|sayBrightly| (MAKESTRING "Space (in bytes):")) + (|sayBrightly| " ") + (|sayBrightly| "Space (in bytes):") (|printNamedStatsByProperty| |listofnames| '|SpaceTotal|))) ;makeLongTimeString(listofnames,listofclasses) == @@ -482,7 +482,7 @@ (DEFUN |makeLongTimeString| (|listofnames| |listofclasses|) (DECLARE (SPECIAL |$printTimeIfTrue|)) (|makeLongStatStringByProperty| |listofnames| |listofclasses| - '|TimeTotal| '|ClassTimeTotal| (MAKESTRING "sec") + '|TimeTotal| '|ClassTimeTotal| "sec" |$printTimeIfTrue|)) ;makeLongSpaceString(listofnames,listofclasses) == @@ -493,7 +493,7 @@ (DEFUN |makeLongSpaceString| (|listofnames| |listofclasses|) (DECLARE (SPECIAL |$printStorageIfTrue|)) (|makeLongStatStringByProperty| |listofnames| |listofclasses| - '|SpaceTotal| '|ClassSpaceTotal| (MAKESTRING "bytes") + '|SpaceTotal| '|ClassSpaceTotal| "bytes" |$printStorageIfTrue|)) ;computeElapsedTime() == diff --git a/src/interp/g-util.lisp.pamphlet b/src/interp/g-util.lisp.pamphlet index 7fe3921..ddf37c8 100644 --- a/src/interp/g-util.lisp.pamphlet +++ b/src/interp/g-util.lisp.pamphlet @@ -359,7 +359,7 @@ (COND ((EQL |nb| 0) |str|) (|nb| (SUBSTRING |str| |nb| NIL)) - ('T (MAKESTRING "")))))))) + ('T ""))))))) ;concat(:l) == concatList l @@ -726,13 +726,13 @@ ('T (SPADLET |target| (CAR |sig|)) (SPADLET |args| (CDR |sig|)) (SPADLET |target| (|formatUnabbreviated| |target|)) (COND - ((NULL |args|) (CONS (MAKESTRING "() -> ") |target|)) + ((NULL |args|) (CONS "() -> " |target|)) ((NULL (CDR |args|)) (APPEND (|formatUnabbreviated| (QCAR |args|)) - (CONS (MAKESTRING " -> ") |target|))) + (CONS " -> " |target|))) ('T (SPADLET |args| (|formatUnabbreviatedTuple| |args|)) - (CONS (MAKESTRING "(") - (APPEND |args| (CONS (MAKESTRING ") -> ") |target|)))))))))) + (CONS "(" + (APPEND |args| (CONS ") -> " |target|)))))))))) ;formatUnabbreviatedTuple t == ; -- t is a list of types @@ -783,7 +783,7 @@ (RETURN (COND ((ATOM |t|) (CONS |t| NIL)) - ((NULL |t|) (CONS (MAKESTRING "()") NIL)) + ((NULL |t|) (CONS "()" NIL)) ((AND (PAIRP |t|) (PROGN (SPADLET |p| (QCAR |t|)) @@ -798,7 +798,7 @@ 'T))))) (|member| |p| '(|:| ":"))) (CONS |sel| - (CONS (MAKESTRING ": ") (|formatUnabbreviated| |arg|)))) + (CONS ": " (|formatUnabbreviated| |arg|)))) ((AND (PAIRP |t|) (EQ (QCAR |t|) '|Union|) (PROGN (SPADLET |args| (QCDR |t|)) 'T)) (CONS '|Union| @@ -824,7 +824,7 @@ (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |arg1| (QCAR |ISTMP#1|)) 'T)))) (CONS |arg| - (CONS (MAKESTRING " ") (|formatUnabbreviated| |arg1|)))) + (CONS " " (|formatUnabbreviated| |arg1|)))) ((AND (PAIRP |t|) (PROGN (SPADLET |arg| (QCAR |t|)) @@ -884,7 +884,7 @@ (SPADLET |parse| (OR (|ncParseFromString| |s|) (|systemError| - (MAKESTRING "String for TeX will not parse")))) + "String for TeX will not parse"))) (|parse2Outform| |parse|))))) ;parse2Outform x == @@ -1388,43 +1388,43 @@ ; ['"\endscroll",$charRbrace,'"scroll",$charLbrace,'"\end"]] (SPADLET |$HTmacs| - (CONS (CONS (MAKESTRING "\\beginmenu") + (CONS (CONS "\\beginmenu" (CONS |$charRbrace| - (CONS (MAKESTRING "menu") + (CONS "menu" (CONS |$charLbrace| - (CONS (MAKESTRING "\\begin") + (CONS "\\begin" NIL))))) - (CONS (CONS (MAKESTRING "\\endmenu") + (CONS (CONS "\\endmenu" (CONS |$charRbrace| - (CONS (MAKESTRING "menu") + (CONS "menu" (CONS |$charLbrace| - (CONS (MAKESTRING "\\end") NIL))))) - (CONS (CONS (MAKESTRING "\\beginitems") + (CONS "\\end" NIL))))) + (CONS (CONS "\\beginitems" (CONS |$charRbrace| - (CONS (MAKESTRING "items") + (CONS "items" (CONS |$charLbrace| - (CONS (MAKESTRING "\\begin") + (CONS "\\begin" NIL))))) - (CONS (CONS (MAKESTRING "\\enditems") + (CONS (CONS "\\enditems" (CONS |$charRbrace| - (CONS (MAKESTRING "items") + (CONS "items" (CONS |$charLbrace| - (CONS (MAKESTRING "\\end") + (CONS "\\end" NIL))))) (CONS (CONS - (MAKESTRING "\\beginscroll") + "\\beginscroll" (CONS |$charRbrace| - (CONS (MAKESTRING "scroll") + (CONS "scroll" (CONS |$charLbrace| - (CONS (MAKESTRING "\\begin") + (CONS "\\begin" NIL))))) (CONS (CONS - (MAKESTRING "\\endscroll") + "\\endscroll" (CONS |$charRbrace| - (CONS (MAKESTRING "scroll") + (CONS "scroll" (CONS |$charLbrace| - (CONS (MAKESTRING "\\end") + (CONS "\\end" NIL))))) NIL))))))) diff --git a/src/interp/hashcode.lisp.pamphlet b/src/interp/hashcode.lisp.pamphlet index c25ed57..25934d1 100644 --- a/src/interp/hashcode.lisp.pamphlet +++ b/src/interp/hashcode.lisp.pamphlet @@ -74,7 +74,7 @@ ('T (|hashString| (SYMBOL-NAME |type|))))) ((STRINGP |type|) (|hashCombine| (|hashString| |type|) - (|hashString| (MAKESTRING "Enumeration")))) + (|hashString| "Enumeration"))) ((AND (PAIRP |type|) (EQ (QCAR |type|) 'QUOTE) (PROGN (SPADLET |ISTMP#1| (QCDR |type|)) @@ -102,7 +102,7 @@ (SPADLET |hash| (|hashString| (SYMBOL-NAME |op|))) (COND ((BOOT-EQUAL |op| '|Mapping|) - (SPADLET |hash| (|hashString| (MAKESTRING "->"))) + (SPADLET |hash| (|hashString| "->")) (SPADLET |retType| (CAR |args|)) (SPADLET |mapArgs| (CDR |args|)) (DO ((G166088 |mapArgs| (CDR G166088)) @@ -214,7 +214,7 @@ ;--putConstructorProperty('LocalAlgebra,'coSig,'(NIL T T T)) ;--putConstructorProperty('Localize,'coSig,'(NIL T T T)) -(SPADLET |$VoidHash| (|hashString| (MAKESTRING "Void"))) +(SPADLET |$VoidHash| (|hashString| "Void")) @ \eject diff --git a/src/interp/ht-util.lisp.pamphlet b/src/interp/ht-util.lisp.pamphlet index d90c2ae..7ea68bf 100644 --- a/src/interp/ht-util.lisp.pamphlet +++ b/src/interp/ht-util.lisp.pamphlet @@ -122,7 +122,7 @@ (|stripSpaces| (|htpLabelInputString| |htPage| |buttonName|)) - (MAKESTRING "t")) + "t") (EXIT (RETURN |buttonName|))))))))))) ;htpSetRadioButtonAlist(htPage, val) == @@ -196,7 +196,7 @@ (COND ((AND |props| (STRINGP (SPADLET |s| (ELT |props| 0)))) (COND - ((BOOT-EQUAL |s| (MAKESTRING "")) |s|) + ((BOOT-EQUAL |s| "") |s|) ('T (|trimString| |s|)))) ('T NIL)))))) @@ -232,12 +232,12 @@ (DEFUN |replacePercentByDollar,fn| (|s| |i| |n|) (PROG (|m|) (RETURN - (SEQ (IF (> |i| |n|) (EXIT (MAKESTRING ""))) + (SEQ (IF (> |i| |n|) (EXIT "")) (IF (> (SPADLET |m| (|charPosition| (|char| '%) |s| |i|)) |n|) (EXIT (SUBSTRING |s| |i| NIL))) (EXIT (STRCONC (SUBSTRING |s| |i| (SPADDIFFERENCE |m| |i|)) - (MAKESTRING "$") + "$" (|replacePercentByDollar,fn| |s| (PLUS |m| 1) |n|))))))) @@ -349,8 +349,8 @@ (COND ((SPADLET |msg| (|htpLabelInputString| |htPage| |label|)) (COND - ((BOOT-EQUAL |msg| (MAKESTRING "t")) 1) - ((BOOT-EQUAL |msg| (MAKESTRING "nil")) 0) + ((BOOT-EQUAL |msg| "t") 1) + ((BOOT-EQUAL |msg| "nil") 0) ('T |msg|))) ('T (SPADLET |props| @@ -478,11 +478,11 @@ (COND ((STRINGP |s|) (COND - ((BOOT-EQUAL |s| (MAKESTRING "\\$")) (MAKESTRING "\\%")) - ((BOOT-EQUAL |s| (MAKESTRING "{\\em $}")) - (MAKESTRING "{\\em \\%}")) + ((BOOT-EQUAL |s| "\\$") "\\%") + ((BOOT-EQUAL |s| "{\\em $}") + "{\\em \\%}") ('T |s|))) - ((BOOT-EQUAL |s| '$) (MAKESTRING "\\%")) + ((BOOT-EQUAL |s| '$) "\\%") ('T (PRINC-TO-STRING |s|)))) ;stringize s == @@ -503,7 +503,7 @@ (declare (special |$curPage|)) (PROGN (|htInitPageNoScroll| |propList| |title|) - (|htSayStandard| (MAKESTRING "\\beginscroll ")) + (|htSayStandard| "\\beginscroll ") |$curPage|)) ;--htInitPageNoHeading(propList) == @@ -530,7 +530,7 @@ (DEFUN |htShowPage| () (PROGN - (|htSayStandard| (MAKESTRING "\\endscroll")) + (|htSayStandard| "\\endscroll") (|htShowPageNoScroll|))) ;htShowPageNoScroll() == @@ -550,7 +550,7 @@ (declare (special |$htLineList| |$curPage| |$newPage|)) (RETURN (PROGN - (|htSayStandard| (MAKESTRING "\\autobuttons")) + (|htSayStandard| "\\autobuttons") (|htpSetPageDescription| |$curPage| (NREVERSE (|htpPageDescription| |$curPage|))) (SPADLET |$newPage| NIL) @@ -639,7 +639,7 @@ (|htProcessDoitButton| |items|)) ('T (|systemError| - (CONS (MAKESTRING "unknown itemType") + (CONS "unknown itemType" (CONS |itemType| NIL)))))))))))) ;htMakeErrorPage htPage == @@ -673,9 +673,9 @@ (DEFUN |htQuote| (|s|) (PROGN - (|iht| (MAKESTRING "\"")) + (|iht| "\"") (|iht| |s|) - (|iht| (MAKESTRING "\"")))) + (|iht| "\""))) ;htProcessToggleButtons buttons == ; iht '"\newline\indent{5}\beginitems " @@ -694,7 +694,7 @@ (declare (special |$curPage|)) (RETURN (SEQ (PROGN - (|iht| (MAKESTRING "\\newline\\indent{5}\\beginitems ")) + (|iht| "\\newline\\indent{5}\\beginitems ") (DO ((G166302 |buttons| (CDR G166302)) (G166286 NIL)) ((OR (ATOM G166302) @@ -716,21 +716,19 @@ (CONS '|button| (CONS |defaultValue| NIL))))) (|iht| (CONS - (MAKESTRING - "\\item{\\em\\inputbox[") + "\\item{\\em\\inputbox[" (CONS (|htpLabelDefault| |$curPage| |buttonName|) - (CONS (MAKESTRING "]{") + (CONS "]{" (CONS |buttonName| (CONS - (MAKESTRING - "}{\\htbmfile{pick}}{\\htbmfile{unpick}}\\space{}") + "}{\\htbmfile{pick}}{\\htbmfile{unpick}}\\space{}" NIL)))))) (|bcIssueHt| |message|) - (|iht| (MAKESTRING "\\space{}}")) + (|iht| "\\space{}}") (|bcIssueHt| |info|))))) - (|iht| (MAKESTRING "\\enditems\\indent{0} "))))))) + (|iht| "\\enditems\\indent{0} ")))))) ;htProcessBcButtons buttons == ; for [defaultValue, buttonName] in buttons repeat @@ -768,23 +766,22 @@ |buttonName|)) (COND ((EQL |k| 0) - (|iht| (CONS (MAKESTRING "\\off{") + (|iht| (CONS "\\off{" (CONS |buttonName| - (CONS (MAKESTRING "}") NIL))))) + (CONS "}" NIL))))) ((EQL |k| 1) - (|iht| (CONS (MAKESTRING "\\on{") + (|iht| (CONS "\\on{" (CONS |buttonName| - (CONS (MAKESTRING "}") NIL))))) + (CONS "}" NIL))))) ('T - (|iht| (CONS (MAKESTRING "\\inputbox[") + (|iht| (CONS "\\inputbox[" (CONS (|htpLabelDefault| |$curPage| |buttonName|) - (CONS (MAKESTRING "]{") + (CONS "]{" (CONS |buttonName| (CONS - (MAKESTRING - "}{\\htbmfile{pick}}{\\htbmfile{unpick}}") + "}{\\htbmfile{pick}}{\\htbmfile{unpick}}" NIL)))))))))))))))) ;htProcessBcStrings strings == @@ -818,7 +815,7 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (SPADLET |mess2| (MAKESTRING "")) + (SPADLET |mess2| "") (COND ((NULL (LASSOC |stringName| (|htpInputAreaAlist| |$curPage|))) @@ -831,32 +828,31 @@ ((|htpLabelErrorMsg| |$curPage| |stringName|) (|iht| (CONS - (MAKESTRING "\\centerline{{\\em ") + "\\centerline{{\\em " (CONS (|htpLabelErrorMsg| |$curPage| |stringName|) - (CONS (MAKESTRING "}}") NIL)))) + (CONS "}}" NIL)))) (SPADLET |mess2| (CONCAT |mess2| (|bcSadFaces|))) (|htpSetLabelErrorMsg| |$curPage| |stringName| NIL))) - (|iht| (CONS (MAKESTRING "\\inputstring{") + (|iht| (CONS "\\inputstring{" (CONS |stringName| - (CONS (MAKESTRING "}{") + (CONS "}{" (CONS |numChars| - (CONS (MAKESTRING "}{") + (CONS "}{" (CONS (|htpLabelDefault| |$curPage| |stringName|) - (CONS (MAKESTRING "} ") + (CONS "} " (CONS |mess2| NIL))))))))))))))))) ;bcSadFaces() == ; '"\space{1}{\em\htbitmap{error}\htbitmap{error}\htbitmap{error}}" (DEFUN |bcSadFaces| () - (MAKESTRING - "\\space{1}{\\em\\htbitmap{error}\\htbitmap{error}\\htbitmap{error}}")) + "\\space{1}{\\em\\htbitmap{error}\\htbitmap{error}\\htbitmap{error}}") ;htLispLinks(links,:option) == ; [links,options] := beforeAfter('options,links) @@ -882,9 +878,9 @@ (SPADLET |links| (CAR |LETTMP#1|)) (SPADLET |options| (CADR |LETTMP#1|)) (SPADLET |indent| (OR (LASSOC '|indent| |options|) 5)) - (|iht| (MAKESTRING "\\newline\\indent{")) + (|iht| "\\newline\\indent{") (|iht| (|stringize| |indent|)) - (|iht| (MAKESTRING "}\\beginitems")) + (|iht| "}\\beginitems") (DO ((G166403 |links| (CDR G166403)) (G166387 NIL)) ((OR (ATOM G166403) (PROGN (SETQ G166387 (CAR G166403)) NIL) @@ -898,18 +894,18 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (|iht| (MAKESTRING "\\item[")) + (|iht| "\\item[") (SPADLET |call| (COND ((IFCAR |option|) - (MAKESTRING "\\lispmemolink")) + "\\lispmemolink") ('T - (MAKESTRING "\\lispdownlink")))) + "\\lispdownlink"))) (|htMakeButton| |call| |message| (|mkCurryFun| |func| |value|)) - (|iht| (CONS (MAKESTRING "]\\space{}") NIL)) + (|iht| (CONS "]\\space{}" NIL)) (|bcIssueHt| |info|))))) - (|iht| (MAKESTRING "\\enditems\\indent{0} "))))))) + (|iht| "\\enditems\\indent{0} ")))))) ;htLispMemoLinks(links) == htLispLinks(links,true) @@ -947,7 +943,7 @@ NIL) (SEQ (EXIT (PROGN (|htMakeButton| - (MAKESTRING "\\lispdownlink") |message| + "\\lispdownlink" |message| (|mkCurryFun| |func| |value|) |skipStateInfo?|) (|bcIssueHt| |info|)))))))))) @@ -979,7 +975,7 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (|htMakeButton| (MAKESTRING "\\lisplink") + (|htMakeButton| "\\lisplink" |message| (|mkCurryFun| |func| |value|)) (|bcIssueHt| |info|)))))))))) @@ -1063,13 +1059,11 @@ (CONS (CONS |groupName| (|buttonNames| |buttons|)) (|htpRadioButtonAlist| |$curPage|))) (SPADLET |boxesName| (GENTEMP)) - (|iht| (CONS (MAKESTRING - "\\newline\\indent{5}\\radioboxes{") + (|iht| (CONS "\\newline\\indent{5}\\radioboxes{" (CONS |boxesName| - (CONS (MAKESTRING - "}{\\htbmfile{pick}}{\\htbmfile{unpick}}\\beginitems ") + (CONS "}{\\htbmfile{pick}}{\\htbmfile{unpick}}\\beginitems " NIL)))) - (SPADLET |defaultValue| (MAKESTRING "1")) + (SPADLET |defaultValue| "1") (DO ((G166568 |buttons| (CDR G166568)) (G166540 NIL)) ((OR (ATOM G166568) @@ -1090,24 +1084,23 @@ (CONS '|button| (CONS |defaultValue| NIL))) (SPADLET |defaultValue| - (MAKESTRING "0")))) + "0"))) (|iht| (CONS - (MAKESTRING - "\\item{\\em\\radiobox[") + "\\item{\\em\\radiobox[" (CONS (|htpLabelDefault| |$curPage| |buttonName|) - (CONS (MAKESTRING "]{") + (CONS "]{" (CONS |buttonName| - (CONS (MAKESTRING "}{") + (CONS "}{" (CONS |boxesName| (CONS - (MAKESTRING "}\\space{}") + "}\\space{}" NIL)))))))) (|bcIssueHt| |message|) - (|iht| (MAKESTRING "\\space{}}")) + (|iht| "\\space{}}") (|bcIssueHt| |info|))))) - (|iht| (MAKESTRING "\\enditems\\indent{0} "))))))) + (|iht| "\\enditems\\indent{0} ")))))) ;htBcRadioButtons [groupName, :buttons] == ; htpSetRadioButtonAlist($curPage, [[groupName, :buttonNames buttons], @@ -1138,12 +1131,11 @@ (CONS (CONS |groupName| (|buttonNames| |buttons|)) (|htpRadioButtonAlist| |$curPage|))) (SPADLET |boxesName| (GENTEMP)) - (|iht| (CONS (MAKESTRING "\\radioboxes{") + (|iht| (CONS "\\radioboxes{" (CONS |boxesName| - (CONS (MAKESTRING - "}{\\htbmfile{pick}}{\\htbmfile{unpick}} ") + (CONS "}{\\htbmfile{pick}}{\\htbmfile{unpick}} " NIL)))) - (SPADLET |defaultValue| (MAKESTRING "1")) + (SPADLET |defaultValue| "1") (DO ((G166616 |buttons| (CDR G166616)) (G166588 NIL)) ((OR (ATOM G166616) @@ -1164,19 +1156,19 @@ (CONS '|button| (CONS |defaultValue| NIL))) (SPADLET |defaultValue| - (MAKESTRING "0")))) + "0"))) (|iht| (CONS - (MAKESTRING "{\\em\\radiobox[") + "{\\em\\radiobox[" (CONS (|htpLabelDefault| |$curPage| |buttonName|) - (CONS (MAKESTRING "]{") + (CONS "]{" (CONS |buttonName| - (CONS (MAKESTRING "}{") + (CONS "}{" (CONS |boxesName| - (CONS (MAKESTRING "}") NIL)))))))) + (CONS "}" NIL)))))))) (|bcIssueHt| |message|) - (|iht| (MAKESTRING "\\space{}}")) + (|iht| "\\space{}}") (|bcIssueHt| |info|)))))))))) ;setUpDefault(name, props) == @@ -1231,7 +1223,7 @@ (declare (special |$curPage|)) (RETURN (SEQ (PROGN - (|iht| (MAKESTRING "\\newline\\indent{5}\\beginitems ")) + (|iht| "\\newline\\indent{5}\\beginitems ") (DO ((G166685 |strings| (CDR G166685)) (G166665 NIL)) ((OR (ATOM G166685) @@ -1263,29 +1255,28 @@ ((|htpLabelErrorMsg| |$curPage| |stringName|) (|iht| (CONS - (MAKESTRING - "\\centerline{{\\em ") + "\\centerline{{\\em " (CONS (|htpLabelErrorMsg| |$curPage| |stringName|) - (CONS (MAKESTRING "}}") NIL)))) + (CONS "}}" NIL)))) (SPADLET |mess2| (CONCAT |mess2| (|bcSadFaces|))) (|htpSetLabelErrorMsg| |$curPage| |stringName| NIL))) - (|iht| (MAKESTRING "\\item ")) + (|iht| "\\item ") (|bcIssueHt| |mess1|) - (|iht| (CONS (MAKESTRING "\\inputstring{") + (|iht| (CONS "\\inputstring{" (CONS |stringName| - (CONS (MAKESTRING "}{") + (CONS "}{" (CONS |numChars| - (CONS (MAKESTRING "}{") + (CONS "}{" (CONS (|htpLabelDefault| |$curPage| |stringName|) - (CONS (MAKESTRING "} ") NIL)))))))) + (CONS "} " NIL)))))))) (|bcIssueHt| |mess2|))))) - (|iht| (MAKESTRING "\\enditems\\indent{0}\\newline "))))))) + (|iht| "\\enditems\\indent{0}\\newline ")))))) ;htProcessDomainConditions condList == ; htpSetDomainConditions($curPage, renamePatternVariables condList) @@ -1572,7 +1563,7 @@ (RETURN (COND ((NULL (STRINGP |template|)) |template|) - ('T (SPADLET |i| (SEARCH (MAKESTRING "%l") |template|)) + ('T (SPADLET |i| (SEARCH "%l" |template|)) (COND ((NULL |i|) |template|) ('T @@ -1589,16 +1580,16 @@ (DEFUN |htMakeDoneButton| (|message| |func|) (PROGN - (|bcHt| (MAKESTRING "\\newline\\vspace{1}\\centerline{")) + (|bcHt| "\\newline\\vspace{1}\\centerline{") (COND - ((BOOT-EQUAL |message| (MAKESTRING "Continue")) - (|bchtMakeButton| (MAKESTRING "\\lispdownlink") + ((BOOT-EQUAL |message| "Continue") + (|bchtMakeButton| "\\lispdownlink" '|\\ContinueBitmap| |func|)) ('T - (|bchtMakeButton| (MAKESTRING "\\lispdownlink") - (CONCAT (MAKESTRING "\\box{") |message| (MAKESTRING "}")) + (|bchtMakeButton| "\\lispdownlink" + (CONCAT "\\box{" |message| "}") |func|))) - (|bcHt| (MAKESTRING "} ")))) + (|bcHt| "} "))) ;htProcessDoneButton [label , func] == ; iht '"\newline\vspace{1}\centerline{" @@ -1616,19 +1607,19 @@ (PROGN (SPADLET |label| (CAR G166950)) (SPADLET |func| (CADR G166950)) - (|iht| (MAKESTRING "\\newline\\vspace{1}\\centerline{")) + (|iht| "\\newline\\vspace{1}\\centerline{") (COND - ((BOOT-EQUAL |label| (MAKESTRING "Continue")) - (|htMakeButton| (MAKESTRING "\\lispdownlink") + ((BOOT-EQUAL |label| "Continue") + (|htMakeButton| "\\lispdownlink" '|\\ContinueBitmap| |func|)) - ((BOOT-EQUAL |label| (MAKESTRING "Push to enter names")) - (|htMakeButton| (MAKESTRING "\\lispdownlink") - (MAKESTRING "\\ControlBitmap{clicktoset}") |func|)) + ((BOOT-EQUAL |label| "Push to enter names") + (|htMakeButton| "\\lispdownlink" + "\\ControlBitmap{clicktoset}" |func|)) ('T - (|htMakeButton| (MAKESTRING "\\lispdownlink") - (CONCAT (MAKESTRING "\\box{") |label| (MAKESTRING "}")) + (|htMakeButton| "\\lispdownlink" + (CONCAT "\\box{" |label| "}") |func|))) - (|iht| (MAKESTRING "} ")))))) + (|iht| "} "))))) ;htMakeButton(htCommand, message, func,:options) == ;----------> OBSELETE <---------------------------------- @@ -1655,19 +1646,19 @@ (RETURN (SEQ (PROGN (SPADLET |skipStateInfo?| (IFCAR |options|)) - (|iht| (CONS |htCommand| (CONS (MAKESTRING "{") NIL))) + (|iht| (CONS |htCommand| (CONS "{" NIL))) (|bcIssueHt| |message|) (COND (|skipStateInfo?| - (|iht| (CONS (MAKESTRING "}{(|htDoneButton| '|") + (|iht| (CONS "}{(|htDoneButton| '|" (CONS |func| - (CONS (MAKESTRING "| ") + (CONS "| " (CONS (|htpName| |$curPage|) - (CONS (MAKESTRING ")}") NIL))))))) + (CONS ")}" NIL))))))) ('T - (|iht| (CONS (MAKESTRING "}{(|htDoneButton| '|") + (|iht| (CONS "}{(|htDoneButton| '|" (CONS |func| - (CONS (MAKESTRING "| (PROGN ") NIL)))) + (CONS "| (PROGN " NIL)))) (DO ((G166977 (|htpInputAreaAlist| |$curPage|) (CDR G166977)) (G166965 NIL)) @@ -1682,29 +1673,27 @@ NIL) (SEQ (EXIT (PROGN (|iht| (CONS - (MAKESTRING - "(|htpSetLabelInputString| ") + "(|htpSetLabelInputString| " (CONS (|htpName| |$curPage|) - (CONS (MAKESTRING "'|") + (CONS "'|" (CONS |id| - (CONS (MAKESTRING "| ") NIL)))))) + (CONS "| " NIL)))))) (COND ((BOOT-EQUAL |type| '|string|) (|iht| (CONS - (MAKESTRING - "\"\\stringvalue{") + "\"\\stringvalue{" (CONS |id| - (CONS (MAKESTRING "}\"") + (CONS "}\"" NIL))))) ('T (|iht| (CONS - (MAKESTRING "\"\\boxvalue{") + "\"\\boxvalue{" (CONS |id| - (CONS (MAKESTRING "}\"") + (CONS "}\"" NIL)))))) - (|iht| (MAKESTRING ") ")))))) + (|iht| ") "))))) (|iht| (CONS (|htpName| |$curPage|) - (CONS (MAKESTRING "))}") NIL)))))))))) + (CONS "))}" NIL)))))))))) ;bchtMakeButton(htCommand, message, func) == ; bcHt [htCommand, '"{", message, @@ -1724,13 +1713,12 @@ (RETURN (SEQ (PROGN (|bcHt| (CONS |htCommand| - (CONS (MAKESTRING "{") + (CONS "{" (CONS |message| (CONS - (MAKESTRING - "}{(|htDoneButton| '|") + "}{(|htDoneButton| '|" (CONS |func| - (CONS (MAKESTRING "| (PROGN ") + (CONS "| (PROGN " NIL))))))) (DO ((G167004 (|htpInputAreaAlist| |$curPage|) (CDR G167004)) @@ -1746,26 +1734,25 @@ NIL) (SEQ (EXIT (PROGN (|bcHt| (CONS - (MAKESTRING - "(|htpSetLabelInputString| ") + "(|htpSetLabelInputString| " (CONS (|htpName| |$curPage|) - (CONS (MAKESTRING "'|") + (CONS "'|" (CONS |id| - (CONS (MAKESTRING "| ") NIL)))))) + (CONS "| " NIL)))))) (COND ((BOOT-EQUAL |type| '|string|) (|bcHt| (CONS - (MAKESTRING "\"\\stringvalue{") + "\"\\stringvalue{" (CONS |id| - (CONS (MAKESTRING "}\"") NIL))))) + (CONS "}\"" NIL))))) ('T (|bcHt| (CONS - (MAKESTRING "\"\\boxvalue{") + "\"\\boxvalue{" (CONS |id| - (CONS (MAKESTRING "}\"") NIL)))))) - (|bcHt| (MAKESTRING ") ")))))) + (CONS "}\"" NIL)))))) + (|bcHt| ") "))))) (|bcHt| (CONS (|htpName| |$curPage|) - (CONS (MAKESTRING "))} ") NIL)))))))) + (CONS "))} " NIL)))))))) ;htProcessDoitButton [label, command, func] == ; fun := mkCurryFun(func, [command]) @@ -1783,15 +1770,13 @@ (SPADLET |command| (CADR G167017)) (SPADLET |func| (CADDR G167017)) (SPADLET |fun| (|mkCurryFun| |func| (CONS |command| NIL))) - (|iht| (MAKESTRING "\\newline\\vspace{1}\\centerline{")) - (|htMakeButton| (MAKESTRING "\\lispcommand") - (CONCAT (MAKESTRING "\\box{") |label| (MAKESTRING "}")) + (|iht| "\\newline\\vspace{1}\\centerline{") + (|htMakeButton| "\\lispcommand" + (CONCAT "\\box{" |label| "}") |fun|) - (|iht| (MAKESTRING "} ")) - (|iht| (MAKESTRING - "\\vspace{2}{Select \\ \\UpButton{} \\ to go back one page.}")) - (|iht| (MAKESTRING -"\\newline{Select \\ \\ExitButton{QuitPage} \\ to remove this window.}")))))) + (|iht| "} ") + (|iht| "\\vspace{2}{Select \\ \\UpButton{} \\ to go back one page.}") + (|iht| "\\newline{Select \\ \\ExitButton{QuitPage} \\ to remove this window.}"))))) ;htMakeDoitButton(label, command) == ; -- use bitmap button if just plain old "Do It" @@ -1810,24 +1795,20 @@ (declare (special |$curPage|)) (PROGN (COND - ((BOOT-EQUAL |label| (MAKESTRING "Do It")) - (|bcHt| (MAKESTRING -"\\newline\\vspace{1}\\centerline{\\lispcommand{\\DoItBitmap}{(|doDoitButton| "))) + ((BOOT-EQUAL |label| "Do It") + (|bcHt| "\\newline\\vspace{1}\\centerline{\\lispcommand{\\DoItBitmap}{(|doDoitButton| ")) ('T - (|bcHt| (CONS (MAKESTRING - "\\newline\\vspace{1}\\centerline{\\lispcommand{\\box{") + (|bcHt| (CONS "\\newline\\vspace{1}\\centerline{\\lispcommand{\\box{" (CONS |label| - (CONS (MAKESTRING "}}{(|doDoitButton| ") + (CONS "}}{(|doDoitButton| " NIL)))))) (|bcHt| (|htpName| |$curPage|)) - (|bcHt| (CONS (MAKESTRING " \"") + (|bcHt| (CONS " \"" (CONS (|htEscapeString| |command|) - (CONS (MAKESTRING "\"") NIL)))) - (|bcHt| (MAKESTRING ")}}")) - (|bcHt| (MAKESTRING - "\\vspace{2}{Select \\ \\UpButton{} \\ to go back one page.}")) - (|bcHt| (MAKESTRING - "\\newline{Select \\ \\ExitButton{QuitPage} \\ to remove this window.}")))) + (CONS "\"" NIL)))) + (|bcHt| ")}}") + (|bcHt| "\\vspace{2}{Select \\ \\UpButton{} \\ to go back one page.}") + (|bcHt| "\\newline{Select \\ \\ExitButton{QuitPage} \\ to remove this window.}"))) ;doDoitButton(htPage, command) == ; executeInterpreterCommand command @@ -1865,7 +1846,7 @@ ((|typeCheckInputAreas| |htPage|) (|htMakeErrorPage| |htPage|)) ((NULL (FBOUNDP |func|)) (|systemError| - (CONS (MAKESTRING "unknown function") (CONS |func| NIL)))) + (CONS "unknown function" (CONS |func| NIL)))) ('T (FUNCALL (SYMBOL-FUNCTION |func|) |htPage|)))) ;typeCheckInputAreas htPage == @@ -1972,8 +1953,8 @@ ((NULL (|ncParseFromString| |string|)) (|htpSetLabelErrorMsg| |htPage| - (MAKESTRING "Syntax Error") - (MAKESTRING "Syntax Error"))) + "Syntax Error" + "Syntax Error")) ('T NIL))) ('T (SPADLET |val| @@ -2053,15 +2034,15 @@ (QCAR |ISTMP#3|)) 'T))))))))) (|systemError| - (MAKESTRING "currently invalid domain condition"))) + "currently invalid domain condition")) ((EQUAL |pattern| '(|String|)) (CONS '(|String|) (|wrap| |s1|))) ('T (SPADLET |val| (|parseAndEval| |string|)) (COND ((STRINGP |val|) (COND - ((BOOT-EQUAL |val| (MAKESTRING "Syntax Error ")) - (MAKESTRING "Error: Syntax Error ")) + ((BOOT-EQUAL |val| "Syntax Error ") + "Error: Syntax Error ") ('T (|condErrorMsg| |pattern|)))) ('T (SPADLET |type| (CAR |val|)) (SPADLET |data| (CDR |val|)) @@ -2086,7 +2067,7 @@ ((PAIRP |typeString|) (SPADLET |typeString| (APPLY (|function| CONCAT) |typeString|)))) - (CONCAT (MAKESTRING "Error: Could not make your input into a ") + (CONCAT "Error: Could not make your input into a " |typeString|))))) ;parseAndEval string == @@ -2145,14 +2126,14 @@ ('T (SPADLET |syntaxError| 'T) (CDR |v|)))) ('T (|oldParseString| |string|)))) (COND - (|syntaxError| (MAKESTRING "Syntax Error ")) + (|syntaxError| "Syntax Error ") (|pform| (SPADLET |val| (|applyWithOutputToString| '|processInteractive| (CONS |pform| (CONS NIL NIL)))) (COND ((CAR |val|) (CAR |val|)) - ('T (MAKESTRING "Type Analysis Error")))) + ('T "Type Analysis Error"))) ('T NIL)))))) ;oldParseString string == @@ -2187,7 +2168,7 @@ (PROG (|opForm| |lastArg| |argList|) (RETURN (SEQ (PROGN - (SPADLET |opForm| (CONCAT (CAR |l|) (MAKESTRING "("))) + (SPADLET |opForm| (CONCAT (CAR |l|) "(")) (SPADLET |lastArg| (|last| |l|)) (SPADLET |l| (CDR |l|)) (SPADLET |argList| NIL) @@ -2198,11 +2179,11 @@ NIL) (SEQ (EXIT (SPADLET |argList| (CONS - (CONCAT |arg| (MAKESTRING ", ")) + (CONCAT |arg| ", ") |argList|))))) (SPADLET |argList| (NREVERSE (CONS |lastArg| |argList|))) (CONCAT |opForm| (APPLY (|function| CONCAT) |argList|) - (MAKESTRING ")"))))))) + ")")))))) ;htMakeInputList stringList == ;-- makes an input form for constructing a list @@ -2226,7 +2207,7 @@ NIL) (SEQ (EXIT (SPADLET |argList| (CONS - (CONCAT |arg| (MAKESTRING ", ")) + (CONCAT |arg| ", ") |argList|))))) (SPADLET |argList| (NREVERSE (CONS |lastArg| |argList|))) (|bracketString| (APPLY (|function| CONCAT) |argList|))))))) @@ -2235,12 +2216,12 @@ ;bracketString string == CONCAT('"[",string,'"]") (DEFUN |bracketString| (|string|) - (CONCAT (MAKESTRING "[") |string| (MAKESTRING "]"))) + (CONCAT "[" |string| "]")) ;quoteString string == CONCAT('"_"", string, '"_"") (DEFUN |quoteString| (|string|) - (CONCAT (MAKESTRING "\"") |string| (MAKESTRING "\""))) + (CONCAT "\"" |string| "\"")) ;$funnyQuote := char 127 @@ -2361,15 +2342,14 @@ (STRINGIMAGE (SPADDIFFERENCE (PLUS |maxWidth2| |maxWidth1|) 1))) - (|htSay| (MAKESTRING - "\\tab{2}\\newline Variable\\tab{") + (|htSay| "\\tab{2}\\newline Variable\\tab{" (STRINGIMAGE (PLUS |maxWidth1| (QUOTIENT |maxWidth2| 3))) - (MAKESTRING "}Description\\tab{") + "}Description\\tab{" (STRINGIMAGE (PLUS (PLUS |maxWidth2| |maxWidth1|) 2)) - (MAKESTRING "}Value\\newline\\beginitems ")) + "}Value\\newline\\beginitems ") (DO ((G167392 (REVERSE |okList|) (CDR G167392)) (|setData| NIL)) ((OR (ATOM G167392) @@ -2378,36 +2358,33 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (|htSay| (MAKESTRING "\\item")) + (|htSay| "\\item") (SPADLET |label| (STRCONC - (MAKESTRING - "\\menuitemstyle{") + "\\menuitemstyle{" (ELT |setData| 0) - (MAKESTRING "}"))) + "}")) (SPADLET |links| (CONS |label| (CONS (CONS (CONS '|text| (CONS - (MAKESTRING "\\tab{") + "\\tab{" (CONS |tabset1| - (CONS (MAKESTRING "}") + (CONS "}" (CONS (ELT |setData| 1) (CONS - (MAKESTRING - "\\tab{") + "\\tab{" (CONS |tabset2| (CONS - (MAKESTRING - "}{\\em ") + "}{\\em " (CONS (|htShowSetTreeValue| |setData|) (CONS - (MAKESTRING "}") + "}" NIL)))))))))) NIL) (CONS '|htShowSetPage| @@ -2420,7 +2397,7 @@ (CONS '|options| (CONS '(|indent| . 0) NIL)))) NIL)))))) - (|htSay| (MAKESTRING "\\enditems")) (|htShowPage|))))))) + (|htSay| "\\enditems") (|htShowPage|))))))) ;htShowCount s == --# discounting {\em .. } ; m := #s @@ -2482,15 +2459,15 @@ ((BOOT-EQUAL |st| 'LITERALS) (|object2String| (|translateTrueFalse2YesNo| (|eval| (ELT |setData| 4))))) - ((BOOT-EQUAL |st| 'TREE) (MAKESTRING "...")) + ((BOOT-EQUAL |st| 'TREE) "...") ('T (|systemError|))))))) ;mkSetTitle() == STRCONC('"Command {\em )set ",listOfStrings2String $path,'"}") (DEFUN |mkSetTitle| () (declare (special |$path|)) - (STRCONC (MAKESTRING "Command {\\em )set ") - (|listOfStrings2String| |$path|) (MAKESTRING "}"))) + (STRCONC "Command {\\em )set " + (|listOfStrings2String| |$path|) "}")) ;listOfStrings2String u == ; null u => '"" @@ -2498,9 +2475,9 @@ (DEFUN |listOfStrings2String| (|u|) (COND - ((NULL |u|) (MAKESTRING "")) + ((NULL |u|) "") ('T - (STRCONC (|listOfStrings2String| (CDR |u|)) (MAKESTRING " ") + (STRCONC (|listOfStrings2String| (CDR |u|)) " " (|stringize| (CAR |u|)))))) ;htShowSetPage(htPage, branch) == @@ -2530,7 +2507,7 @@ |$path|))) (SPADLET |setData| (|assoc| |branch| |setTree|)) (COND - ((NULL |setData|) (|systemError| (MAKESTRING "No Set Data"))) + ((NULL |setData|) (|systemError| "No Set Data")) ('T (SPADLET |st| (ELT |setData| 3)) (COND ((BOOT-EQUAL |st| 'FUNCTION) @@ -2543,8 +2520,8 @@ (|htShowSetTree| (ELT |setData| 5))) ((BOOT-EQUAL |st| 'STRING) (|htSetNotAvailable| |htPage| - (MAKESTRING ")set compiler"))) - ('T (|systemError| (MAKESTRING "Unknown data type")))))))))) + ")set compiler")) + ('T (|systemError| "Unknown data type"))))))))) ;htShowLiteralsPage(htPage, setData) == ; htSetLiterals(htPage,setData.setName,setData.setLabel, @@ -2572,19 +2549,17 @@ (RETURN (SEQ (PROGN (SPADLET |page| - (|htInitPage| (MAKESTRING "Set Command") + (|htInitPage| "Set Command" (|htpPropertyList| |htPage|))) (|htpSetProperty| |page| '|variable| |variable|) - (|bcHt| (CONS (MAKESTRING "\\centerline{Set {\\em ") + (|bcHt| (CONS "\\centerline{Set {\\em " (CONS |name| - (CONS (MAKESTRING "}}\\newline") NIL)))) - (|bcHt| (CONS (MAKESTRING "{\\em Description: } ") + (CONS "}}\\newline" NIL)))) + (|bcHt| (CONS "{\\em Description: } " (CONS |message| - (CONS (MAKESTRING - "\\newline\\vspace{1} ") + (CONS "\\newline\\vspace{1} " NIL)))) - (|bcHt| (MAKESTRING - "Select one of the following: \\newline\\tab{3} ")) + (|bcHt| "Select one of the following: \\newline\\tab{3} ") (SPADLET |links| (PROG (G167460) (SPADLET G167460 NIL) @@ -2599,11 +2574,10 @@ (SEQ (EXIT (SETQ G167460 (CONS (CONS - (STRCONC (MAKESTRING "") + (STRCONC "" (STRINGIMAGE |opt|)) (CONS - (MAKESTRING - "\\newline\\tab{3}") + "\\newline\\tab{3}" (CONS |functionToCall| (CONS |opt| NIL)))) G167460)))))))) @@ -2613,7 +2587,7 @@ '|\\indent{0}\\newline\\vspace{1} The current setting is: {\\em | (CONS (|translateTrueFalse2YesNo| (EVAL |variable|)) - (CONS (MAKESTRING "} ") NIL)))) + (CONS "} " NIL)))) (|htShowPage|)))))) ;htSetLiteral(htPage, val) == @@ -2623,7 +2597,7 @@ (DEFUN |htSetLiteral| (|htPage| |val|) (PROGN - (|htInitPage| (MAKESTRING "Set Command") NIL) + (|htInitPage| "Set Command" NIL) (SET (|htpProperty| |htPage| '|variable|) (|translateYesNo2TrueFalse| |val|)) (|htKill| |htPage| |val|))) @@ -2668,33 +2642,33 @@ (|htInitPage| (|mkSetTitle|) (|htpPropertyList| |htPage|))) (|htpSetProperty| |page| '|variable| (ELT |setData| 4)) - (|bcHt| (CONS (MAKESTRING "\\centerline{Set {\\em ") + (|bcHt| (CONS "\\centerline{Set {\\em " (CONS (ELT |setData| 0) - (CONS (MAKESTRING "}}\\newline") NIL)))) + (CONS "}}\\newline" NIL)))) (SPADLET |message| (ELT |setData| 1)) - (|bcHt| (CONS (MAKESTRING "{\\em Description: } ") + (|bcHt| (CONS "{\\em Description: } " (CONS |message| - (CONS (MAKESTRING "\\newline\\vspace{1} ") + (CONS "\\newline\\vspace{1} " NIL)))) (SPADLET |LETTMP#1| (ELT |setData| 5)) (SPADLET |$htInitial| (CAR |LETTMP#1|)) (SPADLET |$htFinal| (CADR |LETTMP#1|)) (COND ((BOOT-EQUAL |$htFinal| (PLUS |$htInitial| 1)) - (|bcHt| (MAKESTRING "Enter the integer {\\em ")) + (|bcHt| "Enter the integer {\\em ") (|bcHt| (|stringize| |$htInitial|)) - (|bcHt| (MAKESTRING "} or {\\em ")) + (|bcHt| "} or {\\em ") (|bcHt| (|stringize| |$htFinal|)) - (|bcHt| (MAKESTRING "}:"))) + (|bcHt| "}:")) ((NULL |$htFinal|) - (|bcHt| (MAKESTRING "Enter an integer greater than {\\em ")) + (|bcHt| "Enter an integer greater than {\\em ") (|bcHt| (|stringize| (SPADDIFFERENCE |$htInitial| 1))) - (|bcHt| (MAKESTRING "}:"))) - ('T (|bcHt| (MAKESTRING "Enter an integer between {\\em ")) + (|bcHt| "}:")) + ('T (|bcHt| "Enter an integer between {\\em ") (|bcHt| (|stringize| |$htInitial|)) - (|bcHt| (MAKESTRING "} and {\\em ")) + (|bcHt| "} and {\\em ") (|bcHt| (|stringize| |$htFinal|)) - (|bcHt| (MAKESTRING "}:")))) + (|bcHt| "}:"))) (|htMakePage| (CONS '(|domainConditions| (|Satisfies| S |chkRange|)) (CONS (CONS '|bcStrings| @@ -2703,7 +2677,7 @@ (CONS '|value| (CONS 'S NIL)))) NIL)) NIL))) - (|htSetvarDoneButton| (MAKESTRING "Select to Set Value") + (|htSetvarDoneButton| "Select to Set Value" '|htSetInteger|) (|htShowPage|))))) @@ -2725,14 +2699,12 @@ (COND ((NULL (INTEGERP |val|)) (|errorPage| |htPage| - (CONS (MAKESTRING "Value Error") + (CONS "Value Error" (CONS NIL - (CONS (MAKESTRING - "\\vspace{3}\\centerline{{\\em ") + (CONS "\\vspace{3}\\centerline{{\\em " (CONS |val| (CONS - (MAKESTRING - "}}\\vspace{2}\\newline\\centerline{Click on \\UpBitmap{} to re-enter value}") + "}}\\vspace{2}\\newline\\centerline{Click on \\UpBitmap{} to re-enter value}" NIL))))))) ('T (SET (|htpProperty| |htPage| '|variable|) |val|) (|htKill| |htPage| |val|))))))) @@ -2797,13 +2769,12 @@ (SPADLET |page| (|htInitPage| (|mkSetTitle|) (|htpPropertyList| |htPage|))) - (|bcHt| (CONS (MAKESTRING "\\centerline{Set {\\em ") + (|bcHt| (CONS "\\centerline{Set {\\em " (CONS (ELT |setData| 0) - (CONS (MAKESTRING "}}\\newline") NIL)))) - (|bcHt| (CONS (MAKESTRING "{\\em Description: } ") + (CONS "}}\\newline" NIL)))) + (|bcHt| (CONS "{\\em Description: } " (CONS (ELT |setData| 1) - (CONS (MAKESTRING - "\\newline\\vspace{1} ") + (CONS "\\newline\\vspace{1} " NIL)))) (SPADLET |currentValue| (EVAL |variable|)) (|htMakePage| @@ -2814,15 +2785,15 @@ (CONS (CONS '|text| |phrase|) (CONS (CONS '|inputStrings| (CONS - (CONS (MAKESTRING "") - (CONS (MAKESTRING "") + (CONS "" + (CONS "" (CONS 60 (CONS |currentValue| (CONS '|value| (CONS 'S NIL)))))) NIL)) NIL)))) - (|htSetvarDoneButton| (MAKESTRING "Select To Set Value") + (|htSetvarDoneButton| "Select To Set Value" '|htSetFunCommand|) (|htShowPage|))))))) @@ -2836,17 +2807,17 @@ (DEFUN |htSetvarDoneButton| (|message| |func|) (PROGN - (|bcHt| (MAKESTRING "\\newline\\vspace{1}\\centerline{")) + (|bcHt| "\\newline\\vspace{1}\\centerline{") (COND - ((OR (BOOT-EQUAL |message| (MAKESTRING "Select to Set Value")) - (BOOT-EQUAL |message| (MAKESTRING "Select to Set Values"))) - (|bchtMakeButton| (MAKESTRING "\\lisplink") - (MAKESTRING "\\ControlBitmap{clicktoset}") |func|)) + ((OR (BOOT-EQUAL |message| "Select to Set Value") + (BOOT-EQUAL |message| "Select to Set Values")) + (|bchtMakeButton| "\\lisplink" + "\\ControlBitmap{clicktoset}" |func|)) ('T - (|bchtMakeButton| (MAKESTRING "\\lisplink") - (CONCAT (MAKESTRING "\\fbox{") |message| (MAKESTRING "}")) + (|bchtMakeButton| "\\lisplink" + (CONCAT "\\fbox{" |message| "}") |func|))) - (|bcHt| (MAKESTRING "} ")))) + (|bcHt| "} "))) ;htFunctionSetLiteral(htPage, val) == ; htInitPage('"Set Command", nil) @@ -2855,7 +2826,7 @@ (DEFUN |htFunctionSetLiteral| (|htPage| |val|) (PROGN - (|htInitPage| (MAKESTRING "Set Command") NIL) + (|htInitPage| "Set Command" NIL) (SET (|htpProperty| |htPage| '|variable|) (|translateYesNo2TrueFalse| |val|)) (|htSetFunCommandContinue| |htPage| |val|))) @@ -2942,24 +2913,22 @@ (declare (special |$path|)) (RETURN (PROGN - (|htInitPage| (MAKESTRING "System Command") NIL) + (|htInitPage| "System Command" NIL) (SPADLET |string| - (STRCONC (MAKESTRING "{\\em )set ") + (STRCONC "{\\em )set " (|listOfStrings2String| (CONS |value| |$path|)) - (MAKESTRING "}"))) + "}")) (|htMakePage| (CONS '(|text| "{Here is the AXIOM system command you could have issued:}" "\\vspace{2}\\newline\\centerline{\\tt") (CONS (CONS '|text| |string|) NIL))) (|htMakePage| '((|text| . "}\\vspace{1}\\newline\\rm"))) - (|htSay| (MAKESTRING - "\\vspace{2}{Select \\ \\UpButton{} \\ to go back.}")) - (|htSay| (MAKESTRING - "\\newline{Select \\ \\ExitButton{QuitPage} \\ to remove this window.}")) + (|htSay| "\\vspace{2}{Select \\ \\UpButton{} \\ to go back.}") + (|htSay| "\\newline{Select \\ \\ExitButton{QuitPage} \\ to remove this window.}") (|htProcessDoitButton| - (CONS (MAKESTRING "Press to Remove Page") - (CONS (MAKESTRING "") (CONS '|htDoNothing| NIL)))) + (CONS "Press to Remove Page" + (CONS "" (CONS '|htDoNothing| NIL)))) (|htShowPage|))))) ;htSetNotAvailable(htPage,whatToType) == @@ -2980,12 +2949,12 @@ (RETURN (PROGN (SPADLET |page| - (|htInitPage| (MAKESTRING "Unavailable Set Command") + (|htInitPage| "Unavailable Set Command" (|htpPropertyList| |htPage|))) - (|htInitPage| (MAKESTRING "Unavailable System Command") NIL) + (|htInitPage| "Unavailable System Command" NIL) (SPADLET |string| - (STRCONC (MAKESTRING "{\\em ") |whatToType| - (MAKESTRING "}"))) + (STRCONC "{\\em " |whatToType| + "}")) (|htMakePage| (CONS '(|text| "\\vspace{1}\\newline" "{Sorry, but this system command is not available through HyperDoc. Please directly issue this command in an AXIOM window for more information:}" @@ -2993,8 +2962,8 @@ (CONS (CONS '|text| |string|) NIL))) (|htMakePage| '((|text| . "}\\vspace{1}\\newline"))) (|htProcessDoitButton| - (CONS (MAKESTRING "Press to Remove Page") - (CONS (MAKESTRING "") (CONS '|htDoNothing| NIL)))) + (CONS "Press to Remove Page" + (CONS "" (CONS '|htDoNothing| NIL)))) (|htShowPage|))))) ;htDoNothing(htPage,command) == nil @@ -3140,8 +3109,7 @@ (AND G167646 (IDENTP |x|)))))))) |parsedNames|) ('T - (MAKESTRING - "Please enter a list of identifiers separated by blanks")))))))) + "Please enter a list of identifiers separated by blanks"))))))) ;chkPosInteger s == ; (u := parseOnly s) and INTEGERP u and u > 0 => u @@ -3153,7 +3121,7 @@ (COND ((AND (SPADLET |u| (|parseOnly| |s|)) (INTEGERP |u|) (> |u| 0)) |u|) - ('T (MAKESTRING "Please enter a positive integer")))))) + ('T "Please enter a positive integer"))))) ;chkOutputFileName s == ; bcString2WordList s in '(CONSOLE console) => 'console @@ -3180,7 +3148,7 @@ ((AND (SPADLET |u| (|ncParseFromString| |s|)) (INTEGERP |u|) (>= |u| 0)) |u|) - ('T (MAKESTRING "Please enter a non-negative integer")))))) + ('T "Please enter a non-negative integer"))))) ;chkRange s == ; (u := ncParseFromString s) and INTEGERP u @@ -3201,11 +3169,11 @@ (OR (NULL |$htFinal|) (<= |u| |$htFinal|))) |u|) ((NULL |$htFinal|) - (STRCONC (MAKESTRING "Please enter an integer greater than ") + (STRCONC "Please enter an integer greater than " (|stringize| (SPADDIFFERENCE |$htInitial| 1)))) ('T - (STRCONC (MAKESTRING "Please enter an integer between ") - (|stringize| |$htInitial|) (MAKESTRING " and ") + (STRCONC "Please enter an integer between " + (|stringize| |$htInitial|) " and " (|stringize| |$htFinal|))))))) ;chkAllNonNegativeInteger s == @@ -3219,8 +3187,7 @@ (OR (AND (SPADLET |u| (|ncParseFromString| |s|)) (|member| |u| '(|a| |al| |all| A AL ALL)) 'ALL) (|chkNonNegativeInteger| |s|) - (MAKESTRING - "Please enter {\\em all} or a non-negative integer"))))) + "Please enter {\\em all} or a non-negative integer")))) ;htMakePathKey path == ; null path => systemError '"path is not set" @@ -3232,12 +3199,12 @@ (DEFUN |htMakePathKey,fn| (|a| |b|) (SEQ (IF (NULL |b|) (EXIT |a|)) (EXIT (|htMakePathKey,fn| - (STRCONC |a| (MAKESTRING ".") (PNAME (CAR |b|))) + (STRCONC |a| "." (PNAME (CAR |b|))) (CDR |b|))))) (DEFUN |htMakePathKey| (|path|) (COND - ((NULL |path|) (|systemError| (MAKESTRING "path is not set"))) + ((NULL |path|) (|systemError| "path is not set")) ('T (INTERN (|htMakePathKey,fn| (PNAME (CAR |path|)) (CDR |path|)))))) @@ -3283,44 +3250,44 @@ ; htSetNotAvailable(htPage,'")set compiler output") (DEFUN |htSetOutputLibrary| (|htPage|) - (|htSetNotAvailable| |htPage| (MAKESTRING ")set compiler output"))) + (|htSetNotAvailable| |htPage| ")set compiler output")) ;htSetInputLibrary htPage == ; htSetNotAvailable(htPage,'")set compiler input") (DEFUN |htSetInputLibrary| (|htPage|) - (|htSetNotAvailable| |htPage| (MAKESTRING ")set compiler input"))) + (|htSetNotAvailable| |htPage| ")set compiler input")) ;htSetExpose htPage == ; htSetNotAvailable(htPage,'")set expose") (DEFUN |htSetExpose| (|htPage|) - (|htSetNotAvailable| |htPage| (MAKESTRING ")set expose"))) + (|htSetNotAvailable| |htPage| ")set expose")) ;htSetKernelProtect htPage == ; htSetNotAvailable(htPage,'")set kernel protect") (DEFUN |htSetKernelProtect| (|htPage|) - (|htSetNotAvailable| |htPage| (MAKESTRING ")set kernel protect"))) + (|htSetNotAvailable| |htPage| ")set kernel protect")) ;htSetKernelWarn htPage == ; htSetNotAvailable(htPage,'")set kernel warn") (DEFUN |htSetKernelWarn| (|htPage|) - (|htSetNotAvailable| |htPage| (MAKESTRING ")set kernel warn"))) + (|htSetNotAvailable| |htPage| ")set kernel warn")) ;htSetOutputCharacters htPage == ; htSetNotAvailable(htPage,'")set output characters") (DEFUN |htSetOutputCharacters| (|htPage|) - (|htSetNotAvailable| |htPage| (MAKESTRING ")set output characters"))) + (|htSetNotAvailable| |htPage| ")set output characters")) ;htSetLinkerArgs htPage == ; htSetNotAvailable(htPage,'")set fortran calling linker") (DEFUN |htSetLinkerArgs| (|htPage|) (|htSetNotAvailable| |htPage| - (MAKESTRING ")set fortran calling linker"))) + ")set fortran calling linker")) ;htSetCache(htPage,:options) == ; $path := '(functions cache) @@ -3439,21 +3406,20 @@ (CONS (CONS (STRCONC - (MAKESTRING - "Function {\\em ") + "Function {\\em " |name| - (MAKESTRING "} will cache")) - (CONS (MAKESTRING "values") + "} will cache") + (CONS "values" (CONS 5 (CONS 10 (CONS (|htMakeLabel| - (MAKESTRING "c") |i|) + "c" |i|) (CONS 'ALLPI NIL)))))) NIL)) NIL))))) (|htSetvarDoneButton| - (MAKESTRING "Select to Set Values") '|htCacheSet|) + "Select to Set Values" '|htCacheSet|) (|htShowPage|)))))))) ;htMakeLabel(prefix,i) == INTERN STRCONC(prefix,stringize i) @@ -3504,7 +3470,7 @@ (SPADLET |num| (|chkAllNonNegativeInteger| (|htpLabelInputString| |htPage| - (|htMakeLabel| (MAKESTRING "c") + (|htMakeLabel| "c" |i|)))) (SPADLET |$cacheAlist| (ADDASSOC (INTERN |name|) |num| @@ -3514,15 +3480,15 @@ (SPADLET |$cacheCount| |n|) (SPADLET |$cacheAlist| (|deleteAssoc| '|all| |$cacheAlist|)))) - (|htInitPage| (MAKESTRING "Cache Summary") NIL) - (|bcHt| (MAKESTRING "In general, interpreter functions ")) + (|htInitPage| "Cache Summary" NIL) + (|bcHt| "In general, interpreter functions ") (|bcHt| (COND ((EQL |$cacheCount| 0) '|will {\\em not} be cached.|) - ('T (|bcHt| (MAKESTRING "cache ")) + ('T (|bcHt| "cache ") (|htAllOrNum| |$cacheCount|) - (MAKESTRING "} values.")))) - (|bcHt| (MAKESTRING "\\vspace{1}\\newline ")) + "} values."))) + (|bcHt| "\\vspace{1}\\newline ") (COND (|$cacheAlist| (DO ((G167801 |$cacheAlist| (CDR G167801)) @@ -3542,16 +3508,15 @@ ((NEQUAL |val| |$cacheCount|) (PROGN (|bcHt| - (MAKESTRING - "\\newline function {\\em ")) + "\\newline function {\\em ") (|bcHt| (|stringize| |name|)) (|bcHt| - (MAKESTRING "} will cache ")) + "} will cache ") (|htAllOrNum| |val|) - (|bcHt| (MAKESTRING "} values")))))))))) + (|bcHt| "} values"))))))))) (|htProcessDoitButton| - (CONS (MAKESTRING "Press to Remove Page") - (CONS (MAKESTRING "") (CONS '|htDoNothing| NIL)))) + (CONS "Press to Remove Page" + (CONS "" (CONS '|htDoNothing| NIL)))) (|htShowPage|)))))) ;htAllOrNum val == bcHt @@ -3561,10 +3526,10 @@ (DEFUN |htAllOrNum| (|val|) (|bcHt| (COND - ((BOOT-EQUAL |val| '|all|) (MAKESTRING "{\\em all")) - ((EQL |val| 0) (MAKESTRING "{\\em no")) + ((BOOT-EQUAL |val| '|all|) "{\\em all") + ((EQL |val| 0) "{\\em no") ('T - (STRCONC (MAKESTRING "the last {\\em ") + (STRCONC "the last {\\em " (|stringize| |val|)))))) ;htCacheOne names == @@ -3600,7 +3565,7 @@ (|inputStrings| ("Enter {\\em all} or a positive integer:" "" 5 10 |c1| ALLPI)))) - (|htSetvarDoneButton| (MAKESTRING "Select to Set Value") + (|htSetvarDoneButton| "Select to Set Value" '|htCacheSet|) (|htShowPage|))))) @@ -3622,8 +3587,8 @@ (declare (special |$saturn|)) (COND (|$saturn| (|downlinkSaturn| |page|)) - ('T (|htInitPage| (MAKESTRING "Bridge") NIL) - (|htSay| (MAKESTRING "\\replacepage{") |page| (MAKESTRING "}")) + ('T (|htInitPage| "Bridge" NIL) + (|htSay| "\\replacepage{" |page| "}") (|htShowPage|)))) ;downlinkSaturn fn == @@ -3641,7 +3606,7 @@ (RETURN (SEQ (PROGN (SPADLET |u| (|dbReadLines| |fn|)) - (SPADLET |lines| (MAKESTRING "")) + (SPADLET |lines| "") (DO () ((NULL (AND (PAIRP |u|) (PROGN @@ -3668,9 +3633,9 @@ (DEFUN |dbNonEmptyPattern| (|pattern|) (COND - ((NULL |pattern|) (MAKESTRING "*")) + ((NULL |pattern|) "*") ('T (SPADLET |pattern| (STRINGIMAGE |pattern|)) - (COND ((> (|#| |pattern|) 0) |pattern|) ('T (MAKESTRING "*")))))) + (COND ((> (|#| |pattern|) 0) |pattern|) ('T "*"))))) ;htSystemVariables() == main where ; main == @@ -3770,13 +3735,13 @@ (CONS (CONS '|text| (CONS (ELT |options| 0) - (CONS (MAKESTRING "-") + (CONS "-" (CONS (OR (ELT |options| 1) - (MAKESTRING "")) + "") NIL)))) NIL) - (CONS (MAKESTRING "") + (CONS "" (CONS '|htSetSystemVariableKind| (CONS @@ -3798,8 +3763,8 @@ NIL)) NIL)))))) (IF (BOOT-EQUAL |class| 'STRING) - (EXIT (|htSay| (MAKESTRING "{\\em ") |val| - (MAKESTRING "}\\space{1}")))) + (EXIT (|htSay| "{\\em " |val| + "}\\space{1}"))) (EXIT (DO ((G167913 |options| (CDR G167913)) (|x| NIL)) ((OR (ATOM G167913) (PROGN (SETQ |x| (CAR G167913)) NIL)) @@ -3808,13 +3773,13 @@ (AND (BOOT-EQUAL |val| 'T) (BOOT-EQUAL |x| '|on|))) (AND (NULL |val|) (BOOT-EQUAL |x| '|off|))) - (EXIT (|htSay| (MAKESTRING "{\\em ") |x| - (MAKESTRING "}\\space{1}")))) + (EXIT (|htSay| "{\\em " |x| + "}\\space{1}"))) (EXIT (|htMakePage| (CONS (CONS '|bcLispLinks| (CONS (CONS |x| - (CONS (MAKESTRING " ") + (CONS " " (CONS '|htSetSystemVariable| (CONS (CONS |variable| @@ -3835,8 +3800,8 @@ (|htMakePage| (CONS (CONS '|bcLinks| (CONS - (CONS (MAKESTRING "reset") - (CONS (MAKESTRING "") + (CONS "reset" + (CONS "" (CONS '|htSetSystemVariableKind| (CONS @@ -3876,8 +3841,8 @@ (NREVERSE (|htSystemVariables,fn| |$setOptions| NIL 'T))) - (|htInitPage| (MAKESTRING "System Variables") NIL) - (|htSay| (MAKESTRING "\\beginmenu")) + (|htInitPage| "System Variables" NIL) + (|htSay| "\\beginmenu") (SPADLET |lastHeading| NIL) (DO ((G167961 |table| (CDR G167961)) (G167879 NIL)) ((OR (ATOM G167961) @@ -3897,17 +3862,17 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (|htSay| (MAKESTRING "\\newline\\item ")) + (|htSay| "\\newline\\item ") (COND ((BOOT-EQUAL |heading| |lastHeading|) - (|htSay| (MAKESTRING "\\tab{8}"))) + (|htSay| "\\tab{8}")) ('T (|htSay| |heading| - (MAKESTRING "\\tab{8}")) + "\\tab{8}") (SPADLET |lastHeading| |heading|))) - (|htSay| (MAKESTRING "{\\em ") |name| + (|htSay| "{\\em " |name| '|}\\tab{22}| |message|) - (|htSay| (MAKESTRING "\\tab{80}")) + (|htSay| "\\tab{80}") (COND ((BOOT-EQUAL |key| 'FUNCTION) (COND @@ -3916,8 +3881,8 @@ (CONS (CONS '|bcLinks| (CONS - (CONS (MAKESTRING "reset") - (CONS (MAKESTRING "") + (CONS "reset" + (CONS "" (CONS |func| (CONS NIL NIL)))) NIL)) NIL))) @@ -3957,10 +3922,9 @@ (SPADLET |valuesOrFunction| (CADDDR |option|)) (|htSay| - (MAKESTRING - "\\newline\\tab{22}") + "\\newline\\tab{22}" |msg| - (MAKESTRING "\\tab{80}")) + "\\tab{80}") (|htSystemVariables,functionTail| |name| |class| |var| |valuesOrFunction|))))))))) @@ -3968,7 +3932,7 @@ (|htSystemVariables,displayOptions| |name| |key| |variable| |val| |options|))))))) - (|htSay| (MAKESTRING "\\endmenu")) (|htShowPage|))))))) + (|htSay| "\\endmenu") (|htShowPage|))))))) ;htSetSystemVariableKind(htPage,[variable,name,fun]) == ; value := htpLabelInputString(htPage,name) @@ -4018,7 +3982,7 @@ (DEFUN |htGloss| (|pattern|) (|htGlossPage| NIL - (OR (|dbNonEmptyPattern| |pattern|) (MAKESTRING "*")) 'T)) + (OR (|dbNonEmptyPattern| |pattern|) "*") 'T)) ;htGlossPage(htPage,pattern,tryAgain?) == ; $wildCard: local := char '_* @@ -4066,7 +4030,7 @@ (SEQ (PROGN (SPADLET |$wildCard| (|char| '*)) (COND - ((BOOT-EQUAL |pattern| (MAKESTRING "*")) + ((BOOT-EQUAL |pattern| "*") (|downlink| '|GlossaryPage|)) ('T (SPADLET |filter| (|pmTransFilter| |pattern|)) (SPADLET |grepForm| (|mkGrepPattern| |filter| '|none|)) @@ -4074,25 +4038,22 @@ (SPADLET |results| (|applyGrep| |grepForm| '|gloss|)) (SPADLET |defstream| (MAKE-INSTREAM - (STRCONC (|getEnv| (MAKESTRING "AXIOM")) - (MAKESTRING - "/algebra/glossdef.text")))) + (STRCONC (|getEnv| "AXIOM") + "/algebra/glossdef.text"))) (SPADLET |lines| (|gatherGlossLines| |results| |defstream|)) (SPADLET |heading| (COND - ((BOOT-EQUAL |pattern| (MAKESTRING "")) - (MAKESTRING "Glossary")) + ((BOOT-EQUAL |pattern| "") + "Glossary") ((NULL |lines|) - (CONS (MAKESTRING - "No glossary items match {\\em ") + (CONS "No glossary items match {\\em " (CONS |pattern| - (CONS (MAKESTRING "}") NIL)))) + (CONS "}" NIL)))) ('T - (CONS (MAKESTRING - "Glossary items matching {\\em ") + (CONS "Glossary items matching {\\em " (CONS |pattern| - (CONS (MAKESTRING "}") NIL)))))) + (CONS "}" NIL)))))) (COND ((NULL |lines|) (COND @@ -4109,25 +4070,25 @@ NIL)) ('T (|errorPage| |htPage| - (CONS (MAKESTRING "Sorry") + (CONS "Sorry" (CONS NIL (CONS - (CONS (MAKESTRING "\\centerline{") + (CONS "\\centerline{" (APPEND |heading| - (CONS (MAKESTRING "}") NIL))) + (CONS "}" NIL))) NIL))))))) ('T (|errorPage| |htPage| - (CONS (MAKESTRING "Sorry") + (CONS "Sorry" (CONS NIL (CONS (CONS - (MAKESTRING "\\centerline{") + "\\centerline{" (APPEND |heading| - (CONS (MAKESTRING "}") NIL))) + (CONS "}" NIL))) NIL))))))) ('T (|htInitPageNoScroll| NIL |heading|) - (|htSay| (MAKESTRING "\\beginscroll\\beginmenu")) + (|htSay| "\\beginscroll\\beginmenu") (DO ((G168058 |lines| (CDR G168058)) (|line| NIL)) ((OR (ATOM G168058) @@ -4137,31 +4098,29 @@ (SPADLET |tick| (|charPosition| |$tick| |line| 1)) - (|htSay| (MAKESTRING - "\\item{\\em \\menuitemstyle{}}\\tab{0}{\\em ") + (|htSay| "\\item{\\em \\menuitemstyle{}}\\tab{0}{\\em " (|escapeString| (SUBSTRING |line| 0 |tick|)) - (MAKESTRING "} ") + "} " (SUBSTRING |line| (PLUS |tick| 1) NIL)))))) - (|htSay| (MAKESTRING "\\endmenu ")) - (|htSay| (MAKESTRING "\\endscroll\\newline ")) + (|htSay| "\\endmenu ") + (|htSay| "\\endscroll\\newline ") (|htMakePage| (CONS (CONS '|bcLinks| (CONS - (CONS (MAKESTRING "Search") - (CONS (MAKESTRING "") + (CONS "Search" + (CONS "" (CONS '|htGlossSearch| (CONS NIL NIL)))) NIL)) NIL)) - (|htSay| (MAKESTRING - " for glossary entry matching ")) + (|htSay| " for glossary entry matching ") (|htMakePage| (CONS (CONS '|bcStrings| (CONS (CONS 24 - (CONS (MAKESTRING "*") + (CONS "*" (CONS '|filter| (CONS 'EM NIL)))) NIL)) NIL)) @@ -4311,17 +4270,14 @@ (|bcErrorPage| |s|)) ((NULL |s|) (|errorPage| NIL - (CONS (CONS (MAKESTRING "Missing search string") + (CONS (CONS "Missing search string" NIL) (CONS NIL - (CONS (MAKESTRING - "\\vspace{2}\\centerline{To select one of the greek letters:}\\newline ") + (CONS "\\vspace{2}\\centerline{To select one of the greek letters:}\\newline " (CONS - (MAKESTRING - "\\centerline{{\\em first} enter a search key into the input area}\\newline ") + "\\centerline{{\\em first} enter a search key into the input area}\\newline " (CONS - (MAKESTRING - "\\centerline{{\\em then } move the mouse cursor to the work {\\em search} and click}") + "\\centerline{{\\em then } move the mouse cursor to the work {\\em search} and click}" NIL))))))) ('T (SPADLET |filter| (|patternCheck| |s|)) (SPADLET |names| @@ -4341,13 +4297,12 @@ (CONS |x| |nonmatches|))))))) (SPADLET |matches| (NREVERSE |matches|)) (SPADLET |nonmatches| (NREVERSE |nonmatches|)) - (|htInitPage| (MAKESTRING "Greek Names") NIL) + (|htInitPage| "Greek Names" NIL) (COND ((NULL |matches|) (|htInitPage| - (CONS (MAKESTRING - "Greek names matching search string {\\em ") - (CONS |ss| (CONS (MAKESTRING "}") NIL))) + (CONS "Greek names matching search string {\\em " + (CONS |ss| (CONS "}" NIL))) NIL) (|htSay| '|\\vspace{2}\\centerline{Sorry, but no greek letters match your search string}\\centerline{{\\em | |ss| @@ -4355,32 +4310,29 @@ (|htShowPage|)) ('T (|htInitPage| - (CONS (MAKESTRING - "Greek letters matching search string {\\em ") - (CONS |ss| (CONS (MAKESTRING "}") NIL))) + (CONS "Greek letters matching search string {\\em " + (CONS |ss| (CONS "}" NIL))) NIL) (COND (|nonmatches| - (|htSay| (MAKESTRING - "The greek letters that {\\em match} your search string {\\em ") - |ss| (MAKESTRING "}:"))) + (|htSay| "The greek letters that {\\em match} your search string {\\em " + |ss| "}:")) ('T - (|htSay| (MAKESTRING "Your search string {\\em ") + (|htSay| "Your search string {\\em " |ss| '|} matches all of the greek letters:|))) - (|htSay| (MAKESTRING "{\\em \\table{")) + (|htSay| "{\\em \\table{") (DO ((G168158 |matches| (CDR G168158)) (|x| NIL)) ((OR (ATOM G168158) (PROGN (SETQ |x| (CAR G168158)) NIL)) NIL) - (SEQ (EXIT (|htSay| (MAKESTRING "{") |x| - (MAKESTRING "}"))))) - (|htSay| (MAKESTRING "}}\\vspace{1}")) + (SEQ (EXIT (|htSay| "{" |x| + "}")))) + (|htSay| "}}\\vspace{1}") (COND (|nonmatches| - (|htSay| (MAKESTRING - "The greek letters that {\\em do not match} your search string:{\\em \\table{")) + (|htSay| "The greek letters that {\\em do not match} your search string:{\\em \\table{") (DO ((G168167 |nonmatches| (CDR G168167)) (|x| NIL)) ((OR (ATOM G168167) @@ -4388,9 +4340,9 @@ (SETQ |x| (CAR G168167)) NIL)) NIL) - (SEQ (EXIT (|htSay| (MAKESTRING "{") |x| - (MAKESTRING "}"))))) - (|htSay| (MAKESTRING "}}")))) + (SEQ (EXIT (|htSay| "{" |x| + "}")))) + (|htSay| "}}"))) (|htShowPage|)))))))))) ;htTextSearch(filter) == @@ -4437,24 +4389,19 @@ (|bcErrorPage| |s|)) ((NULL |s|) (|errorPage| NIL - (CONS (CONS (MAKESTRING "Missing search string") + (CONS (CONS "Missing search string" NIL) (CONS NIL - (CONS (MAKESTRING - "\\vspace{2}\\centerline{To select one of the lines of text:}\\newline ") + (CONS "\\vspace{2}\\centerline{To select one of the lines of text:}\\newline " (CONS - (MAKESTRING - "\\centerline{{\\em first} enter a search key into the input area}\\newline ") + "\\centerline{{\\em first} enter a search key into the input area}\\newline " (CONS - (MAKESTRING - "\\centerline{{\\em then } move the mouse cursor to the work {\\em search} and click}") + "\\centerline{{\\em then } move the mouse cursor to the work {\\em search} and click}" NIL))))))) ('T (SPADLET |filter| |s|) (SPADLET |lines| - (CONS (MAKESTRING - "{{\\em Fruit flies} *like* a {\\em banana and califlower ears.}}") - (CONS (MAKESTRING - "{{\\em Sneak Sears Silas with Savings Snatch}}") + (CONS "{{\\em Fruit flies} *like* a {\\em banana and califlower ears.}}" + (CONS "{{\\em Sneak Sears Silas with Savings Snatch}}" NIL))) (DO ((G168191 |lines| (CDR G168191)) (|x| NIL)) ((OR (ATOM G168191) @@ -4469,13 +4416,12 @@ (CONS |x| |nonmatches|))))))) (SPADLET |matches| (NREVERSE |matches|)) (SPADLET |nonmatches| (NREVERSE |nonmatches|)) - (|htInitPage| (MAKESTRING "Text Matches") NIL) + (|htInitPage| "Text Matches" NIL) (COND ((NULL |matches|) (|htInitPage| - (CONS (MAKESTRING - "Lines matching search string {\\em ") - (CONS |s| (CONS (MAKESTRING "}") NIL))) + (CONS "Lines matching search string {\\em " + (CONS |s| (CONS "}" NIL))) NIL) (|htSay| '|\\vspace{2}\\centerline{Sorry, but no lines match your search string}\\centerline{{\\em | |s| @@ -4483,31 +4429,28 @@ (|htShowPage|)) ('T (|htInitPage| - (CONS (MAKESTRING - "Lines matching search string {\\em ") - (CONS |s| (CONS (MAKESTRING "}") NIL))) + (CONS "Lines matching search string {\\em " + (CONS |s| (CONS "}" NIL))) NIL) (COND (|nonmatches| - (|htSay| (MAKESTRING - "The lines that {\\em match} your search string {\\em ") - |s| (MAKESTRING "}:"))) + (|htSay| "The lines that {\\em match} your search string {\\em " + |s| "}:")) ('T - (|htSay| (MAKESTRING "Your search string {\\em ") + (|htSay| "Your search string {\\em " |s| '|} matches both lines:|))) - (|htSay| (MAKESTRING "{\\em \\table{")) + (|htSay| "{\\em \\table{") (DO ((G168200 |matches| (CDR G168200)) (|x| NIL)) ((OR (ATOM G168200) (PROGN (SETQ |x| (CAR G168200)) NIL)) NIL) - (SEQ (EXIT (|htSay| (MAKESTRING "{") |x| - (MAKESTRING "}"))))) - (|htSay| (MAKESTRING "}}\\vspace{1}")) + (SEQ (EXIT (|htSay| "{" |x| + "}")))) + (|htSay| "}}\\vspace{1}") (COND (|nonmatches| - (|htSay| (MAKESTRING - "The line that {\\em does not match} your search string:{\\em \\table{")) + (|htSay| "The line that {\\em does not match} your search string:{\\em \\table{") (DO ((G168209 |nonmatches| (CDR G168209)) (|x| NIL)) ((OR (ATOM G168209) @@ -4515,9 +4458,9 @@ (SETQ |x| (CAR G168209)) NIL)) NIL) - (SEQ (EXIT (|htSay| (MAKESTRING "{") |x| - (MAKESTRING "}"))))) - (|htSay| (MAKESTRING "}}")))) + (SEQ (EXIT (|htSay| "{" |x| + "}")))) + (|htSay| "}}"))) (|htShowPage|)))))))))) ;htTutorialSearch pattern == @@ -4544,24 +4487,23 @@ (OR (|dbNonEmptyPattern| |pattern|) (RETURN (|errorPage| NIL - (CONS (MAKESTRING "Empty search key") + (CONS "Empty search key" (CONS NIL (CONS - (MAKESTRING - "\\vspace{3}\\centerline{You must enter some search string") + "\\vspace{3}\\centerline{You must enter some search string" NIL))))))) (SPADLET |s| (|mkUnixPattern| |s|)) (SPADLET |source| - (MAKESTRING "$AXIOM/doc/hypertex/pages/ht.db")) - (SPADLET |target| (MAKESTRING "/tmp/temp.text.$SPADNUM")) - (OBEY (STRCONC (MAKESTRING "$AXIOM/lib/hthits") - (MAKESTRING " \"") |s| (MAKESTRING "\" ") - |source| (MAKESTRING " > ") |target|)) + "$AXIOM/doc/hypertex/pages/ht.db") + (SPADLET |target| "/tmp/temp.text.$SPADNUM") + (OBEY (STRCONC "$AXIOM/lib/hthits" + " \"" |s| "\" " + |source| " > " |target|)) (SPADLET |lines| (|dbReadLines| '|temp|)) (|htInitPageNoScroll| NIL - (CONS (MAKESTRING "Tutorial Pages mentioning {\\em ") - (CONS |pattern| (CONS (MAKESTRING "}") NIL)))) - (|htSay| (MAKESTRING "\\beginscroll\\table{")) + (CONS "Tutorial Pages mentioning {\\em " + (CONS |pattern| (CONS "}" NIL)))) + (|htSay| "\\beginscroll\\table{") (DO ((G168241 |lines| (CDR G168241)) (|line| NIL)) ((OR (ATOM G168241) (PROGN (SETQ |line| (CAR G168241)) NIL)) @@ -4570,12 +4512,12 @@ (SPADLET |LETTMP#1| (|dbParts| |line| 3 0)) (SPADLET |name| (CAR |LETTMP#1|)) (SPADLET |title| (CADR |LETTMP#1|)) - (|htSay| (CONS (MAKESTRING "{\\downlink{") + (|htSay| (CONS "{\\downlink{" (CONS |title| - (CONS (MAKESTRING "}{") + (CONS "}{" (CONS |name| - (CONS (MAKESTRING "}}") NIL)))))))))) - (|htSay| (MAKESTRING "}")) + (CONS "}}" NIL)))))))))) + (|htSay| "}") (|htShowPage|)))))) ;mkUnixPattern s == @@ -4620,15 +4562,15 @@ NIL) (SEQ (EXIT (SPADLET |u| (STRCONC (SUBSTRING |u| 0 |i|) - (MAKESTRING ".*") + ".*" (SUBSTRING |u| (PLUS |i| 1) NIL)))))) (COND ((NEQUAL (ELT |u| 0) |$wild|) - (SPADLET |u| (STRCONC (MAKESTRING "[^a-zA-Z]") |u|))) + (SPADLET |u| (STRCONC "[^a-zA-Z]" |u|))) ('T (SPADLET |u| (SUBSTRING |u| 1 NIL)))) (COND ((NEQUAL (ELT |u| (SPADLET |k| (MAXINDEX |u|))) |$wild|) - (SPADLET |u| (STRCONC |u| (MAKESTRING "[^a-zA-Z]")))) + (SPADLET |u| (STRCONC |u| "[^a-zA-Z]"))) ('T (SPADLET |u| (SUBSTRING |u| 0 |k|)))) |u|))))) diff --git a/src/interp/htcheck.lisp.pamphlet b/src/interp/htcheck.lisp.pamphlet index f3f2231..de7f665 100644 --- a/src/interp/htcheck.lisp.pamphlet +++ b/src/interp/htcheck.lisp.pamphlet @@ -99,8 +99,8 @@ (SEQ (PROGN (SPADLET |$htMacroTable| (MAKE-HASHTABLE 'UEQUAL)) (SPADLET |fn| - (CONCAT (|getEnv| (MAKESTRING "AXIOM")) - (MAKESTRING "/doc/util.ht"))) + (CONCAT (|getEnv| "AXIOM") + "/doc/util.ht")) (COND ((PROBE-FILE |fn|) (SPADLET |instream| (MAKE-INSTREAM |fn|)) @@ -134,7 +134,7 @@ (SEQ (EXIT (HPUT |$htMacroTable| |s| |n|))))) ('T (|sayBrightly| - (MAKESTRING "Warning: macro table not found")))) + "Warning: macro table not found"))) |$htMacroTable|))))) ;READLINE(:s) == @@ -166,7 +166,7 @@ (PROG (|k| |command| |m| |i| |j| |digitString| |numOfArgs|) (RETURN (SEQ (COND - ((NULL (|stringPrefix?| (MAKESTRING "\\newcommand{") + ((NULL (|stringPrefix?| "\\newcommand{" |line|)) NIL) ('T (SPADLET |k| (|charPosition| (|char| '}) |line| 11)) @@ -266,7 +266,7 @@ (|member| |arg| (ELT |tree| 4))) ((BOOT-EQUAL |kind| 'INTEGER) (INTEGERP |arg|)) ((BOOT-EQUAL |kind| 'FUNCTION) (ATOM |arg|)) - ('T (|systemError| (MAKESTRING "unknown tree branch"))))))))) + ('T (|systemError| "unknown tree branch")))))))) ;buildHtMacroTable() diff --git a/src/interp/i-analy.lisp.pamphlet b/src/interp/i-analy.lisp.pamphlet index 59283e2..aaf230d 100644 --- a/src/interp/i-analy.lisp.pamphlet +++ b/src/interp/i-analy.lisp.pamphlet @@ -964,7 +964,7 @@ (SPADLET |ms| (|bottomUp| |pred|)) (COND ((NEQUAL |$Boolean| (CAR |ms|)) - (|throwKeyedMsg| (MAKESTRING "S2IB0001") (CONS |name| NIL))) + (|throwKeyedMsg| "S2IB0001" (CONS |name| NIL))) ('T |ms|)))))) ;bottomUpCompilePredicate(pred, name) == @@ -1016,7 +1016,7 @@ (COND ((SPADLET |m| (|isType| |t|)) (|bottomUpType| |t| |m|)) ((EQ |id| '|noMapVal|) - (|throwKeyedMsg| (MAKESTRING "S2IB0002") NIL)) + (|throwKeyedMsg| "S2IB0002" NIL)) ((EQ |id| '|noBranch|) (|keyedSystemError| 'S2GE0016 (CONS "bottomUpIdentifier" @@ -1127,7 +1127,7 @@ ((SPADLET |m| (|getMode| |t|)) (COND ((AND (PAIRP |m|) (EQ (QCAR |m|) '|Mapping|)) - (|throwKeyedMsg| (MAKESTRING "S2IB0003") + (|throwKeyedMsg| "S2IB0003" (CONS (|getUnname| |t|) NIL))) ('T (COND @@ -1716,14 +1716,14 @@ ((NULL |$genValue|) (SPADLET |amsl| (|printableArgModeSetList|)) (|throwKeyedMsgSP| 'S2IB0008 - (CONS (MAKESTRING "the union object") + (CONS "the union object" (CONS |amsl| NIL)) |op|)) ('T (SPADLET |object| (|retract| (|getValue| |op|))) (COND ((BOOT-EQUAL |object| '|failed|) (|throwKeyedMsgSP| 'S2IB0008 - (CONS (MAKESTRING "the union object") + (CONS "the union object" (CONS |amsl| NIL)) |op|)) ('T @@ -1782,7 +1782,7 @@ (COND ((SPADLET |o| (|getValue| |op0|)) (|prefix2String| (|objMode| |o|))) - ('T (MAKESTRING "")))) + ('T ""))) (SPADLET |msgKey| (COND ((NULL |amsl|) 'S2IB0013) @@ -1949,8 +1949,8 @@ (SPADLET |val| (|fetchOutput| |i|)) (|putValue| |op| |val|) (|putModeSet| |op| (CONS (|objMode| |val|) NIL))) - ('T (|throwKeyedMsgSP| (MAKESTRING "S2IB0006") NIL |t|)))) - ('T (|throwKeyedMsgSP| (MAKESTRING "S2IB0006") NIL |op|))))))) + ('T (|throwKeyedMsgSP| "S2IB0006" NIL |t|)))) + ('T (|throwKeyedMsgSP| "S2IB0006" NIL |op|))))))) ;bottomUpFormRetract(t,op,opName,argl,amsl) == ; -- tries to find one argument, which can be pulled back, and calls diff --git a/src/interp/i-coerce.lisp.pamphlet b/src/interp/i-coerce.lisp.pamphlet index 5a01c10..81d6719 100644 --- a/src/interp/i-coerce.lisp.pamphlet +++ b/src/interp/i-coerce.lisp.pamphlet @@ -853,7 +853,7 @@ The special routines that do the coercions typically involve a "2" ((AND (PAIRP |t1|) (PROGN (SPADLET D (QCAR |t1|)) 'T)) (SPADLET |fun| (OR (GETL D '|retract|) - (INTERN (STRCONC (MAKESTRING "retract") + (INTERN (STRCONC "retract" (STRINGIMAGE D))))) (COND ((|functionp| |fun|) (PUT D '|retract| |fun|) @@ -915,7 +915,7 @@ The special routines that do the coercions typically involve a "2" (SPADLET |val| (|objValUnwrap| |object|)) (SPADLET |target| (CONS '|Union| - (CONS |u| (CONS (MAKESTRING "failed") NIL)))) + (CONS |u| (CONS "failed" NIL)))) (SPADLET |funName| '|retractIfCan|) (COND (|$reportBottomUpFlag| @@ -3596,7 +3596,7 @@ Interpreter Coercion Query Functions (|$reportBottomUpFlag| (|sayFunctionSelection| '|map| |args| |t2| NIL - (MAKESTRING "coercion facility (map)")))) + "coercion facility (map)"))) (SPADLET |mms| (|selectMms1| '|map| |t2| |args| |args| NIL)) @@ -4007,7 +4007,7 @@ Interpreter Coercion Query Functions (PROGN (SPADLET D (QCAR |source|)) 'T)) (SPADLET |fun| (OR (GETL D '|coerceCommute|) - (INTERN (STRCONC (MAKESTRING "commute") + (INTERN (STRCONC "commute" (STRINGIMAGE D))))) (COND ((|functionp| |fun|) (PUT D '|coerceCommute| |fun|) diff --git a/src/interp/i-eval.lisp.pamphlet b/src/interp/i-eval.lisp.pamphlet index c29e942..1fdbf6f 100644 --- a/src/interp/i-eval.lisp.pamphlet +++ b/src/interp/i-eval.lisp.pamphlet @@ -1268,7 +1268,7 @@ the alternate polynomial types of Symbols. ((QUOTE T) (SPADLET |t'| (|coerceOrRetract| |t'| |t|)) (AND |t'| (|wrapped2Quote| (|objVal| |t'|)))))) - ((QUOTE T) (|systemErrorHere| (MAKESTRING "getArgValue"))))))) + ((QUOTE T) (|systemErrorHere| "getArgValue")))))) ;getArgValue2(a,t,se?,opName) == ; se? and (objMode(getValue a) ^= t) => @@ -1470,7 +1470,7 @@ the alternate polynomial types of Symbols. (DEFUN |failCheck| (|x|) (declare (special |$coerceFailure| |$String|)) (COND - ((BOOT-EQUAL |x| (MAKESTRING "failed")) + ((BOOT-EQUAL |x| "failed") (|stopTimingProcess| (|peekTimedName|)) (THROW (QUOTE |interpreter|) (|objNewWrap| "failed" |$String|))) ((BOOT-EQUAL |x| |$coerceFailure|) NIL) diff --git a/src/interp/i-intern.lisp.pamphlet b/src/interp/i-intern.lisp.pamphlet index 5c7d1cb..1e23d5a 100644 --- a/src/interp/i-intern.lisp.pamphlet +++ b/src/interp/i-intern.lisp.pamphlet @@ -126,8 +126,8 @@ Maker of attrib tree from parser form ((QUOTE T) (SPADLET |fn| (|lnPlaceOfOrigin| (|poGetLineObject| |pos|))) (COND - ((OR (NULL |fn|) (BOOT-EQUAL |fn| (MAKESTRING "strings"))) - (SPADLET |fn| (MAKESTRING "console")))) + ((OR (NULL |fn|) (BOOT-EQUAL |fn| "strings")) + (SPADLET |fn| "console"))) (|putSrcPos| |atree| |fn| (|pfSourceText| |pf|) (|pfLinePosn| |pos|) @@ -278,7 +278,7 @@ we match the correct number of args (RETURN (COND ((NULL |x|) - (|throwKeyedMsg| (QUOTE S2IP0005) (CONS (MAKESTRING "NIL") NIL))) + (|throwKeyedMsg| (QUOTE S2IP0005) (CONS "NIL" NIL))) ((VECP |x|) |x|) ((ATOM |x|) (COND @@ -300,7 +300,7 @@ we match the correct number of args (SPADLET |argl| (QCDR |x|)) (QUOTE T))) (|mkAtree2| |x| |op| |argl|)) - ((QUOTE T) (|systemErrorHere| (MAKESTRING "mkAtree1"))))))) + ((QUOTE T) (|systemErrorHere| "mkAtree1")))))) @ \subsection{mkAtree2} @@ -732,7 +732,7 @@ mkAtree2 and mkAtree3 were created because mkAtree1 got so big (EXIT (IF (BOOT-EQUAL |a| |b|) |a| - (|throwMessage| (MAKESTRING " double declaration of parameter"))))) + (|throwMessage| " double declaration of parameter")))) (EXIT (OR |a| |b|)))) (DEFUN |mkAtree3| (|x| |op| |argl|) @@ -1410,7 +1410,7 @@ Transforms from an atree back into a tree ((BOOT-EQUAL |newOp| (QUOTE |Dollar|)) (SPADLET |newOp| (QUOTE |$elt|)))) (CONS |newOp| (|unVectorize| |argl|))) - ((QUOTE T) (|systemErrorHere| (MAKESTRING "unVectorize"))))))) + ((QUOTE T) (|systemErrorHere| "unVectorize")))))) @ \section{Stuffing and Getting Info} @@ -1998,7 +1998,7 @@ May be a number or a vector ((SPADLET |u| (|get| |id| (QUOTE |value|) |e|)) (COND ((BOOT-EQUAL (|objMode| |u|) |$EmptyMode|) - (|systemErrorHere| (MAKESTRING "getValueFromSpecificEnvironment"))) + (|systemErrorHere| "getValueFromSpecificEnvironment")) ((QUOTE T) (SPADLET |v| (|objValUnwrap| |u|)) (COND @@ -2477,8 +2477,8 @@ by x. x is a VAT. (SPADLET |col| (|srcPosColumn| |sp|)) (SPADLET |dots| (COND - ((EQL |col| 0) (MAKESTRING "")) - ((QUOTE T) (|fillerSpaces| |col| (MAKESTRING "."))))) + ((EQL |col| 0) "") + ((QUOTE T) (|fillerSpaces| |col| ".")))) (|sayBrightly| (CONS (|fillerSpaces| (|#| |s|) " ") (CONS |dots| (CONS "^" NIL)))) (QUOTE T)))))) diff --git a/src/interp/i-map.lisp.pamphlet b/src/interp/i-map.lisp.pamphlet index ebd9d1c..064f35e 100644 --- a/src/interp/i-map.lisp.pamphlet +++ b/src/interp/i-map.lisp.pamphlet @@ -94,7 +94,7 @@ (COND ((OR (> 7 |sz|) (NEQUAL (|char| '*) (ELT |name'| 0))) NIL) ((NULL (DIGITP (ELT |name'| 1))) NIL) - ((NULL (STRPOS (MAKESTRING ";") |name'| 1 NIL)) NIL) + ((NULL (STRPOS ";" |name'| 1 NIL)) NIL) ('T 'T))))))) ;makeInternalMapMinivectorName(name) == @@ -104,18 +104,18 @@ (DEFUN |makeInternalMapMinivectorName| (|name|) (COND - ((STRINGP |name|) (INTERN (STRCONC |name| (MAKESTRING ";MV")))) - ('T (INTERN (STRCONC (PNAME |name|) (MAKESTRING ";MV")))))) + ((STRINGP |name|) (INTERN (STRCONC |name| ";MV"))) + ('T (INTERN (STRCONC (PNAME |name|) ";MV"))))) ;mkCacheName(name) == INTERNL(STRINGIMAGE name,'";AL") (DEFUN |mkCacheName| (|name|) - (INTERNL (STRINGIMAGE |name|) (MAKESTRING ";AL"))) + (INTERNL (STRINGIMAGE |name|) ";AL")) ;mkAuxiliaryName(name) == INTERNL(STRINGIMAGE name,'";AUX") (DEFUN |mkAuxiliaryName| (|name|) - (INTERNL (STRINGIMAGE |name|) (MAKESTRING ";AUX"))) + (INTERNL (STRINGIMAGE |name|) ";AUX")) ;--% Adding a function definition ;isMapExpr x == x is ['MAP,:.] @@ -1783,7 +1783,7 @@ (EXIT (SETQ G167142 (APPEND G167142 - (CONS (MAKESTRING " ") + (CONS " " (CONS |map| NIL))))))))) NIL)))))) ('T (PUSH |mapAndArgTypes| |$analyzingMapList|) @@ -1890,7 +1890,7 @@ (COND (|$reportInterpOnly| (|sayMSG| |msg|) (|sayMSG| - (MAKESTRING " We will attempt to interpret the code.")))) + " We will attempt to interpret the code."))) (COND ((NULL |$compilingMap|) (THROW '|loopCompiler| '|tryInterpOnly|)) @@ -2599,7 +2599,7 @@ (CONS (COND ((PAIRP |sig|) (|prefix2String| (CAR |sig|))) - ('T (MAKESTRING "?"))) + ('T "?")) NIL)))) ('T (|sayKeyedMsg| 'S2IM0015 @@ -3667,7 +3667,7 @@ ; INTERN CONCAT('"#",STRINGIMAGE i) (DEFUN |mkSharpVar| (|i|) - (INTERN (CONCAT (MAKESTRING "#") (STRINGIMAGE |i|)))) + (INTERN (CONCAT "#" (STRINGIMAGE |i|)))) ;mapPredTran pred == ; -- transforms "x in i..j" to "x>=i and x<=j" diff --git a/src/interp/i-output.lisp.pamphlet b/src/interp/i-output.lisp.pamphlet index a355a91..baac0a3 100644 --- a/src/interp/i-output.lisp.pamphlet +++ b/src/interp/i-output.lisp.pamphlet @@ -81,9 +81,9 @@ ((ATOM |o|) (COND ((STRINGP |o|) |o|) - ((BOOT-EQUAL |o| '| |) (MAKESTRING " ")) - ((BOOT-EQUAL |o| '|)|) (MAKESTRING ")")) - ((BOOT-EQUAL |o| '|(|) (MAKESTRING "(")) + ((BOOT-EQUAL |o| '| |) " ") + ((BOOT-EQUAL |o| '|)|) ")") + ((BOOT-EQUAL |o| '|(|) "(") ('T (STRINGIMAGE |o|)))) ('T (APPLY 'STRCONC @@ -430,7 +430,7 @@ these functions return an updated ``layout so far'' in general (RETURN (SEQ (COND ((|member| |x| '("failed" "nil" "prime" "sqfr" "irred")) - (STRCONC (MAKESTRING "\"") |x| (MAKESTRING "\""))) + (STRCONC "\"" |x| "\"")) ((STRINGP |x|) |x|) ((VECP |x|) (|outputTran| @@ -727,7 +727,7 @@ these functions return an updated ``layout so far'' in general (SPADLET |targ'| (CONS 'PAREN (CONS |targ'| NIL))))) (CONS 'CONCAT (CONS (|outputTran| (CONS |fun| |l|)) - (CONS (MAKESTRING "$") (CONS |targ'| NIL))))) + (CONS "$" (CONS |targ'| NIL))))) ((OR (AND (PAIRP |x|) (EQ (QCAR |x|) '|$elt|) (PROGN (SPADLET |ISTMP#1| (QCDR |x|)) @@ -760,7 +760,7 @@ these functions return an updated ``layout so far'' in general (SPADLET |targ'| (CONS 'PAREN (CONS |targ'| NIL))))) (CONS 'CONCAT (CONS (|outputTran| |c|) - (CONS (MAKESTRING "$") (CONS |targ'| NIL))))) + (CONS "$" (CONS |targ'| NIL))))) ((AND (PAIRP |x|) (EQ (QCAR |x|) '-) (PROGN (SPADLET |ISTMP#1| (QCDR |x|)) @@ -863,7 +863,7 @@ these functions return an updated ``layout so far'' in general (PROGN (SPADLET |foo3| (QCAR |ISTMP#2|)) 'T))))) - (BOOT-EQUAL |op'| (MAKESTRING "*")) + (BOOT-EQUAL |op'| "*") (OR (AND (PAIRP |foo3|) (EQ (QCAR |foo3|) '|log|) (PROGN (SPADLET |ISTMP#1| (QCDR |foo3|)) @@ -1299,7 +1299,7 @@ NIL (SPADLET |arg'| (CAR |LETTMP#1|)) (SPADLET |def'| (CDR |LETTMP#1|)) (SPADLET |arg'| (|outputTran| |arg'|)) - (COND ((NULL |arg'|) (SPADLET |arg'| (MAKESTRING "()")))) + (COND ((NULL |arg'|) (SPADLET |arg'| "()"))) (CONS 'CONCATB (CONS |$op| (CONS (|outputTran| |arg'|) @@ -1787,7 +1787,7 @@ NIL (SPADLET |init| (CADDR G167334)) (SPADLET |one| (CADDDR G167334)) (SPADLET |optFinal| (CDDDDR G167334)) - (SPADLET |d| (|appChar| (MAKESTRING "for ") |x| |y| |d|)) + (SPADLET |d| (|appChar| "for " |x| |y| |d|)) (SPADLET |d| (APP |a| (SPADLET |w| (PLUS |x| 4)) |y| |d|)) (SPADLET |d| (|appChar| " in " (SPADLET |w| (PLUS |w| (WIDTH |a|))) @@ -2219,7 +2219,7 @@ NIL ('T '+))) (SPADLET |opString| (OR (GETL |infixOp| 'INFIXOP) - (MAKESTRING ","))) + ",")) (SPADLET |d| (APP |opString| |x| |y| |d|)) (SPADLET |x| (PLUS |x| (WIDTH |opString|))) (SPADLET |arg| (|absym| |arg|)) @@ -2281,7 +2281,7 @@ NIL NIL)))) ('T (SPADLET |opString| - (OR (GETL |op| 'INFIXOP) (MAKESTRING ","))) + (OR (GETL |op| 'INFIXOP) ",")) (SPADLET |opWidth| (WIDTH |opString|)) (SPADLET |frst| (CADR |e|)) (SPADLET |rst| (CDDR |e|)) @@ -3027,8 +3027,8 @@ NIL (COND ((BOOT-EQUAL |name| |firstName|) - (MAKESTRING "where ")) - ('T (MAKESTRING "and ")))) + "where ") + ('T "and "))) (SPADLET |line| (STRCONC |andWhere| (PNAME |name|))) @@ -3529,7 +3529,7 @@ NIL (SPADLET |opCode| (COND ((BOOT-EQUAL |kind| '|sigma|) - (CONS (CONS '(0 . 0) (MAKESTRING ">")) + (CONS (CONS '(0 . 0) ">") (CONS (CONS '(0 . 1) (|specialChar| '|hbar|)) (CONS (CONS '(0 . -1) (|specialChar| '|hbar|)) @@ -3946,8 +3946,7 @@ NIL (|sayALGEBRA| (CONS '|%l| (CONS '|%b| - (CONS (MAKESTRING - " Too wide to Print") + (CONS " Too wide to Print" (CONS '|%d| NIL))))) (THROW '|output| NIL)) ('T @@ -4241,8 +4240,8 @@ NIL (|compiledLookup| '|print| '($) (|TextWriter|)))) (|sayMSGNT| - (APPEND (|bright| (MAKESTRING "AXIOM-XL")) - (CONS (MAKESTRING "output: ") NIL))) + (APPEND (|bright| "AXIOM-XL") + (CONS "output: " NIL))) (SPADCALL (SPADCALL |textwrit|) |expr| |printfun|) (|sayMSGNT| '|%l|)) ((AND (PAIRP |domain|) (EQ (QCAR |domain|) '|Tuple|) @@ -4254,10 +4253,10 @@ NIL (CONS '|List| (CONS S NIL)))) ('T (|sayALGEBRA| - (APPEND (|bright| (MAKESTRING "LISP")) - (CONS (MAKESTRING "output:") + (APPEND (|bright| "LISP") + (CONS "output:" (CONS '|%l| - (CONS (OR |expr| (MAKESTRING "NIL")) + (CONS (OR |expr| "NIL") NIL))))))))))) ;outputNumber(start,linelength,num) == @@ -4293,9 +4292,9 @@ NIL ((> |start| 1) (SPADLET |blnks| (|fillerSpaces| (SPADDIFFERENCE |start| 1) - (MAKESTRING " ")))) - ('T (SPADLET |blnks| (MAKESTRING "")))) - (SPADLET |under| (MAKESTRING "_")) + " "))) + ('T (SPADLET |blnks| ""))) + (SPADLET |under| "_") (SPADLET |firsttime| (> |linelength| 3)) (COND ((> |linelength| 2) @@ -4323,7 +4322,7 @@ NIL (|firsttime| (SPADLET |blnks| (CONCAT |blnks| - (MAKESTRING " "))) + " ")) (SPADLET |linelength| (SPADDIFFERENCE |linelength| 1)) @@ -4360,8 +4359,8 @@ NIL ((> |start| 1) (SPADLET |blnks| (|fillerSpaces| (SPADDIFFERENCE |start| 1) - (MAKESTRING " ")))) - ('T (SPADLET |blnks| (MAKESTRING "")))) + " "))) + ('T (SPADLET |blnks| ""))) (DO () ((NULL (> (SIZE |str|) |linelength|)) NIL) (SEQ (EXIT (PROGN (COND @@ -4488,9 +4487,7 @@ NIL (COND (|x'| (|objValUnwrap| |x'|)) - ('T - (MAKESTRING - "unprintableObject"))))) + ('T "unprintableObject")))) G168949)))))))) (CONS |u| |argl|)))))) ('T |form|)))))) @@ -4712,7 +4709,7 @@ NIL (PROGN (SETQ |a| (CAR G169131)) NIL)) NIL) (SEQ (EXIT (|charyTop| |a| |start| |linelength|)))) - (MAKESTRING " ")) + " ") ((AND (PAIRP |u|) (PROGN (SPADLET |ISTMP#1| (QCAR |u|)) @@ -4776,7 +4773,7 @@ NIL (SEQ (EXIT (PROGN (|scylla| |n| |d|) (SPADLET |n| (SPADDIFFERENCE |n| 1)))))) - (MAKESTRING " "))))))))))) + " ")))))))))) ;charyTopWidth u == ; atom u => u @@ -5018,7 +5015,7 @@ NIL (COND ((CDR |u|) (|charybdis| (CONS 'ELSE (CDR |u|)) |start| |linelength|))) - (MAKESTRING " ")))))) + " "))))) ;charySemiColon(u,v,start,linelength) == ; for a in rest u repeat @@ -5042,10 +5039,10 @@ NIL (DEFUN |charyMinus| (|u| |v| |start| |linelength|) (declare (ignore |u|)) (PROGN - (|charybdis| (MAKESTRING "-") |start| |linelength|) + (|charybdis| "-" |start| |linelength|) (|charybdis| (ELT |v| 1) (PLUS |start| 3) (SPADDIFFERENCE |linelength| 3)) - (MAKESTRING " "))) + " ")) ;charyBinary(d,u,v,start,linelength) == ; d in '(" := " "= ") => @@ -5065,14 +5062,14 @@ NIL |start| |linelength|) (|charybdis| (ELT |v| 2) (PLUS |start| 2) (SPADDIFFERENCE |linelength| 2)) - (MAKESTRING " ")) + " ") ('T (|charybdis| (ELT |v| 1) (PLUS |start| 2) (SPADDIFFERENCE |linelength| 2)) (COND (|d| (|prnd| |start| |d|))) (|charybdis| (ELT |v| 2) (PLUS |start| 2) (SPADDIFFERENCE |linelength| 2)) - (MAKESTRING " ")))) + " "))) ;charyEquatnum(u,v,start,linelength) == ; charybdis(['PAREN,u.1],start,linelength) @@ -5085,7 +5082,7 @@ NIL (|charybdis| (CONS 'PAREN (CONS (ELT |u| 1) NIL)) |start| |linelength|) (|charybdis| (ELT |u| 2) |start| |linelength|) - (MAKESTRING " "))) + " ")) ;charySplit(u,v,start,linelength) == ; v:= [first v.0,:rest v] @@ -5120,7 +5117,7 @@ NIL (|charybdis| (ELT |v| 1) (PLUS |start| 2) (SPADDIFFERENCE |linelength| 2)) (COND - ((NULL (CDDR |v|)) (MAKESTRING " ")) + ((NULL (CDDR |v|)) " ") ('T (SPADLET |dm| (CDDR |v|)) (SPADLET |ddm| (CDR |dm|)) (|split2| |u| |dm| |ddm| |start| |linelength|)))) @@ -5158,7 +5155,7 @@ NIL (|prnd| |start| (COND ((SPADLET |d| (GETL (|keyp| |u|) 'INFIXOP)) |d|) - ('T (MAKESTRING ",")))) + ('T ","))) (RPLACD |dm| |ddm|) (SPADLET |m| (> (SPADDIFFERENCE |linelength| 2) @@ -5168,7 +5165,7 @@ NIL (COND (|m| (SPADDIFFERENCE |linelength| 2)) ('T |linelength|))) - (MAKESTRING " "))))) + " ")))) ;charyElse(u,v,start,linelength) == ; charybdis(v.1,start+3,linelength-3) @@ -5182,10 +5179,10 @@ NIL (|charybdis| (ELT |v| 1) (PLUS |start| 3) (SPADDIFFERENCE |linelength| 3)) (COND - ((NULL (CDDR |u|)) (MAKESTRING " ")) - ('T (|prnd| |start| (MAKESTRING ",")) + ((NULL (CDDR |u|)) " ") + ('T (|prnd| |start| ",") (|charybdis| (CONS 'ELSE (CDDR |v|)) |start| |linelength|) - (MAKESTRING " "))))) + " ")))) ;scylla(n,v) == ; y := LASSOC(n,v) @@ -5314,7 +5311,7 @@ NIL ;appagg(u,x,y,d) == appagg1(u,x,y,d,'",") (DEFUN |appagg| (|u| |x| |y| |d|) - (|appagg1| |u| |x| |y| |d| (MAKESTRING ","))) + (|appagg1| |u| |x| |y| |d| ",")) ;appagg1(u,x,y,d,s) == ; null u => d @@ -5340,7 +5337,7 @@ NIL ;appargs(u,x,y,d) == appargs1(u,x,y,d,'";") (DEFUN |appargs| (|u| |x| |y| |d|) - (|appargs1| |u| |x| |y| |d| (MAKESTRING ";"))) + (|appargs1| |u| |x| |y| |d| ";")) ;--Note that the definition of appargs1 below is identical to that of ;--appagg1 above except that the former calls appargs and the latter @@ -5371,9 +5368,9 @@ NIL (DEFUN |apprpar| (|x| |y| |y1| |y2| |d|) (COND ((OR (NULL *TALLPAR) (> 2 (SPADDIFFERENCE |y2| |y1|))) - (APP (MAKESTRING ")") |x| |y| |d|)) + (APP ")" |x| |y| |d|)) ('T - (APP (MAKESTRING ")") |x| |y2| + (APP ")" |x| |y2| (|apprpar1| |x| |y| |y1| (SPADDIFFERENCE |y2| 1) |d|))))) ;apprpar1(x, y, y1, y2, d) == @@ -5382,9 +5379,9 @@ NIL (DEFUN |apprpar1| (|x| |y| |y1| |y2| |d|) (COND - ((BOOT-EQUAL |y1| |y2|) (APP (MAKESTRING ")") |x| |y2| |d|)) + ((BOOT-EQUAL |y1| |y2|) (APP ")" |x| |y2| |d|)) ('T - (APP (MAKESTRING ")") |x| |y2| + (APP ")" |x| |y2| (|apprpar1| |x| |y| |y1| (SPADDIFFERENCE |y2| 1) |d|))))) ;applpar(x, y, y1, y2, d) == @@ -5394,9 +5391,9 @@ NIL (DEFUN |applpar| (|x| |y| |y1| |y2| |d|) (COND ((OR (NULL *TALLPAR) (> 2 (SPADDIFFERENCE |y2| |y1|))) - (APP (MAKESTRING "(") |x| |y| |d|)) + (APP "(" |x| |y| |d|)) ('T - (APP (MAKESTRING "(") |x| |y2| + (APP "(" |x| |y2| (|applpar1| |x| |y| |y1| (SPADDIFFERENCE |y2| 1) |d|))))) ;applpar1(x, y, y1, y2, d) == @@ -5405,9 +5402,9 @@ NIL (DEFUN |applpar1| (|x| |y| |y1| |y2| |d|) (COND - ((BOOT-EQUAL |y1| |y2|) (APP (MAKESTRING "(") |x| |y2| |d|)) + ((BOOT-EQUAL |y1| |y2|) (APP "(" |x| |y2| |d|)) ('T - (APP (MAKESTRING "(") |x| |y2| + (APP "(" |x| |y2| (|applpar1| |x| |y| |y1| (SPADDIFFERENCE |y2| 1) |d|))))) ;--The body of the function appelse assigns 6 local variables. @@ -5468,7 +5465,7 @@ NIL (SPADLET |d| (APP (CADR |u|) |x| |y| |d|)) (SPADLET |d| (APP (|agg| 2 |u|) |xptr| |yptr| |d|)) (SPADLET |xptr| (PLUS |xptr| (WIDTH (|agg| 2 |u|)))) - (SPADLET |d| (APP (MAKESTRING "=") |xptr| |yptr| |d|)) + (SPADLET |d| (APP "=" |xptr| |yptr| |d|)) (SPADLET |d| (APP (|agg| 3 |u|) (PLUS 1 |xptr|) |yptr| |d|)) (SPADLET |yptr| (PLUS (PLUS (PLUS |y| 1) (|superspan| (CADR |u|))) @@ -5538,8 +5535,8 @@ NIL ('T (SPADLET |ac| (|absym| (CAR |u|))) (SPADLET |sc| (COND - ((|syminusp| (CAR |u|)) (MAKESTRING "-")) - ('T (MAKESTRING "+")))) + ((|syminusp| (CAR |u|)) "-") + ('T "+"))) (SPADLET |dp| (|member| (|keyp| (|absym| (CAR |u|))) '(+ -))) (SPADLET |tempx| (PLUS (PLUS |x| (WIDTH |ac|)) (COND (|dp| 5) ('T 3)))) @@ -5598,7 +5595,7 @@ NIL ; appagg1(rest u, x, y, d, '";") (DEFUN |appsc| (|u| |x| |y| |d|) - (|appagg1| (CDR |u|) |x| |y| |d| (MAKESTRING ";"))) + (|appagg1| (CDR |u|) |x| |y| |d| ";")) ;appsetq(u, x, y, d) == ; w := WIDTH first u @@ -5613,7 +5610,7 @@ NIL (SPADLET |w| (WIDTH (CAR |u|))) (SPADLET |temparg1| (APP (CADR |u|) |x| |y| |d|)) (SPADLET |temparg2| - (APP (MAKESTRING ":") (PLUS |x| |w|) |y| |temparg1|)) + (APP ":" (PLUS |x| |w|) |y| |temparg1|)) (APP (CADR (CDR |u|)) (PLUS (PLUS |x| 2) |w|) |y| |temparg2|))))) ;appsub(u, x, y, d) == @@ -5653,7 +5650,7 @@ NIL (COND ((NULL |l|) |l|) ((EQ (SPADLET |a| (CAAR |l|)) 1) - (LIST 'CONCAT (CADR (CAR |l|)) (MAKESTRING " OTHERWISE"))) + (LIST 'CONCAT (CADR (CAR |l|)) " OTHERWISE")) ((EQCAR |a| 'COMPARG) (|starstarcond| (CONS (|transcomparg| (CADR |a|)) (CDR |l|)) |iforwhen|)) @@ -5663,7 +5660,7 @@ NIL ('T (LIST 'VCONCAT (|starstarcond| (CONS (CAR |l|) NIL) |iforwhen|) - (LIST 'VCONCAT (MAKESTRING " ") + (LIST 'VCONCAT " " (|starstarcond| (CDR |l|) |iforwhen|)))))))) ;eq0(u) == 0 @@ -5829,7 +5826,7 @@ NIL (PROGN (SPADLET |temparg1| (APP (CADR |u|) |x| |y| |d|)) (SPADLET |temparg2| - (APP (MAKESTRING "/") (PLUS |x| (WIDTH (CADR |u|))) + (APP "/" (PLUS |x| (WIDTH (CADR |u|))) |y| |temparg1|)) (APP (CADR (CDR |u|)) (PLUS (PLUS |x| 1) (WIDTH (CADR |u|))) |y| |temparg2|))))) @@ -5862,12 +5859,12 @@ NIL (SPADLET |y| (CAR |x|)) (SPADLET |u| (|remWidth| - (REVERSEWOC (CONS (MAKESTRING " ") (CDR |x|))))) + (REVERSEWOC (CONS " " (CDR |x|))))) (|charybdis| |u| |i| |n|) (COND ((NULL |$collectOutput|) (TERPRI |$algebraOutputStream|))) (|charybdis| (CONS 'ELSE (LIST |y|)) |i| |n|) - (MAKESTRING " "))))) + " ")))) ;appvertline(char, x, yl, yu, d) == ; yu < yl => d @@ -6329,9 +6326,9 @@ NIL (PROGN (COND ((BOOT-EQUAL |flag| - (MAKESTRING "ON")) + "ON") (SPADLET |flag| - (MAKESTRING "OFF")) + "OFF") (RETURN NIL))) (COND ((NULL |row|) @@ -6353,7 +6350,7 @@ NIL (RETURN (PROGN (SPADLET |flag| - (MAKESTRING "ON")) + "ON") NIL))))))) ('T (SPADLET |d| @@ -6541,7 +6538,7 @@ NIL (SETQ G169906 (CONS (LIST 'CONCAT - (MAKESTRING " ") |y|) + " " |y|) G169906))))))))) (DO () (NIL NIL) (SEQ (EXIT (PROGN @@ -6588,7 +6585,7 @@ NIL (COND (|$collectOutput| (TERPRI |$algebraOutputStream|))) - (SPADLET |ichr| (MAKESTRING " ")) + (SPADLET |ichr| " ") (SPADLET |u| |nextu|) (COND ((NULL |u|) (RETURN NIL)))))))))))) @@ -7261,7 +7258,7 @@ NIL (SPADLET |b| (CADR |u|)) (SPADLET |a| (CADDR |u|)) (SPADLET |w| (|vConcatWidth| |u|)) - (SPADLET |d| (APP (MAKESTRING "(") |x| |y| |d|)) + (SPADLET |d| (APP "(" |x| |y| |d|)) (SPADLET |x| (PLUS |x| 1)) (SPADLET |y1| (SPADDIFFERENCE |y| (|height| |a|))) (SPADLET |xoff| (QUOTIENT (SPADDIFFERENCE |w| (WIDTH |a|)) 2)) @@ -7270,7 +7267,7 @@ NIL (SPADLET |xoff| (QUOTIENT (SPADDIFFERENCE |w| (WIDTH |b|)) 2)) (SPADLET |d| (APP |b| (PLUS |x| |xoff|) |y2| |d|)) (SPADLET |x| (PLUS |x| |w|)) - (APP (MAKESTRING ")") |x| |y| |d|))))) + (APP ")" |x| |y| |d|))))) ;vConcatSub u == ; subspan u.1 + +/[height a for a in CDDR u] diff --git a/src/interp/i-resolv.lisp.pamphlet b/src/interp/i-resolv.lisp.pamphlet index 0c5843f..10011c1 100644 --- a/src/interp/i-resolv.lisp.pamphlet +++ b/src/interp/i-resolv.lisp.pamphlet @@ -385,7 +385,7 @@ this symmetric resolution is done the following way: (NULL (NULL |bad|))) NIL) (SEQ (EXIT (COND - ((BOOT-EQUAL |d| (MAKESTRING "failed")) + ((BOOT-EQUAL |d| "failed") (SPADLET |ud| (CONS |d| |ud|))) ((NULL (SPADLET |d'| (|resolveTT| |d| |t2|))) @@ -401,7 +401,7 @@ this symmetric resolution is done the following way: (NULL (NULL |bad|))) NIL) (SEQ (EXIT (COND - ((BOOT-EQUAL |d| (MAKESTRING "failed")) + ((BOOT-EQUAL |d| "failed") (SPADLET |ud| (APPEND |ud| (CONS |d| NIL)))) ((NULL (SPADLET |d'| @@ -1384,7 +1384,7 @@ this symmetric resolution is done the following way: NIL) (SEQ (EXIT (PROGN (SPADLET |sharp| - (INTERNL (MAKESTRING "#") + (INTERNL "#" (STRINGIMAGE |i|))) (COND ((BOOT-EQUAL |sharp| |pat|) diff --git a/src/interp/i-spec1.lisp.pamphlet b/src/interp/i-spec1.lisp.pamphlet index 814b1fb..d85ae8f 100644 --- a/src/interp/i-spec1.lisp.pamphlet +++ b/src/interp/i-spec1.lisp.pamphlet @@ -83,7 +83,7 @@ There are several special modes used in these functions: ;--% Void stuff ;voidValue() == '"()" -(DEFUN |voidValue| () (MAKESTRING "()")) +(DEFUN |voidValue| () "()") ;--% Handlers for Anonymous Function Definitions ;upADEF t == @@ -306,9 +306,9 @@ There are several special modes used in these functions: (SEQ (PROGN (SPADLET |$mapName| (|makeInternalMapName| - (MAKESTRING "anonymousFunction") (|#| |vars|) + "anonymousFunction" (|#| |vars|) |$anonymousMapCounter| - (MAKESTRING "internal"))) + "internal")) (SPADLET |$anonymousMapCounter| (PLUS 1 |$anonymousMapCounter|)) (SPADLET |$compilingMap| 'T) @@ -389,8 +389,7 @@ There are several special modes used in these functions: (SEQ (COND ((NULL (CAR |types|)) (|throwKeyedMsg| 'S2IS0056 NIL) (|throwMessage| - (MAKESTRING - " map result type needed but not present."))) + " map result type needed but not present.")) ('T (SPADLET |arglCode| (CONS 'LIST @@ -660,7 +659,7 @@ There are several special modes used in these functions: (|objValUnwrap| |canonicalAE|) NIL))))) (SPADLET |saeTypeSynonym| - (INTERN (STRCONC (MAKESTRING "SAE") + (INTERN (STRCONC "SAE" (STRINGIMAGE |a|)))) (SPADLET |saeTypeSynonymValue| (|objNew| |sae| '(|Domain|))) @@ -679,18 +678,18 @@ There are several special modes used in these functions: (|sayMSG| (|concat| (CONS '|%l| - (CONS (MAKESTRING " ") + (CONS " " (CONS |saeTypeSynonym| - (CONS (MAKESTRING " := ") + (CONS " := " (|prefix2String| (|objVal| |saeTypeSynonymValue|)))))))) (|sayMSG| (|concat| - (CONS (MAKESTRING " ") + (CONS " " (CONS |a| - (CONS (MAKESTRING " : ") + (CONS " : " (CONS |saeTypeSynonym| - (CONS (MAKESTRING " := ") + (CONS " := " (CONS |a| NIL)))))))))) (|putValue| |op| T2) (|putModeSet| |op| (CONS |sae| NIL))))))))))) @@ -770,7 +769,7 @@ There are several special modes used in these functions: ((NULL (AND (PAIRP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) (|throwKeyedMsgSP| 'S2IS0054 - (CONS 1 (CONS (MAKESTRING "\"and\"") NIL)) |term1|)) + (CONS 1 (CONS "\"and\"" NIL)) |term1|)) (|$genValue| (COND ((|BooleanEquality| @@ -783,7 +782,7 @@ There are several special modes used in these functions: ((NULL (AND (PAIRP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) (|throwKeyedMsgSP| 'S2IS0054 - (CONS 2 (CONS (MAKESTRING "\"and\"") NIL)) + (CONS 2 (CONS "\"and\"" NIL)) |term2|)) ('T (|putValue| |x| (|getValue| |term2|)) (|putModeSet| |x| |ms|)))))) @@ -792,7 +791,7 @@ There are several special modes used in these functions: ((NULL (AND (PAIRP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) (|throwKeyedMsgSP| 'S2IS0054 - (CONS 2 (CONS (MAKESTRING "\"and\"") NIL)) |term2|)) + (CONS 2 (CONS "\"and\"" NIL)) |term2|)) ('T (SPADLET |cond| (CONS (|mkAtreeNode| '=) @@ -863,7 +862,7 @@ There are several special modes used in these functions: ((NULL (AND (PAIRP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) (|throwKeyedMsgSP| 'S2IS0054 - (CONS 1 (CONS (MAKESTRING "\"or\"") NIL)) |term1|)) + (CONS 1 (CONS "\"or\"" NIL)) |term1|)) (|$genValue| (COND ((|BooleanEquality| @@ -876,7 +875,7 @@ There are several special modes used in these functions: ((NULL (AND (PAIRP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) (|throwKeyedMsgSP| 'S2IS0054 - (CONS 2 (CONS (MAKESTRING "\"or\"") NIL)) + (CONS 2 (CONS "\"or\"" NIL)) |term2|)) ('T (|putValue| |x| (|getValue| |term2|)) (|putModeSet| |x| |ms|)))))) @@ -885,7 +884,7 @@ There are several special modes used in these functions: ((NULL (AND (PAIRP |ms|) (EQ (QCDR |ms|) NIL) (EQUAL (QCAR |ms|) |$Boolean|))) (|throwKeyedMsgSP| 'S2IS0054 - (CONS 2 (CONS (MAKESTRING "\"or\"") NIL)) |term2|)) + (CONS 2 (CONS "\"or\"" NIL)) |term2|)) ('T (SPADLET |cond| (CONS (|mkAtreeNode| '=) @@ -1551,11 +1550,9 @@ There are several special modes used in these functions: ('T (|keyedSystemError| 'S2GE0016 (CONS - (MAKESTRING - "transformCollect") + "transformCollect" (CONS - (MAKESTRING - "Unknown type of iterator") + "Unknown type of iterator" NIL)))))))))))))) (APPEND |iterList| (CONS |bodyTree| NIL))))))) @@ -1676,7 +1673,7 @@ There are several special modes used in these functions: 'T)))) (EXIT (|bottomUpCompilePredicate| - |pred| (MAKESTRING "until")))))))) + |pred| "until"))))))) (SPADLET |mode| (CONS '|Tuple| (CONS |m| NIL))) (|evalCOLLECT| |op| (CDR |t|) |mode|) (|putModeSet| |op| (CONS |mode| NIL))))))))))) @@ -1720,7 +1717,7 @@ There are several special modes used in these functions: (QCAR |ISTMP#1|)) 'T)))) (|bottomUpCompilePredicate| |pred| - (MAKESTRING "while"))) + "while")) ((AND (PAIRP |iter|) (EQ (QCAR |iter|) 'SUCHTHAT) (PROGN @@ -1732,7 +1729,7 @@ There are several special modes used in these functions: (QCAR |ISTMP#1|)) 'T)))) (|bottomUpCompilePredicate| |pred| - (MAKESTRING "|"))) + "|")) ((AND (PAIRP |iter|) (EQ (QCAR |iter|) 'UNTIL)) NIL) @@ -1881,7 +1878,7 @@ There are several special modes used in these functions: 'T))))))) (|throwKeyedMsg| 'S2IS0006 (CONS |index| NIL))) ('T (|put| |index| '|mode| |ud| |$env|) - (|mkLocalVar| (MAKESTRING "the iterator expression") + (|mkLocalVar| "the iterator expression" |index|))))))))) ;upLoopIterSTEP(index,lower,step,upperList) == @@ -1918,7 +1915,7 @@ There are several special modes used in these functions: ((NULL (OR (|typeIsASmallInteger| |ltype|) (|isEqualOrSubDomain| |ltype| |$Integer|))) (|throwKeyedMsg| 'S2IS0007 - (CONS (MAKESTRING "lower") NIL))) + (CONS "lower" NIL))) ('T (SPADLET |stype| (IFCAR (|bottomUpUseSubdomain| |step|))) @@ -1946,7 +1943,7 @@ There are several special modes used in these functions: (|isEqualOrSubDomain| |utype| |$Integer|))) (|throwKeyedMsg| 'S2IS0007 - (CONS (MAKESTRING "upper") NIL)))))))) + (CONS "upper" NIL)))))))) (COND (|utype| (SPADLET |types| (CONS |utype| |types|))) ('T (SPADLET |types| (CONS |stype| |types|)))) @@ -1954,7 +1951,7 @@ There are several special modes used in these functions: (|resolveTypeListAny| (REMDUP |types|))) (|put| |index| '|mode| |type| |$env|) (|mkLocalVar| - (MAKESTRING "the iterator expression") |index|))))))))))) + "the iterator expression" |index|))))))))))) ;evalCOLLECT(op,[:itrl,body],m) == ; iters := [evalLoopIter itr for itr in itrl] @@ -2789,7 +2786,7 @@ There are several special modes used in these functions: 'T)))))))) (|throwKeyedMsg| 'S2IS0006 (CONS |index| NIL))) ('T (|put| |index| '|mode| |ud| |$env|) - (|mkLocalVar| (MAKESTRING "the iterator expression") + (|mkLocalVar| "the iterator expression" |index|) (SPADLET |s| (COND @@ -2867,7 +2864,7 @@ There are several special modes used in these functions: |lower|))) |$Integer|)) (|throwKeyedMsg| 'S2IS0007 - (CONS (MAKESTRING "lower") NIL))) + (CONS "lower" NIL))) ((NULL (|isEqualOrSubDomain| (SPADLET |stype| (IFCAR (|bottomUpUseSubdomain| |step|))) @@ -2887,7 +2884,7 @@ There are several special modes used in these functions: |$Integer|)) (EXIT (|throwKeyedMsg| 'S2IS0007 - (CONS (MAKESTRING "upper") NIL)))))))) + (CONS "upper" NIL)))))))) (|put| |index| '|mode| (SPADLET |type| (|resolveTT| |ltype| |stype|)) @@ -2895,7 +2892,7 @@ There are several special modes used in these functions: (COND ((NULL |type|) (EXIT (|throwKeyedMsg| 'S2IS0010 NIL)))) - (|mkLocalVar| (MAKESTRING "the iterator expression") + (|mkLocalVar| "the iterator expression" |index|) (SPADLET |s| (COND @@ -3004,7 +3001,7 @@ There are several special modes used in these functions: (PROGN (SPADLET |ud| (QCAR |ISTMP#1|)) 'T)))))) - (|systemError| (MAKESTRING "Not a Stream"))) + (|systemError| "Not a Stream")) ('T (SPADLET |newVal| (|objNew| (|objVal| |val|) @@ -3148,7 +3145,7 @@ There are several special modes used in these functions: (SPADLET |indMode| (QCAR |ISTMP#1|)) 'T)))))) - (|keyedSystemError| (MAKESTRING "S2GE0016") + (|keyedSystemError| "S2GE0016" '("mkIterFun" "bad stream index type"))) ('T (|put| |index| '|mode| |indMode| |$env|) (|mkLocalVar| |$mapName| |index|) @@ -3553,7 +3550,7 @@ There are several special modes used in these functions: (PROGN (SPADLET |ud| (QCAR |ISTMP#1|)) 'T)))))) - (|systemError| (MAKESTRING "Not a Stream"))) + (|systemError| "Not a Stream")) ('T (SPADLET |newVal| (|objNew| (|objVal| |val|) @@ -4853,8 +4850,7 @@ There are several special modes used in these functions: ((|isWrapped| (|objVal| |triple|)) |triple|) ((|isLocalVar| (|objVal| |triple|)) (|compFailure| - (MAKESTRING - " Local variable or parameter used in type"))) + " Local variable or parameter used in type")) ('T (|objNewWrap| (|timedEVALFUN| (|objVal| |triple|)) (|objMode| |triple|)))))))) diff --git a/src/interp/i-spec2.lisp.pamphlet b/src/interp/i-spec2.lisp.pamphlet index 3ac0223..4fa3a2f 100644 --- a/src/interp/i-spec2.lisp.pamphlet +++ b/src/interp/i-spec2.lisp.pamphlet @@ -98,16 +98,16 @@ There are several special modes used in these functions: (COND ((OR (NULL (LISTP |def|)) (NULL |def|)) (|keyedSystemError| 'S2GE0016 - (CONS (MAKESTRING "upDEF") - (CONS (MAKESTRING "bad map definition") NIL)))) + (CONS "upDEF" + (CONS "bad map definition" NIL)))) ('T (SPADLET |mapOp| (CAR |def|)) (COND ((LISTP |mapOp|) (COND ((NULL |mapOp|) (|keyedSystemError| 'S2GE0016 - (CONS (MAKESTRING "upDEF") - (CONS (MAKESTRING "bad map definition") + (CONS "upDEF" + (CONS "bad map definition" NIL)))) ('T (SPADLET |mapOp| (CAR |mapOp|)))))) (|put| |mapOp| '|value| |v| |$e|) @@ -530,7 +530,7 @@ There are several special modes used in these functions: (declare (ignore |type|)) (PROGN (|sayKeyedMsg| 'S2IS0055 - (CONS (MAKESTRING "free") (CONS |var| NIL))) + (CONS "free" (CONS |var| NIL))) |var|)) ;uplocalWithType(var,type) == @@ -541,7 +541,7 @@ There are several special modes used in these functions: (declare (ignore |type|)) (PROGN (|sayKeyedMsg| 'S2IS0055 - (CONS (MAKESTRING "local") (CONS |var| NIL))) + (CONS "local" (CONS |var| NIL))) |var|)) ;--% Handlers for has @@ -635,7 +635,7 @@ There are several special modes used in these functions: (SPADLET |b| (QCAR |ISTMP#3|)) 'T))))))))) NIL) - ('T (|bottomUpPredicate| |cond| (MAKESTRING "if/when")) + ('T (|bottomUpPredicate| |cond| "if/when") (COND (|$genValue| (|interpIF| |op| |cond| |a| |b|)) ('T (|compileIF| |op| |cond| |a| |b| |t|)))))))) @@ -991,8 +991,8 @@ There are several special modes used in these functions: ((NULL (AND (PAIRP |mS|) (EQ (QCDR |mS|) NIL) (PROGN (SPADLET |m| (QCAR |mS|)) 'T))) (|keyedSystemError| 'S2GE0016 - (CONS (MAKESTRING "upisAndIsnt") - (CONS (MAKESTRING "non-unique modeset") NIL)))) + (CONS "upisAndIsnt" + (CONS "non-unique modeset" NIL)))) ('T (|putPvarModes| (|removeConstruct| |pattern|) |m|) (|evalis| |op| (CDR |t|) |m|) (|putModeSet| |op| (CONS |$Boolean| NIL)))))))) @@ -1464,9 +1464,8 @@ There are several special modes used in these functions: ('T (|isPatMatch| (CDR |l|) |restPats|)))) ('T (|keyedSystemError| 'S2GE0016 - (CONS (MAKESTRING "isPatMatch") - (CONS (MAKESTRING - "unknown form of is predicate") + (CONS "isPatMatch" + (CONS "unknown form of is predicate" NIL))))))))) ;--% Handler for iterate @@ -1484,7 +1483,7 @@ There are several special modes used in these functions: (RETURN (COND ((NULL |$repeatBodyLabel|) - (|throwKeyedMsg| 'S2IS0029 (CONS (MAKESTRING "iterate") NIL))) + (|throwKeyedMsg| 'S2IS0029 (CONS "iterate" NIL))) ('T (SPADLET |$iterateCount| (PLUS |$iterateCount| 1)) (SPADLET |code| (CONS 'THROW @@ -1518,7 +1517,7 @@ There are several special modes used in these functions: (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL))))) NIL) ((NULL |$repeatLabel|) - (|throwKeyedMsg| 'S2IS0029 (CONS (MAKESTRING "break") NIL))) + (|throwKeyedMsg| 'S2IS0029 (CONS "break" NIL))) ('T (SPADLET |$breakCount| (PLUS |$breakCount| 1)) (SPADLET |code| (CONS 'THROW @@ -1599,7 +1598,7 @@ There are several special modes used in these functions: (|upLETWithPatternOnLhs| |t|)) ((BOOT-EQUAL |var| 'QUOTE) (|throwKeyedMsg| 'S2IS0027 - (CONS (MAKESTRING "A quoted form") NIL))) + (CONS "A quoted form" NIL))) ('T (|upLETWithFormOnLhs| |op| |lhs| |rhs|)))) ('T (SPADLET |var| (|getUnname| |lhs|)) (COND @@ -1624,12 +1623,12 @@ There are several special modes used in these functions: (|putHist| |var| '|isInterpreterFunction| NIL |$e|) (|sayKeyedMsg| 'S2IS0049 - (CONS (MAKESTRING "Function") + (CONS "Function" (CONS |var| NIL)))) ((|get| |var| '|isInterpreterRule| |$e|) (|putHist| |var| '|isInterpreterRule| NIL |$e|) (|sayKeyedMsg| 'S2IS0049 - (CONS (MAKESTRING "Rule") (CONS |var| NIL)))) + (CONS "Rule" (CONS |var| NIL)))) ('T NIL)) (COND ((AND (NULL (|isTupleForm| |rhs|)) @@ -1844,12 +1843,9 @@ There are several special modes used in these functions: (|isSubDomain| |om| |dm|) (|isSubDomain| |dm| |om|)))) (|compFailure| - (CONS (MAKESTRING - " The type of the local variable") + (CONS " The type of the local variable" (APPEND (|bright| |name|) - (CONS - (MAKESTRING - "has changed in the computation.") + (CONS "has changed in the computation." NIL))))) ('T (COND @@ -1929,7 +1925,7 @@ There are several special modes used in these functions: (SPADLET |failCode| (CONS '|spadThrowBrightly| (CONS (CONS '|concat| - (CONS (MAKESTRING " Pattern") + (CONS " Pattern" (CONS (CONS 'QUOTE (CONS @@ -1937,8 +1933,7 @@ There are several special modes used in these functions: (|form2String| |pattern|)) NIL)) (CONS - (MAKESTRING - "is not matched in assignment to right-hand side.") + "is not matched in assignment to right-hand side." NIL)))) NIL))) (COND @@ -2307,7 +2302,7 @@ There are several special modes used in these functions: ((NEQUAL (|#| |args|) 1) (|throwKeyedMsg| 'S2IS0041 (CONS (CONS (|getUnname| |htOp|) - (CONS (MAKESTRING ".[") + (CONS ".[" (CONS (|getUnname| (CAR |args|)) (CONS (PROG (G167309) @@ -2328,11 +2323,11 @@ There are several special modes used in these functions: (SETQ G167309 (APPEND G167309 (CONS - (MAKESTRING ",") + "," (CONS (|getUnname| |arg|) NIL))))))))) - (CONS (MAKESTRING "]") NIL))))) + (CONS "]" NIL))))) NIL))) ('T (SPADLET |keyMode| '(|Any|)) (|putMode| |htOp| @@ -2476,8 +2471,7 @@ There are several special modes used in these functions: (OR G167374 (CONTAINED |var| |type|))))))))) (|compFailure| - (CONS (MAKESTRING - " Cannot compile type assignment to") + (CONS " Cannot compile type assignment to" (|bright| |opName|)))) ('T (SPADLET |mode| @@ -3107,12 +3101,8 @@ There are several special modes used in these functions: NIL) ('T (|keyedSystemError| 'S2GE0016 - (CONS - (MAKESTRING - "transformREPEAT") - (CONS - (MAKESTRING - "Unknown type of iterator") + (CONS "transformREPEAT" + (CONS "Unknown type of iterator" NIL)))))))))))))) (APPEND |iterList| (CONS |bodyTree| NIL))))))) @@ -3236,7 +3226,7 @@ There are several special modes used in these functions: 'T)))) (EXIT (|bottomUpCompilePredicate| - |pred| (MAKESTRING "until")))))))) + |pred| "until"))))))) (|evalREPEAT| |op| (CDR |t|) |repeatMode|) (|putModeSet| |op| (CONS |repeatMode| NIL))))))))))) @@ -3543,9 +3533,8 @@ There are several special modes used in these functions: (COND ((NULL (SPADLET |m| (|computedMode| (|last| |args|)))) (|keyedSystemError| 'S2GE0016 - (CONS (MAKESTRING "upSEQ") - (CONS (MAKESTRING - "last line of SEQ has no mode") + (CONS "upSEQ" + (CONS "last line of SEQ has no mode" NIL)))) ('T (|evalSEQ| |op| |args| |m|) (|putModeSet| |op| (CONS |m| NIL)))))))))) @@ -3953,9 +3942,8 @@ There are several special modes used in these functions: NIL) ((NULL |$genValue|) (|compFailure| - (APPEND (|bright| (MAKESTRING " where")) - (CONS (MAKESTRING - "for compiled code is not yet implemented.") + (APPEND (|bright| " where") + (CONS "for compiled code is not yet implemented." NIL)))) ('T (SPADLET |$whereCacheList| NIL) (SPADLET |LETTMP#1| diff --git a/src/interp/i-util.lisp.pamphlet b/src/interp/i-util.lisp.pamphlet index 96ef3e8..b169a26 100644 --- a/src/interp/i-util.lisp.pamphlet +++ b/src/interp/i-util.lisp.pamphlet @@ -105,7 +105,7 @@ lisp code is unwrapped. ; sayNewLine() (DEFUN |spadPrompt| () - (PROGN (SAY (MAKESTRING " AXIOM")) (|sayNewLine|))) + (PROGN (SAY " AXIOM") (|sayNewLine|))) ;inputPrompt str == ; -- replaces older INPUT-PROMPT @@ -285,12 +285,11 @@ lisp code is unwrapped. (|$reportBottomUpFlag| (|sayMessage| (|concat| - (CONS (MAKESTRING - " Retrospective determination of slot") + (CONS " Retrospective determination of slot" (CONS '|%b| (CONS |slot| (CONS '|%d| - (CONS (MAKESTRING "of") + (CONS "of" (CONS '|%b| (APPEND (|prefix2String| |domain|) diff --git a/src/interp/info.lisp.pamphlet b/src/interp/info.lisp.pamphlet index 35336a0..f621bf8 100644 --- a/src/interp/info.lisp.pamphlet +++ b/src/interp/info.lisp.pamphlet @@ -212,7 +212,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (CONS '|not| (CONS (|formatPred| |a|) NIL)) (CONS (|formatInfo| |c|) NIL)))))))) - ('T (|systemError| (MAKESTRING "formatInfo")))))))) + ('T (|systemError| "formatInfo"))))))) ;liftCond (clause is [ante,conseq]) == ; conseq is ["COND",:l] => @@ -331,7 +331,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (SEQ (EXIT (SETQ G166262 (CONS (|formatPred| |w|) G166262))))))))) - ('T (|systemError| (MAKESTRING "formatPred")))))))) + ('T (|systemError| "formatPred"))))))) ;chaseInferences(pred,$e) == ; foo hasToInfo pred where @@ -906,8 +906,8 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (SPADLET |vval| (CAR |LETTMP#1|)) (SPADLET |vmode| (CADR |LETTMP#1|)) (SPADLET |venv| (CADDR |LETTMP#1|)) - (SAY (MAKESTRING "augmenting ") |name| - (MAKESTRING ": ") |u|) + (SAY "augmenting " |name| + ": " |u|) (SPADLET |key| (COND ((CONTAINED '$ |vmode|) '|domain|) @@ -967,8 +967,8 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (SPADLET |vval| (CAR |LETTMP#1|)) (SPADLET |vmode| (CADR |LETTMP#1|)) (SPADLET |venv| (CADDR |LETTMP#1|)) - (SAY (MAKESTRING "augmenting ") |name| - (MAKESTRING ": ") |u|) + (SAY "augmenting " |name| + ": " |u|) (SPADLET |key| (COND ((CONTAINED '$ |vmode|) '|domain|) @@ -1048,8 +1048,8 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (APPEND |$functorLocalParameters| (CONS |viewName| NIL)))) ('T NIL)))) - (SAY (MAKESTRING "augmenting ") |name| - (MAKESTRING ": ") |cat|) + (SAY "augmenting " |name| + ": " |cat|) (SPADLET |$e| (|put| |name| '|value| (CONS |vval| @@ -1057,11 +1057,11 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) (CONS |venv| NIL))) |$e|))))) ('T - (SAY (MAKESTRING "extension of ") |vval| - (MAKESTRING " to ") |cat| - (MAKESTRING " ignored")) + (SAY "extension of " |vval| + " to " |cat| + " ignored") |$e|))) - ('T (|systemError| (MAKESTRING "knownInfo")))))))))) + ('T (|systemError| "knownInfo"))))))))) ;mkJoin(cat,mode) == ; mode is ['Join,:cats] => ['Join,cat,:cats] @@ -1092,8 +1092,7 @@ modemap is of the form : ((op (targ arg1 arg2 ... argn)) pred (elt $ n)) ('T (|systemError| (CONS |name| - (CONS (MAKESTRING - " is not bound in the current environment") + (CONS " is not bound in the current environment" NIL)))))))) @ diff --git a/src/interp/interop.lisp.pamphlet b/src/interp/interop.lisp.pamphlet index 39adeca..310030e 100644 --- a/src/interp/interop.lisp.pamphlet +++ b/src/interp/interop.lisp.pamphlet @@ -168,7 +168,7 @@ (CONS |DNameApplyID| (CONS (CONS |DNameStringID| (|StringToCompStr| - (MAKESTRING "->"))) + "->")) (CONS (CONS |DNameTupleID| (CDR |args|)) (CONS (CONS |DNameTupleID| @@ -774,27 +774,27 @@ ;$hashOp1 := hashString '"1" -(SPADLET |$hashOp1| (|hashString| (MAKESTRING "1"))) +(SPADLET |$hashOp1| (|hashString| "1")) ;$hashOp0 := hashString '"0" -(SPADLET |$hashOp0| (|hashString| (MAKESTRING "0"))) +(SPADLET |$hashOp0| (|hashString| "0")) ;$hashOpApply := hashString '"apply" -(SPADLET |$hashOpApply| (|hashString| (MAKESTRING "apply"))) +(SPADLET |$hashOpApply| (|hashString| "apply")) ;$hashOpSet := hashString '"set!" -(SPADLET |$hashOpSet| (|hashString| (MAKESTRING "set!"))) +(SPADLET |$hashOpSet| (|hashString| "set!")) ;$hashSeg := hashString '".." -(SPADLET |$hashSeg| (|hashString| (MAKESTRING ".."))) +(SPADLET |$hashSeg| (|hashString| "..")) ;$hashPercent := hashString '"%" -(SPADLET |$hashPercent| (|hashString| (MAKESTRING "%"))) +(SPADLET |$hashPercent| (|hashString| "%")) ;oldAxiomDomainLookupExport _ ; (domenv, self, op, sig, box, skipdefaults, env) == diff --git a/src/interp/iterator.lisp.pamphlet b/src/interp/iterator.lisp.pamphlet index 8abd72c..5f35110 100644 --- a/src/interp/iterator.lisp.pamphlet +++ b/src/interp/iterator.lisp.pamphlet @@ -342,9 +342,7 @@ (SPADLET |repeatOrCollect| 'COLLECTVEC) (EXIT (CADR |u|))))) - (|stackMessage| - (MAKESTRING - "Invalid collect bodytype")) + (|stackMessage| "Invalid collect bodytype") (EXIT (RETURN NIL))))) (EXIT |$NoValueMode|))) (PROGN diff --git a/src/interp/lisplib.lisp.pamphlet b/src/interp/lisplib.lisp.pamphlet index a6d0627..a807429 100644 --- a/src/interp/lisplib.lisp.pamphlet +++ b/src/interp/lisplib.lisp.pamphlet @@ -148,7 +148,7 @@ (SPADLET |p| (|pathname| (CONS |fn| - (CONS |ft| (CONS (MAKESTRING "*") NIL))))) + (CONS |ft| (CONS "*" NIL))))) (COND (|cache| (|hasFileProperty| |p| |id| |fn|)) ('T (|hasFilePropertyNoCache| |p| |id| |fn|)))))))) @@ -407,7 +407,7 @@ (COND ((BOOT-EQUAL (CATCH 'VERSIONCHECK (LOAD |fullLibName|)) (SPADDIFFERENCE 1)) - (PRINC (MAKESTRING " wrong library version...recompile ")) + (PRINC " wrong library version...recompile ") (PRINC |fullLibName|) (TERPRI) (TOPLEVEL)) ('T (|clearConstructorCache| |cname|) (|installConstructor| |cname| |kind|) @@ -769,9 +769,9 @@ ((NULL |nfile|) (SPADLET |nfile| |file|) (COND ((OR - (BOOT-EQUAL |fn| (MAKESTRING "*")) + (BOOT-EQUAL |fn| "*") (BOOT-EQUAL |fn| - (MAKESTRING "NIL"))) + "NIL")) (|sayKeyedMsg| 'S2IL0016 NIL)) ('T (|sayKeyedMsg| 'S2IL0003 @@ -781,7 +781,7 @@ NIL)) (COND ((AND (> (SIZE |ans|) 0) - (BOOT-EQUAL (MAKESTRING ")") + (BOOT-EQUAL ")" (SUBSTRING |ans| 0 1))) (SPADLET |n| 2)) ('T (SPADLET |n| 1))) @@ -1038,7 +1038,7 @@ (PROGN (COND ((EQ (CAR |df|) 'DEF) (CAR |df|))) (SPADLET |op| (CAADR |df|)) - (|sayMSG| (|fillerSpaces| 72 (MAKESTRING "-"))) + (|sayMSG| (|fillerSpaces| 72 "-")) (SPADLET $LISPLIB 'T) (SPADLET |$op| |op|) (SPADLET |$lisplibAttributes| NIL) @@ -1064,14 +1064,14 @@ (|compileDocumentation| |libName|)) ('T (|sayMSG| - (CONS (MAKESTRING " initializing ") + (CONS " initializing " (CONS |$spadLibFT| (APPEND (|bright| |libName|) - (CONS (MAKESTRING "for") + (CONS "for" (|bright| |op|)))))) (|initializeLisplib| |libName|) (|sayMSG| - (CONS (MAKESTRING " compiling into ") + (CONS " compiling into " (CONS |$spadLibFT| (|bright| |libName|)))) (SPADLET |ok| NIL) (UNWIND-PROTECT @@ -1079,7 +1079,7 @@ (SPADLET |res| (FUNCALL |fn| |df| |m| |e| |prefix| |fal|)) (|sayMSG| - (CONS (MAKESTRING " finalizing ") + (CONS " finalizing " (CONS |$spadLibFT| (|bright| |libName|)))) (|finalizeLisplib| |libName|) (SPADLET |ok| 'T)) @@ -1088,7 +1088,7 @@ (SPADLET |filearg| ($FILEP |libName| |$spadLibFT| |$libraryDirectory|)) (RPACKFILE |filearg|) (FRESH-LINE |$algebraOutputStream|) - (|sayMSG| (|fillerSpaces| 72 (MAKESTRING "-"))) + (|sayMSG| (|fillerSpaces| 72 "-")) (|unloadOneConstructor| |op| |libName|) (LOCALDATABASE (LIST (GETDATABASE |op| 'ABBREVIATION)) NIL) (SPADLET |$newConlist| (CONS |op| |$newConlist|)) @@ -1123,7 +1123,7 @@ (CONS (CONS 'FILE (CONS |libName| (CONS 'DOCLB NIL))) (CONS (CONS 'MODE 'O) NIL)))) - (|lisplibWrite| (MAKESTRING "documentation") + (|lisplibWrite| "documentation" (|finalizeDocumentation|) |stream|) (RSHUT |stream|) (RPACKFILE (CONS |libName| (CONS 'DOCLB NIL))) @@ -1253,25 +1253,25 @@ |$lisplibKind|)) (RETURN (SEQ (PROGN - (|lisplibWrite| (MAKESTRING "constructorForm") + (|lisplibWrite| "constructorForm" (|removeZeroOne| |$lisplibForm|) |$libFile|) - (|lisplibWrite| (MAKESTRING "constructorKind") + (|lisplibWrite| "constructorKind" (SPADLET |kind| (|removeZeroOne| |$lisplibKind|)) |$libFile|) - (|lisplibWrite| (MAKESTRING "constructorModemap") + (|lisplibWrite| "constructorModemap" (|removeZeroOne| |$lisplibModemap|) |$libFile|) (SPADLET |$lisplibCategory| (OR |$lisplibCategory| (CADAR |$lisplibModemap|))) - (|lisplibWrite| (MAKESTRING "constructorCategory") + (|lisplibWrite| "constructorCategory" |$lisplibCategory| |$libFile|) - (|lisplibWrite| (MAKESTRING "sourceFile") + (|lisplibWrite| "sourceFile" (|namestring| /EDITFILE) |$libFile|) - (|lisplibWrite| (MAKESTRING "modemaps") + (|lisplibWrite| "modemaps" (|removeZeroOne| |$lisplibModemapAlist|) |$libFile|) (SPADLET |opsAndAtts| (|getConstructorOpsAndAtts| |$lisplibForm| |kind| |$lisplibModemap|)) - (|lisplibWrite| (MAKESTRING "operationAlist") + (|lisplibWrite| "operationAlist" (|removeZeroOne| (CAR |opsAndAtts|)) |$libFile|) (COND ((BOOT-EQUAL |kind| '|category|) @@ -1299,27 +1299,27 @@ (CONS (CONS |a| |v|) G166609)))))))) (SPADLET |$NRTslot1PredicateList| NIL) (|NRTgenInitialAttributeAlist| (CDR |opsAndAtts|)))) - (|lisplibWrite| (MAKESTRING "superDomain") + (|lisplibWrite| "superDomain" (|removeZeroOne| |$lisplibSuperDomain|) |$libFile|) - (|lisplibWrite| (MAKESTRING "signaturesAndLocals") + (|lisplibWrite| "signaturesAndLocals" (|removeZeroOne| (|mergeSignatureAndLocalVarAlists| |$lisplibSignatureAlist| |$lisplibVariableAlist|)) |$libFile|) - (|lisplibWrite| (MAKESTRING "attributes") + (|lisplibWrite| "attributes" (|removeZeroOne| |$lisplibAttributes|) |$libFile|) - (|lisplibWrite| (MAKESTRING "predicates") + (|lisplibWrite| "predicates" (|removeZeroOne| |$lisplibPredicates|) |$libFile|) - (|lisplibWrite| (MAKESTRING "abbreviation") + (|lisplibWrite| "abbreviation" |$lisplibAbbreviation| |$libFile|) - (|lisplibWrite| (MAKESTRING "parents") + (|lisplibWrite| "parents" (|removeZeroOne| |$lisplibParents|) |$libFile|) - (|lisplibWrite| (MAKESTRING "ancestors") + (|lisplibWrite| "ancestors" (|removeZeroOne| |$lisplibAncestors|) |$libFile|) - (|lisplibWrite| (MAKESTRING "documentation") + (|lisplibWrite| "documentation" (|finalizeDocumentation|) |$libFile|) - (|lisplibWrite| (MAKESTRING "slot1Info") + (|lisplibWrite| "slot1Info" (|removeZeroOne| |$lisplibSlot1|) |$libFile|) (COND (|$profileCompiler| (|profileWrite|))) (COND @@ -1329,15 +1329,15 @@ ((NEQUAL ERRORS 0) (PROGN (|sayMSG| - (CONS (MAKESTRING " Errors in processing ") + (CONS " Errors in processing " (CONS |kind| - (CONS (MAKESTRING " ") + (CONS " " (APPEND (|bright| |libName|) - (CONS (MAKESTRING ":") NIL)))))) + (CONS ":" NIL)))))) (|sayMSG| - (CONS (MAKESTRING " not replacing ") + (CONS " not replacing " (CONS |$spadLibFT| - (CONS (MAKESTRING " for") + (CONS " for" (|bright| |libName|))))))))))))) ;lisplibDoRename(libName) == @@ -1364,7 +1364,7 @@ (PROGN (|sayMSG| (|bright| - (CONS (MAKESTRING " Illegal ") (CONS |$spadLibFT| NIL)))) + (CONS " Illegal " (CONS |$spadLibFT| NIL)))) (COND ((|member| |error| '(|duplicateAbb| |wrongType|)) (|sayKeyedMsg| 'S2IL0007 @@ -1514,7 +1514,7 @@ (SPADLET |t| (OR (|compMakeCategoryObject| |target| |$e|) (|systemErrorHere| - (MAKESTRING "getSlotFromFunctor")))) + "getSlotFromFunctor"))) (ELT (CAR |t|) |slot|))))))) ;getSlot1 domainName == @@ -1546,7 +1546,7 @@ (|pathname| (CONS |fn| (CONS |$spadLibFT| - (CONS (MAKESTRING "*") NIL))))) + (CONS "*" NIL))))) (COND ((NULL (|isExistingFile| |p|)) (|sayKeyedMsg| 'S2IL0003 (CONS (|namestring| |p|) NIL)) @@ -1569,12 +1569,12 @@ (SPADLET |t| (OR (|compMakeCategoryObject| |target| |$e|) (|systemErrorHere| - (MAKESTRING "getSlot1")))) + "getSlot1"))) (ELT (CAR |t|) 1)) ('T (|sayKeyedMsg| 'S2IL0022 (CONS (|namestring| |p|) - (CONS (MAKESTRING "constructor modemap") NIL))) + (CONS "constructor modemap" NIL))) NIL))))))) ;transformOperationAlist operationAlist == @@ -1711,7 +1711,7 @@ ; pp x (DEFUN |sayNonUnique| (|x|) - (PROGN (|sayBrightlyNT| (MAKESTRING "Non-unique:")) (|pp| |x|))) + (PROGN (|sayBrightlyNT| "Non-unique:") (|pp| |x|))) ;-- flattenOperationAlist operationAlist == ;-- --new form is ( ) @@ -1787,7 +1787,7 @@ |sig|)) ('T (|sayMSG| - (CONS (MAKESTRING " using slot 1 of ") + (CONS " using slot 1 of " (CONS |domainForm| NIL))) (SPADLET |constructorArglist| (CDR |domainForm|)) (SPADLET |nsig| (|#| |sig|)) @@ -1888,7 +1888,7 @@ (QCAR |ISTMP#4|)) 'T)))))))))) |n|) - ('T (|systemErrorHere| (MAKESTRING "findSlotNumber")))))))))) + ('T (|systemErrorHere| "findSlotNumber"))))))))) ;bustUnion d == ; d is ["Union",domain,utype] and utype='"failed" => domain @@ -1909,7 +1909,7 @@ (PROGN (SPADLET |utype| (QCAR |ISTMP#2|)) 'T))))) - (BOOT-EQUAL |utype| (MAKESTRING "failed"))) + (BOOT-EQUAL |utype| "failed")) |domain|) ('T |d|))))) @@ -2112,7 +2112,7 @@ 'T)))))))))) |n|) ('T - (|systemErrorHere| (MAKESTRING "findDomainSlotNumber"))))))))) + (|systemErrorHere| "findDomainSlotNumber")))))))) ;getConstructorModemap form == ; GETDATABASE(opOf form, 'CONSTRUCTORMODEMAP) @@ -2195,7 +2195,7 @@ |$FormalMapVariableList|))))) (COND ((NULL (VECP |u|)) - (|systemErrorHere| (MAKESTRING "getSlotFromCategoryForm"))) + (|systemErrorHere| "getSlotFromCategoryForm")) ('T (ELT |u| |index|))))))) ;--% constructor evaluation diff --git a/src/interp/mark.lisp.pamphlet b/src/interp/mark.lisp.pamphlet index 2d32a11..630e725 100644 --- a/src/interp/mark.lisp.pamphlet +++ b/src/interp/mark.lisp.pamphlet @@ -623,7 +623,7 @@ Entire constructor is then assembled and prettyprinted (COND ((NULL (AND (PAIRP |mode|) (EQ (QCAR |mode|) '|Mapping|) (PROGN (SPADLET |ml| (QCDR |mode|)) 'T))) - (|error| (MAKESTRING "markLambda")))) + (|error| "markLambda"))) (SPADLET |args| (PROG (G166421) (SPADLET G166421 NIL) @@ -1057,7 +1057,7 @@ Entire constructor is then assembled and prettyprinted (SPADLET |id| (|markLhs| |form|)) (COND ((NULL |$insideCapsuleFunctionIfTrue|) - (SPADLET |$from| (MAKESTRING "Setq")) + (SPADLET |$from| "Setq") (SPADLET |code| (CAR T$)) (|markEncodeChanges| |code| NIL) (SPADLET |noriginalLet| (|markSpliceInChanges| |originalBody|)) @@ -1070,7 +1070,7 @@ Entire constructor is then assembled and prettyprinted (SPADLET |entry| (CONS |originalLet| |nlet|)) (SPADLET |$importStack| (CONS NIL |$importStack|)) (SPADLET |$freeStack| (CONS NIL |$freeStack|)) - (|capsuleStack| (MAKESTRING "Setq") |entry|) + (|capsuleStack| "Setq" |entry|) (CONS |code| (CDR T$))) ('T (COND @@ -1099,7 +1099,7 @@ Entire constructor is then assembled and prettyprinted (RETURN (PROGN (SPADLET |$coerceList| NIL) - (SPADLET |$from| (MAKESTRING "Capsule expression")) + (SPADLET |$from| "Capsule expression") (SPADLET |code| (CAR T$)) (|markEncodeChanges| |code| NIL) (SPADLET |noriginal| (|markSpliceInChanges| |originalExpr|)) @@ -1107,7 +1107,7 @@ Entire constructor is then assembled and prettyprinted (SPADLET |entry| (CONS |originalExpr| |nexpr|)) (SPADLET |$importStack| (CONS NIL |$importStack|)) (SPADLET |$freeStack| (CONS NIL |$freeStack|)) - (|capsuleStack| (MAKESTRING "capsuleExpression") |entry|) + (|capsuleStack| "capsuleExpression" |entry|) (CONS |code| (CDR T$)))))) ;markLhs x == @@ -1239,7 +1239,7 @@ Entire constructor is then assembled and prettyprinted (SPADLET |originalBody| (CAR (CDDDDR |originalDef|))) (SPADLET |signature| (|markFindOriginalSignature| |form| |sig|)) - (SPADLET |$from| (MAKESTRING "compDefineFunctor1")) + (SPADLET |$from| "compDefineFunctor1") (|markEncodeChanges| |code| NIL) (SPADLET |frees| (COND @@ -1325,7 +1325,7 @@ Entire constructor is then assembled and prettyprinted |subtractions|)) |$importStack|)) (SPADLET |entry| (CONS |originalDef| |ndef|)) - (|capsuleStack| (MAKESTRING "Def") |entry|)) + (|capsuleStack| "Def" |entry|)) ('T NIL)))))) ;reduceImports x == @@ -2157,7 +2157,7 @@ Entire constructor is then assembled and prettyprinted (COND ((EQL |path| 0) NIL) ('T |path|))) (COND ((AND (BOUNDP '|$shout2|) |$shout2|) - (|pp| (MAKESTRING "=========")) (|pp| |path|) + (|pp| "=========") (|pp| |path|) (SPADLET |ipath| (REVERSE |path|)) (DO ((G167681 |u| (CDR G167681)) (|x| NIL)) ((OR (ATOM G167681) @@ -2175,9 +2175,9 @@ Entire constructor is then assembled and prettyprinted (COND (|$monitorCoerce| (|sayBrightlyNT| - (CONS (MAKESTRING "From ") + (CONS "From " (CONS |$from| - (CONS (MAKESTRING ": ") NIL)))) + (CONS ": " NIL)))) (|pp| |entry|))) (SPADLET |$coerceList| (CONS (COPY |entry|) |$coerceList|))))))))) @@ -2258,7 +2258,7 @@ Entire constructor is then assembled and prettyprinted (SPADLET |path| (OR (|markGetPath| |a| |b|) (RETURN NIL))) (COND ((AND (BOUNDP '|$shout1|) |$shout1|) - (|pp| (MAKESTRING "=========")) (|pp| |path|) (|pp| |a|) + (|pp| "=========") (|pp| |path|) (|pp| |a|) (|pp| |b|))) (APPEND (CAR |path|) (|markPath1| (CDR |u|)))))) ('T NIL))))) @@ -2301,12 +2301,12 @@ Entire constructor is then assembled and prettyprinted (SPADLET |$amb| (CONS |u| (CONS |x| (CONS |y| NIL)))) (SPADLET |key| (COND - ((NULL |u|) (MAKESTRING "no match")) - ('T (MAKESTRING "ambiguous")))) + ((NULL |u|) "no match") + ('T "ambiguous"))) (|sayBrightly| - (CONS (MAKESTRING "-----") + (CONS "-----" (CONS |key| - (CONS (MAKESTRING "--------") NIL)))) + (CONS "--------" NIL)))) (COND ((NULL (BOUNDP '|$pathErrorStack|)) (SETQ |$pathErrorStack| NIL))) @@ -2322,7 +2322,7 @@ Entire constructor is then assembled and prettyprinted NIL) (SEQ (EXIT (|pp| |p|)))) (SPADLET |$x| |x|) (SPADLET |$y| |y|) - (|pp| (MAKESTRING "---------------------")) (|pp| |x|) + (|pp| "---------------------") (|pp| |x|) (|pp| |y|) (|foobar| |key|) (COND ((NULL |u|) (CONS 1729 NIL)) @@ -2372,7 +2372,7 @@ Entire constructor is then assembled and prettyprinted (SEQ (PROGN (COND ((AND (BOUNDP '|$shout|) |$shout|) - (|pp| (MAKESTRING "-----")) (|pp| |x|) (|pp| |y|) + (|pp| "-----") (|pp| |x|) (|pp| |y|) (|pp| |s|))) (COND ((BOOT-EQUAL |x| |y|) |s|) @@ -2763,10 +2763,9 @@ Entire constructor is then assembled and prettyprinted (CONS |target| (CONS |loc| NIL)))) (COND ((AND (BOUNDP '|$hohum|) |$hohum|) - (|pp| (MAKESTRING "---------->>>>>")) + (|pp| "---------->>>>>") (|pp| |$data|) (|pp| |body|) - (|pp| (MAKESTRING - "-------------------------->")))) + (|pp| "-------------------------->"))) (SPADLET |body| (|markInsertNextChange| |body|)))))) |body|))))) @@ -2863,13 +2862,13 @@ Entire constructor is then assembled and prettyprinted ('T NIL))))) (COND ((ATOM |x|) - (|pp| (MAKESTRING "Translator RPLACA error")) + (|pp| "Translator RPLACA error") (|pp| |$data|) (|foobum| |form|) |form|) ('T (COND ((AND (BOUNDP '|$hohum|) |$hohum|) (|pp| (CONS |i| - (CONS (MAKESTRING " >>> ") + (CONS " >>> " (CONS |x| NIL)))))) (SETQ $CHANGE (COPY |x|)) (COND @@ -3631,7 +3630,7 @@ Entire constructor is then assembled and prettyprinted (PROGN (|markSay| (|form2String| |att|)) (|markSay| - (MAKESTRING ": Category == with")) + ": Category == with") (|markTerpri|) (|markTerpri|)))))))))))))) @@ -4032,8 +4031,7 @@ Entire constructor is then assembled and prettyprinted (SETQ G169273 (OR G169273 |new|))))))))) (PROGN - (|pp| (MAKESTRING - "------------MISSING----------------")) + (|pp| "------------MISSING----------------") (SPADLET |$f| |form|) (SPADLET |$b| |body|) (SPADLET |newform| @@ -4391,9 +4389,8 @@ Entire constructor is then assembled and prettyprinted (APPEND G169473 (CONS (STRCONC |name| - (MAKESTRING - ": Category == with")) - (CONS (MAKESTRING "") NIL)))))))))) + ": Category == with") + (CONS "" NIL)))))))))) (SPADLET |nbody| (COND ((AND (PAIRP |$originalBody|) @@ -4553,11 +4550,11 @@ Entire constructor is then assembled and prettyprinted (SPADLET |kind| (CAR G169586)) (SPADLET |a| (CADR G169586)) (SPADLET |b| (CDDR G169586)) - (|markSay| (MAKESTRING "--)abbrev ")) + (|markSay| "--)abbrev ") (|markSay| |kind|) - (|markSay| (MAKESTRING " ")) + (|markSay| " ") (|markSay| |a|) - (|markSay| (MAKESTRING " ")) + (|markSay| " ") (|markSay| |b|) (|markTerpri|))))) @@ -5484,7 +5481,7 @@ Entire constructor is then assembled and prettyprinted ((NULL (ALPHA-CHAR-P (ELT |x| (SPADDIFFERENCE |n| 1)))) NIL) - ((NULL (|substring?| (MAKESTRING ":= ") + ((NULL (|substring?| ":= " |x| (PLUS |n| 1))) NIL) ('T (SPADLET |m| (PLUS |n| 3)) @@ -5520,15 +5517,14 @@ Entire constructor is then assembled and prettyprinted NIL) ('T (|sayMessage| - (MAKESTRING - "Converting input line:")) + "Converting input line:") (|sayMessage| - (CONS (MAKESTRING "WAS: ") + (CONS "WAS: " (CONS |x| NIL))) (SETELT |x| (PLUS |n| 1) (|char| '=)) (|sayMessage| - (CONS (MAKESTRING "IS: ") + (CONS "IS: " (CONS |x| NIL))) (TERPRI))))))))))) |origLines|))))) @@ -5546,8 +5542,8 @@ Entire constructor is then assembled and prettyprinted (SPADLET |u| (COND ((ATOM |x|) - (CONS (MAKESTRING ">> ") (CONS |x| NIL))) - ('T (CONS (MAKESTRING ">> ") |x|)))) + (CONS ">> " (CONS |x| NIL))) + ('T (CONS ">> " |x|)))) (|sayBrightly| |u|))))) ;moveImportsAfterDefinitions lines == @@ -5593,7 +5589,7 @@ Entire constructor is then assembled and prettyprinted (SPADLET |n| (|charPosition| |$blank| |x| (PLUS 1 |m|)))) - (|substring?| (MAKESTRING "== ") + (|substring?| "== " |x| (PLUS |n| 1))) (SPADLET |name| (SUBSTRING |x| |m| @@ -5603,7 +5599,7 @@ Entire constructor is then assembled and prettyprinted |defineAlist|))) ((SPADLET |k| (|leadingSubstring?| - (MAKESTRING "import from ") + "import from " |x| 0)) (SPADLET |importAlist| (CONS @@ -5705,7 +5701,7 @@ Entire constructor is then assembled and prettyprinted (SEQ (EXIT (SETQ G170683 (OR G170683 (CHAR= |c| - (ELT (MAKESTRING "() ,;") |i|))))))))))))) + (ELT "() ,;" |i|))))))))))))) ;moveLinesAfter(alist, lines) == ; n := #lines @@ -5811,7 +5807,7 @@ Entire constructor is then assembled and prettyprinted NIL)) NIL) (SEQ (EXIT (PROGN - (|pp| (MAKESTRING "------------")) + (|pp| "------------") (|pp| |p|) (|pp| |q|))))) (|#| |r|)))))) @@ -5910,16 +5906,15 @@ Entire constructor is then assembled and prettyprinted NIL)) NIL) (SEQ (EXIT (PROGN - (|pp| (MAKESTRING - "!!-------------------------------!!")) + (|pp| "!!-------------------------------!!") (SPADLET |res| (|mkGetPaths| |x| |y|)) (SPADLET |oldRes| (|markPaths| |x| |y| (CONS NIL NIL))) (|pp| |x|) (|pp| |y|) - (|sayBrightlyNT| (MAKESTRING "new: ")) + (|sayBrightlyNT| "new: ") (|pp| |res|) - (|sayBrightlyNT| (MAKESTRING "old: ")) + (|sayBrightlyNT| "old: ") (|pp| |oldRes|))))))))) ;reverseDown u == [REVERSE x for x in u] @@ -6298,7 +6293,7 @@ Entire constructor is then assembled and prettyprinted (SPADLET |opName| (INTERN (STRCONC |ops| - (MAKESTRING "X") + "X" (STRINGIMAGE |i|)))) (RPLACA |form| |opName|) (SPADLET |$acc| diff --git a/src/interp/match.lisp.pamphlet b/src/interp/match.lisp.pamphlet index dc7e287..54a299f 100644 --- a/src/interp/match.lisp.pamphlet +++ b/src/interp/match.lisp.pamphlet @@ -246,7 +246,7 @@ ((BOOT-EQUAL |op| '|not|) (NULL (|superMatch?| (CAR |argl|) |subject|))) ('T - (|systemError| (MAKESTRING "unknown pattern form"))))) + (|systemError| "unknown pattern form")))) ('T (|basicMatch?| |pattern| |subject|))))))) ;patternCheck pattern == main where @@ -386,10 +386,9 @@ |pattern| (PLUS |i| 1) |$wildCard|))))))))) (|sayBrightly| - (CONS (MAKESTRING - "Invalid use of underscores in pattern: ") + (CONS "Invalid use of underscores in pattern: " (CONS |pattern| NIL))) - (MAKESTRING "!!!!!!!!!!!!!!")) + "!!!!!!!!!!!!!!") ('T (SPADLET |c| (|patternCheck,wild| |pattern| '($ |#| % & @))) @@ -421,7 +420,7 @@ (RETURN (COND ((NULL (CHARP |wildcard|)) - (|systemError| (MAKESTRING "Wildcard must be a character"))) + (|systemError| "Wildcard must be a character")) ('T (SPADLET |$wildCard| |wildcard|) (SPADLET |subject| (DOWNCASE |subject|)) (COND diff --git a/src/interp/modemap.lisp.pamphlet b/src/interp/modemap.lisp.pamphlet index 1cc8f90..d8730c0 100644 --- a/src/interp/modemap.lisp.pamphlet +++ b/src/interp/modemap.lisp.pamphlet @@ -162,10 +162,9 @@ ((QSLESSP 1 (|#| |mml|)) (|stackWarning| (CONS |numOfArgs| - (CONS (MAKESTRING " argument form of: ") + (CONS " argument form of: " (CONS |op| - (CONS (MAKESTRING - " has more than one modemap") + (CONS " has more than one modemap" NIL))))) (CAR |mml|)) ('T NIL))))) @@ -348,7 +347,7 @@ (APPEND |lt| (CONS |id| (CONS |v| NIL))) |pred| |fn| |e|)) ('T (|addModemap1| |op| |mc| |sig| |pred| |fn| |e|)))) - ('T (|systemErrorHere| (MAKESTRING "addEltModemap"))))))) + ('T (|systemErrorHere| "addEltModemap")))))) ;addModemap1(op,mc,sig,pred,fn,e) == ; --mc is the "mode of computation"; fn the "implementation" @@ -918,7 +917,7 @@ ((AND |$insideFunctorIfTrue| (BOOT-EQUAL |name| '$)) (COND (|$domainShell| (ELT |$domainShell| 1)) - ('T (|systemError| (MAKESTRING "$ has no shell now"))))) + ('T (|systemError| "$ has no shell now")))) ((SPADLET T$ (|compMakeCategoryObject| |form| |$e|)) (SPADLET |$e| (CADDR T$)) (ELT (CAR T$) 1)) ('T @@ -1154,8 +1153,8 @@ (SPADLET |l| (|getDomainsInScope| |e|)) (COND ((|member| |x| |l|) - (SAY (MAKESTRING "****** Domain: ") |x| - (MAKESTRING " already in scope")))) + (SAY "****** Domain: " |x| + " already in scope"))) (SPADLET |newValue| (CONS |x| (|delete| |x| |l|))) (COND (|$insideCapsuleFunctionIfTrue| diff --git a/src/interp/msgdb.lisp.pamphlet b/src/interp/msgdb.lisp.pamphlet index 5301d04..dee5817 100644 --- a/src/interp/msgdb.lisp.pamphlet +++ b/src/interp/msgdb.lisp.pamphlet @@ -75,7 +75,7 @@ (SETQ G166098 (OR G166098 |j|))))))))) (RETURN NIL))) - (SPADLET |buf| (MAKESTRING "")) + (SPADLET |buf| "") (DO () ((NULL (AND (> |maxIndex| |k|) (NEQUAL (SPADLET |c| (ELT |l| |k|)) @@ -152,8 +152,8 @@ |y|)))))))) (SPADLET |head1| (CONS (COND - (|center| (MAKESTRING "%ce")) - ('T (MAKESTRING "%rj"))) + (|center| "%ce") + ('T "%rj")) (NREVERSE |y|))) (COND ((NULL |tail|) (CONS |head1| NIL)) @@ -183,11 +183,11 @@ (PROG (|item| |attList|) (RETURN (SEQ (COND - ((NEQUAL (CAR |msg|) (MAKESTRING "%atbeg")) + ((NEQUAL (CAR |msg|) "%atbeg") (CONS |msg| (CONS NIL NIL))) ('T (SPADLET |attList| NIL) (DO ((G166190 NIL - (BOOT-EQUAL |item| (MAKESTRING "%atend")))) + (BOOT-EQUAL |item| "%atend"))) (G166190 NIL) (SEQ (EXIT (PROGN (SPADLET |msg| (CDR |msg|)) @@ -308,7 +308,7 @@ ((<= |a| |nargs|) (ELT |args| (SPADDIFFERENCE |a| 1))) - ('T (MAKESTRING "???")))) + ('T "???"))) (SPADLET |q| NIL) (DO ((G166224 (SPADDIFFERENCE |n| 1)) (|i| 2 (QSADD1 |i|))) @@ -327,13 +327,13 @@ ((MEMQ (|char| '|m|) |q|) (SPADLET |arg| (CONS - (CONS (MAKESTRING "%m") |arg|) + (CONS "%m" |arg|) NIL)))) (COND ((MEMQ (|char| '|s|) |q|) (SPADLET |arg| (CONS - (CONS (MAKESTRING "%s") |arg|) + (CONS "%s" |arg|) NIL)))) (COND ((MEMQ (|char| '|p|) |q|) @@ -399,22 +399,22 @@ ((MEMQ (|char| '|c|) |q|) (SPADLET |arg| (CONS - (CONS (MAKESTRING "%ce") |arg|) + (CONS "%ce" |arg|) NIL)))) (COND ((MEMQ (|char| '|r|) |q|) (SPADLET |arg| (CONS - (CONS (MAKESTRING "%rj") |arg|) + (CONS "%rj" |arg|) NIL)))) (COND ((MEMQ (|char| '|l|) |q|) (SPADLET |l| - (CONS (MAKESTRING "%l") |l|)))) + (CONS "%l" |l|)))) (COND ((MEMQ (|char| '|b|) |q|) (SPADLET |l| - (CONS (MAKESTRING "%b") |l|)))) + (CONS "%b" |l|)))) (SPADLET |l| (COND ((PAIRP |arg|) @@ -423,7 +423,7 @@ (MEMQ (|char| '|y|) |q|) (BOOT-EQUAL (CAR |arg|) - (MAKESTRING "%y")) + "%y") (EQL (LENGTH |arg|) 1)) (APPEND (REVERSE |arg|) |l|)) @@ -432,17 +432,17 @@ (CAR |arg|)) (SPADLET |tail| (CDR |arg|)) - (CONS (MAKESTRING "%y") + (CONS "%y" (APPEND (REVERSE |tail|) (CONS - (MAKESTRING "%n") + "%n" (CONS |head| |l|))))))) ('T (CONS |arg| |l|)))) (COND ((MEMQ (|char| '|b|) |q|) (SPADLET |l| - (CONS (MAKESTRING "%d") |l|)))) + (CONS "%d" |l|)))) (DO ((G166261 '(|.| |,| ! |:| |;| ?) (CDR G166261)) (|ch| NIL)) @@ -492,10 +492,10 @@ ((EQL (LENGTH |msg|) 1) |msg|) ('T (SPADLET |blanksOff| NIL) (SPADLET |x| (CAR |msg|)) (COND - ((BOOT-EQUAL |x| (MAKESTRING "%n")) + ((BOOT-EQUAL |x| "%n") (SPADLET |blanksOff| 'T) (SPADLET |msg1| NIL)) ('T (SPADLET |msg1| (LIST |x|)))) - (SPADLET |blank| (MAKESTRING " ")) + (SPADLET |blank| " ") (DO ((G166308 (CDR |msg|) (CDR G166308)) (|y| NIL)) ((OR (ATOM G166308) (PROGN (SETQ |y| (CAR G166308)) NIL)) @@ -609,7 +609,7 @@ ((NULL (PAIRP |msg|)) |msg|) ('T (SPADLET |blanks| - (CONS (MAKESTRING " ") (CONS '| | NIL))) + (CONS " " (CONS '| | NIL))) (SPADLET |haveBlank| NIL) (SPADLET |prims| '(|%b| |%d| |%l| |%i| |%u| |%m| |%ce| |%rj| "%b" @@ -638,7 +638,7 @@ ; escapeSpecialChars STRINGIMAGE name) (DEFUN |operationLink| (|name|) - (FORMAT NIL (MAKESTRING "\\lispLink{\\verb!(|oSearch| \"~a\")!}{~a}") + (FORMAT NIL "\\lispLink{\\verb!(|oSearch| \"~a\")!}{~a}" |name| (|escapeSpecialChars| (STRINGIMAGE |name|)))) ;---------------------------------------- @@ -663,7 +663,7 @@ (DEFUN |throwPatternMsg| (|key| |args|) (declare (special |$testingErrorPrefix| |$testingSystem|)) (PROGN - (|sayMSG| (MAKESTRING " ")) + (|sayMSG| " ") (COND (|$testingSystem| (|sayMSG| |$testingErrorPrefix|))) (|sayPatternMsg| |key| |args|) (|spadThrow|))) @@ -691,7 +691,7 @@ (declare (special |$testingErrorPrefix| |$testingSystem|)) (PROGN (BUMPERRORCOUNT |kind|) - (|sayMSG| (MAKESTRING " ")) + (|sayMSG| " ") (COND (|$testingSystem| (|sayMSG| |$testingErrorPrefix|))) (|sayKeyedMsg| |key| |args|) (|spadThrow|))) @@ -708,7 +708,7 @@ (PROGN (COND ((AND |atree| (SPADLET |sp| (|getSrcPos| |atree|))) - (|sayMSG| (MAKESTRING " ")) (|srcPosDisplay| |sp|))) + (|sayMSG| " ") (|srcPosDisplay| |sp|))) (|throwKeyedMsg| |key| |args|))))) ;throwKeyedMsg(key,args) == @@ -738,9 +738,9 @@ (SPADLET *STANDARD-OUTPUT* |$texOutputStream|) (SPADLET |last| (|pushSatOutput| '|line|)) (|sayString| - (MAKESTRING "\\bgroup\\color{red}\\begin{list}\\item{} ")) + "\\bgroup\\color{red}\\begin{list}\\item{} ") (|sayKeyedMsgAsTeX| |key| |args|) - (|sayString| (MAKESTRING "\\end{list}\\egroup")) + (|sayString| "\\end{list}\\egroup") (|popSatOutput| |last|) (|spadThrow|))))) @@ -758,7 +758,7 @@ (RETURN (PROGN (SPADLET *STANDARD-OUTPUT* |$texOutputStream|) - (|sayMSG| (MAKESTRING " ")) + (|sayMSG| " ") (COND (|$testingSystem| (|sayMSG| |$testingErrorPrefix|))) (|sayKeyedMsg| |key| |args|) (|spadThrow|))))) @@ -782,11 +782,11 @@ (declare (special |$testingErrorPrefix| |$testingSystem|)) (RETURN (SEQ (PROGN - (|sayMSG| (MAKESTRING " ")) + (|sayMSG| " ") (COND (|$testingSystem| (|sayMSG| |$testingErrorPrefix|))) (|sayKeyedMsg| |descKey| |descArgs|) - (|sayMSG| (MAKESTRING " ")) + (|sayMSG| " ") (DO ((G166441 |l| (CDR G166441)) (G166429 NIL) (|i| 1 (QSADD1 |i|))) ((OR (ATOM G166441) @@ -801,7 +801,7 @@ (SEQ (EXIT (PROGN (SPADLET |n| (STRCONC (|object2String| |i|) - (MAKESTRING "."))) + ".")) (|sayKeyedMsg| |key| (CONS |n| |args|)))))) (|spadThrow|)))))) @@ -846,13 +846,13 @@ (RETURN (PROGN (SPADLET *STANDARD-OUTPUT* |$texOutputStream|) - (|sayString| (MAKESTRING "\\bgroup\\color{red}")) - (|sayString| (MAKESTRING "\\begin{verbatim}")) + (|sayString| "\\bgroup\\color{red}") + (|sayString| "\\begin{verbatim}") (|sayKeyedMsg| 'S2GE0000 NIL) (BUMPCOMPERRORCOUNT) (|sayKeyedMsgAsTeX| |key| |args|) - (|sayString| (MAKESTRING "\\end{verbatim}")) - (|sayString| (MAKESTRING "\\egroup")) + (|sayString| "\\end{verbatim}") + (|sayString| "\\egroup") (|handleLispBreakLoop| |$BreakMode|))))) ;keyedSystemError1(key,args) == @@ -888,12 +888,12 @@ ('T (SPADLET |was| |$saturnMode|) (COND ((BOOT-EQUAL |arg| '|verb|) (SPADLET |$saturnMode| '|verb|) - (|sayString| (MAKESTRING "\\begin{verbatim}")) |was|) + (|sayString| "\\begin{verbatim}") |was|) ((BOOT-EQUAL |arg| '|line|) (SPADLET |$saturnMode| '|line|) - (|sayString| (MAKESTRING "\\end{verbatim}")) |was|) + (|sayString| "\\end{verbatim}") |was|) ('T (|sayString| - (FORMAT NIL (MAKESTRING "What is: ~a") |$saturnMode|)) + (FORMAT NIL "What is: ~a" |$saturnMode|)) |$saturnMode|))))))) ;popSatOutput(newmode) == @@ -912,12 +912,12 @@ (COND ((BOOT-EQUAL |newmode| |$saturnMode|) NIL) ((BOOT-EQUAL |newmode| '|verb|) (SPADLET |$saturnMode| '|verb|) - (|sayString| (MAKESTRING "\\begin{verbatim}"))) + (|sayString| "\\begin{verbatim}")) ((BOOT-EQUAL |newmode| '|line|) (SPADLET |$saturnMode| '|line|) - (|sayString| (MAKESTRING "\\end{verbatim}"))) + (|sayString| "\\end{verbatim}")) ('T (|sayString| - (FORMAT NIL (MAKESTRING "What is: ~a") |$saturnMode|)) + (FORMAT NIL "What is: ~a" |$saturnMode|)) |$saturnMode|))) ;systemErrorHere functionName == @@ -970,7 +970,7 @@ (COND (|$displayMsgNumber| (SPADLET |msg| - (CONS (MAKESTRING "%b") + (CONS "%b" (CONS |key| (CONS '|:| (CONS '|%d| |msg|))))))) (SPADLET |u| (|flowSegmentedMsg| |msg| $LINELENGTH 3)) @@ -1009,7 +1009,7 @@ (DEFUN |throwKeyedMsgFromDb| (|key| |args| |dbName|) (declare (special |$testingErrorPrefix| |$testingSystem|)) (PROGN - (|sayMSG| (MAKESTRING " ")) + (|sayMSG| " ") (COND (|$testingSystem| (|sayMSG| |$testingErrorPrefix|))) (|sayKeyedMsgFromDb| |key| |args| |dbName|) (|spadThrow|))) @@ -1115,15 +1115,15 @@ ('T (SPADLET |potentialMarg| 0) (SPADLET |actualMarg| 0) (SPADLET |off| (COND - ((<= |offset| 0) (MAKESTRING "")) + ((<= |offset| 0) "") ('T - (|fillerSpaces| |offset| (MAKESTRING " "))))) + (|fillerSpaces| |offset| " ")))) (SPADLET |off1| (COND - ((<= |offset| 1) (MAKESTRING "")) + ((<= |offset| 1) "") ('T (|fillerSpaces| (SPADDIFFERENCE |offset| 1) - (MAKESTRING " "))))) + " ")))) (SPADLET |firstLine| 'T) (COND ((PAIRP |msg|) (SPADLET |lnl| |offset|) @@ -1258,7 +1258,7 @@ ((AND (NULL |$Coerce|) |$reportInterpOnly|) (COND ((AND |atree| (SPADLET |sp| (|getSrcPos| |atree|))) - (|sayMSG| (MAKESTRING " ")) (|srcPosDisplay| |sp|))) + (|sayMSG| " ") (|srcPosDisplay| |sp|))) (|sayKeyedMsg| |key| |args|) (|sayKeyedMsg| 'S2IB0009 NIL))) (COND ((NULL |$compilingMap|) @@ -1288,11 +1288,11 @@ ;bright x == ['"%b",:(PAIRP(x) and NULL CDR LASTNODE x => x; [x]),'"%d"] (DEFUN |bright| (|x|) - (CONS (MAKESTRING "%b") + (CONS "%b" (APPEND (COND ((AND (PAIRP |x|) (NULL (CDR (LASTNODE |x|)))) |x|) ('T (CONS |x| NIL))) - (CONS (MAKESTRING "%d") NIL)))) + (CONS "%d" NIL)))) ;--bright x == ['%b,:(ATOM x => [x]; x),'%d] ;mkMessage msg == @@ -1417,34 +1417,34 @@ (BOOT-EQUAL (ELT |x| 0) (|char| '|\\|)) (BOOT-EQUAL (ELT |x| 1) (|char| '%))) (|sayString| (SUBSTRING |x| 1 NIL))) - ((BOOT-EQUAL |x| (MAKESTRING "%l")) (|sayNewLine|) + ((BOOT-EQUAL |x| "%l") (|sayNewLine|) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| $MARG) NIL) - (SEQ (EXIT (|sayString| (MAKESTRING " ")))))) - ((BOOT-EQUAL |x| (MAKESTRING "%i")) + (SEQ (EXIT (|sayString| " "))))) + ((BOOT-EQUAL |x| "%i") (SPADLET $MARG (PLUS $MARG 3))) - ((BOOT-EQUAL |x| (MAKESTRING "%u")) + ((BOOT-EQUAL |x| "%u") (SPADLET $MARG (SPADDIFFERENCE $MARG 3)) (COND ((MINUSP $MARG) (SPADLET $MARG 0)) ('T NIL))) - ((BOOT-EQUAL |x| (MAKESTRING "%U")) (SPADLET $MARG 0)) - ((BOOT-EQUAL |x| (MAKESTRING "%")) - (|sayString| (MAKESTRING " "))) - ((BOOT-EQUAL |x| (MAKESTRING "%%")) - (|sayString| (MAKESTRING "%"))) - ((BOOT-EQUAL |x| (MAKESTRING "%b")) + ((BOOT-EQUAL |x| "%U") (SPADLET $MARG 0)) + ((BOOT-EQUAL |x| "%") + (|sayString| " ")) + ((BOOT-EQUAL |x| "%%") + (|sayString| "%")) + ((BOOT-EQUAL |x| "%b") (COND ((NULL (IS-CONSOLE CUROUTSTREAM)) - (|sayString| (MAKESTRING " "))) + (|sayString| " ")) ((NULL |$highlightAllowed|) - (|sayString| (MAKESTRING " "))) + (|sayString| " ")) ('T (|sayString| |$highlightFontOn|)))) ((SPADLET |k| (|blankIndicator| |x|)) (BLANKS |k|)) - ((BOOT-EQUAL |x| (MAKESTRING "%d")) + ((BOOT-EQUAL |x| "%d") (COND ((NULL (IS-CONSOLE CUROUTSTREAM)) - (|sayString| (MAKESTRING " "))) + (|sayString| " ")) ((NULL |$highlightAllowed|) - (|sayString| (MAKESTRING " "))) + (|sayString| " ")) ('T (|sayString| |$highlightFontOff|)))) ((STRINGP |x|) (|sayString| |x|)) ('T (|brightPrintHighlight| |x|))))))))) @@ -1481,31 +1481,31 @@ (declare (special $MARG)) (RETURN (SEQ (COND - ((BOOT-EQUAL |x| (MAKESTRING "%l")) - (|sayString| (MAKESTRING "\\\\")) + ((BOOT-EQUAL |x| "%l") + (|sayString| "\\\\") (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| $MARG) NIL) - (SEQ (EXIT (|sayString| (MAKESTRING "\\ ")))))) - ((BOOT-EQUAL |x| (MAKESTRING "%i")) + (SEQ (EXIT (|sayString| "\\ "))))) + ((BOOT-EQUAL |x| "%i") (SPADLET $MARG (PLUS $MARG 3))) - ((BOOT-EQUAL |x| (MAKESTRING "%u")) + ((BOOT-EQUAL |x| "%u") (SPADLET $MARG (SPADDIFFERENCE $MARG 3)) (COND ((MINUSP $MARG) (SPADLET $MARG 0)) ('T NIL))) - ((BOOT-EQUAL |x| (MAKESTRING "%U")) (SPADLET $MARG 0)) - ((BOOT-EQUAL |x| (MAKESTRING "%")) - (|sayString| (MAKESTRING "\\ "))) - ((BOOT-EQUAL |x| (MAKESTRING "%%")) - (|sayString| (MAKESTRING "%"))) - ((BOOT-EQUAL |x| (MAKESTRING "%b")) - (|sayString| (MAKESTRING " {\\tt "))) + ((BOOT-EQUAL |x| "%U") (SPADLET $MARG 0)) + ((BOOT-EQUAL |x| "%") + (|sayString| "\\ ")) + ((BOOT-EQUAL |x| "%%") + (|sayString| "%")) + ((BOOT-EQUAL |x| "%b") + (|sayString| " {\\tt ")) ((SPADLET |k| (|blankIndicator| |x|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |k|) NIL) - (SEQ (EXIT (|sayString| (MAKESTRING "\\ ")))))) - ((BOOT-EQUAL |x| (MAKESTRING "%d")) - (|sayString| (MAKESTRING "} "))) - ((BOOT-EQUAL |x| (MAKESTRING "\"$\"")) - (|sayString| (MAKESTRING "\"\\verb!$!\""))) - ((BOOT-EQUAL |x| (MAKESTRING "$")) - (|sayString| (MAKESTRING "\\verb!$!"))) + (SEQ (EXIT (|sayString| "\\ "))))) + ((BOOT-EQUAL |x| "%d") + (|sayString| "} ")) + ((BOOT-EQUAL |x| "\"$\"") + (|sayString| "\"\\verb!$!\"")) + ((BOOT-EQUAL |x| "$") + (|sayString| "\\verb!$!")) ((STRINGP |x|) (|sayString| |x|)) ('T (|brightPrintHighlight| |x|))))))) @@ -1578,21 +1578,21 @@ (|$texFormatting| (|brightPrintHighlightAsTeX| |x|)) ((IDENTP |x|) (SPADLET |pn| (PNAME |x|)) (|sayString| |pn|)) - ((VECP |x|) (|sayString| (MAKESTRING "UNPRINTABLE"))) + ((VECP |x|) (|sayString| "UNPRINTABLE")) ((ATOM |x|) (|sayString| (|object2String| |x|))) ('T (SPADLET |key| (CAR |x|)) (SPADLET |rst| (CDR |x|)) (COND ((IDENTP |key|) (SPADLET |key| (PNAME |key|)))) (COND - ((BOOT-EQUAL |key| (MAKESTRING "%m")) + ((BOOT-EQUAL |key| "%m") (|mathprint| |rst|)) ((|member| |key| '("%p" "%s")) (PRETTYPRIN0 |rst|)) - ((BOOT-EQUAL |key| (MAKESTRING "%ce")) + ((BOOT-EQUAL |key| "%ce") (|brightPrintCenter| |rst|)) - ((BOOT-EQUAL |key| (MAKESTRING "%rj")) + ((BOOT-EQUAL |key| "%rj") (|brightPrintRightJustify| |rst|)) - ((BOOT-EQUAL |key| (MAKESTRING "%t")) + ((BOOT-EQUAL |key| "%t") (SPADLET $MARG (PLUS $MARG (|tabber| |rst|)))) - ('T (|sayString| (MAKESTRING "(")) + ('T (|sayString| "(") (|brightPrint1| |key|) (COND ((EQ |key| '|TAGGEDreturn|) @@ -1600,22 +1600,20 @@ (CONS (CAR |rst|) (CONS (CADR |rst|) (CONS (CADDR |rst|) - (CONS - (MAKESTRING - "environment (omitted)") + (CONS "environment (omitted)" NIL))))))) (DO ((G166741 |rst| (CDR G166741)) (|y| NIL)) ((OR (ATOM G166741) (PROGN (SETQ |y| (CAR G166741)) NIL)) NIL) (SEQ (EXIT (PROGN - (|sayString| (MAKESTRING " ")) + (|sayString| " ") (|brightPrint1| |y|))))) (COND ((AND |rst| (SPADLET |la| (LASTATOM |rst|))) - (|sayString| (MAKESTRING " . ")) + (|sayString| " . ") (|brightPrint1| |la|))) - (|sayString| (MAKESTRING ")")))))))))) + (|sayString| ")"))))))))) ;brightPrintHighlightAsTeX x == ; IDENTP x => @@ -1653,20 +1651,20 @@ ((IDENTP |x|) (SPADLET |pn| (PNAME |x|)) (|sayString| |pn|)) ((ATOM |x|) (|sayString| (|object2String| |x|))) - ((VECP |x|) (|sayString| (MAKESTRING "UNPRINTABLE"))) + ((VECP |x|) (|sayString| "UNPRINTABLE")) ('T (SPADLET |key| (CAR |x|)) (SPADLET |rst| (CDR |x|)) (COND - ((BOOT-EQUAL |key| (MAKESTRING "%m")) + ((BOOT-EQUAL |key| "%m") (|mathprint| |rst|)) - ((BOOT-EQUAL |key| (MAKESTRING "%m")) |rst|) - ((BOOT-EQUAL |key| (MAKESTRING "%s")) - (|sayString| (MAKESTRING "\\verb_")) - (PRETTYPRIN0 |rst|) (|sayString| (MAKESTRING "_"))) - ((BOOT-EQUAL |key| (MAKESTRING "%ce")) + ((BOOT-EQUAL |key| "%m") |rst|) + ((BOOT-EQUAL |key| "%s") + (|sayString| "\\verb_") + (PRETTYPRIN0 |rst|) (|sayString| "_")) + ((BOOT-EQUAL |key| "%ce") (|brightPrintCenter| |rst|)) - ((BOOT-EQUAL |key| (MAKESTRING "%t")) + ((BOOT-EQUAL |key| "%t") (SPADLET $MARG (PLUS $MARG (|tabber| |rst|)))) - ('T (|sayString| (MAKESTRING "(")) + ('T (|sayString| "(") (|brightPrint1| |key|) (COND ((EQ |key| '|TAGGEDreturn|) @@ -1674,22 +1672,20 @@ (CONS (CAR |rst|) (CONS (CADR |rst|) (CONS (CADDR |rst|) - (CONS - (MAKESTRING - "environment (omitted)") + (CONS "environment (omitted)" NIL))))))) (DO ((G166770 |rst| (CDR G166770)) (|y| NIL)) ((OR (ATOM G166770) (PROGN (SETQ |y| (CAR G166770)) NIL)) NIL) (SEQ (EXIT (PROGN - (|sayString| (MAKESTRING " ")) + (|sayString| " ") (|brightPrint1| |y|))))) (COND ((AND |rst| (SPADLET |la| (LASTATOM |rst|))) - (|sayString| (MAKESTRING " . ")) + (|sayString| " . ") (|brightPrint1| |la|))) - (|sayString| (MAKESTRING ")")))))))))) + (|sayString| ")"))))))))) ;tabber num == ; maxTab := 50 @@ -1745,7 +1741,7 @@ (DIVIDE (SPADDIFFERENCE $LINELENGTH |wid|) 2)) (SPADLET |x| (LIST (|fillerSpaces| (ELT |f| 0) - (MAKESTRING " ")) + " ") |x|)))) (DO ((G166799 |x| (CDR G166799)) (|y| NIL)) ((OR (ATOM G166799) @@ -1769,7 +1765,7 @@ (DIVIDE (SPADDIFFERENCE $LINELENGTH |wid|) 2)) (SPADLET |y| (CONS (|fillerSpaces| (ELT |f| 0) - (MAKESTRING " ")) + " ") |y|)))) (DO ((G166816 |y| (CDR G166816)) (|z| NIL)) ((OR (ATOM G166816) @@ -1802,8 +1798,8 @@ (PROG (|lst| |words|) (RETURN (SEQ (COND - ((ATOM |x|) (|sayString| (MAKESTRING "\\centerline{")) - (|sayString| |x|) (|sayString| (MAKESTRING "}"))) + ((ATOM |x|) (|sayString| "\\centerline{") + (|sayString| |x|) (|sayString| "}")) ('T (SPADLET |lst| |x|) (DO () ((NULL |lst|) NIL) (SEQ (EXIT (PROGN @@ -1821,7 +1817,7 @@ (SPADLET |lst| (CDR |lst|)))))) (COND (|lst| (SPADLET |lst| (CDR |lst|)))) - (|sayString| (MAKESTRING "\\centerline{")) + (|sayString| "\\centerline{") (SPADLET |words| (NREVERSE |words|)) (DO ((G166868 |words| (CDR G166868)) (|zz| NIL)) @@ -1831,7 +1827,7 @@ NIL)) NIL) (SEQ (EXIT (|brightPrint0| |zz|)))) - (|sayString| (MAKESTRING "}")))))) + (|sayString| "}"))))) NIL)))))) ;brightPrintRightJustify x == @@ -1873,7 +1869,7 @@ (SPADLET |x| (LIST (|fillerSpaces| (SPADDIFFERENCE $LINELENGTH |wid|) - (MAKESTRING " ")) + " ") |x|)) (DO ((G166891 |x| (CDR G166891)) (|y| NIL)) ((OR (ATOM G166891) @@ -1897,7 +1893,7 @@ (SPADLET |y| (CONS (|fillerSpaces| (SPADDIFFERENCE $LINELENGTH |wid|) - (MAKESTRING " ")) + " ") |y|)))) (DO ((G166908 |y| (CDR G166908)) (|z| NIL)) ((OR (ATOM G166908) @@ -1959,12 +1955,12 @@ (COND ((NULL |$highlightAllowed|) 1) ('T 1))) ((|member| |x| '("%l" |%l|)) 0) ((AND (STRINGP |x|) (> (STRINGLENGTH |x|) 2) - (BOOT-EQUAL (ELT |x| 0) (MAKESTRING "%")) - (BOOT-EQUAL (ELT |x| 1) (MAKESTRING "x"))) + (BOOT-EQUAL (ELT |x| 0) "%") + (BOOT-EQUAL (ELT |x| 1) "x")) (INTERN (ELT |x| 3))) ((STRINGP |x|) (STRINGLENGTH |x|)) ((IDENTP |x|) (STRINGLENGTH (PNAME |x|))) - ((VECP |x|) (STRINGLENGTH (MAKESTRING "UNPRINTABLE"))) + ((VECP |x|) (STRINGLENGTH "UNPRINTABLE")) ((ATOM |x|) (STRINGLENGTH (STRINGIMAGE |x|))) ('T (PLUS 2 (|sayBrightlyLength| |x|))))) @@ -2032,7 +2028,7 @@ NIL) ('T (SPADLET |w| (MIN (PLUS |m| 3) $LINELENGTH)) (SPADLET |p| (QUOTIENT $LINELENGTH |w|)) - (SPADLET |n| (|#| |l|)) (SPADLET |str| (MAKESTRING "")) + (SPADLET |n| (|#| |l|)) (SPADLET |str| "") (DO ((G166999 (SPADDIFFERENCE |n| 1)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G166999) NIL) @@ -2045,14 +2041,14 @@ (|fillerSpaces| (SPADDIFFERENCE |w| (|#| |c|)) - (MAKESTRING " ")))) + " "))) (COND ((EQL (REMAINDER (PLUS |i| 1) |p|) 0) (PROGN (|sayMSG| |str|) - (SPADLET |str| (MAKESTRING ""))))))))) + (SPADLET |str| "")))))))) (COND - ((NEQUAL |str| (MAKESTRING "")) (|sayMSG| |str|))) + ((NEQUAL |str| "") (|sayMSG| |str|))) NIL))))))) ;say2PerLine l == say2PerLineWidth(l,$LINELENGTH / 2) @@ -2080,7 +2076,7 @@ (PROGN (SETQ |x| (CAR G167033)) NIL)) NIL) (SEQ (EXIT (|sayLongOperation| |x|)))) - (|sayBrightly| (MAKESTRING ""))))))) + (|sayBrightly| "")))))) ;say2Split(l,short,long,width) == ; l is [x,:l'] => @@ -2171,13 +2167,13 @@ (|fillerSpaces| (SPADDIFFERENCE (QUOTIENT $LINELENGTH 2) (|sayDisplayWidth| (CAR |l|))) - (MAKESTRING " "))) + " ")) (COND ((SPADLET |l| (CDR |l|)) (|sayBrightlyNT| (CAR |l|)) (SPADLET |l| (CDR |l|)) - (|sayBrightly| (MAKESTRING ""))) - ('T (|sayBrightly| (MAKESTRING "")))))))))) + (|sayBrightly| "")) + ('T (|sayBrightly| ""))))))))) ;sayDisplayStringWidth x == ; null x => 0 @@ -2222,7 +2218,7 @@ (PLUS G167123 (|sayDisplayWidth,fn| |y|))))))))) ((OR (BOOT-EQUAL |x| '%%) - (BOOT-EQUAL |x| (MAKESTRING "%%"))) + (BOOT-EQUAL |x| "%%")) 1) ('T (|#| (|atom2String| |x|)))))))) @@ -2321,7 +2317,7 @@ (DEFUN |center80| (|text|) (declare (special $LINELENGTH)) - (|centerNoHighlight| |text| $LINELENGTH (MAKESTRING " "))) + (|centerNoHighlight| |text| $LINELENGTH " ")) ;centerAndHighlight(text,:argList) == ; width := IFCAR argList or $LINELENGTH @@ -2344,7 +2340,7 @@ (SEQ (PROGN (SPADLET |width| (OR (IFCAR |argList|) $LINELENGTH)) (SPADLET |fillchar| - (OR (IFCAR (IFCDR |argList|)) (MAKESTRING " "))) + (OR (IFCAR (IFCDR |argList|)) " ")) (SPADLET |wid| (PLUS (|entryWidth| |text|) 2)) (COND ((>= |wid| (SPADDIFFERENCE |width| 2)) @@ -2355,7 +2351,7 @@ (DIVIDE (SPADDIFFERENCE (SPADDIFFERENCE |width| |wid|) 2) 2)) - (SPADLET |fill1| (MAKESTRING "")) + (SPADLET |fill1| "") (DO ((G167221 (ELT |f| 0)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167221) NIL) (SEQ (EXIT (SPADLET |fill1| @@ -2396,7 +2392,7 @@ (SEQ (PROGN (SPADLET |width| (OR (IFCAR |argList|) $LINELENGTH)) (SPADLET |fillchar| - (OR (IFCAR (IFCDR |argList|)) (MAKESTRING " "))) + (OR (IFCAR (IFCDR |argList|)) " ")) (COND ((SPADLET |u| (|splitSayBrightlyArgument| |text|)) (SPADLET |text| (CAR |u|)) @@ -2410,7 +2406,7 @@ (DIVIDE (SPADDIFFERENCE (SPADDIFFERENCE |width| |wid|) 2) 2)) - (SPADLET |fill1| (MAKESTRING "")) + (SPADLET |fill1| "") (DO ((G167248 (ELT |f| 0)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G167248) NIL) (SEQ (EXIT (SPADLET |fill1| @@ -2510,18 +2506,18 @@ ; '"$", '"&", '"^", '"__", '"_~"] (SPADLET |$htSpecialChars| - (CONS (MAKESTRING "#") - (CONS (MAKESTRING "[") - (CONS (MAKESTRING "]") - (CONS (MAKESTRING "%") - (CONS (MAKESTRING "{") - (CONS (MAKESTRING "}") - (CONS (MAKESTRING "\\") - (CONS (MAKESTRING "$") - (CONS (MAKESTRING "&") - (CONS (MAKESTRING "^") - (CONS (MAKESTRING "_") - (CONS (MAKESTRING "~") + (CONS "#" + (CONS "[" + (CONS "]" + (CONS "%" + (CONS "{" + (CONS "}" + (CONS "\\" + (CONS "$" + (CONS "&" + (CONS "^" + (CONS "_" + (CONS "~" NIL))))))))))))) ;$htCharAlist := '( @@ -2555,7 +2551,7 @@ (SEQ (COND ((SPADLET |u| (LASSOC |s| |$htCharAlist|)) |u|) ((|member| |s| |$htSpecialChars|) - (STRCONC (MAKESTRING "\\") |s|)) + (STRCONC "\\" |s|)) ((NULL |$saturn|) |s|) ((ALPHA-CHAR-P (ELT |s| 0)) |s|) ((NULL (PROG (G167323) @@ -2571,7 +2567,7 @@ (|dbSpecialDisplayOpChar?| (ELT |s| |i|)))))))))) |s|) - ('T (SPADLET |buf| (MAKESTRING "")) + ('T (SPADLET |buf| "") (DO ((G167338 (MAXINDEX |s|)) (|i| 0 (QSADD1 |i|))) ((QSGREATERP |i| G167338) NIL) (SEQ (EXIT (SPADLET |buf| @@ -2579,8 +2575,8 @@ ((|dbSpecialDisplayOpChar?| (ELT |s| |i|)) (STRCONC |buf| - (MAKESTRING "\\verb!") - (ELT |s| |i|) (MAKESTRING "!"))) + "\\verb!" + (ELT |s| |i|) "!")) ('T (STRCONC |buf| (ELT |s| |i|)))))))) |buf|)))))) diff --git a/src/interp/nag-c02.lisp.pamphlet b/src/interp/nag-c02.lisp.pamphlet index e358fea..e1d4c1b 100644 --- a/src/interp/nag-c02.lisp.pamphlet +++ b/src/interp/nag-c02.lisp.pamphlet @@ -46,7 +46,7 @@ (DEFUN |c02aff| () (PROGN (|htInitPage| - (MAKESTRING "C02AFF - All Zeros of a Complex Polynomial") NIL) + "C02AFF - All Zeros of a Complex Polynomial" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) (|text| @@ -75,7 +75,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c02affSolve|) + (|htMakeDoneButton| "Continue" '|c02affSolve|) (|htShowPage|))) ;c02affSolve htPage == @@ -123,19 +123,19 @@ (DEFUN |c02affSolve,f| (|i| |n|) (PROG (|prefix| |post| |rnam| |inam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline z**")) + (SEQ (SPADLET |prefix| "\\newline z**") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE (PLUS (SPADDIFFERENCE |n| |i|) 1)) - (MAKESTRING "\\space{1}"))) - (SPADLET |post| (MAKESTRING "\\tab{30} ")) - (SPADLET |post| (STRCONC |post| (MAKESTRING "\\space{1}"))) + "\\space{1}")) + (SPADLET |post| "\\tab{30} ") + (SPADLET |post| (STRCONC |post| "\\space{1}")) (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "r") + (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (SPADLET |inam| - (INTERN (STRCONC (MAKESTRING "i") + (INTERN (STRCONC "i" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -172,8 +172,8 @@ (SPADLET |scale| (COND ((BOOT-EQUAL |logical| '|true|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -203,14 +203,12 @@ (|htInitPage| '|C02AFF - All Zeros of a Complex Polynomial| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{} \\tab{2} Enter the coefficients of the polynomial: ")) - (|htSay| (MAKESTRING "\\blankline ")) - (|htSay| (MAKESTRING - "Real parts \\tab{30} Imaginary parts ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{} \\tab{2} Enter the coefficients of the polynomial: ") + (|htSay| "\\blankline ") + (|htSay| "Real parts \\tab{30} Imaginary parts ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|c02affGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|scale| |scale|) @@ -280,8 +278,7 @@ (SPADLET |n| '5) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C02AFF - All Zeros of a Complex Polynomial") + "C02AFF - All Zeros of a Complex Polynomial" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -309,7 +306,7 @@ (|bcStrings| (10 "10.0" |r6| F)) (|text| . "\\tab{30} ") (|text| . "\\space{1} ") (|bcStrings| (10 "1.0" |i6| F)) (|text| . "\\newline ") (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c02affGen|) + (|htMakeDoneButton| "Continue" '|c02affGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|scale| |scale|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -359,7 +356,7 @@ (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) (|linkGen| - (STRCONC (MAKESTRING "c02aff([") |realstring| '|,| + (STRCONC "c02aff([" |realstring| '|,| |imagstring| '|],| (STRINGIMAGE |n|) '|,| |scale| '|,| (STRINGIMAGE |ifail|) '|)|))))))) @@ -396,7 +393,7 @@ (DEFUN |c02agf| () (PROGN (|htInitPage| - (MAKESTRING "C02AGF - All Zeros of a Real Polynomial") NIL) + "C02AGF - All Zeros of a Real Polynomial" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) (|text| @@ -425,7 +422,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c02agfSolve|) + (|htMakeDoneButton| "Continue" '|c02agfSolve|) (|htShowPage|))) ;c02agfSolve htPage == @@ -468,14 +465,14 @@ (DEFUN |c02agfSolve,f| (|i| |n|) (PROG (|prefix| |rnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline z**")) + (SEQ (SPADLET |prefix| "\\newline z**") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE (PLUS (SPADDIFFERENCE |n| |i|) 1)) - (MAKESTRING "\\space{1}"))) + "\\space{1}")) (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "r") + (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -504,8 +501,8 @@ (SPADLET |scale| (COND ((BOOT-EQUAL |logical| '|true|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -535,12 +532,11 @@ (|htInitPage| '|C02AGF - All Zeros of a Real Polynomial| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\menuitemstyle{} \\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the coefficients of the polynomial: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{} \\tab{2} ") + (|htSay| "Enter the coefficients of the polynomial: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|c02agfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|scale| |scale|) @@ -591,8 +587,7 @@ (SPADLET |n| '5) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C02AGF - All Zeros of a Real Polynomial") + "C02AGF - All Zeros of a Real Polynomial" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -611,7 +606,7 @@ (|text| . "z**0 \\space{1} ") (|bcStrings| (10 "6.0" |r6| F)) (|text| . "\\newline ") (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c02agfGen|) + (|htMakeDoneButton| "Continue" '|c02agfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|scale| |scale|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -651,7 +646,7 @@ (CONS |left| |reallist|)))))) (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| - (STRCONC (MAKESTRING "c02agf([") |realstring| '|],| + (STRCONC "c02agf([" |realstring| '|],| (STRINGIMAGE |n|) '|,| |scale| '|,| (STRINGIMAGE |ifail|) '|)|))))))) diff --git a/src/interp/nag-c05.lisp.pamphlet b/src/interp/nag-c05.lisp.pamphlet index ba420ed..61dd514 100644 --- a/src/interp/nag-c05.lisp.pamphlet +++ b/src/interp/nag-c05.lisp.pamphlet @@ -68,8 +68,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "C05ADF - Zero of continuous function in given interval, Bus and Dekker algorithm") + "C05ADF - Zero of continuous function in given interval, Bus and Dekker algorithm" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -115,7 +114,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c05adfGen|) + (|htMakeDoneButton| "Continue" '|c05adfGen|) (|htShowPage|))) ;c05adfGen htPage == @@ -153,11 +152,11 @@ (SPADLET |temp1| (COND ((> |temp| 0.0) |eps|) - ('T (MAKESTRING "1.0e-5")))) + ('T "1.0e-5"))) (SPADLET |expression| (|htpLabelInputString| |htPage| '|expression|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "c05adf(") |a| '|,| |b| '|,| + (STRCONC "c05adf(" |a| '|,| |b| '|,| |temp1| '|,| |eta| '|,| (STRINGIMAGE |ifail|))) (|linkGen| @@ -200,8 +199,7 @@ (DEFUN |c05nbf| () (PROGN (|htInitPage| - (MAKESTRING - "C05NBF - Solution of system of nonlinear equations using function values only") + "C05NBF - Solution of system of nonlinear equations using function values only" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -231,7 +229,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c05nbfSolve|) + (|htMakeDoneButton| "Continue" '|c05nbfSolve|) (|htShowPage|))) ;c05nbfSolve htPage == @@ -280,15 +278,15 @@ (DEFUN |c05nbfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline {\\em Function ")) + (SEQ (SPADLET |prefix| "\\newline {\\em Function ") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) - (MAKESTRING ":} \\space{1}"))) + ":} \\space{1}")) (SPADLET |funct| - (STRCONC (MAKESTRING "X[") (STRINGIMAGE |i|) + (STRCONC "X[" (STRINGIMAGE |i|) '|] + 1|)) (SPADLET |nam| - (INTERN (STRCONC (MAKESTRING "n") + (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -303,7 +301,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| (CONS (CONS 4 @@ -344,12 +342,10 @@ (APPEND G166099 (|c05nbfSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "of the solution vector {\\it x}: \\newline "))) + "of the solution vector {\\it x}: \\newline ")) (SPADLET |middle| (CONS '|text| |middle|)) (SPADLET |vecList| (PROG (G166111) @@ -374,12 +370,11 @@ (|htInitPage| '|C05NBF - Solution of system of nonlinear equations using function values only| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the functions \\htbitmap{fi} below in terms of X[1]...X[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the functions \\htbitmap{fi} below in terms of X[1]...X[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|c05nbfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -502,7 +497,7 @@ (|bcStrings| (4 "-1.0" |x7| F)) (|bcStrings| (4 "-1.0" |x8| F)) (|bcStrings| (4 "-1.0" |x9| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c05nbfGen|) + (|htMakeDoneButton| "Continue" '|c05nbfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|xtol| |xtol|) @@ -610,8 +605,7 @@ (DEFUN |c05pbf| () (PROGN (|htInitPage| - (MAKESTRING - "C05PBF - Solution of system of nonlinear equations using first derivatives") + "C05PBF - Solution of system of nonlinear equations using first derivatives" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -641,7 +635,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c05pbfSolve|) + (|htMakeDoneButton| "Continue" '|c05pbfSolve|) (|htShowPage|))) ;c05pbfSolve htPage == @@ -690,15 +684,15 @@ (DEFUN |c05pbfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline {\\em Function ")) + (SEQ (SPADLET |prefix| "\\newline {\\em Function ") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) - (MAKESTRING ":} \\space{1}"))) + ":} \\space{1}")) (SPADLET |funct| - (STRCONC (MAKESTRING "X[") (STRINGIMAGE |i|) + (STRCONC "X[" (STRINGIMAGE |i|) '|] + 1|)) (SPADLET |nam| - (INTERN (STRCONC (MAKESTRING "n") + (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -713,7 +707,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| (CONS (CONS 4 @@ -754,12 +748,10 @@ (APPEND G166197 (|c05pbfSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "of the solution vector {\\it x}: \\newline "))) + "of the solution vector {\\it x}: \\newline ")) (SPADLET |middle| (CONS '|text| |middle|)) (SPADLET |vecList| (PROG (G166209) @@ -782,15 +774,13 @@ |funcList|)) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C05PBF - Solution of system of nonlinear equations using first derivatives") + "C05PBF - Solution of system of nonlinear equations using first derivatives" (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the functions \\htbitmap{fi} below in terms of X[1]...X[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the functions \\htbitmap{fi} below in terms of X[1]...X[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|c05pbfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -856,8 +846,7 @@ (SPADLET |n| '9) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C05PBF - Solution of system of nonlinear equations using first derivatives") + "C05PBF - Solution of system of nonlinear equations using first derivatives" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -914,7 +903,7 @@ (|bcStrings| (4 "-1.0" |x7| F)) (|bcStrings| (4 "-1.0" |x8| F)) (|bcStrings| (4 "-1.0" |x9| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c05pbfGen|) + (|htMakeDoneButton| "Continue" '|c05pbfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|xtol| |xtol|) diff --git a/src/interp/nag-c06.lisp.pamphlet b/src/interp/nag-c06.lisp.pamphlet index 51b6a86..29854cb 100644 --- a/src/interp/nag-c06.lisp.pamphlet +++ b/src/interp/nag-c06.lisp.pamphlet @@ -42,8 +42,7 @@ (DEFUN |c06eaf| () (PROGN (|htInitPage| - (MAKESTRING - "C06EAF - Single 1-D real discrete Fourier transform ") + "C06EAF - Single 1-D real discrete Fourier transform " NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -68,7 +67,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06eafSolve|) + (|htMakeDoneButton| "Continue" '|c06eafSolve|) (|htShowPage|))) ;c06eafSolve htPage == @@ -106,9 +105,9 @@ (DEFUN |c06eafSolve,f| (|i|) (PROG (|prefix| |rnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{15} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "r") + (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -157,16 +156,14 @@ (|htInitPage| '|C06EAF - Single 1-D real discrete Fourier transform | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\menuitemstyle{} \\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the sequence to be transformed: ")) + (|htSay| "\\menuitemstyle{} \\tab{2} ") + (|htSay| "Enter the sequence to be transformed: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htSay| (MAKESTRING - "Note : On exit, the transformed sequence is stored ")) - (|htSay| (MAKESTRING "in Hermitian form ")) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htSay| "Note : On exit, the transformed sequence is stored ") + (|htSay| "in Hermitian form ") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|c06eafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -214,8 +211,7 @@ (SPADLET |n| '7) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06EAF - Single 1-D real discrete Fourier transform ") + "C06EAF - Single 1-D real discrete Fourier transform " NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -241,7 +237,7 @@ . "Note : On exit, the transformed sequence is stored ") (|text| . "in Hermitian form ") (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06eafGen|) + (|htMakeDoneButton| "Continue" '|c06eafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -277,7 +273,7 @@ (CONS |left| |reallist|)))))) (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| - (STRCONC (MAKESTRING "c06eaf(") (STRINGIMAGE |n|) + (STRCONC "c06eaf(" (STRINGIMAGE |n|) '|,[| |realstring| '|],| (STRINGIMAGE |ifail|) '|)|))))))) @@ -310,8 +306,7 @@ (DEFUN |c06ebf| () (PROGN (|htInitPage| - (MAKESTRING - "C06EBF - Single 1-D Hermitian discrete Fourier transform ") + "C06EBF - Single 1-D Hermitian discrete Fourier transform " NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -334,7 +329,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06ebfSolve|) + (|htMakeDoneButton| "Continue" '|c06ebfSolve|) (|htShowPage|))) ;c06ebfSolve htPage == @@ -371,9 +366,9 @@ (DEFUN |c06ebfSolve,f| (|i|) (PROG (|prefix| |rnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{15} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "r") + (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -422,15 +417,13 @@ (|htInitPage| '|C06EBF - Single 1-D real discrete Fourier transform | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\menuitemstyle{} \\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the sequence to be transformed, stored in Hermitian form: ")) + (|htSay| "\\menuitemstyle{} \\tab{2} ") + (|htSay| "Enter the sequence to be transformed, stored in Hermitian form: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htSay| (MAKESTRING - "Note : On exit, the components of the discrete Fourier transform ")) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htSay| "Note : On exit, the components of the discrete Fourier transform ") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|c06ebfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -477,8 +470,7 @@ (SPADLET |n| '7) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06EBF - Single 1-D Hermitian discrete Fourier transform ") + "C06EBF - Single 1-D Hermitian discrete Fourier transform " NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -504,7 +496,7 @@ (|text| . "Note : On exit, the components of the discrete Fourier transform") (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06ebfGen|) + (|htMakeDoneButton| "Continue" '|c06ebfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -540,7 +532,7 @@ (CONS |left| |reallist|)))))) (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| - (STRCONC (MAKESTRING "c06ebf(") (STRINGIMAGE |n|) + (STRCONC "c06ebf(" (STRINGIMAGE |n|) '|,[| |realstring| '|],| (STRINGIMAGE |ifail|) '|)|))))))) @@ -572,8 +564,7 @@ (DEFUN |c06ecf| () (PROGN (|htInitPage| - (MAKESTRING - "C06ECF - Single 1-D complex discrete Fourier transform ") + "C06ECF - Single 1-D complex discrete Fourier transform " NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -595,7 +586,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06ecfSolve|) + (|htMakeDoneButton| "Continue" '|c06ecfSolve|) (|htShowPage|))) ;c06ecfSolve htPage == @@ -636,13 +627,13 @@ (DEFUN |c06ecfSolve,f| (|i|) (PROG (|prefix| |post| |xnam| |ynam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |post| (MAKESTRING "\\tab{32} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |post| "\\tab{32} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -703,13 +694,11 @@ (|htInitPage| '|C06ECF - Single 1-D complex discrete Fourier transform | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Real parts of sequence: \\tab{30} ")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{32} Imaginary parts: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Real parts of sequence: \\tab{30} ") + (|htSay| "\\menuitemstyle{}\\tab{32} Imaginary parts: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|c06ecfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -768,8 +757,7 @@ (SPADLET |n| '7) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06ECF - Single 1-D complex discrete Fourier transform ") + "C06ECF - Single 1-D complex discrete Fourier transform " (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -806,7 +794,7 @@ (|text| . "\\tab{32} ") (|bcStrings| (10 "0.16298" |y7| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06ecfGen|) + (|htMakeDoneButton| "Continue" '|c06ecfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -853,7 +841,7 @@ (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) (|linkGen| - (STRCONC (MAKESTRING "c06ecf(") (STRINGIMAGE |n|) + (STRCONC "c06ecf(" (STRINGIMAGE |n|) '|,[| |realstring| '|],[| |imagstring| '|],| (STRINGIMAGE |ifail|) '|)|))))))) @@ -892,8 +880,7 @@ (DEFUN |c06ekf| () (PROGN (|htInitPage| - (MAKESTRING - "C06EKF - Circular convolution or correlation of two real vectors") + "C06EKF - Circular convolution or correlation of two real vectors" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -921,7 +908,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06ekfSolve|) + (|htMakeDoneButton| "Continue" '|c06ekfSolve|) (|htShowPage|))) ;c06ekfSolve htPage == @@ -968,13 +955,13 @@ (DEFUN |c06ekfSolve,f| (|i|) (PROG (|prefix| |post| |xnam| |ynam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |post| (MAKESTRING "\\tab{34} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |post| "\\tab{34} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -1039,14 +1026,12 @@ (|htInitPage| '|C06EKF - Single 1-D complex discrete Fourier transform | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Elements of period of vector {\\em x}: ")) - (|htSay| (MAKESTRING "\\tab{31} ")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{34} Elements of period of vector {\\em y}:")) + (|htSay| "\\menuitemstyle{}\\tab{2} Elements of period of vector {\\em x}: ") + (|htSay| "\\tab{31} ") + (|htSay| "\\menuitemstyle{}\\tab{34} Elements of period of vector {\\em y}:") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|c06ekfGen|) (|htpSetProperty| |page| '|job| |job|) (|htpSetProperty| |page| '|n| |n|) @@ -1115,8 +1100,7 @@ (SPADLET |n| '9) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06EKF - Circular convolution or correlation of two real vectors ") + "C06EKF - Circular convolution or correlation of two real vectors " (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -1153,7 +1137,7 @@ (|bcStrings| (10 "0.00" |x9| F)) (|text| . "\\tab{34} ") (|bcStrings| (10 "0.00" |y9| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06ekfGen|) + (|htMakeDoneButton| "Continue" '|c06ekfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|job| |job|) @@ -1203,7 +1187,7 @@ (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) (|linkGen| - (STRCONC (MAKESTRING "c06ekf(") (STRINGIMAGE |job|) + (STRCONC "c06ekf(" (STRINGIMAGE |job|) '|,| (STRINGIMAGE |n|) '|,[| |realstring| '|],[| |imagstring| '|],| (STRINGIMAGE |ifail|) '|)|))))))) @@ -1248,8 +1232,7 @@ (DEFUN |c06fpf| () (PROGN (|htInitPage| - (MAKESTRING - "C06FPF - Multiple 1-D real discrete Fourier transform ") + "C06FPF - Multiple 1-D real discrete Fourier transform " NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -1282,7 +1265,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06fpfSolve|) + (|htMakeDoneButton| "Continue" '|c06fpfSolve|) (|htShowPage|))) ;c06fpfSolve htPage == @@ -1340,7 +1323,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "r") (STRINGIMAGE |i|) + (INTERN (STRCONC "r" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1361,16 +1344,16 @@ (SEQ (EXIT (SETQ G166334 (APPEND G166334 (|c06fpfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) (DEFUN |c06fpfSolve,h| (|k|) (PROG (|prefix| |trignam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") (SPADLET |trignam| - (INTERN (STRCONC (MAKESTRING "t") + (INTERN (STRCONC "t" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -1406,9 +1389,9 @@ (SPADLET |call| (|htpButtonValue| |htPage| '|init|)) (SPADLET |init| (COND - ((BOOT-EQUAL |call| '|i|) (MAKESTRING "i")) - ((BOOT-EQUAL |call| '|s|) (MAKESTRING "s")) - ('T (MAKESTRING "r")))) + ((BOOT-EQUAL |call| '|i|) "i") + ((BOOT-EQUAL |call| '|s|) "s") + ('T "r"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -1438,8 +1421,7 @@ (APPEND G166366 (|c06fpfSolve,h| |k|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Trigonometric coefficients ")) + "\\blankline \\menuitemstyle{} \\tab{2} Trigonometric coefficients ") (SPADLET |prefix| (STRCONC |prefix| '|(not required if initial call) {\\it TRIG}: |)) @@ -1455,13 +1437,11 @@ (|htInitPage| '|C06FPF - Multiple 1-D real discrete Fourier transform | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\menuitemstyle{} \\tab{2} ")) - (|htSay| (MAKESTRING - "Enter each sequence to be transformed, {\\it x}. ")) - (|htSay| (MAKESTRING - "(Each column to contain a sequence.) ")) + (|htSay| "\\menuitemstyle{} \\tab{2} ") + (|htSay| "Enter each sequence to be transformed, {\\it x}. ") + (|htSay| "(Each column to contain a sequence.) ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|c06fpfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -1550,8 +1530,7 @@ (SPADLET |m| '3) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06FPF - Multiple 1-D real discrete Fourier transform ") + "C06FPF - Multiple 1-D real discrete Fourier transform " NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -1613,7 +1592,7 @@ (|text| . "\\newline \\tab{2} ") (|bcStrings| (6 "0.0" |t12| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06fpfGen|) + (|htMakeDoneButton| "Continue" '|c06fpfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|init| |init|) @@ -1671,7 +1650,7 @@ (SPADLET |xlist| (CONS |left| |xlist|)))))) (SPADLET |xstring| (|bcwords2liststring| |xlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "c06fpf(") (STRINGIMAGE |m|) + (STRCONC "c06fpf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, "|)) (SPADLET |prefix| (STRCONC |prefix| |init| '|",[| |xstring| '|],[| @@ -1718,8 +1697,7 @@ (DEFUN |c06fqf| () (PROGN (|htInitPage| - (MAKESTRING - "C06FQF - Multiple 1-D Hermitian discrete Fourier transform ") + "C06FQF - Multiple 1-D Hermitian discrete Fourier transform " NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -1752,7 +1730,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06fqfSolve|) + (|htMakeDoneButton| "Continue" '|c06fqfSolve|) (|htShowPage|))) ;c06fqfSolve htPage == @@ -1810,7 +1788,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "r") (STRINGIMAGE |i|) + (INTERN (STRCONC "r" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1831,7 +1809,7 @@ (SEQ (EXIT (SETQ G166457 (APPEND G166457 (|c06fqfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -1840,7 +1818,7 @@ (RETURN (SEQ (SPADLET |prefix| '|\\newline \\tab{2} |) (SPADLET |trignam| - (INTERN (STRCONC (MAKESTRING "t") + (INTERN (STRCONC "t" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -1876,9 +1854,9 @@ (SPADLET |call| (|htpButtonValue| |htPage| '|init|)) (SPADLET |init| (COND - ((BOOT-EQUAL |call| '|i|) (MAKESTRING "i")) - ((BOOT-EQUAL |call| '|s|) (MAKESTRING "s")) - ('T (MAKESTRING "r")))) + ((BOOT-EQUAL |call| '|i|) "i") + ((BOOT-EQUAL |call| '|s|) "s") + ('T "r"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -1908,8 +1886,7 @@ (APPEND G166489 (|c06fqfSolve,h| |k|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Trignometric coefficients ")) + "\\blankline \\menuitemstyle{} \\tab{2} Trignometric coefficients ") (SPADLET |prefix| (STRCONC |prefix| '|(not required if initial call) {\\it TRIG}: |)) @@ -1925,13 +1902,11 @@ (|htInitPage| '|C06FQF - Multiple 1-D Hermitian discrete Fourier transform | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\menuitemstyle{} \\tab{2} ")) - (|htSay| (MAKESTRING - "Enter each sequence to be transformed, {\\it x}. ")) - (|htSay| (MAKESTRING - "(Each column to contain a sequence.) ")) + (|htSay| "\\menuitemstyle{} \\tab{2} ") + (|htSay| "Enter each sequence to be transformed, {\\it x}. ") + (|htSay| "(Each column to contain a sequence.) ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|c06fqfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -2020,8 +1995,7 @@ (SPADLET |m| '3) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06FQF - Multiple 1-D Hermitian discrete Fourier transform ") + "C06FQF - Multiple 1-D Hermitian discrete Fourier transform " NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -2083,7 +2057,7 @@ (|text| . "\\newline \\tab{2} ") (|bcStrings| (6 "0.0" |t12| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06fqfGen|) + (|htMakeDoneButton| "Continue" '|c06fqfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|init| |init|) @@ -2141,7 +2115,7 @@ (SPADLET |xlist| (CONS |left| |xlist|)))))) (SPADLET |xstring| (|bcwords2liststring| |xlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "c06fqf(") (STRINGIMAGE |m|) + (STRCONC "c06fqf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, "|)) (SPADLET |prefix| (STRCONC |prefix| |init| '|",[| |xstring| '|],[| @@ -2188,8 +2162,7 @@ (DEFUN |c06frf| () (PROGN (|htInitPage| - (MAKESTRING - "C06FRF - Multiple 1-D complex discrete Fourier transform ") + "C06FRF - Multiple 1-D complex discrete Fourier transform " NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -2222,7 +2195,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06frfSolve|) + (|htMakeDoneButton| "Continue" '|c06frfSolve|) (|htShowPage|))) ;c06frfSolve htPage == @@ -2293,7 +2266,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") (STRINGIMAGE |i|) + (INTERN (STRCONC "x" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2314,7 +2287,7 @@ (SEQ (EXIT (SETQ G166580 (APPEND G166580 (|c06frfSolve,gx| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2322,7 +2295,7 @@ (PROG (|ynam|) (RETURN (SEQ (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") (STRINGIMAGE |i|) + (INTERN (STRCONC "y" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2343,7 +2316,7 @@ (SEQ (EXIT (SETQ G166603 (APPEND G166603 (|c06frfSolve,gy| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2352,7 +2325,7 @@ (RETURN (SEQ (SPADLET |prefix| '|\\newline \\tab{2} |) (SPADLET |trignam| - (INTERN (STRCONC (MAKESTRING "t") + (INTERN (STRCONC "t" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -2388,9 +2361,9 @@ (SPADLET |call| (|htpButtonValue| |htPage| '|init|)) (SPADLET |init| (COND - ((BOOT-EQUAL |call| '|i|) (MAKESTRING "i")) - ((BOOT-EQUAL |call| '|s|) (MAKESTRING "s")) - ('T (MAKESTRING "r")))) + ((BOOT-EQUAL |call| '|i|) "i") + ((BOOT-EQUAL |call| '|s|) "s") + ('T "r"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -2419,8 +2392,7 @@ (APPEND G166635 (|c06frfSolve,fy| |i| |m|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the imaginary parts ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the imaginary parts ") (SPADLET |prefix| (STRCONC |prefix| '|of each sequence to be transformed, {\\it y}. |)) @@ -2444,8 +2416,7 @@ (APPEND G166643 (|c06frfSolve,h| |k|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Trignometric coefficients ")) + "\\blankline \\menuitemstyle{} \\tab{2} Trignometric coefficients ") (SPADLET |prefix| (STRCONC |prefix| '|(not required if initial call) {\\it TRIG}: |)) @@ -2462,13 +2433,11 @@ (|htInitPage| '|C06FRF - Multiple 1-D real discrete Fourier transform | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\menuitemstyle{} \\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the real parts of each sequence to be transformed, {\\it x}. ")) - (|htSay| (MAKESTRING - "(Each column to contain the real parts of a sequence.) ")) + (|htSay| "\\menuitemstyle{} \\tab{2} ") + (|htSay| "Enter the real parts of each sequence to be transformed, {\\it x}. ") + (|htSay| "(Each column to contain the real parts of a sequence.) ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|c06frfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -2587,8 +2556,7 @@ (SPADLET |m| '3) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06FRF - Multiple 1-D real discrete Fourier transform ") + "C06FRF - Multiple 1-D real discrete Fourier transform " NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -2681,7 +2649,7 @@ (|text| . "\\newline \\tab{2} ") (|bcStrings| (6 "0.0" |t12| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06frfGen|) + (|htMakeDoneButton| "Continue" '|c06frfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|init| |init|) @@ -2752,7 +2720,7 @@ (SPADLET |xlist| (CONS |left| |xlist|)))))) (SPADLET |xstring| (|bcwords2liststring| |xlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "c06frf(") (STRINGIMAGE |m|) + (STRCONC "c06frf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, "|)) (SPADLET |prefix| (STRCONC |prefix| |init| '|",[| |xstring| '|],[| @@ -2802,7 +2770,7 @@ (DEFUN |c06fuf| () (PROGN (|htInitPage| - (MAKESTRING "C06FUF - 2-D complex discrete Fourier transform ") + "C06FUF - 2-D complex discrete Fourier transform " NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -2838,7 +2806,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06fufSolve|) + (|htMakeDoneButton| "Continue" '|c06fufSolve|) (|htShowPage|))) ;c06fufSolve htPage == @@ -2917,7 +2885,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") (STRINGIMAGE |i|) + (INTERN (STRCONC "x" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2938,7 +2906,7 @@ (SEQ (EXIT (SETQ G166756 (APPEND G166756 (|c06fufSolve,gx| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2946,7 +2914,7 @@ (PROG (|ynam|) (RETURN (SEQ (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") (STRINGIMAGE |i|) + (INTERN (STRCONC "y" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2967,7 +2935,7 @@ (SEQ (EXIT (SETQ G166779 (APPEND G166779 (|c06fufSolve,gy| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2976,7 +2944,7 @@ (RETURN (SEQ (SPADLET |prefix| '|\\newline \\tab{2} |) (SPADLET |trignam| - (INTERN (STRCONC (MAKESTRING "tm") + (INTERN (STRCONC "tm" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -2992,7 +2960,7 @@ (RETURN (SEQ (SPADLET |prefix| '|\\newline \\tab{2} |) (SPADLET |trignam| - (INTERN (STRCONC (MAKESTRING "tn") + (INTERN (STRCONC "tn" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -3028,9 +2996,9 @@ (SPADLET |call| (|htpButtonValue| |htPage| '|init|)) (SPADLET |init| (COND - ((BOOT-EQUAL |call| '|i|) (MAKESTRING "i")) - ((BOOT-EQUAL |call| '|s|) (MAKESTRING "s")) - ('T (MAKESTRING "r")))) + ((BOOT-EQUAL |call| '|i|) "i") + ((BOOT-EQUAL |call| '|s|) "s") + ('T "r"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -3059,8 +3027,7 @@ (APPEND G166818 (|c06fufSolve,fy| |i| |m|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the imaginary parts ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the imaginary parts ") (SPADLET |prefix| (STRCONC |prefix| '|of each sequence to be transformed, {\\it y}. |)) @@ -3084,8 +3051,7 @@ (APPEND G166826 (|c06fufSolve,hm| |k|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Trignometric coefficients ")) + "\\blankline \\menuitemstyle{} \\tab{2} Trignometric coefficients ") (SPADLET |prefix| (STRCONC |prefix| '|(not required if initial call) {\\it TRIGM}: |)) @@ -3105,8 +3071,7 @@ (APPEND G166835 (|c06fufSolve,hn| |k|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} {\\it TRIGN}: ")) + "\\blankline \\menuitemstyle{} \\tab{2} {\\it TRIGN}: ") (SPADLET |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) (SPADLET |trignList| @@ -3122,13 +3087,11 @@ (|htInitPage| '|C06FUF - 2-D complex discrete Fourier transform | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\menuitemstyle{} \\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the real part of each sequence to be transformed, {\\it x}. ")) - (|htSay| (MAKESTRING - "(Each column to contain the real parts of a sequence.) ")) + (|htSay| "\\menuitemstyle{} \\tab{2} ") + (|htSay| "Enter the real part of each sequence to be transformed, {\\it x}. ") + (|htSay| "(Each column to contain the real parts of a sequence.) ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|c06fufGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -3250,8 +3213,7 @@ (SPADLET |m| '3) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06FUF - 2-D real discrete Fourier transform ") + "C06FUF - 2-D real discrete Fourier transform " NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -3346,7 +3308,7 @@ (|text| . "\\newline \\tab{2} ") (|bcStrings| (6 "0.0" |tn10| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06fufGen|) + (|htMakeDoneButton| "Continue" '|c06fufGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|init| |init|) @@ -3432,7 +3394,7 @@ (SPADLET |xlist| (CONS |left| |xlist|)))))) (SPADLET |xstring| (|bcwords2liststring| |xlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "c06fuf(") (STRINGIMAGE |m|) + (STRCONC "c06fuf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, "|)) (SPADLET |prefix| (STRCONC |prefix| |init| '|",[| |xstring| '|],[| @@ -3470,8 +3432,7 @@ (DEFUN |c06gbf| () (PROGN (|htInitPage| - (MAKESTRING - "C06GBF - Complex conjugate of a Hermitian sequence ") + "C06GBF - Complex conjugate of a Hermitian sequence " NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -3495,7 +3456,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06gbfSolve|) + (|htMakeDoneButton| "Continue" '|c06gbfSolve|) (|htShowPage|))) ;c06gbfSolve htPage == @@ -3532,9 +3493,9 @@ (DEFUN |c06gbfSolve,f| (|i|) (PROG (|prefix| |rnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{15} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "r") + (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -3583,15 +3544,13 @@ (|htInitPage| '|C06GBF - Complex conjugate of a Hermitian sequence | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\menuitemstyle{} \\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the Hermitian sequence to be transformed stored in Hermitian form: ")) + (|htSay| "\\menuitemstyle{} \\tab{2} ") + (|htSay| "Enter the Hermitian sequence to be transformed stored in Hermitian form: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htSay| (MAKESTRING - "Note : On exit, the imaginary values are negated ")) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htSay| "Note : On exit, the imaginary values are negated ") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|c06gbfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -3639,8 +3598,7 @@ (SPADLET |n| '7) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06GBF - Complex conjugate of a Hermitian sequence ") + "C06GBF - Complex conjugate of a Hermitian sequence " NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -3667,7 +3625,7 @@ (|text| . "Note : On exit, the imaginary values are negated ") (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06gbfGen|) + (|htMakeDoneButton| "Continue" '|c06gbfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -3703,7 +3661,7 @@ (CONS |left| |reallist|)))))) (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| - (STRCONC (MAKESTRING "c06gbf(") (STRINGIMAGE |n|) + (STRCONC "c06gbf(" (STRINGIMAGE |n|) '|,[| |realstring| '|],| (STRINGIMAGE |ifail|) '|)|))))))) @@ -3737,7 +3695,7 @@ (DEFUN |c06gcf| () (PROGN (|htInitPage| - (MAKESTRING "C06GCF - Complex conjugate of complex sequence ") + "C06GCF - Complex conjugate of complex sequence " NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -3762,7 +3720,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06gcfSolve|) + (|htMakeDoneButton| "Continue" '|c06gcfSolve|) (|htShowPage|))) ;c06gcfSolve htPage == @@ -3799,9 +3757,9 @@ (DEFUN |c06gcfSolve,f| (|i|) (PROG (|prefix| |rnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{15} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "r") + (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -3850,15 +3808,13 @@ (|htInitPage| '|C06GCF - Complex conjugate of a Hermitian sequence | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\menuitemstyle{} \\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the imaginary parts of the sequence: ")) + (|htSay| "\\menuitemstyle{} \\tab{2} ") + (|htSay| "Enter the imaginary parts of the sequence: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htSay| (MAKESTRING - "Note : On exit, these values are negated ")) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htSay| "Note : On exit, these values are negated ") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|c06gcfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -3905,8 +3861,7 @@ (SPADLET |n| '7) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06GCF - Complex conjugate of complex sequence ") + "C06GCF - Complex conjugate of complex sequence " NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -3930,7 +3885,7 @@ (|text| . "\\blankline ") (|text| . "Note : On exit, these values are negated ") (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06gcfGen|) + (|htMakeDoneButton| "Continue" '|c06gcfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -3966,7 +3921,7 @@ (CONS |left| |reallist|)))))) (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| - (STRCONC (MAKESTRING "c06gcf(") (STRINGIMAGE |n|) + (STRCONC "c06gcf(" (STRINGIMAGE |n|) '|,[| |realstring| '|],| (STRINGIMAGE |ifail|) '|)|))))))) @@ -4006,8 +3961,7 @@ (DEFUN |c06gqf| () (PROGN (|htInitPage| - (MAKESTRING - "C06GQF - Complex conjugate of multiple Hermitian sequences ") + "C06GQF - Complex conjugate of multiple Hermitian sequences " NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -4038,7 +3992,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06gqfSolve|) + (|htMakeDoneButton| "Continue" '|c06gqfSolve|) (|htShowPage|))) ;c06gqfSolve htPage == @@ -4086,7 +4040,7 @@ (PROG (|rnam|) (RETURN (SEQ (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "r") (STRINGIMAGE |i|) + (INTERN (STRCONC "r" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -4107,7 +4061,7 @@ (SEQ (EXIT (SETQ G167087 (APPEND G167087 (|c06gqfSolve,f| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -4161,15 +4115,13 @@ (|htInitPage| '|C06GQF - Complex conjugate of multiple Hermitian sequences | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\newline ")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Please enter each sequence to be ")) - (|htSay| (MAKESTRING - "transformed in Hermitian format. (Each column to contain ")) - (|htSay| (MAKESTRING "a sequence.) ")) + (|htSay| "\\newline ") + (|htSay| "\\menuitemstyle{}\\tab{2} Please enter each sequence to be ") + (|htSay| "transformed in Hermitian format. (Each column to contain ") + (|htSay| "a sequence.) ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|c06gqfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -4229,8 +4181,7 @@ (SPADLET |n| '6) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06GQF - Complex conjugate of multiple Hermitian sequences ") + "C06GQF - Complex conjugate of multiple Hermitian sequences " (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -4264,7 +4215,7 @@ (|bcStrings| (6 "0.8723" |y26| F)) (|bcStrings| (6 "0.4815" |y36| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06gqfGen|) + (|htMakeDoneButton| "Continue" '|c06gqfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -4303,7 +4254,7 @@ (CONS |right| |reallist|)))))) (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| - (STRCONC (MAKESTRING "c06gqf(") (STRINGIMAGE |m|) '|,| + (STRCONC "c06gqf(" (STRINGIMAGE |m|) '|,| (STRINGIMAGE |n|) '|,[| |realstring| '|],| (STRINGIMAGE |ifail|) '|)|))))))) @@ -4343,8 +4294,7 @@ (DEFUN |c06gsf| () (PROGN (|htInitPage| - (MAKESTRING - "C06GSF - Convert Hermitian sequences to general complex sequences") + "C06GSF - Convert Hermitian sequences to general complex sequences" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -4377,7 +4327,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06gsfSolve|) + (|htMakeDoneButton| "Continue" '|c06gsfSolve|) (|htShowPage|))) ;c06gsfSolve htPage == @@ -4425,7 +4375,7 @@ (PROG (|rnam|) (RETURN (SEQ (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "r") (STRINGIMAGE |i|) + (INTERN (STRCONC "r" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -4446,7 +4396,7 @@ (SEQ (EXIT (SETQ G167167 (APPEND G167167 (|c06gsfSolve,f| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -4500,15 +4450,13 @@ (|htInitPage| '|C06GSF - Convert Hermitian sequences to general complex sequences | (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING "\\newline ")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Please enter each sequence to be ")) - (|htSay| (MAKESTRING - "transformed in Hermitian format. (Each column to contain a ")) - (|htSay| (MAKESTRING "sequence.) ")) + (|htSay| "\\newline ") + (|htSay| "\\menuitemstyle{}\\tab{2} Please enter each sequence to be ") + (|htSay| "transformed in Hermitian format. (Each column to contain a ") + (|htSay| "sequence.) ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|c06gsfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -4568,8 +4516,7 @@ (SPADLET |n| '6) (SPADLET |page| (|htInitPage| - (MAKESTRING - "C06GSF - Convert Hermitian sequences to general complex sequences ") + "C06GSF - Convert Hermitian sequences to general complex sequences " (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -4603,7 +4550,7 @@ (|bcStrings| (6 "0.8723" |y26| F)) (|bcStrings| (6 "0.4815" |y36| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|c06gsfGen|) + (|htMakeDoneButton| "Continue" '|c06gsfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -4642,7 +4589,7 @@ (CONS |right| |reallist|)))))) (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (|linkGen| - (STRCONC (MAKESTRING "c06gsf(") (STRINGIMAGE |m|) '|,| + (STRCONC "c06gsf(" (STRINGIMAGE |m|) '|,| (STRINGIMAGE |n|) '|,[| |realstring| '|],| (STRINGIMAGE |ifail|) '|)|))))))) diff --git a/src/interp/nag-d01.lisp.pamphlet b/src/interp/nag-d01.lisp.pamphlet index ae699a0..b2db45f 100644 --- a/src/interp/nag-d01.lisp.pamphlet +++ b/src/interp/nag-d01.lisp.pamphlet @@ -72,8 +72,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D01AJF - 1-D quadrature, adaptive, finite interval, allowing for badly-behaved integrands") + "D01AJF - 1-D quadrature, adaptive, finite interval, allowing for badly-behaved integrands" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -124,7 +123,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01ajfGen|) + (|htMakeDoneButton| "Continue" '|d01ajfGen|) (|htShowPage|))) ;d01ajfGen htPage == @@ -242,8 +241,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D01AKF - 1-D quadrature, adaptive, finite interval, method suitable for oscillating functions") + "D01AKF - 1-D quadrature, adaptive, finite interval, method suitable for oscillating functions" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -293,7 +291,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01akfGen|) + (|htMakeDoneButton| "Continue" '|d01akfGen|) (|htShowPage|))) ;d01akfGen htPage == @@ -423,8 +421,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D01ALF - 1-D quadrature, adaptive, finite interval, allowing for singularities at user-specified break-points ") + "D01ALF - 1-D quadrature, adaptive, finite interval, allowing for singularities at user-specified break-points " NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -486,7 +483,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01alfGen|) + (|htMakeDoneButton| "Continue" '|d01alfGen|) (|htShowPage|))) ;d01alfGen htPage == @@ -539,7 +536,7 @@ (|objValUnwrap| (|htpLabelSpadValue| |htPage| '|npts|))))) (SPADLET |points| (|htpLabelInputString| |htPage| '|points|)) - (SPADLET |points| (STRCONC (MAKESTRING "[[") |points| ']])) + (SPADLET |points| (STRCONC "[[" |points| ']])) (SPADLET |epsabs| (|htpLabelInputString| |htPage| '|epsabs|)) (SPADLET |epsrel| (|htpLabelInputString| |htPage| '|epsrel|)) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) @@ -551,16 +548,16 @@ (|htpLabelInputString| |htPage| '|expression|)) (SPADLET |liw| (QUOTIENT |lw| 2)) (SPADLET |prefix| - (STRCONC (MAKESTRING "d01alf(") |a| '| ,| |b| '| ,| + (STRCONC "d01alf(" |a| '| ,| |b| '| ,| (STRINGIMAGE |npts|) '|,| |points| '|,|)) (SPADLET |prefix| (STRCONC |prefix| |epsabs| '| ,| |epsrel| '| ,| (STRINGIMAGE |lw|))) (SPADLET |middle| - (STRCONC (MAKESTRING " ,") (STRINGIMAGE |liw|) '| ,| + (STRCONC " ," (STRINGIMAGE |liw|) '| ,| (STRINGIMAGE |ifail|) '| ,|)) (SPADLET |end| - (STRCONC (MAKESTRING "(") |express| + (STRCONC "(" |express| '|::Expression Float) :: ASP1(F))|)) (|linkGen| (STRCONC |prefix| |middle| |end|)))))) @@ -627,8 +624,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D01AMF 1-D quadrature, adaptive, infinite or semi-infinite interval") + "D01AMF 1-D quadrature, adaptive, infinite or semi-infinite interval" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -685,7 +681,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01amfGen|) + (|htMakeDoneButton| "Continue" '|d01amfGen|) (|htShowPage|))) ;d01amfGen htPage == @@ -747,16 +743,16 @@ (|htpLabelInputString| |htPage| '|expression|)) (SPADLET |liw| (QUOTIENT |lw| 4)) (SPADLET |prefix| - (STRCONC (MAKESTRING "d01amf(") |a| '| ,| + (STRCONC "d01amf(" |a| '| ,| (STRINGIMAGE |inf|) '| ,|)) (SPADLET |prefix| (STRCONC |prefix| |epsabs| '| ,| |epsrel| '| ,| (STRINGIMAGE |lw|))) (SPADLET |middle| - (STRCONC (MAKESTRING " ,") (STRINGIMAGE |liw|) '| ,| + (STRCONC " ," (STRINGIMAGE |liw|) '| ,| (STRINGIMAGE |ifail|) '| ,|)) (SPADLET |end| - (STRCONC (MAKESTRING "(") |express| + (STRCONC "(" |express| '|::Expression Float) :: ASP1(F))|)) (|linkGen| (STRCONC |prefix| |middle| |end|)))))) @@ -830,8 +826,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D01ANF - 1-D quadrature, adaptive, finite interval, weight function cos(\\omega x) or sin(\\omega x)") + "D01ANF - 1-D quadrature, adaptive, finite interval, weight function cos(\\omega x) or sin(\\omega x)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -889,7 +884,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01anfGen|) + (|htMakeDoneButton| "Continue" '|d01anfGen|) (|htShowPage|))) ;d01anfGen htPage == @@ -1034,8 +1029,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D01APF - 1-D quadrature, adaptive, finite interval, weight function with end point singularities of algebraico-logarithmic type") + "D01APF - 1-D quadrature, adaptive, finite interval, weight function with end point singularities of algebraico-logarithmic type" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1108,7 +1102,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01apfGen|) + (|htMakeDoneButton| "Continue" '|d01apfGen|) (|htShowPage|))) ;d01apfGen htPage == @@ -1253,8 +1247,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D01AQF - 1-D quadrature, adaptive, finite interval, weight function 1/(x-c), Cauchy principal value (Hilbert transform)") + "D01AQF - 1-D quadrature, adaptive, finite interval, weight function 1/(x-c), Cauchy principal value (Hilbert transform)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1308,7 +1301,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01aqfGen|) + (|htMakeDoneButton| "Continue" '|d01aqfGen|) (|htShowPage|))) ;d01aqfGen htPage == @@ -1439,8 +1432,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D01ASF - 1-D quadrature, adaptive, semi-infinite interval, weight function cos(\\omega x) or sin(\\omega x)") + "D01ASF - 1-D quadrature, adaptive, semi-infinite interval, weight function cos(\\omega x) or sin(\\omega x)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1501,7 +1493,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01asfGen|) + (|htMakeDoneButton| "Continue" '|d01asfGen|) (|htShowPage|))) ;d01asfGen htPage == @@ -1608,8 +1600,7 @@ (DEFUN |d01gaf| () (PROGN (|htInitPage| - (MAKESTRING - "D01GAF - \\space{1} 1-D quadrature, integration of function defined by data values, Gill-Miller method") + "D01GAF - \\space{1} 1-D quadrature, integration of function defined by data values, Gill-Miller method" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -1634,7 +1625,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01gafSolve|) + (|htMakeDoneButton| "Continue" '|d01gafSolve|) (|htShowPage|))) ;d01gafSolve htPage == @@ -1676,13 +1667,13 @@ (DEFUN |d01gafSolve,f| (|i|) (PROG (|prefix| |post| |xnam| |ynam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |post| (MAKESTRING "\\tab{40} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |post| "\\tab{40} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -1743,15 +1734,12 @@ (|htInitPage| '|D01GAF - 1-D quadrature, integration of function defined by data values| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Enter values for {\\em x}: \\tab{38} ")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{40} Enter values for {\\em y}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Enter values for {\\em x}: \\tab{38} ") + (|htSay| "\\menuitemstyle{}\\tab{40} Enter values for {\\em y}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htSay| (MAKESTRING - "Note:\\space{1}{\\em x} values in ascending or descending order only ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htSay| "Note:\\space{1}{\\em x} values in ascending or descending order only ") + (|htMakeDoneButton| "Continue" '|d01gafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -1869,8 +1857,7 @@ (SPADLET |n| '21) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D01GAF - 1-D quadrature, integration of function defined by data values") + "D01GAF - 1-D quadrature, integration of function defined by data values" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -1947,7 +1934,7 @@ (|text| . "Note:\\space{1}{\\em x} values in ascending or descending order only ") (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01gafGen|) + (|htMakeDoneButton| "Continue" '|d01gafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -1994,7 +1981,7 @@ (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) (|linkGen| - (STRCONC (MAKESTRING "d01gaf([") |realstring| '|],[| + (STRCONC "d01gaf([" |realstring| '|],[| |imagstring| '|],| (STRINGIMAGE |n|) '|,| (STRINGIMAGE |ifail|) '|)|))))))) @@ -2061,8 +2048,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle") + "D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -2118,7 +2104,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01fcfSolve|) + (|htMakeDoneButton| "Continue" '|d01fcfSolve|) (|htShowPage|))) ;d01fcfSolve htPage == @@ -2175,13 +2161,13 @@ (DEFUN |d01fcfSolve,f| (|i|) (PROG (|prefix| |post| |rnam| |inam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |post| (MAKESTRING "\\tab{32} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |post| "\\tab{32} ") (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "a") + (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) (SPADLET |inam| - (INTERN (STRCONC (MAKESTRING "b") + (INTERN (STRCONC "b" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -2272,18 +2258,14 @@ |labelList|)) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle") + "D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle" NIL)) - (|htSay| (MAKESTRING - "Please enter the limits of integration:- ")) - (|htSay| (MAKESTRING "\\blankline ")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Lower limits: \\tab{30} ")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{32} Upper limits: ")) + (|htSay| "Please enter the limits of integration:- ") + (|htSay| "\\blankline ") + (|htSay| "\\menuitemstyle{}\\tab{2} Lower limits: \\tab{30} ") + (|htSay| "\\menuitemstyle{}\\tab{32} Upper limits: ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|d01fcfGen|) (|htpSetProperty| |page| '|ndim| |ndim|) (|htpSetProperty| |page| '|expression| |expression|) @@ -2345,8 +2327,7 @@ (SPADLET |ndim| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle") + "D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -2369,7 +2350,7 @@ (|bcStrings| (10 "0.0" |a4| F)) (|text| . "\\tab{32} ") (|bcStrings| (10 "1.0" |b4| F)) (|text| . "\\newline ") (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01fcfGen|) + (|htMakeDoneButton| "Continue" '|d01fcfGen|) (|htpSetProperty| |page| '|ndim| |ndim|) (|htpSetProperty| |page| '|expression| |expression|) (|htpSetProperty| |page| '|minpts| |minpts|) @@ -2510,8 +2491,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method") + "D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -2566,7 +2546,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01gbfSolve|) + (|htMakeDoneButton| "Continue" '|d01gbfSolve|) (|htShowPage|))) ;d01gbfSolve htPage == @@ -2623,13 +2603,13 @@ (DEFUN |d01gbfSolve,f| (|i|) (PROG (|prefix| |post| |rnam| |inam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |post| (MAKESTRING "\\tab{32} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |post| "\\tab{32} ") (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "a") + (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) (SPADLET |inam| - (INTERN (STRCONC (MAKESTRING "b") + (INTERN (STRCONC "b" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -2720,18 +2700,14 @@ |labelList|)) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method") + "D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method" NIL)) - (|htSay| (MAKESTRING - "Please enter the limits of integration:- ")) - (|htSay| (MAKESTRING "\\blankline ")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Lower limits: \\tab{30} ")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{32} Upper limits: ")) + (|htSay| "Please enter the limits of integration:- ") + (|htSay| "\\blankline ") + (|htSay| "\\menuitemstyle{}\\tab{2} Lower limits: \\tab{30} ") + (|htSay| "\\menuitemstyle{}\\tab{32} Upper limits: ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|d01gbfGen|) (|htpSetProperty| |page| '|ndim| |ndim|) (|htpSetProperty| |page| '|expression| |expression|) @@ -2793,8 +2769,7 @@ (SPADLET |ndim| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method") + "D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -2817,7 +2792,7 @@ (|bcStrings| (10 "0.0" |a4| F)) (|text| . "\\tab{32} ") (|bcStrings| (10 "1.0" |b4| F)) (|text| . "\\newline ") (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01gbfGen|) + (|htMakeDoneButton| "Continue" '|d01gbfGen|) (|htpSetProperty| |page| '|ndim| |ndim|) (|htpSetProperty| |page| '|expression| |expression|) (|htpSetProperty| |page| '|mincls| |mincls|) @@ -2958,8 +2933,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D01BBF - Weights and abscissae for Gaussian quadrature rules") + "D01BBF - Weights and abscissae for Gaussian quadrature rules" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -3006,7 +2980,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d01bbfGen|) + (|htMakeDoneButton| "Continue" '|d01bbfGen|) (|htShowPage|))) ;d01bbfGen htPage == diff --git a/src/interp/nag-d02.lisp.pamphlet b/src/interp/nag-d02.lisp.pamphlet index 0644ef6..70d8807 100644 --- a/src/interp/nag-d02.lisp.pamphlet +++ b/src/interp/nag-d02.lisp.pamphlet @@ -69,8 +69,7 @@ (DEFUN |d02bbf| () (PROGN (|htInitPage| - (MAKESTRING - "D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output") + "D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -118,7 +117,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02bbfSolve|) + (|htMakeDoneButton| "Continue" '|d02bbfSolve|) (|htShowPage|))) ;d02bbfSolve htPage == @@ -182,14 +181,14 @@ (DEFUN |d02bbfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline {\\em Function ")) + (SEQ (SPADLET |prefix| "\\newline {\\em Function ") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) - (MAKESTRING ":} \\space{1}"))) + ":} \\space{1}")) (SPADLET |funct| - (STRCONC (MAKESTRING "Y[") (STRINGIMAGE |i|) '])) + (STRCONC "Y[" (STRINGIMAGE |i|) '])) (SPADLET |nam| - (INTERN (STRCONC (MAKESTRING "n") + (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -204,7 +203,7 @@ (PROG (|ynam|) (RETURN (SEQ (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "u") + (INTERN (STRCONC "u" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -258,12 +257,10 @@ (APPEND G166080 (|d02bbfSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "values of \\htbitmap{yi}: \\newline \\tab{2}"))) + "values of \\htbitmap{yi}: \\newline \\tab{2}")) (SPADLET |yList| (PROG (G166088) (SPADLET G166088 NIL) @@ -277,12 +274,10 @@ (SPADLET |yList| (CONS (CONS '|text| |middle|) |yList|)) (SPADLET |mid| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Intermediate values of {\\it x}")) + "\\blankline \\menuitemstyle{} \\tab{2} Intermediate values of {\\it x}") (SPADLET |mid| (STRCONC |mid| - (MAKESTRING - " at which \\htbitmap{yi} is required: \\newline \\tab{2}"))) + " at which \\htbitmap{yi} is required: \\newline \\tab{2}")) (SPADLET |vList| (CONS (CONS '|bcStrings| (CONS @@ -302,16 +297,14 @@ (APPEND |yList| |vList|)))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output") + "D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the functions (i.e. the derivatives) below ")) - (|htSay| (MAKESTRING "as functions of Y[1]...Y[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the functions (i.e. the derivatives) below ") + (|htSay| "as functions of Y[1]...Y[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|d02bbfGen|) (|htpSetProperty| |page| '|x| |x|) (|htpSetProperty| |page| '|xend| |xend|) @@ -373,8 +366,7 @@ (SPADLET |n| '3) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output") + "D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -412,7 +404,7 @@ (|htpSetProperty| |page| '|tol| |tol|) (|htpSetProperty| |page| '|irelab| |irelab|) (|htpSetProperty| |page| '|ifail| |ifail|) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02bbfGen|) + (|htMakeDoneButton| "Continue" '|d02bbfGen|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) (|htShowPage|))))) @@ -570,8 +562,7 @@ (DEFUN |d02bhf| () (PROGN (|htInitPage| - (MAKESTRING - "D02BHF - ODEs, IVP, Runge-Kutta-Merson method, until function of solution is zero") + "D02BHF - ODEs, IVP, Runge-Kutta-Merson method, until function of solution is zero" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -625,7 +616,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02bhfSolve|) + (|htMakeDoneButton| "Continue" '|d02bhfSolve|) (|htShowPage|))) ;d02bhfSolve htPage == @@ -691,14 +682,14 @@ (DEFUN |d02bhfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline {\\em Function ")) + (SEQ (SPADLET |prefix| "\\newline {\\em Function ") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) - (MAKESTRING ":} \\space{1}"))) + ":} \\space{1}")) (SPADLET |funct| - (STRCONC (MAKESTRING "Y[") (STRINGIMAGE |i|) '])) + (STRCONC "Y[" (STRINGIMAGE |i|) '])) (SPADLET |nam| - (INTERN (STRCONC (MAKESTRING "n") + (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -713,7 +704,7 @@ (PROG (|ynam|) (RETURN (SEQ (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "u") + (INTERN (STRCONC "u" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -766,12 +757,10 @@ (APPEND G166200 (|d02bhfSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "values of \\htbitmap{yi}: \\newline "))) + "values of \\htbitmap{yi}: \\newline ")) (SPADLET |yList| (PROG (G166208) (SPADLET G166208 NIL) @@ -785,17 +774,15 @@ (SPADLET |yList| (CONS (CONS '|text| |middle|) |yList|)) (SPADLET |mid| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the function below ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the function below ") (SPADLET |mid| (STRCONC |mid| - (MAKESTRING - "{\\em g(x,y)}: \\newline "))) + "{\\em g(x,y)}: \\newline ")) (SPADLET |vList| (CONS (CONS '|bcStrings| (CONS (CONS 30 - (CONS (MAKESTRING "Y[1]") + (CONS "Y[1]" (CONS '|g| (CONS 'EM NIL)))) NIL)) NIL)) @@ -810,16 +797,14 @@ (APPEND |yList| |vList|)))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02BHF - ODEs, IVP, Runge-Kutta-Merson method, until function of solution is zero") + "D02BHF - ODEs, IVP, Runge-Kutta-Merson method, until function of solution is zero" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the functions (i.e. the derivatives) below \\htbitmap{fi} ")) - (|htSay| (MAKESTRING "as functions of Y[1]...Y[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the functions (i.e. the derivatives) below \\htbitmap{fi} ") + (|htSay| "as functions of Y[1]...Y[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|d02bhfGen|) (|htpSetProperty| |page| '|x| |x|) (|htpSetProperty| |page| '|xend| |xend|) @@ -882,8 +867,7 @@ (SPADLET |n| '3) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02BHF - ODEs, IVP, Runge-Kutta-Merson method, until function of solution is zero") + "D02BHF - ODEs, IVP, Runge-Kutta-Merson method, until function of solution is zero" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -918,7 +902,7 @@ (|htpSetProperty| |page| '|irelab| |irelab|) (|htpSetProperty| |page| '|hmax| |hmax|) (|htpSetProperty| |page| '|ifail| |ifail|) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02bhfGen|) + (|htMakeDoneButton| "Continue" '|d02bhfGen|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) (|htShowPage|))))) @@ -1058,8 +1042,7 @@ (DEFUN |d02cjf| () (PROGN (|htInitPage| - (MAKESTRING - "D02CJF - ODEs, IVP, Adams method, until function of solution is zero, intermediate output") + "D02CJF - ODEs, IVP, Adams method, until function of solution is zero, intermediate output" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -1108,7 +1091,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02cjfSolve|) + (|htMakeDoneButton| "Continue" '|d02cjfSolve|) (|htShowPage|))) ;d02cjfSolve htPage == @@ -1176,14 +1159,14 @@ (DEFUN |d02cjfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline {\\em Function ")) + (SEQ (SPADLET |prefix| "\\newline {\\em Function ") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) - (MAKESTRING ":} \\space{1}"))) + ":} \\space{1}")) (SPADLET |funct| - (STRCONC (MAKESTRING "Y[") (STRINGIMAGE |i|) '])) + (STRCONC "Y[" (STRINGIMAGE |i|) '])) (SPADLET |nam| - (INTERN (STRCONC (MAKESTRING "n") + (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -1198,7 +1181,7 @@ (PROG (|ynam|) (RETURN (SEQ (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "u") + (INTERN (STRCONC "u" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1229,10 +1212,10 @@ (SPADLET |relabs| (COND ((BOOT-EQUAL |control| '|mix|) - (MAKESTRING "D")) + "D") ((BOOT-EQUAL |control| '|abs|) - (MAKESTRING "A")) - ('T (MAKESTRING "R")))) + "A") + ('T "R"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -1252,12 +1235,10 @@ (APPEND G166318 (|d02cjfSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "values of \\htbitmap{yi}: \\newline "))) + "values of \\htbitmap{yi}: \\newline ")) (SPADLET |yList| (PROG (G166326) (SPADLET G166326 NIL) @@ -1271,12 +1252,10 @@ (SPADLET |yList| (CONS (CONS '|text| |middle|) |yList|)) (SPADLET |mid| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Intermediate values of {\\it x}")) + "\\blankline \\menuitemstyle{} \\tab{2} Intermediate values of {\\it x}") (SPADLET |mid| (STRCONC |mid| - (MAKESTRING - " at which \\htbitmap{yi} is required: \\newline "))) + " at which \\htbitmap{yi} is required: \\newline ")) (SPADLET |vList| (CONS (CONS '|bcStrings| (CONS @@ -1287,17 +1266,15 @@ NIL)) (SPADLET |vList| (CONS (CONS '|text| |mid|) |vList|)) (SPADLET |midd| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the function below ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the function below ") (SPADLET |midd| (STRCONC |midd| - (MAKESTRING - "{\\em g(x,y)}: \\newline "))) + "{\\em g(x,y)}: \\newline ")) (SPADLET |uList| (CONS (CONS '|bcStrings| (CONS (CONS 30 - (CONS (MAKESTRING "Y[1]") + (CONS "Y[1]" (CONS '|g| (CONS 'EM NIL)))) NIL)) NIL)) @@ -1313,16 +1290,14 @@ (APPEND |vList| |uList|))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02CJF - ODEs, IVP, Adams method, until function of solution is zero, intermediate output") + "D02CJF - ODEs, IVP, Adams method, until function of solution is zero, intermediate output" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the functions (i.e. the derivatives) below \\htbitmap{fi} ")) - (|htSay| (MAKESTRING "as functions of Y[1]...Y[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the functions (i.e. the derivatives) below \\htbitmap{fi} ") + (|htSay| "as functions of Y[1]...Y[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|d02cjfGen|) (|htpSetProperty| |page| '|x| |x|) (|htpSetProperty| |page| '|xend| |xend|) @@ -1388,8 +1363,7 @@ (SPADLET |n| '3) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02CJF - ODEs, IVP, Adams method, until function of solution is zero, intermediate output") + "D02CJF - ODEs, IVP, Adams method, until function of solution is zero, intermediate output" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1429,7 +1403,7 @@ (|htpSetProperty| |page| '|tol| |tol|) (|htpSetProperty| |page| '|relabs| |relabs|) (|htpSetProperty| |page| '|ifail| |ifail|) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02cjfGen|) + (|htMakeDoneButton| "Continue" '|d02cjfGen|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) (|htShowPage|))))) @@ -1587,8 +1561,7 @@ (DEFUN |d02ejf| () (PROGN (|htInitPage| - (MAKESTRING - "D02EJF - ODEs, stiff IVP, BDF method, until function of solution is zero, intermediate output") + "D02EJF - ODEs, stiff IVP, BDF method, until function of solution is zero, intermediate output" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -1637,7 +1610,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02ejfSolve|) + (|htMakeDoneButton| "Continue" '|d02ejfSolve|) (|htShowPage|))) ;d02ejfSolve htPage == @@ -1709,14 +1682,14 @@ (DEFUN |d02ejfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline {\\em Function ")) + (SEQ (SPADLET |prefix| "\\newline {\\em Function ") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) - (MAKESTRING ":} \\space{1}"))) + ":} \\space{1}")) (SPADLET |funct| - (STRCONC (MAKESTRING "Y[") (STRINGIMAGE |i|) '])) + (STRCONC "Y[" (STRINGIMAGE |i|) '])) (SPADLET |nam| - (INTERN (STRCONC (MAKESTRING "n") + (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -1731,7 +1704,7 @@ (PROG (|ynam|) (RETURN (SEQ (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "u") + (INTERN (STRCONC "u" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1762,10 +1735,10 @@ (SPADLET |relabs| (COND ((BOOT-EQUAL |control| '|mix|) - (MAKESTRING "D")) + "D") ((BOOT-EQUAL |control| '|abs|) - (MAKESTRING "A")) - ('T (MAKESTRING "R")))) + "A") + ('T "R"))) (SPADLET |iw| (PLUS (TIMES (PLUS |n| 12) |n|) 50)) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| @@ -1786,12 +1759,10 @@ (APPEND G166444 (|d02ejfSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "values of \\htbitmap{yi}: \\newline "))) + "values of \\htbitmap{yi}: \\newline ")) (SPADLET |yList| (PROG (G166452) (SPADLET G166452 NIL) @@ -1805,12 +1776,10 @@ (SPADLET |yList| (CONS (CONS '|text| |middle|) |yList|)) (SPADLET |mid| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Intermediate values of {\\it x}")) + "\\blankline \\menuitemstyle{} \\tab{2} Intermediate values of {\\it x}") (SPADLET |mid| (STRCONC |mid| - (MAKESTRING - " at which \\htbitmap{yi} is required: \\newline "))) + " at which \\htbitmap{yi} is required: \\newline ")) (SPADLET |vList| (CONS (CONS '|bcStrings| (CONS @@ -1821,17 +1790,15 @@ NIL)) (SPADLET |vList| (CONS (CONS '|text| |mid|) |vList|)) (SPADLET |midd| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the function below ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the function below ") (SPADLET |midd| (STRCONC |midd| - (MAKESTRING - "{\\em g(x,y)}: \\newline "))) + "{\\em g(x,y)}: \\newline ")) (SPADLET |uList| (CONS (CONS '|bcStrings| (CONS (CONS 30 - (CONS (MAKESTRING "Y[1]") + (CONS "Y[1]" (CONS '|g| (CONS 'EM NIL)))) NIL)) NIL)) @@ -1847,19 +1814,16 @@ (APPEND |vList| |uList|))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02EJF - ODEs, stiff IVP, BDF method, until function of solution is zero, intermediate output") + "D02EJF - ODEs, stiff IVP, BDF method, until function of solution is zero, intermediate output" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the functions (i.e. the derivatives) below \\htbitmap{fi} ")) - (|htSay| (MAKESTRING "as functions of Y[1]...Y[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the functions (i.e. the derivatives) below \\htbitmap{fi} ") + (|htSay| "as functions of Y[1]...Y[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING - "\\blankline {\\em Note:} PEDERV is automatically generated using the vector ")) - (|htSay| (MAKESTRING "of derivatives given above. ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline {\\em Note:} PEDERV is automatically generated using the vector ") + (|htSay| "of derivatives given above. ") + (|htMakeDoneButton| "Continue" '|d02ejfGen|) (|htpSetProperty| |page| '|x| |x|) (|htpSetProperty| |page| '|xend| |xend|) @@ -1930,8 +1894,7 @@ (SPADLET |n| '3) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02EJF - ODEs, stiff IVP, BDF method, until function of solution is zero, intermediate output") + "D02EJF - ODEs, stiff IVP, BDF method, until function of solution is zero, intermediate output" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1976,7 +1939,7 @@ (|htpSetProperty| |page| '|relabs| |relabs|) (|htpSetProperty| |page| '|iw| |iw|) (|htpSetProperty| |page| '|ifail| |ifail|) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02ejfGen|) + (|htMakeDoneButton| "Continue" '|d02ejfGen|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) (|htShowPage|))))) @@ -2154,8 +2117,7 @@ (DEFUN |d02gaf| () (PROGN (|htInitPage| - (MAKESTRING - "D02GAF - ODEs, boundary value problem, finite difference technique with deferred correction, simple nonlinear problem") + "D02GAF - ODEs, boundary value problem, finite difference technique with deferred correction, simple nonlinear problem" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -2217,7 +2179,7 @@ (|radioButtons| |cfail| ("" " 1, print warning messages" |cone|) ("" " 0, suppress warning messages" |czero|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02gafSolve|) + (|htMakeDoneButton| "Continue" '|d02gafSolve|) (|htShowPage|))) ;d02gafSolve htPage == @@ -2318,14 +2280,14 @@ (DEFUN |d02gafSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline {\\em Function ")) + (SEQ (SPADLET |prefix| "\\newline {\\em Function ") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) - (MAKESTRING ":} \\space{1}"))) + ":} \\space{1}")) (SPADLET |funct| - (STRCONC (MAKESTRING "Y[") (STRINGIMAGE |i|) '])) + (STRCONC "Y[" (STRINGIMAGE |i|) '])) (SPADLET |nam| - (INTERN (STRCONC (MAKESTRING "n") + (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -2340,7 +2302,7 @@ (PROG (|unam|) (RETURN (SEQ (SPADLET |unam| - (INTERN (STRCONC (MAKESTRING "u") (STRINGIMAGE |i|) + (INTERN (STRCONC "u" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2361,7 +2323,7 @@ (SEQ (EXIT (SETQ G166576 (APPEND G166576 (|d02gafSolve,fc| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2369,7 +2331,7 @@ (PROG (|vnam|) (RETURN (SEQ (SPADLET |vnam| - (INTERN (STRCONC (MAKESTRING "v") (STRINGIMAGE |i|) + (INTERN (STRCONC "v" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2390,7 +2352,7 @@ (SEQ (EXIT (SETQ G166599 (APPEND G166599 (|d02gafSolve,fe| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2398,7 +2360,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -2492,12 +2454,10 @@ (APPEND G166622 (|d02gafSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter known or estimated ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter known or estimated ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "values of \\htbitmap{yi} at a and b, "))) + "values of \\htbitmap{yi} at a and b, ")) (SPADLET |middle| (STRCONC |middle| '|{\\it U(n,2)}. [\\htbitmap{yi}(a) in the first |)) @@ -2518,16 +2478,13 @@ (SPADLET |uList| (CONS (CONS '|text| |middle|) |uList|)) (SPADLET |mid| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter {\\it V(n,2)}. ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter {\\it V(n,2)}. ") (SPADLET |mid| (STRCONC |mid| - (MAKESTRING - "If U(i,j) is known V(i,j) "))) + "If U(i,j) is known V(i,j) ")) (SPADLET |mid| (STRCONC |mid| - (MAKESTRING - "= 0.0, else V(i,j) = 1.0. \\newline "))) + "= 0.0, else V(i,j) = 1.0. \\newline ")) (SPADLET |vList| (PROG (G166638) (SPADLET G166638 NIL) @@ -2550,12 +2507,10 @@ (APPEND G166646 (|d02gafSolve,ff| |i|))))))))) (SPADLET |end| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial mesh ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the initial mesh ") (SPADLET |end| (STRCONC |end| - (MAKESTRING - "{\\it X(mnp)}: \\newline "))) + "{\\it X(mnp)}: \\newline ")) (SPADLET |xList| (CONS (CONS '|text| |end|) |xList|)) (SPADLET |equationPart| (CONS '(|domainConditions| @@ -2568,16 +2523,14 @@ (APPEND |vList| |xList|))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02GAF - ODEs, boundary value problem, finite difference technique with deferred correction, simple nonlinear problem") + "D02GAF - ODEs, boundary value problem, finite difference technique with deferred correction, simple nonlinear problem" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the functions (i.e. the derivatives) below as functions of ")) - (|htSay| (MAKESTRING "Y[1]...Y[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the functions (i.e. the derivatives) below as functions of ") + (|htSay| "Y[1]...Y[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|d02gafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|a| |a|) @@ -2727,8 +2680,7 @@ (SPADLET |n| '3) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02GAF - ODEs, boundary value problem, finite difference technique with deferred correction, simple nonlinear problem") + "D02GAF - ODEs, boundary value problem, finite difference technique with deferred correction, simple nonlinear problem" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -2844,7 +2796,7 @@ (|htpSetProperty| |page| '|liw| |liw|) (|htpSetProperty| |page| '|tol| |tol|) (|htpSetProperty| |page| '|ifail| |ifail|) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02gafGen|) + (|htMakeDoneButton| "Continue" '|d02gafGen|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) (|htShowPage|))))) @@ -3080,8 +3032,7 @@ (DEFUN |d02gbf| () (PROGN (|htInitPage| - (MAKESTRING - "D02GBF - ODEs, boundary value problem, finite difference technique with deferred correction, general nonlinear problem") + "D02GBF - ODEs, boundary value problem, finite difference technique with deferred correction, general nonlinear problem" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -3139,7 +3090,7 @@ (|radioButtons| |cfail| ("" " 1, print warning messages" |cone|) ("" " 0, suppress warning messages" |czero|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02gbfSolve|) + (|htMakeDoneButton| "Continue" '|d02gbfSolve|) (|htShowPage|))) ;d02gbfSolve htPage == @@ -3254,7 +3205,7 @@ (PROG (|cnam|) (RETURN (SEQ (SPADLET |cnam| - (INTERN (STRCONC (MAKESTRING "c") (STRINGIMAGE |i|) + (INTERN (STRCONC "c" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -3275,7 +3226,7 @@ (SEQ (EXIT (SETQ G166859 (APPEND G166859 (|d02gbfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -3283,7 +3234,7 @@ (PROG (|dnam|) (RETURN (SEQ (SPADLET |dnam| - (INTERN (STRCONC (MAKESTRING "d") (STRINGIMAGE |i|) + (INTERN (STRCONC "d" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -3304,7 +3255,7 @@ (SEQ (EXIT (SETQ G166882 (APPEND G166882 (|d02gbfSolve,fd| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -3312,7 +3263,7 @@ (PROG (|gamnam|) (RETURN (SEQ (SPADLET |gamnam| - (INTERN (STRCONC (MAKESTRING "gam") + (INTERN (STRCONC "gam" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -3325,7 +3276,7 @@ (PROG (|fnam|) (RETURN (SEQ (SPADLET |fnam| - (INTERN (STRCONC (MAKESTRING "f") (STRINGIMAGE |i|) + (INTERN (STRCONC "f" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -3346,7 +3297,7 @@ (SEQ (EXIT (SETQ G166911 (APPEND G166911 (|d02gbfSolve,fg| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -3354,7 +3305,7 @@ (PROG (|gnam|) (RETURN (SEQ (SPADLET |gnam| - (INTERN (STRCONC (MAKESTRING "g") + (INTERN (STRCONC "g" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -3367,7 +3318,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -3457,8 +3408,7 @@ (APPEND G166940 (|d02gbfSolve,fa| |i| |n|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix {\\it D}: ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix {\\it D}: ") (SPADLET |middle| (STRCONC |middle| '|\\newline |)) (SPADLET |dList| (PROG (G166948) @@ -3473,8 +3423,7 @@ (SPADLET |dList| (CONS (CONS '|text| |middle|) |dList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the vector \\gamma: ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the vector \\gamma: ") (SPADLET |middle| (STRCONC |middle| '|\\newline |)) (SPADLET |gamList| (PROG (G166956) @@ -3486,12 +3435,11 @@ (SETQ G166956 (APPEND G166956 (|d02gbfSolve,fe| |i|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (SPADLET |gamList| (CONS (CONS '|text| |middle|) |gamList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix ") (SPADLET |middle| (STRCONC |middle| '|{\\it F(x)} from the equation {\\it y' =} |)) @@ -3511,10 +3459,9 @@ (SPADLET |fList| (CONS (CONS '|text| |middle|) |fList|)) (SPADLET |mid| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the vector {\\it g(x)}: ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the vector {\\it g(x)}: ") (SPADLET |mid| - (STRCONC |mid| (MAKESTRING "\\newline "))) + (STRCONC |mid| "\\newline ")) (SPADLET |gList| (PROG (G166972) (SPADLET G166972 NIL) @@ -3525,7 +3472,7 @@ (SETQ G166972 (APPEND G166972 (|d02gbfSolve,fh| |i|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (SPADLET |gList| (CONS (CONS '|text| |middle|) |gList|)) (SPADLET |xList| @@ -3539,12 +3486,10 @@ (APPEND G166980 (|d02gbfSolve,fi| |i|))))))))) (SPADLET |end| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} The initial mesh {\\it X(mnp)}")) + "\\blankline \\menuitemstyle{} \\tab{2} The initial mesh {\\it X(mnp)}") (SPADLET |end| (STRCONC |end| - (MAKESTRING - ", (all entries = 0 if np < 4): \\newline "))) + ", (all entries = 0 if np < 4): \\newline ")) (SPADLET |xList| (CONS (CONS '|text| |end|) |xList|)) (SPADLET |equationPart| (CONS '(|domainConditions| @@ -3559,15 +3504,13 @@ (APPEND |gList| |xList|))))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02GBF - ODEs, boundary value problem, finite difference technique with deferred correction, general nonlinear problem") + "D02GBF - ODEs, boundary value problem, finite difference technique with deferred correction, general nonlinear problem" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the matrix {\\it C} form the equation {\\it Cy(a) + Dy(b)} ")) - (|htSay| (MAKESTRING "= \\gamma \\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the matrix {\\it C} form the equation {\\it Cy(a) + Dy(b)} ") + (|htSay| "= \\gamma \\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|d02gbfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|a| |a|) @@ -3720,8 +3663,7 @@ (SPADLET |n| '2) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02GBF - ODEs, boundary value problem, finite difference technique with deferred correction, general nonlinear problem") + "D02GBF - ODEs, boundary value problem, finite difference technique with deferred correction, general nonlinear problem" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -3837,7 +3779,7 @@ (|htpSetProperty| |page| '|liw| |liw|) (|htpSetProperty| |page| '|tol| |tol|) (|htpSetProperty| |page| '|ifail| |ifail|) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02gbfGen|) + (|htMakeDoneButton| "Continue" '|d02gbfGen|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) (|htShowPage|))))) @@ -4138,8 +4080,7 @@ (DEFUN |d02kef| () (PROGN (|htInitPage| - (MAKESTRING - "D02KEF - 2nd order Sturm-Liouville problem, regular/singular system, finite/infinite range, eigenvalue and eigenfunction, user-specified break-points") + "D02KEF - 2nd order Sturm-Liouville problem, regular/singular system, finite/infinite range, eigenvalue and eigenfunction, user-specified break-points" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -4202,7 +4143,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02kefSolve|) + (|htMakeDoneButton| "Continue" '|d02kefSolve|) (|htShowPage|))) ;d02kefSolve htPage == @@ -4297,7 +4238,7 @@ (PROG (|xpnam|) (RETURN (SEQ (SPADLET |xpnam| - (INTERN (STRCONC (MAKESTRING "xp") + (INTERN (STRCONC "xp" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 10 @@ -4310,7 +4251,7 @@ (PROG (|ylnam|) (RETURN (SEQ (SPADLET |ylnam| - (INTERN (STRCONC (MAKESTRING "yl") + (INTERN (STRCONC "yl" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 42 @@ -4323,7 +4264,7 @@ (PROG (|yrnam|) (RETURN (SEQ (SPADLET |yrnam| - (INTERN (STRCONC (MAKESTRING "yr") + (INTERN (STRCONC "yr" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 42 @@ -4336,7 +4277,7 @@ (PROG (|hnam|) (RETURN (SEQ (SPADLET |hnam| - (INTERN (STRCONC (MAKESTRING "h") (STRINGIMAGE |i|) + (INTERN (STRCONC "h" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -4357,7 +4298,7 @@ (SEQ (EXIT (SETQ G167280 (APPEND G167280 (|d02kefSolve,fe| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -4436,8 +4377,7 @@ (APPEND G167297 (|d02kefSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Value of {\\it p} for COEFFN:")) + "\\blankline \\menuitemstyle{} \\tab{2} Value of {\\it p} for COEFFN:") (SPADLET |middle| (STRCONC |middle| '|\\newline |)) (SPADLET |cList| (CONS (CONS '|text| |middle|) @@ -4449,8 +4389,7 @@ NIL)) NIL))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Value of {\\it q} for COEFFN:")) + "\\blankline \\menuitemstyle{} \\tab{2} Value of {\\it q} for COEFFN:") (SPADLET |middle| (STRCONC |middle| '|\\newline |)) (SPADLET |c1List| (CONS (CONS '|text| |middle|) @@ -4463,8 +4402,7 @@ NIL))) (SPADLET |cList| (APPEND |cList| |c1List|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Value of {\\it dqdl}")) + "\\blankline \\menuitemstyle{} \\tab{2} Value of {\\it dqdl}") (SPADLET |middle| (STRCONC |middle| '| for COEFFN: \\newline |)) (SPADLET |c2List| @@ -4478,8 +4416,7 @@ NIL))) (SPADLET |cList| (APPEND |cList| |c2List|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Values of YL(1) & YL(2) ")) + "\\blankline \\menuitemstyle{} \\tab{2} Values of YL(1) & YL(2) ") (SPADLET |middle| (STRCONC |middle| '|for BDYVAL: \\newline |)) (SPADLET |ylList| @@ -4495,8 +4432,7 @@ (SPADLET |ylList| (CONS (CONS '|text| |middle|) |ylList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Values of YR(1) & YR(2) ")) + "\\blankline \\menuitemstyle{} \\tab{2} Values of YR(1) & YR(2) ") (SPADLET |middle| (STRCONC |middle| '|for BDYVAL: \\newline |)) (SPADLET |yrList| @@ -4512,8 +4448,7 @@ (SPADLET |yrList| (CONS (CONS '|text| |middle|) |yrList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Maximum step size ")) + "\\blankline \\menuitemstyle{} \\tab{2} Maximum step size ") (SPADLET |middle| (STRCONC |middle| '|{\\it hmax(2,m)}: \\newline |)) @@ -4541,15 +4476,12 @@ (APPEND |yrList| |hList|)))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02KEF - 2nd order Sturm-Liouville problem, regular/singular system, finite/infinite range, eigenvalue and eigenfunction, user-specified break-points") + "D02KEF - 2nd order Sturm-Liouville problem, regular/singular system, finite/infinite range, eigenvalue and eigenfunction, user-specified break-points" NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Enter points where boundary ")) - (|htSay| (MAKESTRING - "conditions are to be imposed {\\it xpoint}: \\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Enter points where boundary ") + (|htSay| "conditions are to be imposed {\\it xpoint}: \\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|d02kefGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|match| |match|) @@ -4640,8 +4572,7 @@ (SPADLET |m| '5) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02KEF - 2nd order Sturm-Liouville problem, regular/singular system, finite/infinite range, eigenvalue and eigenfunction, user-specified break-points") + "D02KEF - 2nd order Sturm-Liouville problem, regular/singular system, finite/infinite range, eigenvalue and eigenfunction, user-specified break-points" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -4703,7 +4634,7 @@ (|htpSetProperty| |page| '|maxit| |maxit|) (|htpSetProperty| |page| '|maxfun| |maxfun|) (|htpSetProperty| |page| '|ifail| |ifail|) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02kefGen|) + (|htMakeDoneButton| "Continue" '|d02kefGen|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) (|htShowPage|))))) @@ -4985,8 +4916,7 @@ (DEFUN |d02raf| () (PROGN (|htInitPage| - (MAKESTRING - "D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility") + "D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -5098,7 +5028,7 @@ (|radioButtons| |cfail| ("" " 1, print warning messages" |cone|) ("" " 0, suppress warning messages" |czero|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02rafSolve|) + (|htMakeDoneButton| "Continue" '|d02rafSolve|) (|htShowPage|))) ;d02rafSolve htPage == @@ -5207,14 +5137,14 @@ (DEFUN |d02rafSolve,fa| (|i|) (PROG (|prefix| |funct| |fnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline {\\em Function f")) + (SEQ (SPADLET |prefix| "\\newline {\\em Function f") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) - (MAKESTRING ":} \\space{1}"))) + ":} \\space{1}")) (SPADLET |funct| - (STRCONC (MAKESTRING "Y[") (STRINGIMAGE |i|) '])) + (STRCONC "Y[" (STRINGIMAGE |i|) '])) (SPADLET |fnam| - (INTERN (STRCONC (MAKESTRING "f") + (INTERN (STRCONC "f" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -5228,14 +5158,14 @@ (DEFUN |d02rafSolve,fb| (|i|) (PROG (|prefix| |fnc| |gnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline {\\em Function g")) + (SEQ (SPADLET |prefix| "\\newline {\\em Function g") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) - (MAKESTRING ":} \\space{1}"))) + ":} \\space{1}")) (SPADLET |fnc| - (STRCONC (MAKESTRING "YA[") (STRINGIMAGE |i|) '])) + (STRCONC "YA[" (STRINGIMAGE |i|) '])) (SPADLET |gnam| - (INTERN (STRCONC (MAKESTRING "g") + (INTERN (STRCONC "g" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -5250,7 +5180,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 4 @@ -5391,15 +5321,13 @@ (APPEND G167560 (|d02rafSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the functions ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the functions ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING "\\htbitmap{gi} below "))) + "\\htbitmap{gi} below ")) (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "as functions of YA[i] and YB[i]: \\newline "))) + "as functions of YA[i] and YB[i]: \\newline ")) (SPADLET |gList| (PROG (G167568) (SPADLET G167568 NIL) @@ -5413,12 +5341,10 @@ (SPADLET |gList| (CONS (CONS '|text| |middle|) |gList|)) (SPADLET |mid| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the array ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the array ") (SPADLET |mid| (STRCONC |mid| - (MAKESTRING - "{\\it x(mnp)}: \\newline "))) + "{\\it x(mnp)}: \\newline ")) (SPADLET |xList| (PROG (G167576) (SPADLET G167576 NIL) @@ -5440,16 +5366,14 @@ (APPEND |gList| |xList|)))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility") + "D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the functions \\htbitmap{fi} (i.e. the derivatives) below ")) - (|htSay| (MAKESTRING "as functions of Y[1]...Y[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the functions \\htbitmap{fi} (i.e. the derivatives) below ") + (|htSay| "as functions of Y[1]...Y[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|d02rafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|mnp| |mnp|) @@ -5568,8 +5492,7 @@ (SPADLET |n| '3) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility") + "D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -5652,7 +5575,7 @@ (|htpSetProperty| |page| '|lwork| |lwork|) (|htpSetProperty| |page| '|liwork| |liwork|) (|htpSetProperty| |page| '|ifail| |ifail|) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02rafGen|) + (|htMakeDoneButton| "Continue" '|d02rafGen|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) (|htShowPage|))))) @@ -5799,8 +5722,7 @@ (DEFUN |d02rafCopOut| () (PROGN (|htInitPage| - (MAKESTRING - "D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility") + "D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -5809,7 +5731,7 @@ . "{\\center{\\em Hyperdoc interface not available for initial mesh}}") (|text| . "\\newline ") (|text| . "{\\center{\\em Please use the command line.}}"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d02raf|) + (|htMakeDoneButton| "Continue" '|d02raf|) (|htShowPage|))) @ diff --git a/src/interp/nag-d03.lisp.pamphlet b/src/interp/nag-d03.lisp.pamphlet index a2cae02..c3b61b8 100644 --- a/src/interp/nag-d03.lisp.pamphlet +++ b/src/interp/nag-d03.lisp.pamphlet @@ -50,8 +50,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique ") + "D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique " NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -87,7 +86,7 @@ ("" " By entering matrix names already defined on the command line" |short|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d03edfControl|) + (|htMakeDoneButton| "Continue" '|d03edfControl|) (|htShowPage|))) ;d03edfControl(htPage) == @@ -172,8 +171,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique ") + "D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique " NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -236,7 +234,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |ifailminusOne|) ("" " 1, Suppress error messages" |ifailone|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d03edfSolve|) + (|htMakeDoneButton| "Continue" '|d03edfSolve|) (|htShowPage|))) ;d03edfSolve htPage == @@ -317,7 +315,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 5 @@ -338,7 +336,7 @@ (SEQ (EXIT (SETQ G166083 (APPEND G166083 (|d03edfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -346,7 +344,7 @@ (PROG (|rnam|) (RETURN (SEQ (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "r") + (INTERN (STRCONC "r" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -359,7 +357,7 @@ (PROG (|unam|) (RETURN (SEQ (SPADLET |unam| - (INTERN (STRCONC (MAKESTRING "u") + (INTERN (STRCONC "u" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -436,12 +434,10 @@ (APPEND G166112 (|d03edfSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "{\\it rhs(lda)}: \\newline "))) + "{\\it rhs(lda)}: \\newline ")) (SPADLET |rList| (PROG (G166120) (SPADLET G166120 NIL) @@ -453,12 +449,9 @@ (|d03edfSolve,fc| |i|))))))))) (SPADLET |rList| (CONS (CONS '|text| |middle|) |rList|)) (SPADLET |mid| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter the matrix ") (SPADLET |mid| - (STRCONC |mid| - (MAKESTRING - " {\\it ub(ngx*ngy)}: \\newline "))) + (STRCONC |mid| " {\\it ub(ngx*ngy)}: \\newline ")) (SPADLET |uList| (PROG (G166128) (SPADLET G166128 NIL) @@ -479,14 +472,13 @@ (APPEND |aList| (APPEND |rList| |uList|)))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique ") + "D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique " NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING "Enter the matrix {\\it a(lda,7)}: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the matrix {\\it a(lda,7)}: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|d03edfLongGen|) (|htpSetProperty| |page| '|ngx| |ngx|) (|htpSetProperty| |page| '|ngy| |ngy|) @@ -694,8 +686,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique ") + "D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique " NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -774,7 +765,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |ifailminusOne|) ("" " 1, Suppress error messages" |ifailone|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d03edfShortGen|) + (|htMakeDoneButton| "Continue" '|d03edfShortGen|) (|htShowPage|))) ;d03edfShortGen htPage == @@ -919,8 +910,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D03EEF - Discretize a 2nd order elliptic PDE on a rectangle") + "D03EEF - Discretize a 2nd order elliptic PDE on a rectangle" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -962,7 +952,7 @@ . "\\htbitmap{nx} grid points in the {\\it x}-direction and ") (|text| . "\\htbitmap{ny} grid points in the {\\it y}-direction. "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d03eefInput|) + (|htMakeDoneButton| "Continue" '|d03eefInput|) (|htShowPage|))) ;d03eefInput() == @@ -1035,8 +1025,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D03EEF - Discretize a 2nd order elliptic PDE on a rectangle") + "D03EEF - Discretize a 2nd order elliptic PDE on a rectangle" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1091,7 +1080,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d03eefSolve|) + (|htMakeDoneButton| "Continue" '|d03eefSolve|) (|htShowPage|))) ;d03eefSolve htPage == @@ -1155,8 +1144,8 @@ (SPADLET |diff| (|htpButtonValue| |htPage| '|scheme|)) (SPADLET |scheme| (COND - ((BOOT-EQUAL |diff| '|cent|) (MAKESTRING "C")) - ('T (MAKESTRING "U")))) + ((BOOT-EQUAL |diff| '|cent|) "C") + ('T "U"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -1266,8 +1255,7 @@ (PROGN (SPADLET |page| (|htInitPage| - (MAKESTRING - "D03EEF - Discretize a 2nd order elliptic PDE on a rectangle") + "D03EEF - Discretize a 2nd order elliptic PDE on a rectangle" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1346,7 +1334,7 @@ (|bcStrings| (46 1 |a42| F)) (|text| . "\\newline c(x,y): \\tab{10} ") (|bcStrings| (46 "-sin(Y)" |a43| EM)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|d03eefGen|) + (|htMakeDoneButton| "Continue" '|d03eefGen|) (|htpSetProperty| |page| '|xmin| |xmin|) (|htpSetProperty| |page| '|xmax| |xmax|) (|htpSetProperty| |page| '|ymin| |ymin|) @@ -1499,8 +1487,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "D03FAF - Elliptic PDE, Helmholtz equation, 3-D Cartesian co-ordinates") + "D03FAF - Elliptic PDE, Helmholtz equation, 3-D Cartesian co-ordinates" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) diff --git a/src/interp/nag-e01.lisp.pamphlet b/src/interp/nag-e01.lisp.pamphlet index 0e2aafa..7d1759d 100644 --- a/src/interp/nag-e01.lisp.pamphlet +++ b/src/interp/nag-e01.lisp.pamphlet @@ -44,8 +44,7 @@ (DEFUN |e01baf| () (PROGN (|htInitPage| - (MAKESTRING - "E01BAF - Interpolating functions, cubic spline interpolant, one variable") + "E01BAF - Interpolating functions, cubic spline interpolant, one variable" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -70,7 +69,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01bafSolve|) + (|htMakeDoneButton| "Continue" '|e01bafSolve|) (|htShowPage|))) ;e01bafSolve htPage == @@ -112,13 +111,13 @@ (DEFUN |e01bafSolve,f| (|i|) (PROG (|prefix| |post| |xnam| |ynam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |post| (MAKESTRING "\\tab{32} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |post| "\\tab{32} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -183,13 +182,11 @@ (|htInitPage| '|E01BAF - Interpolating functions, cubic spline interpolant, one variable| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of x: \\tab{30} ")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{32} Corresponding values of y: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of x: \\tab{30} ") + (|htSay| "\\menuitemstyle{}\\tab{32} Corresponding values of y: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e01bafGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -248,8 +245,7 @@ (SPADLET |m| '7) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E01BAF - Interpolating functions, cubic spline interpolant, one variable") + "E01BAF - Interpolating functions, cubic spline interpolant, one variable" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -280,7 +276,7 @@ (|bcStrings| (10 "1.0" |x7| F)) (|text| . "\\tab{32} ") (|bcStrings| (10 "2.7183" |y7| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01bafGen|) + (|htMakeDoneButton| "Continue" '|e01bafGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -333,10 +329,10 @@ (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) (SPADLET |pre| - (STRCONC (MAKESTRING "e01baf(") (STRINGIMAGE |m|) + (STRCONC "e01baf(" (STRINGIMAGE |m|) '|,[| |realstring| '|],[| |imagstring|)) (SPADLET |post| - (STRCONC (MAKESTRING "],") (STRINGIMAGE |lck|) + (STRCONC "]," (STRINGIMAGE |lck|) '|,| (STRINGIMAGE |lwrk|) '|,|)) (|linkGen| (STRCONC |pre| |post| (STRINGIMAGE |ifail|) '|)|))))))) @@ -374,8 +370,7 @@ (DEFUN |e01bef| () (PROGN (|htInitPage| - (MAKESTRING - "E01BEF - Interpolating functions, monoticity preserving, piecewise cubic Hermite, one variable") + "E01BEF - Interpolating functions, monoticity preserving, piecewise cubic Hermite, one variable" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -405,7 +400,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01befSolve|) + (|htMakeDoneButton| "Continue" '|e01befSolve|) (|htShowPage|))) ;e01befSolve htPage == @@ -450,13 +445,13 @@ (DEFUN |e01befSolve,f| (|i|) (PROG (|prefix| |post| |xnam| |ynam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |post| (MAKESTRING "\\tab{32} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |post| "\\tab{32} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -524,15 +519,13 @@ (|htInitPage| '|E01BEF - Interpolating functions, monoticity preserving, piecewise cubic Hermite, one variable| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING "\\htbitmap{xr}: \\tab{30} ")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{32} Values of \\space{1} ")) - (|htSay| (MAKESTRING "\\htbitmap{fr}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{30} ") + (|htSay| "\\menuitemstyle{}\\tab{32} Values of \\space{1} ") + (|htSay| "\\htbitmap{fr}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e01befGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -600,8 +593,7 @@ (SPADLET |n| '9) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E01BEF - Interpolating functions, monoticity preserving, piecewise cubic Hermite, one variable") + "E01BEF - Interpolating functions, monoticity preserving, piecewise cubic Hermite, one variable" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -639,7 +631,7 @@ (|bcStrings| (10 "20.00" |x9| F)) (|text| . "\\tab{32} ") (|bcStrings| (10 "0.99999" |y9| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01befGen|) + (|htMakeDoneButton| "Continue" '|e01befGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -690,7 +682,7 @@ (SPADLET |realstring| (|bcwords2liststring| |reallist|)) (SPADLET |imagstring| (|bcwords2liststring| |imaglist|)) (|linkGen| - (STRCONC (MAKESTRING "e01bef(") (STRINGIMAGE |n|) + (STRCONC "e01bef(" (STRINGIMAGE |n|) '|,[| |realstring| '|],[| |imagstring| '|],| (STRINGIMAGE |ifail|) '|)|))))))) @@ -730,8 +722,7 @@ (DEFUN |e01bff| () (PROGN (|htInitPage| - (MAKESTRING - "E01BFF - Interpolated values, interpolant computed by E01BEF, function only, one variable") + "E01BFF - Interpolated values, interpolant computed by E01BEF, function only, one variable" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -759,7 +750,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01bffSolve|) + (|htMakeDoneButton| "Continue" '|e01bffSolve|) (|htShowPage|))) ;e01bffSolve htPage == @@ -820,17 +811,17 @@ (DEFUN |e01bffSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) - (SPADLET |post| (MAKESTRING " \\tab{42} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") + (SPADLET |post| " \\tab{42} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -864,9 +855,9 @@ (DEFUN |e01bffSolve,g| (|j|) (PROG (|preamb| |pnam|) (RETURN - (SEQ (SPADLET |preamb| (MAKESTRING "\\newline \\tab{2} ")) + (SEQ (SPADLET |preamb| "\\newline \\tab{2} ") (SPADLET |pnam| - (INTERN (STRCONC (MAKESTRING "px") + (INTERN (STRCONC "px" (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|text| |preamb|) (CONS (CONS '|bcStrings| @@ -917,12 +908,10 @@ (APPEND G166230 (|e01bffSolve,f| |i|))))))))) (SPADLET |pxwords| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Values of ")) + "\\blankline \\menuitemstyle{}\\tab{2} Values of ") (SPADLET |pxwords| (STRCONC |pxwords| - (MAKESTRING - "array {\\it Px}: \\newline "))) + "array {\\it Px}: \\newline ")) (SPADLET |pxwords| (CONS '|text| |pxwords|)) (SPADLET |pointList| (PROG (G166238) @@ -949,18 +938,14 @@ (|htInitPage| '|E01BFF - Interpolated values, interpolant computed by E01BEF, function only, one variable| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Values of \\space{1} \\htbitmap{fr}: \\tab{40}")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{42} Values of \\space{1} ")) - (|htSay| (MAKESTRING "\\htbitmap{dr}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Values of \\space{1} \\htbitmap{fr}: \\tab{40}") + (|htSay| "\\menuitemstyle{}\\tab{42} Values of \\space{1} ") + (|htSay| "\\htbitmap{dr}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e01bffGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -1077,8 +1062,7 @@ (SPADLET |m| '11) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E01BFF - Interpolated values, interpolant computed by E01BEF, function only, one variable") + "E01BFF - Interpolated values, interpolant computed by E01BEF, function only, one variable" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -1163,7 +1147,7 @@ (|text| . "\\newline \\tab{2} ") (|bcStrings| (10 "20.0" |px11| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01bffGen|) + (|htMakeDoneButton| "Continue" '|e01bffGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -1240,7 +1224,7 @@ (SPADLET |fstring| (|bcwords2liststring| |flist|)) (SPADLET |dstring| (|bcwords2liststring| |dlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e01bff(") (STRINGIMAGE |n|) + (STRCONC "e01bff(" (STRINGIMAGE |n|) '|,[| |xstring| '|],[| |fstring|)) (SPADLET |prefix| (STRCONC |prefix| '|],[| |dstring| '|],| @@ -1286,8 +1270,7 @@ (DEFUN |e01bgf| () (PROGN (|htInitPage| - (MAKESTRING - "E01BGF - Interpolated values, interpolant computed by E01BEF, function and 1st derivative, one variable") + "E01BGF - Interpolated values, interpolant computed by E01BEF, function and 1st derivative, one variable" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -1316,7 +1299,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01bgfSolve|) + (|htMakeDoneButton| "Continue" '|e01bgfSolve|) (|htShowPage|))) ;e01bgfSolve htPage == @@ -1377,17 +1360,17 @@ (DEFUN |e01bgfSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) - (SPADLET |post| (MAKESTRING " \\tab{42} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") + (SPADLET |post| " \\tab{42} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -1421,9 +1404,9 @@ (DEFUN |e01bgfSolve,g| (|j|) (PROG (|preamb| |pnam|) (RETURN - (SEQ (SPADLET |preamb| (MAKESTRING "\\newline \\tab{2} ")) + (SEQ (SPADLET |preamb| "\\newline \\tab{2} ") (SPADLET |pnam| - (INTERN (STRCONC (MAKESTRING "px") + (INTERN (STRCONC "px" (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|text| |preamb|) (CONS (CONS '|bcStrings| @@ -1474,12 +1457,10 @@ (APPEND G166353 (|e01bgfSolve,f| |i|))))))))) (SPADLET |pxwords| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Values of ")) + "\\blankline \\menuitemstyle{}\\tab{2} Values of ") (SPADLET |pxwords| (STRCONC |pxwords| - (MAKESTRING - "array {\\it Px}: \\newline "))) + "array {\\it Px}: \\newline ")) (SPADLET |pxwords| (CONS '|text| |pxwords|)) (SPADLET |pointList| (PROG (G166361) @@ -1506,18 +1487,14 @@ (|htInitPage| '|E01BGF - Interpolated values, interpolant computed by E01BEF, function and 1st derivative, one variable| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Values of \\space{1} \\htbitmap{fr}: \\tab{40}")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{42} Values of \\space{1} ")) - (|htSay| (MAKESTRING "\\htbitmap{dr}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Values of \\space{1} \\htbitmap{fr}: \\tab{40}") + (|htSay| "\\menuitemstyle{}\\tab{42} Values of \\space{1} ") + (|htSay| "\\htbitmap{dr}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e01bgfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -1633,8 +1610,7 @@ (SPADLET |m| '11) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E01BGF - Interpolated values, interpolant computed by E01BEF, function and 1st derivative, one variable") + "E01BGF - Interpolated values, interpolant computed by E01BEF, function and 1st derivative, one variable" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -1718,7 +1694,7 @@ (|text| . "\\newline \\tab{2} ") (|bcStrings| (10 "20.0" |px11| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01bgfGen|) + (|htMakeDoneButton| "Continue" '|e01bgfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -1795,7 +1771,7 @@ (SPADLET |fstring| (|bcwords2liststring| |flist|)) (SPADLET |dstring| (|bcwords2liststring| |dlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e01bgf(") (STRINGIMAGE |n|) + (STRCONC "e01bgf(" (STRINGIMAGE |n|) '|,[| |xstring| '|],[| |fstring|)) (SPADLET |prefix| (STRCONC |prefix| '|],[| |dstring| '|],| @@ -1844,8 +1820,7 @@ (DEFUN |e01bhf| () (PROGN (|htInitPage| - (MAKESTRING - "E01BHF - Interpolated values, interpolant computed by E01BEF, definite integral, one variable") + "E01BHF - Interpolated values, interpolant computed by E01BEF, definite integral, one variable" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -1877,7 +1852,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01bhfSolve|) + (|htMakeDoneButton| "Continue" '|e01bhfSolve|) (|htShowPage|))) ;e01bhfSolve htPage == @@ -1929,17 +1904,17 @@ (DEFUN |e01bhfSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) - (SPADLET |post| (MAKESTRING " \\tab{42} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") + (SPADLET |post| " \\tab{42} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -2014,18 +1989,14 @@ (|htInitPage| '|E01BHF - Interpolated values, interpolant computed by E01BEF, definite integral, one variable| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Values of \\space{1} \\htbitmap{fr}: \\tab{40}")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{42} Values of \\space{1} ")) - (|htSay| (MAKESTRING "\\htbitmap{dr}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Values of \\space{1} \\htbitmap{fr}: \\tab{40}") + (|htSay| "\\menuitemstyle{}\\tab{42} Values of \\space{1} ") + (|htSay| "\\htbitmap{dr}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e01bhfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|a| |a|) @@ -2116,8 +2087,7 @@ (SPADLET |n| '9) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E01BHF - Interpolated values, interpolant computed by E01BEF, definite integral, one variable") + "E01BHF - Interpolated values, interpolant computed by E01BEF, definite integral, one variable" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -2176,7 +2146,7 @@ (|text| . "\\tab{42} ") (|bcStrings| (10 "0.00000" |z9| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01bhfGen|) + (|htMakeDoneButton| "Continue" '|e01bhfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|a| |a|) (|htpSetProperty| |page| '|b| |b|) @@ -2243,7 +2213,7 @@ (SPADLET |fstring| (|bcwords2liststring| |flist|)) (SPADLET |dstring| (|bcwords2liststring| |dlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e01bhf(") (STRINGIMAGE |n|) + (STRCONC "e01bhf(" (STRINGIMAGE |n|) '|,[| |xstring| '|],[| |fstring| '|],[|)) (SPADLET |prefix| (STRCONC |prefix| |dstring| '|],| @@ -2293,8 +2263,7 @@ (DEFUN |e01daf| () (PROGN (|htInitPage| - (MAKESTRING - "E01DAF - Interpolating functions, fitting bicubic spline, data on a rectangular grid") + "E01DAF - Interpolating functions, fitting bicubic spline, data on a rectangular grid" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -2334,7 +2303,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01dafSolve|) + (|htMakeDoneButton| "Continue" '|e01dafSolve|) (|htShowPage|))) ;e01dafSolve htPage == @@ -2393,7 +2362,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2406,7 +2375,7 @@ (PROG (|ynam|) (RETURN (SEQ (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2419,7 +2388,7 @@ (PROG (|fnam|) (RETURN (SEQ (SPADLET |fnam| - (INTERN (STRCONC (MAKESTRING "f") (STRINGIMAGE |j|) + (INTERN (STRCONC "f" (STRINGIMAGE |j|) (STRINGIMAGE |m|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2440,7 +2409,7 @@ (SEQ (EXIT (SETQ G166562 (APPEND G166562 (|e01dafSolve,k| |j| |m|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |tempList| (CONS (CONS '|text| |prefix|) |tempList|))))))) @@ -2484,8 +2453,7 @@ (APPEND G166579 (|e01dafSolve,f| |i|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Values of X(1) to X(MX): \\newline ")) + "\\newline \\menuitemstyle{}\\tab{2} Values of X(1) to X(MX): \\newline ") (SPADLET |xList| (CONS (CONS '|text| |prefix|) |xList|)) (SPADLET |yList| @@ -2499,8 +2467,7 @@ (APPEND G166587 (|e01dafSolve,g| |i|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline\\menuitemstyle{}\\tab{2}Values of Y(1) to Y(MY): \\newline ")) + "\\blankline\\menuitemstyle{}\\tab{2}Values of Y(1) to Y(MY): \\newline ") (SPADLET |yList| (CONS (CONS '|text| |prefix|) |yList|)) (SPADLET |fList| @@ -2514,11 +2481,10 @@ (APPEND G166595 (|e01dafSolve,h| |j| |my|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Values of F(MX*MY) ")) + "\\blankline \\menuitemstyle{} \\tab{2} Values of F(MX*MY) ") (SPADLET |prefix| (STRCONC |prefix| - (MAKESTRING "(x down, y across): "))) + "(x down, y across): ")) (SPADLET |fList| (CONS (CONS '|text| |prefix|) |fList|)) (SPADLET |equationPart| @@ -2535,8 +2501,8 @@ '|E01DAF - Interpolating functions, fitting bicubic spline, data on a rectanglar grid| (|htpPropertyList| |htPage|))) (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e01dafGen|) (|htpSetProperty| |page| '|mx| |mx|) (|htpSetProperty| |page| '|my| |my|) @@ -2639,8 +2605,7 @@ (SPADLET |my| '6) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E01DAF - Interpolating functions, fitting bicubic spline, data on rectangular grid") + "E01DAF - Interpolating functions, fitting bicubic spline, data on rectangular grid" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -2708,7 +2673,7 @@ (|bcStrings| (6 "4.90" |z57| F)) (|bcStrings| (6 "5.00" |z67| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01dafGen|) + (|htMakeDoneButton| "Continue" '|e01dafGen|) (|htpSetProperty| |page| '|mx| |mx|) (|htpSetProperty| |page| '|my| |my|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -2771,7 +2736,7 @@ (SPADLET |ystring| (|bcwords2liststring| |ymy|)) (SPADLET |fstring| (|bcwords2liststring| |xlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e01daf(") + (STRCONC "e01daf(" (STRINGIMAGE |mx|) '|, | (STRINGIMAGE |my|) '|,[|)) (SPADLET |midd| @@ -2813,8 +2778,7 @@ (DEFUN |e01saf| () (PROGN (|htInitPage| - (MAKESTRING - "E01SAF - Interpolating functions, method of Renka and Cline, two variables") + "E01SAF - Interpolating functions, method of Renka and Cline, two variables" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -2844,7 +2808,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01safSolve|) + (|htMakeDoneButton| "Continue" '|e01safSolve|) (|htShowPage|))) ;e01safSolve htPage == @@ -2892,17 +2856,17 @@ (DEFUN |e01safSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) - (SPADLET |post| (MAKESTRING " \\tab{42} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") + (SPADLET |post| " \\tab{42} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -2975,18 +2939,14 @@ (|htInitPage| '|E01SAF - Interpolating functions, method of Renka and Cline,two variables| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Values of \\space{1} \\htbitmap{fr}: \\tab{40}")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{42} Values of \\space{1} ")) - (|htSay| (MAKESTRING "\\htbitmap{dr}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Values of \\space{1} \\htbitmap{fr}: \\tab{40}") + (|htSay| "\\menuitemstyle{}\\tab{42} Values of \\space{1} ") + (|htSay| "\\htbitmap{dr}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e01safGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -3199,8 +3159,7 @@ (SPADLET |m| '30) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E01SAF - Interpolating functions, method of Renka and Cline, two variables") + "E01SAF - Interpolating functions, method of Renka and Cline, two variables" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -3351,7 +3310,7 @@ (|bcStrings| (10 "0.33" |y30| F)) (|text| . "\\tab{42} ") (|bcStrings| (10 "44.08" |z30| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01safGen|) + (|htMakeDoneButton| "Continue" '|e01safGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -3407,7 +3366,7 @@ (SPADLET |fstring| (|bcwords2liststring| |flist|)) (SPADLET |dstring| (|bcwords2liststring| |dlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e01saf(") (STRINGIMAGE |m|) + (STRCONC "e01saf(" (STRINGIMAGE |m|) '|,[| |xstring| '|],[| |fstring| '|],[|)) (SPADLET |prefix| (STRCONC |prefix| |dstring| '|],| @@ -3472,8 +3431,7 @@ (DEFUN |e01sef| () (PROGN (|htInitPage| - (MAKESTRING - "E01SEF - Interpolating functions, modified Shepard's method, two variables") + "E01SEF - Interpolating functions, modified Shepard's method, two variables" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -3525,7 +3483,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01sefSolve|) + (|htMakeDoneButton| "Continue" '|e01sefSolve|) (|htShowPage|))) ;e01sefSolve htPage == @@ -3585,17 +3543,17 @@ (DEFUN |e01sefSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) - (SPADLET |post| (MAKESTRING " \\tab{42} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") + (SPADLET |post| " \\tab{42} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -3688,18 +3646,14 @@ (|htInitPage| '|E01SEF - Interpolating functions, modified Shepard's method, two variables| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Values of \\space{1} \\htbitmap{fr}: \\tab{40}")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{42} Values of \\space{1} ")) - (|htSay| (MAKESTRING "\\htbitmap{dr}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Values of \\space{1} \\htbitmap{fr}: \\tab{40}") + (|htSay| "\\menuitemstyle{}\\tab{42} Values of \\space{1} ") + (|htSay| "\\htbitmap{dr}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e01sefGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|rnq| |rnq|) @@ -3920,8 +3874,7 @@ (SPADLET |m| '30) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E01SEF - Interpolating functions, modified Shepard's method, two variables") + "E01SEF - Interpolating functions, modified Shepard's method, two variables" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -4072,7 +4025,7 @@ (|bcStrings| (10 "0.33" |y30| F)) (|text| . "\\tab{42} ") (|bcStrings| (10 "44.08" |z30| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e01sefGen|) + (|htMakeDoneButton| "Continue" '|e01sefGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|rnq| |rnq|) (|htpSetProperty| |page| '|rnw| |rnw|) @@ -4142,7 +4095,7 @@ (SPADLET |fstring| (|bcwords2liststring| |flist|)) (SPADLET |dstring| (|bcwords2liststring| |dlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e01sef(") (STRINGIMAGE |m|) + (STRCONC "e01sef(" (STRINGIMAGE |m|) '|,[| |xstring| '|],[| |fstring| '|],[|)) (SPADLET |prefix| (STRCONC |prefix| |dstring| '|],| diff --git a/src/interp/nag-e02.lisp.pamphlet b/src/interp/nag-e02.lisp.pamphlet index 4c94867..e2e70ee 100644 --- a/src/interp/nag-e02.lisp.pamphlet +++ b/src/interp/nag-e02.lisp.pamphlet @@ -64,8 +64,7 @@ (DEFUN |e02adf| () (PROGN (|htInitPage| - (MAKESTRING - "E02ADF - Least-squares curve fit, by polynomials, arbitrary data points") + "E02ADF - Least-squares curve fit, by polynomials, arbitrary data points" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -112,7 +111,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02adfSolve|) + (|htMakeDoneButton| "Continue" '|e02adfSolve|) (|htShowPage|))) ;e02adfSolve htPage == @@ -168,17 +167,17 @@ (DEFUN |e02adfSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) - (SPADLET |post| (MAKESTRING " \\tab{42} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") + (SPADLET |post| " \\tab{42} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -269,18 +268,14 @@ (|htInitPage| '|E02ADF - Least-squares curve fit, by polynomials, arbitrary data points| (|htpPropertyList| |htPage|))) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Values of \\space{1} \\htbitmap{fr}: \\tab{40}")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{42} Values of \\space{1} ")) - (|htSay| (MAKESTRING "\\htbitmap{dr}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Values of \\space{1} \\htbitmap{fr}: \\tab{40}") + (|htSay| "\\menuitemstyle{}\\tab{42} Values of \\space{1} ") + (|htSay| "\\htbitmap{dr}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02adfGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|k| |k|) @@ -384,8 +379,7 @@ (SPADLET |m| '11) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02ADF - Least-squares curve fit, by polynomials, arbitrary data points") + "E02ADF - Least-squares curve fit, by polynomials, arbitrary data points" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -444,7 +438,7 @@ (|bcStrings| (10 "35.30" |y11| F)) (|text| . "\\tab{42} ") (|bcStrings| (10 "0.20" |z11| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02adfGen|) + (|htMakeDoneButton| "Continue" '|e02adfGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|k| |k|) (|htpSetProperty| |page| '|nrows| |nrows|) @@ -510,7 +504,7 @@ (SPADLET |ystring| (|bcwords2liststring| |ylist|)) (SPADLET |wstring| (|bcwords2liststring| |wlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02adf(") (STRINGIMAGE |m|) + (STRCONC "e02adf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |kplus1|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |nrows|) '|, [| @@ -557,8 +551,7 @@ (DEFUN |e02aef| () (PROGN (|htInitPage| - (MAKESTRING - "E02AEF - Evaluation of fitted polynomial in one variable from Chebyshev series form") + "E02AEF - Evaluation of fitted polynomial in one variable from Chebyshev series form" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -587,7 +580,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02aefSolve|) + (|htMakeDoneButton| "Continue" '|e02aefSolve|) (|htShowPage|))) ;e02aefSolve htPage == @@ -627,9 +620,9 @@ (DEFUN |e02aefSolve,f| (|i|) (PROG (|prefix| |anam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{15} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") + (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -684,12 +677,11 @@ (|htInitPage| '|E02AEF - Evaluation of fitted polynomial in one variable from Chebyshev series from| NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Enter the coefficients of {\\it a(n+1)}:")) - (|htSay| (MAKESTRING "\\blankline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Enter the coefficients of {\\it a(n+1)}:") + (|htSay| "\\blankline ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02aefGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|xcap| |xcap|) @@ -733,8 +725,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02AEF - Evaluation of fitted polynomial in one variable from Chebyshev series form") + "E02AEF - Evaluation of fitted polynomial in one variable from Chebyshev series form" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -753,7 +744,7 @@ (|text| . "\\newline \\tab{15} ") (|bcStrings| (10 "0.0625" |a5| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02aefGen|) + (|htMakeDoneButton| "Continue" '|e02aefGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|xcap| |xcap|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -797,7 +788,7 @@ (CONS |right| |arrayList|)))))) (SPADLET |astring| (|bcwords2liststring| |arrayList|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02aef(") + (STRCONC "e02aef(" (STRINGIMAGE |nplus1|) '|, [| |astring| '|], |)) (SPADLET |prefix| @@ -881,8 +872,7 @@ (DEFUN |e02agf| () (PROGN (|htInitPage| - (MAKESTRING - "E02AGF - Least-squares polynomial fit, values and derivatives may be constrained, arbitrary data values") + "E02AGF - Least-squares polynomial fit, values and derivatives may be constrained, arbitrary data values" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -956,7 +946,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02agfSolve|) + (|htMakeDoneButton| "Continue" '|e02agfSolve|) (|htShowPage|))) ;e02agfSolve htPage == @@ -1047,17 +1037,17 @@ (DEFUN |e02agfSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) - (SPADLET |post| (MAKESTRING " \\tab{42} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") + (SPADLET |post| " \\tab{42} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -1092,7 +1082,7 @@ (PROG (|xfnam|) (RETURN (SEQ (SPADLET |xfnam| - (INTERN (STRCONC (MAKESTRING "xf") + (INTERN (STRCONC "xf" (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1105,7 +1095,7 @@ (PROG (|ipnam|) (RETURN (SEQ (SPADLET |ipnam| - (INTERN (STRCONC (MAKESTRING "ip") + (INTERN (STRCONC "ip" (STRINGIMAGE |k|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1117,9 +1107,9 @@ (DEFUN |e02agfSolve,i| (|l|) (PROG (|prefix| |yfnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") (SPADLET |yfnam| - (INTERN (STRCONC (MAKESTRING "lyf") + (INTERN (STRCONC "lyf" (STRINGIMAGE |l|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -1213,8 +1203,7 @@ (APPEND G166262 (|e02agfSolve,g| |j|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\newline \\menuitemstyle{}\\tab{2} Values of ")) + "\\blankline \\newline \\menuitemstyle{}\\tab{2} Values of ") (SPADLET |prefix| (STRCONC |prefix| '|{\\it xf}: \\newline \\tab{2} |)) @@ -1231,8 +1220,7 @@ (APPEND G166270 (|e02agfSolve,h| |k|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\newline \\menuitemstyle{}\\tab{2} Values of ")) + "\\blankline \\newline \\menuitemstyle{}\\tab{2} Values of ") (SPADLET |prefix| (STRCONC |prefix| '|{\\it ip}: \\newline \\tab{2} |)) @@ -1249,8 +1237,7 @@ (APPEND G166278 (|e02agfSolve,i| |l|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\newline \\menuitemstyle{}\\tab{2} Values of ")) + "\\blankline \\newline \\menuitemstyle{}\\tab{2} Values of ") (SPADLET |prefix| (STRCONC |prefix| '|{\\it yf}: \\newline \\tab{2} |)) @@ -1268,20 +1255,16 @@ (APPEND |ipList| |yfList|))))) (SPADLET |page| (|htInitPage| - '|E02AGF - Least-squares polynomial fit, values and derivatives may be constrained, arbitrary data values| + '|E02AGF - Least-squares polynomial fit, values and derivatives may be constrained, arbitrary data values| NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Values of \\space{1} \\htbitmap{yr}: \\tab{40}")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{42} Values of \\space{1} ")) - (|htSay| (MAKESTRING "\\htbitmap{wr}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Values of \\space{1} \\htbitmap{yr}: \\tab{40}") + (|htSay| "\\menuitemstyle{}\\tab{42} Values of \\space{1} ") + (|htSay| "\\htbitmap{wr}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02agfGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|k| |k|) @@ -1407,8 +1390,7 @@ (SPADLET |lyf| '15) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02AGF - Least-squares polynomial fit, values and derivativesby polynomials, arbitrary data points") + "E02AGF - Least-squares polynomial fit, values and derivativesby polynomials, arbitrary data points" (|htpPropertyList| |htPage|))) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -1485,7 +1467,7 @@ (|bcStrings| (10 "0.0" |lyf14| F)) (|text| . "\\newline \\tab{2} ") (|bcStrings| (10 "0.0" |lyf15| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02agfGen|) + (|htMakeDoneButton| "Continue" '|e02agfGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|k| |k|) (|htpSetProperty| |page| '|nrows| |nrows|) @@ -1640,7 +1622,7 @@ (SPADLET |lwrk| (PLUS (PLUS |wrkmax| (TIMES 2 |n|)) 2)) (SPADLET |liwrk| (PLUS (TIMES 2 |mf|) 2)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02agf(") (STRINGIMAGE |m|) + (STRCONC "e02agf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |kplus1|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |nrows|) '|, | @@ -1727,9 +1709,7 @@ (DEFUN |e02ahf| () (PROGN - (|htInitPage| - (MAKESTRING - "E02AHF - Derivative of fitted polynomial in Chebyshev series") + (|htInitPage| "E02AHF - Derivative of fitted polynomial in Chebyshev series" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -1781,7 +1761,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02ahfSolve|) + (|htMakeDoneButton| "Continue" '|e02ahfSolve|) (|htShowPage|))) ;e02ahfSolve htPage == @@ -1839,9 +1819,9 @@ (DEFUN |e02ahfSolve,f| (|i|) (PROG (|prefix| |anam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{15} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") + (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -1919,11 +1899,10 @@ (|htInitPage| '|E02AHF - Derivative of fitted polynomial in Chebyshev series| NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Coefficients of {\\it a(la)}:")) + (|htSay| "\\menuitemstyle{}\\tab{2} Coefficients of {\\it a(la)}:") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02ahfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|la| |la|) @@ -1984,9 +1963,7 @@ (SPADLET |la| '7) (SPADLET |ladif| '7) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02AHF - Derivative of fitted polynomial in Chebyshev series") + (|htInitPage| "E02AHF - Derivative of fitted polynomial in Chebyshev series" NIL)) (|htMakePage| '((|domainConditions| @@ -2009,7 +1986,7 @@ (|text| . "\\newline \\tab{15}") (|bcStrings| (10 "0.00004" |a7| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02ahfGen|) + (|htMakeDoneButton| "Continue" '|e02ahfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|la| |la|) (|htpSetProperty| |page| '|ladif| |ladif|) @@ -2070,7 +2047,7 @@ (CONS |right| |arrayList|)))))) (SPADLET |astring| (|bcwords2liststring| |arrayList|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02ahf(") + (STRCONC "e02ahf(" (STRINGIMAGE |np1|) '|, | |xmin| '|, | |xmax| '|, [|)) (SPADLET |prefix| @@ -2157,8 +2134,7 @@ (DEFUN |e02ajf| () (PROGN (|htInitPage| - (MAKESTRING - "E02AJF - Integral of fitted polynomial in Chebyshev series form") + "E02AJF - Integral of fitted polynomial in Chebyshev series form" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2216,7 +2192,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02ajfSolve|) + (|htMakeDoneButton| "Continue" '|e02ajfSolve|) (|htShowPage|))) ;e02ajfSolve htPage == @@ -2274,9 +2250,9 @@ (DEFUN |e02ajfSolve,f| (|i|) (PROG (|prefix| |anam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{15} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") + (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -2356,11 +2332,10 @@ (|htInitPage| '|E02AJF - Integral of fitted polynomial in Chebyshev series form| NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Coefficients of {\\it a(la)}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Coefficients of {\\it a(la)}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02ajfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|la| |la|) @@ -2424,8 +2399,7 @@ (SPADLET |laint| '8) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02AJF - Integral of fitted polynomial in Chebyshev series form") + "E02AJF - Integral of fitted polynomial in Chebyshev series form" NIL)) (|htMakePage| '((|domainConditions| @@ -2448,7 +2422,7 @@ (|text| . "\\newline \\tab{15}") (|bcStrings| (10 "0.00004" |a7| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02ajfGen|) + (|htMakeDoneButton| "Continue" '|e02ajfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|la| |la|) (|htpSetProperty| |page| '|laint| |laint|) @@ -2514,7 +2488,7 @@ (CONS |right| |arrayList|)))))) (SPADLET |astring| (|bcwords2liststring| |arrayList|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02ajf(") + (STRCONC "e02ajf(" (STRINGIMAGE |np1|) '|, | |xmin| '|, | |xmax| '|, [|)) (SPADLET |prefix| @@ -2589,8 +2563,7 @@ (DEFUN |e02akf| () (PROGN (|htInitPage| - (MAKESTRING - "E02AKF - Evaluation of fitted polynomial in one variable, from Chebyshev series form") + "E02AKF - Evaluation of fitted polynomial in one variable, from Chebyshev series form" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2639,7 +2612,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02akfSolve|) + (|htMakeDoneButton| "Continue" '|e02akfSolve|) (|htShowPage|))) ;e02akfSolve htPage == @@ -2690,9 +2663,9 @@ (DEFUN |e02akfSolve,f| (|i|) (PROG (|prefix| |anam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{15} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{15} ") (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") + (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -2758,13 +2731,12 @@ |labelList|)) (SPADLET |page| (|htInitPage| - '|E02AKF - Evaluation of fitted polynomial in one variable, from Chebyshev series form| - NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Coefficients of {\\it a(la)}:")) + '|E02AKF - Evaluation of fitted polynomial in one variable, from Chebyshev series form| + NIL)) + (|htSay| "\\menuitemstyle{}\\tab{2} Coefficients of {\\it a(la)}:") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02akfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|x| |x|) @@ -2822,8 +2794,7 @@ (SPADLET |la| '7) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02AKF - Evaluation of fitted polynomial in one variable, from Chebyshev series form") + "E02AKF - Evaluation of fitted polynomial in one variable, from Chebyshev series form" NIL)) (|htMakePage| '((|domainConditions| @@ -2846,7 +2817,7 @@ (|text| . "\\newline \\tab{15}") (|bcStrings| (10 "0.00004" |a7| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02akfGen|) + (|htMakeDoneButton| "Continue" '|e02akfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|la| |la|) (|htpSetProperty| |page| '|x| |x|) @@ -2903,7 +2874,7 @@ (CONS |right| |arrayList|)))))) (SPADLET |astring| (|bcwords2liststring| |arrayList|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02akf(") + (STRCONC "e02akf(" (STRINGIMAGE |np1|) '|, | |xmin| '|, | |xmax| '|, [|)) (SPADLET |prefix| @@ -2957,7 +2928,7 @@ (DEFUN |e02baf| () (PROGN (|htInitPage| - (MAKESTRING "E02BAF - Least-squares curve cubic spine fit") + "E02BAF - Least-squares curve cubic spine fit" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -2995,7 +2966,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02bafSolve|) + (|htMakeDoneButton| "Continue" '|e02bafSolve|) (|htShowPage|))) ;e02bafSolve htPage == @@ -3055,17 +3026,17 @@ (DEFUN |e02bafSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) - (SPADLET |post| (MAKESTRING " \\tab{42} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") + (SPADLET |post| " \\tab{42} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -3100,7 +3071,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") + (INTERN (STRCONC "a" (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -3161,8 +3132,7 @@ (APPEND G166710 (|e02bafSolve,g| |j|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Interior knots ")) + "\\blankline \\menuitemstyle{}\\tab{2} Interior knots ") (SPADLET |prefix| (STRCONC |prefix| '|\\htbitmap{lamdai}, for i = 5,6,...,|)) @@ -3183,18 +3153,14 @@ (|htInitPage| '|E02BAF - Least-squares curve cubic spline fit| NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Values of \\space{1} \\htbitmap{fr}: \\tab{40}")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{42} Values of \\space{1} ")) - (|htSay| (MAKESTRING "\\htbitmap{dr}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Values of \\space{1} \\htbitmap{fr}: \\tab{40}") + (|htSay| "\\menuitemstyle{}\\tab{42} Values of \\space{1} ") + (|htSay| "\\htbitmap{dr}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02bafGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ncap| |ncap|) @@ -3322,9 +3288,7 @@ (SPADLET |m| '14) (SPADLET |ncap| '5) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02BAF - Least-squares curve cubic spline fit") + (|htInitPage| "E02BAF - Least-squares curve cubic spline fit" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -3402,7 +3366,7 @@ (|bcStrings| (6 "2.60" |l2| F)) (|bcStrings| (6 "4.00" |l3| F)) (|bcStrings| (6 "8.00" |l4| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02bafGen|) + (|htMakeDoneButton| "Continue" '|e02bafGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ncap| |ncap|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -3498,7 +3462,7 @@ (SPADLET |ystring| (|bcwords2liststring| |ylist|)) (SPADLET |wstring| (|bcwords2liststring| |wlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02baf(") (STRINGIMAGE |m|) + (STRCONC "e02baf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |ncap7|) '|, [|)) (SPADLET |prefix| (STRCONC |prefix| |xstring| '|],[| |ystring| @@ -3546,9 +3510,7 @@ (DEFUN |e02bbf| () (PROGN - (|htInitPage| - (MAKESTRING - "E02BBF - Evaluation of fitted cubic spline, function only") + (|htInitPage| "E02BBF - Evaluation of fitted cubic spline, function only" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -3582,7 +3544,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02bbfSolve|) + (|htMakeDoneButton| "Continue" '|e02bbfSolve|) (|htShowPage|))) ;e02bbfSolve htPage == @@ -3627,13 +3589,13 @@ (DEFUN |e02bbfSolve,f| (|i|) (PROG (|prefix| |middle| |lnam| |cnam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") (SPADLET |lnam| - (INTERN (STRCONC (MAKESTRING "l") + (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (SPADLET |cnam| - (INTERN (STRCONC (MAKESTRING "c") + (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -3701,15 +3663,12 @@ (|htInitPage| '|E02BBF - Evaluation of fitted cubic spline, function only| NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Knots \\htbitmap{lamdai}: ")) - (|htSay| (MAKESTRING - "\\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Coefficients \\space{1} \\htbitmap{ci}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Knots \\htbitmap{lamdai}: ") + (|htSay| "\\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Coefficients \\space{1} \\htbitmap{ci}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02bbfGen|) (|htpSetProperty| |page| '|ncap| |ncap|) (|htpSetProperty| |page| '|x| |x|) @@ -3786,9 +3745,7 @@ (PROGN (SPADLET |ncap| '4) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02BBF - Evaluation of fitted cubic spline, function only") + (|htInitPage| "E02BBF - Evaluation of fitted cubic spline, function only" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -3831,7 +3788,7 @@ (|bcStrings| (10 "9.00" |l11| F)) (|text| . "\\tab{22} ") (|bcStrings| (10 "0.00" |c11| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02bbfGen|) + (|htMakeDoneButton| "Continue" '|e02bbfGen|) (|htpSetProperty| |page| '|ncap| |ncap|) (|htpSetProperty| |page| '|x| |x|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -3883,7 +3840,7 @@ (SPADLET |lamstring| (|bcwords2liststring| |lamlist|)) (SPADLET |cstring| (|bcwords2liststring| |clist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02bbf(") + (STRCONC "e02bbf(" (STRINGIMAGE |ncap7|) '|, [| |lamstring| '|],[|)) (SPADLET |prefix| @@ -3938,8 +3895,7 @@ (DEFUN |e02bcf| () (PROGN (|htInitPage| - (MAKESTRING - "E02BCF - Evaluation of fitted cubic spline, function and derivatives") + "E02BCF - Evaluation of fitted cubic spline, function and derivatives" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -3981,7 +3937,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02bcfSolve|) + (|htMakeDoneButton| "Continue" '|e02bcfSolve|) (|htShowPage|))) ;e02bcfSolve htPage == @@ -4031,13 +3987,13 @@ (DEFUN |e02bcfSolve,f| (|i|) (PROG (|prefix| |middle| |lnam| |cnam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") (SPADLET |lnam| - (INTERN (STRCONC (MAKESTRING "l") + (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (SPADLET |cnam| - (INTERN (STRCONC (MAKESTRING "c") + (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -4109,15 +4065,12 @@ (|htInitPage| '|E02BCF - Evaluation of fitted cubic spline, function and derivatives| NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Knots \\htbitmap{lamdai}: ")) - (|htSay| (MAKESTRING - "\\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Coefficients \\space{1} \\htbitmap{ci}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Knots \\htbitmap{lamdai}: ") + (|htSay| "\\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Coefficients \\space{1} \\htbitmap{ci}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02bcfGen|) (|htpSetProperty| |page| '|ncap| |ncap|) (|htpSetProperty| |page| '|x| |x|) @@ -4207,9 +4160,7 @@ (PROGN (SPADLET |ncap| '7) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02BCF - Evaluation of fitted cubic spline, function and derivatives") + (|htInitPage| "E02BCF - Evaluation of fitted cubic spline, function and derivatives" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -4260,7 +4211,7 @@ (|bcStrings| (10 "6.00" |l14| F)) (|text| . "\\tab{22} ") (|bcStrings| (10 "0.00" |c14| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02bcfGen|) + (|htMakeDoneButton| "Continue" '|e02bcfGen|) (|htpSetProperty| |page| '|ncap| |ncap|) (|htpSetProperty| |page| '|x| |x|) (|htpSetProperty| |page| '|deriv| |deriv|) @@ -4316,7 +4267,7 @@ (SPADLET |lamstring| (|bcwords2liststring| |lamlist|)) (SPADLET |cstring| (|bcwords2liststring| |clist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02bcf(") + (STRCONC "e02bcf(" (STRINGIMAGE |ncap7|) '|, [| |lamstring| '|],[|)) (SPADLET |prefix| @@ -4360,9 +4311,7 @@ (DEFUN |e02bdf| () (PROGN - (|htInitPage| - (MAKESTRING - "E02BDF - Evaluation of fitted cubic spline, definite integral") + (|htInitPage| "E02BDF - Evaluation of fitted cubic spline, definite integral" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -4394,7 +4343,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02bdfSolve|) + (|htMakeDoneButton| "Continue" '|e02bdfSolve|) (|htShowPage|))) ;e02bdfSolve htPage == @@ -4437,13 +4386,13 @@ (DEFUN |e02bdfSolve,f| (|i|) (PROG (|prefix| |middle| |lnam| |cnam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") (SPADLET |lnam| - (INTERN (STRCONC (MAKESTRING "l") + (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (SPADLET |cnam| - (INTERN (STRCONC (MAKESTRING "c") + (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -4510,15 +4459,12 @@ (|htInitPage| '|E02BDF - Evaluation of fitted cubic spline, definite integral| NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Knots \\htbitmap{lamdai}: ")) - (|htSay| (MAKESTRING - "\\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Coefficients \\space{1} \\htbitmap{ci}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Knots \\htbitmap{lamdai}: ") + (|htSay| "\\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Coefficients \\space{1} \\htbitmap{ci}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02bdfGen|) (|htpSetProperty| |page| '|ncap| |ncap|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -4607,9 +4553,7 @@ (PROGN (SPADLET |ncap| '7) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02BDF - Evaluation of fitted cubic spline, definite integral") + (|htInitPage| "E02BDF - Evaluation of fitted cubic spline, definite integral" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -4663,7 +4607,7 @@ (|bcStrings| (10 "0.00" |c14| F)))) (|htpSetProperty| |page| '|ncap| |ncap|) (|htpSetProperty| |page| '|ifail| |ifail|) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02bdfGen|) + (|htMakeDoneButton| "Continue" '|e02bdfGen|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) (|htShowPage|))))) @@ -4710,7 +4654,7 @@ (SPADLET |lamstring| (|bcwords2liststring| |lamlist|)) (SPADLET |cstring| (|bcwords2liststring| |clist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02bdf(") + (STRCONC "e02bdf(" (STRINGIMAGE |ncap7|) '|, [| |lamstring| '|],[|)) (SPADLET |prefix| @@ -4774,8 +4718,7 @@ (DEFUN |e02bef| () (PROGN (|htInitPage| - (MAKESTRING - "E02BEF - Least-squares curve cubic spline fit, automatic knot placement") + "E02BEF - Least-squares curve cubic spline fit, automatic knot placement" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -4831,7 +4774,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02befSolve|) + (|htMakeDoneButton| "Continue" '|e02befSolve|) (|htShowPage|))) ;e02befSolve htPage == @@ -4905,8 +4848,7 @@ (|e02befColdSolve| |htPage| |m| |nest| |lwrk| |s| |ifail|)) ('T (|htInitPage| - (MAKESTRING - "E02BEF - Least-squares curve cubic spline fit, automatic knot placement") + "E02BEF - Least-squares curve cubic spline fit, automatic knot placement" NIL) (|htMakePage| '((|domainConditions| @@ -4917,7 +4859,7 @@ (|text| . "\\newline ") (|text| . "{\\center{\\it Please use the command line.}}"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02bef|) + (|htMakeDoneButton| "Continue" '|e02bef|) (|htShowPage|))))))) ;e02befColdSolve(htPage,m,nest,lwrk,s,ifail) == @@ -4960,17 +4902,17 @@ (DEFUN |e02befColdSolve,f| (|i|) (PROG (|prefix| |middle| |post| |xnam| |ynam| |znam| |num|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) - (SPADLET |post| (MAKESTRING " \\tab{42} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") + (SPADLET |post| " \\tab{42} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (SPADLET |num| (INTERN (STRCONC (STRINGIMAGE (QUOTIENT |i| 10)) @@ -5024,22 +4966,16 @@ (|isDomain| PI (|PositiveInteger|))) |labelList|)) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02BEF - Least-squares curve cubic spline fit, automatic knot placement") + (|htInitPage| "E02BEF - Least-squares curve cubic spline fit, automatic knot placement" NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ")) - (|htSay| (MAKESTRING - "Values of \\space{1} \\htbitmap{yr}: \\tab{40}")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{42} Values of \\space{1} ")) - (|htSay| (MAKESTRING "\\htbitmap{wr}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{20} \\menuitemstyle{}\\tab{22} ") + (|htSay| "Values of \\space{1} \\htbitmap{yr}: \\tab{40}") + (|htSay| "\\menuitemstyle{}\\tab{42} Values of \\space{1} ") + (|htSay| "\\htbitmap{wr}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02befColdGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|nest| |nest|) @@ -5168,9 +5104,7 @@ (PROGN (SPADLET |m| 15) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02BEF - Least-squares curve cubic spline fit, automatic knot placement") + (|htInitPage| "E02BEF - Least-squares curve cubic spline fit, automatic knot placement" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -5245,7 +5179,7 @@ (|bcStrings| (10 "7.97" |y15| F)) (|text| . "\\tab{42} ") (|bcStrings| (10 "1.00" |z15| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02befColdGen|) + (|htMakeDoneButton| "Continue" '|e02befColdGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|nest| |nest|) (|htpSetProperty| |page| '|lwrk| |lwrk|) @@ -5304,7 +5238,7 @@ (SPADLET |nest| (|htpProperty| |htPage| '|nest|)) (SPADLET |lwrk| (|htpProperty| |htPage| '|lwrk|)) (SPADLET |s| (|htpProperty| |htPage| '|s|)) - (SPADLET |cold| (MAKESTRING "c")) + (SPADLET |cold| "c") (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) (SPADLET |y| |alist|) @@ -5326,7 +5260,7 @@ (SPADLET |ystring| (|bcwords2liststring| |ylist|)) (SPADLET |wstring| (|bcwords2liststring| |wlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02bef(\"") |cold| '|",| + (STRCONC "e02bef(\"" |cold| '|",| (STRINGIMAGE |m|) '|, [| |xstring| '|],[|)) (SPADLET |prefix| @@ -5388,9 +5322,7 @@ (DEFUN |e02def| () (PROGN - (|htInitPage| - (MAKESTRING - "E02DEF - Evaluation of a fitted bicubic spline at a vector of points") + (|htInitPage| "E02DEF - Evaluation of a fitted bicubic spline at a vector of points" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -5426,7 +5358,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02defSolve|) + (|htMakeDoneButton| "Continue" '|e02defSolve|) (|htShowPage|))) ;e02defSolve htPage == @@ -5495,13 +5427,13 @@ (DEFUN |e02defSolve,fxy| (|i|) (PROG (|prefix| |middle| |xnam| |ynam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{22} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{22} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -5524,7 +5456,7 @@ (PROG (|lnam|) (RETURN (SEQ (SPADLET |lnam| - (INTERN (STRCONC (MAKESTRING "l") + (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -5537,7 +5469,7 @@ (PROG (|mnam|) (RETURN (SEQ (SPADLET |mnam| - (INTERN (STRCONC (MAKESTRING "m") + (INTERN (STRCONC "m" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -5550,7 +5482,7 @@ (PROG (|pnam|) (RETURN (SEQ (SPADLET |pnam| - (INTERN (STRCONC (MAKESTRING "p") + (INTERN (STRCONC "p" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -5617,9 +5549,7 @@ (SETQ G167197 (APPEND G167197 (|e02defSolve,flam| |i|))))))))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\lambda(nxest)}: \\newline")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\lambda(nxest)}: \\newline") (SPADLET |lamList| (CONS (CONS '|text| |prefix|) |lamList|)) (SPADLET |muList| @@ -5633,8 +5563,7 @@ (APPEND G167205 (|e02defSolve,fmu| |i|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\mu(nyest)}:")) + "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\mu(nyest)}:") (SPADLET |prefix| (STRCONC |prefix| '|\\newline |)) (SPADLET |muList| (CONS (CONS '|text| |prefix|) |muList|)) @@ -5652,8 +5581,7 @@ (APPEND G167213 (|e02defSolve,fp| |i|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2}Enter values of ")) + "\\blankline \\menuitemstyle{}\\tab{2}Enter values of ") (SPADLET |prefix| (STRCONC |prefix| '|{\\it c((nxest*4)-(nyest*4))}: \\newline |)) @@ -5671,16 +5599,13 @@ (APPEND |muList| |cList|))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02DEF - Evaluation of a fitted bicubic spline at a vector of points") + "E02DEF - Evaluation of a fitted bicubic spline at a vector of points" NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\htbitmap{xr}: ")) - (|htSay| (MAKESTRING - "\\tab{20} \\menuitemstyle{}\\tab{22} Values of \\htbitmap{yr}:")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\htbitmap{xr}: ") + (|htSay| "\\tab{20} \\menuitemstyle{}\\tab{22} Values of \\htbitmap{yr}:") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02defGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|px| |px|) @@ -5819,9 +5744,7 @@ (SPADLET |px| '11) (SPADLET |py| '10) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02DEF - Evaluation of a fitted bicubic spline at a vector of points") + (|htInitPage| "E02DEF - Evaluation of a fitted bicubic spline at a vector of points" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -5921,7 +5844,7 @@ (|bcStrings| (8 "4.7" |c40| F)) (|bcStrings| (8 "4.9" |c41| F)) (|bcStrings| (8 "5" |c42| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02defGen|) + (|htMakeDoneButton| "Continue" '|e02defGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|px| |px|) (|htpSetProperty| |page| '|py| |py|) @@ -6022,7 +5945,7 @@ (SPADLET |xstring| (|bcwords2liststring| |xlist|)) (SPADLET |ystring| (|bcwords2liststring| |ylist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02def(") (STRINGIMAGE |m|) + (STRCONC "e02def(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |px|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |py|) '|,[| @@ -6082,8 +6005,7 @@ (DEFUN |e02dff| () (PROGN (|htInitPage| - (MAKESTRING - "E02DFF - Evaluation of a fitted bicubic spline at a mesh of points") + "E02DFF - Evaluation of a fitted bicubic spline at a mesh of points" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -6126,7 +6048,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02dffSolve|) + (|htMakeDoneButton| "Continue" '|e02dffSolve|) (|htShowPage|))) ;e02dffSolve htPage == @@ -6213,7 +6135,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -6226,7 +6148,7 @@ (PROG (|ynam|) (RETURN (SEQ (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -6239,7 +6161,7 @@ (PROG (|lnam|) (RETURN (SEQ (SPADLET |lnam| - (INTERN (STRCONC (MAKESTRING "l") + (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -6252,7 +6174,7 @@ (PROG (|mnam|) (RETURN (SEQ (SPADLET |mnam| - (INTERN (STRCONC (MAKESTRING "m") + (INTERN (STRCONC "m" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -6265,7 +6187,7 @@ (PROG (|pnam|) (RETURN (SEQ (SPADLET |pnam| - (INTERN (STRCONC (MAKESTRING "p") + (INTERN (STRCONC "p" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -6351,9 +6273,7 @@ (SETQ G167383 (APPEND G167383 (|e02dffSolve,fy| |i|))))))))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter values of ")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Enter values of ") (SPADLET |prefix| (STRCONC |prefix| '|\\htbitmap{yr} : \\newline|)) @@ -6369,9 +6289,7 @@ (SETQ G167391 (APPEND G167391 (|e02dffSolve,flam| |i|))))))))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} {\\it \\lambda(nxest)}:\\newline")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{}\\tab{2} {\\it \\lambda(nxest)}:\\newline") (SPADLET |lamList| (CONS (CONS '|text| |prefix|) |lamList|)) (SPADLET |muList| @@ -6384,9 +6302,7 @@ (SETQ G167399 (APPEND G167399 (|e02dffSolve,fmu| |i|))))))))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} {\\it mu(nyest)}:")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it mu(nyest)}:") (SPADLET |prefix| (STRCONC |prefix| '|\\newline |)) (SPADLET |muList| (CONS (CONS '|text| |prefix|) |muList|)) @@ -6403,9 +6319,7 @@ (SETQ G167407 (APPEND G167407 (|e02dffSolve,fp| |i|))))))))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter values of ")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{}\\tab{2} Enter values of ") (SPADLET |prefix| (STRCONC |prefix| '|{\\it c((px-4)*(py-4))}: \\newline|)) @@ -6423,15 +6337,12 @@ (APPEND |lamList| (APPEND |muList| |cList|)))))) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02DFF - Evaluation of a fitted bicubic spline at a mesh of points") + (|htInitPage| "E02DFF - Evaluation of a fitted bicubic spline at a mesh of points" NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\htbitmap{xr}:\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\htbitmap{xr}:\\newline ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02dffGen|) (|htpSetProperty| |page| '|mx| |mx|) (|htpSetProperty| |page| '|my| |my|) @@ -6565,9 +6476,7 @@ (SPADLET |px| '11) (SPADLET |py| '10) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02DFF - Evaluation of a fitted bicubic spline at a mesh of points") + (|htInitPage| "E02DFF - Evaluation of a fitted bicubic spline at a mesh of points" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -6656,7 +6565,7 @@ (|bcStrings| (8 "4.7" |c40| F)) (|bcStrings| (8 "4.9" |c41| F)) (|bcStrings| (8 "5" |c42| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02dffGen|) + (|htMakeDoneButton| "Continue" '|e02dffGen|) (|htpSetProperty| |page| '|mx| |mx|) (|htpSetProperty| |page| '|my| |my|) (|htpSetProperty| |page| '|px| |px|) @@ -6771,7 +6680,7 @@ (SPADLET |xList| (CONS |right| |xList|)))))) (SPADLET |xstring| (|bcwords2liststring| |xList|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02dff(") + (STRCONC "e02dff(" (STRINGIMAGE |mx|) '|, | (STRINGIMAGE |my|) '|, |)) (SPADLET |prefix| @@ -6835,8 +6744,7 @@ (DEFUN |e02gaf| () (PROGN (|htInitPage| - (MAKESTRING - "E02GAF - \\htbitmap{l1}-approximation by general linear function") + "E02GAF - \\htbitmap{l1}-approximation by general linear function" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -6873,7 +6781,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02gafSolve|) + (|htMakeDoneButton| "Continue" '|e02gafSolve|) (|htShowPage|))) ;e02gafSolve htPage == @@ -6930,7 +6838,7 @@ (PROG (|fnam|) (RETURN (SEQ (SPADLET |fnam| - (INTERN (STRCONC (MAKESTRING "f") (STRINGIMAGE |i|) + (INTERN (STRCONC "f" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 9 @@ -6952,7 +6860,7 @@ (SEQ (EXIT (SETQ G167566 (APPEND G167566 (|e02gafSolve,fr| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |tempList| (CONS (CONS '|text| |prefix|) |tempList|))))))) @@ -6960,7 +6868,7 @@ (PROG (|lnam|) (RETURN (SEQ (SPADLET |lnam| - (INTERN (STRCONC (MAKESTRING "l") + (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 9 @@ -7022,8 +6930,7 @@ (APPEND G167598 (|e02gafSolve,fb| |i|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Values of {\\it B(m)}: \\newline")) + "\\blankline \\menuitemstyle{} \\tab{2} Values of {\\it B(m)}: \\newline") (SPADLET |bList| (CONS (CONS '|text| |prefix|) |bList|)) (SPADLET |equationPart| @@ -7036,14 +6943,12 @@ (APPEND |labelList| |bList|))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02GAF - \\htbitmap{l1}-approximation by general linear function") + "E02GAF - \\htbitmap{l1}-approximation by general linear function" NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of {\\it A(la,n+2)}:")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of {\\it A(la,n+2)}:") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02gafGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|n| |n|) @@ -7131,9 +7036,7 @@ (SPADLET |n| '3) (SPADLET |la| '7) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02GAF - \\htbitmap{l1}-approximation by general linear function") + (|htInitPage| "E02GAF - \\htbitmap{l1}-approximation by general linear function" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -7182,7 +7085,7 @@ (|bcStrings| (9 "4.333" |b3| F)) (|bcStrings| (9 "4.418" |b4| F)) (|bcStrings| (9 "4.625" |b5| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02gafGen|) + (|htMakeDoneButton| "Continue" '|e02gafGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|toler| |toler|) @@ -7288,7 +7191,7 @@ (CONS (|bcwords2liststring| |x|) G167672))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02gaf(") (STRINGIMAGE |m|) + (STRCONC "e02gaf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |la|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |nplustwo|) '|, | @@ -7367,8 +7270,7 @@ (DEFUN |e02daf| () (PROGN (|htInitPage| - (MAKESTRING - "E02DAF - Least-squares surface fit, bicubic splines") + "E02DAF - Least-squares surface fit, bicubic splines" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -7433,7 +7335,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02dafSolve|) + (|htMakeDoneButton| "Continue" '|e02dafSolve|) (|htShowPage|))) ;e02dafSolve htPage == @@ -7521,21 +7423,21 @@ (DEFUN |e02dafSolve,fxy| (|i|) (PROG (|prefix| |middle| |next| |end| |xnam| |ynam| |fnam| |wnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{17} ")) - (SPADLET |next| (MAKESTRING "\\tab{32} ")) - (SPADLET |end| (MAKESTRING "\\tab{47} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{17} ") + (SPADLET |next| "\\tab{32} ") + (SPADLET |end| "\\tab{47} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |fnam| - (INTERN (STRCONC (MAKESTRING "f") + (INTERN (STRCONC "f" (STRINGIMAGE |i|)))) (SPADLET |wnam| - (INTERN (STRCONC (MAKESTRING "w") + (INTERN (STRCONC "w" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -7574,7 +7476,7 @@ (PROG (|lnam|) (RETURN (SEQ (SPADLET |lnam| - (INTERN (STRCONC (MAKESTRING "l") + (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -7587,7 +7489,7 @@ (PROG (|mnam|) (RETURN (SEQ (SPADLET |mnam| - (INTERN (STRCONC (MAKESTRING "m") + (INTERN (STRCONC "m" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -7599,9 +7501,9 @@ (DEFUN |e02dafSolve,fp| (|i|) (PROG (|prefix| |pnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") (SPADLET |pnam| - (INTERN (STRCONC (MAKESTRING "p") + (INTERN (STRCONC "p" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -7691,13 +7593,11 @@ (SETQ G167760 (APPEND G167760 (|e02dafSolve,flam| |i|))))))))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} lamda(5) to lamda(px-4): ")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} lamda(5) to lamda(px-4): ") (SPADLET |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) (SPADLET |postfix| - (MAKESTRING "\\newline \\blankline ")) + "\\newline \\blankline ") (SPADLET |lamList| (CONS (CONS '|text| |prefix|) (APPEND |lamList| @@ -7715,8 +7615,7 @@ (APPEND G167769 (|e02dafSolve,fmu| |i|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\menuitemstyle{} \\tab{2} mu(5) to mu(py-4):")) + "\\menuitemstyle{} \\tab{2} mu(5) to mu(py-4):") (SPADLET |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) (SPADLET |muList| @@ -7732,8 +7631,7 @@ (APPEND G167778 (|e02dafSolve,fp| |i|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter values of Point: ")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter values of Point: ") (SPADLET |pList| (CONS (CONS '|text| |prefix|) |pList|)) (SPADLET |equationPart| @@ -7748,20 +7646,15 @@ (APPEND |muList| |pList|))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02DAF - Least-squares surface fit, bicubic splines") + "E02DAF - Least-squares surface fit, bicubic splines" NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\htbitmap{xr}: ")) - (|htSay| (MAKESTRING - "\\tab{15} \\menuitemstyle{}\\tab{17} Values of \\htbitmap{yr}:")) - (|htSay| (MAKESTRING - "\\tab{30} \\menuitemstyle{}\\tab{32} Values of \\htbitmap{fr}:")) - (|htSay| (MAKESTRING - "\\tab{44} \\menuitemstyle{}\\tab{46} Values of \\htbitmap{wr}:")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\htbitmap{xr}: ") + (|htSay| "\\tab{15} \\menuitemstyle{}\\tab{17} Values of \\htbitmap{yr}:") + (|htSay| "\\tab{30} \\menuitemstyle{}\\tab{32} Values of \\htbitmap{fr}:") + (|htSay| "\\tab{44} \\menuitemstyle{}\\tab{46} Values of \\htbitmap{wr}:") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02dafGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|px| |px|) @@ -8141,9 +8034,7 @@ (SPADLET |px| '8) (SPADLET |py| '10) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02DAF - Least-squares surface fit, bicubic splines") + (|htInitPage| "E02DAF - Least-squares surface fit, bicubic splines" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -8400,7 +8291,7 @@ (|bcStrings| (6 0 |p42| PI)) (|text| . "\\newline \\tab{2}") (|bcStrings| (6 0 |p43| PI)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02dafGen|) + (|htMakeDoneButton| "Continue" '|e02dafGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|px| |px|) (|htpSetProperty| |page| '|py| |py|) @@ -8506,7 +8397,7 @@ (SPADLET |pstring| (|bcwords2liststring| |pointList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) (SEQ (EXIT (SPADLET |muList| - (CONS (MAKESTRING "0 ") |muList|))))) + (CONS "0 " |muList|))))) (DO ((G167851 (SPADDIFFERENCE |py| 4)) (|i| 5 (+ |i| 1))) ((> |i| G167851) NIL) @@ -8518,11 +8409,11 @@ (DO ((|i| (SPADDIFFERENCE |py| 3) (+ |i| 1))) ((> |i| |py|) NIL) (SEQ (EXIT (SPADLET |muList| - (CONS (MAKESTRING "0 ") |muList|))))) + (CONS "0 " |muList|))))) (SPADLET |mustring| (|bcwords2liststring| |muList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) (SEQ (EXIT (SPADLET |lamList| - (CONS (MAKESTRING "0 ") |lamList|))))) + (CONS "0 " |lamList|))))) (DO ((G167873 (SPADDIFFERENCE |px| 4)) (|i| 5 (+ |i| 1))) ((> |i| G167873) NIL) @@ -8535,7 +8426,7 @@ (DO ((|i| (SPADDIFFERENCE |px| 3) (+ |i| 1))) ((> |i| |px|) NIL) (SEQ (EXIT (SPADLET |lamList| - (CONS (MAKESTRING "0 ") |lamList|))))) + (CONS "0 " |lamList|))))) (SPADLET |lamstring| (|bcwords2liststring| |lamList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN @@ -8563,7 +8454,7 @@ (TIMES (SPADDIFFERENCE |px| 4) (SPADDIFFERENCE |py| 4))) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02daf(") (STRINGIMAGE |m|) + (STRCONC "e02daf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |px|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |py|) '|,[| @@ -8649,8 +8540,7 @@ (DEFUN |e02dcf| () (PROGN (|htInitPage| - (MAKESTRING - "E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid") + "E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -8717,7 +8607,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02dcfSolve|) + (|htMakeDoneButton| "Continue" '|e02dcfSolve|) (|htShowPage|))) ;e02dcfSolve htPage == @@ -8829,8 +8719,7 @@ |liwrk| |s| |ifail|)) ('T (|htInitPage| - (MAKESTRING - "E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid") + "E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid" NIL) (|htMakePage| '((|domainConditions| @@ -8841,7 +8730,7 @@ (|text| . "\\newline ") (|text| . "{\\center{\\em Please use the command line.}}"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02dcf|) + (|htMakeDoneButton| "Continue" '|e02dcf|) (|htShowPage|))))))) ;e02dcfColdSolve(htPage,mx,my,nxest,nyest,lwrk,liwrk,s,ifail) == @@ -8888,7 +8777,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -8901,7 +8790,7 @@ (PROG (|ynam|) (RETURN (SEQ (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "g") + (INTERN (STRCONC "g" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -8914,7 +8803,7 @@ (PROG (|fnam|) (RETURN (SEQ (SPADLET |fnam| - (INTERN (STRCONC (MAKESTRING "g") + (INTERN (STRCONC "g" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -8948,8 +8837,7 @@ (APPEND G168007 (|e02dcfColdSolve,g| |i|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Values of {\\it y(my)}: \\newline ")) + "\\blankline \\menuitemstyle{}\\tab{2} Values of {\\it y(my)}: \\newline ") (SPADLET |yList| (CONS (CONS '|text| |prefix|) |yList|)) (SPADLET |fList| (PROG (G168015) @@ -8962,8 +8850,7 @@ (APPEND G168015 (|e02dcfColdSolve,h| |i|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Values of {\\it f(mx*my)}: \\newline ")) + "\\blankline \\menuitemstyle{} \\tab{2} Values of {\\it f(mx*my)}: \\newline ") (SPADLET |fList| (CONS (CONS '|text| |prefix|) |fList|)) (SPADLET |equationPart| (CONS '(|domainConditions| @@ -8975,14 +8862,12 @@ (APPEND |xList| (APPEND |yList| |fList|)))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid") + "E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid" NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of {\\it x(mx)}: \\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of {\\it x(mx)}: \\newline ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02dcfColdGen|) (|htpSetProperty| |page| '|mx| |mx|) (|htpSetProperty| |page| '|my| |my|) @@ -9152,8 +9037,7 @@ (SPADLET |my| 9) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid") + "E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -9283,7 +9167,7 @@ (|bcStrings| (8 "-5.93" |f97| F)) (|bcStrings| (8 "-5.6387" |f98| F)) (|bcStrings| (8 "-3.9319" |f99| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02dcfColdGen|) + (|htMakeDoneButton| "Continue" '|e02dcfColdGen|) (|htpSetProperty| |page| '|mx| |mx|) (|htpSetProperty| |page| '|my| |my|) (|htpSetProperty| |page| '|nxest| |nxest|) @@ -9348,7 +9232,7 @@ (SPADLET |lwrk| (|htpProperty| |htPage| '|lwrk|)) (SPADLET |liwrk| (|htpProperty| |htPage| '|liwrk|)) (SPADLET |s| (|htpProperty| |htPage| '|s|)) - (SPADLET |cold| (MAKESTRING "c")) + (SPADLET |cold| "c") (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) (SPADLET |y| |alist|) @@ -9375,7 +9259,7 @@ (SPADLET |xlist| (CONS |start| |xlist|)))))) (SPADLET |xstring| (|bcwords2liststring| |xlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02dcf(\"") |cold| '|",| + (STRCONC "e02dcf(\"" |cold| '|",| (STRINGIMAGE |mx|) '|, [| |xstring| '|],|)) (SPADLET |prefix| @@ -9466,8 +9350,7 @@ (DEFUN |e02ddf| () (PROGN (|htInitPage| - (MAKESTRING - "E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data") + "E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -9528,7 +9411,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02ddfSolve|) + (|htMakeDoneButton| "Continue" '|e02ddfSolve|) (|htShowPage|))) ;e02ddfSolve htPage == @@ -9621,21 +9504,21 @@ (DEFUN |e02ddfSolve,f| (|i|) (PROG (|prefix| |middle| |post| |end| |xnam| |ynam| |fnam| |wnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{17} ")) - (SPADLET |post| (MAKESTRING "\\tab{32} ")) - (SPADLET |end| (MAKESTRING "\\tab{47} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{17} ") + (SPADLET |post| "\\tab{32} ") + (SPADLET |end| "\\tab{47} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |fnam| - (INTERN (STRCONC (MAKESTRING "f") + (INTERN (STRCONC "f" (STRINGIMAGE |i|)))) (SPADLET |wnam| - (INTERN (STRCONC (MAKESTRING "w") + (INTERN (STRCONC "w" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -9674,7 +9557,7 @@ (PROG (|lnam|) (RETURN (SEQ (SPADLET |lnam| - (INTERN (STRCONC (MAKESTRING "l") + (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -9687,7 +9570,7 @@ (PROG (|mnam|) (RETURN (SEQ (SPADLET |mnam| - (INTERN (STRCONC (MAKESTRING "m") + (INTERN (STRCONC "m" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -9786,9 +9669,7 @@ (SETQ G168155 (APPEND G168155 (|e02ddfSolve,g| |i|))))))))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Values of Lamda: \\newline")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Values of Lamda: \\newline") (SPADLET |lamdaList| (CONS (CONS '|text| |prefix|) |lamdaList|)) (SPADLET |muList| @@ -9801,14 +9682,10 @@ (SETQ G168163 (APPEND G168163 (|e02ddfSolve,h| |i|))))))))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Values of Mu: \\newline")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Values of Mu: \\newline") (SPADLET |muList| (CONS (CONS '|text| |prefix|) |muList|)) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Value of nx: \\newline \\tab{2}")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Value of nx: \\newline \\tab{2}") (SPADLET |nxList| (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -9818,9 +9695,7 @@ (CONS '|nx| (CONS 'PI NIL)))) NIL)) NIL))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Value of ny: \\newline \\tab{2}")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Value of ny: \\newline \\tab{2}") (SPADLET |nyList| (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -9830,9 +9705,7 @@ (CONS '|ny| (CONS 'PI NIL)))) NIL)) NIL))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Value of WRK(1): \\newline \\tab{2}")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} Value of WRK(1): \\newline \\tab{2}") (SPADLET |wList| (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -9856,24 +9729,17 @@ (APPEND |nyList| |wList|))))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data") + "E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data" NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{xr}: \\tab{15} \\menuitemstyle{}\\tab{17} ")) - (|htSay| (MAKESTRING - "Values of \\space{1} \\htbitmap{yr}: \\tab{30}")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{32} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{fr}: \\tab{45} \\menuitemstyle{} ")) - (|htSay| (MAKESTRING - "\\tab{47} Values of \\htbitmap{wr}:")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{15} \\menuitemstyle{}\\tab{17} ") + (|htSay| "Values of \\space{1} \\htbitmap{yr}: \\tab{30}") + (|htSay| "\\menuitemstyle{}\\tab{32} Values of \\space{1} ") + (|htSay| "\\htbitmap{fr}: \\tab{45} \\menuitemstyle{} ") + (|htSay| "\\tab{47} Values of \\htbitmap{wr}:") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02ddfWarmGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|nxest| |nxest|) @@ -9931,21 +9797,21 @@ (DEFUN |e02ddfColdSolve,f| (|i|) (PROG (|prefix| |middle| |post| |end| |xnam| |ynam| |fnam| |wnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{17} ")) - (SPADLET |post| (MAKESTRING "\\tab{32} ")) - (SPADLET |end| (MAKESTRING "\\tab{47} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{17} ") + (SPADLET |post| "\\tab{32} ") + (SPADLET |end| "\\tab{47} ") (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |ynam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (SPADLET |fnam| - (INTERN (STRCONC (MAKESTRING "f") + (INTERN (STRCONC "f" (STRINGIMAGE |i|)))) (SPADLET |wnam| - (INTERN (STRCONC (MAKESTRING "w") + (INTERN (STRCONC "w" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -10005,24 +9871,17 @@ |labelList|)) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data") + "E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data" NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{xr}: \\tab{15} \\menuitemstyle{}\\tab{17} ")) - (|htSay| (MAKESTRING - "Values of \\space{1} \\htbitmap{yr}: \\tab{30}")) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{32} Values of \\space{1} ")) - (|htSay| (MAKESTRING - "\\htbitmap{fr}: \\tab{44} \\menuitemstyle{} ")) - (|htSay| (MAKESTRING - "\\tab{46} Values of \\htbitmap{wr}:")) + (|htSay| "\\menuitemstyle{}\\tab{2} Values of \\space{1} ") + (|htSay| "\\htbitmap{xr}: \\tab{15} \\menuitemstyle{}\\tab{17} ") + (|htSay| "Values of \\space{1} \\htbitmap{yr}: \\tab{30}") + (|htSay| "\\menuitemstyle{}\\tab{32} Values of \\space{1} ") + (|htSay| "\\htbitmap{fr}: \\tab{44} \\menuitemstyle{} ") + (|htSay| "\\tab{46} Values of \\htbitmap{wr}:") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02ddfColdGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|nxest| |nxest|) @@ -10307,8 +10166,7 @@ (SPADLET |m| 30) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data") + "E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -10472,7 +10330,7 @@ (|bcStrings| (8 "0.33" |y30| F)) (|text| . "\\tab{32}") (|bcStrings| (8 "44.08" |f30| F)) (|text| . "\\tab{47}") (|bcStrings| (8 "1" |w30| F)) (|text| . "\\blankline"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02ddfColdGen|) + (|htMakeDoneButton| "Continue" '|e02ddfColdGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|nxest| |nxest|) (|htpSetProperty| |page| '|nyest| |nyest|) @@ -10540,7 +10398,7 @@ (SPADLET |lwrk| (|htpProperty| |htPage| '|lwrk|)) (SPADLET |liwrk| (|htpProperty| |htPage| '|liwrk|)) (SPADLET |s| (|htpProperty| |htPage| '|s|)) - (SPADLET |cold| (MAKESTRING "c")) + (SPADLET |cold| "c") (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) (SPADLET |y| |alist|) @@ -10567,7 +10425,7 @@ (SPADLET |fstring| (|bcwords2liststring| |flist|)) (SPADLET |wstring| (|bcwords2liststring| |wlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02ddf(\"") |cold| '|",| + (STRCONC "e02ddf(\"" |cold| '|",| (STRINGIMAGE |m|) '|, [| |xstring| '|],[|)) (SPADLET |prefix| @@ -10667,7 +10525,7 @@ (SPADLET |lwrk| (|htpProperty| |htPage| '|lwrk|)) (SPADLET |liwrk| (|htpProperty| |htPage| '|liwrk|)) (SPADLET |s| (|htpProperty| |htPage| '|s|)) - (SPADLET |warm| (MAKESTRING "w")) + (SPADLET |warm| "w") (SPADLET |ifail| (|htpProperty| |htPage| '|ifail|)) (SPADLET |alist| (|htpInputAreaAlist| |htPage|)) (SPADLET |y| |alist|) @@ -10675,7 +10533,7 @@ (SPADLET |y| (CDR |y|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |lwrk|) NIL) (SEQ (EXIT (SPADLET |wrkList| - (CONS (MAKESTRING "0.0 ") |wrkList|))))) + (CONS "0.0 " |wrkList|))))) (SPADLET |wrkList| (CONS |wrk| |wrkList|)) (SPADLET |wrkstring| (|bcwords2liststring| |wrkList|)) (SPADLET |ny| (STRCONC (ELT (CAR |y|) 1) '| |)) @@ -10719,7 +10577,7 @@ (SPADLET |fstring| (|bcwords2liststring| |flist|)) (SPADLET |wstring| (|bcwords2liststring| |wlist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02ddf(\"") |warm| '|",| + (STRCONC "e02ddf(\"" |warm| '|",| (STRINGIMAGE |m|) '|, [| |xstring| '|],[|)) (SPADLET |prefix| @@ -10792,8 +10650,7 @@ (DEFUN |e02zaf| () (PROGN (|htInitPage| - (MAKESTRING - "E02ZAF - Sort 2-D sata into panels for fitting bicubic splines") + "E02ZAF - Sort 2-D sata into panels for fitting bicubic splines" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -10838,7 +10695,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02zafSolve|) + (|htMakeDoneButton| "Continue" '|e02zafSolve|) (|htShowPage|))) ;e02zafSolve htPage == @@ -10905,13 +10762,13 @@ (DEFUN |e02zafSolve,fxy| (|i|) (PROG (|prefix| |middle| |lnam| |cnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) - (SPADLET |middle| (MAKESTRING "\\tab{32} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") + (SPADLET |middle| "\\tab{32} ") (SPADLET |lnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (SPADLET |cnam| - (INTERN (STRCONC (MAKESTRING "y") + (INTERN (STRCONC "y" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -10934,7 +10791,7 @@ (PROG (|lnam|) (RETURN (SEQ (SPADLET |lnam| - (INTERN (STRCONC (MAKESTRING "l") + (INTERN (STRCONC "l" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -10947,7 +10804,7 @@ (PROG (|mnam|) (RETURN (SEQ (SPADLET |mnam| - (INTERN (STRCONC (MAKESTRING "m") + (INTERN (STRCONC "m" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -11024,9 +10881,7 @@ (SETQ G168437 (APPEND G168437 (|e02zafSolve,flam| |i|))))))))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\lambda(5) to ")) + (SPADLET |prefix| "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\lambda(5) to ") (SPADLET |prefix| (STRCONC |prefix| '|\\lambda(px-4)}: \\newline \\tab{2} |)) @@ -11044,8 +10899,7 @@ (APPEND G168446 (|e02zafSolve,fmu| |i|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\mu(5) to \\mu(py-4)}: ")) + "\\blankline \\menuitemstyle{} \\tab{2} {\\it \\mu(5) to \\mu(py-4)}: ") (SPADLET |prefix| (STRCONC |prefix| '|\\newline \\tab{2} |)) (SPADLET |muList| @@ -11061,16 +10915,13 @@ (APPEND |lamList| |muList|)))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E02ZAF - Sort 2-D sata into panels for fitting bicubic splines") + "E02ZAF - Sort 2-D sata into panels for fitting bicubic splines" NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} {\\it x(m)}: ")) - (|htSay| (MAKESTRING - "\\tab{30} \\menuitemstyle{}\\tab{32} {\\it y(m)}: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} {\\it x(m)}: ") + (|htSay| "\\tab{30} \\menuitemstyle{}\\tab{32} {\\it y(m)}: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|e02zafGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|px| |px|) @@ -11159,9 +11010,7 @@ (SPADLET |px| '9) (SPADLET |py| '10) (SPADLET |page| - (|htInitPage| - (MAKESTRING - "E02ZAF - Sort 2-D sata into panels for fitting bicubic splines") + (|htInitPage| "E02ZAF - Sort 2-D sata into panels for fitting bicubic splines" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|))) @@ -11210,7 +11059,7 @@ (|bcStrings| (8 "0.80" |mu5| F)) (|bcStrings| (8 "1.20" |mu6| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e02zafGen|) + (|htMakeDoneButton| "Continue" '|e02zafGen|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|px| |px|) (|htpSetProperty| |page| '|py| |py|) @@ -11283,7 +11132,7 @@ (SPADDIFFERENCE |py| 7))) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) (SEQ (EXIT (SPADLET |muList| - (CONS (MAKESTRING "0 ") |muList|))))) + (CONS "0 " |muList|))))) (DO ((G168502 (SPADDIFFERENCE |py| 4)) (|i| 5 (+ |i| 1))) ((> |i| G168502) NIL) @@ -11295,11 +11144,11 @@ (DO ((|i| (SPADDIFFERENCE |py| 3) (+ |i| 1))) ((> |i| |py|) NIL) (SEQ (EXIT (SPADLET |muList| - (CONS (MAKESTRING "0 ") |muList|))))) + (CONS "0 " |muList|))))) (SPADLET |mustring| (|bcwords2liststring| |muList|)) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| 4) NIL) (SEQ (EXIT (SPADLET |lamList| - (CONS (MAKESTRING "0 ") |lamList|))))) + (CONS "0 " |lamList|))))) (DO ((G168524 (SPADDIFFERENCE |px| 4)) (|i| 5 (+ |i| 1))) ((> |i| G168524) NIL) @@ -11312,7 +11161,7 @@ (DO ((|i| (SPADDIFFERENCE |px| 3) (+ |i| 1))) ((> |i| |px|) NIL) (SEQ (EXIT (SPADLET |lamList| - (CONS (MAKESTRING "0 ") |lamList|))))) + (CONS "0 " |lamList|))))) (SPADLET |lamstring| (|bcwords2liststring| |lamList|)) (DO () ((NULL |y|) NIL) (SEQ (EXIT (PROGN @@ -11327,7 +11176,7 @@ (SPADLET |xstring| (|bcwords2liststring| |xlist|)) (SPADLET |ystring| (|bcwords2liststring| |ylist|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "e02zaf(") + (STRCONC "e02zaf(" (STRINGIMAGE |px|) '|, | (STRINGIMAGE |py|) '|,[|)) (SPADLET |prefix| diff --git a/src/interp/nag-e04.lisp.pamphlet b/src/interp/nag-e04.lisp.pamphlet index d04cc8d..95ce11d 100644 --- a/src/interp/nag-e04.lisp.pamphlet +++ b/src/interp/nag-e04.lisp.pamphlet @@ -53,8 +53,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives") + "E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -85,7 +84,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04dgfSolve|) + (|htMakeDoneButton| "Continue" '|e04dgfSolve|) (|htShowPage|))) ;e04dgfSolve(htPage) == @@ -178,7 +177,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| (CONS (CONS 8 @@ -217,18 +216,15 @@ (CONS (CONS 55 (CONS - (MAKESTRING - "exp(X[1])*(4*X[1]**2+2*X[2]**2+4*X[1]*X[2]+2*X[2]+1)") + "exp(X[1])*(4*X[1]**2+2*X[2]**2+4*X[1]*X[2]+2*X[2]+1)" (CONS '|f| (CONS 'EM NIL)))) NIL)) NIL)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "of the solution vector {\\it x(n)}: \\newline "))) + "of the solution vector {\\it x(n)}: \\newline ")) (SPADLET |middle| (CONS '|text| |middle|)) (SPADLET |vecList| (COND @@ -262,12 +258,10 @@ (COND ((EQL |optional| 1) (SPADLET |opt1Text| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} ")) + "\\blankline \\menuitemstyle{}\\tab{2} ") (SPADLET |opt1Text| (STRCONC |opt1Text| - (MAKESTRING - "Estimated optimal function values, {\\it es}: \\newline "))) + "Estimated optimal function values, {\\it es}: \\newline ")) (SPADLET |optList| (CONS (CONS '|text| |opt1Text|) (CONS (CONS '|bcStrings| @@ -278,12 +272,10 @@ NIL)) NIL))) (SPADLET |opt2Text| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} ")) + "\\blankline \\menuitemstyle{}\\tab{2} ") (SPADLET |opt2Text| (STRCONC |opt2Text| - (MAKESTRING - "Function precision, {\\it fu}: \\newline "))) + "Function precision, {\\it fu}: \\newline ")) (SPADLET |optList| (APPEND |optList| (CONS (CONS '|text| |opt2Text|) @@ -296,12 +288,10 @@ NIL)) NIL)))) (SPADLET |opt3Text| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} ")) + "\\blankline \\menuitemstyle{}\\tab{2} ") (SPADLET |opt3Text| (STRCONC |opt3Text| - (MAKESTRING - "Iteration limit, {\\it it}: \\newline "))) + "Iteration limit, {\\it it}: \\newline ")) (SPADLET |optList| (APPEND |optList| (CONS (CONS '|text| |opt3Text|) @@ -314,12 +304,10 @@ NIL)) NIL)))) (SPADLET |opt4Text| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} ")) + "\\blankline \\menuitemstyle{}\\tab{2} ") (SPADLET |opt4Text| (STRCONC |opt4Text| - (MAKESTRING - "Linesearch tolerance, {\\it lin}: \\newline "))) + "Linesearch tolerance, {\\it lin}: \\newline ")) (SPADLET |optList| (APPEND |optList| (CONS (CONS '|text| |opt4Text|) @@ -332,11 +320,10 @@ NIL)) NIL)))) (SPADLET |opt5Text| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} ")) + "\\blankline \\menuitemstyle{}\\tab{2} ") (SPADLET |opt5Text| (STRCONC |opt5Text| - (MAKESTRING "List parameters:"))) + "List parameters:")) (SPADLET |optList| (APPEND |optList| (CONS (CONS '|text| |opt5Text|) @@ -354,12 +341,10 @@ NIL)))) NIL)))) (SPADLET |opt6Text| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} ")) + "\\blankline \\menuitemstyle{}\\tab{2} ") (SPADLET |opt6Text| (STRCONC |opt6Text| - (MAKESTRING - "Maximum step length, {\\it ma}: \\newline "))) + "Maximum step length, {\\it ma}: \\newline ")) (SPADLET |optList| (APPEND |optList| (CONS (CONS '|text| |opt6Text|) @@ -372,12 +357,10 @@ NIL)) NIL)))) (SPADLET |opt7Text| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} ")) + "\\blankline \\menuitemstyle{}\\tab{2} ") (SPADLET |opt7Text| (STRCONC |opt7Text| - (MAKESTRING - "Optimality tolerance, {\\it op}: \\newline "))) + "Optimality tolerance, {\\it op}: \\newline ")) (SPADLET |optList| (APPEND |optList| (CONS (CONS '|text| |opt7Text|) @@ -390,12 +373,10 @@ NIL)) NIL)))) (SPADLET |opt9Text| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} ")) + "\\blankline \\menuitemstyle{}\\tab{2} ") (SPADLET |opt9Text| (STRCONC |opt9Text| - (MAKESTRING - "Print level, {\\it pr}: \\newline "))) + "Print level, {\\it pr}: \\newline ")) (SPADLET |optList| (APPEND |optList| (CONS (CONS '|text| |opt9Text|) @@ -408,12 +389,10 @@ NIL)) NIL)))) (SPADLET |opt10Text| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} ")) + "\\blankline \\menuitemstyle{}\\tab{2} ") (SPADLET |opt10Text| (STRCONC |opt10Text| - (MAKESTRING - "Start objective check at variable, {\\it sta}: \\newline "))) + "Start objective check at variable, {\\it sta}: \\newline ")) (SPADLET |optList| (APPEND |optList| (CONS (CONS '|text| |opt10Text|) @@ -426,12 +405,10 @@ NIL)) NIL)))) (SPADLET |opt11Text| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} ")) + "\\blankline \\menuitemstyle{}\\tab{2} ") (SPADLET |opt11Text| (STRCONC |opt11Text| - (MAKESTRING - "Stop objective check at variable, {\\it sto}: \\newline "))) + "Stop objective check at variable, {\\it sto}: \\newline ")) (SPADLET |optList| (APPEND |optList| (CONS (CONS '|text| |opt11Text|) @@ -444,12 +421,10 @@ NIL)) NIL)))) (SPADLET |opt12Text| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} ")) + "\\blankline \\menuitemstyle{}\\tab{2} ") (SPADLET |opt12Text| (STRCONC |opt12Text| - (MAKESTRING - "Verify level, {\\it ver}: \\newline "))) + "Verify level, {\\it ver}: \\newline ")) (SPADLET |optList| (APPEND |optList| (CONS (CONS '|text| |opt12Text|) @@ -470,15 +445,13 @@ (APPEND |funcList| |optList|))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives") + "E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the objective function, {\\it F(x)} in terms of X[1]...X[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the objective function, {\\it F(x)} in terms of X[1]...X[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|e04dgfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|optional| |optional|) @@ -518,8 +491,7 @@ (PROGN (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives") + "E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -539,7 +511,7 @@ . "Enter initial guess of the solution vector, {\\it x(n)}: \\newline") (|bcStrings| (8 "-1.0" |x1| F)) (|bcStrings| (8 "1.0" |x2| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04dgfGen|) + (|htMakeDoneButton| "Continue" '|e04dgfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|optional| |optional|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -625,14 +597,14 @@ (SPADLET |y| |alist|) (COND ((BOOT-EQUAL |optional| '0) - (SPADLET |es| (MAKESTRING "1.0")) - (SPADLET |ma| (MAKESTRING "1.0E+20")) - (SPADLET |op| (MAKESTRING "3.26E-12")) - (SPADLET |lin| (MAKESTRING "0.9")) - (SPADLET |fu| (MAKESTRING "0.4373903597E-14")) + (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| (MAKESTRING "true")) + (SPADLET |lis| "true") (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) (SEQ (EXIT (PROGN (SPADLET |temp| @@ -657,9 +629,9 @@ (SPADLET |nolist| (ELT (CAR |y|) 1)) (SPADLET |lis| (COND - ((BOOT-EQUAL |nolist| (MAKESTRING " t")) - (MAKESTRING "false")) - ('T (MAKESTRING "true")))) + ((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) '| |)) @@ -750,8 +722,7 @@ (DEFUN |e04fdf| () (PROGN (|htInitPage| - (MAKESTRING - "E04FDF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using function values only") + "E04FDF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using function values only" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -800,7 +771,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04fdfSolve|) + (|htMakeDoneButton| "Continue" '|e04fdfSolve|) (|htShowPage|))) ;e04fdfSolve htPage == @@ -859,13 +830,13 @@ (DEFUN |e04fdfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline {\\em Function ")) + (SEQ (SPADLET |prefix| "\\newline {\\em Function ") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) - (MAKESTRING ":} \\space{1}"))) - (SPADLET |funct| (MAKESTRING "XC[1] + 1")) + ":} \\space{1}")) + (SPADLET |funct| "XC[1] + 1") (SPADLET |nam| - (INTERN (STRCONC (MAKESTRING "n") + (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -880,11 +851,11 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| (CONS (CONS 4 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |xnam| (CONS 'F NIL)))) NIL))))))) @@ -944,12 +915,10 @@ (APPEND G166249 (|e04fdfSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "of the solution vector {\\it x(n)}: \\newline "))) + "of the solution vector {\\it x(n)}: \\newline ")) (SPADLET |middle| (CONS '|text| |middle|)) (SPADLET |vecList| (PROG (G166261) @@ -972,15 +941,13 @@ |funcList|)) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04FDF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using function values only") + "E04FDF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using function values only" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the functions \\htbitmap{fi} below in terms XC[1]...XC[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the functions \\htbitmap{fi} below in terms XC[1]...XC[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|e04fdfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -1059,8 +1026,7 @@ (SPADLET |m| '15) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04FDF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using function values only") + "E04FDF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using function values only" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1122,7 +1088,7 @@ (|bcStrings| (4 "0.5" |x1| F)) (|bcStrings| (4 "1.0" |x2| F)) (|bcStrings| (4 "1.5" |x3| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04fdfGen|) + (|htMakeDoneButton| "Continue" '|e04fdfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -1246,8 +1212,7 @@ (DEFUN |e04gcf| () (PROGN (|htInitPage| - (MAKESTRING - "E04GCF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using 1st derivatives") + "E04GCF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using 1st derivatives" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -1295,7 +1260,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04gcfSolve|) + (|htMakeDoneButton| "Continue" '|e04gcfSolve|) (|htShowPage|))) ;e04gcfSolve htPage == @@ -1354,13 +1319,13 @@ (DEFUN |e04gcfSolve,fa| (|i|) (PROG (|prefix| |funct| |nam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline {\\em Function ")) + (SEQ (SPADLET |prefix| "\\newline {\\em Function ") (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |i|) - (MAKESTRING ":} \\space{1}"))) - (SPADLET |funct| (MAKESTRING "XC[1] + 1")) + ":} \\space{1}")) + (SPADLET |funct| "XC[1] + 1") (SPADLET |nam| - (INTERN (STRCONC (MAKESTRING "n") + (INTERN (STRCONC "n" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -1375,11 +1340,11 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| (CONS (CONS 4 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |xnam| (CONS 'F NIL)))) NIL))))))) @@ -1439,12 +1404,10 @@ (APPEND G166362 (|e04gcfSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "of the solution vector {\\it x(n)}: \\newline "))) + "of the solution vector {\\it x(n)}: \\newline ")) (SPADLET |middle| (CONS '|text| |middle|)) (SPADLET |vecList| (PROG (G166374) @@ -1467,15 +1430,13 @@ |funcList|)) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04GCF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using 1st derivatives") + "E04GCF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using 1st derivatives" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the functions \\htbitmap{fi} below in terms of XC[1]...XC[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the functions \\htbitmap{fi} below in terms of XC[1]...XC[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|e04gcfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -1554,8 +1515,7 @@ (SPADLET |m| '15) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04GCF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using 1st derivatives") + "E04GCF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using 1st derivatives" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1617,7 +1577,7 @@ (|bcStrings| (4 "0.5" |x1| F)) (|bcStrings| (4 "1.0" |x2| F)) (|bcStrings| (4 "1.5" |x3| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04gcfGen|) + (|htMakeDoneButton| "Continue" '|e04gcfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -1747,8 +1707,7 @@ (DEFUN |e04jaf| () (PROGN (|htInitPage| - (MAKESTRING - "E04JAF - Minimum, function of several variables, quasi-Newton algorithm, simple bounds, using function values only") + "E04JAF - Minimum, function of several variables, quasi-Newton algorithm, simple bounds, using function values only" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -1811,7 +1770,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04jafSolve|) + (|htMakeDoneButton| "Continue" '|e04jafSolve|) (|htShowPage|))) ;e04jafSolve htPage == @@ -1881,11 +1840,11 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "bl") + (INTERN (STRCONC "bl" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |xnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -1894,11 +1853,11 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "bu") + (INTERN (STRCONC "bu" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |xnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -1907,11 +1866,11 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |xnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -1965,17 +1924,15 @@ (CONS (CONS '|bcStrings| (CONS (CONS 50 - (CONS (MAKESTRING "XC[1]") + (CONS "XC[1]" (CONS '|f| (CONS 'EM NIL)))) NIL)) NIL)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary conditions ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary conditions ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "{\\it bl(n)}: \\newline "))) + "{\\it bl(n)}: \\newline ")) (SPADLET |blList| (PROG (G166478) (SPADLET G166478 NIL) @@ -1989,12 +1946,10 @@ (SPADLET |blList| (CONS (CONS '|text| |middle|) |blList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "conditions {\\it bu(n)}: \\newline "))) + "conditions {\\it bu(n)}: \\newline ")) (SPADLET |buList| (PROG (G166486) (SPADLET G166486 NIL) @@ -2008,12 +1963,10 @@ (SPADLET |buList| (CONS (CONS '|text| |middle|) |buList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "of the solution vector {\\it x(n)}: \\newline "))) + "of the solution vector {\\it x(n)}: \\newline ")) (SPADLET |xList| (PROG (G166494) (SPADLET G166494 NIL) @@ -2036,15 +1989,13 @@ (APPEND |buList| |xList|))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04JAF - Minimum, function of several variables, quasi-Newton algorithm, simple bounds, using function values only") + "E04JAF - Minimum, function of several variables, quasi-Newton algorithm, simple bounds, using function values only" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the function {\\it F(x)} below in terms of XC[1]...XC[n]: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the function {\\it F(x)} below in terms of XC[1]...XC[n]: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|e04jafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ibound| |ibound|) @@ -2106,8 +2057,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04JAF - Minimum, function of several variables, quasi-Newton algorithm, simple bounds, using function values only") + "E04JAF - Minimum, function of several variables, quasi-Newton algorithm, simple bounds, using function values only" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -2143,7 +2093,7 @@ (|bcStrings| (8 "-1" |x2| F)) (|bcStrings| (8 "0" |x3| F)) (|bcStrings| (8 "1" |x4| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04jafGen|) + (|htMakeDoneButton| "Continue" '|e04jafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ibound| |ibound|) (|htpSetProperty| |page| '|liw| |liw|) @@ -2310,7 +2260,7 @@ (DEFUN |e04mbf| () (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "E04MBF - Linear programming problem") + (|htInitPage| "E04MBF - Linear programming problem" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -2387,7 +2337,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04mbfSolve|) + (|htMakeDoneButton| "Continue" '|e04mbfSolve|) (|htShowPage|))) ;e04mbfSolve htPage == @@ -2486,7 +2436,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -2507,7 +2457,7 @@ (SEQ (EXIT (SETQ G166614 (APPEND G166614 (|e04mbfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2515,11 +2465,11 @@ (PROG (|blnam|) (RETURN (SEQ (SPADLET |blnam| - (INTERN (STRCONC (MAKESTRING "bl") + (INTERN (STRCONC "bl" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |blnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -2528,11 +2478,11 @@ (PROG (|bunam|) (RETURN (SEQ (SPADLET |bunam| - (INTERN (STRCONC (MAKESTRING "bu") + (INTERN (STRCONC "bu" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |bunam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -2541,11 +2491,11 @@ (PROG (|cnam|) (RETURN (SEQ (SPADLET |cnam| - (INTERN (STRCONC (MAKESTRING "c") + (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |cnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -2554,11 +2504,11 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |xnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -2616,8 +2566,8 @@ (SPADLET |linobj| (COND ((BOOT-EQUAL |lin| '|true|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |liwork| (COND (|$bcParseOnly| @@ -2656,12 +2606,10 @@ (APPEND G166655 (|e04mbfSolve,fa| |i| |n|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "conditions {\\it bl(n + nclin)}: \\newline "))) + "conditions {\\it bl(n + nclin)}: \\newline ")) (SPADLET |blList| (PROG (G166663) (SPADLET G166663 NIL) @@ -2676,12 +2624,10 @@ (SPADLET |blList| (CONS (CONS '|text| |middle|) |blList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "conditions {\\it bu(n+nclin)}: \\newline "))) + "conditions {\\it bu(n+nclin)}: \\newline ")) (SPADLET |buList| (PROG (G166672) (SPADLET G166672 NIL) @@ -2696,12 +2642,10 @@ (SPADLET |buList| (CONS (CONS '|text| |middle|) |buList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter coefficients of the ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter coefficients of the ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "objective function {\\it cvec(n)}: \\newline "))) + "objective function {\\it cvec(n)}: \\newline ")) (SPADLET |cList| (PROG (G166681) (SPADLET G166681 NIL) @@ -2715,12 +2659,10 @@ (SPADLET |cList| (CONS (CONS '|text| |middle|) |cList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "of the solution vector {\\it x(n)}: \\newline "))) + "of the solution vector {\\it x(n)}: \\newline ")) (SPADLET |xList| (PROG (G166689) (SPADLET G166689 NIL) @@ -2744,14 +2686,12 @@ (APPEND |cList| |xList|)))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04MBF - Linear programming problem") + "E04MBF - Linear programming problem" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the elements of the array {\\it a(nrowa,n)}: \\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the elements of the array {\\it a(nrowa,n)}: \\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|e04mbfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|nclin| |nclin|) @@ -2915,7 +2855,7 @@ (SPADLET |nrowa| '7) (SPADLET |page| (|htInitPage| - (MAKESTRING "E04MBF - Linear programming problem") + "E04MBF - Linear programming problem" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -3030,7 +2970,7 @@ (|bcStrings| (8 "-0.1" |x5| F)) (|bcStrings| (8 "0.02" |x6| F)) (|bcStrings| (8 "0.01" |x7| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04mbfGen|) + (|htMakeDoneButton| "Continue" '|e04mbfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|nclin| |nclin|) (|htpSetProperty| |page| '|nrowa| |nrowa|) @@ -3317,7 +3257,7 @@ (DEFUN |e04naf| () (declare (special |$EmptyMode|)) (PROGN - (|htInitPage| (MAKESTRING "E04NAF - Quadratic programming problem") + (|htInitPage| "E04NAF - Quadratic programming problem" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -3450,7 +3390,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04nafSolve|) + (|htMakeDoneButton| "Continue" '|e04nafSolve|) (|htShowPage|))) ;e04nafSolve htPage == @@ -3602,7 +3542,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -3623,7 +3563,7 @@ (SEQ (EXIT (SETQ G166896 (APPEND G166896 (|e04nafSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -3631,11 +3571,11 @@ (PROG (|blnam|) (RETURN (SEQ (SPADLET |blnam| - (INTERN (STRCONC (MAKESTRING "bl") + (INTERN (STRCONC "bl" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |blnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -3644,11 +3584,11 @@ (PROG (|bunam|) (RETURN (SEQ (SPADLET |bunam| - (INTERN (STRCONC (MAKESTRING "bu") + (INTERN (STRCONC "bu" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |bunam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -3657,11 +3597,11 @@ (PROG (|cnam|) (RETURN (SEQ (SPADLET |cnam| - (INTERN (STRCONC (MAKESTRING "c") + (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |cnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -3670,11 +3610,11 @@ (PROG (|fnam|) (RETURN (SEQ (SPADLET |fnam| - (INTERN (STRCONC (MAKESTRING "f") + (INTERN (STRCONC "f" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 9 - (CONS (MAKESTRING "0.1053e-7") + (CONS "0.1053e-7" (CONS |fnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -3683,7 +3623,7 @@ (PROG (|hnam|) (RETURN (SEQ (SPADLET |hnam| - (INTERN (STRCONC (MAKESTRING "h") (STRINGIMAGE |i|) + (INTERN (STRCONC "h" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -3704,7 +3644,7 @@ (SEQ (EXIT (SETQ G166943 (APPEND G166943 (|e04nafSolve,fi| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -3712,11 +3652,11 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |xnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -3725,11 +3665,11 @@ (PROG (|inam|) (RETURN (SEQ (SPADLET |inam| - (INTERN (STRCONC (MAKESTRING "i") + (INTERN (STRCONC "i" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |inam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -3815,20 +3755,20 @@ (SPADLET |cold| (COND ((BOOT-EQUAL |col| '|cTrue|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |linear| (|htpButtonValue| |htPage| '|lp|)) (SPADLET |lp| (COND ((BOOT-EQUAL |linear| '|lTrue|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |ortho| (|htpButtonValue| |htPage| '|orthog|)) (SPADLET |orthog| (COND ((BOOT-EQUAL |ortho| '|oTrue|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |liwork| (COND (|$bcParseOnly| @@ -3869,12 +3809,10 @@ (APPEND G166972 (|e04nafSolve,fa| |i| |n|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "conditions {\\it bl(n + nclin)}: \\newline "))) + "conditions {\\it bl(n + nclin)}: \\newline ")) (SPADLET |blList| (PROG (G166980) (SPADLET G166980 NIL) @@ -3889,12 +3827,10 @@ (SPADLET |blList| (CONS (CONS '|text| |middle|) |blList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "conditions {\\it bu(n+nclin)}: \\newline "))) + "conditions {\\it bu(n+nclin)}: \\newline ")) (SPADLET |buList| (PROG (G166989) (SPADLET G166989 NIL) @@ -3909,12 +3845,10 @@ (SPADLET |buList| (CONS (CONS '|text| |middle|) |buList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter coefficients of the ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter coefficients of the ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "objective function {\\it cvec(n)}: \\newline "))) + "objective function {\\it cvec(n)}: \\newline ")) (SPADLET |cList| (PROG (G166998) (SPADLET G166998 NIL) @@ -3928,12 +3862,10 @@ (SPADLET |cList| (CONS (CONS '|text| |middle|) |cList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter set of positive ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter set of positive ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "tolerances {\\it featol(n+nclin)}: \\newline "))) + "tolerances {\\it featol(n+nclin)}: \\newline ")) (SPADLET |fList| (PROG (G167006) (SPADLET G167006 NIL) @@ -3948,12 +3880,10 @@ (SPADLET |fList| (CONS (CONS '|text| |middle|) |fList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter the elements of ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter the elements of ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "array {\\it hess(nrowh,ncolh)}: \\newline "))) + "array {\\it hess(nrowh,ncolh)}: \\newline ")) (SPADLET |hList| (PROG (G167015) (SPADLET G167015 NIL) @@ -3967,12 +3897,10 @@ (SPADLET |hList| (CONS (CONS '|text| |middle|) |hList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "of the solution vector {\\it x(n)}: \\newline "))) + "of the solution vector {\\it x(n)}: \\newline ")) (SPADLET |xList| (PROG (G167023) (SPADLET G167023 NIL) @@ -3986,12 +3914,10 @@ (SPADLET |xList| (CONS (CONS '|text| |middle|) |xList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} If {\\it cold} = false ")) + "\\blankline \\menuitemstyle{}\\tab{2} If {\\it cold} = false ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "enter {\\it istate(n+nclin)} values: \\newline "))) + "enter {\\it istate(n+nclin)} values: \\newline ")) (SPADLET |iList| (PROG (G167031) (SPADLET G167031 NIL) @@ -4019,14 +3945,12 @@ (APPEND |xList| |iList|))))))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04NAF - Quadratic programming problem") + "E04NAF - Quadratic programming problem" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the elements of the array {\\it a(nrowa,n)}: \\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the elements of the array {\\it a(nrowa,n)}: \\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|e04nafGen|) (|htpSetProperty| |page| '|itmax| |itmax|) (|htpSetProperty| |page| '|msglvl| |msglvl|) @@ -4300,8 +4224,7 @@ (SPADLET |ncolh| '7) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04NAF - Quadratic programming problem") + "E04NAF - Quadratic programming problem" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -4500,7 +4423,7 @@ (|bcStrings| (8 "0" |i12| F)) (|bcStrings| (8 "0" |i13| F)) (|bcStrings| (8 "0" |i14| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04nafGen|) + (|htMakeDoneButton| "Continue" '|e04nafGen|) (|htpSetProperty| |page| '|itmax| |itmax|) (|htpSetProperty| |page| '|msglvl| |msglvl|) (|htpSetProperty| |page| '|n| |n|) @@ -4840,8 +4763,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "E04UCF - Minimum, function of several variables, sequential QP method, nonlinear constraints, using function values and optionally 1st derivatives") + "E04UCF - Minimum, function of several variables, sequential QP method, nonlinear constraints, using function values and optionally 1st derivatives" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -4908,7 +4830,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04ucfSolve|) + (|htMakeDoneButton| "Continue" '|e04ucfSolve|) (|htShowPage|))) ;e04ucfSolve(htPage) == @@ -5146,7 +5068,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -5167,7 +5089,7 @@ (SEQ (EXIT (SETQ G167345 (APPEND G167345 (|e04ucfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -5175,11 +5097,11 @@ (PROG (|blnam|) (RETURN (SEQ (SPADLET |blnam| - (INTERN (STRCONC (MAKESTRING "bl") + (INTERN (STRCONC "bl" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "-1.E25") + (CONS "-1.E25" (CONS |blnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -5188,11 +5110,11 @@ (PROG (|bunam|) (RETURN (SEQ (SPADLET |bunam| - (INTERN (STRCONC (MAKESTRING "bu") + (INTERN (STRCONC "bu" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "1.E25") + (CONS "1.E25" (CONS |bunam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -5200,15 +5122,15 @@ (DEFUN |e04ucfSolve,fe| (|i|) (PROG (|lineEnd| |cnam|) (RETURN - (SEQ (SPADLET |lineEnd| (MAKESTRING "\\newline \\tab{2} ")) + (SEQ (SPADLET |lineEnd| "\\newline \\tab{2} ") (SPADLET |cnam| - (INTERN (STRCONC (MAKESTRING "c") + (INTERN (STRCONC "c" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |lineEnd|) (CONS (CONS '|bcStrings| (CONS (CONS 55 - (CONS (MAKESTRING "X[1]") + (CONS "X[1]" (CONS |cnam| (CONS 'F NIL)))) NIL)) NIL))))))) @@ -5217,11 +5139,11 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |xnam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -5338,12 +5260,10 @@ (APPEND G167387 (|e04ucfSolve,fa| |i| |n|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter lower boundary ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "conditions {\\it bl(n+nclin+ncnln)}: \\newline "))) + "conditions {\\it bl(n+nclin+ncnln)}: \\newline ")) (SPADLET |blList| (PROG (G167395) (SPADLET G167395 NIL) @@ -5359,12 +5279,10 @@ (SPADLET |blList| (CONS (CONS '|text| |middle|) |blList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter upper boundary ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "conditions {\\it bu(n+nclin+ncnln)}: \\newline "))) + "conditions {\\it bu(n+nclin+ncnln)}: \\newline ")) (SPADLET |buList| (PROG (G167404) (SPADLET G167404 NIL) @@ -5380,16 +5298,13 @@ (SPADLET |buList| (CONS (CONS '|text| |middle|) |buList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter the nonlinear ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter the nonlinear ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "constraint functions {\\it c(ncnln)} "))) + "constraint functions {\\it c(ncnln)} ")) (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "in terms of X[1]...X[n]: \\newline "))) + "in terms of X[1]...X[n]: \\newline ")) (SPADLET |cList| (PROG (G167413) (SPADLET G167413 NIL) @@ -5403,32 +5318,28 @@ (SPADLET |cList| (CONS (CONS '|text| |middle|) |cList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter the objective ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter the objective ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING "function, {\\it F(x)} "))) + "function, {\\it F(x)} ")) (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "in terms of X[1]...X[n]: \\newline "))) + "in terms of X[1]...X[n]: \\newline ")) (SPADLET |funcList| (CONS (CONS '|bcStrings| (CONS (CONS 55 - (CONS (MAKESTRING "X[1]") + (CONS "X[1]" (CONS '|f| (CONS 'EM NIL)))) NIL)) NIL)) (SPADLET |funcList| (CONS (CONS '|text| |middle|) |funcList|)) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter initial guess ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "of the solution vector {\\it x(n)}: \\newline "))) + "of the solution vector {\\it x(n)}: \\newline ")) (SPADLET |xList| (PROG (G167421) (SPADLET G167421 NIL) @@ -5645,15 +5556,13 @@ (5 3 |ver| PI))))))))))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04UCF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives") + "E04UCF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the elements of the array, {\\it A(nrowa,n)}: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the elements of the array, {\\it A(nrowa,n)}: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|e04ucfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|nclin| |nclin|) @@ -5762,8 +5671,7 @@ (SPADLET |start| '0) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04UCF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives") + "E04UCF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -5823,7 +5731,7 @@ (|bcStrings| (8 "5.0" |x2| F)) (|bcStrings| (8 "5.0" |x3| F)) (|bcStrings| (8 "1.0" |x4| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04ucfGen|) + (|htMakeDoneButton| "Continue" '|e04ucfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|nclin| |nclin|) (|htpSetProperty| |page| '|ncnln| |ncnln|) @@ -6047,20 +5955,20 @@ (SPADLET |y| |alist|) (COND ((BOOT-EQUAL |optional| '0) - (SPADLET |cra| (MAKESTRING "0.01")) (SPADLET |der| 3) - (SPADLET |fea| (MAKESTRING "0.1053671201E-7")) - (SPADLET |fun| (MAKESTRING "0.4373903510E-14")) + (SPADLET |cra| "0.01") (SPADLET |der| 3) + (SPADLET |fea| "0.1053671201E-7") + (SPADLET |fun| "0.4373903510E-14") (SPADLET |hes| '|true|) - (SPADLET |infb| (MAKESTRING "1.00E+15")) - (SPADLET |infs| (MAKESTRING "1.00E+15")) - (SPADLET |linf| (MAKESTRING "0.1053671201E-7")) - (SPADLET |lint| (MAKESTRING "0.9")) + (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| (MAKESTRING "-1")) - (SPADLET |nonf| (MAKESTRING "1.05E-08")) - (SPADLET |opt| (MAKESTRING "3.26E-08")) - (SPADLET |ste| (MAKESTRING "2.0")) (SPADLET |stao| 1) + (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) (DO ((|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| |n|) NIL) @@ -6169,9 +6077,9 @@ (SPADLET |nolist| (ELT (CAR |y|) 1)) (SPADLET |lis| (COND - ((BOOT-EQUAL |nolist| (MAKESTRING " nil")) - (MAKESTRING "false")) - ('T (MAKESTRING "true")))) + ((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) '| |)) @@ -6185,9 +6093,9 @@ (SPADLET |noHess| (ELT (CAR |y|) 1)) (SPADLET |hes| (COND - ((BOOT-EQUAL |noHess| (MAKESTRING " nil")) - (MAKESTRING "false")) - ('T (MAKESTRING "true")))) + ((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) '| |)) @@ -6356,8 +6264,7 @@ (DEFUN |e04ucfCopOut| () (PROGN (|htInitPage| - (MAKESTRING - "E04UCF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives") + "E04UCF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -6366,7 +6273,7 @@ . "{\\center{\\em Hyperdoc interface not available for warm start}}") (|text| . "\\newline ") (|text| . "{\\center{\\em Please use the command line.}}"))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04ucf|) + (|htMakeDoneButton| "Continue" '|e04ucf|) (|htShowPage|))) ;e04ycf() == @@ -6431,8 +6338,7 @@ (declare (special |$EmptyMode|)) (PROGN (|htInitPage| - (MAKESTRING - "E04YCF - Covariance matrix for non-linear least-squares problem") + "E04YCF - Covariance matrix for non-linear least-squares problem" NIL) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -6491,7 +6397,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04ycfSolve|) + (|htMakeDoneButton| "Continue" '|e04ycfSolve|) (|htShowPage|))) ;e04ycfSolve htPage == @@ -6554,11 +6460,11 @@ (PROG (|snam|) (RETURN (SEQ (SPADLET |snam| - (INTERN (STRCONC (MAKESTRING "s") + (INTERN (STRCONC "s" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 30 - (CONS (MAKESTRING "0.0") + (CONS "0.0" (CONS |snam| (CONS 'F NIL)))) NIL)) NIL)))))) @@ -6567,7 +6473,7 @@ (PROG (|vnam|) (RETURN (SEQ (SPADLET |vnam| - (INTERN (STRCONC (MAKESTRING "v") (STRINGIMAGE |i|) + (INTERN (STRCONC "v" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 15 @@ -6588,7 +6494,7 @@ (SEQ (EXIT (SETQ G167841 (APPEND G167841 (|e04ycfSolve,fc| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -6649,12 +6555,10 @@ (APPEND G167858 (|e04ycfSolve,fa| |i|))))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter the elements ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter the elements ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "of array {\\it v(lv,n)}: \\newline "))) + "of array {\\it v(lv,n)}: \\newline ")) (SPADLET |vList| (PROG (G167866) (SPADLET G167866 NIL) @@ -6675,14 +6579,12 @@ (APPEND |sList| |vList|))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04YCF - Covariance matrix for non-linear least-squares problem") + "E04YCF - Covariance matrix for non-linear least-squares problem" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING - "Enter the elements of the array {\\it s(n)}: \\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the elements of the array {\\it s(n)}: \\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|e04ycfGen|) (|htpSetProperty| |page| '|job| |job|) (|htpSetProperty| |page| '|n| |n|) @@ -6744,8 +6646,7 @@ (SPADLET |lv| '3) (SPADLET |page| (|htInitPage| - (MAKESTRING - "E04YCF - Covariance matrix for non-linear least-squares problem") + "E04YCF - Covariance matrix for non-linear least-squares problem" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -6772,7 +6673,7 @@ (|bcStrings| (8 "-0.0215" |v31| F)) (|bcStrings| (8 "-0.7205" |v32| F)) (|bcStrings| (8 "0.6932" |v33| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|e04ycfGen|) + (|htMakeDoneButton| "Continue" '|e04ycfGen|) (|htpSetProperty| |page| '|job| |job|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) diff --git a/src/interp/nag-f01.lisp.pamphlet b/src/interp/nag-f01.lisp.pamphlet index e982352..0f5f416 100644 --- a/src/interp/nag-f01.lisp.pamphlet +++ b/src/interp/nag-f01.lisp.pamphlet @@ -150,7 +150,7 @@ (|radioButtons| |cfail| ("" " 1, print warning messages" |cone|) ("" " 0, suppress warning messages" |czero|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01brfSolve|) + (|htMakeDoneButton| "Continue" '|f01brfSolve|) (|htShowPage|))) ;f01brfSolve htPage == @@ -237,17 +237,17 @@ (DEFUN |f01brfSolve,f| (|i|) (PROG (|prefix| |anam| |mid| |rnam| |end| |cnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") + (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) - (SPADLET |mid| (MAKESTRING "\\tab{32} ")) + (SPADLET |mid| "\\tab{32} ") (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "irn") + (INTERN (STRCONC "irn" (STRINGIMAGE |i|)))) - (SPADLET |end| (MAKESTRING "\\tab{42} ")) + (SPADLET |end| "\\tab{42} ") (SPADLET |cnam| - (INTERN (STRCONC (MAKESTRING "icn") + (INTERN (STRCONC "icn" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -321,14 +321,14 @@ (SPADLET |grow| (COND ((BOOT-EQUAL |gr| '|grtrue|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |lb| (|htpButtonValue| |htPage| '|lblock|)) (SPADLET |lblock| (COND ((BOOT-EQUAL |lb| '|lbtrue|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |aerror| (|htpButtonValue| |htPage| '|afail|)) (SPADLET |afail| (COND @@ -368,14 +368,14 @@ (CONS (CONS '|bcStrings| (CONS (CONS 6 - (CONS (MAKESTRING "true") + (CONS "true" (CONS '|abortone| (CONS 'EM NIL)))) NIL)) (CONS (CONS '|bcStrings| (CONS (CONS 6 - (CONS (MAKESTRING "true") + (CONS "true" (CONS '|aborttwo| (CONS 'EM NIL)))) NIL)) @@ -383,7 +383,7 @@ (CONS '|bcStrings| (CONS (CONS 6 - (CONS (MAKESTRING "false") + (CONS "false" (CONS '|abortthree| (CONS 'EM NIL)))) NIL)) @@ -391,14 +391,13 @@ (CONS '|bcStrings| (CONS (CONS 6 - (CONS (MAKESTRING "true") + (CONS "true" (CONS '|abortfour| (CONS 'EM NIL)))) NIL)) NIL))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Abort: ")) + "\\blankline \\menuitemstyle{}\\tab{2} Abort: ") (SPADLET |abortList| (CONS (CONS '|text| |prefix|) |abortList|)) (SPADLET |equationPart| @@ -414,15 +413,12 @@ (|htInitPage| '|F01BRF - LU factorization of real sparse matrix| NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Non-zero elements of A: ")) - (|htSay| (MAKESTRING - "\\tab{30} \\menuitemstyle{}\\tab{32} Row: ")) - (|htSay| (MAKESTRING - "\\tab{40} \\menuitemstyle{}\\tab{42} Column: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Non-zero elements of A: ") + (|htSay| "\\tab{30} \\menuitemstyle{}\\tab{32} Row: ") + (|htSay| "\\tab{40} \\menuitemstyle{}\\tab{42} Column: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f01brfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|nz| |nz|) @@ -648,7 +644,7 @@ (|bcStrings| (8 "true" |aborttwo| EM)) (|bcStrings| (8 "false" |abortthree| EM)) (|bcStrings| (8 "true" |abortfour| EM)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01brfGen|) + (|htMakeDoneButton| "Continue" '|f01brfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|nz| |nz|) (|htpSetProperty| |page| '|licn| |licn|) @@ -746,21 +742,21 @@ (SEQ (EXIT (PROGN (SPADLET |cList| (APPEND |cList| - (CONS (MAKESTRING "0 ") NIL))) + (CONS "0 " NIL))) (SPADLET |matList| (APPEND |matList| - (CONS (MAKESTRING "0 ") NIL))))))) + (CONS "0 " NIL))))))) (DO ((G166165 (SPADDIFFERENCE |lirn| |nz|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166165) NIL) (SEQ (EXIT (SPADLET |rList| (APPEND |rList| - (CONS (MAKESTRING "0 ") NIL)))))) + (CONS "0 " NIL)))))) (SPADLET |cstring| (|bcwords2liststring| |cList|)) (SPADLET |rstring| (|bcwords2liststring| |rList|)) (SPADLET |matstring| (|bcwords2liststring| |matList|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "f01brf(") (STRINGIMAGE |n|) + (STRCONC "f01brf(" (STRINGIMAGE |n|) '|, | (STRINGIMAGE |nz|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |licn|) '|, | @@ -941,7 +937,7 @@ (|radioButtons| |cfail| ("" " 1, print warning messages" |cone|) ("" " 0, suppress warning messages" |czero|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01mafSolve|) + (|htMakeDoneButton| "Continue" '|f01mafSolve|) (|htShowPage|))) ;f01mafSolve htPage == @@ -1019,17 +1015,17 @@ (DEFUN |f01mafSolve,f| (|i|) (PROG (|prefix| |anam| |mid| |rnam| |end| |cnam|) (RETURN - (SEQ (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SEQ (SPADLET |prefix| "\\newline \\tab{2} ") (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") + (INTERN (STRCONC "a" (STRINGIMAGE |i|)))) - (SPADLET |mid| (MAKESTRING "\\tab{32} ")) + (SPADLET |mid| "\\tab{32} ") (SPADLET |rnam| - (INTERN (STRCONC (MAKESTRING "irn") + (INTERN (STRCONC "irn" (STRINGIMAGE |i|)))) - (SPADLET |end| (MAKESTRING "\\tab{42} ")) + (SPADLET |end| "\\tab{42} ") (SPADLET |cnam| - (INTERN (STRCONC (MAKESTRING "icn") + (INTERN (STRCONC "icn" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|text| |prefix|) (CONS (CONS '|bcStrings| @@ -1140,14 +1136,14 @@ (CONS (CONS '|bcStrings| (CONS (CONS 6 - (CONS (MAKESTRING "true") + (CONS "true" (CONS '|abortone| (CONS 'EM NIL)))) NIL)) (CONS (CONS '|bcStrings| (CONS (CONS 6 - (CONS (MAKESTRING "true") + (CONS "true" (CONS '|aborttwo| (CONS 'EM NIL)))) NIL)) @@ -1155,14 +1151,13 @@ (CONS '|bcStrings| (CONS (CONS 6 - (CONS (MAKESTRING "true") + (CONS "true" (CONS '|abortthree| (CONS 'EM NIL)))) NIL)) NIL)))) - (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Abort: ")) + (SPADLET |prefix| + "\\blankline \\menuitemstyle{}\\tab{2} Abort: ") (SPADLET |abortList| (CONS (CONS '|text| |prefix|) |abortList|)) (SPADLET |equationPart| @@ -1178,15 +1173,12 @@ (|htInitPage| '|F01MAF - \\htbitmap{llt} factorization of real sparse symmetric positive-definite matrix| NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Non-zero elements of A: ")) - (|htSay| (MAKESTRING - "\\tab{30} \\menuitemstyle{}\\tab{32} Row: ")) - (|htSay| (MAKESTRING - "\\tab{40} \\menuitemstyle{}\\tab{42} Column: ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Non-zero elements of A: ") + (|htSay| "\\tab{30} \\menuitemstyle{}\\tab{32} Row: ") + (|htSay| "\\tab{40} \\menuitemstyle{}\\tab{42} Column: ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f01mafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|nz| |nz|) @@ -1659,7 +1651,7 @@ (|bcStrings| (8 "true" |abortone| EM)) (|bcStrings| (8 "true" |aborttwo| EM)) (|bcStrings| (8 "true" |abortthree| EM)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01mafGen|) + (|htMakeDoneButton| "Continue" '|f01mafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|nz| |nz|) (|htpSetProperty| |page| '|licn| |licn|) @@ -1754,21 +1746,21 @@ (SEQ (EXIT (PROGN (SPADLET |cList| (APPEND |cList| - (CONS (MAKESTRING "0 ") NIL))) + (CONS "0 " NIL))) (SPADLET |matList| (APPEND |matList| - (CONS (MAKESTRING "0 ") NIL))))))) + (CONS "0 " NIL))))))) (DO ((G166312 (SPADDIFFERENCE |lirn| |nz|)) (|i| 1 (QSADD1 |i|))) ((QSGREATERP |i| G166312) NIL) (SEQ (EXIT (SPADLET |rList| (APPEND |rList| - (CONS (MAKESTRING "0 ") NIL)))))) + (CONS "0 " NIL)))))) (SPADLET |cstring| (|bcwords2liststring| |cList|)) (SPADLET |rstring| (|bcwords2liststring| |rList|)) (SPADLET |matstring| (|bcwords2liststring| |matList|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "f01maf(") (STRINGIMAGE |n|) + (STRCONC "f01maf(" (STRINGIMAGE |n|) '|, | (STRINGIMAGE |nz|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |licn|) '|, | @@ -1853,7 +1845,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01mcfSolve|) + (|htMakeDoneButton| "Continue" '|f01mcfSolve|) (|htShowPage|))) ;f01mcfSolve htPage == @@ -1902,7 +1894,7 @@ (PROG (|xnam|) (RETURN (SEQ (SPADLET |xnam| - (INTERN (STRCONC (MAKESTRING "x") + (INTERN (STRCONC "x" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1915,7 +1907,7 @@ (PROG (|nam|) (RETURN (SEQ (SPADLET |nam| - (INTERN (STRCONC (MAKESTRING "n") + (INTERN (STRCONC "n" (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1974,8 +1966,7 @@ (APPEND G166379 (|f01mcfSolve,g| |j|))))))))) (SPADLET |prefix| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} {\\it NROW(n)} the width ")) + "\\blankline \\menuitemstyle{}\\tab{2} {\\it NROW(n)} the width ") (SPADLET |prefix| (STRCONC |prefix| '|of the ith row of A: \\newline \\tab{2} |)) @@ -1993,12 +1984,11 @@ (|htInitPage| '|F01MCF - \\htbitmap{ldlt} factorization of real symmetric positive-definite variable-bandwidth matrix| NIL)) - (|htSay| (MAKESTRING - "\\menuitemstyle{}\\tab{2} Elements of matrix {\\it A} in row by row ")) - (|htSay| (MAKESTRING "order: \\newline \\tab{2} ")) + (|htSay| "\\menuitemstyle{}\\tab{2} Elements of matrix {\\it A} in row by row ") + (|htSay| "order: \\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f01mcfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|lal| |lal|) @@ -2091,7 +2081,7 @@ (|bcStrings| (6 2 |n3| PI)) (|bcStrings| (6 1 |n4| PI)) (|bcStrings| (6 5 |n5| PI)) (|bcStrings| (6 3 |n6| PI)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01mcfGen|) + (|htMakeDoneButton| "Continue" '|f01mcfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|lal| |lal|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -2146,7 +2136,7 @@ (CONS |right| |matList|)))))) (SPADLET |matstring| (|bcwords2liststring| |matList|)) (SPADLET |prefix| - (STRCONC (MAKESTRING "f01mcf(") (STRINGIMAGE |n|) + (STRCONC "f01mcf(" (STRINGIMAGE |n|) '|, [| |matstring| '|], |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |lal|) '|, [| @@ -2208,8 +2198,7 @@ (DEFUN |f01qcf| () (PROGN (|htInitPage| - (MAKESTRING - "F01QCF - QR factorization or real m by n matrix (m \\htbitmap{great=} n)") + "F01QCF - QR factorization or real m by n matrix (m \\htbitmap{great=} n)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2254,7 +2243,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01qcfSolve|) + (|htMakeDoneButton| "Continue" '|f01qcfSolve|) (|htShowPage|))) ;f01qcfSolve htPage == @@ -2304,7 +2293,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2325,7 +2314,7 @@ (SEQ (EXIT (SETQ G166463 (APPEND G166463 (|f01qcfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2380,12 +2369,11 @@ (|htInitPage| '|F01QCF - QR factorization or real m by n matrix (m \\htbitmap{great=} n)| NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f01qcfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -2441,8 +2429,7 @@ (SPADLET |m| '5) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F01QCF - QR factorization or real m by n matrix (m \\htbitmap{great=} n)") + "F01QCF - QR factorization or real m by n matrix (m \\htbitmap{great=} n)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2470,7 +2457,7 @@ (|bcStrings| (6 "1.2" |a51| F)) (|bcStrings| (6 "-0.3" |a52| F)) (|bcStrings| (6 "-2.9" |a53| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01qcfGen|) + (|htMakeDoneButton| "Continue" '|f01qcfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -2546,7 +2533,7 @@ (CONS (|bcwords2liststring| |x|) G166535))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f01qcf(") (STRINGIMAGE |m|) + (STRCONC "f01qcf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | @@ -2636,8 +2623,7 @@ (DEFUN |f01qdf| () (PROGN (|htInitPage| - (MAKESTRING - "F01QDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01qdf} after factorization by F01QCF or F01QDF") + "F01QDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01qdf} after factorization by F01QCF or F01QDF" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2701,7 +2687,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01qdfSolve|) + (|htMakeDoneButton| "Continue" '|f01qdfSolve|) (|htShowPage|))) ;f01qdfSolve htPage == @@ -2786,7 +2772,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2807,7 +2793,7 @@ (SEQ (EXIT (SETQ G166583 (APPEND G166583 (|f01qdfSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2815,7 +2801,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |i|) + (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2836,7 +2822,7 @@ (SEQ (EXIT (SETQ G166606 (APPEND G166606 (|f01qdfSolve,gb| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2844,7 +2830,7 @@ (PROG (|znam|) (RETURN (SEQ (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2891,14 +2877,14 @@ (SPADLET |trans| (COND ((BOOT-EQUAL |operation| '|notrans|) - (MAKESTRING "n")) - ('T (MAKESTRING "t")))) + "n") + ('T "t"))) (SPADLET |elements| (|htpButtonValue| |htPage| '|wheret|)) (SPADLET |wheret| (COND ((BOOT-EQUAL |elements| '|ina|) - (MAKESTRING "i")) - ('T (MAKESTRING "s")))) + "i") + ('T "s"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -2960,15 +2946,13 @@ (APPEND |bList| |zList|)))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F01QDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01qdf} after factorization by F01QCF or F01QDF") + "F01QDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01qdf} after factorization by F01QCF or F01QDF" NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f01qdfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -3058,8 +3042,7 @@ (SPADLET |ncolb| '2) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F01QDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01qdf} after factorization by F01QCF or F01QDF") + "F01QDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01qdf} after factorization by F01QCF or F01QDF" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -3113,7 +3096,7 @@ (|bcStrings| (10 "0.0" |z2| F)) (|bcStrings| (10 "0.0" |z3| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01qdfGen|) + (|htMakeDoneButton| "Continue" '|f01qdfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ncolb| |ncolb|) @@ -3256,7 +3239,7 @@ (CONS (|bcwords2liststring| |x|) G166764))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f01qdf(\"") |trans| '|","| + (STRCONC "f01qdf(\"" |trans| '|","| |wheret| '|",| (STRINGIMAGE |m|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | @@ -3333,8 +3316,7 @@ (DEFUN |f01qef| () (PROGN (|htInitPage| - (MAKESTRING - "F01QEF - Operations with orthogonal matrices, form columns of {\\it Q} after factorization by F01QCF or F01QFF") + "F01QEF - Operations with orthogonal matrices, form columns of {\\it Q} after factorization by F01QCF or F01QFF" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -3387,7 +3369,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01qefSolve|) + (|htMakeDoneButton| "Continue" '|f01qefSolve|) (|htShowPage|))) ;f01qefSolve htPage == @@ -3453,7 +3435,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 7 @@ -3474,7 +3456,7 @@ (SEQ (EXIT (SETQ G166827 (APPEND G166827 (|f01qefSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -3482,7 +3464,7 @@ (PROG (|znam|) (RETURN (SEQ (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 7 @@ -3527,8 +3509,8 @@ (SPADLET |wheret| (COND ((BOOT-EQUAL |elements| '|initial|) - (MAKESTRING "i")) - ('T (MAKESTRING "s")))) + "i") + ('T "s"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -3574,15 +3556,13 @@ (APPEND |matList| |zList|))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F01QEF - Operations with orthogonal matrices, form columns of {\\it Q} after factorization by F01QCF or F01QFF") + "F01QEF - Operations with orthogonal matrices, form columns of {\\it Q} after factorization by F01QCF or F01QFF" NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it Q}: ")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it Q}: ") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f01qefGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -3663,8 +3643,7 @@ (SPADLET |ncolq| '5) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F01QEF - Operations with orthogonal matrices, form columns of {\\it Q} after factorization by F01QCF or F01QFF") + "F01QEF - Operations with orthogonal matrices, form columns of {\\it Q} after factorization by F01QCF or F01QFF" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -3707,7 +3686,7 @@ (|bcStrings| (10 "1.1547" |z2| F)) (|bcStrings| (10 "1.2649" |z3| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01qefGen|) + (|htMakeDoneButton| "Continue" '|f01qefGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ncolq| |ncolq|) @@ -3804,7 +3783,7 @@ (CONS (|bcwords2liststring| |x|) G166932))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f01qef(\"") |wheret| '|",| + (STRCONC "f01qef(\"" |wheret| '|",| (STRINGIMAGE |m|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | @@ -3869,14 +3848,10 @@ ; htMakeDoneButton('"Continue", 'f01rcfSolve) ; htShowPage() -(pprint '(DEFUN |f01rcf| NIL (PROGN (|htInitPage| (MAKESTRING "F01RCF - {\\it QR} factorization of complex {\\it m} by {\\it n} matrix (m \\htbitmap{great=} n)") NIL) (|htMakePage| (QUOTE ((|domainConditions| (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) (|text| . "\\windowlink{Manual Page}{manpageXXf01rcf} for this routine ") (|text| . "\\newline ") (|text| . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|f01rcf| '|NagMatrixOperationsPackage|)} for this routine") (|text| . "\\newline \\horizontalline ") (|text| . "\\newline ") (|text| . "Finds the QR factorization of the complex m by n matrix {\\it A},") (|text| . " which is factorized as \\htbitmap{f01qcf}, where m > n") (|text| . " and A = QR when m = n , where Q is an m by m unitary matrix ") (|text| . "and R is an n by n upper triangular matrix with real diagonal ") (|text| . "elements. The {\\it k}th transformation matrix,{\\it Qk}, ") (|text| . "which is used to introduce zeros into the {\\it k}th column of ") (|text| . "{\\it A}, is given in the form ") (|text| . "\\htbitmap{f01qcf1}, ") (|text| . "where \\htbitmap{f01rdf2}, ") (|text| . "\\htbitmap{f01qcf3}, ") (|text| . "\\htbitmap{gammak} is a scalar for which Re ") (|text| . "\\htbitmap{gammak} = 1.0, \\htbitmap{zetak} ") (|text| . "is a real scalar and \\htbitmap{zk} is an ") (|text| . "(m-k) element vector. ") (|text| . "\\blankline ") (|text| . "\\newline ") (|text| . "\\menuitemstyle{} \\tab{2} ") (|text| . "\\newline Rows of matrix A, {\\it m}: ") (|text| . "\\tab{32} \\menuitemstyle{} \\tab{34} ") (|text| . "Columns of matrix A, {\\it n}: \\newline \\tab{2} ") (|bcStrings| (6 5 |m| PI)) (|text| . "\\tab{34} ") (|bcStrings| (6 3 |n| PI)) (|text| . "\\blankline ") (|text| . "\\newline ") (|text| . "\\menuitemstyle{} \\tab{2} ") (|text| . "\\newline \\tab{2} ") (|text| . "Ifail value: ") (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|))))) (|htMakeDoneButton| (MAKESTRING "Continue") (QUOTE |f01rcfSolve|)) (|htShowPage|))) -) - (DEFUN |f01rcf| () (PROGN (|htInitPage| - (MAKESTRING - "F01RCF - {\\it QR} factorization of complex {\\it m} by {\\it n} matrix (m \\htbitmap{great=} n)") + "F01RCF - {\\it QR} factorization of complex {\\it m} by {\\it n} matrix (m \\htbitmap{great=} n)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -3922,7 +3897,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01rcfSolve|) + (|htMakeDoneButton| "Continue" '|f01rcfSolve|) (|htShowPage|))) ;f01rcfSolve htPage == @@ -3972,7 +3947,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 16 @@ -3993,7 +3968,7 @@ (SEQ (EXIT (SETQ G166984 (APPEND G166984 (|f01rcfSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -4046,15 +4021,13 @@ |matList|)) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F01RCF - {\\it QR} factorization of complex {\\it m} by {\\it n} matrix (m \\htbitmap{great=} n)") + "F01RCF - {\\it QR} factorization of complex {\\it m} by {\\it n} matrix (m \\htbitmap{great=} n)" NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f01rcfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -4112,8 +4085,7 @@ (SPADLET |lda| '5) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F01RCF - {\\it QR} factorization of complex {\\it m} by {\\it n} matrix (m \\htbitmap{great=} n)") + "F01RCF - {\\it QR} factorization of complex {\\it m} by {\\it n} matrix (m \\htbitmap{great=} n)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -4142,7 +4114,7 @@ (|bcStrings| (15 "0.3 + 0.3*%i" |a52| F)) (|bcStrings| (15 "2.4*%i" |a53| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01rcfGen|) + (|htMakeDoneButton| "Continue" '|f01rcfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -4217,7 +4189,7 @@ (CONS (|bcwords2liststring| |x|) G167057))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f01rcf(") (STRINGIMAGE |m|) + (STRCONC "f01rcf(" (STRINGIMAGE |m|) '|, | (STRINGIMAGE |n|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | @@ -4306,8 +4278,7 @@ (DEFUN |f01rdf| () (PROGN (|htInitPage| - (MAKESTRING - "F01RDF - Operations with unitary matrices, compute {\\it QB} or \\htbitmap{f01rdf} after factorization by F01QCF") + "F01RDF - Operations with unitary matrices, compute {\\it QB} or \\htbitmap{f01rdf} after factorization by F01QCF" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -4368,7 +4339,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01rdfSolve|) + (|htMakeDoneButton| "Continue" '|f01rdfSolve|) (|htShowPage|))) ;f01rdfSolve htPage == @@ -4453,7 +4424,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 16 @@ -4474,7 +4445,7 @@ (SEQ (EXIT (SETQ G167104 (APPEND G167104 (|f01rdfSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -4482,7 +4453,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |i|) + (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 16 @@ -4503,7 +4474,7 @@ (SEQ (EXIT (SETQ G167127 (APPEND G167127 (|f01rdfSolve,gb| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -4511,7 +4482,7 @@ (PROG (|znam|) (RETURN (SEQ (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 16 @@ -4558,14 +4529,14 @@ (SPADLET |trans| (COND ((BOOT-EQUAL |operation| '|notrans|) - (MAKESTRING "n")) - ('T (MAKESTRING "c")))) + "n") + ('T "c"))) (SPADLET |elements| (|htpButtonValue| |htPage| '|wheret|)) (SPADLET |wheret| (COND ((BOOT-EQUAL |elements| '|ina|) - (MAKESTRING "i")) - ('T (MAKESTRING "c")))) + "i") + ('T "c"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -4627,15 +4598,13 @@ (APPEND |bList| |zList|)))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F01RDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01rdf} after factorization by F01QCF or F01RDF") + "F01RDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01rdf} after factorization by F01QCF or F01RDF" NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f01rdfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -4725,8 +4694,7 @@ (SPADLET |ncolb| '2) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F01RDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01rdf} after factorization by F01QCF or F01RDF") + "F01RDF - Operations with orthogonal matrices, compute {\\it QB} or \\htbitmap{f01rdf} after factorization by F01QCF or F01RDF" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -4780,7 +4748,7 @@ (|bcStrings| (15 "0.0" |z2| F)) (|bcStrings| (15 "0.0" |z3| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01rdfGen|) + (|htMakeDoneButton| "Continue" '|f01rdfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ncolb| |ncolb|) @@ -4923,7 +4891,7 @@ (CONS (|bcwords2liststring| |x|) G167285))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f01rdf(\"") |trans| '|","| + (STRCONC "f01rdf(\"" |trans| '|","| |wheret| '|",| (STRINGIMAGE |m|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | @@ -5005,8 +4973,7 @@ (DEFUN |f01ref| () (PROGN (|htInitPage| - (MAKESTRING - "F01REF - Operations with unitary matrices, form columns of {\\it Q} after factorization by F01RCF") + "F01REF - Operations with unitary matrices, form columns of {\\it Q} after factorization by F01RCF" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -5061,7 +5028,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01refSolve|) + (|htMakeDoneButton| "Continue" '|f01refSolve|) (|htShowPage|))) ;f01refSolve htPage == @@ -5127,7 +5094,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 20 @@ -5148,7 +5115,7 @@ (SEQ (EXIT (SETQ G167348 (APPEND G167348 (|f01refSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -5156,7 +5123,7 @@ (PROG (|znam|) (RETURN (SEQ (SPADLET |znam| - (INTERN (STRCONC (MAKESTRING "z") + (INTERN (STRCONC "z" (STRINGIMAGE |i|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 20 @@ -5201,8 +5168,8 @@ (SPADLET |wheret| (COND ((BOOT-EQUAL |elements| '|ina|) - (MAKESTRING "i")) - ('T (MAKESTRING "s")))) + "i") + ('T "s"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -5248,15 +5215,13 @@ (APPEND |matList| |zList|))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F01REF - Operations with unitary matrices, form columns of {\\it Q} after factorization by F01RCF") + "F01REF - Operations with unitary matrices, form columns of {\\it Q} after factorization by F01RCF" NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f01refGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -5326,8 +5291,7 @@ (SPADLET |ncolq| '2) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F01REF - Operations with unitary matrices, form columns of {\\it Q} after factorization by F01RCF") + "F01REF - Operations with unitary matrices, form columns of {\\it Q} after factorization by F01RCF" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -5363,7 +5327,7 @@ (|bcStrings| (16 "1.0954-0.3333*%i" |z2| F)) (|bcStrings| (16 "1.2649-1.1565*%i" |z3| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f01refGen|) + (|htMakeDoneButton| "Continue" '|f01refGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|ncolq| |ncolq|) @@ -5460,7 +5424,7 @@ (CONS (|bcwords2liststring| |x|) G167453))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f01ref(\"") |wheret| '|",| + (STRCONC "f01ref(\"" |wheret| '|",| (STRINGIMAGE |m|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | diff --git a/src/interp/nag-f02.lisp.pamphlet b/src/interp/nag-f02.lisp.pamphlet index 42d9a3d..d4f2f0b 100644 --- a/src/interp/nag-f02.lisp.pamphlet +++ b/src/interp/nag-f02.lisp.pamphlet @@ -52,8 +52,7 @@ (DEFUN |f02aaf| () (PROGN (|htInitPage| - (MAKESTRING - "F02AAF - All eigenvalues of real symmetric matrix (Black box)") + "F02AAF - All eigenvalues of real symmetric matrix (Black box)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -78,7 +77,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02aafSolve|) + (|htMakeDoneButton| "Continue" '|f02aafSolve|) (|htShowPage|))) ;f02aafSolve htPage == @@ -124,7 +123,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -145,7 +144,7 @@ (SEQ (EXIT (SETQ G166070 (APPEND G166070 (|f02aafSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -192,12 +191,11 @@ (|htInitPage| '|F02AAF - All eigenvalues of real symmetric matrix (Black box)| NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02aafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -249,8 +247,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02AAF - All eigenvalues of real symmetric matrix (Black box)") + "F02AAF - All eigenvalues of real symmetric matrix (Black box)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -278,7 +275,7 @@ (|bcStrings| (6 "-0.7" |a42| F)) (|bcStrings| (6 "0.0" |a43| F)) (|bcStrings| (6 "0.5" |a44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02aafGen|) + (|htMakeDoneButton| "Continue" '|f02aafGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -352,7 +349,7 @@ (CONS (|bcwords2liststring| |x|) G166140))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02aaf(") + (STRCONC "f02aaf(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |n|) '|, |)) (SPADLET |prefix| @@ -406,8 +403,7 @@ (DEFUN |f02abf| () (PROGN (|htInitPage| - (MAKESTRING - "F02ABF - All eigenvalues and eignevectors of real symmetric matrix (Black box)") + "F02ABF - All eigenvalues and eignevectors of real symmetric matrix (Black box)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -433,7 +429,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02abfSolve|) + (|htMakeDoneButton| "Continue" '|f02abfSolve|) (|htShowPage|))) ;f02abfSolve htPage == @@ -483,7 +479,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -504,7 +500,7 @@ (SEQ (EXIT (SETQ G166182 (APPEND G166182 (|f02abfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -552,12 +548,11 @@ (|htInitPage| '|F02ABF - All eigenvalues and eigenvectors of real symmetric matrix (Black box)| NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02abfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -610,8 +605,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02ABF - All eigenvalues and eigenvectors of real symmetric matrix (Black box)") + "F02ABF - All eigenvalues and eigenvectors of real symmetric matrix (Black box)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -639,7 +633,7 @@ (|bcStrings| (6 "-0.7" |a42| F)) (|bcStrings| (6 "0.0" |a43| F)) (|bcStrings| (6 "0.5" |a44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02abfGen|) + (|htMakeDoneButton| "Continue" '|f02abfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -716,7 +710,7 @@ (CONS (|bcwords2liststring| |x|) G166253))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02abf(") |matstring| '|, | + (STRCONC "f02abf(" |matstring| '|, | (STRINGIMAGE |ia|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |n|) '|, | @@ -766,8 +760,7 @@ (DEFUN |f02adf| () (PROGN (|htInitPage| - (MAKESTRING - "F02ADF - All eigenvalues of generalized real eigenproblem of the form Ax = \\lambda Bx where A and B are symmetric and B is positive definite") + "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) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -793,7 +786,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02adfSolve|) + (|htMakeDoneButton| "Continue" '|f02adfSolve|) (|htShowPage|))) ;f02adfSolve htPage == @@ -853,7 +846,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -874,7 +867,7 @@ (SEQ (EXIT (SETQ G166296 (APPEND G166296 (|f02adfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -882,7 +875,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |k|) + (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -903,7 +896,7 @@ (SEQ (EXIT (SETQ G166319 (APPEND G166319 (|f02adfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) @@ -951,8 +944,7 @@ (APPEND G166344 (|f02adfSolve,h| |k| |n|))))))))) (SPADLET |start| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter values of {\\it b}:")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter values of {\\it b}:") (SPADLET |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) (SPADLET |equationPart| @@ -967,12 +959,11 @@ (|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)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02adfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -1048,8 +1039,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02ADF - All eigenvalues of generalized real eigenproblem of the form Ax = \\lambda Bx where A and B are symmetric and B is positive definite") + "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)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -1093,7 +1083,7 @@ (|bcStrings| (6 1 |b41| F)) (|bcStrings| (6 11 |b42| F)) (|bcStrings| (6 18 |b43| F)) (|bcStrings| (6 27 |b44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02adfGen|) + (|htMakeDoneButton| "Continue" '|f02adfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -1209,7 +1199,7 @@ (CONS (|bcwords2liststring| |x|) G166440))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02adf(") + (STRCONC "f02adf(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |ib|) '|, |)) (SPADLET |prefix| @@ -1269,8 +1259,7 @@ (DEFUN |f02aef| () (PROGN (|htInitPage| - (MAKESTRING - "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") + "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) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -1297,7 +1286,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02aefSolve|) + (|htMakeDoneButton| "Continue" '|f02aefSolve|) (|htShowPage|))) ;f02aefSolve htPage == @@ -1361,7 +1350,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1382,7 +1371,7 @@ (SEQ (EXIT (SETQ G166491 (APPEND G166491 (|f02aefSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -1390,7 +1379,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |k|) + (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1411,7 +1400,7 @@ (SEQ (EXIT (SETQ G166514 (APPEND G166514 (|f02aefSolve,l| |k| |p|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) @@ -1460,8 +1449,7 @@ (APPEND G166539 (|f02aefSolve,h| |k| |n|))))))))) (SPADLET |start| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter values of {\\it b}:")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter values of {\\it b}:") (SPADLET |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) (SPADLET |equationPart| @@ -1476,12 +1464,11 @@ (|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)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02aefGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -1558,8 +1545,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "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") + "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)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -1603,7 +1589,7 @@ (|bcStrings| (6 1 |b41| F)) (|bcStrings| (6 11 |b42| F)) (|bcStrings| (6 18 |b43| F)) (|bcStrings| (6 27 |b44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02aefGen|) + (|htMakeDoneButton| "Continue" '|f02aefGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -1723,7 +1709,7 @@ (CONS (|bcwords2liststring| |x|) G166636))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02aef(") + (STRCONC "f02aef(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |ib|) '|, |)) (SPADLET |prefix| @@ -1776,8 +1762,7 @@ (DEFUN |f02aff| () (PROGN (|htInitPage| - (MAKESTRING - "F02AFF - All eigenvalues of real matrix (Black box)") + "F02AFF - All eigenvalues of real matrix (Black box)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -1802,7 +1787,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02affSolve|) + (|htMakeDoneButton| "Continue" '|f02affSolve|) (|htShowPage|))) ;f02affSolve htPage == @@ -1848,7 +1833,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1869,7 +1854,7 @@ (SEQ (EXIT (SETQ G166689 (APPEND G166689 (|f02affSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -1916,12 +1901,11 @@ (|htInitPage| '|F02AFF - All eigenvalues of real matrix (Black box)| NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02affGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -1973,8 +1957,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02AFF - All eigenvalues of real matrix (Black box)") + "F02AFF - All eigenvalues of real matrix (Black box)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2002,7 +1985,7 @@ (|bcStrings| (6 "0.1" |a42| F)) (|bcStrings| (6 "4.5" |a43| F)) (|bcStrings| (6 "2.5" |a44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02affGen|) + (|htMakeDoneButton| "Continue" '|f02affGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -2076,7 +2059,7 @@ (CONS (|bcwords2liststring| |x|) G166759))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02aff(") + (STRCONC "f02aff(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |n|) '|, |)) (SPADLET |prefix| @@ -2136,8 +2119,7 @@ (DEFUN |f02agf| () (PROGN (|htInitPage| - (MAKESTRING - "F02AGF - All eigenvalues and eignevectors of real matrix (Black box)") + "F02AGF - All eigenvalues and eignevectors of real matrix (Black box)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2162,7 +2144,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02agfSolve|) + (|htMakeDoneButton| "Continue" '|f02agfSolve|) (|htShowPage|))) ;f02agfSolve htPage == @@ -2216,7 +2198,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2237,7 +2219,7 @@ (SEQ (EXIT (SETQ G166801 (APPEND G166801 (|f02agfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2288,12 +2270,11 @@ (|htInitPage| '|F02AGF - All eigenvalues and eigenvectors of real matrix (Black box)| NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02agfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -2347,8 +2328,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02AGF - All eigenvalues and eigenvectors of real matrix (Black box)") + "F02AGF - All eigenvalues and eigenvectors of real matrix (Black box)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2376,7 +2356,7 @@ (|bcStrings| (6 "0.1" |a42| F)) (|bcStrings| (6 "4.5" |a43| F)) (|bcStrings| (6 "2.5" |a44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02agfGen|) + (|htMakeDoneButton| "Continue" '|f02agfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -2456,7 +2436,7 @@ (CONS (|bcwords2liststring| |x|) G166873))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02agf(") + (STRCONC "f02agf(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |n|) '|, |)) (SPADLET |prefix| @@ -2511,8 +2491,7 @@ (DEFUN |f02ajf| () (PROGN (|htInitPage| - (MAKESTRING - "F02AJF - All eigenvalues of complex matrix (Black box)") + "F02AJF - All eigenvalues of complex matrix (Black box)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2537,7 +2516,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02ajfSolve|) + (|htMakeDoneButton| "Continue" '|f02ajfSolve|) (|htShowPage|))) ;f02ajfSolve htPage == @@ -2597,7 +2576,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2618,7 +2597,7 @@ (SEQ (EXIT (SETQ G166917 (APPEND G166917 (|f02ajfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -2626,7 +2605,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |k|) + (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -2647,7 +2626,7 @@ (SEQ (EXIT (SETQ G166940 (APPEND G166940 (|f02ajfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) @@ -2695,8 +2674,7 @@ (APPEND G166965 (|f02ajfSolve,h| |k| |n|))))))))) (SPADLET |start| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2}Enter imag values of {\\it A}:")) + "\\blankline \\menuitemstyle{}\\tab{2}Enter imag values of {\\it A}:") (SPADLET |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) (SPADLET |equationPart| @@ -2711,12 +2689,11 @@ (|htInitPage| '|F02AJF - All eigenvalues of complex matrix (Black box)| NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter real values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter real values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02ajfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -2792,8 +2769,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02AJF - All eigenvalues of complex matrix (Black box)") + "F02AJF - All eigenvalues of complex matrix (Black box)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2844,7 +2820,7 @@ (|bcStrings| (6 "0.0" |b42| F)) (|bcStrings| (6 "3.6" |b43| F)) (|bcStrings| (6 "-5.0" |b44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02ajfGen|) + (|htMakeDoneButton| "Continue" '|f02ajfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -2960,7 +2936,7 @@ (CONS (|bcwords2liststring| |x|) G167061))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02ajf(") (STRINGIMAGE |n|) + (STRCONC "f02ajf(" (STRINGIMAGE |n|) '|, | (STRINGIMAGE |iar|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |iai|) '|, | @@ -3026,8 +3002,7 @@ (DEFUN |f02akf| () (PROGN (|htInitPage| - (MAKESTRING - "F02AKF - All eigenvalues and eigenvectors of complex matrix (Black box)") + "F02AKF - All eigenvalues and eigenvectors of complex matrix (Black box)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -3052,7 +3027,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02akfSolve|) + (|htMakeDoneButton| "Continue" '|f02akfSolve|) (|htShowPage|))) ;f02akfSolve htPage == @@ -3120,7 +3095,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -3141,7 +3116,7 @@ (SEQ (EXIT (SETQ G167112 (APPEND G167112 (|f02akfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -3149,7 +3124,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |k|) + (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -3170,7 +3145,7 @@ (SEQ (EXIT (SETQ G167135 (APPEND G167135 (|f02akfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) @@ -3221,8 +3196,7 @@ (APPEND G167160 (|f02akfSolve,h| |k| |n|))))))))) (SPADLET |start| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2}Enter imag values of {\\it A}:")) + "\\blankline \\menuitemstyle{}\\tab{2}Enter imag values of {\\it A}:") (SPADLET |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) (SPADLET |equationPart| @@ -3237,12 +3211,11 @@ (|htInitPage| '|F02AKF - All eigenvalues and eigenvectors of complex matrix (Black box)| NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter real values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter real values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02akfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -3320,8 +3293,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02AKF - All eigenvalues and eigenvectors of complex matrix (Black box)") + "F02AKF - All eigenvalues and eigenvectors of complex matrix (Black box)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -3372,7 +3344,7 @@ (|bcStrings| (6 "0.0" |b42| F)) (|bcStrings| (6 "3.6" |b43| F)) (|bcStrings| (6 "-5.0" |b44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02akfGen|) + (|htMakeDoneButton| "Continue" '|f02akfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -3495,7 +3467,7 @@ (CONS (|bcwords2liststring| |x|) G167258))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02akf(") + (STRCONC "f02akf(" (STRINGIMAGE |iar|) '|, | (STRINGIMAGE |iai|) '|, |)) (SPADLET |prefix| @@ -3553,8 +3525,7 @@ (DEFUN |f02awf| () (PROGN (|htInitPage| - (MAKESTRING - "F02AWF - All eigenvalues of complex Hermitian matrix (Black box)") + "F02AWF - All eigenvalues of complex Hermitian matrix (Black box)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -3580,7 +3551,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02awfSolve|) + (|htMakeDoneButton| "Continue" '|f02awfSolve|) (|htShowPage|))) ;f02awfSolve htPage == @@ -3640,7 +3611,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -3661,7 +3632,7 @@ (SEQ (EXIT (SETQ G167312 (APPEND G167312 (|f02awfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -3669,7 +3640,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |k|) + (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -3690,7 +3661,7 @@ (SEQ (EXIT (SETQ G167335 (APPEND G167335 (|f02awfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) @@ -3738,8 +3709,7 @@ (APPEND G167360 (|f02awfSolve,h| |k| |n|))))))))) (SPADLET |start| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2}Enter imaginary values {\\it AI}:")) + "\\blankline \\menuitemstyle{}\\tab{2}Enter imaginary values {\\it AI}:") (SPADLET |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) (SPADLET |equationPart| @@ -3754,12 +3724,11 @@ (|htInitPage| '|F02AWF - All eigenvalues of complex Hermitian matrix (Black box)| NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter real values of {\\it AR}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter real values of {\\it AR}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02awfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -3835,8 +3804,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02AWF - All eigenvalues of complex Hermitian matrix (Black box)") + "F02AWF - All eigenvalues of complex Hermitian matrix (Black box)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -3887,7 +3855,7 @@ (|bcStrings| (6 "-0.42" |b42| F)) (|bcStrings| (6 "0.0" |b43| F)) (|bcStrings| (6 "0.0" |b44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02awfGen|) + (|htMakeDoneButton| "Continue" '|f02awfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -4003,7 +3971,7 @@ (CONS (|bcwords2liststring| |x|) G167456))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02awf(") (STRINGIMAGE |n|) + (STRCONC "f02awf(" (STRINGIMAGE |n|) '|, | (STRINGIMAGE |iar|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |iai|) '|, | @@ -4069,8 +4037,7 @@ (DEFUN |f02axf| () (PROGN (|htInitPage| - (MAKESTRING - "F02AXF - All eigenvalues and eigenvectors of complex Hermitian matrix (Black box)") + "F02AXF - All eigenvalues and eigenvectors of complex Hermitian matrix (Black box)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -4095,7 +4062,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02axfSolve|) + (|htMakeDoneButton| "Continue" '|f02axfSolve|) (|htShowPage|))) ;f02axfSolve htPage == @@ -4163,7 +4130,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -4184,7 +4151,7 @@ (SEQ (EXIT (SETQ G167507 (APPEND G167507 (|f02axfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -4192,7 +4159,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |k|) + (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -4213,7 +4180,7 @@ (SEQ (EXIT (SETQ G167530 (APPEND G167530 (|f02axfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) @@ -4264,8 +4231,7 @@ (APPEND G167555 (|f02axfSolve,h| |k| |n|))))))))) (SPADLET |start| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2}Enter imaginary values of {\\it A}:")) + "\\blankline \\menuitemstyle{}\\tab{2}Enter imaginary values of {\\it A}:") (SPADLET |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) (SPADLET |equationPart| @@ -4280,12 +4246,11 @@ (|htInitPage| '|F02AXF - All eigenvalues and eigenvectors of complex Hermitian matrix (Black box)| NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter real values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter real values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02axfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) @@ -4363,8 +4328,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02AXF - All eigenvalues and eigenvectors of complex Hermitian matrix (Black box)") + "F02AXF - All eigenvalues and eigenvectors of complex Hermitian matrix (Black box)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -4415,7 +4379,7 @@ (|bcStrings| (6 "-0.42" |b42| F)) (|bcStrings| (6 "0.0" |b43| F)) (|bcStrings| (6 "0.0" |b44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02axfGen|) + (|htMakeDoneButton| "Continue" '|f02axfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|ifail| |ifail|) (|htpSetProperty| |page| '|inputArea| @@ -4538,7 +4502,7 @@ (CONS (|bcwords2liststring| |x|) G167653))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02axf(") |matstring| '|, | + (STRCONC "f02axf(" |matstring| '|, | (STRINGIMAGE |iar|) '|, | |bstring|)) (SPADLET |prefix| (STRCONC |prefix| '|, | (STRINGIMAGE |iai|) '|, | @@ -4611,8 +4575,7 @@ (DEFUN |f02bbf| () (PROGN (|htInitPage| - (MAKESTRING - "F02BBF - Selected eigenvalues and eigenvectors of real symmetric matrix (Black box)") + "F02BBF - Selected eigenvalues and eigenvectors of real symmetric matrix (Black box)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -4653,7 +4616,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02bbfSolve|) + (|htMakeDoneButton| "Continue" '|f02bbfSolve|) (|htShowPage|))) ;f02bbfSolve htPage == @@ -4711,7 +4674,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -4732,7 +4695,7 @@ (SEQ (EXIT (SETQ G167708 (APPEND G167708 (|f02bbfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -4790,15 +4753,13 @@ |matList|)) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02BBF - Selected eigenvalues and eigenvectors of real symmetric matrix (Black box)") + "F02BBF - Selected eigenvalues and eigenvectors of real symmetric matrix (Black box)" NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02bbfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -4857,8 +4818,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02BBF - Selected eigenvalues and eigenvectors of real symmetric matrix (Black box)") + "F02BBF - Selected eigenvalues and eigenvectors of real symmetric matrix (Black box)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -4886,7 +4846,7 @@ (|bcStrings| (6 "-0.7" |a42| F)) (|bcStrings| (6 "0.0" |a43| F)) (|bcStrings| (6 "0.5" |a44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02bbfGen|) + (|htMakeDoneButton| "Continue" '|f02bbfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|alb| |alb|) @@ -4973,7 +4933,7 @@ (CONS (|bcwords2liststring| |x|) G167782))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02bbf(") + (STRCONC "f02bbf(" (STRINGIMAGE |ia|) '|, | (STRINGIMAGE |n|) '|, |)) (SPADLET |prefix| @@ -5055,8 +5015,7 @@ (DEFUN |f02bjf| () (PROGN (|htInitPage| - (MAKESTRING - "F02BJF - All eigenvalues and optionally eigenvectors of generalized eigenproblem by {\\it QZ} algorithm, real matrices (Black box)") + "F02BJF - All eigenvalues and optionally eigenvectors of generalized eigenproblem by {\\it QZ} algorithm, real matrices (Black box)" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -5106,7 +5065,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02bjfSolve|) + (|htMakeDoneButton| "Continue" '|f02bjfSolve|) (|htShowPage|))) ;f02bjfSolve htPage == @@ -5177,7 +5136,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -5198,7 +5157,7 @@ (SEQ (EXIT (SETQ G167830 (APPEND G167830 (|f02bjfSolve,g| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -5206,7 +5165,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |k|) + (INTERN (STRCONC "b" (STRINGIMAGE |k|) (STRINGIMAGE |p|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -5227,7 +5186,7 @@ (SEQ (EXIT (SETQ G167853 (APPEND G167853 (|f02bjfSolve,l| |k| |p|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |bList| (CONS (CONS '|text| |prefix|) |bList|))))))) @@ -5253,8 +5212,8 @@ (SPADLET |matv| (COND ((BOOT-EQUAL |bool| '|true|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -5284,8 +5243,7 @@ (APPEND G167878 (|f02bjfSolve,h| |k| |n|))))))))) (SPADLET |start| - (MAKESTRING - "\\blankline \\menuitemstyle{} \\tab{2} Enter values of {\\it b}:")) + "\\blankline \\menuitemstyle{} \\tab{2} Enter values of {\\it b}:") (SPADLET |bmatList| (CONS (CONS '|text| |start|) |bmatList|)) (SPADLET |equationPart| @@ -5298,15 +5256,13 @@ (APPEND |matList| |bmatList|))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02BJF - All eigenvalues and optionally eigenvectors of generalized eigenproblem by {\\it QZ} algorithm, real matrices (Black box)") + "F02BJF - All eigenvalues and optionally eigenvectors of generalized eigenproblem by {\\it QZ} algorithm, real matrices (Black box)" NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02bjfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|eps| |eps|) @@ -5387,8 +5343,7 @@ (SPADLET |n| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02BJF - All eigenvalues and optionally eigenvectors of generalized eigenproblem by {\\it QZ} algorithm, real matrices (Black box)") + "F02BJF - All eigenvalues and optionally eigenvectors of generalized eigenproblem by {\\it QZ} algorithm, real matrices (Black box)" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -5433,7 +5388,7 @@ (|text| . "\\newline \\tab{2} ") (|bcStrings| (6 1 |b41| F)) (|bcStrings| (6 3 |b42| F)) (|bcStrings| (6 -4 |b43| F)) (|bcStrings| (6 4 |b44| F)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02bjfGen|) + (|htMakeDoneButton| "Continue" '|f02bjfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|eps| |eps|) (|htpSetProperty| |page| '|matv| |matv|) @@ -5560,7 +5515,7 @@ (CONS (|bcwords2liststring| |x|) G167978))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02bjf(") (STRINGIMAGE |n|) + (STRCONC "f02bjf(" (STRINGIMAGE |n|) '|, | (STRINGIMAGE |ia|) '|, |)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |ib|) '|, | |eps| @@ -5599,8 +5554,7 @@ (DEFUN |f02fjf| () (PROGN (|htInitPage| - (MAKESTRING - "F02FJF - Selected eigenvalues and eigenvectors of sparse symmetric eigenproblem") + "F02FJF - Selected eigenvalues and eigenvectors of sparse symmetric eigenproblem" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -5706,7 +5660,7 @@ (DEFUN |f02wef| () (PROGN - (|htInitPage| (MAKESTRING "F02WEF - SVD of real matrix") NIL) + (|htInitPage| "F02WEF - SVD of real matrix" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) @@ -5752,7 +5706,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02wefSolve|) + (|htMakeDoneButton| "Continue" '|f02wefSolve|) (|htShowPage|))) ;f02wefSolve htPage == @@ -5839,7 +5793,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 10 @@ -5860,7 +5814,7 @@ (SEQ (EXIT (SETQ G168041 (APPEND G168041 (|f02wefSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -5868,7 +5822,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |i|) + (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -5931,16 +5885,16 @@ (SPADLET |wantq| (COND ((BOOT-EQUAL |operation| '|qtrue|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |ldq| |m|) (SPADLET |ldpt| |n|) (SPADLET |elements| (|htpButtonValue| |htPage| '|wantp|)) (SPADLET |wantp| (COND ((BOOT-EQUAL |elements| '|ptrue|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -5984,14 +5938,13 @@ (APPEND |matList| |bList|))) (SPADLET |page| (|htInitPage| - (MAKESTRING "F02WEF - SVD of real matrix") + "F02WEF - SVD of real matrix" NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02wefGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -6067,7 +6020,7 @@ (SPADLET |ncolb| '1) (SPADLET |page| (|htInitPage| - (MAKESTRING "F02WEF - SVD of real matrix") NIL)) + "F02WEF - SVD of real matrix" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) @@ -6104,7 +6057,7 @@ (|bcStrings| (6 "0.0" |b14| F)) (|bcStrings| (6 "-0.8" |b15| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02wefGen|) + (|htMakeDoneButton| "Continue" '|f02wefGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|lda| |lda|) @@ -6241,7 +6194,7 @@ (CONS (|bcwords2liststring| |x|) G168195))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02wef(") (STRINGIMAGE |m|) + (STRCONC "f02wef(" (STRINGIMAGE |m|) '|,| (STRINGIMAGE |n|) '|,|)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | @@ -6335,7 +6288,7 @@ (DEFUN |f02xef| () (PROGN - (|htInitPage| (MAKESTRING "F02XEF - SVD of complex matrix") NIL) + (|htInitPage| "F02XEF - SVD of complex matrix" NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) (|isDomain| PI (|PositiveInteger|))) @@ -6381,7 +6334,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02xefSolve|) + (|htMakeDoneButton| "Continue" '|f02xefSolve|) (|htShowPage|))) ;f02xefSolve htPage == @@ -6468,7 +6421,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 15 @@ -6489,7 +6442,7 @@ (SEQ (EXIT (SETQ G168258 (APPEND G168258 (|f02xefSolve,ga| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline \\tab{2} ")) + (SPADLET |prefix| "\\newline \\tab{2} ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -6497,7 +6450,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |i|) + (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 15 @@ -6560,16 +6513,16 @@ (SPADLET |wantq| (COND ((BOOT-EQUAL |operation| '|qtrue|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |ldq| |m|) (SPADLET |ldph| |n|) (SPADLET |elements| (|htpButtonValue| |htPage| '|wantp|)) (SPADLET |wantp| (COND ((BOOT-EQUAL |elements| '|ptrue|) - (MAKESTRING "true")) - ('T (MAKESTRING "false")))) + "true") + ('T "false"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) '1) ('T '-1))) @@ -6613,15 +6566,13 @@ (APPEND |matList| |bList|))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F02XEF - SVD of complex matrix") + "F02XEF - SVD of complex matrix" NIL)) - (|htSay| (MAKESTRING - "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ")) - (|htSay| (MAKESTRING "\\newline \\tab{2} ")) + (|htSay| "\\newline \\menuitemstyle{}\\tab{2} Enter values of {\\it A}: ") + (|htSay| "\\newline \\tab{2} ") (|htMakePage| |equationPart|) - (|htSay| (MAKESTRING "\\blankline ")) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htSay| "\\blankline ") + (|htMakeDoneButton| "Continue" '|f02xefGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -6705,7 +6656,7 @@ (SPADLET |ncolb| '1) (SPADLET |page| (|htInitPage| - (MAKESTRING "F02XEF - SVD of complex matrix") NIL)) + "F02XEF - SVD of complex matrix" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) (|isDomain| I (|Integer|))) @@ -6746,7 +6697,7 @@ (|text| . "\\newline \\tab{2} ") (|bcStrings| (15 "1.13+0.83*%i" |b15| F)) (|text| . "\\blankline "))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f02xefGen|) + (|htMakeDoneButton| "Continue" '|f02xefGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) (|htpSetProperty| |page| '|lda| |lda|) @@ -6883,7 +6834,7 @@ (CONS (|bcwords2liststring| |x|) G168412))))))))) (SPADLET |prefix| - (STRCONC (MAKESTRING "f02xef(") (STRINGIMAGE |m|) + (STRCONC "f02xef(" (STRINGIMAGE |m|) '|,| (STRINGIMAGE |n|) '|,|)) (SPADLET |prefix| (STRCONC |prefix| (STRINGIMAGE |lda|) '|, | diff --git a/src/interp/nag-f07.lisp.pamphlet b/src/interp/nag-f07.lisp.pamphlet index a899dae..7d549ac 100644 --- a/src/interp/nag-f07.lisp.pamphlet +++ b/src/interp/nag-f07.lisp.pamphlet @@ -47,8 +47,7 @@ (DEFUN |f07adf| () (PROGN (|htInitPage| - (MAKESTRING - "F07ADF - {\\it LU} factorization of real {\\it m} by {\\it n} matrix") + "F07ADF - {\\it LU} factorization of real {\\it m} by {\\it n} matrix" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -69,7 +68,7 @@ (|text| . "\\menuitemstyle{}\\tab{2}") (|text| . "Number of columns {\\it n}:") (|text| . "\\newline\\tab{2} ") (|bcStrings| (5 4 |n| PI)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f07adfSolve|) + (|htMakeDoneButton| "Continue" '|f07adfSolve|) (|htShowPage|))) ;f07adfSolve htPage == @@ -112,7 +111,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -133,7 +132,7 @@ (SEQ (EXIT (SETQ G166070 (APPEND G166070 (|f07adfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -182,14 +181,13 @@ |aList|)) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F07ADF - {\\it LU} factorization of real {\\it m} by {\\it n} matrix") + "F07ADF - {\\it LU} factorization of real {\\it m} by {\\it n} matrix" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING "Enter the array {\\it A}:")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the array {\\it A}:") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|f07adfGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) @@ -246,8 +244,7 @@ (SPADLET |m| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F07ADF - {\\it LU} factorization of real {\\it m} by {\\it n} matrix") + "F07ADF - {\\it LU} factorization of real {\\it m} by {\\it n} matrix" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -273,7 +270,7 @@ (|bcStrings| (5 "0.8" |a44| F)))) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|m| |m|) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f07adfGen|) + (|htMakeDoneButton| "Continue" '|f07adfGen|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) (|htShowPage|))))) @@ -393,8 +390,7 @@ (DEFUN |f07aef| () (PROGN (|htInitPage| - (MAKESTRING - "F07AEF - Solution of a real system of linear equations with multiple right-hand sides after factorization by F07ADF") + "F07AEF - Solution of a real system of linear equations with multiple right-hand sides after factorization by F07ADF" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -423,7 +419,7 @@ (|text| . "\\menuitemstyle{}\\tab{2}") (|text| . "The number of right-hand sides, {\\it nrhs}: ") (|text| . "\\newline ") (|bcStrings| (5 2 |nrhs| PI)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f07aefSolve|) + (|htMakeDoneButton| "Continue" '|f07aefSolve|) (|htShowPage|))) ;f07aefSolve htPage == @@ -499,7 +495,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -520,7 +516,7 @@ (SEQ (EXIT (SETQ G166182 (APPEND G166182 (|f07aefSolve,faa| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -528,7 +524,7 @@ (PROG (|ipnam|) (RETURN (SEQ (SPADLET |ipnam| - (INTERN (STRCONC (MAKESTRING "ip") + (INTERN (STRCONC "ip" (STRINGIMAGE |i|)))) (EXIT (CONS '|bcStrings| (CONS (CONS 5 @@ -540,7 +536,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |i|) + (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -561,7 +557,7 @@ (SEQ (EXIT (SETQ G166211 (APPEND G166211 (|f07aefSolve,fbb| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -593,8 +589,8 @@ (SPADLET |equa| (|htpButtonValue| |htPage| '|trans|)) (SPADLET |trans| (COND - ((BOOT-EQUAL |equa| '|norm|) (MAKESTRING "N")) - ('T (MAKESTRING "T")))) + ((BOOT-EQUAL |equa| '|norm|) "N") + ('T "T"))) (COND ((AND (BOOT-EQUAL |n| '4) (BOOT-EQUAL |nrhs| '2)) (|f07aefDefaultSolve| |htPage| |trans|)) @@ -621,14 +617,12 @@ (CONS (|f07aefSolve,fp| |i|) G166240)))))))) (SPADLET |middle| - (MAKESTRING - "\\blankline \\menuitemstyle{}\\tab{2} Enter the pivot ")) + "\\blankline \\menuitemstyle{}\\tab{2} Enter the pivot ") (SPADLET |middle| (STRCONC |middle| - (MAKESTRING - "indices {\\it IPIV} from F07ADF: "))) + "indices {\\it IPIV} from F07ADF: ")) (SPADLET |middle| - (STRCONC |middle| (MAKESTRING "\\newline "))) + (STRCONC |middle| "\\newline ")) (SPADLET |ipList| (CONS (CONS '|text| |middle|) |ipList|)) (SPADLET |bList| @@ -655,14 +649,13 @@ (APPEND |ipList| |bList|)))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F07AEF - Solution of a real system of linear equations with multiple right-hand sides after factorization by F07ADF") + "F07AEF - Solution of a real system of linear equations with multiple right-hand sides after factorization by F07ADF" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING "Enter the matrix {\\it A}:")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the matrix {\\it A}:") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|f07aefGen|) (|htpSetProperty| |page| '|n| |n|) (|htpSetProperty| |page| '|nrhs| |nrhs|) @@ -753,8 +746,7 @@ (SPADLET |length| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F07AEF - Solution of a real system of linear equations with multiple right-hand sides after factorization by F07ADF") + "F07AEF - Solution of a real system of linear equations with multiple right-hand sides after factorization by F07ADF" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -802,7 +794,7 @@ (|htpSetProperty| |page| '|length| |length|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f07aefGen|) + (|htMakeDoneButton| "Continue" '|f07aefGen|) (|htShowPage|))))) ;f07aefGen htPage == @@ -972,8 +964,7 @@ (DEFUN |f07fdf| () (PROGN (|htInitPage| - (MAKESTRING - "F07FDF - Cholesky factorization of a real symmmetric positive-definite matrix {\\it A}") + "F07FDF - Cholesky factorization of a real symmmetric positive-definite matrix {\\it A}" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -1000,7 +991,7 @@ (|text| . "\\menuitemstyle{}\\tab{2}") (|text| . "The order {\\it n} of {\\it A}: ") (|text| . "\\newline ") (|bcStrings| (5 4 |n| PI)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f07fdfSolve|) + (|htMakeDoneButton| "Continue" '|f07fdfSolve|) (|htShowPage|))) ;f07fdfSolve htPage == @@ -1046,7 +1037,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 6 @@ -1067,7 +1058,7 @@ (SEQ (EXIT (SETQ G166422 (APPEND G166422 (|f07fdfSolve,fb| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -1088,8 +1079,8 @@ (SPADLET |upl| (|htpButtonValue| |htPage| '|uplo|)) (SPADLET |uplo| (COND - ((BOOT-EQUAL |upl| '|lower|) (MAKESTRING "L")) - ('T (MAKESTRING "U")))) + ((BOOT-EQUAL |upl| '|lower|) "L") + ('T "U"))) (COND ((BOOT-EQUAL |n| '4) (|f07fdfDefaultSolve| |htPage| |uplo|)) @@ -1113,14 +1104,13 @@ |aList|)) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F07FDF - Cholesky factorization of a real symmmetric positive-definite matrix {\\it A}") + "F07FDF - Cholesky factorization of a real symmmetric positive-definite matrix {\\it A}" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING "Enter the matrix {\\it A}:")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the matrix {\\it A}:") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|f07fdfGen|) (|htpSetProperty| |page| '|uplo| |uplo|) (|htpSetProperty| |page| '|n| |n|) @@ -1176,8 +1166,7 @@ (SPADLET |lda| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F07FDF - Cholesky factorization of a real symmmetric positive-definite matrix {\\it A}") + "F07FDF - Cholesky factorization of a real symmmetric positive-definite matrix {\\it A}" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1203,7 +1192,7 @@ (|bcStrings| (5 "1.18" |a44| F)))) (|htpSetProperty| |page| '|uplo| |uplo|) (|htpSetProperty| |page| '|n| |n|) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f07fdfGen|) + (|htMakeDoneButton| "Continue" '|f07fdfGen|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) (|htShowPage|))))) @@ -1321,8 +1310,7 @@ (DEFUN |f07fef| () (PROGN (|htInitPage| - (MAKESTRING - "F07FEF - Solution of a real symmetric positive-definite system of linear equations with multiple right-hand sides after factorization by F07FDF") + "F07FEF - Solution of a real symmetric positive-definite system of linear equations with multiple right-hand sides after factorization by F07FDF" NIL) (|htMakePage| '((|domainConditions| (|isDomain| PI (|PositiveInteger|))) @@ -1356,7 +1344,7 @@ (|text| . "\\menuitemstyle{}\\tab{2}") (|text| . "The number of right-hand sides, {\\it nrhs}: ") (|text| . "\\newline ") (|bcStrings| (5 2 |nrhs| PI)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f07fefSolve|) + (|htMakeDoneButton| "Continue" '|f07fefSolve|) (|htShowPage|))) ;f07fefSolve htPage == @@ -1420,7 +1408,7 @@ (PROG (|anam|) (RETURN (SEQ (SPADLET |anam| - (INTERN (STRCONC (MAKESTRING "a") (STRINGIMAGE |i|) + (INTERN (STRCONC "a" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -1441,7 +1429,7 @@ (SEQ (EXIT (SETQ G166535 (APPEND G166535 (|f07fefSolve,faa| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -1449,7 +1437,7 @@ (PROG (|bnam|) (RETURN (SEQ (SPADLET |bnam| - (INTERN (STRCONC (MAKESTRING "b") (STRINGIMAGE |i|) + (INTERN (STRCONC "b" (STRINGIMAGE |i|) (STRINGIMAGE |j|)))) (EXIT (CONS (CONS '|bcStrings| (CONS (CONS 8 @@ -1470,7 +1458,7 @@ (SEQ (EXIT (SETQ G166558 (APPEND G166558 (|f07fefSolve,fbb| |i| |j|))))))))) - (SPADLET |prefix| (MAKESTRING "\\newline ")) + (SPADLET |prefix| "\\newline ") (EXIT (SPADLET |labelList| (CONS (CONS '|text| |prefix|) |labelList|))))))) @@ -1502,8 +1490,8 @@ (SPADLET |upl| (|htpButtonValue| |htPage| '|uplo|)) (SPADLET |uplo| (COND - ((BOOT-EQUAL |upl| '|lower|) (MAKESTRING "L")) - ('T (MAKESTRING "U")))) + ((BOOT-EQUAL |upl| '|lower|) "L") + ('T "U"))) (COND ((AND (BOOT-EQUAL |n| '4) (BOOT-EQUAL |nrhs| '2)) (|f07fefDefaultSolve| |htPage| |uplo|)) @@ -1541,14 +1529,13 @@ (APPEND |aList| |bList|))) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F07FEF - Solution of a real symmetric positive-definite system of linear equations with multiple right-hand sides after factorization by F07FDF") + "F07FEF - Solution of a real symmetric positive-definite system of linear equations with multiple right-hand sides after factorization by F07FDF" NIL)) - (|htSay| (MAKESTRING "\\menuitemstyle{}\\tab{2} ")) - (|htSay| (MAKESTRING "Enter the matrix {\\it A}:")) - (|htSay| (MAKESTRING "\\newline ")) + (|htSay| "\\menuitemstyle{}\\tab{2} ") + (|htSay| "Enter the matrix {\\it A}:") + (|htSay| "\\newline ") (|htMakePage| |equationPart|) - (|htMakeDoneButton| (MAKESTRING "Continue") + (|htMakeDoneButton| "Continue" '|f07fefGen|) (|htpSetProperty| |page| '|uplo| |uplo|) (|htpSetProperty| |page| '|n| |n|) @@ -1627,8 +1614,7 @@ (SPADLET |ldb| '4) (SPADLET |page| (|htInitPage| - (MAKESTRING - "F07FEF - Solution of a real symmetric positive-definite system of linear equations with multiple right-hand sides after factorization by F07FDF") + "F07FEF - Solution of a real symmetric positive-definite system of linear equations with multiple right-hand sides after factorization by F07FDF" NIL)) (|htMakePage| '((|domainConditions| (|isDomain| EM |$EmptyMode|) @@ -1668,7 +1654,7 @@ (|htpSetProperty| |page| '|nrhs| |nrhs|) (|htpSetProperty| |page| '|inputArea| (|htpInputAreaAlist| |htPage|)) - (|htMakeDoneButton| (MAKESTRING "Continue") '|f07fefGen|) + (|htMakeDoneButton| "Continue" '|f07fefGen|) (|htShowPage|))))) ;f07fefGen htPage == diff --git a/src/interp/nag-s.lisp.pamphlet b/src/interp/nag-s.lisp.pamphlet index aa36a0d..cf0cff7 100644 --- a/src/interp/nag-s.lisp.pamphlet +++ b/src/interp/nag-s.lisp.pamphlet @@ -76,7 +76,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s01eafGen|) + (|htMakeDoneButton| "Continue" '|s01eafGen|) (|htShowPage|))))) ;s01eafGen htPage == @@ -100,7 +100,7 @@ ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (|linkGen| - (STRCONC (MAKESTRING "s01eaf(complex(") |x| '|,| |y| '|),| + (STRCONC "s01eaf(complex(" |x| '|,| |y| '|),| (STRINGIMAGE |ifail|) '|)|)))))) ;s13aaf() == @@ -163,7 +163,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s13aaf|) (|htShowPage|))))) @@ -227,7 +227,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s13acf|) (|htShowPage|))))) @@ -290,7 +290,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s13adf|) (|htShowPage|))))) @@ -351,7 +351,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s14aaf|) (|htShowPage|))))) @@ -414,7 +414,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s14abf|) (|htShowPage|))))) @@ -497,7 +497,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s14bafGen|) + (|htMakeDoneButton| "Continue" '|s14bafGen|) (|htShowPage|))) ;s14bafGen htPage == @@ -523,7 +523,7 @@ ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (|linkGen| - (STRCONC (MAKESTRING "s14baf(") |a| '|,| |x| '|,| |tol| + (STRCONC "s14baf(" |a| '|,| |x| '|,| |tol| '|,| (STRINGIMAGE |ifail|) '|)|)))))) ;s15adf() == @@ -587,7 +587,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s15adf|) (|htShowPage|))))) @@ -650,7 +650,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s15aef|) (|htShowPage|))))) @@ -712,7 +712,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s17acf|) (|htShowPage|))))) @@ -774,7 +774,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s17adf|) (|htShowPage|))))) @@ -837,7 +837,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s17aef|) (|htShowPage|))))) @@ -899,7 +899,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s17aff|) (|htShowPage|))))) @@ -959,7 +959,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s17agf|) (|htShowPage|))))) @@ -1019,7 +1019,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s17ahf|) (|htShowPage|))))) @@ -1081,7 +1081,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s17ajf|) (|htShowPage|))))) @@ -1143,7 +1143,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s17akf|) (|htShowPage|))))) @@ -1207,8 +1207,7 @@ (DEFUN |s17dcf| () (PROGN (|htInitPage| - (MAKESTRING - "S17DCF - Bessel function \\htbitmap{s17dcf}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,...") + "S17DCF - Bessel function \\htbitmap{s17dcf}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,..." NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -1258,7 +1257,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s17dcfGen|) + (|htMakeDoneButton| "Continue" '|s17dcfGen|) (|htShowPage|))) ;s17dcfGen htPage == @@ -1299,15 +1298,15 @@ (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) (SPADLET |scale| (COND - ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) - ('T (MAKESTRING "s")))) + ((BOOT-EQUAL |uors| '|u|) "u") + ('T "s"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (SPADLET |prefix| - (STRCONC (MAKESTRING "s17dcf(") |fnu| '|,complex(| |x| + (STRCONC "s17dcf(" |fnu| '|,complex(| |x| '|,| |y| '|),| (STRINGIMAGE |n|))) (SPADLET |prefix| (STRCONC |prefix| '|,"| |scale| '|", | @@ -1374,8 +1373,7 @@ (DEFUN |s17def| () (PROGN (|htInitPage| - (MAKESTRING - "S17DEF - Bessel function \\htbitmap{s17def}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,...") + "S17DEF - Bessel function \\htbitmap{s17def}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,..." NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -1425,7 +1423,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s17defGen|) + (|htMakeDoneButton| "Continue" '|s17defGen|) (|htShowPage|))) ;s17defGen htPage == @@ -1466,15 +1464,15 @@ (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) (SPADLET |scale| (COND - ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) - ('T (MAKESTRING "s")))) + ((BOOT-EQUAL |uors| '|u|) "u") + ('T "s"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (SPADLET |prefix| - (STRCONC (MAKESTRING "s17def(") |fnu| '|,complex(| |x| + (STRCONC "s17def(" |fnu| '|,complex(| |x| '|,| |y| '|),| (STRINGIMAGE |n|))) (SPADLET |prefix| (STRCONC |prefix| '|,"| |scale| '|", | @@ -1534,8 +1532,7 @@ (DEFUN |s17dgf| () (PROGN (|htInitPage| - (MAKESTRING - "S17DGF - Airy functions {\\em Ai(z)} and {\\em Ai'(z)} ") + "S17DGF - Airy functions {\\em Ai(z)} and {\\em Ai'(z)} " NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -1577,7 +1574,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s17dgfGen|) + (|htMakeDoneButton| "Continue" '|s17dgfGen|) (|htShowPage|))) ;s17dgfGen htPage == @@ -1609,20 +1606,20 @@ (SPADLET |ford| (|htpButtonValue| |htPage| '|deriv|)) (SPADLET |deriv| (COND - ((BOOT-EQUAL |ford| '|f|) (MAKESTRING "f")) - ('T (MAKESTRING "d")))) + ((BOOT-EQUAL |ford| '|f|) "f") + ('T "d"))) (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) (SPADLET |scale| (COND - ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) - ('T (MAKESTRING "s")))) + ((BOOT-EQUAL |uors| '|u|) "u") + ('T "s"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (SPADLET |prefix| - (STRCONC (MAKESTRING "s17dgf(\"") |deriv| + (STRCONC "s17dgf(\"" |deriv| '|",complex(| |x| '|,| |y| '|),"|)) (SPADLET |prefix| (STRCONC |prefix| |scale| '|", | (STRINGIMAGE |ifail|) @@ -1682,8 +1679,7 @@ (DEFUN |s17dhf| () (PROGN (|htInitPage| - (MAKESTRING - "S17DHF - Airy functions {\\em Bi(z)} and {\\em Bi'(z)} ") + "S17DHF - Airy functions {\\em Bi(z)} and {\\em Bi'(z)} " NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -1725,7 +1721,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s17dhfGen|) + (|htMakeDoneButton| "Continue" '|s17dhfGen|) (|htShowPage|))) ;s17dhfGen htPage == @@ -1757,20 +1753,20 @@ (SPADLET |ford| (|htpButtonValue| |htPage| '|deriv|)) (SPADLET |deriv| (COND - ((BOOT-EQUAL |ford| '|f|) (MAKESTRING "f")) - ('T (MAKESTRING "d")))) + ((BOOT-EQUAL |ford| '|f|) "f") + ('T "d"))) (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) (SPADLET |scale| (COND - ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) - ('T (MAKESTRING "s")))) + ((BOOT-EQUAL |uors| '|u|) "u") + ('T "s"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (SPADLET |prefix| - (STRCONC (MAKESTRING "s17dhf(\"") |deriv| + (STRCONC "s17dhf(\"" |deriv| '|",complex(| |x| '|,| |y| '|),"|)) (SPADLET |prefix| (STRCONC |prefix| |scale| '|", | (STRINGIMAGE |ifail|) @@ -1846,8 +1842,7 @@ (DEFUN |s17dlf| () (PROGN (|htInitPage| - (MAKESTRING - "S17DLF - Hankel function \\vspace{-28} \\htbitmap{s17dlf} \\vspace{-37}, j = 1,2, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,...") + "S17DLF - Hankel function \\vspace{-28} \\htbitmap{s17dlf} \\vspace{-37}, j = 1,2, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,..." NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -1903,7 +1898,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s17dlfGen|) + (|htMakeDoneButton| "Continue" '|s17dlfGen|) (|htShowPage|))) ;s17dlfGen htPage == @@ -1952,15 +1947,15 @@ (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) (SPADLET |scale| (COND - ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) - ('T (MAKESTRING "s")))) + ((BOOT-EQUAL |uors| '|u|) "u") + ('T "s"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (SPADLET |prefix| - (STRCONC (MAKESTRING "s17dlf(") (STRINGIMAGE |m|) + (STRCONC "s17dlf(" (STRINGIMAGE |m|) '|, | |fnu| '|,complex(|)) (SPADLET |prefix| (STRCONC |prefix| |x| '|,| |y| '|),| @@ -2031,7 +2026,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s18acf|) (|htShowPage|))))) @@ -2096,7 +2091,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s18adf|) (|htShowPage|))))) @@ -2161,7 +2156,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s18aef|) (|htShowPage|))))) @@ -2226,7 +2221,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s18aff|) (|htShowPage|))))) @@ -2290,8 +2285,7 @@ (DEFUN |s18dcf| () (PROGN (|htInitPage| - (MAKESTRING - "S18DCF - Bessel function \\htbitmap{s18dcf}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,...") + "S18DCF - Bessel function \\htbitmap{s18dcf}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,..." NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2341,7 +2335,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s18dcfGen|) + (|htMakeDoneButton| "Continue" '|s18dcfGen|) (|htShowPage|))) ;s18dcfGen htPage == @@ -2382,15 +2376,15 @@ (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) (SPADLET |scale| (COND - ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) - ('T (MAKESTRING "s")))) + ((BOOT-EQUAL |uors| '|u|) "u") + ('T "s"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (SPADLET |prefix| - (STRCONC (MAKESTRING "s18dcf(") |fnu| '|,complex(| |x| + (STRCONC "s18dcf(" |fnu| '|,complex(| |x| '|,| |y| '|),| (STRINGIMAGE |n|))) (SPADLET |prefix| (STRCONC |prefix| '|,"| |scale| '|", | @@ -2457,8 +2451,7 @@ (DEFUN |s18def| () (PROGN (|htInitPage| - (MAKESTRING - "S18DEF - Modified bessel function \\htbitmap{s18def}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,...") + "S18DEF - Modified bessel function \\htbitmap{s18def}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,..." NIL) (|htMakePage| '((|domainConditions| (|isDomain| F (|Float|)) @@ -2508,7 +2501,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s18defGen|) + (|htMakeDoneButton| "Continue" '|s18defGen|) (|htShowPage|))) ;s18defGen htPage == @@ -2549,15 +2542,15 @@ (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) (SPADLET |scale| (COND - ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) - ('T (MAKESTRING "s")))) + ((BOOT-EQUAL |uors| '|u|) "u") + ('T "s"))) (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) (SPADLET |ifail| (COND ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (SPADLET |prefix| - (STRCONC (MAKESTRING "s18def(") |fnu| '|,complex(| |x| + (STRCONC "s18def(" |fnu| '|,complex(| |x| '|,| |y| '|),| (STRINGIMAGE |n|))) (SPADLET |prefix| (STRCONC |prefix| '|,"| |scale| '|", | @@ -2620,7 +2613,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s19aaf|) (|htShowPage|))))) @@ -2680,7 +2673,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s19abf|) (|htShowPage|))))) @@ -2740,7 +2733,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s19acf|) (|htShowPage|))))) @@ -2801,7 +2794,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s19adf|) (|htShowPage|))))) @@ -2861,7 +2854,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s20acf|) (|htShowPage|))))) @@ -2921,7 +2914,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htMakeDoneButton| "Continue" '|sGen|) (|htpSetProperty| |page| '|routine| '|s20adf|) (|htShowPage|))))) @@ -2992,7 +2985,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s21bafGen|) + (|htMakeDoneButton| "Continue" '|s21bafGen|) (|htShowPage|))) ;s21bafGen htPage == @@ -3016,8 +3009,8 @@ ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (|linkGen| - (STRCONC '|s21baf(| |x| (MAKESTRING ",") |y| '|,| - (STRINGIMAGE |ifail|) (MAKESTRING ")"))))))) + (STRCONC '|s21baf(| |x| "," |y| '|,| + (STRINGIMAGE |ifail|) ")")))))) ;s21bbf() == ; htInitPage("S21BBF - Symmetrised Elliptic Integral of 1st Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bbf1.bitmap}", nil) @@ -3098,7 +3091,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s21bbfGen|) + (|htMakeDoneButton| "Continue" '|s21bbfGen|) (|htShowPage|))) ;s21bbfGen htPage == @@ -3124,8 +3117,8 @@ ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (|linkGen| - (STRCONC '|s21bbf(| |x| (MAKESTRING ",") |y| '|,| |z| '|,| - (STRINGIMAGE |ifail|) (MAKESTRING ")"))))))) + (STRCONC '|s21bbf(| |x| "," |y| '|,| |z| '|,| + (STRINGIMAGE |ifail|) ")")))))) ;s21bcf() == ; htInitPage("S21BCF - Symmetrised Elliptic Integral of 2nd Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bcf1.bitmap}", nil) @@ -3205,7 +3198,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s21bcfGen|) + (|htMakeDoneButton| "Continue" '|s21bcfGen|) (|htShowPage|))) ;s21bcfGen htPage == @@ -3231,8 +3224,8 @@ ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (|linkGen| - (STRCONC '|s21bcf(| |x| (MAKESTRING ",") |y| '|,| |z| '|,| - (STRINGIMAGE |ifail|) (MAKESTRING ")"))))))) + (STRCONC '|s21bcf(| |x| "," |y| '|,| |z| '|,| + (STRINGIMAGE |ifail|) ")")))))) ;s21bdf() == ; htInitPage("S21BDF - Symmetrised Elliptic Integral of 3rd Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bdf1.bitmap}", nil) @@ -3323,7 +3316,7 @@ (|radioButtons| |ifail| ("" " -1, Print error messages" |minusOne|) ("" " 1, Suppress error messages" |one|)))) - (|htMakeDoneButton| (MAKESTRING "Continue") '|s21bdfGen|) + (|htMakeDoneButton| "Continue" '|s21bdfGen|) (|htShowPage|))) ;s21bdfGen htPage == @@ -3351,8 +3344,8 @@ ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (|linkGen| - (STRCONC '|s21bdf(| |x| (MAKESTRING ",") |y| '|,| |z| '|,| - |r| '|,| (STRINGIMAGE |ifail|) (MAKESTRING ")"))))))) + (STRCONC '|s21bdf(| |x| "," |y| '|,| |z| '|,| + |r| '|,| (STRINGIMAGE |ifail|) ")")))))) ;sGen htPage == ; routine := htpProperty(htPage,'routine) @@ -3375,8 +3368,8 @@ ((BOOT-EQUAL |error| '|one|) 1) ('T (SPADDIFFERENCE 1)))) (|linkGen| - (STRCONC |routine| '|(| |x| (MAKESTRING ",") - (STRINGIMAGE |ifail|) (MAKESTRING ")"))))))) + (STRCONC |routine| '|(| |x| "," + (STRINGIMAGE |ifail|) ")")))))) @ \eject diff --git a/src/interp/newfort.lisp.pamphlet b/src/interp/newfort.lisp.pamphlet index e0596df..1fa0a34 100644 --- a/src/interp/newfort.lisp.pamphlet +++ b/src/interp/newfort.lisp.pamphlet @@ -130,7 +130,7 @@ (SPADLET |$exp2FortTempVarIndex| (PLUS 1 |$exp2FortTempVarIndex|)) (SPADLET |newVar| - (INTERN (STRCONC (MAKESTRING "T") + (INTERN (STRCONC "T" (STRINGIMAGE |$exp2FortTempVarIndex|)))) (|updateSymbolTable| |newVar| |$defaultFortranType|) |newVar|)))) @@ -159,8 +159,8 @@ (COND ((NULL (AND (BOOT-EQUAL |oldTok| - (MAKESTRING "-")) - (BOOT-EQUAL |e| (MAKESTRING "+")))) + "-") + (BOOT-EQUAL |e| "+"))) (SPADLET |m| (CONS |e| |m|)))) (SPADLET |oldTok| |e|))))) |m|))))) @@ -267,30 +267,30 @@ (PROGN (SPADLET |rhs| (QCAR |ISTMP#2|)) 'T))))))) - (CONS (MAKESTRING "%l") - (APPEND (|exp2Fort2| |rhs| |prec| (MAKESTRING "=")) - (CONS (MAKESTRING "=") + (CONS "%l" + (APPEND (|exp2Fort2| |rhs| |prec| "=") + (CONS "=" (|exp2Fort2| |lhs| |prec| - (MAKESTRING "=")))))) + "="))))) ('T (SPADLET |unaryOps| - (CONS (MAKESTRING "-") - (CONS (MAKESTRING "^") - (CONS (MAKESTRING "~") NIL)))) + (CONS "-" + (CONS "^" + (CONS "~" NIL)))) (SPADLET |unaryPrecs| (CONS 700 (CONS 260 (CONS 50 NIL)))) (SPADLET |binaryOps| - (CONS (MAKESTRING "|") - (CONS (MAKESTRING "**") - (CONS (MAKESTRING "/") - (CONS (MAKESTRING ".LT.") - (CONS (MAKESTRING ".GT.") - (CONS (MAKESTRING ".EQ.") - (CONS (MAKESTRING ".LE.") - (CONS (MAKESTRING ".GE.") - (CONS (MAKESTRING "OVER") - (CONS (MAKESTRING ".AND.") - (CONS (MAKESTRING ".OR.") + (CONS "|" + (CONS "**" + (CONS "/" + (CONS ".LT." + (CONS ".GT." + (CONS ".EQ." + (CONS ".LE." + (CONS ".GE." + (CONS "OVER" + (CONS ".AND." + (CONS ".OR." NIL)))))))))))) (SPADLET |binaryPrecs| (CONS 0 @@ -304,13 +304,13 @@ (CONS 800 (CONS 70 (CONS 90 NIL)))))))))))) (SPADLET |naryOps| - (CONS (MAKESTRING "-") - (CONS (MAKESTRING "+") - (CONS (MAKESTRING "*") - (CONS (MAKESTRING ",") - (CONS (MAKESTRING " ") - (CONS (MAKESTRING "ROW") - (CONS (MAKESTRING "") NIL)))))))) + (CONS "-" + (CONS "+" + (CONS "*" + (CONS "," + (CONS " " + (CONS "ROW" + (CONS "" NIL)))))))) (SPADLET |naryPrecs| (CONS 700 (CONS 700 @@ -333,28 +333,28 @@ |op|) (CONS |op| NIL))) (COND - ((AND (BOOT-EQUAL |op| (MAKESTRING "-")) + ((AND (BOOT-EQUAL |op| "-") (ATOM (CAR |args|))) |s|) ((AND (BOOT-EQUAL |op| |oldOp|) (|member| |op| - (CONS (MAKESTRING "*") - (CONS (MAKESTRING "+") NIL)))) + (CONS "*" + (CONS "+" NIL)))) |s|) ((<= |nprec| |prec|) - (CONS (MAKESTRING ")") - (APPEND |s| (CONS (MAKESTRING "(") NIL)))) + (CONS ")" + (APPEND |s| (CONS "(" NIL)))) ('T |s|))) ('T (|exp2FortFn| |op| |args| |nargs|)))) - ((BOOT-EQUAL |op| (MAKESTRING "CMPLX")) - (CONS (MAKESTRING ")") + ((BOOT-EQUAL |op| "CMPLX") + (CONS ")" (APPEND (|exp2Fort2| (SECOND |args|) |prec| |op|) - (CONS (MAKESTRING ",") + (CONS "," (APPEND (|exp2Fort2| (CAR |args|) |prec| |op|) - (CONS (MAKESTRING "(") NIL)))))) + (CONS "(" NIL)))))) ((|member| |op| |nonUnaryOps|) (COND ((> |nargs| 0) (SPADLET |arg1| (CAR |args|)))) (COND @@ -378,7 +378,7 @@ NIL) (SEQ (EXIT (COND ((AND - (BOOT-EQUAL |op| (MAKESTRING "+")) + (BOOT-EQUAL |op| "+") (PAIRP |arg|) (PROGN (SPADLET |m| (QCAR |arg|)) @@ -397,7 +397,7 @@ (CONS |op| (APPEND (|exp2Fort2| |a| |nprec| |op|) - (CONS (MAKESTRING "-") + (CONS "-" (CDR |s|)))))) ('T (SPADLET |s| @@ -409,12 +409,12 @@ (COND ((AND (BOOT-EQUAL |op| |oldOp|) (|member| |op| - (CONS (MAKESTRING "*") - (CONS (MAKESTRING "+") NIL)))) + (CONS "*" + (CONS "+" NIL)))) |s|) ((<= |nprec| |prec|) - (CONS (MAKESTRING ")") - (APPEND |s| (CONS (MAKESTRING "(") NIL)))) + (CONS ")" + (APPEND |s| (CONS "(" NIL)))) ('T |s|))))) ('T (|exp2FortFn| |op| |args| |nargs|))))))))) @@ -430,19 +430,19 @@ (PROG (|s|) (RETURN (SEQ (PROGN - (SPADLET |s| (CONS (MAKESTRING "(") (CONS |op| NIL))) + (SPADLET |s| (CONS "(" (CONS |op| NIL))) (DO () ((NULL |args|) NIL) (SEQ (EXIT (PROGN (SPADLET |s| - (CONS (MAKESTRING ",") + (CONS "," (APPEND (|exp2Fort2| (CAR |args|) 0 |op|) |s|))) (SPADLET |args| (CDR |args|)))))) (COND - ((> |nargs| 0) (CONS (MAKESTRING ")") (CDR |s|))) - ('T (CONS (MAKESTRING ")") |s|)))))))) + ((> |nargs| 0) (CONS ")" (CDR |s|))) + ('T (CONS ")" |s|)))))))) ;--% Optimization of Expression ; @@ -548,7 +548,7 @@ (|exprStk| (SPADLET |$fortCsList| (COPY-TREE - (CONS (CONS (MAKESTRING "=") + (CONS (CONS "=" (CONS |var| (CONS |e| NIL))) |$fortCsList|))) (SPADLET |loc| (CAR |exprStk|)) @@ -560,7 +560,7 @@ ((PAIRP (QCDR |loc|)) (RPLACD |loc| (CONS |var| NIL))) ('T (RPLACD |loc| |var|)))) - ('T (SAY (MAKESTRING "whoops")))))) + ('T (SAY "whoops"))))) |var|) ('T (ELT |n| 1))))))) @@ -762,7 +762,7 @@ ((NULL (AND |f| (NEQUAL (SPADLET |ff| (CAR |f|)) - (MAKESTRING "%l")))) + "%l"))) NIL) (SEQ (EXIT (PROGN @@ -771,7 +771,7 @@ (COND ((AND |f| (BOOT-EQUAL (CAR |f|) - (MAKESTRING "%l"))) + "%l")) (SPADLET |f| (CDR |f|)))) (SPADLET |lines| (APPEND @@ -943,7 +943,7 @@ (RETURN (SEQ (PROGN (SPADLET |f| (|expression2Fortran| |x|)) - (SPADLET |p| (|position| (MAKESTRING "%l") |f|)) + (SPADLET |p| (|position| "%l" |f|)) (COND ((MINUSP |p|) |f|) ('T (SPADLET |l| NIL) @@ -953,7 +953,7 @@ (SPADLET |t| (CAR |LETTMP#1|)) (SPADLET |f| (CDR |LETTMP#1|)) (SPADLET |l| (CONS |t| |l|)))))) - (NREVERSE (CONS (MAKESTRING "...") |l|))))))))) + (NREVERSE (CONS "..." |l|))))))))) ;dispfortexp x == ; if atom(x) or x is [op,:.] and not object2Identifier op in @@ -973,10 +973,10 @@ (NULL (|member| (|object2Identifier| |op|) '(= MATRIX |construct|))))) (SPADLET |var| - (INTERN (STRCONC (MAKESTRING "R") + (INTERN (STRCONC "R" (|object2String| |$IOindex|)))) (SPADLET |x| - (CONS (MAKESTRING "=") (CONS |var| (CONS |x| NIL)))))) + (CONS "=" (CONS |var| (CONS |x| NIL)))))) (|dispfortexp1| |x|))))) ;dispfortexpf (xf, fortranName) == @@ -1210,9 +1210,9 @@ (SEQ (EXIT (SETQ G166656 (STRCONC G166656 - (STRCONC (MAKESTRING ",") |x|))))))))) - (STRCONC (MAKESTRING "[") (CAR |arg|) |tailPart| - (MAKESTRING "]"))))) + (STRCONC "," |x|))))))))) + (STRCONC "[" (CAR |arg|) |tailPart| + "]")))) ((BOOT-EQUAL |op| 'PAREN) (SPADLET |args| (CAR |args|)) (COND ((NULL (BOOT-EQUAL (CAR |args|) 'CONCATB)) @@ -1251,7 +1251,7 @@ 'T)))) (COND ((|member| |sOp| - (CONS (MAKESTRING "SEGMENT") + (CONS "SEGMENT" (CONS 'SEGMENT NIL))) (EXIT (COND ((EQL (|#| |sArgs|) 1) @@ -1264,8 +1264,7 @@ (CAR |elts|))) ((> (CAR |sArgs|) (SECOND |sArgs|)) (|fortError1| - (MAKESTRING - "Lower bound of segment exceeds upper bound."))) + "Lower bound of segment exceeds upper bound.")) ('T (DO ((G166671 (SECOND |sArgs|)) @@ -1306,11 +1305,11 @@ ((EQL |nargs| 1) (|fortPre1| (CAR |args|))) ((AND (EQL |nargs| 2) (|member| (CAR (CDR |args|)) - (CONS '! (CONS (MAKESTRING "!") NIL)))) + (CONS '! (CONS "!" NIL)))) (|mkFortFn| 'FACTORIAL (CONS (CAR |args|) NIL) 1)) ('T (|fortError1| (CONS |op| |args|))))) ((|member| |op| - (CONS (MAKESTRING "MATRIX") (CONS 'MATRIX NIL))) + (CONS "MATRIX" (CONS 'MATRIX NIL))) (COND ((AND (PAIRP |args|) (PROGN @@ -1388,14 +1387,14 @@ (DEFUN |fortranifyFunctionName| (|op| |nargs|) (COND - ((BOOT-EQUAL |op| (MAKESTRING "<")) (MAKESTRING ".LT.")) - ((BOOT-EQUAL |op| (MAKESTRING ">")) (MAKESTRING ".GT.")) - ((BOOT-EQUAL |op| (MAKESTRING "<=")) (MAKESTRING ".LE.")) - ((BOOT-EQUAL |op| (MAKESTRING ">=")) (MAKESTRING ".GE.")) - ((BOOT-EQUAL |op| (MAKESTRING "EQ")) (MAKESTRING ".EQ.")) - ((BOOT-EQUAL |op| (MAKESTRING "and")) (MAKESTRING ".AND.")) - ((BOOT-EQUAL |op| (MAKESTRING "or")) (MAKESTRING ".OR.")) - ((BOOT-EQUAL |op| (MAKESTRING "~")) (MAKESTRING ".NOT.")) + ((BOOT-EQUAL |op| "<") ".LT.") + ((BOOT-EQUAL |op| ">") ".GT.") + ((BOOT-EQUAL |op| "<=") ".LE.") + ((BOOT-EQUAL |op| ">=") ".GE.") + ((BOOT-EQUAL |op| "EQ") ".EQ.") + ((BOOT-EQUAL |op| "and") ".AND.") + ((BOOT-EQUAL |op| "or") ".OR.") + ((BOOT-EQUAL |op| "~") ".NOT.") ('T (|fortranifyIntrinsicFunctionName| |op| |nargs|)))) ;fortranifyIntrinsicFunctionName(op,nargs) == @@ -1470,38 +1469,38 @@ (|$useIntrinsicFunctions| (SPADLET |intrinsic| (COND - ((BOOT-EQUAL |op| (MAKESTRING "acos")) - (MAKESTRING "ACOS")) - ((BOOT-EQUAL |op| (MAKESTRING "asin")) - (MAKESTRING "ASIN")) - ((BOOT-EQUAL |op| (MAKESTRING "atan")) + ((BOOT-EQUAL |op| "acos") + "ACOS") + ((BOOT-EQUAL |op| "asin") + "ASIN") + ((BOOT-EQUAL |op| "atan") (COND - ((EQL |nargs| 2) (MAKESTRING "ATAN2")) - ('T (MAKESTRING "ATAN")))) - ((BOOT-EQUAL |op| (MAKESTRING "cos")) - (MAKESTRING "COS")) - ((BOOT-EQUAL |op| (MAKESTRING "cosh")) - (MAKESTRING "COSH")) - ((BOOT-EQUAL |op| (MAKESTRING "cot")) - (MAKESTRING "COTAN")) - ((BOOT-EQUAL |op| (MAKESTRING "erf")) - (MAKESTRING "ERF")) - ((BOOT-EQUAL |op| (MAKESTRING "exp")) - (MAKESTRING "EXP")) - ((BOOT-EQUAL |op| (MAKESTRING "log")) - (MAKESTRING "LOG")) - ((BOOT-EQUAL |op| (MAKESTRING "log10")) - (MAKESTRING "LOG10")) - ((BOOT-EQUAL |op| (MAKESTRING "sin")) - (MAKESTRING "SIN")) - ((BOOT-EQUAL |op| (MAKESTRING "sinh")) - (MAKESTRING "SINH")) - ((BOOT-EQUAL |op| (MAKESTRING "sqrt")) - (MAKESTRING "SQRT")) - ((BOOT-EQUAL |op| (MAKESTRING "tan")) - (MAKESTRING "TAN")) - ((BOOT-EQUAL |op| (MAKESTRING "tanh")) - (MAKESTRING "TANH")) + ((EQL |nargs| 2) "ATAN2") + ('T "ATAN"))) + ((BOOT-EQUAL |op| "cos") + "COS") + ((BOOT-EQUAL |op| "cosh") + "COSH") + ((BOOT-EQUAL |op| "cot") + "COTAN") + ((BOOT-EQUAL |op| "erf") + "ERF") + ((BOOT-EQUAL |op| "exp") + "EXP") + ((BOOT-EQUAL |op| "log") + "LOG") + ((BOOT-EQUAL |op| "log10") + "LOG10") + ((BOOT-EQUAL |op| "sin") + "SIN") + ((BOOT-EQUAL |op| "sinh") + "SINH") + ((BOOT-EQUAL |op| "sqrt") + "SQRT") + ((BOOT-EQUAL |op| "tan") + "TAN") + ((BOOT-EQUAL |op| "tanh") + "TANH") ('T NIL))) (COND (|intrinsic| @@ -1511,46 +1510,46 @@ ('T |op|))) ((BOOT-EQUAL |$fortranPrecision| '|double|) (COND - ((BOOT-EQUAL |op| (MAKESTRING "acos")) (MAKESTRING "DACOS")) - ((BOOT-EQUAL |op| (MAKESTRING "asin")) (MAKESTRING "DASIN")) - ((BOOT-EQUAL |op| (MAKESTRING "atan")) + ((BOOT-EQUAL |op| "acos") "DACOS") + ((BOOT-EQUAL |op| "asin") "DASIN") + ((BOOT-EQUAL |op| "atan") (COND - ((EQL |nargs| 2) (MAKESTRING "DATAN2")) - ('T (MAKESTRING "DATAN")))) - ((BOOT-EQUAL |op| (MAKESTRING "cos")) (MAKESTRING "DCOS")) - ((BOOT-EQUAL |op| (MAKESTRING "cosh")) (MAKESTRING "DCOSH")) - ((BOOT-EQUAL |op| (MAKESTRING "cot")) (MAKESTRING "DCOTAN")) - ((BOOT-EQUAL |op| (MAKESTRING "erf")) (MAKESTRING "DERF")) - ((BOOT-EQUAL |op| (MAKESTRING "exp")) (MAKESTRING "DEXP")) - ((BOOT-EQUAL |op| (MAKESTRING "log")) (MAKESTRING "DLOG")) - ((BOOT-EQUAL |op| (MAKESTRING "log10")) - (MAKESTRING "DLOG10")) - ((BOOT-EQUAL |op| (MAKESTRING "sin")) (MAKESTRING "DSIN")) - ((BOOT-EQUAL |op| (MAKESTRING "sinh")) (MAKESTRING "DSINH")) - ((BOOT-EQUAL |op| (MAKESTRING "sqrt")) (MAKESTRING "DSQRT")) - ((BOOT-EQUAL |op| (MAKESTRING "tan")) (MAKESTRING "DTAN")) - ((BOOT-EQUAL |op| (MAKESTRING "tanh")) (MAKESTRING "DTANH")) - ((BOOT-EQUAL |op| (MAKESTRING "abs")) (MAKESTRING "DABS")) + ((EQL |nargs| 2) "DATAN2") + ('T "DATAN"))) + ((BOOT-EQUAL |op| "cos") "DCOS") + ((BOOT-EQUAL |op| "cosh") "DCOSH") + ((BOOT-EQUAL |op| "cot") "DCOTAN") + ((BOOT-EQUAL |op| "erf") "DERF") + ((BOOT-EQUAL |op| "exp") "DEXP") + ((BOOT-EQUAL |op| "log") "DLOG") + ((BOOT-EQUAL |op| "log10") + "DLOG10") + ((BOOT-EQUAL |op| "sin") "DSIN") + ((BOOT-EQUAL |op| "sinh") "DSINH") + ((BOOT-EQUAL |op| "sqrt") "DSQRT") + ((BOOT-EQUAL |op| "tan") "DTAN") + ((BOOT-EQUAL |op| "tanh") "DTANH") + ((BOOT-EQUAL |op| "abs") "DABS") ('T |op|))) - ((BOOT-EQUAL |op| (MAKESTRING "acos")) (MAKESTRING "ACOS")) - ((BOOT-EQUAL |op| (MAKESTRING "asin")) (MAKESTRING "ASIN")) - ((BOOT-EQUAL |op| (MAKESTRING "atan")) + ((BOOT-EQUAL |op| "acos") "ACOS") + ((BOOT-EQUAL |op| "asin") "ASIN") + ((BOOT-EQUAL |op| "atan") (COND - ((EQL |nargs| 2) (MAKESTRING "ATAN2")) - ('T (MAKESTRING "ATAN")))) - ((BOOT-EQUAL |op| (MAKESTRING "cos")) (MAKESTRING "COS")) - ((BOOT-EQUAL |op| (MAKESTRING "cosh")) (MAKESTRING "COSH")) - ((BOOT-EQUAL |op| (MAKESTRING "cot")) (MAKESTRING "COTAN")) - ((BOOT-EQUAL |op| (MAKESTRING "erf")) (MAKESTRING "ERF")) - ((BOOT-EQUAL |op| (MAKESTRING "exp")) (MAKESTRING "EXP")) - ((BOOT-EQUAL |op| (MAKESTRING "log")) (MAKESTRING "ALOG")) - ((BOOT-EQUAL |op| (MAKESTRING "log10")) (MAKESTRING "ALOG10")) - ((BOOT-EQUAL |op| (MAKESTRING "sin")) (MAKESTRING "SIN")) - ((BOOT-EQUAL |op| (MAKESTRING "sinh")) (MAKESTRING "SINH")) - ((BOOT-EQUAL |op| (MAKESTRING "sqrt")) (MAKESTRING "SQRT")) - ((BOOT-EQUAL |op| (MAKESTRING "tan")) (MAKESTRING "TAN")) - ((BOOT-EQUAL |op| (MAKESTRING "tanh")) (MAKESTRING "TANH")) - ((BOOT-EQUAL |op| (MAKESTRING "abs")) (MAKESTRING "ABS")) + ((EQL |nargs| 2) "ATAN2") + ('T "ATAN"))) + ((BOOT-EQUAL |op| "cos") "COS") + ((BOOT-EQUAL |op| "cosh") "COSH") + ((BOOT-EQUAL |op| "cot") "COTAN") + ((BOOT-EQUAL |op| "erf") "ERF") + ((BOOT-EQUAL |op| "exp") "EXP") + ((BOOT-EQUAL |op| "log") "ALOG") + ((BOOT-EQUAL |op| "log10") "ALOG10") + ((BOOT-EQUAL |op| "sin") "SIN") + ((BOOT-EQUAL |op| "sinh") "SINH") + ((BOOT-EQUAL |op| "sqrt") "SQRT") + ((BOOT-EQUAL |op| "tan") "TAN") + ((BOOT-EQUAL |op| "tanh") "TANH") + ((BOOT-EQUAL |op| "abs") "ABS") ('T |op|))))) ;--------------------------format.boot------------------------------------------ @@ -1603,29 +1602,29 @@ ((EQL |incr| 1) (|checkLines| (|fortran2Lines| - (CONS (MAKESTRING "DO ") + (CONS "DO " (CONS (STRINGIMAGE |lab|) - (CONS (MAKESTRING " ") + (CONS " " (CONS (STRINGIMAGE |var|) - (CONS (MAKESTRING "=") + (CONS "=" (APPEND (|statement2Fortran| |lo|) - (CONS (MAKESTRING ",") + (CONS "," (|statement2Fortran| |hi|))))))))))) ('T (|checkLines| (|fortran2Lines| - (CONS (MAKESTRING "DO ") + (CONS "DO " (CONS (STRINGIMAGE |lab|) - (CONS (MAKESTRING " ") + (CONS " " (CONS (STRINGIMAGE |var|) - (CONS (MAKESTRING "=") + (CONS "=" (APPEND (|statement2Fortran| |lo|) - (CONS (MAKESTRING ",") + (CONS "," (APPEND (|statement2Fortran| |hi|) - (CONS (MAKESTRING ",") + (CONS "," (|statement2Fortran| |incr|) ))))))))))))))))) @@ -1654,12 +1653,12 @@ (SPADLET |r| (NREVERSE (|statement2Fortran| |switch|))) (|changeExprLength| 8) (SPADLET |l| - (CONS (MAKESTRING ")GOTO ") + (CONS ")GOTO " (CONS (STRINGIMAGE |label|) NIL))) (DO () ((NULL (AND |r| (NULL (BOOT-EQUAL (CAR |r|) - (MAKESTRING "%l"))))) + "%l")))) NIL) (SEQ (EXIT (PROGN (SPADLET |l| (CONS (CAR |r|) |l|)) @@ -1668,7 +1667,7 @@ (|fortran2Lines| (NREVERSE (APPEND (NREVERSE |l|) - (CONS (MAKESTRING "IF(") |r|)))))))))) + (CONS "IF(" |r|)))))))))) ;fortFormatLabelledIfGoto(switch,label1,label2) == ; changeExprLength(-8) -- Leave room for IF( ... )GOTO @@ -1700,12 +1699,12 @@ (SPADLET |r| (NREVERSE (|statement2Fortran| |switch|))) (|changeExprLength| 8) (SPADLET |l| - (CONS (MAKESTRING ")GOTO ") + (CONS ")GOTO " (CONS (STRINGIMAGE |label2|) NIL))) (DO () ((NULL (AND |r| (NULL (BOOT-EQUAL (CAR |r|) - (MAKESTRING "%l"))))) + "%l")))) NIL) (SEQ (EXIT (PROGN (SPADLET |l| (CONS (CAR |r|) |l|)) @@ -1714,12 +1713,12 @@ (DO ((|i| (|#| |labString|) (+ |i| 1))) ((> |i| 5) NIL) (SEQ (EXIT (SPADLET |labString| (STRCONC |labString| - (MAKESTRING " ")))))) + " "))))) (SPADLET |lines| (|fortran2Lines| (NREVERSE (APPEND (NREVERSE |l|) - (CONS (MAKESTRING "IF(") |r|))))) + (CONS "IF(" |r|))))) (SPADLET |lines| (CONS (STRCONC |labString| (SUBSEQ (CAR |lines|) 6)) @@ -1751,11 +1750,11 @@ (SPADLET |switch| (CAR (CDR |switch|))))) (SPADLET |r| (NREVERSE (|statement2Fortran| |switch|))) (|changeExprLength| 8) - (SPADLET |l| (CONS (MAKESTRING ")THEN") NIL)) + (SPADLET |l| (CONS ")THEN" NIL)) (DO () ((NULL (AND |r| (NULL (BOOT-EQUAL (CAR |r|) - (MAKESTRING "%l"))))) + "%l")))) NIL) (SEQ (EXIT (PROGN (SPADLET |l| (CONS (CAR |r|) |l|)) @@ -1764,7 +1763,7 @@ (|fortran2Lines| (NREVERSE (APPEND (NREVERSE |l|) - (CONS (MAKESTRING "IF(") |r|)))))))))) + (CONS "IF(" |r|)))))))))) ;fortFormatElseIf(switch) == ; -- Leave room for IF( ... )THEN @@ -1792,11 +1791,11 @@ (SPADLET |switch| (CAR (CDR |switch|))))) (SPADLET |r| (NREVERSE (|statement2Fortran| |switch|))) (|changeExprLength| 12) - (SPADLET |l| (CONS (MAKESTRING ")THEN") NIL)) + (SPADLET |l| (CONS ")THEN" NIL)) (DO () ((NULL (AND |r| (NULL (BOOT-EQUAL (CAR |r|) - (MAKESTRING "%l"))))) + "%l")))) NIL) (SEQ (EXIT (PROGN (SPADLET |l| (CONS (CAR |r|) |l|)) @@ -1805,7 +1804,7 @@ (|fortran2Lines| (NREVERSE (APPEND (NREVERSE |l|) - (CONS (MAKESTRING "ELSEIF(") |r|)))))))))) + (CONS "ELSEIF(" |r|)))))))))) ;fortFormatHead(returnType,name,args) == ; $fortError : fluid := nil @@ -1828,15 +1827,15 @@ (SPADLET |$fortError| NIL) (SPADLET |$fortranSegment| NIL) (COND - ((BOOT-EQUAL |returnType| (MAKESTRING "void")) - (SPADLET |asp| (CONS (MAKESTRING "SUBROUTINE ") NIL)) + ((BOOT-EQUAL |returnType| "void") + (SPADLET |asp| (CONS "SUBROUTINE " NIL)) (|changeExprLength| (SPADLET |l| (SPADDIFFERENCE 11)))) ('T (SPADLET |asp| (CONS (SPADLET |s| (|checkType| (STRINGIMAGE |returnType|))) - (CONS (MAKESTRING " FUNCTION ") NIL))) + (CONS " FUNCTION " NIL))) (|changeExprLength| (SPADLET |l| (SPADDIFFERENCE (SPADDIFFERENCE 10) @@ -1863,10 +1862,10 @@ (COND ((BOOT-EQUAL |$fortranPrecision| '|double|) (COND - ((BOOT-EQUAL |ty| (MAKESTRING "REAL")) - (MAKESTRING "DOUBLE PRECISION")) - ((BOOT-EQUAL |ty| (MAKESTRING "COMPLEX")) - (MAKESTRING "DOUBLE COMPLEX")) + ((BOOT-EQUAL |ty| "REAL") + "DOUBLE PRECISION") + ((BOOT-EQUAL |ty| "COMPLEX") + "DOUBLE COMPLEX") ('T |ty|))) ('T |ty|)))) @@ -1885,7 +1884,7 @@ (SPADLET |u| (CDR (CAR (CDR |u|)))) (EXIT (APPLY 'STRCONC (CONS (STRINGIMAGE (CAR |u|)) - (CONS (MAKESTRING "(") + (CONS "(" (APPEND (CDR (PROG (G166901) @@ -1905,10 +1904,10 @@ (EXIT (SETQ G166901 (APPEND G166901 - (CONS (MAKESTRING ",") + (CONS "," (|statement2Fortran| |v|)))))))))) - (CONS (MAKESTRING ")") NIL)))))))))) + (CONS ")" NIL)))))))))) (DEFUN |mkParameterList| (|l|) (PROG () @@ -1961,7 +1960,7 @@ (SPADLET |$fortInts2Floats| NIL) (SPADLET |typeName| (|checkType| |typeName|)) (COND - ((BOOT-EQUAL |typeName| (MAKESTRING "CHARACTER")) + ((BOOT-EQUAL |typeName| "CHARACTER") (|fortFormatCharacterTypes| (PROG (G166953) (SPADLET G166953 NIL) @@ -2022,12 +2021,12 @@ (|displayLines| (|fortran2Lines| (CONS |typeName| - (CONS (MAKESTRING " ") + (CONS " " (|addCommas| |n|))))))))) (|displayLines| (|fortran2Lines| (CONS |typeName| - (CONS (MAKESTRING " ") + (CONS " " (|addCommas| |names|)))))))))) ;insertEntry(size,el,aList) == @@ -2070,7 +2069,7 @@ (RETURN (SEQ (APPLY 'STRCONC (CONS (STRINGIMAGE (CAR |u|)) - (CONS (MAKESTRING "(") + (CONS "(" (APPEND (CDR (PROG (G167020) (SPADLET G167020 NIL) @@ -2089,10 +2088,10 @@ (EXIT (SETQ G167020 (APPEND G167020 - (CONS (MAKESTRING ",") + (CONS "," (|statement2Fortran| |v|)))))))))) - (CONS (MAKESTRING ")") NIL))))))))) + (CONS ")" NIL))))))))) (DEFUN |fortFormatCharacterTypes,mkParameterList2| (|l|) @@ -2158,7 +2157,7 @@ G167079))))))))))) (COND ((NULL (NULL |genuineArrays|)) - (|fortFormatTypes1| (MAKESTRING "CHARACTER") + (|fortFormatTypes1| "CHARACTER" (|fortFormatCharacterTypes,mkParameterList2| |genuineArrays|))) ('T NIL))))))) @@ -2179,7 +2178,7 @@ ('T (|displayLines| (|fortran2Lines| - (CONS (MAKESTRING "INTRINSIC ") (|addCommas| |l|)))))))))) + (CONS "INTRINSIC " (|addCommas| |l|)))))))))) ;------------------ fortDec.boot -------------------- ; @@ -2233,7 +2232,7 @@ NIL) (SEQ (EXIT (SPADLET |r| (CONS (STRINGIMAGE |e|) - (CONS (MAKESTRING ",") |r|)))))) + (CONS "," |r|)))))) (REVERSE |r|))))))) ;$intrinsics := [] @@ -2359,7 +2358,7 @@ (COND ((>= |e| 0) (|fix2FortranFloat| |e|)) ('T - (CONS (MAKESTRING "-") + (CONS "-" (CONS (|fix2FortranFloat| (SPADDIFFERENCE |e|)) NIL))))) @@ -2370,10 +2369,10 @@ (|fortPre1| (CONS '|exp| (CONS 1 NIL)))) ('T (SPADLET |imags| - (CONS (MAKESTRING "%i") (CONS '|%i| NIL))) + (CONS "%i" (CONS '|%i| NIL))) (COND ((|member| |e| |imags|) - (CONS (MAKESTRING "CMPLX") + (CONS "CMPLX" (CONS (|fortPre1| 0) (CONS (|fortPre1| 1) NIL)))) ((BOOT-EQUAL (ELT (STRINGIMAGE |e|) 0) '%) (SUBSEQ (STRINGIMAGE |e|) 1)) @@ -2381,7 +2380,7 @@ ('T (SPADLET |op| (CAR |e|)) (SPADLET |args| (CDR |e|)) (COND ((|member| |op| - (CONS '** (CONS (MAKESTRING "**") NIL))) + (CONS '** (CONS "**" NIL))) (SPADLET |rand| (CAR |args|)) (SPADLET |exponent| (CADR |args|)) (COND @@ -2418,8 +2417,8 @@ ('T (COND ((|member| |op| - (CONS (MAKESTRING "OVER") (CONS 'OVER NIL))) - (SPADLET |op| (MAKESTRING "/")))) + (CONS "OVER" (CONS 'OVER NIL))) + (SPADLET |op| "/"))) (SPADLET |specialOps| '(BRACKET BRACE SUB AGGLST SUPERSUB MATRIX SEGMENT ALTSUPERSUB PAREN CONCAT @@ -2430,11 +2429,11 @@ ((|member| |op| |specialOps|) (|exp2FortSpecial| |op| |args| (|#| |args|))) ((AND (|member| |op| - (CONS (MAKESTRING "*") + (CONS "*" (CONS '* - (CONS (MAKESTRING "+") + (CONS "+" (CONS '+ - (CONS (MAKESTRING "-") + (CONS "-" (CONS '- NIL))))))) (> (|#| |args|) 2)) (SPADLET |binaryExpr| @@ -2459,21 +2458,21 @@ (COND ((AND (|member| |op| (CONS '* - (CONS (MAKESTRING "*") NIL))) + (CONS "*" NIL))) (|member| |arg2| |imags|)) - (CONS (MAKESTRING "CMPLX") + (CONS "CMPLX" (CONS (|fortPre1| 0) (CONS (|fortPre1| |arg1|) NIL)))) ((AND (|member| |op| (CONS '+ - (CONS (MAKESTRING "+") NIL))) + (CONS "+" NIL))) (|member| |arg2| |imags|)) - (CONS (MAKESTRING "CMPLX") + (CONS "CMPLX" (CONS (|fortPre1| |arg1|) (CONS (|fortPre1| 1) NIL)))) ((AND (|member| |op| (CONS '+ - (CONS (MAKESTRING "+") NIL))) + (CONS "+" NIL))) (PAIRP |arg2|) (PROGN (SPADLET |mop| (QCAR |arg2|)) @@ -2491,14 +2490,14 @@ 'T))))) (|member| |mop| (CONS '* - (CONS (MAKESTRING "*") NIL)))) + (CONS "*" NIL)))) (COND ((|member| |m2| |imags|) - (CONS (MAKESTRING "CMPLX") + (CONS "CMPLX" (CONS (|fortPre1| |arg1|) (CONS (|fortPre1| |m1|) NIL)))) ((|member| |m1| |imags|) - (CONS (MAKESTRING "CMPLX") + (CONS "CMPLX" (CONS (|fortPre1| |arg1|) (CONS (|fortPre1| |m2|) NIL)))) ('T @@ -2507,7 +2506,7 @@ (CONS (|fortPre1| |arg2|) NIL)))))) ((AND (|member| |op| (CONS '+ - (CONS (MAKESTRING "+") NIL))) + (CONS "+" NIL))) (PAIRP |arg1|) (PROGN (SPADLET |mop| (QCAR |arg1|)) @@ -2525,14 +2524,14 @@ 'T))))) (|member| |mop| (CONS '* - (CONS (MAKESTRING "*") NIL)))) + (CONS "*" NIL)))) (COND ((|member| |m2| |imags|) - (CONS (MAKESTRING "CMPLX") + (CONS "CMPLX" (CONS (|fortPre1| |arg2|) (CONS (|fortPre1| |m1|) NIL)))) ((|member| |m1| |imags|) - (CONS (MAKESTRING "CMPLX") + (CONS "CMPLX" (CONS (|fortPre1| |arg2|) (CONS (|fortPre1| |m2|) NIL)))) ('T @@ -2652,15 +2651,15 @@ ('T (SPADLET |op| (CAR |e|)) (SPADLET |arg1| (CADR |e|)) (SPADLET |arg2| (CADDR |e|)) (SPADLET |op| (STRINGIMAGE |op|)) (COND - ((BOOT-EQUAL |op| (MAKESTRING "CMPLX")) + ((BOOT-EQUAL |op| "CMPLX") (PLUS 3 (|fortSize| (CONS (|fortExpSize| |arg1|) (CONS (|fortExpSize| |arg2|) NIL))))) ('T (SPADLET |narys| - (CONS (MAKESTRING "+") - (CONS (MAKESTRING "*") NIL))) + (CONS "+" + (CONS "*" NIL))) (COND ((|member| |op| |narys|) (COND @@ -2746,7 +2745,7 @@ ((AND (LISTP |e|) (|member| (CAR |e|) (CONS '= - (CONS (MAKESTRING "=") NIL)))) + (CONS "=" NIL)))) (SPADLET |var| (NTH 1 |e|)) (SPADLET |exprs| (|segment1| (THIRD |e|) @@ -2758,14 +2757,14 @@ (SPADLET |s| (APPEND (CONS - (CONS (MAKESTRING "=") + (CONS "=" (CONS |var| (CONS (CAR |exprs|) NIL))) (CDR |exprs|)) |s|))) ((AND (LISTP |e|) (|member| (CAR |e|) - (CONS (MAKESTRING "RETURN") NIL))) + (CONS "RETURN" NIL))) (SPADLET |exprs| (|segment1| (SECOND |e|) (SPADDIFFERENCE @@ -2931,7 +2930,7 @@ (CONS |newVar| NIL))) (SPADLET |exprs| (CONS - (CONS (MAKESTRING "=") + (CONS "=" (CONS |newVar| (CONS (CAR |subE|) NIL))) |exprs|)) @@ -2949,7 +2948,7 @@ ((> |topSize| 0) (CONS |newE| |exprs|)) ('T (SPADLET |newVar| (|newFortranTempVar|)) (CONS |newVar| - (CONS (CONS (MAKESTRING "=") + (CONS (CONS "=" (CONS |newVar| (CONS |newE| NIL))) |exprs|))))))))))) diff --git a/src/interp/nruncomp.lisp.pamphlet b/src/interp/nruncomp.lisp.pamphlet index be90366..1ded696 100644 --- a/src/interp/nruncomp.lisp.pamphlet +++ b/src/interp/nruncomp.lisp.pamphlet @@ -185,7 +185,7 @@ (SPADLET |k| (|NRTassocIndex| |x|))) (EXIT |k|)) (IF (VECP |x|) - (EXIT (|systemErrorHere| (MAKESTRING "NRTencode")))) + (EXIT (|systemErrorHere| "NRTencode"))) (IF (PAIRP |x|) (EXIT (SEQ (IF (OR (BOOT-EQUAL (QCAR |x|) '|Record|) (AND (PAIRP |x|) @@ -801,7 +801,7 @@ ((SPADLET |u| (HGET |$Slot1DataBase| (CAR |domain|))) (EQSUBSTLIST (CDR |domain|) |$FormalMapVariableList| (CAR |u|))) - ('T (|systemErrorHere| (MAKESTRING "NRTgetAddForm"))))))) + ('T (|systemErrorHere| "NRTgetAddForm")))))) ;NRTassignCapsuleFunctionSlot(op,sig) == ;--called from compDefineCapsuleFunction @@ -890,8 +890,8 @@ (COND ((NULL (ATOM |op|)) (|keyedSystemError| 'S2GE0016 - (CONS (MAKESTRING "consOpSig") - (CONS (MAKESTRING "bad operator in table") NIL))))) + (CONS "consOpSig" + (CONS "bad operator in table" NIL))))) (|mkList| (CONS (MKQ |op|) (CONS (|mkList| (|consSig| |sig| |dc|)) NIL))))) @@ -1585,7 +1585,7 @@ (CONS '$ NIL)))) (SPADLET |$getDomainCode| NIL) (SPADLET |ans| (|minimalise| |ans|)) - (SAY (CONS (MAKESTRING "time taken in buildFunctor: ") + (SAY (CONS "time taken in buildFunctor: " (CONS (SPADDIFFERENCE (get-internal-run-time) |oldtime|) NIL))) |ans|))))) @@ -1626,7 +1626,7 @@ ((ATOM (CAR |v|)) NIL) ((ATOM |v|) (|systemErrorHere| - (MAKESTRING "CheckVector"))) + "CheckVector")) ((|assoc| (CAR |v|) |alist|) NIL) ('T (SPADLET |alist| @@ -2127,7 +2127,7 @@ (PROGN (SPADLET |opDirectName| (INTERN (STRCONC (PNAME (CAR |$definition|)) - (MAKESTRING ";opDirect")))) + ";opDirect"))) (SPADLET |fun| (COND (|$NRTmakeCompactDirect| @@ -2815,9 +2815,8 @@ |bod|) ('T (|keyedSystemError| 'S2GE0016 - (CONS (MAKESTRING "NRTputInHead") - (CONS (MAKESTRING - "unexpected SPADCONST form") + (CONS "NRTputInHead" + (CONS "unexpected SPADCONST form" NIL)))))) ('T (|NRTputInHead| (CAR |bod|)) (|NRTputInTail| (CDR |bod|)) |bod|)))))) diff --git a/src/interp/nrunfast.lisp.pamphlet b/src/interp/nrunfast.lisp.pamphlet index ec09c1c..c65ebd5 100644 --- a/src/interp/nrunfast.lisp.pamphlet +++ b/src/interp/nrunfast.lisp.pamphlet @@ -190,10 +190,10 @@ (COND (|$monitorNewWorld| (|sayLooking| - (|concat| (MAKESTRING "%l") (INTERN ".." "BOOT") + (|concat| "%l" (INTERN ".." "BOOT") (|form2String| |thisDomainForm|) - (MAKESTRING " wants") (MAKESTRING "%l") - (MAKESTRING " ")) + " wants" "%l" + " ") |op| |sig| |goGetDomain|))) (SPADLET |slot| (|basicLookup| |op| |sig| |goGetDomain| @@ -205,9 +205,9 @@ (CONS '|nowhere| |goGetDomain|)) ('T (|sayBrightly| - (|concat| (MAKESTRING "Function: ") + (|concat| "Function: " (|formatOpSignature| |op| |sig|) - (MAKESTRING " is missing from domain: ") + " is missing from domain: " (|form2String| (ELT |goGetDomain| 0)))) (|keyedSystemError| 'S2NR0001 (CONS |op| @@ -217,14 +217,14 @@ (COND (|$monitorNewWorld| (|sayLooking1| - (CONS (MAKESTRING "goget stuffing slot") + (CONS "goget stuffing slot" (APPEND (|bright| |thisSlot|) - (CONS (MAKESTRING "of ") NIL))) + (CONS "of " NIL))) |thisDomain|))) (SETELT |thisDomain| |thisSlot| |slot|) (COND (|$monitorNewWorld| - (|sayLooking1| (MAKESTRING "<------") + (|sayLooking1| "<------" (CONS (CAR |slot|) (|devaluate| (CDR |slot|)))))) |slot|))))))) @@ -365,10 +365,9 @@ (COND (|$monitorNewWorld| (|sayLooking| - (|concat| (MAKESTRING "---->") + (|concat| "---->" (|form2String| (|devaluate| |domain|)) - (MAKESTRING - "----> searching op table for:") + "----> searching op table for:" '|%l| '| |) |op| |sig| |dollar|))) (SPADLET |someMatch| NIL) @@ -391,7 +390,7 @@ ('T |maxIndex|))) (COND ((QSGREATERP |finish| |maxIndex|) - (|systemError| (MAKESTRING "limit too large")))) + (|systemError| "limit too large"))) (SPADLET |numArgs| (QSDIFFERENCE (|#| |sig|) 1)) (SPADLET |success| NIL) (SPADLET |$isDefaultingPackage| @@ -455,7 +454,7 @@ (|formatOpSignature| |op| |sig|) (CONS - (MAKESTRING "--?-->") + "--?-->" (CONS (|formatOpSignature| |op| |subsumptionSig|) @@ -482,8 +481,7 @@ |dollar|)))) ('T (|systemError| - (MAKESTRING - "unexpected format")))))))))) + "unexpected format"))))))))) (SPADLET |start| (QSPLUS |start| (QSPLUS |numTableArgs| 4))))))) @@ -491,7 +489,7 @@ ((AND (NE |success| '|failed|) |success|) (COND (|$monitorNewWorld| - (|sayLooking1| (MAKESTRING "<----") + (|sayLooking1| "<----" (COND ((PAIRP |success|) (CONS (CAR |success|) @@ -520,7 +518,7 @@ ;$hasCatOpHash := hashString '"%%" -(SPADLET |$hasCatOpHash| (|hashString| (MAKESTRING "%%"))) +(SPADLET |$hasCatOpHash| (|hashString| "%%")) ;opIsHasCat op == ; hashCode? op => EQL(op, $hasCatOpHash) @@ -655,10 +653,9 @@ (COND (|$monitorNewWorld| (|sayLooking| - (|concat| (MAKESTRING "---->") + (|concat| "---->" (|form2String| (|devaluate| |domain|)) - (MAKESTRING - "----> searching op table for:") + "----> searching op table for:" '|%l| '| |) |op| |sig| |dollar|))) (SPADLET |someMatch| NIL) @@ -682,7 +679,7 @@ ('T |maxIndex|))) (COND ((QSGREATERP |finish| |maxIndex|) - (|systemError| (MAKESTRING "limit too large")))) + (|systemError| "limit too large"))) (SPADLET |numArgs| (COND ((|hashCode?| |sig|) (SPADDIFFERENCE 1)) @@ -773,7 +770,7 @@ (|formatOpSignature| |op| |sig|) (CONS - (MAKESTRING "--?-->") + "--?-->" (CONS (|formatOpSignature| |op| @@ -803,8 +800,7 @@ |dollar|)))) ('T (|systemError| - (MAKESTRING - "unexpected format")))))))))) + "unexpected format"))))))))) (SPADLET |start| (QSPLUS |start| (QSPLUS |numTableArgs| 4))))))) @@ -812,7 +808,7 @@ ((AND (NE |success| '|failed|) |success|) (COND (|$monitorNewWorld| - (|sayLooking1| (MAKESTRING "<----") + (|sayLooking1| "<----" (COND ((PAIRP |success|) (CONS (CAR |success|) @@ -924,10 +920,9 @@ (COND ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| - (|concat| (MAKESTRING "----->") + (|concat| "----->" (|form2String| (|devaluate| |dom|)) - (MAKESTRING - "-----> searching default packages for ") + "-----> searching default packages for " |op|)))) (SPADLET |predvec| (ELT |dom| 3)) (SPADLET |packageVec| (QCAR |slot4|)) @@ -979,8 +974,7 @@ (COND (|$monitorNewWorld| (|sayLooking1| - (MAKESTRING - "already instantiated cat package") + "already instantiated cat package" |entry|))) |entry|) ((IDENTP |entry|) @@ -1105,8 +1099,7 @@ |$monitorNewWorld| 'T) (|sayBrightlyNT| - (MAKESTRING - " not in: ")) + " not in: ") (|pp| (OR (AND @@ -1119,8 +1112,7 @@ (COND (|$monitorNewWorld| (|sayLooking1| - (MAKESTRING - "candidate default package instantiated: ") + "candidate default package instantiated: " |success|))) |success|))) ('T |entry|))) @@ -1130,8 +1122,7 @@ (COND (|$monitorNewWorld| (|sayLooking1| - (MAKESTRING - "Looking at instantiated package ") + "Looking at instantiated package " |package|))) (COND ((SPADLET |res| @@ -1141,16 +1132,14 @@ ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| - (MAKESTRING - "candidate default package succeeds")))) + "candidate default package succeeds"))) (RETURN |res|)) ('T (COND ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| - (MAKESTRING - "candidate fails -- continuing to search categories")))) + "candidate fails -- continuing to search categories"))) NIL))))))))))))))))) ;--======================================================= @@ -1173,7 +1162,7 @@ (PROGN (COND (|$monitorNewWorld| - (|sayLooking1| (MAKESTRING "looking up add-chain: ") + (|sayLooking1| "looking up add-chain: " |addFormDomain|))) (SPADLET |addFunction| (|newLookupInDomain| |op| |sig| |addFormDomain| @@ -1184,11 +1173,10 @@ (|$monitorNewWorld| (|sayLooking1| (|concat| - (MAKESTRING - "<----add-chain function found for ") + "<----add-chain function found for " (|form2String| (|devaluate| |addFormDomain|)) - (MAKESTRING "<----")) + "<----") (CDR |addFunction|)))) |addFunction|) ('T NIL)))))) @@ -1321,10 +1309,9 @@ (COND ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| - (|concat| (MAKESTRING "----->") + (|concat| "----->" (|form2String| (|devaluate| |dom|)) - (MAKESTRING - "-----> searching default packages for ") + "-----> searching default packages for " |op|)))) (SPADLET |predvec| (ELT |dom| 3)) (SPADLET |packageVec| (QCAR |slot4|)) @@ -1376,8 +1363,7 @@ (COND (|$monitorNewWorld| (|sayLooking1| - (MAKESTRING - "already instantiated cat package") + "already instantiated cat package" |entry|))) |entry|) ((IDENTP |entry|) @@ -1453,8 +1439,7 @@ |$monitorNewWorld| 'T) (|sayBrightlyNT| - (MAKESTRING - " not in: ")) + " not in: ") (|pp| (OR (AND @@ -1467,8 +1452,7 @@ (COND (|$monitorNewWorld| (|sayLooking1| - (MAKESTRING - "candidate default package instantiated: ") + "candidate default package instantiated: " |success|))) |success|))) ('T |entry|))) @@ -1478,8 +1462,7 @@ (COND (|$monitorNewWorld| (|sayLooking1| - (MAKESTRING - "Looking at instantiated package ") + "Looking at instantiated package " |package|))) (COND ((SPADLET |res| @@ -1489,16 +1472,14 @@ ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| - (MAKESTRING - "candidate default package succeeds")))) + "candidate default package succeeds"))) (RETURN |res|)) ('T (COND ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| - (MAKESTRING - "candidate fails -- continuing to search categories")))) + "candidate fails -- continuing to search categories"))) NIL))))))))))))))))) ;nrunNumArgCheck(num,bytevec,start,finish) == @@ -1600,10 +1581,9 @@ (COND ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| - (|concat| (MAKESTRING "----->") + (|concat| "----->" (|form2String| (|devaluate| |dom|)) - (MAKESTRING - "-----> searching default packages for ") + "-----> searching default packages for " |op|)))) (SPADLET |predvec| (ELT |dom| 3)) (SPADLET |slot4| (ELT |dom| 4)) @@ -1661,8 +1641,7 @@ (COND (|$monitorNewWorld| (|sayLooking1| - (MAKESTRING - "already instantiated cat package") + "already instantiated cat package" |entry|))) |entry|) ((IDENTP |entry|) @@ -1785,8 +1764,7 @@ |$monitorNewWorld| 'T) (|sayBrightlyNT| - (MAKESTRING - " not in: ")) + " not in: ") (|pp| (OR (AND |packageForm| @@ -1798,8 +1776,7 @@ (COND (|$monitorNewWorld| (|sayLooking1| - (MAKESTRING - "candidate default package instantiated: ") + "candidate default package instantiated: " |success|))) |success|))) ('T |entry|))) @@ -1809,8 +1786,7 @@ (COND (|$monitorNewWorld| (|sayLooking1| - (MAKESTRING - "Looking at instantiated package ") + "Looking at instantiated package " |package|))) (COND ((SPADLET |res| @@ -1820,16 +1796,14 @@ ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| - (MAKESTRING - "candidate default package succeeds")))) + "candidate default package succeeds"))) (RETURN |res|)) ('T (COND ((BOOT-EQUAL |$monitorNewWorld| 'T) (|sayBrightly| - (MAKESTRING - "candidate fails -- continuing to search categories")))) + "candidate fails -- continuing to search categories"))) NIL))))))))))))))) ;--======================================================= @@ -1882,7 +1856,7 @@ ('T |maxIndex|))) (COND ((QSGREATERP |finish| |maxIndex|) - (|systemError| (MAKESTRING "limit too large")))) + (|systemError| "limit too large"))) (SPADLET |numArgs| (QSDIFFERENCE (|#| |sig|) 1)) (SPADLET |success| NIL) (DO () ((NULL (> |finish| |start|)) NIL) @@ -2357,7 +2331,7 @@ ('T |maxIndex|))) (COND ((QSGREATERP |finish| |maxIndex|) - (|systemError| (MAKESTRING "limit too large")))) + (|systemError| "limit too large"))) (SPADLET |success| NIL) (DO () ((NULL (> |finish| |start|)) NIL) (SEQ (EXIT (PROGN @@ -2632,8 +2606,8 @@ (|$monitorNewWorld| (|sayLooking1| (|concat| (|form2String| (|devaluate| |thisDomain|)) - (MAKESTRING " activating lazy slot ") |slot| - (MAKESTRING ": ")) + " activating lazy slot " |slot| + ": ") |slotDomain|))) (SETELT |thisDomain| |slot| |slotDomain|))))) @@ -2856,8 +2830,7 @@ (CONS |fun| (CONS |sig2| NIL)))))) ('T (|systemError| - (MAKESTRING - "strange Mapping type in newHasTest"))))) + "strange Mapping type in newHasTest")))) ((BOOT-EQUAL (GETDATABASE (|opOf| |domform|) 'CONSTRUCTORKIND) '|category|) @@ -3229,7 +3202,7 @@ ('T (|sayBrightly| (|concat| |prefix| (|formatOpSignature| |op| |sig|) - (|bright| (MAKESTRING "from ")) + (|bright| "from ") (|form2String| |dollar|))) (SPADLET |$monitorNewWorld| 'T)))))))) diff --git a/src/interp/nrungo.lisp.pamphlet b/src/interp/nrungo.lisp.pamphlet index 9568b48..549c25d 100644 --- a/src/interp/nrungo.lisp.pamphlet +++ b/src/interp/nrungo.lisp.pamphlet @@ -439,8 +439,7 @@ '|goGet|) (|lookupDisplay| |op| |sig| |domain| - (MAKESTRING - " !! goGet found, will ignore")) + " !! goGet found, will ignore") (OR (|lookupInAddChain| |op| |sig| |domain| @@ -449,8 +448,7 @@ ((NULL |slot|) (|lookupDisplay| |op| |sig| |domain| - (MAKESTRING - " !! null slot entry, continuing")) + " !! null slot entry, continuing") (OR (|lookupInAddChain| |op| |sig| |domain| @@ -459,8 +457,7 @@ ('T (|lookupDisplay| |op| |sig| |domain| - (MAKESTRING - " !! found in NEW table!!")) + " !! found in NEW table!!") |slot|)))))))))))) (COND ((AND (NE |success| '|failed|) |success|) |success|) @@ -694,8 +691,8 @@ |dollar|))))))))))) (OR |r| (|lookupDisplay| |op| |sig| - (MAKESTRING "category defaults") - (MAKESTRING "-- not found")))))))) + "category defaults" + "-- not found"))))))) ;--======================================================= ;-- Predicates @@ -801,9 +798,8 @@ (COND ((VECP |a|) (|keyedSystemError| 'S2GE0016 - (CONS (MAKESTRING "lookupPred") - (CONS (MAKESTRING - "vector as first argument to has") + (CONS "lookupPred" + (CONS "vector as first argument to has" NIL)))) ('T (SPADLET |a| @@ -1445,7 +1441,7 @@ (EXIT (SETQ G167138 (APPEND G167138 - (CONS (MAKESTRING " ") + (CONS " " (CONS |sv| NIL))))))))) NIL)) (RETURN NIL)) @@ -1763,8 +1759,7 @@ (LASSOC |i| |initList|) (|systemErrorHere| - (MAKESTRING - "NRTisRecurrenceRelation"))) + "NRTisRecurrenceRelation")) G167180)))))))))))))))))))))))))))) ;mkDiffAssoc(op,body,k,sharpPosition,sharpArg,diffSlot,vecname) == @@ -1884,7 +1879,7 @@ (|mkDiffAssoc| |op| |x| |k| |sharpPosition| |sharpArg| |diffSlot| |vecname|))))))))))) - ('T (|systemErrorHere| (MAKESTRING "mkDiffAssoc")))))))) + ('T (|systemErrorHere| "mkDiffAssoc"))))))) @ \eject diff --git a/src/interp/nrunopt.lisp.pamphlet b/src/interp/nrunopt.lisp.pamphlet index fa1d0ee..392759e 100644 --- a/src/interp/nrunopt.lisp.pamphlet +++ b/src/interp/nrunopt.lisp.pamphlet @@ -449,9 +449,7 @@ ((BOOT-EQUAL |x| '$) 0) ((NULL (INTEGERP |x|)) (|systemError| - (CONS - (MAKESTRING - "code vector slot is ") + (CONS "code vector slot is " (CONS |x| (CONS '|; must be number| NIL))))) @@ -621,8 +619,7 @@ (CONS |dollar| (CONS |i| NIL))))) ('T (|sayBrightlyNT| - (MAKESTRING - "Unexpected constant environment!!")) + "Unexpected constant environment!!") (|pp| (|devaluate| |b|)) NIL))) ('T |item|)))))) @@ -1154,10 +1151,10 @@ (SPADLET |a| (QCAR |ISTMP#4|)) 'T)))))))))) - (EXIT (SEQ (|sayBrightlyNT| (MAKESTRING "Predicate: ")) + (EXIT (SEQ (|sayBrightlyNT| "Predicate: ") (PRINT |p|) (|sayBrightlyNT| - (MAKESTRING " replaced by: ")) + " replaced by: ") (EXIT (PRINT (LASSOC |a| |$NRTattributeAlist|)))))) (EXIT |p|))))) @@ -1624,7 +1621,7 @@ (RETURN (PROGN (SPADLET |defname| - (INTERN (STRCONC |catname| (MAKESTRING "&")))) + (INTERN (STRCONC |catname| "&"))) (COND ((|constructor?| |defname|) |defname|) ('T NIL)))))) ;--======================================================================= @@ -1832,7 +1829,7 @@ ((EQUAL |l| '(NIL)) NIL) ('T (|sayBrightly| - (MAKESTRING "unexpected category format encountered:")) + "unexpected category format encountered:") (|pp| |l|)))))) ;listOfCategoryEntriesIf(pred,conseq,alternate) == @@ -2021,11 +2018,9 @@ (COND ((NULL |ok|) (|sayBrightly| - (MAKESTRING - "Format is: dc(,option)")) + "Format is: dc(,option)") (|sayBrightly| - (MAKESTRING - "options are: all (default), slots, atts, cats, data, ops, optable"))) + "options are: all (default), slots, atts, cats, data, ops, optable")) ('T (SPADLET |option| (KAR |options|)) (COND ((OR (BOOT-EQUAL |option| '|all|) (NULL |option|)) @@ -2076,15 +2071,15 @@ (|dcOpLatchPrint| |op| |n|)) ((AND (NULL |item|) (> |i| 5)) (|sayBrightly| - (CONS (MAKESTRING "arg ") + (CONS "arg " (CONS - (STRCONC (MAKESTRING "#") + (STRCONC "#" (STRINGIMAGE (SPADDIFFERENCE |i| 5))) NIL)))) ((ATOM |item|) (|sayBrightly| - (CONS (MAKESTRING "fun ") + (CONS "fun " (CONS |item| NIL)))) ((AND (PAIRP |item|) (EQ (QCAR |item|) 'CONS) @@ -2136,11 +2131,11 @@ (QCAR |ISTMP#7|)) 'T)))))))))))) (|sayBrightly| - (CONS (MAKESTRING "constant ") + (CONS "constant " (CONS |a| NIL)))) ('T (|sayBrightly| - (|concat| (MAKESTRING "lazy ") + (|concat| "lazy " (|form2String| (|formatSlotDomain| |i|))))))))))))))) @@ -2171,7 +2166,7 @@ (|form2String| (|formatSlotDomain| |whereNumber|))))) (|sayBrightly| - (CONS (MAKESTRING "latch") + (CONS "latch" (APPEND (|formatOpSignature| |op| |signumList|) |namePart|))))))) @@ -2252,7 +2247,7 @@ (SPADLET |val| (ELT (ELT |$infovec| 0) |x|)) (COND ((NULL |val|) - (CONS (STRCONC (MAKESTRING "#") + (CONS (STRCONC "#" (STRINGIMAGE (SPADDIFFERENCE |x| 5))) NIL)) ('T (|formatSlotDomain| |val|)))) @@ -2372,7 +2367,7 @@ (COND ((EQL |predNumber| 0) NIL) ('T - (APPEND (|bright| (MAKESTRING "if")) + (APPEND (|bright| "if") (|pred2English| (ELT |$predvec| (SPADDIFFERENCE |predNumber| 1))))))) @@ -2380,14 +2375,14 @@ (|bright| (COND ((EQL |slotNumber| 0) - (MAKESTRING "subsumed by next entry")) - ((EQL |slotNumber| 1) (MAKESTRING "missing")) + "subsumed by next entry") + ((EQL |slotNumber| 1) "missing") ('T (SPADLET |name| (ELT (ELT |$infovec| 0) |slotNumber|)) (COND ((ATOM |name|) |name|) - ('T (MAKESTRING "looked up"))))))) + ('T "looked up")))))) (|sayBrightly| (APPEND (|formatOpSignature| |op| |signumList|) (APPEND |namePart| |suffix|))) @@ -2473,7 +2468,7 @@ ((EQL |predNumber| 0) NIL) ('T (APPEND - (|bright| (MAKESTRING "if")) + (|bright| "if") (|pred2English| (ELT |$predvec| (SPADDIFFERENCE |predNumber| @@ -2531,7 +2526,7 @@ ('T (APPEND (|bright| - (MAKESTRING "if")) + "if") (|pred2English| (ELT |$predvec| (SPADDIFFERENCE @@ -2544,10 +2539,10 @@ NIL) ((IDENTP |info|) (|bright| - (MAKESTRING "package"))) + "package")) ('T (|bright| - (MAKESTRING "instantiated"))))) + "instantiated")))) (|sayBrightly| (|concat| (|form2String| @@ -2593,7 +2588,7 @@ ((EQL |predNumber| 0) NIL) ('T (APPEND - (|bright| (MAKESTRING "if")) + (|bright| "if") (|pred2English| (ELT |$predvec| (SPADDIFFERENCE |predNumber| @@ -2606,10 +2601,10 @@ NIL) ((IDENTP |info|) (|bright| - (MAKESTRING "package"))) + "package")) ('T (|bright| - (MAKESTRING "instantiated"))))) + "instantiated")))) (|sayBrightly| (|concat| (|form2String| @@ -2633,14 +2628,14 @@ (PROGN (SPADLET |name| (OR (|abbreviation?| |con|) |con|)) (SPADLET |$infovec| (|getInfovec| |name|)) - (|sayBrightly| (MAKESTRING "Operation data from slot 1")) + (|sayBrightly| "Operation data from slot 1") (PRINT-FULL (ELT |$infovec| 1)) (SPADLET |vec| (|getCodeVector|)) (SPADLET |vec| (COND ((PAIRP |vec|) (CDR |vec|)) ('T |vec|))) (|sayBrightly| - (CONS (MAKESTRING "Information vector has ") + (CONS "Information vector has " (CONS (SIZE |vec|) - (CONS (MAKESTRING " entries") NIL)))) + (CONS " entries" NIL)))) (|dcData1| |vec|))))) ;dcData1 vec == @@ -2667,7 +2662,7 @@ (|sayBrightlyNT| (|rightJustifyString| (STRINGIMAGE |start|) 6)) - (|sayBrightlyNT| (MAKESTRING " |")) + (|sayBrightlyNT| " |") (DO ((G168032 (MIN (PLUS |start| 9) |n|)) (|j| |start| (+ |j| 1))) ((> |j| G168032) NIL) @@ -2807,9 +2802,9 @@ (COND ((NULL |quiet|) (|sayBrightly| - (CONS (MAKESTRING "infovec total = ") + (CONS "infovec total = " (CONS |itotal| - (CONS (MAKESTRING " BYTES") NIL)))))) + (CONS " BYTES" NIL)))))) (COND ((NULL |quiet|) (SPADLET |lookupFun| (|getLookupFun| |infovec|)) @@ -2817,53 +2812,50 @@ (COND ((BOOT-EQUAL |lookupFun| '|lookupIncomplete|) - (MAKESTRING "incomplete")) - ('T (MAKESTRING "complete")))) + "incomplete") + ('T "complete"))) (|sayBrightly| - (CONS (MAKESTRING "template = ") + (CONS "template = " (CONS |tSize| NIL))) (|sayBrightly| - (CONS (MAKESTRING "operations = ") + (CONS "operations = " (CONS |oSize| - (CONS (MAKESTRING " (") + (CONS " (" (CONS |suffix| - (CONS (MAKESTRING ")") NIL)))))) + (CONS ")" NIL)))))) (|sayBrightly| - (CONS (MAKESTRING "attributes = ") + (CONS "attributes = " (CONS |aSize| NIL))) (|sayBrightly| - (CONS (MAKESTRING "categories = ") + (CONS "categories = " (CONS |cSize| NIL))) (|sayBrightly| - (CONS (MAKESTRING "data vector = ") + (CONS "data vector = " (CONS |vSize| NIL))))) (COND ((NULL |quiet|) (|sayBrightly| - (CONS (MAKESTRING - "number of function slots (one extra node) = ") + (CONS "number of function slots (one extra node) = " (CONS |fun| NIL))) (|sayBrightly| - (CONS (MAKESTRING - "number of latch slots (2 extra nodes) = ") + (CONS "number of latch slots (2 extra nodes) = " (CONS |latch| NIL))) (|sayBrightly| - (CONS (MAKESTRING - "number of lazy slots (no extra nodes) = ") + (CONS "number of lazy slots (no extra nodes) = " (CONS |lazy| NIL))) (|sayBrightly| - (CONS (MAKESTRING "size of domain vectors = ") + (CONS "size of domain vectors = " (CONS (PLUS 1 |maxindex|) - (CONS (MAKESTRING " slots") NIL)))))) + (CONS " slots" NIL)))))) (SPADLET |vtotal| (PLUS |itotal| (|nodeSize| |fun|))) (SPADLET |vtotal| (PLUS |vtotal| (|nodeSize| (TIMES 2 |latch|)))) (COND ((NULL |quiet|) (|sayBrightly| - (CONS (MAKESTRING "domain size = ") + (CONS "domain size = " (CONS |vtotal| - (CONS (MAKESTRING " BYTES") NIL)))))) + (CONS " BYTES" NIL)))))) (SPADLET |etotal| (PLUS (|nodeSize| (PLUS |fun| (TIMES 2 |latch|))) @@ -2871,9 +2863,9 @@ (COND ((NULL |quiet|) (|sayBrightly| - (CONS (MAKESTRING "cost per instantiation = ") + (CONS "cost per instantiation = " (CONS |etotal| - (CONS (MAKESTRING " BYTES") NIL)))))) + (CONS " BYTES" NIL)))))) |vtotal|))))))) ;dcSizeAll() == @@ -2905,16 +2897,16 @@ (SPADLET |s| (|dcSize| |x| '|quiet|)) (|sayBrightly| (CONS |s| - (CONS (MAKESTRING " : ") + (CONS " : " (CONS |x| NIL)))) (SPADLET |total| (PLUS |total| |s|)))))))) (|sayBrightly| - (MAKESTRING "------------total-------------")) + "------------total-------------") (|sayBrightly| (CONS |count| - (CONS (MAKESTRING " constructors; ") + (CONS " constructors; " (CONS |total| - (CONS (MAKESTRING " BYTES") NIL)))))))))) + (CONS " BYTES" NIL)))))))))) ;sum(:l) == +/l @@ -3008,32 +3000,25 @@ (SPADLET |con| (OR (|abbreviation?| |con|) |con|)) (SPADLET |u| (|getInfovec| |con|)) (|sayBrightly| - (MAKESTRING - "---------------slot 0 is template-------------------")) + "---------------slot 0 is template-------------------") (|ppTemplate| (ELT |u| 0)) (|sayBrightly| - (MAKESTRING - "---------------slot 1 is op table-------------------")) + "---------------slot 1 is op table-------------------") (PRINT-FULL (ELT |u| 1)) (|sayBrightly| - (MAKESTRING - "---------------slot 2 is attribute list-------------")) + "---------------slot 2 is attribute list-------------") (PRINT-FULL (ELT |u| 2)) (|sayBrightly| - (MAKESTRING - "---------------slot 3.0 is catpredvec---------------")) + "---------------slot 3.0 is catpredvec---------------") (PRINT-FULL (ELT (ELT |u| 3) 0)) (|sayBrightly| - (MAKESTRING - "---------------slot 3.1 is catinfovec---------------")) + "---------------slot 3.1 is catinfovec---------------") (PRINT-FULL (ELT (ELT |u| 3) 1)) (|sayBrightly| - (MAKESTRING - "---------------slot 3.2 is catvec-------------------")) + "---------------slot 3.2 is catvec-------------------") (PRINT-FULL (ELT (ELT |u| 3) 2)) (|sayBrightly| - (MAKESTRING - "---------------tail of slot 3 is datavector---------")) + "---------------tail of slot 3 is datavector---------") (|dcData1| (CDDDR (ELT |u| 3))) '|done|)))) @@ -3074,29 +3059,29 @@ ('T (BOOT-EQUAL (ELT |$infovec| 4) '|lookupComplete|)))) (|sayBrightly| - (MAKESTRING "----------------Template-----------------")) + "----------------Template-----------------") (|dcSlots| |con|) (|sayBrightly| (COND (|complete?| - (MAKESTRING "----------Complete Ops----------------")) + "----------Complete Ops----------------") ('T - (MAKESTRING "----------Incomplete Ops---------------")))) + "----------Incomplete Ops---------------"))) (|dcOpTable| |con|) (|sayBrightly| - (MAKESTRING "----------------Atts-----------------")) + "----------------Atts-----------------") (|dcAtts| |con|) (|sayBrightly| - (MAKESTRING "----------------Preds-----------------")) + "----------------Preds-----------------") (|dcPreds| |con|) (|sayBrightly| - (MAKESTRING "----------------Cats-----------------")) + "----------------Cats-----------------") (|dcCats| |con|) (|sayBrightly| - (MAKESTRING "----------------Data------------------")) + "----------------Data------------------") (|dcData| |con|) (|sayBrightly| - (MAKESTRING "----------------Size------------------")) + "----------------Size------------------") (|dcSize| |con| '|full|) '|done|)))) @@ -3147,7 +3132,7 @@ ((ATOM |pred|) NIL) ('T (|concat| - (MAKESTRING " if ") + " if " (|pred2English| |pred|))))) (COND ((BOOT-EQUAL |key| @@ -3156,9 +3141,7 @@ (APPEND (|formatOpSignature| |op| |sig|) - (CONS - (MAKESTRING - " subsumed by ") + (CONS " subsumed by " (APPEND (|formatOpSignature| |op| |slot|) @@ -3208,10 +3191,9 @@ ((NULL |extends|) (SPADLET |u| (CAR |$why|)) (SPADLET |msg| (CADR |$why|)) (SPADLET |v| (CDDR |$why|)) (|sayBrightly| - (MAKESTRING - "--------------non extending category----------------------")) + "--------------non extending category----------------------") (|sayBrightlyNT| - (CONS (MAKESTRING "..") + (CONS ".." (APPEND (|bright| (|form2String| |domform|)) (CONS '|of cat | NIL)))) (PRINT |u|) (|sayBrightlyNT| (|bright| |msg|)) @@ -3362,12 +3344,12 @@ 'T)))))) (CONS |u| (CONS - (CONS (MAKESTRING " has no ") + (CONS " has no " (|formatOpSignature| |op| |sig|)) NIL))) ('T (CONS |u| - (CONS (MAKESTRING " has no") + (CONS " has no" (CONS |v| NIL)))))) NIL)))))))) @@ -3549,9 +3531,9 @@ ((SPADLET |similarForm| (|assoc| |vOp| |prinAncestorList|)) (PRINT |u|) - (|sayBrightlyNT| (MAKESTRING " extends ")) + (|sayBrightlyNT| " extends ") (PRINT |similarForm|) - (|sayBrightlyNT| (MAKESTRING " but not ")) + (|sayBrightlyNT| " but not ") (PRINT |v|))) (PROG (G168533) (SPADLET G168533 NIL) diff --git a/src/interp/nruntime.lisp.pamphlet b/src/interp/nruntime.lisp.pamphlet index 87abd35..94814a0 100644 --- a/src/interp/nruntime.lisp.pamphlet +++ b/src/interp/nruntime.lisp.pamphlet @@ -60,11 +60,11 @@ ('T (SPADLET |prefix| (COND - ((BOOT-EQUAL |suffix| (MAKESTRING "")) '>) + ((BOOT-EQUAL |suffix| "") '>) ('T '<))) (|sayBrightly| (|concat| |prefix| (|formatOpSignature| |op| |sig|) - (MAKESTRING " from ") + " from " (|prefix2String| (|devaluateDeeply| |vectorOrForm|)) |suffix|))))))) diff --git a/src/interp/package.lisp.pamphlet b/src/interp/package.lisp.pamphlet index 690e323..e71f44b 100644 --- a/src/interp/package.lisp.pamphlet +++ b/src/interp/package.lisp.pamphlet @@ -480,7 +480,7 @@ (SPADLET |codelist| (QCDR |ISTMP#1|)) 'T)))) (|systemError| - (MAKESTRING "packages may not have add clauses"))) + "packages may not have add clauses")) ((AND (PAIRP |code|) (EQ (QCAR |code|) 'PROGN) (PROGN (SPADLET |codelist| (QCDR |code|)) 'T)) (CONS 'PROGN @@ -805,22 +805,22 @@ (PROG (|sep0| |p1| |p2| |p3| |s1| |s2| |s3| |s4|) (RETURN (PROGN - (SPADLET |sep0| (MAKESTRING ";")) + (SPADLET |sep0| ";") (COND ((NULL (STRINGP |encodedName|)) (SPADLET |encodedName| (STRINGIMAGE |encodedName|)))) (COND ((NULL (SPADLET |p1| (STRPOS |sep0| |encodedName| 0 - (MAKESTRING "*")))) + "*"))) NIL) ((NULL (SPADLET |p2| (STRPOS |sep0| |encodedName| (PLUS |p1| 1) - (MAKESTRING "*")))) + "*"))) '|inner|) ((NULL (SPADLET |p3| (STRPOS |sep| |encodedName| (PLUS |p2| 1) - (MAKESTRING "*")))) + "*"))) NIL) ('T (SPADLET |s1| (SUBSTRING |encodedName| 0 |p1|)) (SPADLET |s2| @@ -904,7 +904,7 @@ (SETQ G166702 (CONS |c| G166702)))))))))) (COND - ((NULL |clist|) (MAKESTRING "_")) + ((NULL |clist|) "_") ('T (PROG (G166712) (SPADLET G166712 "") diff --git a/src/interp/parsing.lisp.pamphlet b/src/interp/parsing.lisp.pamphlet index ddf6d56..6b18675 100644 --- a/src/interp/parsing.lisp.pamphlet +++ b/src/interp/parsing.lisp.pamphlet @@ -3776,7 +3776,7 @@ parse ;;; *** |transUnCons| REDEFINED -(DEFUN |transUnCons| (|u|) (PROG (|ISTMP#1| |x| |ISTMP#2| |y|) (RETURN (COND ((ATOM |u|) (|systemErrorHere| (MAKESTRING "transUnCons"))) ((AND (PAIRP |u|) (EQ (QCAR |u|) (QUOTE APPEND)) (PROGN (SPADLET |ISTMP#1| (QCDR |u|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |x| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |y| (QCAR |ISTMP#2|)) (QUOTE T))))))) (COND ((NULL |y|) |x|) ((QUOTE T) (|systemErrorHere| (MAKESTRING "transUnCons"))))) ((AND (PAIRP |u|) (EQ (QCAR |u|) (QUOTE CONS)) (PROGN (SPADLET |ISTMP#1| (QCDR |u|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |x| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |y| (QCAR |ISTMP#2|)) (QUOTE T))))))) (COND ((ATOM |y|) (CONS |x| |y|)) ((QUOTE T) (CONS |x| (|transUnCons| |y|))))))))) +(DEFUN |transUnCons| (|u|) (PROG (|ISTMP#1| |x| |ISTMP#2| |y|) (RETURN (COND ((ATOM |u|) (|systemErrorHere| "transUnCons")) ((AND (PAIRP |u|) (EQ (QCAR |u|) (QUOTE APPEND)) (PROGN (SPADLET |ISTMP#1| (QCDR |u|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |x| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |y| (QCAR |ISTMP#2|)) (QUOTE T))))))) (COND ((NULL |y|) |x|) ((QUOTE T) (|systemErrorHere| "transUnCons")))) ((AND (PAIRP |u|) (EQ (QCAR |u|) (QUOTE CONS)) (PROGN (SPADLET |ISTMP#1| (QCDR |u|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |x| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |y| (QCAR |ISTMP#2|)) (QUOTE T))))))) (COND ((ATOM |y|) (CONS |x| |y|)) ((QUOTE T) (CONS |x| (|transUnCons| |y|))))))))) ; ;parseCoerce [x,typ] == ; $InteractiveMode => ["::",parseTran x,parseTran parseType typ] @@ -3837,7 +3837,7 @@ parse ;;; *** |parseTypeEvaluate| REDEFINED -(DEFUN |parseTypeEvaluate| (|form|) (PROG (|$op| |op| |argl| |sel| |type| |fn| |p| |cmm| |ISTMP#1| |ISTMP#2| |argml|) (DECLARE (SPECIAL |$op|)) (RETURN (SEQ (COND ((AND (PAIRP |form|) (PROGN (SPADLET |op| (QCAR |form|)) (SPADLET |argl| (QCDR |form|)) (QUOTE T))) (COND ((|newType?| |op|) |form|) ((QUOTE T) (SPADLET |$op| |op|) (COND ((BOOT-EQUAL |op| (QUOTE |Mapping|)) (CONS |op| (PROG (#0=#:G166484) (SPADLET #0# NIL) (RETURN (DO ((#1=#:G166489 |argl| (CDR #1#)) (|a| NIL)) ((OR (ATOM #1#) (PROGN (SETQ |a| (CAR #1#)) NIL)) (NREVERSE0 #0#)) (SEQ (EXIT (SETQ #0# (CONS (|parseTypeEvaluate| |a|) #0#))))))))) ((BOOT-EQUAL |op| (QUOTE |Union|)) (COND ((|isTaggedUnion| |form|) (CONS |op| (PROG (#2=#:G166500) (SPADLET #2# NIL) (RETURN (DO ((#3=#:G166506 |argl| (CDR #3#)) (#4=#:G166457 NIL)) ((OR (ATOM #3#) (PROGN (SETQ #4# (CAR #3#)) NIL) (PROGN (PROGN (SPADLET |sel| (CADR #4#)) (SPADLET |type| (CADDR #4#)) #4#) NIL)) (NREVERSE0 #2#)) (SEQ (EXIT (SETQ #2# (CONS (CONS (QUOTE |:|) (CONS |sel| (CONS (|parseTypeEvaluate| |type|) NIL))) #2#))))))))) ((QUOTE T) (CONS |op| (PROG (#5=#:G166517) (SPADLET #5# NIL) (RETURN (DO ((#6=#:G166522 |argl| (CDR #6#)) (|a| NIL)) ((OR (ATOM #6#) (PROGN (SETQ |a| (CAR #6#)) NIL)) (NREVERSE0 #5#)) (SEQ (EXIT (SETQ #5# (CONS (|parseTypeEvaluate| |a|) #5#))))))))))) ((BOOT-EQUAL |op| (QUOTE |Record|)) (CONS |op| (PROG (#7=#:G166533) (SPADLET #7# NIL) (RETURN (DO ((#8=#:G166539 |argl| (CDR #8#)) (#9=#:G166462 NIL)) ((OR (ATOM #8#) (PROGN (SETQ #9# (CAR #8#)) NIL) (PROGN (PROGN (SPADLET |sel| (CADR #9#)) (SPADLET |type| (CADDR #9#)) #9#) NIL)) (NREVERSE0 #7#)) (SEQ (EXIT (SETQ #7# (CONS (CONS (QUOTE |:|) (CONS |sel| (CONS (|parseTypeEvaluate| |type|) NIL))) #7#))))))))) ((QUOTE T) (SPADLET |cmm| (SEQ (COND ((SPADLET |fn| (|constructor?| |op|)) (COND ((SPADLET |p| (|pathname| (CONS |fn| (CONS |$spadLibFT| (CONS (MAKESTRING "*") NIL))))) (EXIT (COND ((|isExistingFile| |p|) (|getConstructorModemap| (|abbreviation?| |fn|))) ((QUOTE T) NIL)))))) ((QUOTE T) NIL)))) (COND ((AND (PAIRP |cmm|) (PROGN (SPADLET |ISTMP#1| (QCAR |cmm|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (PROGN (SPADLET |argml| (QCDR |ISTMP#2|)) (QUOTE T))))))) (CONS |op| (|parseTypeEvaluateArgs| |argl| |argml|))) ((QUOTE T) (|throwKeyedMsg| (QUOTE S2IL0015) (CONS |op| NIL))))))))) ((QUOTE T) |form|)))))) +(DEFUN |parseTypeEvaluate| (|form|) (PROG (|$op| |op| |argl| |sel| |type| |fn| |p| |cmm| |ISTMP#1| |ISTMP#2| |argml|) (DECLARE (SPECIAL |$op|)) (RETURN (SEQ (COND ((AND (PAIRP |form|) (PROGN (SPADLET |op| (QCAR |form|)) (SPADLET |argl| (QCDR |form|)) (QUOTE T))) (COND ((|newType?| |op|) |form|) ((QUOTE T) (SPADLET |$op| |op|) (COND ((BOOT-EQUAL |op| (QUOTE |Mapping|)) (CONS |op| (PROG (#0=#:G166484) (SPADLET #0# NIL) (RETURN (DO ((#1=#:G166489 |argl| (CDR #1#)) (|a| NIL)) ((OR (ATOM #1#) (PROGN (SETQ |a| (CAR #1#)) NIL)) (NREVERSE0 #0#)) (SEQ (EXIT (SETQ #0# (CONS (|parseTypeEvaluate| |a|) #0#))))))))) ((BOOT-EQUAL |op| (QUOTE |Union|)) (COND ((|isTaggedUnion| |form|) (CONS |op| (PROG (#2=#:G166500) (SPADLET #2# NIL) (RETURN (DO ((#3=#:G166506 |argl| (CDR #3#)) (#4=#:G166457 NIL)) ((OR (ATOM #3#) (PROGN (SETQ #4# (CAR #3#)) NIL) (PROGN (PROGN (SPADLET |sel| (CADR #4#)) (SPADLET |type| (CADDR #4#)) #4#) NIL)) (NREVERSE0 #2#)) (SEQ (EXIT (SETQ #2# (CONS (CONS (QUOTE |:|) (CONS |sel| (CONS (|parseTypeEvaluate| |type|) NIL))) #2#))))))))) ((QUOTE T) (CONS |op| (PROG (#5=#:G166517) (SPADLET #5# NIL) (RETURN (DO ((#6=#:G166522 |argl| (CDR #6#)) (|a| NIL)) ((OR (ATOM #6#) (PROGN (SETQ |a| (CAR #6#)) NIL)) (NREVERSE0 #5#)) (SEQ (EXIT (SETQ #5# (CONS (|parseTypeEvaluate| |a|) #5#))))))))))) ((BOOT-EQUAL |op| (QUOTE |Record|)) (CONS |op| (PROG (#7=#:G166533) (SPADLET #7# NIL) (RETURN (DO ((#8=#:G166539 |argl| (CDR #8#)) (#9=#:G166462 NIL)) ((OR (ATOM #8#) (PROGN (SETQ #9# (CAR #8#)) NIL) (PROGN (PROGN (SPADLET |sel| (CADR #9#)) (SPADLET |type| (CADDR #9#)) #9#) NIL)) (NREVERSE0 #7#)) (SEQ (EXIT (SETQ #7# (CONS (CONS (QUOTE |:|) (CONS |sel| (CONS (|parseTypeEvaluate| |type|) NIL))) #7#))))))))) ((QUOTE T) (SPADLET |cmm| (SEQ (COND ((SPADLET |fn| (|constructor?| |op|)) (COND ((SPADLET |p| (|pathname| (CONS |fn| (CONS |$spadLibFT| (CONS "*" NIL))))) (EXIT (COND ((|isExistingFile| |p|) (|getConstructorModemap| (|abbreviation?| |fn|))) ((QUOTE T) NIL)))))) ((QUOTE T) NIL)))) (COND ((AND (PAIRP |cmm|) (PROGN (SPADLET |ISTMP#1| (QCAR |cmm|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (PROGN (SPADLET |argml| (QCDR |ISTMP#2|)) (QUOTE T))))))) (CONS |op| (|parseTypeEvaluateArgs| |argl| |argml|))) ((QUOTE T) (|throwKeyedMsg| (QUOTE S2IL0015) (CONS |op| NIL))))))))) ((QUOTE T) |form|)))))) ; ;parseTypeEvaluateArgs(argl,argml) == ; [argVal for arg in argl for md in argml for i in 1..] where argVal == @@ -3907,7 +3907,7 @@ parse ;;; *** |specialModeTran| REDEFINED -(DEFUN |specialModeTran| (|form|) (PROG (|op| |argl| |sop| |s0| |argKey| |numArgs| |zeroOrOne| |isDmp| |LETTMP#1| |vl| |extraDomain| |s3| |isUpOrMp| |domainPart| |argPart| |n| |polyForm|) (RETURN (SEQ (COND ((AND (PAIRP |form|) (PROGN (SPADLET |op| (QCAR |form|)) (SPADLET |argl| (QCDR |form|)) (QUOTE T))) (COND ((NULL (ATOM |op|)) |form|) ((BOOT-EQUAL (SPADLET |s0| (ELT (SPADLET |sop| (PNAME |op|)) 0)) (QUOTE *)) (SPADLET |n| (|#| |sop|)) (COND ((EQL |n| 1) |form|) ((QUOTE T) (SPADLET |argKey| (ELT |sop| 1)) (SPADLET |numArgs| (SPADDIFFERENCE (|#| |argl|) (COND ((BOOT-EQUAL |argKey| (QUOTE |1|)) 1) ((QUOTE T) 0)))) (SPADLET |zeroOrOne| (OR (BOOT-EQUAL |argKey| (QUOTE |0|)) (BOOT-EQUAL |argKey| (QUOTE |1|)))) (SPADLET |isDmp| (COND ((> 10 |numArgs|) (AND (EQL |n| 6) (BOOT-EQUAL (MAKESTRING "DMP") (SUBSTRING |sop| 3 3)) |zeroOrOne|)) ((QUOTE T) (AND (EQL |n| 7) (BOOT-EQUAL (MAKESTRING "DMP") (SUBSTRING |sop| 4 3)) |zeroOrOne|)))) (COND (|isDmp| (COND ((BOOT-EQUAL |argKey| (QUOTE |0|)) (SPADLET |extraDomain| |$EmptyMode|) (SPADLET |vl| |argl|)) ((QUOTE T) (SPADLET |LETTMP#1| (REVERSE |argl|)) (SPADLET |extraDomain| (CAR |LETTMP#1|)) (SPADLET |vl| (NREVERSE (CDR |LETTMP#1|))) |argl|)) (CONS (QUOTE |DistributedMultivariatePolynomial|) (CONS (CONS (QUOTE |construct|) |vl|) (CONS (|specialModeTran| |extraDomain|) NIL)))) ((AND (EQL |n| 4) (BOOT-EQUAL (SPADLET |s3| (ELT |sop| 3)) (QUOTE M)) |zeroOrOne|) (|specialModeTran| (PROGN (SPADLET |extraDomain| (COND ((BOOT-EQUAL |argKey| (QUOTE |0|)) (CONS |$EmptyMode| NIL)) ((QUOTE T) NIL))) (COND ((EQL (SPADLET |n| (PARSE-INTEGER (PNAME (ELT |sop| 2)))) 1) (CONS (QUOTE |SquareMatrix|) (APPEND |argl| |extraDomain|))) ((EQL |n| 2) (CONS (QUOTE |RectangularMatrix|) (APPEND |argl| |extraDomain|))) ((QUOTE T) |form|))))) ((QUOTE T) (SPADLET |isUpOrMp| (COND ((> 10 |numArgs|) (OR (AND (EQL |n| 4) (BOOT-EQUAL (SPADLET |s3| (ELT |sop| 3)) (QUOTE P)) |zeroOrOne|) (AND (EQL |n| 5) (BOOT-EQUAL (SPADLET |s3| (ELT |sop| 3)) (QUOTE R)) (BOOT-EQUAL (ELT |sop| 4) (QUOTE F)) |zeroOrOne|))) ((QUOTE T) (OR (AND (EQL |n| 5) (BOOT-EQUAL (SPADLET |s3| (ELT |sop| 4)) (QUOTE P)) |zeroOrOne|) (AND (EQL |n| 6) (BOOT-EQUAL (SPADLET |s3| (ELT |sop| 4)) (QUOTE R)) (BOOT-EQUAL (ELT |sop| 5) (QUOTE F)) |zeroOrOne|))))) (COND (|isUpOrMp| (SPADLET |polyForm| (PROGN (SPADLET |domainPart| (COND ((BOOT-EQUAL |argKey| (QUOTE |0|)) |$EmptyMode|) ((QUOTE T) (|last| |argl|)))) (SPADLET |argPart| (COND ((BOOT-EQUAL |argKey| (QUOTE |0|)) |argl|) ((QUOTE T) (DROP (SPADDIFFERENCE 1) |argl|)))) (COND ((AND (> 10 |numArgs|) (EQL (SPADLET |n| (PARSE-INTEGER (PNAME (ELT |sop| 2)))) 1)) (CONS (QUOTE UP) (APPEND |argPart| (CONS |domainPart| NIL)))) ((QUOTE T) (CONS (QUOTE MP) (CONS (CONS (QUOTE |construct|) |argPart|) (CONS |domainPart| NIL))))))) (|specialModeTran| (COND ((BOOT-EQUAL |s3| (QUOTE R)) (CONS |$QuotientField| (CONS |polyForm| NIL))) ((QUOTE T) |polyForm|)))) ((QUOTE T) (CONS (CAR |form|) (PROG (#0=#:G166626) (SPADLET #0# NIL) (RETURN (DO ((#1=#:G166631 (CDR |form|) (CDR #1#)) (|x| NIL)) ((OR (ATOM #1#) (PROGN (SETQ |x| (CAR #1#)) NIL)) (NREVERSE0 #0#)) (SEQ (EXIT (SETQ #0# (CONS (|specialModeTran| |x|) #0#))))))))))))))) ((QUOTE T) (CONS (CAR |form|) (PROG (#2=#:G166641) (SPADLET #2# NIL) (RETURN (DO ((#3=#:G166646 (CDR |form|) (CDR #3#)) (|x| NIL)) ((OR (ATOM #3#) (PROGN (SETQ |x| (CAR #3#)) NIL)) (NREVERSE0 #2#)) (SEQ (EXIT (SETQ #2# (CONS (|specialModeTran| |x|) #2#))))))))))) ((QUOTE T) |form|)))))) +(DEFUN |specialModeTran| (|form|) (PROG (|op| |argl| |sop| |s0| |argKey| |numArgs| |zeroOrOne| |isDmp| |LETTMP#1| |vl| |extraDomain| |s3| |isUpOrMp| |domainPart| |argPart| |n| |polyForm|) (RETURN (SEQ (COND ((AND (PAIRP |form|) (PROGN (SPADLET |op| (QCAR |form|)) (SPADLET |argl| (QCDR |form|)) (QUOTE T))) (COND ((NULL (ATOM |op|)) |form|) ((BOOT-EQUAL (SPADLET |s0| (ELT (SPADLET |sop| (PNAME |op|)) 0)) (QUOTE *)) (SPADLET |n| (|#| |sop|)) (COND ((EQL |n| 1) |form|) ((QUOTE T) (SPADLET |argKey| (ELT |sop| 1)) (SPADLET |numArgs| (SPADDIFFERENCE (|#| |argl|) (COND ((BOOT-EQUAL |argKey| (QUOTE |1|)) 1) ((QUOTE T) 0)))) (SPADLET |zeroOrOne| (OR (BOOT-EQUAL |argKey| (QUOTE |0|)) (BOOT-EQUAL |argKey| (QUOTE |1|)))) (SPADLET |isDmp| (COND ((> 10 |numArgs|) (AND (EQL |n| 6) (BOOT-EQUAL "DMP" (SUBSTRING |sop| 3 3)) |zeroOrOne|)) ((QUOTE T) (AND (EQL |n| 7) (BOOT-EQUAL "DMP" (SUBSTRING |sop| 4 3)) |zeroOrOne|)))) (COND (|isDmp| (COND ((BOOT-EQUAL |argKey| (QUOTE |0|)) (SPADLET |extraDomain| |$EmptyMode|) (SPADLET |vl| |argl|)) ((QUOTE T) (SPADLET |LETTMP#1| (REVERSE |argl|)) (SPADLET |extraDomain| (CAR |LETTMP#1|)) (SPADLET |vl| (NREVERSE (CDR |LETTMP#1|))) |argl|)) (CONS (QUOTE |DistributedMultivariatePolynomial|) (CONS (CONS (QUOTE |construct|) |vl|) (CONS (|specialModeTran| |extraDomain|) NIL)))) ((AND (EQL |n| 4) (BOOT-EQUAL (SPADLET |s3| (ELT |sop| 3)) (QUOTE M)) |zeroOrOne|) (|specialModeTran| (PROGN (SPADLET |extraDomain| (COND ((BOOT-EQUAL |argKey| (QUOTE |0|)) (CONS |$EmptyMode| NIL)) ((QUOTE T) NIL))) (COND ((EQL (SPADLET |n| (PARSE-INTEGER (PNAME (ELT |sop| 2)))) 1) (CONS (QUOTE |SquareMatrix|) (APPEND |argl| |extraDomain|))) ((EQL |n| 2) (CONS (QUOTE |RectangularMatrix|) (APPEND |argl| |extraDomain|))) ((QUOTE T) |form|))))) ((QUOTE T) (SPADLET |isUpOrMp| (COND ((> 10 |numArgs|) (OR (AND (EQL |n| 4) (BOOT-EQUAL (SPADLET |s3| (ELT |sop| 3)) (QUOTE P)) |zeroOrOne|) (AND (EQL |n| 5) (BOOT-EQUAL (SPADLET |s3| (ELT |sop| 3)) (QUOTE R)) (BOOT-EQUAL (ELT |sop| 4) (QUOTE F)) |zeroOrOne|))) ((QUOTE T) (OR (AND (EQL |n| 5) (BOOT-EQUAL (SPADLET |s3| (ELT |sop| 4)) (QUOTE P)) |zeroOrOne|) (AND (EQL |n| 6) (BOOT-EQUAL (SPADLET |s3| (ELT |sop| 4)) (QUOTE R)) (BOOT-EQUAL (ELT |sop| 5) (QUOTE F)) |zeroOrOne|))))) (COND (|isUpOrMp| (SPADLET |polyForm| (PROGN (SPADLET |domainPart| (COND ((BOOT-EQUAL |argKey| (QUOTE |0|)) |$EmptyMode|) ((QUOTE T) (|last| |argl|)))) (SPADLET |argPart| (COND ((BOOT-EQUAL |argKey| (QUOTE |0|)) |argl|) ((QUOTE T) (DROP (SPADDIFFERENCE 1) |argl|)))) (COND ((AND (> 10 |numArgs|) (EQL (SPADLET |n| (PARSE-INTEGER (PNAME (ELT |sop| 2)))) 1)) (CONS (QUOTE UP) (APPEND |argPart| (CONS |domainPart| NIL)))) ((QUOTE T) (CONS (QUOTE MP) (CONS (CONS (QUOTE |construct|) |argPart|) (CONS |domainPart| NIL))))))) (|specialModeTran| (COND ((BOOT-EQUAL |s3| (QUOTE R)) (CONS |$QuotientField| (CONS |polyForm| NIL))) ((QUOTE T) |polyForm|)))) ((QUOTE T) (CONS (CAR |form|) (PROG (#0=#:G166626) (SPADLET #0# NIL) (RETURN (DO ((#1=#:G166631 (CDR |form|) (CDR #1#)) (|x| NIL)) ((OR (ATOM #1#) (PROGN (SETQ |x| (CAR #1#)) NIL)) (NREVERSE0 #0#)) (SEQ (EXIT (SETQ #0# (CONS (|specialModeTran| |x|) #0#))))))))))))))) ((QUOTE T) (CONS (CAR |form|) (PROG (#2=#:G166641) (SPADLET #2# NIL) (RETURN (DO ((#3=#:G166646 (CDR |form|) (CDR #3#)) (|x| NIL)) ((OR (ATOM #3#) (PROGN (SETQ |x| (CAR #3#)) NIL)) (NREVERSE0 #2#)) (SEQ (EXIT (SETQ #2# (CONS (|specialModeTran| |x|) #2#))))))))))) ((QUOTE T) |form|)))))) ; ;parseHas [x,y] == ; if $InteractiveMode then @@ -3992,7 +3992,7 @@ parse ;;; *** |parseTranCheckForRecord| REDEFINED -(DEFUN |parseTranCheckForRecord| (|x| |op|) (PROG (|l| |ISTMP#1| |ISTMP#2|) (RETURN (SEQ (COND ((PROGN (SPADLET |ISTMP#1| (SPADLET |x| (|parseTran| |x|))) (AND (PAIRP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE |Record|)) (PROGN (SPADLET |l| (QCDR |ISTMP#1|)) (QUOTE T)))) (COND ((PROG (#0=#:G166937) (SPADLET #0# NIL) (RETURN (DO ((#1=#:G166944 NIL #0#) (#2=#:G166945 |l| (CDR #2#)) (|y| NIL)) ((OR #1# (ATOM #2#) (PROGN (SETQ |y| (CAR #2#)) NIL)) #0#) (SEQ (EXIT (COND ((NULL (AND (PAIRP |y|) (EQ (QCAR |y|) (QUOTE |:|)) (PROGN (SPADLET |ISTMP#1| (QCDR |y|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL))))))) (SETQ #0# (OR #0# |y|))))))))) (|postError| (CONS (MAKESTRING " Constructor") (APPEND (|bright| |x|) (CONS (MAKESTRING "has missing label") NIL))))) ((QUOTE T) |x|))) ((QUOTE T) |x|)))))) +(DEFUN |parseTranCheckForRecord| (|x| |op|) (PROG (|l| |ISTMP#1| |ISTMP#2|) (RETURN (SEQ (COND ((PROGN (SPADLET |ISTMP#1| (SPADLET |x| (|parseTran| |x|))) (AND (PAIRP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE |Record|)) (PROGN (SPADLET |l| (QCDR |ISTMP#1|)) (QUOTE T)))) (COND ((PROG (#0=#:G166937) (SPADLET #0# NIL) (RETURN (DO ((#1=#:G166944 NIL #0#) (#2=#:G166945 |l| (CDR #2#)) (|y| NIL)) ((OR #1# (ATOM #2#) (PROGN (SETQ |y| (CAR #2#)) NIL)) #0#) (SEQ (EXIT (COND ((NULL (AND (PAIRP |y|) (EQ (QCAR |y|) (QUOTE |:|)) (PROGN (SPADLET |ISTMP#1| (QCDR |y|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL))))))) (SETQ #0# (OR #0# |y|))))))))) (|postError| (CONS " Constructor" (APPEND (|bright| |x|) (CONS "has missing label" NIL))))) ((QUOTE T) |x|))) ((QUOTE T) |x|)))))) ; ;parseCases [expr,ifClause] == ; casefn(expr,ifClause) where @@ -4003,7 +4003,7 @@ parse ;;; *** |parseCases,casefn| REDEFINED -(DEFUN |parseCases,casefn| (|x| |ifExpr|) (PROG (|ISTMP#1| |a| |ISTMP#2| |b| |ISTMP#3| |c|) (RETURN (SEQ (IF (BOOT-EQUAL |ifExpr| (QUOTE |noBranch|)) (EXIT (CONS (QUOTE |ifClauseError|) (CONS |x| NIL)))) (IF (AND (PAIRP |ifExpr|) (EQ (QCAR |ifExpr|) (QUOTE IF)) (PROGN (SPADLET |ISTMP#1| (QCDR |ifExpr|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (PROGN (SPADLET |b| (QCAR |ISTMP#2|)) (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) (AND (PAIRP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN (SPADLET |c| (QCAR |ISTMP#3|)) (QUOTE T))))))))) (EXIT (CONS (QUOTE IF) (CONS (|parseTran| |a|) (CONS (|parseTran| |b|) (CONS (|parseCases,casefn| |x| |c|) NIL)))))) (EXIT (|postError| (CONS (MAKESTRING " CASES format error: cases ") (CONS |x| (CONS (QUOTE | of |) (CONS |ifExpr| NIL)))))))))) +(DEFUN |parseCases,casefn| (|x| |ifExpr|) (PROG (|ISTMP#1| |a| |ISTMP#2| |b| |ISTMP#3| |c|) (RETURN (SEQ (IF (BOOT-EQUAL |ifExpr| (QUOTE |noBranch|)) (EXIT (CONS (QUOTE |ifClauseError|) (CONS |x| NIL)))) (IF (AND (PAIRP |ifExpr|) (EQ (QCAR |ifExpr|) (QUOTE IF)) (PROGN (SPADLET |ISTMP#1| (QCDR |ifExpr|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (PROGN (SPADLET |b| (QCAR |ISTMP#2|)) (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) (AND (PAIRP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN (SPADLET |c| (QCAR |ISTMP#3|)) (QUOTE T))))))))) (EXIT (CONS (QUOTE IF) (CONS (|parseTran| |a|) (CONS (|parseTran| |b|) (CONS (|parseCases,casefn| |x| |c|) NIL)))))) (EXIT (|postError| (CONS " CASES format error: cases " (CONS |x| (CONS (QUOTE | of |) (CONS |ifExpr| NIL)))))))))) ;;; *** |parseCases| REDEFINED @@ -4145,7 +4145,7 @@ parse ;;; *** |parseExit| REDEFINED -(DEFUN |parseExit| (#0=#:G167157) (PROG (|a| |b|) (RETURN (PROGN (SPADLET |a| (CAR #0#)) (SPADLET |b| (CDR #0#)) (SPADLET |a| (|parseTran| |a|)) (SPADLET |b| (|parseTran| |b|)) (COND (|b| (COND ((NULL (integerp |a|)) (MOAN (MAKESTRING "first arg ") |a| (MAKESTRING " for exit must be integer")) (CONS (QUOTE |exit|) (CONS 1 (CONS |a| NIL)))) ((QUOTE T) (CONS (QUOTE |exit|) (CONS |a| |b|))))) ((QUOTE T) (CONS (QUOTE |exit|) (CONS 1 (CONS |a| NIL))))))))) +(DEFUN |parseExit| (#0=#:G167157) (PROG (|a| |b|) (RETURN (PROGN (SPADLET |a| (CAR #0#)) (SPADLET |b| (CDR #0#)) (SPADLET |a| (|parseTran| |a|)) (SPADLET |b| (|parseTran| |b|)) (COND (|b| (COND ((NULL (integerp |a|)) (MOAN "first arg " |a| " for exit must be integer") (CONS (QUOTE |exit|) (CONS 1 (CONS |a| NIL)))) ((QUOTE T) (CONS (QUOTE |exit|) (CONS |a| |b|))))) ((QUOTE T) (CONS (QUOTE |exit|) (CONS 1 (CONS |a| NIL))))))))) ; ;parseLeave [a,:b] == ; a:= parseTran a @@ -4158,7 +4158,7 @@ parse ;;; *** |parseLeave| REDEFINED -(DEFUN |parseLeave| (#0=#:G167176) (PROG (|a| |b|) (RETURN (PROGN (SPADLET |a| (CAR #0#)) (SPADLET |b| (CDR #0#)) (SPADLET |a| (|parseTran| |a|)) (SPADLET |b| (|parseTran| |b|)) (COND (|b| (COND ((NULL (integerp |a|)) (MOAN (MAKESTRING "first arg ") |a| (MAKESTRING " for 'leave' must be integer")) (CONS (QUOTE |leave|) (CONS 1 (CONS |a| NIL)))) ((QUOTE T) (CONS (QUOTE |leave|) (CONS |a| |b|))))) ((QUOTE T) (CONS (QUOTE |leave|) (CONS 1 (CONS |a| NIL))))))))) +(DEFUN |parseLeave| (#0=#:G167176) (PROG (|a| |b|) (RETURN (PROGN (SPADLET |a| (CAR #0#)) (SPADLET |b| (CDR #0#)) (SPADLET |a| (|parseTran| |a|)) (SPADLET |b| (|parseTran| |b|)) (COND (|b| (COND ((NULL (integerp |a|)) (MOAN "first arg " |a| " for 'leave' must be integer") (CONS (QUOTE |leave|) (CONS 1 (CONS |a| NIL)))) ((QUOTE T) (CONS (QUOTE |leave|) (CONS |a| |b|))))) ((QUOTE T) (CONS (QUOTE |leave|) (CONS 1 (CONS |a| NIL))))))))) ; ;parseReturn [a,:b] == ; a:= parseTran a @@ -4169,7 +4169,7 @@ parse ;;; *** |parseReturn| REDEFINED -(DEFUN |parseReturn| (#0=#:G167194) (PROG (|a| |b|) (RETURN (PROGN (SPADLET |a| (CAR #0#)) (SPADLET |b| (CDR #0#)) (SPADLET |a| (|parseTran| |a|)) (SPADLET |b| (|parseTran| |b|)) (COND (|b| (COND ((NEQUAL |a| 1) (MOAN (MAKESTRING "multiple-level 'return' not allowed")))) (CONS (QUOTE |return|) (CONS 1 |b|))) ((QUOTE T) (CONS (QUOTE |return|) (CONS 1 (CONS |a| NIL))))))))) +(DEFUN |parseReturn| (#0=#:G167194) (PROG (|a| |b|) (RETURN (PROGN (SPADLET |a| (CAR #0#)) (SPADLET |b| (CDR #0#)) (SPADLET |a| (|parseTran| |a|)) (SPADLET |b| (|parseTran| |b|)) (COND (|b| (COND ((NEQUAL |a| 1) (MOAN "multiple-level 'return' not allowed"))) (CONS (QUOTE |return|) (CONS 1 |b|))) ((QUOTE T) (CONS (QUOTE |return|) (CONS 1 (CONS |a| NIL))))))))) ; ;parseJoin l == ; ['Join,:fn parseTranList l] where @@ -4195,7 +4195,7 @@ parse ;;; *** |parseInBy| REDEFINED -(DEFUN |parseInBy| (#0=#:G167281) (PROG (|n| |u| |ISTMP#1| |ISTMP#2| |i| |ISTMP#3| |a| |ISTMP#4| |j| |r| |inc|) (RETURN (PROGN (SPADLET |i| (CAR #0#)) (SPADLET |n| (CADR #0#)) (SPADLET |inc| (CADDR #0#)) (COND ((NULL (PROGN (SPADLET |ISTMP#1| (SPADLET |u| (|parseIn| (CONS |i| (CONS |n| NIL))))) (AND (PAIRP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE STEP)) (PROGN (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (PROGN (SPADLET |i| (QCAR |ISTMP#2|)) (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) (AND (PAIRP |ISTMP#3|) (PROGN (SPADLET |a| (QCAR |ISTMP#3|)) (SPADLET |ISTMP#4| (QCDR |ISTMP#3|)) (AND (PAIRP |ISTMP#4|) (PROGN (SPADLET |j| (QCAR |ISTMP#4|)) (SPADLET |r| (QCDR |ISTMP#4|)) (QUOTE T))))))))))) (|postError| (CONS (QUOTE | You cannot use|) (APPEND (|bright| (MAKESTRING "by")) (CONS (MAKESTRING "except for an explicitly indexed sequence.") NIL))))) ((QUOTE T) (SPADLET |inc| (|parseTran| |inc|)) (CONS (QUOTE STEP) (CONS |i| (CONS |a| (CONS (|parseTran| |inc|) |r|)))))))))) +(DEFUN |parseInBy| (#0=#:G167281) (PROG (|n| |u| |ISTMP#1| |ISTMP#2| |i| |ISTMP#3| |a| |ISTMP#4| |j| |r| |inc|) (RETURN (PROGN (SPADLET |i| (CAR #0#)) (SPADLET |n| (CADR #0#)) (SPADLET |inc| (CADDR #0#)) (COND ((NULL (PROGN (SPADLET |ISTMP#1| (SPADLET |u| (|parseIn| (CONS |i| (CONS |n| NIL))))) (AND (PAIRP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE STEP)) (PROGN (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (PROGN (SPADLET |i| (QCAR |ISTMP#2|)) (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) (AND (PAIRP |ISTMP#3|) (PROGN (SPADLET |a| (QCAR |ISTMP#3|)) (SPADLET |ISTMP#4| (QCDR |ISTMP#3|)) (AND (PAIRP |ISTMP#4|) (PROGN (SPADLET |j| (QCAR |ISTMP#4|)) (SPADLET |r| (QCDR |ISTMP#4|)) (QUOTE T))))))))))) (|postError| (CONS (QUOTE | You cannot use|) (APPEND (|bright| "by") (CONS "except for an explicitly indexed sequence." NIL))))) ((QUOTE T) (SPADLET |inc| (|parseTran| |inc|)) (CONS (QUOTE STEP) (CONS |i| (CONS |a| (CONS (|parseTran| |inc|) |r|)))))))))) ; ;parseSegment p == ; p is [a,b] => @@ -4222,7 +4222,7 @@ parse ;;; *** |parseIn| REDEFINED -(DEFUN |parseIn| (#0=#:G167419) (PROG (|i| |n| |ISTMP#2| |ISTMP#3| |a| |ISTMP#4| |b| |ISTMP#1| |s|) (RETURN (PROGN (SPADLET |i| (CAR #0#)) (SPADLET |n| (CADR #0#)) (SPADLET |i| (|parseTran| |i|)) (SPADLET |n| (|parseTran| |n|)) (COND ((AND (PAIRP |n|) (EQ (QCAR |n|) (QUOTE SEGMENT)) (PROGN (SPADLET |ISTMP#1| (QCDR |n|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) (QUOTE T))))) (CONS (QUOTE STEP) (CONS |i| (CONS |a| (CONS 1 NIL))))) ((AND (PAIRP |n|) (EQ (QCAR |n|) (QUOTE |reverse|)) (PROGN (SPADLET |ISTMP#1| (QCDR |n|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) (QUOTE SEGMENT)) (PROGN (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) (AND (PAIRP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN (SPADLET |a| (QCAR |ISTMP#3|)) (QUOTE T))))))))) (|postError| (CONS (MAKESTRING " You cannot reverse an infinite sequence.") NIL))) ((AND (PAIRP |n|) (EQ (QCAR |n|) (QUOTE SEGMENT)) (PROGN (SPADLET |ISTMP#1| (QCDR |n|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |b| (QCAR |ISTMP#2|)) (QUOTE T))))))) (COND (|b| (CONS (QUOTE STEP) (CONS |i| (CONS |a| (CONS 1 (CONS |b| NIL)))))) ((QUOTE T) (CONS (QUOTE STEP) (CONS |i| (CONS |a| (CONS 1 NIL))))))) ((AND (PAIRP |n|) (EQ (QCAR |n|) (QUOTE |reverse|)) (PROGN (SPADLET |ISTMP#1| (QCDR |n|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) (QUOTE SEGMENT)) (PROGN (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) (AND (PAIRP |ISTMP#3|) (PROGN (SPADLET |a| (QCAR |ISTMP#3|)) (SPADLET |ISTMP#4| (QCDR |ISTMP#3|)) (AND (PAIRP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN (SPADLET |b| (QCAR |ISTMP#4|)) (QUOTE T))))))))))) (COND (|b| (CONS (QUOTE STEP) (CONS |i| (CONS |b| (CONS (SPADDIFFERENCE 1) (CONS |a| NIL)))))) ((QUOTE T) (|postError| (CONS (MAKESTRING " You cannot reverse an infinite sequence.") NIL))))) ((AND (PAIRP |n|) (EQ (QCAR |n|) (QUOTE |tails|)) (PROGN (SPADLET |ISTMP#1| (QCDR |n|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |s| (QCAR |ISTMP#1|)) (QUOTE T))))) (CONS (QUOTE ON) (CONS |i| (CONS |s| NIL)))) ((QUOTE T) (CONS (QUOTE IN) (CONS |i| (CONS |n| NIL))))))))) +(DEFUN |parseIn| (#0=#:G167419) (PROG (|i| |n| |ISTMP#2| |ISTMP#3| |a| |ISTMP#4| |b| |ISTMP#1| |s|) (RETURN (PROGN (SPADLET |i| (CAR #0#)) (SPADLET |n| (CADR #0#)) (SPADLET |i| (|parseTran| |i|)) (SPADLET |n| (|parseTran| |n|)) (COND ((AND (PAIRP |n|) (EQ (QCAR |n|) (QUOTE SEGMENT)) (PROGN (SPADLET |ISTMP#1| (QCDR |n|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) (QUOTE T))))) (CONS (QUOTE STEP) (CONS |i| (CONS |a| (CONS 1 NIL))))) ((AND (PAIRP |n|) (EQ (QCAR |n|) (QUOTE |reverse|)) (PROGN (SPADLET |ISTMP#1| (QCDR |n|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) (QUOTE SEGMENT)) (PROGN (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) (AND (PAIRP |ISTMP#3|) (EQ (QCDR |ISTMP#3|) NIL) (PROGN (SPADLET |a| (QCAR |ISTMP#3|)) (QUOTE T))))))))) (|postError| (CONS " You cannot reverse an infinite sequence." NIL))) ((AND (PAIRP |n|) (EQ (QCAR |n|) (QUOTE SEGMENT)) (PROGN (SPADLET |ISTMP#1| (QCDR |n|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |a| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |b| (QCAR |ISTMP#2|)) (QUOTE T))))))) (COND (|b| (CONS (QUOTE STEP) (CONS |i| (CONS |a| (CONS 1 (CONS |b| NIL)))))) ((QUOTE T) (CONS (QUOTE STEP) (CONS |i| (CONS |a| (CONS 1 NIL))))))) ((AND (PAIRP |n|) (EQ (QCAR |n|) (QUOTE |reverse|)) (PROGN (SPADLET |ISTMP#1| (QCDR |n|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) (QUOTE SEGMENT)) (PROGN (SPADLET |ISTMP#3| (QCDR |ISTMP#2|)) (AND (PAIRP |ISTMP#3|) (PROGN (SPADLET |a| (QCAR |ISTMP#3|)) (SPADLET |ISTMP#4| (QCDR |ISTMP#3|)) (AND (PAIRP |ISTMP#4|) (EQ (QCDR |ISTMP#4|) NIL) (PROGN (SPADLET |b| (QCAR |ISTMP#4|)) (QUOTE T))))))))))) (COND (|b| (CONS (QUOTE STEP) (CONS |i| (CONS |b| (CONS (SPADDIFFERENCE 1) (CONS |a| NIL)))))) ((QUOTE T) (|postError| (CONS " You cannot reverse an infinite sequence." NIL))))) ((AND (PAIRP |n|) (EQ (QCAR |n|) (QUOTE |tails|)) (PROGN (SPADLET |ISTMP#1| (QCDR |n|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |s| (QCAR |ISTMP#1|)) (QUOTE T))))) (CONS (QUOTE ON) (CONS |i| (CONS |s| NIL)))) ((QUOTE T) (CONS (QUOTE IN) (CONS |i| (CONS |n| NIL))))))))) ; ;parseIf t == ; t isnt [p,a,b] => t @@ -4272,7 +4272,7 @@ parse ;;; *** |parseSeq| REDEFINED -(DEFUN |parseSeq| (|l|) (PROG (|ISTMP#1| |ISTMP#2|) (RETURN (COND ((NULL (AND (PAIRP |l|) (PROGN (SPADLET |ISTMP#1| (REVERSE |l|)) (QUOTE T)) (PAIRP |ISTMP#1|) (PROGN (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) (QUOTE |exit|)))))) (|postError| (CONS (MAKESTRING " Invalid ending to block: ") (CONS (|last| |l|) NIL)))) ((QUOTE T) (|transSeq| (|mapInto| |l| (QUOTE |parseTran|)))))))) +(DEFUN |parseSeq| (|l|) (PROG (|ISTMP#1| |ISTMP#2|) (RETURN (COND ((NULL (AND (PAIRP |l|) (PROGN (SPADLET |ISTMP#1| (REVERSE |l|)) (QUOTE T)) (PAIRP |ISTMP#1|) (PROGN (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) (QUOTE |exit|)))))) (|postError| (CONS " Invalid ending to block: " (CONS (|last| |l|) NIL)))) ((QUOTE T) (|transSeq| (|mapInto| |l| (QUOTE |parseTran|)))))))) ; ;transSeq l == ; null l => nil @@ -4395,7 +4395,7 @@ postpar ;;; *** |displayPreCompilationErrors| REDEFINED -(DEFUN |displayPreCompilationErrors| NIL (PROG (|n| |errors| |heading|) (RETURN (SEQ (PROGN (SPADLET |n| (|#| (SPADLET |$postStack| (REMDUP (NREVERSE |$postStack|))))) (COND ((EQL |n| 0) NIL) ((QUOTE T) (SPADLET |errors| (COND ((> |n| 1) (MAKESTRING "errors")) ((QUOTE T) (MAKESTRING "error")))) (COND (|$InteractiveMode| (|sayBrightly| (CONS (MAKESTRING " Semantic ") (CONS |errors| (CONS (MAKESTRING " detected: ") NIL))))) ((QUOTE T) (SPADLET |heading| (COND ((NEQUAL |$topOp| (QUOTE |$topOp|)) (CONS (MAKESTRING " ") (CONS |$topOp| (CONS (MAKESTRING " has") NIL)))) ((QUOTE T) (CONS (MAKESTRING " You have") NIL)))) (|sayBrightly| (APPEND |heading| (CONS (QUOTE |%b|) (CONS |n| (CONS (QUOTE |%d|) (CONS (MAKESTRING "precompilation ") (CONS |errors| (CONS (MAKESTRING ":") NIL)))))))))) (COND ((> |n| 1) (DO ((#0=#:G166154 |$postStack| (CDR #0#)) (|x| NIL) (|i| 1 (QSADD1 |i|))) ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL)) NIL) (SEQ (EXIT (|sayMath| (CONS (MAKESTRING " ") (CONS |i| (CONS (MAKESTRING ") ") |x|)))))))) ((QUOTE T) (|sayMath| (CONS (MAKESTRING " ") (CAR |$postStack|))))) (TERPRI)))))))) +(DEFUN |displayPreCompilationErrors| NIL (PROG (|n| |errors| |heading|) (RETURN (SEQ (PROGN (SPADLET |n| (|#| (SPADLET |$postStack| (REMDUP (NREVERSE |$postStack|))))) (COND ((EQL |n| 0) NIL) ((QUOTE T) (SPADLET |errors| (COND ((> |n| 1) "errors") ((QUOTE T) "error"))) (COND (|$InteractiveMode| (|sayBrightly| (CONS " Semantic " (CONS |errors| (CONS " detected: " NIL))))) ((QUOTE T) (SPADLET |heading| (COND ((NEQUAL |$topOp| (QUOTE |$topOp|)) (CONS " " (CONS |$topOp| (CONS " has" NIL)))) ((QUOTE T) (CONS " You have" NIL)))) (|sayBrightly| (APPEND |heading| (CONS (QUOTE |%b|) (CONS |n| (CONS (QUOTE |%d|) (CONS "precompilation " (CONS |errors| (CONS ":" NIL)))))))))) (COND ((> |n| 1) (DO ((#0=#:G166154 |$postStack| (CDR #0#)) (|x| NIL) (|i| 1 (QSADD1 |i|))) ((OR (ATOM #0#) (PROGN (SETQ |x| (CAR #0#)) NIL)) NIL) (SEQ (EXIT (|sayMath| (CONS " " (CONS |i| (CONS ") " |x|)))))))) ((QUOTE T) (|sayMath| (CONS " " (CAR |$postStack|))))) (TERPRI)))))))) ;postTran x == ; atom x => ; postAtom x @@ -4437,14 +4437,14 @@ postpar ;;; *** |checkWarning| REDEFINED -(DEFUN |checkWarning| (|msg|) (|postError| (|concat| (MAKESTRING "Parsing error: ") |msg|))) +(DEFUN |checkWarning| (|msg|) (|postError| (|concat| "Parsing error: " |msg|))) ; ;checkWarningIndentation() == ; checkWarning ['"Apparent indentation error following",:bright "add"] ;;; *** |checkWarningIndentation| REDEFINED -(DEFUN |checkWarningIndentation| NIL (|checkWarning| (CONS (MAKESTRING "Apparent indentation error following") (|bright| (QUOTE |add|))))) +(DEFUN |checkWarningIndentation| NIL (|checkWarning| (CONS "Apparent indentation error following" (|bright| (QUOTE |add|))))) ;postCapsule x == ; x isnt [op,:.] => checkWarningIndentation() ; INTEGERP op or op = "==" => ['CAPSULE,postBlockItem x] @@ -4511,7 +4511,7 @@ postpar ;;; *** |postError| REDEFINED -(DEFUN |postError| (|msg|) (PROG (|xmsg|) (RETURN (PROGN (BUMPERRORCOUNT (QUOTE |precompilation|)) (SPADLET |xmsg| (COND ((AND (NEQUAL |$defOp| (QUOTE |$defOp|)) (NULL |InteractiveMode|)) (CONS |$defOp| (CONS (MAKESTRING ": ") |msg|))) ((QUOTE T) |msg|))) (SPADLET |$postStack| (CONS |xmsg| |$postStack|)) NIL)))) +(DEFUN |postError| (|msg|) (PROG (|xmsg|) (RETURN (PROGN (BUMPERRORCOUNT (QUOTE |precompilation|)) (SPADLET |xmsg| (COND ((AND (NEQUAL |$defOp| (QUOTE |$defOp|)) (NULL |InteractiveMode|)) (CONS |$defOp| (CONS ": " |msg|))) ((QUOTE T) |msg|))) (SPADLET |$postStack| (CONS |xmsg| |$postStack|)) NIL)))) ;postMakeCons l == ; null l => 'nil ; l is [[":",a],:l'] => @@ -4620,7 +4620,7 @@ postpar ;;; *** |postDefArgs| REDEFINED -(DEFUN |postDefArgs| (|argl|) (PROG (|ISTMP#1| |ISTMP#2| |a| |b|) (RETURN (COND ((NULL |argl|) |argl|) ((AND (PAIRP |argl|) (PROGN (SPADLET |ISTMP#1| (QCAR |argl|)) (AND (PAIRP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE |:|)) (PROGN (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |a| (QCAR |ISTMP#2|)) (QUOTE T)))))) (PROGN (SPADLET |b| (QCDR |argl|)) (QUOTE T))) (COND (|b| (|postError| (CONS (MAKESTRING " Argument") (APPEND (|bright| |a|) (CONS (MAKESTRING "of indefinite length must be last") NIL))))) ((OR (ATOM |a|) (AND (PAIRP |a|) (EQ (QCAR |a|) (QUOTE QUOTE)))) |a|) ((QUOTE T) (|postError| (CONS (MAKESTRING " Argument") (APPEND (|bright| |a|) (CONS (MAKESTRING "of indefinite length must be a name") NIL))))))) ((QUOTE T) (CONS (CAR |argl|) (|postDefArgs| (CDR |argl|)))))))) +(DEFUN |postDefArgs| (|argl|) (PROG (|ISTMP#1| |ISTMP#2| |a| |b|) (RETURN (COND ((NULL |argl|) |argl|) ((AND (PAIRP |argl|) (PROGN (SPADLET |ISTMP#1| (QCAR |argl|)) (AND (PAIRP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE |:|)) (PROGN (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |a| (QCAR |ISTMP#2|)) (QUOTE T)))))) (PROGN (SPADLET |b| (QCDR |argl|)) (QUOTE T))) (COND (|b| (|postError| (CONS " Argument" (APPEND (|bright| |a|) (CONS "of indefinite length must be last" NIL))))) ((OR (ATOM |a|) (AND (PAIRP |a|) (EQ (QCAR |a|) (QUOTE QUOTE)))) |a|) ((QUOTE T) (|postError| (CONS " Argument" (APPEND (|bright| |a|) (CONS "of indefinite length must be a name" NIL))))))) ((QUOTE T) (CONS (CAR |argl|) (|postDefArgs| (CDR |argl|)))))))) ;postMDef(t) == ; [.,lhs,rhs] := t ; $InteractiveMode and not $BOOT => @@ -4684,7 +4684,7 @@ postpar ;;; *** |postForm| REDEFINED -(DEFUN |postForm| (|u|) (PROG (|op| |argl| |argl'| |l| |numOfArgs| |op'| |x| |ISTMP#1| |ISTMP#2| |y|) (RETURN (SEQ (PROGN (SPADLET |op| (CAR |u|)) (SPADLET |argl| (CDR |u|)) (SPADLET |x| (COND ((ATOM |op|) (SPADLET |argl'| (|postTranList| |argl|)) (SPADLET |op'| (SEQ (EXIT |op|) (COND ($BOOT (EXIT |op|))) (COND ((OR (GETL |op| (QUOTE |Led|)) (GETL |op| (QUOTE |Nud|)) (BOOT-EQUAL |op| (QUOTE IN))) (EXIT |op|))) (SPADLET |numOfArgs| (COND ((AND (PAIRP |argl'|) (EQ (QCDR |argl'|) NIL) (PROGN (SPADLET |ISTMP#1| (QCAR |argl'|)) (AND (PAIRP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE |@Tuple|)) (PROGN (SPADLET |l| (QCDR |ISTMP#1|)) (QUOTE T))))) (|#| |l|)) ((QUOTE T) 1))) (INTERNL (QUOTE *) (STRINGIMAGE |numOfArgs|) (PNAME |op|)))) (CONS |op'| |argl'|)) ((AND (PAIRP |op|) (EQ (QCAR |op|) (QUOTE |Scripts|))) (APPEND (|postTran| |op|) (|postTranList| |argl|))) ((QUOTE T) (SPADLET |u| (|postTranList| |u|)) (COND ((AND (PAIRP |u|) (PROGN (SPADLET |ISTMP#1| (QCAR |u|)) (AND (PAIRP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE |@Tuple|))))) (|postError| (CONS (MAKESTRING " ") (APPEND (|bright| |u|) (CONS (MAKESTRING "is illegal because tuples cannot be applied!") (CONS (QUOTE |%l|) (CONS (MAKESTRING " Did you misuse infix dot?") NIL)))))))) |u|))) (COND ((AND (PAIRP |x|) (PROGN (SPADLET |ISTMP#1| (QCDR |x|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) (QUOTE |@Tuple|)) (PROGN (SPADLET |y| (QCDR |ISTMP#2|)) (QUOTE T))))))) (CONS (CAR |x|) |y|)) ((QUOTE T) |x|))))))) +(DEFUN |postForm| (|u|) (PROG (|op| |argl| |argl'| |l| |numOfArgs| |op'| |x| |ISTMP#1| |ISTMP#2| |y|) (RETURN (SEQ (PROGN (SPADLET |op| (CAR |u|)) (SPADLET |argl| (CDR |u|)) (SPADLET |x| (COND ((ATOM |op|) (SPADLET |argl'| (|postTranList| |argl|)) (SPADLET |op'| (SEQ (EXIT |op|) (COND ($BOOT (EXIT |op|))) (COND ((OR (GETL |op| (QUOTE |Led|)) (GETL |op| (QUOTE |Nud|)) (BOOT-EQUAL |op| (QUOTE IN))) (EXIT |op|))) (SPADLET |numOfArgs| (COND ((AND (PAIRP |argl'|) (EQ (QCDR |argl'|) NIL) (PROGN (SPADLET |ISTMP#1| (QCAR |argl'|)) (AND (PAIRP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE |@Tuple|)) (PROGN (SPADLET |l| (QCDR |ISTMP#1|)) (QUOTE T))))) (|#| |l|)) ((QUOTE T) 1))) (INTERNL (QUOTE *) (STRINGIMAGE |numOfArgs|) (PNAME |op|)))) (CONS |op'| |argl'|)) ((AND (PAIRP |op|) (EQ (QCAR |op|) (QUOTE |Scripts|))) (APPEND (|postTran| |op|) (|postTranList| |argl|))) ((QUOTE T) (SPADLET |u| (|postTranList| |u|)) (COND ((AND (PAIRP |u|) (PROGN (SPADLET |ISTMP#1| (QCAR |u|)) (AND (PAIRP |ISTMP#1|) (EQ (QCAR |ISTMP#1|) (QUOTE |@Tuple|))))) (|postError| (CONS " " (APPEND (|bright| |u|) (CONS "is illegal because tuples cannot be applied!" (CONS (QUOTE |%l|) (CONS " Did you misuse infix dot?" NIL)))))))) |u|))) (COND ((AND (PAIRP |x|) (PROGN (SPADLET |ISTMP#1| (QCDR |x|)) (AND (PAIRP |ISTMP#1|) (EQ (QCDR |ISTMP#1|) NIL) (PROGN (SPADLET |ISTMP#2| (QCAR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCAR |ISTMP#2|) (QUOTE |@Tuple|)) (PROGN (SPADLET |y| (QCDR |ISTMP#2|)) (QUOTE T))))))) (CONS (CAR |x|) |y|)) ((QUOTE T) |x|))))))) ;postQuote [.,a] == ['QUOTE,a] ;;; *** |postQuote| REDEFINED @@ -4710,7 +4710,7 @@ postpar ;;; *** |getScriptName| REDEFINED -(DEFUN |getScriptName| (|op| |a| |numberOfFunctionalArgs|) (PROGN (COND ((NULL (IDENTP |op|)) (|postError| (CONS (MAKESTRING " ") (CONS |op| (CONS (MAKESTRING " cannot have scripts") NIL)))))) (INTERNL (QUOTE *) (STRINGIMAGE |numberOfFunctionalArgs|) (|decodeScripts| |a|) (PNAME |op|)))) +(DEFUN |getScriptName| (|op| |a| |numberOfFunctionalArgs|) (PROGN (COND ((NULL (IDENTP |op|)) (|postError| (CONS " " (CONS |op| (CONS " cannot have scripts" NIL)))))) (INTERNL (QUOTE *) (STRINGIMAGE |numberOfFunctionalArgs|) (|decodeScripts| |a|) (PNAME |op|)))) ;postTranScripts a == ; a is ['PrefixSC,b] => postTranScripts b ; a is [";",:b] => "append"/[postTranScripts y for y in b] @@ -4792,7 +4792,7 @@ postpar ;;; *** |postSEGMENT| REDEFINED -(DEFUN |postSEGMENT| (#0=#:G167266) (PROG (|a| |b| |key|) (RETURN (PROGN (SPADLET |a| (CADR #0#)) (SPADLET |b| (CADDR #0#)) (SPADLET |key| (CONS |a| (CONS (MAKESTRING "..") (COND (|b| (CONS |b| NIL)) ((QUOTE T) NIL))))) (|postError| (CONS (MAKESTRING " Improper placement of segment") (|bright| |key|))))))) +(DEFUN |postSEGMENT| (#0=#:G167266) (PROG (|a| |b| |key|) (RETURN (PROGN (SPADLET |a| (CADR #0#)) (SPADLET |b| (CADDR #0#)) (SPADLET |key| (CONS |a| (CONS ".." (COND (|b| (CONS |b| NIL)) ((QUOTE T) NIL))))) (|postError| (CONS " Improper placement of segment" (|bright| |key|))))))) ;postCollect [constructOp,:m,x] == ; x is [['elt,D,'construct],:y] => ; postCollect [['elt,D,'COLLECT],:m,['construct,:y]] @@ -4840,14 +4840,14 @@ postpar ;;; *** |postin| REDEFINED -(DEFUN |postin| (|arg|) (PROG (|ISTMP#1| |i| |ISTMP#2| |seq|) (RETURN (COND ((NULL (AND (PAIRP |arg|) (EQ (QCAR |arg|) (QUOTE |in|)) (PROGN (SPADLET |ISTMP#1| (QCDR |arg|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |i| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |seq| (QCAR |ISTMP#2|)) (QUOTE T)))))))) (|systemErrorHere| (MAKESTRING "postin"))) ((QUOTE T) (CONS (QUOTE |in|) (CONS (|postTran| |i|) (CONS (|postInSeq| |seq|) NIL)))))))) +(DEFUN |postin| (|arg|) (PROG (|ISTMP#1| |i| |ISTMP#2| |seq|) (RETURN (COND ((NULL (AND (PAIRP |arg|) (EQ (QCAR |arg|) (QUOTE |in|)) (PROGN (SPADLET |ISTMP#1| (QCDR |arg|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |i| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |seq| (QCAR |ISTMP#2|)) (QUOTE T)))))))) (|systemErrorHere| "postin")) ((QUOTE T) (CONS (QUOTE |in|) (CONS (|postTran| |i|) (CONS (|postInSeq| |seq|) NIL)))))))) ;postIn arg == ; arg isnt ['IN,i,seq] => systemErrorHere '"postIn" ; ['IN,postTran i,postInSeq seq] ;;; *** |postIn| REDEFINED -(DEFUN |postIn| (|arg|) (PROG (|ISTMP#1| |i| |ISTMP#2| |seq|) (RETURN (COND ((NULL (AND (PAIRP |arg|) (EQ (QCAR |arg|) (QUOTE IN)) (PROGN (SPADLET |ISTMP#1| (QCDR |arg|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |i| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |seq| (QCAR |ISTMP#2|)) (QUOTE T)))))))) (|systemErrorHere| (MAKESTRING "postIn"))) ((QUOTE T) (CONS (QUOTE IN) (CONS (|postTran| |i|) (CONS (|postInSeq| |seq|) NIL)))))))) +(DEFUN |postIn| (|arg|) (PROG (|ISTMP#1| |i| |ISTMP#2| |seq|) (RETURN (COND ((NULL (AND (PAIRP |arg|) (EQ (QCAR |arg|) (QUOTE IN)) (PROGN (SPADLET |ISTMP#1| (QCDR |arg|)) (AND (PAIRP |ISTMP#1|) (PROGN (SPADLET |i| (QCAR |ISTMP#1|)) (SPADLET |ISTMP#2| (QCDR |ISTMP#1|)) (AND (PAIRP |ISTMP#2|) (EQ (QCDR |ISTMP#2|) NIL) (PROGN (SPADLET |seq| (QCAR |ISTMP#2|)) (QUOTE T)))))))) (|systemErrorHere| "postIn")) ((QUOTE T) (CONS (QUOTE IN) (CONS (|postTran| |i|) (CONS (|postInSeq| |seq|) NIL)))))))) ;postInSeq seq == ; seq is ['SEGMENT,p,q] => postTranSegment(p,q) ; seq is ['Tuple,:l] => tuple2List l diff --git a/src/interp/profile.lisp.pamphlet b/src/interp/profile.lisp.pamphlet index 48378fb..d1e5102 100644 --- a/src/interp/profile.lisp.pamphlet +++ b/src/interp/profile.lisp.pamphlet @@ -31,7 +31,7 @@ (SPADLET |outStream| (MAKE-OUTSTREAM (CONCAT (LIBSTREAM-DIRNAME |$libFile|) - (MAKESTRING "/info")))) + "/info"))) (SPADLET *PRINT-PRETTY* 'T) (PRINT-FULL (|profileTran| |$profileAlist|) |outStream|) (SHUT |outStream|))))) @@ -174,7 +174,7 @@ (|sayBrightly| |op|) (COND ((LASSOC '|arguments| |alist1|) - (|sayBrightly| (MAKESTRING " arguments")) + (|sayBrightly| " arguments") (DO ((G166171 (MSORT (LASSOC '|arguments| |alist1|)) (CDR G166171)) (G166147 NIL)) @@ -188,11 +188,11 @@ NIL)) NIL) (SEQ (EXIT (|sayBrightly| - (|concat| (MAKESTRING " ") |x| + (|concat| " " |x| '|: | (|prefix2String| |t|)))))))) (COND ((LASSOC '|locals| |alist1|) - (|sayBrightly| (MAKESTRING " locals")) + (|sayBrightly| " locals") (DO ((G166182 (MSORT (LASSOC '|locals| |alist1|)) (CDR G166182)) (G166152 NIL)) @@ -206,7 +206,7 @@ NIL)) NIL) (SEQ (EXIT (|sayBrightly| - (|concat| (MAKESTRING " ") |x| + (|concat| " " |x| '|: | (|prefix2String| |t|)))))))) (DO ((G166199 |alist1| (CDR G166199)) (G166162 NIL)) ((OR (ATOM G166199) @@ -222,7 +222,7 @@ ((NULL (MEMQ |con| '(|locals| |arguments|))) (PROGN (|sayBrightly| - (|concat| (MAKESTRING " ") + (|concat| " " (|prefix2String| |con|))) (DO ((G166210 (MSORT |alist2|) (CDR G166210)) @@ -242,7 +242,7 @@ NIL) (SEQ (EXIT (|sayBrightly| - (CONS (MAKESTRING " ") + (CONS " " (|formatOpSignature| |op1| |sig|))))))))))))))))) diff --git a/src/interp/pspad1.lisp.pamphlet b/src/interp/pspad1.lisp.pamphlet index f70d383..e16f62b 100644 --- a/src/interp/pspad1.lisp.pamphlet +++ b/src/interp/pspad1.lisp.pamphlet @@ -217,7 +217,7 @@ (DEFUN |lispStringList2String| (|x|) (COND - ((NULL |x|) (MAKESTRING "")) + ((NULL |x|) "") ((ATOM |x|) (STRINGIMAGE |x|)) ((CDR |x|) (APPLY (|function| STRCONC) @@ -534,7 +534,7 @@ (RETURN (PROGN (COND - ((BOOT-EQUAL |item| (MAKESTRING "failed")) + ((BOOT-EQUAL |item| "failed") (SPADLET |item| '|failed|))) (SPADLET |n| (COND @@ -577,8 +577,7 @@ (CONS '|"| |$lineFragmentBuffer|)))) ('T (|sayBrightly| - (CONS (MAKESTRING - "Unexpected line buffer item: ") + (CONS "Unexpected line buffer item: " (CONS (STRINGIMAGE |item|) NIL))) |$lineFragmentBuffer|))) (SPADLET |$rightBraceFlag| (BOOT-EQUAL |item| '})) @@ -960,7 +959,7 @@ (SPADLET |argl| (CDR |name|)) (COND ((MEMQ |op| '(|Record| |Union|)) - (|pp| (CONS (MAKESTRING "Cannot find: ") + (|pp| (CONS "Cannot find: " (CONS |name| NIL))) |name|) ('T @@ -1646,7 +1645,7 @@ (PROGN (SPADLET |qualification| (IFCAR |options|)) (COND - ((BOOT-EQUAL |op| (|char| (MAKESTRING " "))) + ((BOOT-EQUAL |op| (|char| " ")) (|format| '| =|)) ((OR |qualification| (AND (GETL |op| '|Nud|) @@ -1961,9 +1960,9 @@ (LASSOC '|constructor| |$comments|)) (KDR (KAR |u|))) - (CONS (MAKESTRING "") NIL))) + (CONS "" NIL))) (SPADLET |$numberOfSpills| (SPADDIFFERENCE 1)) - (|consComments| |condoc| (MAKESTRING "+++ ")))) + (|consComments| |condoc| "+++ "))) (SPADLET |form| (|formatDeftranForm| |form| |tlist|)) (SPADLET |u| (CONS 'DEF diff --git a/src/interp/pspad2.lisp.pamphlet b/src/interp/pspad2.lisp.pamphlet index afdd542..335518f 100644 --- a/src/interp/pspad2.lisp.pamphlet +++ b/src/interp/pspad2.lisp.pamphlet @@ -1587,7 +1587,7 @@ 'T) (PROGN (SPADLET |u| (NREVERSE |u|)) 'T)) (|formatPiles| |u| |x|)) - ('T (|error| (MAKESTRING "formatPROGN")))))))) + ('T (|error| "formatPROGN"))))))) ;formatELT ["ELT",a,b] == formatApplication [a,b] @@ -2492,15 +2492,14 @@ (OR (LASSOC |op| |$comments|) (PROGN (|sayBrightly| - (CONS (MAKESTRING - "No documentation for ") + (CONS "No documentation for " (CONS |op| NIL))) (RETURN |u|)))) (SPADLET |ftypes| (SUBLISLIS |$FormalMapVariableList| (CDR |$form|) |types|)) (|consComments| (LASSOC |ftypes| |alist|) - (MAKESTRING "++ ")) + "++ ") |u|)))))) ;consComments(s,plusPlus) == @@ -2610,7 +2609,7 @@ (SEQ (EXIT (COND ((|substring?| - (MAKESTRING "\\spad{") |s| + "\\spad{" |s| |i|) (SETQ G168812 (OR G168812 |i|)))))))))) @@ -2619,11 +2618,11 @@ (COND ((BOOT-EQUAL |r| (PLUS |m| 1)) |s|) ('T - (STRCONC (SUBSTRING |s| 0 |k|) (MAKESTRING "`") + (STRCONC (SUBSTRING |s| 0 |k|) "`" (SUBSTRING |s| (PLUS |k| 6) (SPADDIFFERENCE (SPADDIFFERENCE |r| |k|) 6)) - (MAKESTRING "'") + "'" (|consCommentsTran| (SUBSTRING |s| (PLUS |r| 1) NIL)))))) ('T |s|))))))) @@ -2855,7 +2854,7 @@ (COND ((NULL (OR (ALPHA-CHAR-P (ELT |s| 0)) (BOOT-EQUAL (ELT |s| 0) - (|char| (MAKESTRING "$"))))) + (|char| "$")))) (SUFFIX '_ |u|))) (SPADLET |u| (SUFFIX (ELT |s| 0) |u|)) (DO ((G168984 (MAXINDEX |s|)) (|i| 1 (QSADD1 |i|))) @@ -2905,7 +2904,7 @@ (SETQ G168998 (AND G168998 (NEQUAL (ELT |s| |i|) - (|char| (MAKESTRING " "))))))))))) + (|char| " ")))))))))) ('T (COND ((> (|#| |s|) 1) @@ -2945,7 +2944,7 @@ (AND G169022 (NEQUAL (ELT |s| |i|) (|char| - (MAKESTRING " ")))))))))) + " "))))))))) (EXIT 'T))))))))))))))))))) ;isGensym x == diff --git a/src/interp/record.lisp.pamphlet b/src/interp/record.lisp.pamphlet index 7b4150c..87245db 100644 --- a/src/interp/record.lisp.pamphlet +++ b/src/interp/record.lisp.pamphlet @@ -114,7 +114,7 @@ ('T (SPADLET |opath| (OR (KAR |option|) |pathname|)) (SPADLET |odirect| (|pathnameDirectory| |opath|)) (SPADLET |opathname| - (|htMkPath| |odirect| |ifn| (MAKESTRING "rec"))) + (|htMkPath| |odirect| |ifn| "rec")) (SPADLET *PRINT-ARRAY* 'T) (SPADLET |$mkTestFlag| 'T) (SPADLET |$runTestFlag| NIL) (SPADLET |$mkTestInputStack| NIL) @@ -255,7 +255,7 @@ (|maPrin| (COPY |u|)) (SPADLET |res| (REVERSE |$testOutputLineList|)) (COND - ((NULL |res|) (MAKESTRING "")) + ((NULL |res|) "") ((NULL (CDR |res|)) (CAR |res|)) ('T (PROG (G166165) @@ -298,10 +298,10 @@ (DEFUN |verbatimize| (|u|) (COND - ((BOOT-EQUAL |u| (MAKESTRING "")) |u|) + ((BOOT-EQUAL |u| "") |u|) ('T - (STRCONC (MAKESTRING "\\begin{verbatim}") |u| - (MAKESTRING "\\end{verbatim}"))))) + (STRCONC "\\begin{verbatim}" |u| + "\\end{verbatim}")))) ;--======================================================================= ;-- Function for Verifying a `record' file @@ -337,7 +337,7 @@ (SEQ (PROGN (SPADLET |ifn| (PATHNAME-NAME |pathname|)) (|sayBrightly| - (CONS (MAKESTRING "Verifying") (|bright| |ifn|))) + (CONS "Verifying" (|bright| |ifn|))) (COND ((NULL (|isExistingFile| |pathname|)) (|throwKeyedMsg| 'S2IL0003 @@ -378,8 +378,8 @@ (SPADLET |suffix| (COND ((BOOT-EQUAL |result| '|ok|) - (MAKESTRING "is ok")) - ('T (MAKESTRING "has errors")))) + "is ok") + ('T "has errors"))) (|sayBrightly| (APPEND (|bright| |ifn|) (CONS |suffix| NIL)))))))))) @@ -434,23 +434,23 @@ (RETURN (SEQ (PROGN (SPADLET |file| - (MAKE-OUTSTREAM (MAKESTRING "/tmp/temp.input"))) + (MAKE-OUTSTREAM "/tmp/temp.input")) (DO ((G166280 |lines| (CDR G166280)) (|line| NIL)) ((OR (ATOM G166280) (PROGN (SETQ |line| (CAR G166280)) NIL)) NIL) (SEQ (EXIT (COND - ((|stringPrefix?| (MAKESTRING ")r") |line|) + ((|stringPrefix?| ")r" |line|) '|skip|) ((|stringPrefix?| - (MAKESTRING ")undo )redo") |line|) + ")undo )redo" |line|) '|skip|) ('T (PRINTEXP |line| |file|) (TERPRI |file|)))))) (SHUT |file|) - (SPADLET /EDITFILE (MAKESTRING "/tmp/temp.input")) + (SPADLET /EDITFILE "/tmp/temp.input") (/RF) - (DELETE-FILE (MAKESTRING "/tmp/temp.input"))))))) + (DELETE-FILE "/tmp/temp.input")))))) ;wasIs(old,new,:typePart) == ; sayBrightly '"*************************************************************" @@ -471,17 +471,16 @@ (RETURN (SEQ (PROGN (|sayBrightly| - (MAKESTRING - "*************************************************************")) + "*************************************************************") (COND ((NEQUAL |old| |new|) - (|sayBrightly| (MAKESTRING "Was ----------> ")) + (|sayBrightly| "Was ----------> ") (DO ((G166308 |old| (CDR G166308)) (|x| NIL)) ((OR (ATOM G166308) (PROGN (SETQ |x| (CAR G166308)) NIL)) NIL) (SEQ (EXIT (|maPrin| |x|)))) - (|sayBrightly| (MAKESTRING "Is -----------> ")) + (|sayBrightly| "Is -----------> ") (DO ((G166317 |new| (CDR G166317)) (|x| NIL)) ((OR (ATOM G166317) (PROGN (SETQ |x| (CAR G166317)) NIL)) @@ -499,11 +498,11 @@ (NEQUAL |oldtype| |newtype|)) (PROGN (|sayBrightlyNT| - (CONS (MAKESTRING " Type was ---> ") + (CONS " Type was ---> " (CONS |oldtype| NIL))) (|pp| |old|) (|sayBrightlyNT| - (CONS (MAKESTRING " Type is ---> ") + (CONS " Type is ---> " (CONS |newtype| NIL))) (|pp| |new|))))))))) @@ -551,7 +550,7 @@ (SPADLET |odirect| (|pathnameDirectory| |opath|)) (SPADLET |opathname| (|htMkPath| |odirect| |ifn| - (MAKESTRING "input"))) + "input")) (COND ((|isExistingFile| |opathname|) (DELETE-FILE |opathname|))) @@ -563,7 +562,7 @@ (DO () ((NULL (SPADLET |u| (|htExampleFind| - (MAKESTRING "\\begin{page}")))) + "\\begin{page}"))) (NREVERSE0 G166341)) (SEQ (EXIT (SETQ G166341 @@ -585,11 +584,11 @@ NIL)) NIL) (SEQ (EXIT (PROGN - (PRINTEXP (MAKESTRING "-- ") + (PRINTEXP "-- " |outStream|) (PRINTEXP |pageName| |outStream|) (TERPRI |outStream|) - (PRINTEXP (MAKESTRING ")cl all") + (PRINTEXP ")cl all" |outStream|) (TERPRI |outStream|) (DO ((G166374 |commands| @@ -692,7 +691,7 @@ (PROG (|nameType|) (RETURN (PROGN - (SPADLET |nameType| (STRCONC |name| (MAKESTRING ".") |typ|)) + (SPADLET |nameType| (STRCONC |name| "." |typ|)) (COND ((NULL |directory|) |nameType|) ('T (STRCONC |directory| |nameType|))))))) @@ -744,7 +743,7 @@ (EXIT (CONS (STRCONC (SUBSTRING |y| 0 |k|) - (MAKESTRING " ") (CAR |u|)) + " " (CAR |u|)) (CDR |u|)))))) (EXIT (CONS |y| (|recordAndPrintTest,fn| |r|)))))) diff --git a/src/interp/server.lisp.pamphlet b/src/interp/server.lisp.pamphlet index 684241f..2e45370 100644 --- a/src/interp/server.lisp.pamphlet +++ b/src/interp/server.lisp.pamphlet @@ -93,7 +93,7 @@ |$EndOfOutput|)) ((BOOT-EQUAL |action| |$CreateFrame|) (SPADLET |frameName| - (GENTEMP (MAKESTRING "frame"))) + (GENTEMP "frame")) (|addNewInterpreterFrame| |frameName|) (SPADLET |$frameAlist| (CONS @@ -187,7 +187,7 @@ (CATCH 'SPAD_READER (CATCH '|top_level| (|parseAndEvalStr| |str|)))) (COND - ((BOOT-EQUAL |v| '|restart|) (CONS (MAKESTRING "error") NIL)) + ((BOOT-EQUAL |v| '|restart|) (CONS "error" NIL)) ('T (NREVERSE |$outputLines|))))))) ;parseAndEvalToStringForHypertex str == @@ -208,7 +208,7 @@ (CATCH 'SPAD_READER (CATCH '|top_level| (|parseAndEvalStr| |str|)))) (COND - ((BOOT-EQUAL |v| '|restart|) (CONS (MAKESTRING "error") NIL)) + ((BOOT-EQUAL |v| '|restart|) (CONS "error" NIL)) ('T (NREVERSE |$outputLines|))))))) ;parseAndEvalToStringEqNum str == @@ -229,7 +229,7 @@ (CATCH 'SPAD_READER (CATCH '|top_level| (|parseAndEvalStr| |str|)))) (COND - ((BOOT-EQUAL |v| '|restart|) (CONS (MAKESTRING "error") NIL)) + ((BOOT-EQUAL |v| '|restart|) (CONS "error" NIL)) ('T (NREVERSE |$outputLines|))))))) ;parseAndInterpToString str == @@ -270,7 +270,7 @@ (DEFUN |parseAndEvalStr1| (|string|) (COND - ((BOOT-EQUAL (ELT |string| 0) (|char| (MAKESTRING ")"))) + ((BOOT-EQUAL (ELT |string| 0) (|char| ")")) (|doSystemCommand| (SUBSEQ |string| 1))) ('T (|processInteractive| (|ncParseFromString| |string|) NIL)))) diff --git a/src/interp/simpbool.lisp.pamphlet b/src/interp/simpbool.lisp.pamphlet index 3d95e2c..4557ba4 100644 --- a/src/interp/simpbool.lisp.pamphlet +++ b/src/interp/simpbool.lisp.pamphlet @@ -710,7 +710,7 @@ (COND ((BOOT-EQUAL |x| |y|) NIL) ('T (|pp| |x|) - (|pp| (MAKESTRING "==========>")) + (|pp| "==========>") (|pp| |y|))))))))))) @ diff --git a/src/interp/slam.lisp.pamphlet b/src/interp/slam.lisp.pamphlet index 57e3174..7bbb09d 100644 --- a/src/interp/slam.lisp.pamphlet +++ b/src/interp/slam.lisp.pamphlet @@ -664,7 +664,7 @@ (SPADLET |stateVar| (GENSYM)) (SPADLET |stateVal| (GENSYM)) (SPADLET |lastArg| - (INTERNL (STRCONC (MAKESTRING "#") + (INTERNL (STRCONC "#" (STRINGIMAGE (QSADD1 (LENGTH |argl|)))))) (SPADLET |decomposeCode| @@ -1217,7 +1217,7 @@ (|$reportCompilation| (|sayBrightlyI| (|bright| - (MAKESTRING "Generated LISP code for function:"))) + "Generated LISP code for function:")) (|pp| |fn|))) (SPADLET |optfn| (COND diff --git a/src/interp/template.lisp.pamphlet b/src/interp/template.lisp.pamphlet index 6e6ff37..5d9ebbf 100644 --- a/src/interp/template.lisp.pamphlet +++ b/src/interp/template.lisp.pamphlet @@ -318,7 +318,7 @@ (|evalSlotDomain| |x| |dollar|) G166234))))))))) - ('T (|systemErrorHere| (MAKESTRING "evalSlotDomain"))))))))) + ('T (|systemErrorHere| "evalSlotDomain")))))))) ; ;--======================================================================= diff --git a/src/interp/topics.lisp.pamphlet b/src/interp/topics.lisp.pamphlet index ea4790f..db0b0a3 100644 --- a/src/interp/topics.lisp.pamphlet +++ b/src/interp/topics.lisp.pamphlet @@ -143,7 +143,7 @@ (CONS |kind| (HGET |$defaultsHash| |item|))))))))) (SPADLET |$conTopicHash| (MAKE-HASHTABLE 'EQL)) - (SPADLET |instream| (OPEN (MAKESTRING "topics.data"))) + (SPADLET |instream| (OPEN "topics.data")) (DO () ((NULL (NULL (EOFP |instream|))) NIL) (SEQ (EXIT (PROGN (SPADLET |line| (READLINE |instream|)) @@ -164,7 +164,7 @@ ((NEQUAL (ELT |line| |m|) (|char| '|:|)) (|systemError| - (MAKESTRING "wrong heading"))) + "wrong heading")) ('T (SPADLET |con| (INTERN @@ -585,8 +585,8 @@ NIL) (SEQ (EXIT (PROGN (|sayBrightly| - (CONS |key| (CONS (MAKESTRING ":") NIL))) - (|sayBrightlyNT| (MAKESTRING " ")) + (CONS |key| (CONS ":" NIL))) + (|sayBrightlyNT| " ") (DO ((G166430 (HGET |hash| |key|) (CDR G166430)) (|x| NIL)) @@ -594,7 +594,7 @@ (PROGN (SETQ |x| (CAR G166430)) NIL)) NIL) (SEQ (EXIT (|sayBrightlyNT| - (CONS (MAKESTRING " ") + (CONS " " (CONS |x| NIL)))))) (TERPRI))))))) diff --git a/src/interp/util.lisp.pamphlet b/src/interp/util.lisp.pamphlet index 107a3e2..5cf9a88 100644 --- a/src/interp/util.lisp.pamphlet +++ b/src/interp/util.lisp.pamphlet @@ -222,7 +222,7 @@ After this function is called the image is clean and can be saved. (COND (|$displayStartMsgs| (|sayKeyedMsg| 'S2IZ0053 - (CONS (MAKESTRING "interpreter") NIL)))) + (CONS "interpreter" NIL)))) (|initializeTimedNames| |$interpreterTimedNames| |$interpreterTimedClasses|) (|statisticsInitialization|) @@ -235,24 +235,24 @@ After this function is called the image is clean and can be saved. (COND (|$displayStartMsgs| (|sayKeyedMsg| 'S2IZ0053 - (CONS (MAKESTRING "database") NIL)))) + (CONS "database" NIL)))) (|mkLowerCaseConTable|) (COND ((NULL |$ruleSetsInitialized|) (|initializeRuleSets|))) (COND (|$displayStartMsgs| (|sayKeyedMsg| 'S2IZ0053 - (CONS (MAKESTRING "constructors") NIL)))) + (CONS "constructors" NIL)))) (|makeConstructorsAutoLoad|) (GCMSG NIL) (SETQ |$IOindex| 1) (COND (|$displayStartMsgs| (|sayKeyedMsg| 'S2IZ0053 - (CONS (MAKESTRING "history") NIL)))) + (CONS "history" NIL)))) (|initHist|) (COND ((|functionp| '|addtopath|) - (|addtopath| (CONCAT $SPADROOT (MAKESTRING "bin"))))) + (|addtopath| (CONCAT $SPADROOT "bin")))) (SETQ $CURRENT-DIRECTORY *DEFAULT-PATHNAME-DEFAULTS*) (COND ((NULL |l|) @@ -266,7 +266,7 @@ After this function is called the image is clean and can be saved. (|readSpadProfileIfThere|))) (COND (|$displayStartMsgs| (|spadStartUpMsgs|))) (COND - ($OLDLINE (SAY (|fillerSpaces| $LINELENGTH (MAKESTRING "="))) + ($OLDLINE (SAY (|fillerSpaces| $LINELENGTH "=")) (|sayKeyedMsg| 'S2IZ0050 (CONS (|namestring| (CONS '|axiom| (CONS '|input| NIL))) @@ -274,10 +274,10 @@ After this function is called the image is clean and can be saved. (COND ((NEQUAL $OLDLINE 'END_UNIT) (|centerAndHighlight| $OLDLINE $LINELENGTH - (MAKESTRING " ")) + " ") (|sayKeyedMsg| 'S2IZ0051 NIL)) ('T (|sayKeyedMsg| 'S2IZ0052 NIL))) - (SAY (|fillerSpaces| $LINELENGTH (MAKESTRING "="))) + (SAY (|fillerSpaces| $LINELENGTH "=")) (TERPRI) (SPADLET $OLDLINE NIL))) (SPADLET |$superHash| (MAKE-HASHTABLE 'UEQUAL)) (COND ((NULL |l|) (|runspad|))) diff --git a/src/interp/vmlisp.lisp.pamphlet b/src/interp/vmlisp.lisp.pamphlet index f0ed0f6..715ad43 100644 --- a/src/interp/vmlisp.lisp.pamphlet +++ b/src/interp/vmlisp.lisp.pamphlet @@ -141,9 +141,6 @@ documentclass{article} (defmacro lessp (&rest args) `(< ,@args)) -(defmacro lintp (n) - `(typep ,n 'bignum)) - (defmacro makestring (a) a) (defmacro mapelt (f vec) @@ -1019,7 +1016,7 @@ can be restored. (RETURN (COND ((OR (NOT (EQ 3 (LENGTH FORM))) (NOT (IDENTP (car (setq FORM (cdr FORM)))))) - (MACRO-INVALIDARGS 'DCQ\/QDCQ FORM (MAKESTRING "invalid pattern."))) + (MACRO-INVALIDARGS 'DCQ\/QDCQ FORM "invalid pattern.")) (`((setq ,(car form) ,sv) ,@(DCQGENEXP SV (CADR FORM) EQTAG QFLAG))))))) (setq A (car FORM)) (setq D (cdr FORM)) diff --git a/src/interp/wi1.lisp.pamphlet b/src/interp/wi1.lisp.pamphlet index 6327f6f..3b775b9 100644 --- a/src/interp/wi1.lisp.pamphlet +++ b/src/interp/wi1.lisp.pamphlet @@ -62,10 +62,10 @@ (SPADLET |$convertingSpadFile| 'T) (SPADLET |$options| NIL) (SPADLET |sfn| (STRINGIMAGE |fn|)) - (SPADLET |newname| (STRCONC |sfn| (MAKESTRING ".as"))) + (SPADLET |newname| (STRCONC |sfn| ".as")) (SPADLET |$outStream| (MAKE-OUTSTREAM |newname|)) - (|markSay| (MAKESTRING "#pile")) - (|markSay| (MAKESTRING "#include \"axiom.as\"")) + (|markSay| "#pile") + (|markSay| "#include \"axiom.as\"") (|markTerpri|) (CATCH 'SPAD_READER (|compiler| (CONS (INTERN |sfn|) NIL))) (SHUT |$outStream|))))) @@ -128,8 +128,7 @@ (COND ((AND (BOOT-EQUAL |prop| '|modemap|) (BOOT-EQUAL |$insideCapsuleFunctionIfTrue| 'T)) - (SAY (CONS (MAKESTRING - "**** modemap PUT on CapsuleModemapFrame: ") + (SAY (CONS "**** modemap PUT on CapsuleModemapFrame: " (CONS |val| NIL))) (SPADLET |$CapsuleModemapFrame| (|addBinding| |x| @@ -391,7 +390,7 @@ (PROGN (COND ((EQ (CAR |df|) 'DEF) (CAR |df|))) (SPADLET |op| (CAADR |df|)) - (|sayMSG| (|fillerSpaces| 72 (MAKESTRING "-"))) + (|sayMSG| (|fillerSpaces| 72 "-")) (SPADLET $LISPLIB 'T) (SPADLET |$op| |op|) (SPADLET |$lisplibAttributes| NIL) @@ -415,21 +414,21 @@ (|compileDocumentation| |libName|)) ('T (|sayMSG| - (CONS (MAKESTRING " initializing ") + (CONS " initializing " (CONS |$spadLibFT| (APPEND (|bright| |libName|) - (CONS (MAKESTRING "for") + (CONS "for" (|bright| |op|)))))) (|initializeLisplib| |libName|) (|sayMSG| - (CONS (MAKESTRING " compiling into ") + (CONS " compiling into " (CONS |$spadLibFT| (|bright| |libName|)))) (SPADLET |res| (FUNCALL |fn| |df| |m| |e| |prefix| |fal|)) (|sayMSG| - (CONS (MAKESTRING " finalizing ") + (CONS " finalizing " (CONS |$spadLibFT| (|bright| |libName|)))) (FRESH-LINE |$algebraOutputStream|) - (|sayMSG| (|fillerSpaces| 72 (MAKESTRING "-"))) + (|sayMSG| (|fillerSpaces| 72 "-")) (|unloadOneConstructor| |op| |libName|) |res|)))))) ;compTopLevel(x,m,e) == @@ -732,8 +731,7 @@ (SPADLET |macros| (CONS |x| |macros|))))) ('T (|systemError| - (CONS (MAKESTRING - "unexpected WHERE item: ") + (CONS "unexpected WHERE item: " (CONS |x| NIL)))))))) (SPADLET |nargtypes| (PROG (G166764) @@ -803,8 +801,7 @@ |t|))))))))) (|systemError| (CONS - (MAKESTRING - "Missing WHERE declaration for :") + "Missing WHERE declaration for :" (CONS |arg| NIL))))) (SETQ G166764 (CONS |p| G166764)))))))))) @@ -1315,7 +1312,7 @@ (CONS |x| (CONS |m| (CONS |e| NIL)))) ((STRINGP |x|) (COND - ((AND (NEQUAL |x| (MAKESTRING "failed")) + ((AND (NEQUAL |x| "failed") (OR (|member| '(|Symbol|) |$localImportStack|) (|member| '(|Symbol|) @@ -2002,23 +1999,23 @@ (SPADLET |rhs| (COND ((AND (PAIRP |rhs|) (EQ (QCAR |rhs|) 'CATEGORY)) - (CONS (MAKESTRING "-- the constructor category") + (CONS "-- the constructor category" NIL)) ((AND (PAIRP |rhs|) (EQ (QCAR |rhs|) '|Join|)) - (CONS (MAKESTRING "-- the constructor category") + (CONS "-- the constructor category" NIL)) ((AND (PAIRP |rhs|) (EQ (QCAR |rhs|) 'CAPSULE)) - (CONS (MAKESTRING "-- the constructor capsule") + (CONS "-- the constructor capsule" NIL)) ((AND (PAIRP |rhs|) (EQ (QCAR |rhs|) '|add|)) - (CONS (MAKESTRING "-- the constructor capsule") + (CONS "-- the constructor capsule" NIL)) ('T (|formatUnabbreviated| |rhs|)))) (|sayBrightly| - (CONS (MAKESTRING " processing macro definition") + (CONS " processing macro definition" (CONS '|%b| (APPEND (|formatUnabbreviated| |lhs|) - (CONS (MAKESTRING " ==> ") + (CONS " ==> " (APPEND |rhs| (CONS '|%d| NIL))))))) (SPADLET |form| (|macroExpand| |form| |e|)) (COND ((EQ (CAR |form|) 'MDEF) (CAR |form|))) @@ -2884,8 +2881,7 @@ ((AND (NULL (|canReturn| |a| 0 0 'T)) (NULL (AND (BOUNDP '|$convert2NewCompiler|) |$convert2NewCompiler|))) - (SAY (MAKESTRING - "IF statement can not cause consequents to be executed")) + (SAY "IF statement can not cause consequents to be executed") (|pp| |expr|))) (OR (|canReturn| |a| |level| |exitCount| NIL) (|canReturn| |b| |level| |exitCount| |ValueFlag|) @@ -2927,7 +2923,7 @@ (AND G168283 (|canReturn| |u| |level| |exitCount| |ValueFlag|))))))))) - ('T (|systemErrorHere| (MAKESTRING "canReturn")))))))) + ('T (|systemErrorHere| "canReturn"))))))) ;compList(l,m is ["List",mUnder],e) == ; markImport m @@ -3295,8 +3291,7 @@ (|getmode| |x| |e|) (|systemErrorHere| - (MAKESTRING - "compColonOld"))))) + "compColonOld")))) G168631)))))))))) (|put| |op| '|mode| |signature| |e|)) ('T (|put| |f| '|mode| |t| |e|)))) @@ -3578,9 +3573,8 @@ (COND (|$InteractiveMode| (|keyedSystemError| 'S2GE0016 - (CONS (MAKESTRING "coerce") - (CONS (MAKESTRING - "function coerce called from the interpreter.") + (CONS "coerce" + (CONS "function coerce called from the interpreter." NIL)))) ((SPADLET |T'| (|coerce0| T$ |m|)) |T'|) ('T @@ -3739,9 +3733,9 @@ (COND ((CONTAINED (INTERN " " "BOOT") |body|) (|sayBrightly| - (CONS (MAKESTRING " ") + (CONS " " (APPEND (|bright| |nam|) - (CONS (MAKESTRING " not compiled") + (CONS " not compiled" NIL))))) ('T (COND @@ -3762,10 +3756,10 @@ (CONS (MKQ '|SPADreplace|) (CONS (MKQ |nam'|) NIL))))) (|sayBrightly| - (CONS (MAKESTRING " ") + (CONS " " (APPEND (|bright| |nam|) (CONS - (MAKESTRING "is replaced by") + "is replaced by" (|bright| |nam'|)))))) ((AND (OR (ATOM |body|) (PROG (G168859) @@ -3799,10 +3793,10 @@ (CONS (MKQ '|SPADreplace|) (CONS (MKQ |macform|) NIL))))) (|sayBrightly| - (CONS (MAKESTRING " ") + (CONS " " (APPEND (|bright| |nam|) (CONS - (MAKESTRING "is replaced by") + "is replaced by" (|bright| |body|)))))) ('T NIL)) (COND @@ -4330,7 +4324,7 @@ ((BOOT-EQUAL |op| '|:|) (|compColon| |x| |m| |e|)) ((BOOT-EQUAL |op| '|::|) (|compCoerce| |x| |m| |e|)) ((AND (NULL (BOOT-EQUAL |$insideCompTypeOf| 'T)) - (|stringPrefix?| (MAKESTRING "TypeOf") (PNAME |op|))) + (|stringPrefix?| "TypeOf" (PNAME |op|))) (|compTypeOf| |x| |m| |e|)) ((AND (PAIRP |x|) (EQ (QCAR |x|) 'PART)) (|compPART| |x| |m| |e|)) @@ -5137,7 +5131,7 @@ |m| |e| NIL |$formalArgList|)) ((NULL |$form|) (|stackAndThrow| - (CONS (MAKESTRING "bad == form ") + (CONS "bad == form " (CONS |form| NIL)))) ('T (SPADLET |newPrefix| @@ -5145,7 +5139,7 @@ (|$prefix| (INTERN (STRCONC (|encodeItem| |$prefix|) - (MAKESTRING ",") + "," (|encodeItem| |$op|)))) ('T (|getAbbreviation| |$op| diff --git a/src/interp/wi2.lisp.pamphlet b/src/interp/wi2.lisp.pamphlet index 6029bea..e55adbe 100644 --- a/src/interp/wi2.lisp.pamphlet +++ b/src/interp/wi2.lisp.pamphlet @@ -436,8 +436,7 @@ (OR (|compMakeCategoryObject| |target| |$e|) (PROGN (|sayBrightly| - (MAKESTRING - " cannot produce category object:")) + " cannot produce category object:") (|pp| |target|) (RETURN NIL)))) (SPADLET |ds| (CAR |LETTMP#1|)) @@ -445,7 +444,7 @@ (SPADLET |$domainShell| (COPY-SEQ |ds|)) (SPADLET |$attributesName| (INTERN (STRCONC (PNAME |$op|) - (MAKESTRING ";attributes")))) + ";attributes"))) (SPADLET |attributeList| (ELT |ds| 2)) (SPADLET |$goGetList| NIL) (SPADLET |$condAlist| NIL) @@ -676,7 +675,7 @@ (COND (|$isOpPackageName| (|lisplibWrite| - (MAKESTRING "slot1DataBase") + "slot1DataBase" (CONS '|updateSlot1DataBase| (CONS (MKQ |$NRTslot1Info|) NIL)) |$libFile|))) @@ -724,7 +723,7 @@ |operationAlist|) (SPADLET |$lisplibMissingFunctions| |$CheckVectorList|))) - (|lisplibWrite| (MAKESTRING "compilerInfo") + (|lisplibWrite| "compilerInfo" (CONS 'SETQ (CONS '|$CategoryFrame| (CONS (CONS '|put| @@ -1285,17 +1284,17 @@ ((AND |$compileOnlyCertainItems| (NULL (|member| |$op| |$compileOnlyCertainItems|))) (|sayBrightly| - (CONS (MAKESTRING " skipping ") + (CONS " skipping " (CONS |localOrExported| (|bright| |$op|)))) (CONS NIL (CONS (CONS '|Mapping| |signature'|) (CONS |oldE| NIL)))) ('T (|sayBrightly| - (CONS (MAKESTRING " compiling ") + (CONS " compiling " (CONS |localOrExported| (APPEND (|bright| |$op|) - (CONS (MAKESTRING ": ") + (CONS ": " |formattedSig|))))) (SPADLET |returnType| (CAR |signature'|)) (SPADLET |trialT| @@ -2283,22 +2282,20 @@ ((EQL 0 |n|) (RETURN (|stackMessage| - (CONS (MAKESTRING "Operation ") + (CONS "Operation " (CONS '|%b| (CONS |anOp| (CONS '|%d| (CONS - (MAKESTRING - "missing from domain: ") + "missing from domain: " (CONS |aDomain| NIL))))))))) ('T (|stackWarning| - (CONS (MAKESTRING - "more than 1 modemap for: ") + (CONS "more than 1 modemap for: " (CONS |anOp| - (CONS (MAKESTRING " with dc=") + (CONS " with dc=" (CONS |aDomain| - (CONS (MAKESTRING " ===>") + (CONS " ===>" (CONS |mmList| NIL))))))) (ELT |mmList| 0))))) (COND @@ -3755,8 +3752,7 @@ 'COLLECTV) (EXIT (CADR |u|))))) (|stackMessage| - (MAKESTRING - "Invalid collect bodytype")) + "Invalid collect bodytype") (EXIT (RETURN NIL))))) (EXIT |$NoValueMode|))) (PROGN @@ -4038,7 +4034,7 @@ (PROGN (SETQ |dom| (CAR G168798)) NIL)) NIL) (SEQ (EXIT (|sayBrightly| - (CONS (MAKESTRING " importing ") + (CONS " importing " (|formatUnabbreviated| |dom|)))))) (SPADLET |LETTMP#1| (|compOrCroak| |item| |$EmptyMode| |$e|)) @@ -4175,7 +4171,7 @@ (SPADLET |LETTMP#1| (OR (|qt| 19 (|comp| |p| |$Boolean| |$e|)) (|userError| - (CONS (MAKESTRING "not a Boolean:") + (CONS "not a Boolean:" (CONS |p| NIL))))) (SPADLET |p'| (CAR |LETTMP#1|)) (SPADLET |$e| (CADDR |LETTMP#1|)) @@ -4559,9 +4555,9 @@ (DEFUN |chk,fn| (|x| |cnt| |key|) (SEQ (IF (> |cnt| 10000) (EXIT (SEQ (|sayBrightly| - (CONS (MAKESTRING "--> ") + (CONS "--> " (CONS |key| - (CONS (MAKESTRING " <---") NIL)))) + (CONS " <---" NIL)))) (EXIT (|hahaha| |key|))))) (IF (ATOM |x|) (EXIT |cnt|)) (IF (VECP |x|) (EXIT (|systemError| NIL)))