/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / float.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 33 3a 30 34 3a 32 | 30 20 31 39 39 33 0a 3b | 23:04:2|0 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 66 6c 6f | 61 74 2e 65 6c 0a 3b 3b |lisp/flo|at.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 31 35 2e 31 36 | 2e 0a 3b 3b 3b 20 62 79 |19.15.16|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|00000190| 65 72 72 6f 72 20 22 54 | 68 69 73 20 66 69 6c 65 |error "T|his file|
|000001a0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001b0| 72 20 45 6d 61 63 73 20 | 31 39 22 29 29 0a 0a 28 |r Emacs |19"))..(|
|000001c0| 64 65 66 63 6f 6e 73 74 | 20 65 78 70 2d 62 61 73 |defconst| exp-bas|
|000001d0| 65 20 32 20 22 5c 0a 42 | 61 73 65 20 6f 66 20 65 |e 2 "\.B|ase of e|
|000001e0| 78 70 6f 6e 65 6e 74 20 | 69 6e 20 74 68 69 73 20 |xponent |in this |
|000001f0| 66 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 20 72 |floating| point r|
|00000200| 65 70 72 65 73 65 6e 74 | 61 74 69 6f 6e 2e 22 29 |epresent|ation.")|
|00000210| 0a 28 64 65 66 63 6f 6e | 73 74 20 6d 61 6e 74 69 |.(defcon|st manti|
|00000220| 73 73 61 2d 62 69 74 73 | 20 32 34 20 22 5c 0a 4e |ssa-bits| 24 "\.N|
|00000230| 75 6d 62 65 72 20 6f 66 | 20 73 69 67 6e 69 66 69 |umber of| signifi|
|00000240| 63 61 6e 74 20 62 69 74 | 73 20 69 6e 20 74 68 69 |cant bit|s in thi|
|00000250| 73 20 66 6c 6f 61 74 69 | 6e 67 20 70 6f 69 6e 74 |s floati|ng point|
|00000260| 20 72 65 70 72 65 73 65 | 6e 74 61 74 69 6f 6e 2e | represe|ntation.|
|00000270| 22 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 64 65 63 |").(defc|onst dec|
|00000280| 69 6d 61 6c 2d 64 69 67 | 69 74 73 20 36 20 22 5c |imal-dig|its 6 "\|
|00000290| 0a 4e 75 6d 62 65 72 20 | 6f 66 20 64 65 63 69 6d |.Number |of decim|
|000002a0| 61 6c 20 64 69 67 69 74 | 73 20 65 78 70 65 63 74 |al digit|s expect|
|000002b0| 65 64 20 74 6f 20 62 65 | 20 61 63 63 75 72 61 74 |ed to be| accurat|
|000002c0| 65 2e 22 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 65 |e.").(de|fconst e|
|000002d0| 78 70 74 2d 64 69 67 69 | 74 73 20 32 20 22 5c 0a |xpt-digi|ts 2 "\.|
|000002e0| 4d 61 78 69 6d 75 6d 20 | 70 65 72 6d 69 74 74 65 |Maximum |permitte|
|000002f0| 64 20 64 69 67 69 74 73 | 20 69 6e 20 61 20 73 63 |d digits| in a sc|
|00000300| 69 65 6e 74 69 66 69 63 | 20 6e 6f 74 61 74 69 6f |ientific| notatio|
|00000310| 6e 20 65 78 70 6f 6e 65 | 6e 74 2e 22 29 0a 28 64 |n expone|nt.").(d|
|00000320| 65 66 63 6f 6e 73 74 20 | 6d 61 78 62 69 74 20 28 |efconst |maxbit (|
|00000330| 31 2d 20 6d 61 6e 74 69 | 73 73 61 2d 62 69 74 73 |1- manti|ssa-bits|
|00000340| 29 20 22 5c 0a 4e 75 6d | 62 65 72 20 6f 66 20 68 |) "\.Num|ber of h|
|00000350| 69 67 68 65 73 74 20 62 | 69 74 22 29 0a 28 64 65 |ighest b|it").(de|
|00000360| 66 63 6f 6e 73 74 20 6d | 61 6e 74 69 73 73 61 2d |fconst m|antissa-|
|00000370| 6d 61 78 76 61 6c 20 28 | 62 79 74 65 2d 63 6f 64 |maxval (|byte-cod|
|00000380| 65 20 22 c0 c1 5c 6e 5c | 22 53 87 22 20 5b 61 73 |e "..\n\|"S." [as|
|00000390| 68 20 31 20 6d 61 78 62 | 69 74 5d 20 33 29 20 22 |h 1 maxb|it] 3) "|
|000003a0| 5c 0a 4d 61 78 69 6d 75 | 6d 20 70 65 72 6d 69 73 |\.Maximu|m permis|
|000003b0| 73 69 62 6c 65 20 76 61 | 6c 75 65 20 6f 66 20 6d |sible va|lue of m|
|000003c0| 61 6e 74 69 73 73 61 22 | 29 0a 28 64 65 66 63 6f |antissa"|).(defco|
|000003d0| 6e 73 74 20 6d 61 6e 74 | 69 73 73 61 2d 6d 69 6e |nst mant|issa-min|
|000003e0| 76 61 6c 20 28 61 73 68 | 20 31 20 6d 61 78 62 69 |val (ash| 1 maxbi|
|000003f0| 74 29 20 22 5c 0a 4d 69 | 6e 69 6d 75 6d 20 70 65 |t) "\.Mi|nimum pe|
|00000400| 72 6d 69 73 73 69 62 6c | 65 20 76 61 6c 75 65 20 |rmissibl|e value |
|00000410| 6f 66 20 6d 61 6e 74 69 | 73 73 61 22 29 0a 28 64 |of manti|ssa").(d|
|00000420| 65 66 63 6f 6e 73 74 20 | 66 6c 6f 61 74 69 6e 67 |efconst |floating|
|00000430| 2d 70 6f 69 6e 74 2d 72 | 65 67 65 78 70 20 22 5e |-point-r|egexp "^|
|00000440| 5b 20 09 5d 2a 5c 5c 28 | 2d 3f 5c 5c 29 5c 5c 28 |[ .]*\\(|-?\\)\\(|
|00000450| 5b 30 2d 39 5d 2a 5c 5c | 29 5c 5c 28 5c 5c 2e 5c |[0-9]*\\|)\\(\\.\|
|00000460| 5c 28 5b 30 2d 39 5d 2a | 5c 5c 29 5c 5c 7c 5c 5c |\([0-9]*|\\)\\|\\|
|00000470| 29 5c 5c 28 5c 5c 28 5c | 5c 28 5b 45 65 5d 5c 5c |)\\(\\(\|\([Ee]\\|
|00000480| 29 5c 5c 28 2d 3f 5c 5c | 29 5c 5c 28 5b 30 2d 39 |)\\(-?\\|)\\([0-9|
|00000490| 5d 5b 30 2d 39 5d 2a 5c | 5c 29 5c 5c 29 5c 5c 7c |][0-9]*\|\)\\)\\||
|000004a0| 5c 5c 29 5b 20 09 5d 2a | 24 22 20 22 5c 0a 52 65 |\\)[ .]*|$" "\.Re|
|000004b0| 67 75 6c 61 72 20 65 78 | 70 72 65 73 73 69 6f 6e |gular ex|pression|
|000004c0| 20 74 6f 20 6d 61 74 63 | 68 20 66 6c 6f 61 74 69 | to matc|h floati|
|000004d0| 6e 67 20 70 6f 69 6e 74 | 20 6e 75 6d 62 65 72 73 |ng point| numbers|
|000004e0| 2e 20 20 45 78 74 72 61 | 63 74 20 6d 61 74 63 68 |.  Extra|ct match|
|000004f0| 65 73 3a 0a 31 20 2d 20 | 6d 69 6e 75 73 20 73 69 |es:.1 - |minus si|
|00000500| 67 6e 0a 32 20 2d 20 69 | 6e 74 65 67 65 72 20 70 |gn.2 - i|nteger p|
|00000510| 61 72 74 0a 34 20 2d 20 | 66 72 61 63 74 69 6f 6e |art.4 - |fraction|
|00000520| 61 6c 20 70 61 72 74 0a | 38 20 2d 20 6d 69 6e 75 |al part.|8 - minu|
|00000530| 73 20 73 69 67 6e 20 66 | 6f 72 20 70 6f 77 65 72 |s sign f|or power|
|00000540| 20 6f 66 20 74 65 6e 0a | 39 20 2d 20 70 6f 77 65 | of ten.|9 - powe|
|00000550| 72 20 6f 66 20 74 65 6e | 0a 22 29 0a 28 64 65 66 |r of ten|.").(def|
|00000560| 63 6f 6e 73 74 20 68 69 | 67 68 2d 62 69 74 2d 6d |const hi|gh-bit-m|
|00000570| 61 73 6b 20 28 61 73 68 | 20 31 20 6d 61 78 62 69 |ask (ash| 1 maxbi|
|00000580| 74 29 20 22 5c 0a 4d 61 | 73 6b 73 20 61 6c 6c 20 |t) "\.Ma|sks all |
|00000590| 62 69 74 73 20 65 78 63 | 65 70 74 20 74 68 65 20 |bits exc|ept the |
|000005a0| 68 69 67 68 2d 6f 72 64 | 65 72 20 28 73 69 67 6e |high-ord|er (sign|
|000005b0| 29 20 62 69 74 2e 22 29 | 0a 28 64 65 66 63 6f 6e |) bit.")|.(defcon|
|000005c0| 73 74 20 73 65 63 6f 6e | 64 2d 62 69 74 2d 6d 61 |st secon|d-bit-ma|
|000005d0| 73 6b 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |sk (byte|-code ".|
|000005e0| c1 5c 6e 53 5c 22 87 22 | 20 5b 61 73 68 20 31 20 |.\nS\"."| [ash 1 |
|000005f0| 6d 61 78 62 69 74 5d 20 | 33 29 20 22 5c 0a 4d 61 |maxbit] |3) "\.Ma|
|00000600| 73 6b 73 20 61 6c 6c 20 | 62 69 74 73 20 65 78 63 |sks all |bits exc|
|00000610| 65 70 74 20 74 68 65 20 | 68 69 67 68 65 73 74 2d |ept the |highest-|
|00000620| 6f 72 64 65 72 20 6d 61 | 67 6e 69 74 75 64 65 20 |order ma|gnitude |
|00000630| 62 69 74 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |bit").(b|yte-code|
|00000640| 20 22 c0 11 c2 13 c4 15 | c6 16 07 c8 0e 09 54 0d | "......|......T.|
|00000650| 5c 22 89 16 5c 6e cb 0e | 07 49 88 0e 5c 6e cc cd |\"..\n..|.I..\n..|
|00000660| 49 88 0e 5c 6e ce cf 49 | 88 0e 5c 6e d0 d1 49 88 |I..\n..I|..\n..I.|
|00000670| 0e 5c 6e d2 d3 49 88 0e | 5c 6e d4 d5 49 88 0e 5c |.\n..I..|\n..I..\|
|00000680| 6e 0e 09 53 48 16 16 0e | 5c 6e 0e 09 48 16 17 d8 |n..SH...|\n..H...|
|00000690| d9 da 5c 22 88 d8 db dc | 5c 22 88 d8 dd de 5c 22 |..\"....|\"....\"|
|000006a0| 88 d8 df e0 5c 22 88 d8 | e1 e2 5c 22 88 d8 e3 e4 |....\"..|..\"....|
|000006b0| 5c 22 88 d8 e5 e6 5c 22 | 88 d8 e7 e8 5c 22 88 0e |\"....\"|....\"..|
|000006c0| 29 cc a5 16 2a eb cb 0e | 2a 5c 22 53 16 2c ed 0e |)...*...|*\"S.,..|
|000006d0| 2c 21 16 2e eb cb 0e 2a | cc a5 5c 22 16 2f d8 f0 |,!.....*|..\"./..|
|000006e0| f1 5c 22 88 d8 f2 f3 5c | 22 87 22 20 5b 28 30 20 |.\"....\|"." [(0 |
|000006f0| 2e 20 31 29 20 5f 66 30 | 20 28 34 31 39 34 33 30 |. 1) _f0| (419430|
|00000700| 34 20 2e 20 2d 32 33 29 | 20 5f 66 31 2f 32 20 28 |4 . -23)| _f1/2 (|
|00000710| 34 31 39 34 33 30 34 20 | 2e 20 2d 32 32 29 20 5f |4194304 |. -22) _|
|00000720| 66 31 20 28 35 32 34 32 | 38 38 30 20 2e 20 2d 31 |f1 (5242|880 . -1|
|00000730| 39 29 20 5f 66 31 30 20 | 6d 61 6b 65 2d 76 65 63 |9) _f10 |make-vec|
|00000740| 74 6f 72 20 64 65 63 69 | 6d 61 6c 2d 64 69 67 69 |tor deci|mal-digi|
|00000750| 74 73 20 70 6f 77 65 72 | 73 2d 6f 66 2d 31 30 20 |ts power|s-of-10 |
|00000760| 31 20 32 20 28 36 35 35 | 33 36 30 30 20 2e 20 2d |1 2 (655|3600 . -|
|00000770| 31 36 29 20 33 20 28 38 | 31 39 32 30 30 30 20 2e |16) 3 (8|192000 .|
|00000780| 20 2d 31 33 29 20 34 20 | 28 35 31 32 30 30 30 30 | -13) 4 |(5120000|
|00000790| 20 2e 20 2d 39 29 20 35 | 20 28 36 34 30 30 30 30 | . -9) 5| (640000|
|000007a0| 30 20 2e 20 2d 36 29 20 | 36 20 28 38 30 30 30 30 |0 . -6) |6 (80000|
|000007b0| 30 30 20 2e 20 2d 33 29 | 20 61 6c 6c 2d 64 65 63 |00 . -3)| all-dec|
|000007c0| 69 6d 61 6c 2d 64 69 67 | 73 2d 6d 69 6e 76 61 6c |imal-dig|s-minval|
|000007d0| 20 68 69 67 68 65 73 74 | 2d 70 6f 77 65 72 2d 6f | highest|-power-o|
|000007e0| 66 2d 31 30 20 64 65 66 | 61 6c 69 61 73 20 66 61 |f-10 def|alias fa|
|000007f0| 73 68 6c 20 23 5b 28 66 | 6e 75 6d 29 20 22 c0 09 |shl #[(f|num) "..|
|00000800| 40 c2 5c 22 09 41 53 42 | 87 22 20 5b 61 73 68 20 |@.\".ASB|." [ash |
|00000810| 66 6e 75 6d 20 31 5d 20 | 33 5d 20 66 61 73 68 72 |fnum 1] |3] fashr|
|00000820| 20 23 5b 28 66 6e 75 6d | 29 20 22 c0 09 40 c2 5c | #[(fnum|) "..@.\|
|00000830| 22 09 41 54 42 87 22 20 | 5b 61 73 68 20 66 6e 75 |".ATB." |[ash fnu|
|00000840| 6d 20 2d 31 5d 20 33 5d | 20 6e 6f 72 6d 61 6c 69 |m -1] 3]| normali|
|00000850| 7a 65 20 23 5b 28 66 6e | 75 6d 29 20 22 08 40 c1 |ze #[(fn|um) ".@.|
|00000860| 56 83 18 00 c2 08 40 0b | 5c 22 c1 55 83 33 00 c4 |V.....@.|\".U.3..|
|00000870| 08 21 10 82 07 00 08 40 | c1 57 83 30 00 c2 08 40 |.!.....@|.W.0...@|
|00000880| 0d 5c 22 c1 55 83 33 00 | c4 08 21 10 82 1f 00 0e |.\".U.3.|..!.....|
|00000890| 06 10 08 87 22 20 5b 66 | 6e 75 6d 20 30 20 6c 6f |...." [f|num 0 lo|
|000008a0| 67 61 6e 64 20 73 65 63 | 6f 6e 64 2d 62 69 74 2d |gand sec|ond-bit-|
|000008b0| 6d 61 73 6b 20 66 61 73 | 68 6c 20 68 69 67 68 2d |mask fas|hl high-|
|000008c0| 62 69 74 2d 6d 61 73 6b | 20 5f 66 30 5d 20 33 5d |bit-mask| _f0] 3]|
|000008d0| 20 61 62 73 20 23 5b 28 | 6e 29 20 22 08 c1 59 83 | abs #[(|n) "..Y.|
|000008e0| 08 00 08 87 08 5b 87 22 | 20 5b 6e 20 30 5d 20 32 |.....[."| [n 0] 2|
|000008f0| 5d 20 66 61 62 73 20 23 | 5b 28 66 6e 75 6d 29 20 |] fabs #|[(fnum) |
|00000900| 22 c0 09 40 89 1a c3 59 | 83 0e 00 5c 6e 82 10 00 |"..@...Y|...\n...|
|00000910| 5c 6e 5b 29 09 41 42 21 | 87 22 20 5b 6e 6f 72 6d |\n[).AB!|." [norm|
|00000920| 61 6c 69 7a 65 20 66 6e | 75 6d 20 6e 20 30 5d 20 |alize fn|um n 0] |
|00000930| 34 5d 20 78 6f 72 20 23 | 5b 28 61 20 62 29 20 22 |4] xor #|[(a b) "|
|00000940| 08 84 08 00 09 85 0e 00 | 08 85 0d 00 09 3f 87 22 |........|.....?."|
|00000950| 20 5b 61 20 62 5d 20 31 | 5d 20 73 61 6d 65 2d 73 | [a b] 1|] same-s|
|00000960| 69 67 6e 20 23 5b 28 61 | 20 62 29 20 22 c0 c1 5c |ign #[(a| b) "..\|
|00000970| 6e 40 21 c1 0b 40 21 5c | 22 3f 87 22 20 5b 78 6f |n@!..@!\|"?." [xo|
|00000980| 72 20 6e 61 74 6e 75 6d | 70 20 61 20 62 5d 20 34 |r natnum|p a b] 4|
|00000990| 5d 20 65 78 74 72 61 63 | 74 2d 6d 61 74 63 68 20 |] extrac|t-match |
|000009a0| 23 5b 28 73 74 72 20 69 | 29 20 22 c0 c1 c2 8f 87 |#[(str i|) ".....|
|000009b0| 22 20 5b 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |" [nil (|byte-cod|
|000009c0| 65 20 22 08 09 94 09 95 | 4f 87 22 20 5b 73 74 72 |e ".....|O." [str|
|000009d0| 20 69 5d 20 33 29 20 28 | 28 65 72 72 6f 72 20 22 | i] 3) (|(error "|
|000009e0| 22 29 29 5d 20 33 5d 20 | 6d 61 6e 74 69 73 73 61 |"))] 3] |mantissa|
|000009f0| 2d 62 69 74 73 20 68 61 | 6c 66 77 6f 72 64 2d 62 |-bits ha|lfword-b|
|00000a00| 69 74 73 20 61 73 68 20 | 6d 61 73 6b 6c 6f 20 6c |its ash |masklo l|
|00000a10| 6f 67 6e 6f 74 20 6d 61 | 73 6b 68 69 20 72 6f 75 |ognot ma|skhi rou|
|00000a20| 6e 64 2d 6c 69 6d 69 74 | 20 68 69 68 61 6c 66 20 |nd-limit| hihalf |
|00000a30| 23 5b 28 6e 29 20 22 c0 | c1 5c 6e 0b 5c 22 0c 5b |#[(n) ".|.\n.\".[|
|00000a40| 5c 22 87 22 20 5b 61 73 | 68 20 6c 6f 67 61 6e 64 |\"." [as|h logand|
|00000a50| 20 6e 20 6d 61 73 6b 68 | 69 20 68 61 6c 66 77 6f | n maskh|i halfwo|
|00000a60| 72 64 2d 62 69 74 73 5d | 20 34 5d 20 6c 6f 68 61 |rd-bits]| 4] loha|
|00000a70| 6c 66 20 23 5b 28 6e 29 | 20 22 c0 09 5c 6e 5c 22 |lf #[(n)| "..\n\"|
|00000a80| 87 22 20 5b 6c 6f 67 61 | 6e 64 20 6e 20 6d 61 73 |." [loga|nd n mas|
|00000a90| 6b 6c 6f 5d 20 33 5d 5d | 20 35 29 0a 28 64 65 66 |klo] 3]]| 5).(def|
|00000aa0| 61 6c 69 61 73 20 27 66 | 2b 20 23 5b 28 61 31 20 |alias 'f|+ #[(a1 |
|00000ab0| 61 32 29 20 22 c0 09 5c | 6e 5c 22 c3 09 5c 6e 5c |a2) "..\|n\"..\n\|
|00000ac0| 22 1c 1d c6 09 5c 6e 5c | 22 83 19 00 c7 0d 21 15 |"....\n\|".....!.|
|00000ad0| c7 0c 21 14 c8 0d 40 c9 | 0c 40 0c 41 0d 41 5a 5c |..!...@.|.@.A.AZ\|
|00000ae0| 22 5c 5c 0d 41 42 21 2a | 87 22 20 5b 66 6d 61 78 |"\\.AB!*|." [fmax|
|00000af0| 20 61 31 20 61 32 20 66 | 6d 69 6e 20 66 32 20 66 | a1 a2 f|min f2 f|
|00000b00| 31 20 73 61 6d 65 2d 73 | 69 67 6e 20 66 61 73 68 |1 same-s|ign fash|
|00000b10| 72 20 6e 6f 72 6d 61 6c | 69 7a 65 20 61 73 68 5d |r normal|ize ash]|
|00000b20| 20 36 20 22 5c 0a 52 65 | 74 75 72 6e 73 20 74 68 | 6 "\.Re|turns th|
|00000b30| 65 20 73 75 6d 20 6f 66 | 20 74 77 6f 20 66 6c 6f |e sum of| two flo|
|00000b40| 61 74 69 6e 67 20 70 6f | 69 6e 74 20 6e 75 6d 62 |ating po|int numb|
|00000b50| 65 72 73 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ers."]).|(defalia|
|00000b60| 73 20 27 66 2d 20 23 5b | 28 61 31 20 26 6f 70 74 |s 'f- #[|(a1 &opt|
|00000b70| 69 6f 6e 61 6c 20 61 32 | 29 20 22 08 83 0b 00 c1 |ional a2|) ".....|
|00000b80| 5c 6e c3 08 21 5c 22 87 | c4 5c 6e 40 5b 5c 6e 41 |\n..!\".|.\n@[\nA|
|00000b90| 42 21 87 22 20 5b 61 32 | 20 66 2b 20 61 31 20 66 |B!." [a2| f+ a1 f|
|00000ba0| 2d 20 6e 6f 72 6d 61 6c | 69 7a 65 5d 20 34 20 22 |- normal|ize] 4 "|
|00000bb0| 5c 0a 52 65 74 75 72 6e | 73 20 74 68 65 20 64 69 |\.Return|s the di|
|00000bc0| 66 66 65 72 65 6e 63 65 | 20 6f 66 20 74 77 6f 20 |fference| of two |
|00000bd0| 66 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 20 6e |floating| point n|
|00000be0| 75 6d 62 65 72 73 2e 22 | 5d 29 0a 28 64 65 66 61 |umbers."|]).(defa|
|00000bf0| 6c 69 61 73 20 27 66 2a | 20 23 5b 28 61 31 20 61 |lias 'f*| #[(a1 a|
|00000c00| 32 29 20 22 c0 09 21 40 | 1a c0 0b 21 40 1c c5 09 |2) "..!@|...!@...|
|00000c10| 0b 5c 22 3f 1e 06 c7 c8 | 5c 6e 21 c8 0c 21 5f 21 |.\"?....|\n!..!_!|
|00000c20| c8 c7 5c 6e 21 c8 0c 21 | 5f 21 c8 89 5c 6e 21 c7 |..\n!..!|_!..\n!.|
|00000c30| 0c 21 5f 21 5c 5c 5c 5c | 1e 09 c7 5c 6e 21 c7 0c |.!_!\\\\|...\n!..|
|00000c40| 21 5f c7 89 5c 6e 21 c8 | 0c 21 5f 21 c7 c8 5c 6e |!_..\n!.|.!_!..\n|
|00000c50| 21 c7 0c 21 5f 21 c7 0e | 09 21 5c 5c 5c 5c 5c 5c |!..!_!..|.!\\\\\\|
|00000c60| 1e 5c 6e c8 0e 09 21 0e | 0b 56 83 61 00 0e 5c 6e |.\n...!.|.V.a..\n|
|00000c70| 54 16 5c 6e cc 0e 06 83 | 6d 00 0e 5c 6e 5b 82 6f |T.\n....|m..\n[.o|
|00000c80| 00 0e 5c 6e c0 09 21 41 | c0 0b 21 41 0e 0d 5c 5c |..\n..!A|..!A..\\|
|00000c90| 5c 5c 42 21 2d 87 22 20 | 5b 66 61 62 73 20 61 31 |\\B!-." |[fabs a1|
|00000ca0| 20 69 31 20 61 32 20 69 | 32 20 73 61 6d 65 2d 73 | i1 a2 i|2 same-s|
|00000cb0| 69 67 6e 20 73 69 67 6e | 20 68 69 68 61 6c 66 20 |ign sign| hihalf |
|00000cc0| 6c 6f 68 61 6c 66 20 70 | 72 6f 64 6c 6f 20 70 72 |lohalf p|rodlo pr|
|00000cd0| 6f 64 68 69 20 72 6f 75 | 6e 64 2d 6c 69 6d 69 74 |odhi rou|nd-limit|
|00000ce0| 20 6e 6f 72 6d 61 6c 69 | 7a 65 20 6d 61 6e 74 69 | normali|ze manti|
|00000cf0| 73 73 61 2d 62 69 74 73 | 5d 20 36 20 22 5c 0a 52 |ssa-bits|] 6 "\.R|
|00000d00| 65 74 75 72 6e 73 20 74 | 68 65 20 70 72 6f 64 75 |eturns t|he produ|
|00000d10| 63 74 20 6f 66 20 74 77 | 6f 20 66 6c 6f 61 74 69 |ct of tw|o floati|
|00000d20| 6e 67 20 70 6f 69 6e 74 | 20 6e 75 6d 62 65 72 73 |ng point| numbers|
|00000d30| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00000d40| 66 2f 20 23 5b 28 61 31 | 20 61 32 29 20 22 08 40 |f/ #[(a1| a2) ".@|
|00000d50| c1 55 83 0f 00 c2 c3 c4 | 0d 08 45 5c 22 87 0e 06 |.U......|..E\"...|
|00000d60| 53 c1 c7 0d 21 40 c7 08 | 21 40 c8 0d 08 5c 22 3f |S...!@..|!@...\"?|
|00000d70| 1e 09 1e 5c 6e 1e 0b 1e | 0c 1e 0d ce 0e 0d 21 83 |...\n...|......!.|
|00000d80| 63 00 0e 0b 0e 5c 6e 5a | c1 57 83 45 00 cf 0e 0c |c....\nZ|.W.E....|
|00000d90| d0 5c 22 16 0c 82 54 00 | cf 0e 0c d0 5c 22 54 16 |.\"...T.|....\"T.|
|00000da0| 0c 0e 0b 0e 5c 6e 5a 16 | 0b cf 0e 0b d0 5c 22 16 |....\nZ.|.....\".|
|00000db0| 0b 0e 0d 53 16 0d 82 2a | 00 d1 0e 09 83 6f 00 0e |...S...*|.....o..|
|00000dc0| 0c 5b 82 71 00 0e 0c c7 | 0d 21 41 c7 08 21 41 5a |.[.q....|.!A..!AZ|
|00000dd0| 0e 06 53 5a 42 21 2d 87 | 22 20 5b 61 32 20 30 20 |..SZB!-.|" [a2 0 |
|00000de0| 73 69 67 6e 61 6c 20 61 | 72 69 74 68 2d 65 72 72 |signal a|rith-err|
|00000df0| 6f 72 20 22 61 74 74 65 | 6d 70 74 20 74 6f 20 64 |or "atte|mpt to d|
|00000e00| 69 76 69 64 65 20 62 79 | 20 7a 65 72 6f 22 20 61 |ivide by| zero" a|
|00000e10| 31 20 6d 61 78 62 69 74 | 20 66 61 62 73 20 73 61 |1 maxbit| fabs sa|
|00000e20| 6d 65 2d 73 69 67 6e 20 | 73 69 67 6e 20 64 69 76 |me-sign |sign div|
|00000e30| 69 73 6f 72 20 64 69 76 | 69 64 65 6e 64 20 71 75 |isor div|idend qu|
|00000e40| 6f 74 69 65 6e 74 20 62 | 69 74 73 20 6e 61 74 6e |otient b|its natn|
|00000e50| 75 6d 70 20 61 73 68 20 | 31 20 6e 6f 72 6d 61 6c |ump ash |1 normal|
|00000e60| 69 7a 65 5d 20 37 20 22 | 5c 0a 52 65 74 75 72 6e |ize] 7 "|\.Return|
|00000e70| 73 20 74 68 65 20 71 75 | 6f 74 69 65 6e 74 20 6f |s the qu|otient o|
|00000e80| 66 20 74 77 6f 20 66 6c | 6f 61 74 69 6e 67 20 70 |f two fl|oating p|
|00000e90| 6f 69 6e 74 20 6e 75 6d | 62 65 72 73 2e 22 5d 29 |oint num|bers."])|
|00000ea0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 66 25 20 23 |.(defali|as 'f% #|
|00000eb0| 5b 28 61 31 20 61 32 29 | 20 22 c0 09 c2 c3 c4 09 |[(a1 a2)| "......|
|00000ec0| 0d 5c 22 21 0d 5c 22 5c | 22 87 22 20 5b 66 2d 20 |.\"!.\"\|"." [f- |
|00000ed0| 61 31 20 66 2a 20 66 74 | 72 75 6e 63 20 66 2f 20 |a1 f* ft|runc f/ |
|00000ee0| 61 32 5d 20 37 20 22 5c | 0a 52 65 74 75 72 6e 73 |a2] 7 "\|.Returns|
|00000ef0| 20 74 68 65 20 72 65 6d | 61 69 6e 64 65 72 20 6f | the rem|ainder o|
|00000f00| 66 20 66 69 72 73 74 20 | 66 6c 6f 61 74 69 6e 67 |f first |floating|
|00000f10| 20 70 6f 69 6e 74 20 6e | 75 6d 62 65 72 20 64 69 | point n|umber di|
|00000f20| 76 69 64 65 64 20 62 79 | 20 73 65 63 6f 6e 64 2e |vided by| second.|
|00000f30| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 |"]).(def|alias 'f|
|00000f40| 3d 20 23 5b 28 61 31 20 | 61 32 29 20 22 08 09 9a |= #[(a1 |a2) "...|
|00000f50| 87 22 20 5b 61 31 20 61 | 32 5d 20 32 20 22 5c 0a |." [a1 a|2] 2 "\.|
|00000f60| 52 65 74 75 72 6e 73 20 | 74 20 69 66 20 74 77 6f |Returns |t if two|
|00000f70| 20 66 6c 6f 61 74 69 6e | 67 20 70 6f 69 6e 74 20 | floatin|g point |
|00000f80| 6e 75 6d 62 65 72 73 20 | 61 72 65 20 65 71 75 61 |numbers |are equa|
|00000f90| 6c 2c 20 6e 69 6c 20 6f | 74 68 65 72 77 69 73 65 |l, nil o|therwise|
|00000fa0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00000fb0| 66 3e 20 23 5b 28 61 31 | 20 61 32 29 20 22 c0 09 |f> #[(a1| a2) "..|
|00000fc0| 40 21 83 10 00 5c 6e 40 | c3 57 83 10 00 c4 87 09 |@!...\n@|.W......|
|00000fd0| 40 c3 56 83 20 00 5c 6e | 40 c3 58 83 20 00 c4 87 |@.V. .\n|@.X. ...|
|00000fe0| 09 40 c3 58 83 30 00 c0 | 5c 6e 40 21 83 30 00 c5 |.@.X.0..|\n@!.0..|
|00000ff0| 87 09 41 5c 6e 41 55 84 | 3e 00 09 41 5c 6e 41 56 |..A\nAU.|>..A\nAV|
|00001000| 87 09 40 5c 6e 40 56 87 | 22 20 5b 6e 61 74 6e 75 |..@\n@V.|" [natnu|
|00001010| 6d 70 20 61 31 20 61 32 | 20 30 20 74 20 6e 69 6c |mp a1 a2| 0 t nil|
|00001020| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 74 |] 2 "\.R|eturns t|
|00001030| 20 69 66 20 66 69 72 73 | 74 20 66 6c 6f 61 74 69 | if firs|t floati|
|00001040| 6e 67 20 70 6f 69 6e 74 | 20 6e 75 6d 62 65 72 20 |ng point| number |
|00001050| 69 73 20 67 72 65 61 74 | 65 72 20 74 68 61 6e 20 |is great|er than |
|00001060| 73 65 63 6f 6e 64 2c 0a | 6e 69 6c 20 6f 74 68 65 |second,.|nil othe|
|00001070| 72 77 69 73 65 2e 22 5d | 29 0a 28 64 65 66 61 6c |rwise."]|).(defal|
|00001080| 69 61 73 20 27 66 3e 3d | 20 23 5b 28 61 31 20 61 |ias 'f>=| #[(a1 a|
|00001090| 32 29 20 22 c0 09 5c 6e | 5c 22 86 0b 00 c3 09 5c |2) "..\n|\".....\|
|000010a0| 6e 5c 22 87 22 20 5b 66 | 3e 20 61 31 20 61 32 20 |n\"." [f|> a1 a2 |
|000010b0| 66 3d 5d 20 33 20 22 5c | 0a 52 65 74 75 72 6e 73 |f=] 3 "\|.Returns|
|000010c0| 20 74 20 69 66 20 66 69 | 72 73 74 20 66 6c 6f 61 | t if fi|rst floa|
|000010d0| 74 69 6e 67 20 70 6f 69 | 6e 74 20 6e 75 6d 62 65 |ting poi|nt numbe|
|000010e0| 72 20 69 73 20 67 72 65 | 61 74 65 72 20 74 68 61 |r is gre|ater tha|
|000010f0| 6e 20 6f 72 20 65 71 75 | 61 6c 20 74 6f 20 0a 73 |n or equ|al to .s|
|00001100| 65 63 6f 6e 64 2c 20 6e | 69 6c 20 6f 74 68 65 72 |econd, n|il other|
|00001110| 77 69 73 65 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |wise."])|.(defali|
|00001120| 61 73 20 27 66 3c 20 23 | 5b 28 61 31 20 61 32 29 |as 'f< #|[(a1 a2)|
|00001130| 20 22 c0 09 5c 6e 5c 22 | 3f 87 22 20 5b 66 3e 3d | "..\n\"|?." [f>=|
|00001140| 20 61 31 20 61 32 5d 20 | 33 20 22 5c 0a 52 65 74 | a1 a2] |3 "\.Ret|
|00001150| 75 72 6e 73 20 74 20 69 | 66 20 66 69 72 73 74 20 |urns t i|f first |
|00001160| 66 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 20 6e |floating| point n|
|00001170| 75 6d 62 65 72 20 69 73 | 20 6c 65 73 73 20 74 68 |umber is| less th|
|00001180| 61 6e 20 73 65 63 6f 6e | 64 2c 0a 6e 69 6c 20 6f |an secon|d,.nil o|
|00001190| 74 68 65 72 77 69 73 65 | 2e 22 5d 29 0a 28 64 65 |therwise|."]).(de|
|000011a0| 66 61 6c 69 61 73 20 27 | 66 3c 3d 20 23 5b 28 61 |falias '|f<= #[(a|
|000011b0| 31 20 61 32 29 20 22 c0 | 09 5c 6e 5c 22 3f 87 22 |1 a2) ".|.\n\"?."|
|000011c0| 20 5b 66 3e 20 61 31 20 | 61 32 5d 20 33 20 22 5c | [f> a1 |a2] 3 "\|
|000011d0| 0a 52 65 74 75 72 6e 73 | 20 74 20 69 66 20 66 69 |.Returns| t if fi|
|000011e0| 72 73 74 20 66 6c 6f 61 | 74 69 6e 67 20 70 6f 69 |rst floa|ting poi|
|000011f0| 6e 74 20 6e 75 6d 62 65 | 72 20 69 73 20 6c 65 73 |nt numbe|r is les|
|00001200| 73 20 74 68 61 6e 20 6f | 72 20 65 71 75 61 6c 20 |s than o|r equal |
|00001210| 74 6f 0a 73 65 63 6f 6e | 64 2c 20 6e 69 6c 20 6f |to.secon|d, nil o|
|00001220| 74 68 65 72 77 69 73 65 | 2e 22 5d 29 0a 28 64 65 |therwise|."]).(de|
|00001230| 66 61 6c 69 61 73 20 27 | 66 2f 3d 20 23 5b 28 61 |falias '|f/= #[(a|
|00001240| 31 20 61 32 29 20 22 c0 | 09 5c 6e 5c 22 3f 87 22 |1 a2) ".|.\n\"?."|
|00001250| 20 5b 66 3d 20 61 31 20 | 61 32 5d 20 33 20 22 5c | [f= a1 |a2] 3 "\|
|00001260| 0a 52 65 74 75 72 6e 73 | 20 74 20 69 66 20 66 69 |.Returns| t if fi|
|00001270| 72 73 74 20 66 6c 6f 61 | 74 69 6e 67 20 70 6f 69 |rst floa|ting poi|
|00001280| 6e 74 20 6e 75 6d 62 65 | 72 20 69 73 20 6e 6f 74 |nt numbe|r is not|
|00001290| 20 65 71 75 61 6c 20 74 | 6f 20 73 65 63 6f 6e 64 | equal t|o second|
|000012a0| 2c 0a 6e 69 6c 20 6f 74 | 68 65 72 77 69 73 65 2e |,.nil ot|herwise.|
|000012b0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 |"]).(def|alias 'f|
|000012c0| 6d 69 6e 20 23 5b 28 61 | 31 20 61 32 29 20 22 c0 |min #[(a|1 a2) ".|
|000012d0| 09 5c 6e 5c 22 83 09 00 | 09 87 5c 6e 87 22 20 5b |.\n\"...|..\n." [|
|000012e0| 66 3c 20 61 31 20 61 32 | 5d 20 33 20 22 5c 0a 52 |f< a1 a2|] 3 "\.R|
|000012f0| 65 74 75 72 6e 73 20 74 | 68 65 20 6d 69 6e 69 6d |eturns t|he minim|
|00001300| 75 6d 20 6f 66 20 74 77 | 6f 20 66 6c 6f 61 74 69 |um of tw|o floati|
|00001310| 6e 67 20 70 6f 69 6e 74 | 20 6e 75 6d 62 65 72 73 |ng point| numbers|
|00001320| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00001330| 66 6d 61 78 20 23 5b 28 | 61 31 20 61 32 29 20 22 |fmax #[(|a1 a2) "|
|00001340| c0 09 5c 6e 5c 22 83 09 | 00 09 87 5c 6e 87 22 20 |..\n\"..|...\n." |
|00001350| 5b 66 3e 20 61 31 20 61 | 32 5d 20 33 20 22 5c 0a |[f> a1 a|2] 3 "\.|
|00001360| 52 65 74 75 72 6e 73 20 | 74 68 65 20 6d 61 78 69 |Returns |the maxi|
|00001370| 6d 75 6d 20 6f 66 20 74 | 77 6f 20 66 6c 6f 61 74 |mum of t|wo float|
|00001380| 69 6e 67 20 70 6f 69 6e | 74 20 6e 75 6d 62 65 72 |ing poin|t number|
|00001390| 73 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |s."]).(d|efalias |
|000013a0| 27 66 7a 65 72 6f 70 20 | 23 5b 28 66 6e 75 6d 29 |'fzerop |#[(fnum)|
|000013b0| 20 22 08 40 c1 55 87 22 | 20 5b 66 6e 75 6d 20 30 | ".@.U."| [fnum 0|
|000013c0| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 74 |] 2 "\.R|eturns t|
|000013d0| 20 69 66 20 74 68 65 20 | 66 6c 6f 61 74 69 6e 67 | if the |floating|
|000013e0| 20 70 6f 69 6e 74 20 6e | 75 6d 62 65 72 20 69 73 | point n|umber is|
|000013f0| 20 7a 65 72 6f 2c 20 6e | 69 6c 20 6f 74 68 65 72 | zero, n|il other|
|00001400| 77 69 73 65 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |wise."])|.(defali|
|00001410| 61 73 20 27 66 6c 6f 61 | 74 70 20 23 5b 28 66 6e |as 'floa|tp #[(fn|
|00001420| 75 6d 29 20 22 08 3a 85 | 0e 00 08 40 a8 85 0e 00 |um) ".:.|...@....|
|00001430| 08 41 a8 87 22 20 5b 66 | 6e 75 6d 5d 20 31 20 22 |.A.." [f|num] 1 "|
|00001440| 5c 0a 52 65 74 75 72 6e | 73 20 74 20 69 66 20 74 |\.Return|s t if t|
|00001450| 68 65 20 61 72 67 20 69 | 73 20 61 20 66 6c 6f 61 |he arg i|s a floa|
|00001460| 74 69 6e 67 20 70 6f 69 | 6e 74 20 6e 75 6d 62 65 |ting poi|nt numbe|
|00001470| 72 2c 20 6e 69 6c 20 6f | 74 68 65 72 77 69 73 65 |r, nil o|therwise|
|00001480| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00001490| 66 20 23 5b 28 69 6e 74 | 29 20 22 c0 09 c2 42 21 |f #[(int|) "...B!|
|000014a0| 87 22 20 5b 6e 6f 72 6d | 61 6c 69 7a 65 20 69 6e |." [norm|alize in|
|000014b0| 74 20 30 5d 20 33 20 22 | 5c 0a 43 6f 6e 76 65 72 |t 0] 3 "|\.Conver|
|000014c0| 74 20 74 68 65 20 69 6e | 74 65 67 65 72 20 61 72 |t the in|teger ar|
|000014d0| 67 75 6d 65 6e 74 20 74 | 6f 20 66 6c 6f 61 74 69 |gument t|o floati|
|000014e0| 6e 67 20 70 6f 69 6e 74 | 2c 20 6c 69 6b 65 20 61 |ng point|, like a|
|000014f0| 20 43 20 63 61 73 74 20 | 6f 70 65 72 61 74 6f 72 | C cast |operator|
|00001500| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00001510| 69 6e 74 2d 74 6f 2d 68 | 65 78 2d 73 74 72 69 6e |int-to-h|ex-strin|
|00001520| 67 20 23 5b 28 69 6e 74 | 29 20 22 c0 c1 c2 1b 1c |g #[(int|) ".....|
|00001530| 89 1d c6 58 83 23 00 0c | c7 0b c8 c9 0e 5c 6e 0d |...X.#..|.....\n.|
|00001540| 5c 22 cb 5c 22 48 21 50 | 14 0d cc 5c 5c 89 15 82 |\".\"H!P|...\\...|
|00001550| 07 00 0c 2b 87 22 20 5b | 2d 32 30 20 22 30 78 22 |...+." [|-20 "0x"|
|00001560| 20 22 30 31 32 33 34 35 | 36 37 38 39 41 42 43 44 | "012345|6789ABCD|
|00001570| 45 46 22 20 68 65 78 2d | 63 68 61 72 73 20 73 74 |EF" hex-|chars st|
|00001580| 72 20 73 68 69 66 74 76 | 61 6c 20 30 20 63 68 61 |r shiftv|al 0 cha|
|00001590| 72 2d 74 6f 2d 73 74 72 | 69 6e 67 20 6c 6f 67 61 |r-to-str|ing loga|
|000015a0| 6e 64 20 6c 73 68 20 69 | 6e 74 20 31 35 20 34 5d |nd lsh i|nt 15 4]|
|000015b0| 20 38 20 22 5c 0a 43 6f | 6e 76 65 72 74 20 74 68 | 8 "\.Co|nvert th|
|000015c0| 65 20 69 6e 74 65 67 65 | 72 20 61 72 67 75 6d 65 |e intege|r argume|
|000015d0| 6e 74 20 74 6f 20 61 20 | 43 2d 73 74 79 6c 65 20 |nt to a |C-style |
|000015e0| 68 65 78 61 64 65 63 69 | 6d 61 6c 20 73 74 72 69 |hexadeci|mal stri|
|000015f0| 6e 67 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ng."]).(|defalias|
|00001600| 20 27 66 74 72 75 6e 63 | 20 23 5b 28 66 6e 75 6d | 'ftrunc| #[(fnum|
|00001610| 29 20 22 c0 09 41 21 83 | 09 00 09 87 09 41 5c 6e |) "..A!.|.....A\n|
|00001620| 5b 58 83 13 00 c3 87 09 | 40 09 41 1c 1d c6 c0 0d |[X......|@.A.....|
|00001630| 21 83 2b 00 c7 89 0d 0c | 5c 22 0c 5b 5c 22 82 35 |!.+.....|\".[\".5|
|00001640| 00 c7 89 0d 5b 0c 5c 22 | 0c 5b 5c 22 5b 0c 42 21 |....[.\"|.[\"[.B!|
|00001650| 2a 87 22 20 5b 6e 61 74 | 6e 75 6d 70 20 66 6e 75 |*." [nat|nump fnu|
|00001660| 6d 20 6d 61 78 62 69 74 | 20 28 30 20 2e 20 31 29 |m maxbit| (0 . 1)|
|00001670| 20 65 78 70 20 6d 61 6e | 74 20 6e 6f 72 6d 61 6c | exp man|t normal|
|00001680| 69 7a 65 20 61 73 68 5d | 20 35 20 22 5c 0a 54 72 |ize ash]| 5 "\.Tr|
|00001690| 75 6e 63 61 74 65 20 74 | 68 65 20 66 72 61 63 74 |uncate t|he fract|
|000016a0| 69 6f 6e 61 6c 20 70 61 | 72 74 20 6f 66 20 61 20 |ional pa|rt of a |
|000016b0| 66 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 20 6e |floating| point n|
|000016c0| 75 6d 62 65 72 2e 22 5d | 29 0a 28 64 65 66 61 6c |umber."]|).(defal|
|000016d0| 69 61 73 20 27 66 69 6e | 74 20 23 5b 28 66 6e 75 |ias 'fin|t #[(fnu|
|000016e0| 6d 29 20 22 c0 09 21 89 | 1a 40 1b 5c 6e 41 89 1c |m) "..!.|.@.\nA..|
|000016f0| 0d 59 83 15 00 0e 06 82 | 25 00 0c 0d 5b 58 83 21 |.Y......|%...[X.!|
|00001700| 00 0e 07 82 25 00 c8 0b | 0c 5c 22 2b 87 22 20 5b |....%...|.\"+." [|
|00001710| 66 74 72 75 6e 63 20 66 | 6e 75 6d 20 74 66 20 74 |ftrunc f|num tf t|
|00001720| 69 6e 74 20 74 65 78 70 | 20 6d 61 6e 74 69 73 73 |int texp| mantiss|
|00001730| 61 2d 62 69 74 73 20 6d | 61 6e 74 69 73 73 61 2d |a-bits m|antissa-|
|00001740| 6d 61 78 76 61 6c 20 6d | 61 6e 74 69 73 73 61 2d |maxval m|antissa-|
|00001750| 6d 69 6e 76 61 6c 20 61 | 73 68 5d 20 34 20 22 5c |minval a|sh] 4 "\|
|00001760| 0a 43 6f 6e 76 65 72 74 | 20 74 68 65 20 66 6c 6f |.Convert| the flo|
|00001770| 61 74 69 6e 67 20 70 6f | 69 6e 74 20 6e 75 6d 62 |ating po|int numb|
|00001780| 65 72 20 74 6f 20 69 6e | 74 65 67 65 72 2c 20 77 |er to in|teger, w|
|00001790| 69 74 68 20 74 72 75 6e | 63 61 74 69 6f 6e 2c 20 |ith trun|cation, |
|000017a0| 0a 6c 69 6b 65 20 61 20 | 43 20 63 61 73 74 20 6f |.like a |C cast o|
|000017b0| 70 65 72 61 74 6f 72 2e | 22 5d 29 0a 28 64 65 66 |perator.|"]).(def|
|000017c0| 61 6c 69 61 73 20 27 66 | 6c 6f 61 74 2d 74 6f 2d |alias 'f|loat-to-|
|000017d0| 73 74 72 69 6e 67 20 23 | 5b 28 66 6e 75 6d 20 26 |string #|[(fnum &|
|000017e0| 6f 70 74 69 6f 6e 61 6c | 20 73 63 69 29 20 22 c0 |optional| sci) ".|
|000017f0| 09 21 1a 09 40 c3 57 1c | c3 1d c3 1e 06 c7 1e 08 |.!..@.W.|........|
|00001800| c3 1e 09 0e 5c 6e 1e 0b | cc 09 0e 0d 5c 22 83 24 |....\n..|....\".$|
|00001810| 00 ce 82 5a 01 cf 5c 6e | 0e 5c 6e 5c 22 83 60 00 |...Z..\n|.\n\".`.|
|00001820| d0 d1 0e 0b 0e 12 5c 22 | 89 16 09 5c 6e 5c 22 83 |......\"|...\n\".|
|00001830| 47 00 0e 09 16 0b 0d 0e | 13 5c 5c 15 82 2c 00 d0 |G.......|.\\..,..|
|00001840| d1 0e 0b 0e 14 5c 22 89 | 16 09 5c 6e 5c 22 83 91 |.....\".|..\n\"..|
|00001850| 00 0e 09 16 0b 0d 54 15 | 82 47 00 d5 d6 0e 0b 0e |......T.|.G......|
|00001860| 12 5c 22 89 16 09 5c 6e | 5c 22 83 7b 00 0e 09 16 |.\"...\n|\".{....|
|00001870| 0b 0d 0e 13 5a 15 82 60 | 00 d5 0e 0b 5c 6e 5c 22 |....Z..`|....\n\"|
|00001880| 83 91 00 d6 0e 0b 0e 14 | 5c 22 16 0b 0d 53 15 82 |........|\"...S..|
|00001890| 7b 00 d1 d6 5c 6e 0e 0b | 5c 22 0e 17 5c 22 12 d8 |{...\n..|\"..\"..|
|000018a0| 5c 6e 21 16 06 d9 1e 1a | d5 db 5c 6e 0e 06 5c 22 |\n!.....|..\n..\"|
|000018b0| 0e 1c 5c 22 83 b9 00 dd | 0e 06 21 54 16 1a 82 bf |..\"....|..!T....|
|000018c0| 00 dd 0e 06 21 16 1a de | 0e 1a 21 16 08 0e 1a df |....!...|..!.....|
|000018d0| 59 83 cf 00 0d 54 15 29 | 0e 20 83 eb 00 0e 08 c3 |Y....T.)|. ......|
|000018e0| e1 4f e2 0e 08 e1 d9 4f | e3 de 0d 21 b0 05 16 08 |.O.....O|...!....|
|000018f0| 82 4d 01 0d 0e 13 53 59 | 83 12 01 0d 0e 13 5a 1e |.M....SY|......Z.|
|00001900| 24 e5 0e 24 21 83 0e 01 | 0e 08 ce 50 16 08 0e 24 |$..$!...|...P...$|
|00001910| 53 16 24 82 f9 00 29 82 | 4d 01 0d c3 57 83 3d 01 |S.$...).|M...W.=.|
|00001920| 0d 5b e6 5a 1e 24 e5 0e | 24 21 83 33 01 ce 0e 08 |.[.Z.$..|$!.3....|
|00001930| 50 16 08 0e 24 53 16 24 | 82 1e 01 e7 0e 08 50 16 |P...$S.$|......P.|
|00001940| 08 29 82 4d 01 0e 08 c3 | 0d 54 4f e2 0e 08 0d 54 |.).M....|.TO....T|
|00001950| d9 4f 51 16 08 0c 83 58 | 01 e8 0e 08 50 82 5a 01 |.OQ....X|....P.Z.|
|00001960| 0e 08 2e 07 87 22 20 5b | 66 61 62 73 20 66 6e 75 |....." [|fabs fnu|
|00001970| 6d 20 76 61 6c 75 65 20 | 30 20 73 69 67 6e 20 70 |m value |0 sign p|
|00001980| 6f 77 65 72 20 72 65 73 | 75 6c 74 20 22 22 20 73 |ower res|ult "" s|
|00001990| 74 72 20 74 65 6d 70 20 | 5f 66 31 20 70 6f 77 31 |tr temp |_f1 pow1|
|000019a0| 30 20 66 3d 20 5f 66 30 | 20 22 30 22 20 66 3e 3d |0 f= _f0| "0" f>=|
|000019b0| 20 66 3c 3d 20 66 2a 20 | 68 69 67 68 65 73 74 2d | f<= f* |highest-|
|000019c0| 70 6f 77 65 72 2d 6f 66 | 2d 31 30 20 64 65 63 69 |power-of|-10 deci|
|000019d0| 6d 61 6c 2d 64 69 67 69 | 74 73 20 5f 66 31 30 20 |mal-digi|ts _f10 |
|000019e0| 66 3e 20 66 2f 20 61 6c | 6c 2d 64 65 63 69 6d 61 |f> f/ al|l-decima|
|000019f0| 6c 2d 64 69 67 73 2d 6d | 69 6e 76 61 6c 20 66 74 |l-digs-m|inval ft|
|00001a00| 72 75 6e 63 20 6e 69 6c | 20 69 6e 74 20 66 2d 20 |runc nil| int f- |
|00001a10| 5f 66 31 2f 32 20 66 69 | 6e 74 20 69 6e 74 2d 74 |_f1/2 fi|nt int-t|
|00001a20| 6f 2d 73 74 72 69 6e 67 | 20 31 30 30 30 30 30 30 |o-string| 1000000|
|00001a30| 20 73 63 69 20 31 20 22 | 2e 22 20 22 45 22 20 7a | sci 1 "|." "E" z|
|00001a40| 65 72 6f 65 73 20 6e 61 | 74 6e 75 6d 70 20 32 20 |eroes na|tnump 2 |
|00001a50| 22 30 2e 22 20 22 2d 22 | 5d 20 36 20 22 5c 0a 43 |"0." "-"|] 6 "\.C|
|00001a60| 6f 6e 76 65 72 74 20 74 | 68 65 20 66 6c 6f 61 74 |onvert t|he float|
|00001a70| 69 6e 67 20 70 6f 69 6e | 74 20 6e 75 6d 62 65 72 |ing poin|t number|
|00001a80| 20 74 6f 20 61 20 64 65 | 63 69 6d 61 6c 20 73 74 | to a de|cimal st|
|00001a90| 72 69 6e 67 2e 0a 4f 70 | 74 69 6f 6e 61 6c 20 73 |ring..Op|tional s|
|00001aa0| 65 63 6f 6e 64 20 61 72 | 67 75 6d 65 6e 74 20 6e |econd ar|gument n|
|00001ab0| 6f 6e 2d 6e 69 6c 20 6d | 65 61 6e 73 20 75 73 65 |on-nil m|eans use|
|00001ac0| 20 73 63 69 65 6e 74 69 | 66 69 63 20 6e 6f 74 61 | scienti|fic nota|
|00001ad0| 74 69 6f 6e 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |tion."])|.(defali|
|00001ae0| 61 73 20 27 73 74 72 69 | 6e 67 2d 74 6f 2d 66 6c |as 'stri|ng-to-fl|
|00001af0| 6f 61 74 20 23 5b 28 73 | 74 72 29 20 22 c0 09 5c |oat #[(s|tr) "..\|
|00001b00| 6e c3 23 83 1c 01 c4 1d | c6 c7 5c 6e c8 5c 22 1e |n.#.....|..\n.\".|
|00001b10| 09 c7 5c 6e ca 5c 22 1e | 0b 0e 09 0e 0b 50 1e 0c |..\n.\".|.....P..|
|00001b20| c7 5c 6e cd 5c 22 ce 9a | 1e 0f c3 1e 10 c4 1e 11 |.\n.\"..|........|
|00001b30| 0e 09 47 0e 12 5a 15 0e | 10 0e 0c 47 57 83 4f 00 |..G..Z..|...GW.O.|
|00001b40| 0e 0c 0e 10 48 d3 55 83 | 4f 00 0e 10 54 89 16 10 |....H.U.|O...T...|
|00001b50| 82 35 00 0d 0e 10 5a 15 | 0e 0c 0e 10 c4 4f 89 16 |.5....Z.|.....O..|
|00001b60| 0c 47 0e 12 56 83 78 00 | 0e 0c 0e 12 48 d4 59 16 |.G..V.x.|....H.Y.|
|00001b70| 11 0e 0c c3 0e 12 4f 16 | 0c 82 81 00 0d 0e 12 0e |......O.|........|
|00001b80| 0c 47 5a 5c 5c 15 d5 d6 | 0e 0c 21 0e 11 83 8f 00 |.GZ\\...|..!.....|
|00001b90| cd 82 90 00 c3 5c 5c 0e | 0f 83 9a 00 d7 82 9b 00 |.....\\.|........|
|00001ba0| cd 5f 21 2e 06 c7 5c 6e | d8 5c 22 1e 19 c7 5c 6e |._!...\n|.\"...\n|
|00001bb0| da 5c 22 ce 9a 1e 1b c3 | 1e 1c c3 1e 1d c3 1e 1e |.\".....|........|
|00001bc0| 0e 1f 1e 20 c6 1e 21 d6 | 0e 19 c3 0e 5c 22 0e 19 |... ..!.|....\"..|
|00001bd0| 47 5e 4f 21 0e 1b 83 d2 | 00 d7 82 d3 00 cd 5f 0d |G^O!....|......_.|
|00001be0| 5c 5c 89 16 1c c3 57 83 | e6 00 0e 1c 5b 16 1c e3 |\\....W.|....[...|
|00001bf0| 16 21 0e 1c 0e 12 a5 16 | 1d 0e 1c 0e 12 a6 16 1e |.!......|........|
|00001c00| 0e 1d c3 56 83 0d 01 0e | 21 0e 20 0e 24 5c 22 16 |...V....|!. .$\".|
|00001c10| 20 0e 1d 53 89 16 1d 82 | f6 00 0e 21 0e 20 0e 25 | ..S....|...!. .%|
|00001c20| 0e 1e 48 5c 22 2e 07 5c | 22 29 87 0e 26 87 22 20 |..H\"..\|")..&." |
|00001c30| 5b 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 66 6c |[string-|match fl|
|00001c40| 6f 61 74 69 6e 67 2d 70 | 6f 69 6e 74 2d 72 65 67 |oating-p|oint-reg|
|00001c50| 65 78 70 20 73 74 72 20 | 30 20 6e 69 6c 20 70 6f |exp str |0 nil po|
|00001c60| 77 65 72 20 66 2a 20 65 | 78 74 72 61 63 74 2d 6d |wer f* e|xtract-m|
|00001c70| 61 74 63 68 20 32 20 69 | 6e 74 2d 73 75 62 73 74 |atch 2 i|nt-subst|
|00001c80| 20 34 20 66 72 61 63 74 | 2d 73 75 62 73 74 20 64 | 4 fract|-subst d|
|00001c90| 69 67 69 74 2d 73 74 72 | 69 6e 67 20 31 20 22 2d |igit-str|ing 1 "-|
|00001ca0| 22 20 6d 61 6e 74 2d 73 | 69 67 6e 20 6c 65 61 64 |" mant-s|ign lead|
|00001cb0| 69 6e 67 2d 30 73 20 72 | 6f 75 6e 64 2d 75 70 20 |ing-0s r|ound-up |
|00001cc0| 64 65 63 69 6d 61 6c 2d | 64 69 67 69 74 73 20 34 |decimal-|digits 4|
|00001cd0| 38 20 35 33 20 66 20 73 | 74 72 69 6e 67 2d 74 6f |8 53 f s|tring-to|
|00001ce0| 2d 69 6e 74 20 2d 31 20 | 39 20 65 78 70 74 2d 73 |-int -1 |9 expt-s|
|00001cf0| 75 62 73 74 20 38 20 65 | 78 70 74 2d 73 69 67 6e |ubst 8 e|xpt-sign|
|00001d00| 20 65 78 70 74 20 63 68 | 75 6e 6b 73 20 74 65 6e | expt ch|unks ten|
|00001d10| 73 20 5f 66 31 20 65 78 | 70 6f 6e 65 6e 74 20 66 |s _f1 ex|ponent f|
|00001d20| 75 6e 63 20 65 78 70 74 | 2d 64 69 67 69 74 73 20 |unc expt|-digits |
|00001d30| 66 2f 20 68 69 67 68 65 | 73 74 2d 70 6f 77 65 72 |f/ highe|st-power|
|00001d40| 2d 6f 66 2d 31 30 20 70 | 6f 77 65 72 73 2d 6f 66 |-of-10 p|owers-of|
|00001d50| 2d 31 30 20 5f 66 30 5d | 20 38 20 22 5c 0a 43 6f |-10 _f0]| 8 "\.Co|
|00001d60| 6e 76 65 72 74 20 74 68 | 65 20 73 74 72 69 6e 67 |nvert th|e string|
|00001d70| 20 74 6f 20 61 20 66 6c | 6f 61 74 69 6e 67 20 70 | to a fl|oating p|
|00001d80| 6f 69 6e 74 20 6e 75 6d | 62 65 72 2e 0a 41 63 63 |oint num|ber..Acc|
|00001d90| 65 70 74 73 20 61 20 64 | 65 63 69 6d 61 6c 20 73 |epts a d|ecimal s|
|00001da0| 74 72 69 6e 67 20 69 6e | 20 73 63 69 65 6e 74 69 |tring in| scienti|
|00001db0| 66 69 63 20 6e 6f 74 61 | 74 69 6f 6e 2c 20 20 77 |fic nota|tion,  w|
|00001dc0| 69 74 68 20 65 78 70 6f | 6e 65 6e 74 20 70 72 65 |ith expo|nent pre|
|00001dd0| 63 65 64 65 64 0a 62 79 | 20 65 69 74 68 65 72 20 |ceded.by| either |
|00001de0| 45 20 6f 72 20 65 2e 20 | 20 4f 6e 6c 79 20 74 68 |E or e. | Only th|
|00001df0| 65 20 73 69 78 20 6d 6f | 73 74 20 73 69 67 6e 69 |e six mo|st signi|
|00001e00| 66 69 63 61 6e 74 20 64 | 69 67 69 74 73 20 6f 66 |ficant d|igits of|
|00001e10| 20 74 68 65 20 69 6e 74 | 65 67 65 72 0a 61 6e 64 | the int|eger.and|
|00001e20| 20 66 72 61 63 74 69 6f | 6e 61 6c 20 70 61 72 74 | fractio|nal part|
|00001e30| 73 20 61 72 65 20 75 73 | 65 64 3b 20 6f 6e 6c 79 |s are us|ed; only|
|00001e40| 20 74 68 65 20 66 69 72 | 73 74 20 74 77 6f 20 64 | the fir|st two d|
|00001e50| 69 67 69 74 73 20 6f 66 | 20 74 68 65 20 65 78 70 |igits of| the exp|
|00001e60| 6f 6e 65 6e 74 0a 61 72 | 65 20 75 73 65 64 2e 20 |onent.ar|e used. |
|00001e70| 20 4e 65 67 61 74 69 76 | 65 20 73 69 67 6e 73 20 | Negativ|e signs |
|00001e80| 70 72 65 63 65 64 69 6e | 67 20 62 6f 74 68 20 74 |precedin|g both t|
|00001e90| 68 65 20 64 65 63 69 6d | 61 6c 20 6e 75 6d 62 65 |he decim|al numbe|
|00001ea0| 72 20 61 6e 64 20 74 68 | 65 20 65 78 70 6f 6e 65 |r and th|e expone|
|00001eb0| 6e 74 0a 61 72 65 20 72 | 65 63 6f 67 6e 69 7a 65 |nt.are r|ecognize|
|00001ec0| 64 2e 22 5d 29 0a 28 70 | 72 6f 76 69 64 65 20 28 |d."]).(p|rovide (|
|00001ed0| 71 75 6f 74 65 20 66 6c | 6f 61 74 29 29 0a       |quote fl|oat)).  |
+--------+-------------------------+-------------------------+--------+--------+