/ Geek Gadgets 1 / ADE-1.bin / ade-dist / calc-2.02d-bin.lha / lib / emacs / site-lisp / calc-incom.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 6c 63 2d 65 78 | 74 29 29 0a 0a 28 64 65 | calc-ex|t))..(de|
|00000020| 66 75 6e 20 63 61 6c 63 | 2d 4e 65 65 64 2d 63 61 |fun calc|-Need-ca|
|00000030| 6c 63 2d 69 6e 63 6f 6d | 20 6e 69 6c 20 28 62 79 |lc-incom| nil (by|
|00000040| 74 65 2d 63 6f 64 65 20 | 22 c0 87 22 20 5b 6e 69 |te-code |".." [ni|
|00000050| 6c 5d 20 31 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |l] 1))..|(defun c|
|00000060| 61 6c 63 2d 62 65 67 69 | 6e 2d 63 6f 6d 70 6c 65 |alc-begi|n-comple|
|00000070| 78 20 6e 69 6c 20 28 69 | 6e 74 65 72 61 63 74 69 |x nil (i|nteracti|
|00000080| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00000090| c0 88 c1 c2 21 87 22 20 | 5b 6e 69 6c 20 63 61 6c |....!." |[nil cal|
|000000a0| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|000000b0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 86 05 | (byte-c|ode "...|
|000000c0| 00 09 83 0e 00 c3 c4 21 | 82 13 00 c5 c6 0a 44 21 |.......!|......D!|
|000000d0| 87 22 20 5b 63 61 6c 63 | 2d 61 6c 67 65 62 72 61 |." [calc|-algebra|
|000000e0| 69 63 2d 6d 6f 64 65 20 | 63 61 6c 63 2d 69 6e 63 |ic-mode |calc-inc|
|000000f0| 6f 6d 70 6c 65 74 65 2d | 61 6c 67 65 62 72 61 69 |omplete-|algebrai|
|00000100| 63 2d 6d 6f 64 65 20 63 | 61 6c 63 2d 63 6f 6d 70 |c-mode c|alc-comp|
|00000110| 6c 65 78 2d 6d 6f 64 65 | 20 63 61 6c 63 2d 61 6c |lex-mode| calc-al|
|00000120| 67 2d 65 6e 74 72 79 20 | 22 28 22 20 63 61 6c 63 |g-entry |"(" calc|
|00000130| 2d 70 75 73 68 20 69 6e | 63 6f 6d 70 6c 65 74 65 |-push in|complete|
|00000140| 5d 20 34 29 29 5d 20 32 | 29 29 0a 0a 28 64 65 66 |] 4))] 2|))..(def|
|00000150| 75 6e 20 63 61 6c 63 2d | 65 6e 64 2d 63 6f 6d 70 |un calc-|end-comp|
|00000160| 6c 65 78 20 6e 69 6c 20 | 28 69 6e 74 65 72 61 63 |lex nil |(interac|
|00000170| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|00000180| 20 22 c1 88 c2 c0 21 88 | c3 c4 21 87 22 20 5b 74 | "....!.|..!." [t|
|00000190| 20 6e 69 6c 20 63 61 6c | 63 2d 63 6f 6d 6d 61 20 | nil cal|c-comma |
|000001a0| 63 61 6c 63 2d 64 6f 20 | 28 6c 61 6d 62 64 61 20 |calc-do |(lambda |
|000001b0| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|000001c0| c1 c2 21 18 c3 08 21 c4 | 3d 85 11 00 c2 08 38 c5 |..!...!.|=.....8.|
|000001d0| 3d 83 39 00 08 47 c6 57 | 85 21 00 c7 08 c8 5c 22 |=.9..G.W|.!....\"|
|000001e0| 89 10 88 08 47 c9 57 85 | 2f 00 c7 08 ca 5c 22 89 |....G.W.|/....\".|
|000001f0| 10 88 cb c2 cc 08 41 23 | 82 7b 00 c3 08 21 c4 3d |......A#|.{...!.=|
|00000200| 85 46 00 c2 08 38 cd 3e | 3f 85 4d 00 ce cf 21 88 |.F...8.>|?.M...!.|
|00000210| 08 47 c6 57 85 5f 00 c7 | 08 d0 5c 22 89 10 88 82 |.G.W._..|..\"....|
|00000220| 4e 00 88 d1 d2 08 38 21 | 85 6d 00 d3 d4 08 38 21 |N.....8!|.m....8!|
|00000230| 3f 85 74 00 ce d5 21 88 | cb c2 d6 08 41 23 29 87 |?.t...!.|....A#).|
|00000240| 22 20 5b 74 6f 70 20 63 | 61 6c 63 2d 74 6f 70 20 |" [top c|alc-top |
|00000250| 31 20 63 61 72 2d 73 61 | 66 65 20 69 6e 63 6f 6d |1 car-sa|fe incom|
|00000260| 70 6c 65 74 65 20 69 6e | 74 76 20 34 20 61 70 70 |plete in|tv 4 app|
|00000270| 65 6e 64 20 28 28 6e 65 | 67 20 28 76 61 72 20 69 |end ((ne|g (var i|
|00000280| 6e 66 20 76 61 72 2d 69 | 6e 66 29 29 29 20 35 20 |nf var-i|nf))) 5 |
|00000290| 28 28 76 61 72 20 69 6e | 66 20 76 61 72 2d 69 6e |((var in|f var-in|
|000002a0| 66 29 29 20 63 61 6c 63 | 2d 65 6e 74 65 72 2d 72 |f)) calc|-enter-r|
|000002b0| 65 73 75 6c 74 20 22 2e | 2e 29 22 20 28 63 70 6c |esult ".|.)" (cpl|
|000002c0| 78 20 70 6f 6c 61 72 29 | 20 65 72 72 6f 72 20 22 |x polar)| error "|
|000002d0| 4e 6f 74 20 65 6e 74 65 | 72 69 6e 67 20 61 20 63 |Not ente|ring a c|
|000002e0| 6f 6d 70 6c 65 78 20 6e | 75 6d 62 65 72 22 20 28 |omplex n|umber" (|
|000002f0| 30 29 20 6d 61 74 68 2d | 72 65 61 6c 70 20 32 20 |0) math-|realp 2 |
|00000300| 6d 61 74 68 2d 61 6e 67 | 6c 65 70 20 33 20 22 43 |math-ang|lep 3 "C|
|00000310| 6f 6d 70 6f 6e 65 6e 74 | 73 20 6d 75 73 74 20 62 |omponent|s must b|
|00000320| 65 20 72 65 61 6c 22 20 | 22 28 29 22 5d 20 31 35 |e real" |"()"] 15|
|00000330| 29 29 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |))] 3)).|.(defun |
|00000340| 63 61 6c 63 2d 62 65 67 | 69 6e 2d 76 65 63 74 6f |calc-beg|in-vecto|
|00000350| 72 20 6e 69 6c 20 28 69 | 6e 74 65 72 61 63 74 69 |r nil (i|nteracti|
|00000360| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00000370| c0 88 c1 c2 21 87 22 20 | 5b 6e 69 6c 20 63 61 6c |....!." |[nil cal|
|00000380| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|00000390| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 86 05 | (byte-c|ode "...|
|000003a0| 00 09 83 0e 00 c2 c3 21 | 82 11 00 c4 c5 21 87 22 |.......!|.....!."|
|000003b0| 20 5b 63 61 6c 63 2d 61 | 6c 67 65 62 72 61 69 63 | [calc-a|lgebraic|
|000003c0| 2d 6d 6f 64 65 20 63 61 | 6c 63 2d 69 6e 63 6f 6d |-mode ca|lc-incom|
|000003d0| 70 6c 65 74 65 2d 61 6c | 67 65 62 72 61 69 63 2d |plete-al|gebraic-|
|000003e0| 6d 6f 64 65 20 63 61 6c | 63 2d 61 6c 67 2d 65 6e |mode cal|c-alg-en|
|000003f0| 74 72 79 20 22 5b 22 20 | 63 61 6c 63 2d 70 75 73 |try "[" |calc-pus|
|00000400| 68 20 28 69 6e 63 6f 6d | 70 6c 65 74 65 20 76 65 |h (incom|plete ve|
|00000410| 63 29 5d 20 33 29 29 5d | 20 32 29 29 0a 0a 28 64 |c)] 3))]| 2))..(d|
|00000420| 65 66 75 6e 20 63 61 6c | 63 2d 65 6e 64 2d 76 65 |efun cal|c-end-ve|
|00000430| 63 74 6f 72 20 6e 69 6c | 20 28 69 6e 74 65 72 61 |ctor nil| (intera|
|00000440| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00000450| 65 20 22 c1 88 c2 c0 21 | 88 c3 c4 21 87 22 20 5b |e "....!|...!." [|
|00000460| 74 20 6e 69 6c 20 63 61 | 6c 63 2d 63 6f 6d 6d 61 |t nil ca|lc-comma|
|00000470| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|00000480| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00000490| 22 c1 c2 21 18 c3 08 21 | c4 3d 85 11 00 c2 08 38 |"..!...!|.=.....8|
|000004a0| c5 3d 83 43 00 08 47 c6 | 57 85 21 00 c7 08 c8 5c |.=.C..G.|W.!....\|
|000004b0| 22 89 10 88 08 47 c9 57 | 85 2f 00 c7 08 ca 5c 22 |"....G.W|./....\"|
|000004c0| 89 10 88 cb 08 41 41 cc | 08 38 54 5c 22 88 cd c2 |.....AA.|.8T\"...|
|000004d0| ce 08 41 23 82 5e 00 c3 | 08 21 c4 3d 85 50 00 c2 |..A#.^..|.!.=.P..|
|000004e0| 08 38 cf 3d 3f 85 57 00 | d0 d1 21 88 d2 c2 d3 08 |.8.=?.W.|..!.....|
|000004f0| 41 23 29 87 22 20 5b 74 | 6f 70 20 63 61 6c 63 2d |A#)." [t|op calc-|
|00000500| 74 6f 70 20 31 20 63 61 | 72 2d 73 61 66 65 20 69 |top 1 ca|r-safe i|
|00000510| 6e 63 6f 6d 70 6c 65 74 | 65 20 69 6e 74 76 20 34 |ncomplet|e intv 4|
|00000520| 20 61 70 70 65 6e 64 20 | 28 28 6e 65 67 20 28 76 | append |((neg (v|
|00000530| 61 72 20 69 6e 66 20 76 | 61 72 2d 69 6e 66 29 29 |ar inf v|ar-inf))|
|00000540| 29 20 35 20 28 28 76 61 | 72 20 69 6e 66 20 76 61 |) 5 ((va|r inf va|
|00000550| 72 2d 69 6e 66 29 29 20 | 73 65 74 63 61 72 20 32 |r-inf)) |setcar 2|
|00000560| 20 63 61 6c 63 2d 65 6e | 74 65 72 2d 72 65 73 75 | calc-en|ter-resu|
|00000570| 6c 74 20 22 2e 2e 5d 22 | 20 76 65 63 20 65 72 72 |lt "..]"| vec err|
|00000580| 6f 72 20 22 4e 6f 74 20 | 65 6e 74 65 72 69 6e 67 |or "Not |entering|
|00000590| 20 61 20 76 65 63 74 6f | 72 22 20 63 61 6c 63 2d | a vecto|r" calc-|
|000005a0| 70 6f 70 2d 70 75 73 68 | 2d 72 65 63 6f 72 64 20 |pop-push|-record |
|000005b0| 22 5b 5d 22 5d 20 31 32 | 29 29 5d 20 33 29 29 0a |"[]"] 12|))] 3)).|
|000005c0| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 63 6f 6d |.(defun |calc-com|
|000005d0| 6d 61 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 6c |ma (&opt|ional al|
|000005e0| 6c 6f 77 2d 70 6f 6c 61 | 72 29 20 28 69 6e 74 65 |low-pola|r) (inte|
|000005f0| 72 61 63 74 69 76 65 29 | 20 28 62 79 74 65 2d 63 |ractive)| (byte-c|
|00000600| 6f 64 65 20 22 c0 88 c1 | c2 21 87 22 20 5b 6e 69 |ode "...|.!." [ni|
|00000610| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|00000620| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00000630| 20 22 c7 c8 09 0a 5c 22 | c9 5c 22 18 08 ca 55 85 | "....\"|.\"...U.|
|00000640| 11 00 cb cc 21 88 cd 08 | 21 1b ce 08 53 21 1c cf |....!...|!...S!..|
|00000650| 0b 0c 5c 22 1d 0c 3f 85 | 37 00 0e 06 3f 85 37 00 |..\"..?.|7...?.7.|
|00000660| c9 0b 38 d0 3d 86 37 00 | 0d 47 d1 57 85 50 00 cf |..8.=.7.|.G.W.P..|
|00000670| 0d 0d 47 d2 55 83 47 00 | d3 82 4d 00 c8 0d 47 53 |..G.U.G.|..M...GS|
|00000680| 0d 5c 22 5c 22 89 15 88 | 0e 06 86 7a 00 c9 0d 38 |.\"\"...|...z...8|
|00000690| d4 3d 83 69 00 cf d5 0d | 41 41 5c 22 89 15 82 7a |.=.i....|AA\"...z|
|000006a0| 00 c9 0d 38 d6 3d 85 7a | 00 cf d7 0d 41 41 41 5c |...8.=.z|....AAA\|
|000006b0| 22 89 15 88 c9 0d 38 d8 | 3e 85 87 00 0d 47 d1 56 |".....8.|>....G.V|
|000006c0| 85 8d 00 cb d9 21 88 c9 | 0d 38 d6 3d 85 9a 00 0d |.....!..|.8.=....|
|000006d0| 47 da 56 85 a0 00 cb db | 21 88 dc 08 0d 5c 22 2b |G.V.....|!....\"+|
|000006e0| 29 87 22 20 5b 6e 75 6d | 20 63 61 6c 63 2d 73 74 |)." [num| calc-st|
|000006f0| 61 63 6b 2d 74 6f 70 20 | 63 61 6c 63 2d 73 74 61 |ack-top |calc-sta|
|00000700| 63 6b 20 69 6e 63 20 73 | 74 75 66 66 20 6e 65 77 |ck inc s|tuff new|
|00000710| 20 61 6c 6c 6f 77 2d 70 | 6f 6c 61 72 20 63 61 6c | allow-p|olar cal|
|00000720| 63 2d 66 69 6e 64 2d 66 | 69 72 73 74 2d 69 6e 63 |c-find-f|irst-inc|
|00000730| 6f 6d 70 6c 65 74 65 20 | 6e 74 68 63 64 72 20 31 |omplete |nthcdr 1|
|00000740| 20 30 20 65 72 72 6f 72 | 20 22 4e 6f 74 20 65 6e | 0 error| "Not en|
|00000750| 74 65 72 69 6e 67 20 61 | 20 76 65 63 74 6f 72 20 |tering a| vector |
|00000760| 6f 72 20 63 6f 6d 70 6c | 65 78 20 6e 75 6d 62 65 |or compl|ex numbe|
|00000770| 72 22 20 63 61 6c 63 2d | 74 6f 70 20 63 61 6c 63 |r" calc-|top calc|
|00000780| 2d 74 6f 70 2d 6c 69 73 | 74 20 61 70 70 65 6e 64 |-top-lis|t append|
|00000790| 20 76 65 63 20 34 20 32 | 20 28 30 29 20 70 6f 6c | vec 4 2| (0) pol|
|000007a0| 61 72 20 28 69 6e 63 6f | 6d 70 6c 65 74 65 20 63 |ar (inco|mplete c|
|000007b0| 70 6c 78 29 20 69 6e 74 | 76 20 28 69 6e 63 6f 6d |plx) int|v (incom|
|000007c0| 70 6c 65 74 65 20 63 70 | 6c 78 29 20 28 63 70 6c |plete cp|lx) (cpl|
|000007d0| 78 20 70 6f 6c 61 72 29 | 20 22 54 6f 6f 20 6d 61 |x polar)| "Too ma|
|000007e0| 6e 79 20 63 6f 6d 70 6f | 6e 65 6e 74 73 20 69 6e |ny compo|nents in|
|000007f0| 20 63 6f 6d 70 6c 65 78 | 20 6e 75 6d 62 65 72 22 | complex| number"|
|00000800| 20 35 20 22 54 6f 6f 20 | 6d 61 6e 79 20 63 6f 6d | 5 "Too |many com|
|00000810| 70 6f 6e 65 6e 74 73 20 | 69 6e 20 69 6e 74 65 72 |ponents |in inter|
|00000820| 76 61 6c 20 66 6f 72 6d | 22 20 63 61 6c 63 2d 70 |val form|" calc-p|
|00000830| 6f 70 2d 70 75 73 68 5d | 20 31 35 29 29 5d 20 32 |op-push]| 15))] 2|
|00000840| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|00000850| 73 65 6d 69 20 6e 69 6c | 20 28 69 6e 74 65 72 61 |semi nil| (intera|
|00000860| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00000870| 65 20 22 c0 88 c1 c2 21 | 87 22 20 5b 6e 69 6c 20 |e "....!|." [nil |
|00000880| 63 61 6c 63 2d 64 6f 20 | 28 6c 61 6d 62 64 61 20 |calc-do |(lambda |
|00000890| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|000008a0| ca cb 09 0a 5c 22 cc 5c | 22 18 08 cd 55 85 11 00 |....\".\|"...U...|
|000008b0| ce cf 21 88 d0 08 21 d1 | 08 53 21 1c 1b cc 0b 38 |..!...!.|.S!....8|
|000008c0| d2 3d 83 2e 00 d3 d4 0b | 41 41 5c 22 89 13 82 3f |.=......|AA\"...?|
|000008d0| 00 cc 0b 38 d5 3d 85 3f | 00 d3 d6 0b 41 41 41 5c |...8.=.?|....AAA\|
|000008e0| 22 89 13 88 cc 0b 38 d7 | 3d 83 70 00 d3 0b 0c 5c |".....8.|=.p....\|
|000008f0| 22 1d 0d 47 d8 56 83 5a | 00 ce d9 21 82 67 00 0d |"..G.V.Z|...!.g..|
|00000900| 47 da 55 85 67 00 d3 0d | db 5c 22 89 15 88 dc 08 |G.U.g...|.\".....|
|00000910| 0d 5c 22 29 82 f4 00 0c | 3f 83 98 00 0b 47 da 56 |.\")....|?....G.V|
|00000920| 85 95 00 dd da 0b 38 21 | 83 89 00 de 20 82 95 00 |......8!|.... ...|
|00000930| dc cc df e0 0b 41 41 45 | df e0 44 23 82 f4 00 dd |.....AAE|..D#....|
|00000940| 0c 40 21 83 a4 00 de 20 | 82 f4 00 e1 e1 08 09 5c |.@!.... |.......\|
|00000950| 5c 0a 38 21 21 df 3d 83 | c4 00 e2 20 88 de 20 88 |\.8!!.=.|... .. .|
|00000960| c7 c7 1e 08 1e 06 e3 20 | 2a 82 f4 00 0b 47 da 55 |....... |*....G.U|
|00000970| 86 d0 00 dd da 0b 38 21 | 83 e3 00 dc 08 d3 0b e0 |......8!|........|
|00000980| 0c 42 43 5c 22 df e0 44 | 23 82 f4 00 dc 08 df e0 |.BC\"..D|#.......|
|00000990| e0 d3 0b 41 41 0c 5c 22 | 42 45 df e0 44 23 2a 29 |...AA.\"|BE..D#*)|
|000009a0| 87 22 20 5b 6e 75 6d 20 | 63 61 6c 63 2d 73 74 61 |." [num |calc-sta|
|000009b0| 63 6b 2d 74 6f 70 20 63 | 61 6c 63 2d 73 74 61 63 |ck-top c|alc-stac|
|000009c0| 6b 20 69 6e 63 20 73 74 | 75 66 66 20 6e 65 77 20 |k inc st|uff new |
|000009d0| 63 61 6c 63 2d 61 6c 67 | 65 62 72 61 69 63 2d 6d |calc-alg|ebraic-m|
|000009e0| 6f 64 65 20 6e 69 6c 20 | 63 61 6c 63 2d 69 6e 63 |ode nil |calc-inc|
|000009f0| 6f 6d 70 6c 65 74 65 2d | 61 6c 67 65 62 72 61 69 |omplete-|algebrai|
|00000a00| 63 2d 6d 6f 64 65 20 74 | 20 63 61 6c 63 2d 66 69 |c-mode t| calc-fi|
|00000a10| 6e 64 2d 66 69 72 73 74 | 2d 69 6e 63 6f 6d 70 6c |nd-first|-incompl|
|00000a20| 65 74 65 20 6e 74 68 63 | 64 72 20 31 20 30 20 65 |ete nthc|dr 1 0 e|
|00000a30| 72 72 6f 72 20 22 4e 6f | 74 20 65 6e 74 65 72 69 |rror "No|t enteri|
|00000a40| 6e 67 20 61 20 76 65 63 | 74 6f 72 20 6f 72 20 63 |ng a vec|tor or c|
|00000a50| 6f 6d 70 6c 65 78 20 6e | 75 6d 62 65 72 22 20 63 |omplex n|umber" c|
|00000a60| 61 6c 63 2d 74 6f 70 20 | 63 61 6c 63 2d 74 6f 70 |alc-top |calc-top|
|00000a70| 2d 6c 69 73 74 20 63 70 | 6c 78 20 61 70 70 65 6e |-list cp|lx appen|
|00000a80| 64 20 28 69 6e 63 6f 6d | 70 6c 65 74 65 20 70 6f |d (incom|plete po|
|00000a90| 6c 61 72 29 20 69 6e 74 | 76 20 28 69 6e 63 6f 6d |lar) int|v (incom|
|00000aa0| 70 6c 65 74 65 20 70 6f | 6c 61 72 29 20 70 6f 6c |plete po|lar) pol|
|00000ab0| 61 72 20 34 20 22 54 6f | 6f 20 6d 61 6e 79 20 63 |ar 4 "To|o many c|
|00000ac0| 6f 6d 70 6f 6e 65 6e 74 | 73 20 69 6e 20 63 6f 6d |omponent|s in com|
|00000ad0| 70 6c 65 78 20 6e 75 6d | 62 65 72 22 20 32 20 28 |plex num|ber" 2 (|
|00000ae0| 31 29 20 63 61 6c 63 2d | 70 6f 70 2d 70 75 73 68 |1) calc-|pop-push|
|00000af0| 20 6d 61 74 68 2d 76 65 | 63 74 6f 72 70 20 63 61 | math-ve|ctorp ca|
|00000b00| 6c 63 2d 63 6f 6d 6d 61 | 20 69 6e 63 6f 6d 70 6c |lc-comma| incompl|
|00000b10| 65 74 65 20 76 65 63 20 | 63 61 72 2d 73 61 66 65 |ete vec |car-safe|
|00000b20| 20 63 61 6c 63 2d 65 6e | 64 2d 76 65 63 74 6f 72 | calc-en|d-vector|
|00000b30| 20 63 61 6c 63 2d 62 65 | 67 69 6e 2d 76 65 63 74 | calc-be|gin-vect|
|00000b40| 6f 72 5d 20 33 32 29 29 | 5d 20 32 29 29 0a 0a 28 |or] 32))|] 2))..(|
|00000b50| 64 65 66 75 6e 20 63 61 | 6c 63 2d 64 69 67 69 74 |defun ca|lc-digit|
|00000b60| 2d 64 6f 74 73 20 6e 69 | 6c 20 28 62 79 74 65 2d |-dots ni|l (byte-|
|00000b70| 63 6f 64 65 20 22 08 c5 | 3d 83 2f 00 c6 c7 21 88 |code "..|=./...!.|
|00000b80| c8 c9 21 85 13 00 c6 c7 | 21 88 ca 10 cb 89 11 88 |..!.....|!.......|
|00000b90| 0a 83 23 00 cc 20 82 2c | 00 c4 89 13 88 cd 20 88 |..#.. .,|...... .|
|00000ba0| ce 20 82 32 00 c6 c7 21 | 87 22 20 5b 63 61 6c 63 |. .2...!|." [calc|
|00000bb0| 2d 70 72 65 76 2d 63 68 | 61 72 20 6c 61 73 74 2d |-prev-ch|ar last-|
|00000bc0| 63 6f 6d 6d 61 6e 64 2d | 63 68 61 72 20 63 61 6c |command-|char cal|
|00000bd0| 63 2d 70 72 65 76 2d 70 | 72 65 76 2d 63 68 61 72 |c-prev-p|rev-char|
|00000be0| 20 63 61 6c 63 2d 64 69 | 67 69 74 2d 76 61 6c 75 | calc-di|git-valu|
|00000bf0| 65 20 6e 69 6c 20 34 36 | 20 64 65 6c 65 74 65 2d |e nil 46| delete-|
|00000c00| 62 61 63 6b 77 61 72 64 | 2d 63 68 61 72 20 31 20 |backward|-char 1 |
|00000c10| 63 61 6c 63 2d 6d 69 6e | 69 62 75 66 66 65 72 2d |calc-min|ibuffer-|
|00000c20| 63 6f 6e 74 61 69 6e 73 | 20 22 2e 2a 5c 5c 2e 5c |contains| ".*\\.\|
|00000c30| 5c 27 22 20 64 6f 74 73 | 20 33 32 20 63 61 6c 63 |\'" dots| 32 calc|
|00000c40| 44 69 67 69 74 2d 6e 6f | 6e 64 69 67 69 74 20 65 |Digit-no|ndigit e|
|00000c50| 72 61 73 65 2d 62 75 66 | 66 65 72 20 65 78 69 74 |rase-buf|fer exit|
|00000c60| 2d 6d 69 6e 69 62 75 66 | 66 65 72 5d 20 38 29 29 |-minibuf|fer] 8))|
|00000c70| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 64 6f |..(defun| calc-do|
|00000c80| 74 73 20 6e 69 6c 20 28 | 69 6e 74 65 72 61 63 74 |ts nil (|interact|
|00000c90| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00000ca0| 22 c0 88 c1 c2 21 87 22 | 20 5b 6e 69 6c 20 63 61 |"....!."| [nil ca|
|00000cb0| 6c 63 2d 64 6f 20 28 6c | 61 6d 62 64 61 20 6e 69 |lc-do (l|ambda ni|
|00000cc0| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c6 c7 |l (byte-|code "..|
|00000cd0| 09 0a 5c 22 c8 5c 22 18 | 08 c9 55 85 11 00 ca cb |..\".\".|..U.....|
|00000ce0| 21 88 cc 08 21 1b cd 08 | 53 21 1c ce 0b 0c 5c 22 |!...!...|S!....\"|
|00000cf0| 1d c8 0d 38 cf 3d 3f 85 | 3e 00 ce d0 c8 0d 38 d1 |...8.=?.|>.....8.|
|00000d00| 3d 83 37 00 d2 82 38 00 | d3 0d 41 41 23 89 15 88 |=.7...8.|..AA#...|
|00000d10| 0c 3f 85 48 00 0d 47 d4 | 55 85 51 00 ce 0d d5 5c |.?.H..G.|U.Q....\|
|00000d20| 22 89 15 88 0d 47 d6 56 | 85 5c 5c 00 ca d7 21 88 |"....G.V|.\\...!.|
|00000d30| d8 08 0d 5c 22 2b 29 87 | 22 20 5b 6e 75 6d 20 63 |...\"+).|" [num c|
|00000d40| 61 6c 63 2d 73 74 61 63 | 6b 2d 74 6f 70 20 63 61 |alc-stac|k-top ca|
|00000d50| 6c 63 2d 73 74 61 63 6b | 20 69 6e 63 20 73 74 75 |lc-stack| inc stu|
|00000d60| 66 66 20 6e 65 77 20 63 | 61 6c 63 2d 66 69 6e 64 |ff new c|alc-find|
|00000d70| 2d 66 69 72 73 74 2d 69 | 6e 63 6f 6d 70 6c 65 74 |-first-i|ncomplet|
|00000d80| 65 20 6e 74 68 63 64 72 | 20 31 20 30 20 65 72 72 |e nthcdr| 1 0 err|
|00000d90| 6f 72 20 22 4e 6f 74 20 | 65 6e 74 65 72 69 6e 67 |or "Not |entering|
|00000da0| 20 61 6e 20 69 6e 74 65 | 72 76 61 6c 20 66 6f 72 | an inte|rval for|
|00000db0| 6d 22 20 63 61 6c 63 2d | 74 6f 70 20 63 61 6c 63 |m" calc-|top calc|
|00000dc0| 2d 74 6f 70 2d 6c 69 73 | 74 20 61 70 70 65 6e 64 |-top-lis|t append|
|00000dd0| 20 69 6e 74 76 20 28 69 | 6e 63 6f 6d 70 6c 65 74 | intv (i|ncomplet|
|00000de0| 65 20 69 6e 74 76 29 20 | 76 65 63 20 28 32 29 20 |e intv) |vec (2) |
|00000df0| 28 30 29 20 33 20 28 28 | 6e 65 67 20 28 76 61 72 |(0) 3 ((|neg (var|
|00000e00| 20 69 6e 66 20 76 61 72 | 2d 69 6e 66 29 29 29 20 | inf var|-inf))) |
|00000e10| 35 20 22 54 6f 6f 20 6d | 61 6e 79 20 63 6f 6d 70 |5 "Too m|any comp|
|00000e20| 6f 6e 65 6e 74 73 20 69 | 6e 20 69 6e 74 65 72 76 |onents i|n interv|
|00000e30| 61 6c 20 66 6f 72 6d 22 | 20 63 61 6c 63 2d 70 6f |al form"| calc-po|
|00000e40| 70 2d 70 75 73 68 5d 20 | 31 32 29 29 5d 20 32 29 |p-push] |12))] 2)|
|00000e50| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 66 |)..(defu|n calc-f|
|00000e60| 69 6e 64 2d 66 69 72 73 | 74 2d 69 6e 63 6f 6d 70 |ind-firs|t-incomp|
|00000e70| 6c 65 74 65 20 28 73 74 | 61 63 6b 20 6e 29 20 28 |lete (st|ack n) (|
|00000e80| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 3f 83 09 00 |byte-cod|e ".?...|
|00000e90| c3 82 1e 00 c4 c4 08 40 | 21 21 c5 3d 83 18 00 09 |.......@|!!.=....|
|00000ea0| 82 1e 00 c6 08 41 09 54 | 5c 22 87 22 20 5b 73 74 |.....A.T|\"." [st|
|00000eb0| 61 63 6b 20 6e 20 74 20 | 30 20 63 61 72 2d 73 61 |ack n t |0 car-sa|
|00000ec0| 66 65 20 69 6e 63 6f 6d | 70 6c 65 74 65 20 63 61 |fe incom|plete ca|
|00000ed0| 6c 63 2d 66 69 6e 64 2d | 66 69 72 73 74 2d 69 6e |lc-find-|first-in|
|00000ee0| 63 6f 6d 70 6c 65 74 65 | 5d 20 35 29 29 0a 0a 28 |complete|] 5))..(|
|00000ef0| 64 65 66 75 6e 20 63 61 | 6c 63 2d 69 6e 63 6f 6d |defun ca|lc-incom|
|00000f00| 70 6c 65 74 65 2d 65 72 | 72 6f 72 20 28 61 29 20 |plete-er|ror (a) |
|00000f10| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c2 08 38 c3 |(byte-co|de "..8.|
|00000f20| 3e 83 0e 00 c4 c5 21 82 | 2d 00 c2 08 38 c6 3d 83 |>.....!.|-...8.=.|
|00000f30| 1c 00 c4 c7 21 82 2d 00 | c2 08 38 c8 3d 83 2a 00 |....!.-.|..8.=.*.|
|00000f40| c4 c9 21 82 2d 00 c4 ca | 21 87 22 20 5b 61 20 74 |..!.-...|!." [a t|
|00000f50| 20 31 20 28 63 70 6c 78 | 20 70 6f 6c 61 72 29 20 | 1 (cplx| polar) |
|00000f60| 65 72 72 6f 72 20 22 43 | 6f 6d 70 6c 65 78 20 6e |error "C|omplex n|
|00000f70| 75 6d 62 65 72 20 69 73 | 20 69 6e 63 6f 6d 70 6c |umber is| incompl|
|00000f80| 65 74 65 22 20 76 65 63 | 20 22 56 65 63 74 6f 72 |ete" vec| "Vector|
|00000f90| 20 69 73 20 69 6e 63 6f | 6d 70 6c 65 74 65 22 20 | is inco|mplete" |
|00000fa0| 69 6e 74 76 20 22 49 6e | 74 65 72 76 61 6c 20 66 |intv "In|terval f|
|00000fb0| 6f 72 6d 20 69 73 20 69 | 6e 63 6f 6d 70 6c 65 74 |orm is i|ncomplet|
|00000fc0| 65 22 20 22 4f 62 6a 65 | 63 74 20 69 73 20 69 6e |e" "Obje|ct is in|
|00000fd0| 63 6f 6d 70 6c 65 74 65 | 22 5d 20 35 29 29 0a    |complete|"] 5)). |
+--------+-------------------------+-------------------------+--------+--------+