|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ f ┃
Length: 8042 (0x1f6a)
Names: »float.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/float.elc«
0x0000…0020 0a 28 64 65 66 63 6f 6e 73 74 20 65 78 70 2d 62 61 73 65 20 32 20 22 5c 0a 42 61 73 65 20 6f 66 ┆ (defconst exp-base 2 "\ Base of┆ 0x0020…0040 20 65 78 70 6f 6e 65 6e 74 20 69 6e 20 74 68 69 73 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 ┆ exponent in this floating point┆ 0x0040…0060 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 61 ┆ representation.") (defconst ma┆ 0x0060…0080 6e 74 69 73 73 61 2d 62 69 74 73 20 32 34 20 22 5c 0a 4e 75 6d 62 65 72 20 6f 66 20 73 69 67 6e ┆ntissa-bits 24 "\ Number of sign┆ 0x0080…00a0 69 66 69 63 61 6e 74 20 62 69 74 73 20 69 6e 20 74 68 69 73 20 66 6c 6f 61 74 69 6e 67 20 70 6f ┆ificant bits in this floating po┆ 0x00a0…00c0 69 6e 74 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 ┆int representation.") (defconst┆ 0x00c0…00e0 20 64 65 63 69 6d 61 6c 2d 64 69 67 69 74 73 20 36 20 22 5c 0a 4e 75 6d 62 65 72 20 6f 66 20 64 ┆ decimal-digits 6 "\ Number of d┆ 0x00e0…0100 65 63 69 6d 61 6c 20 64 69 67 69 74 73 20 65 78 70 65 63 74 65 64 20 74 6f 20 62 65 20 61 63 63 ┆ecimal digits expected to be acc┆ 0x0100…0120 75 72 61 74 65 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 65 78 70 74 2d 64 69 67 69 74 73 20 ┆urate.") (defconst expt-digits ┆ 0x0120…0140 32 20 22 5c 0a 4d 61 78 69 6d 75 6d 20 70 65 72 6d 69 74 74 65 64 20 64 69 67 69 74 73 20 69 6e ┆2 "\ Maximum permitted digits in┆ 0x0140…0160 20 61 20 73 63 69 65 6e 74 69 66 69 63 20 6e 6f 74 61 74 69 6f 6e 20 65 78 70 6f 6e 65 6e 74 2e ┆ a scientific notation exponent.┆ 0x0160…0180 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 61 78 62 69 74 20 28 31 2d 20 6d 61 6e 74 69 73 73 ┆") (defconst maxbit (1- mantiss┆ 0x0180…01a0 61 2d 62 69 74 73 29 20 22 5c 0a 4e 75 6d 62 65 72 20 6f 66 20 68 69 67 68 65 73 74 20 62 69 74 ┆a-bits) "\ Number of highest bit┆ 0x01a0…01c0 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 61 6e 74 69 73 73 61 2d 6d 61 78 76 61 6c 20 28 31 ┆") (defconst mantissa-maxval (1┆ 0x01c0…01e0 2d 20 28 61 73 68 20 31 20 6d 61 78 62 69 74 29 29 20 22 5c 0a 4d 61 78 69 6d 75 6d 20 70 65 72 ┆- (ash 1 maxbit)) "\ Maximum per┆ 0x01e0…0200 6d 69 73 73 61 62 6c 65 20 76 61 6c 75 65 20 6f 66 20 6d 61 6e 74 69 73 73 61 22 29 0a 0a 28 64 ┆missable value of mantissa") (d┆ 0x0200…0220 65 66 63 6f 6e 73 74 20 6d 61 6e 74 69 73 73 61 2d 6d 69 6e 76 61 6c 20 28 61 73 68 20 31 20 6d ┆efconst mantissa-minval (ash 1 m┆ 0x0220…0240 61 78 62 69 74 29 20 22 5c 0a 4d 69 6e 69 6d 75 6d 20 70 65 72 6d 69 73 73 61 62 6c 65 20 76 61 ┆axbit) "\ Minimum permissable va┆ 0x0240…0260 6c 75 65 20 6f 66 20 6d 61 6e 74 69 73 73 61 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 66 6c 6f ┆lue of mantissa") (defconst flo┆ 0x0260…0280 61 74 69 6e 67 2d 70 6f 69 6e 74 2d 72 65 67 65 78 70 20 22 5e 5b 20 09 5d 2a 5c 5c 28 2d 3f 5c ┆ating-point-regexp "^[ ]*\\(-?\┆ 0x0280…02a0 5c 29 5c 5c 28 5b 30 2d 39 5d 2a 5c 5c 29 5c 5c 28 5c 5c 2e 5c 5c 28 5b 30 2d 39 5d 2a 5c 5c 29 ┆\)\\([0-9]*\\)\\(\\.\\([0-9]*\\)┆ 0x02a0…02c0 5c 5c 7c 5c 5c 29 5c 5c 28 5c 5c 28 5c 5c 28 5b 45 65 5d 5c 5c 29 5c 5c 28 2d 3f 5c 5c 29 5c 5c ┆\\|\\)\\(\\(\\([Ee]\\)\\(-?\\)\\┆ 0x02c0…02e0 28 5b 30 2d 39 5d 5b 30 2d 39 5d 2a 5c 5c 29 5c 5c 29 5c 5c 7c 5c 5c 29 5b 20 09 5d 2a 24 22 20 ┆([0-9][0-9]*\\)\\)\\|\\)[ ]*$" ┆ 0x02e0…0300 22 5c 0a 52 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 74 6f 20 6d 61 74 63 68 20 66 ┆"\ Regular expression to match f┆ 0x0300…0320 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 65 72 73 2e 20 20 45 78 74 72 61 63 74 20 ┆loating point numbers. Extract ┆ 0x0320…0340 6d 61 74 63 68 65 73 3a 0a 31 20 2d 20 6d 69 6e 75 73 20 73 69 67 6e 0a 32 20 2d 20 69 6e 74 65 ┆matches: 1 - minus sign 2 - inte┆ 0x0340…0360 67 65 72 20 70 61 72 74 0a 34 20 2d 20 66 72 61 63 74 69 6f 6e 61 6c 20 70 61 72 74 0a 38 20 2d ┆ger part 4 - fractional part 8 -┆ 0x0360…0380 20 6d 69 6e 75 73 20 73 69 67 6e 20 66 6f 72 20 70 6f 77 65 72 20 6f 66 20 74 65 6e 0a 39 20 2d ┆ minus sign for power of ten 9 -┆ 0x0380…03a0 20 70 6f 77 65 72 20 6f 66 20 74 65 6e 0a 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 68 69 67 68 ┆ power of ten ") (defconst high┆ 0x03a0…03c0 2d 62 69 74 2d 6d 61 73 6b 20 28 61 73 68 20 31 20 6d 61 78 62 69 74 29 20 22 5c 0a 4d 61 73 6b ┆-bit-mask (ash 1 maxbit) "\ Mask┆ 0x03c0…03e0 73 20 61 6c 6c 20 62 69 74 73 20 65 78 63 65 70 74 20 74 68 65 20 68 69 67 68 2d 6f 72 64 65 72 ┆s all bits except the high-order┆ 0x03e0…0400 20 28 73 69 67 6e 29 20 62 69 74 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 73 65 63 6f 6e 64 ┆ (sign) bit.") (defconst second┆ 0x0400…0420 2d 62 69 74 2d 6d 61 73 6b 20 28 61 73 68 20 31 20 28 31 2d 20 6d 61 78 62 69 74 29 29 20 22 5c ┆-bit-mask (ash 1 (1- maxbit)) "\┆ 0x0420…0440 0a 4d 61 73 6b 73 20 61 6c 6c 20 62 69 74 73 20 65 78 63 65 70 74 20 74 68 65 20 68 69 67 68 65 ┆ Masks all bits except the highe┆ 0x0440…0460 73 74 2d 6f 72 64 65 72 20 6d 61 67 6e 69 74 75 64 65 20 62 69 74 22 29 0a 0a 28 73 65 74 71 20 ┆st-order magnitude bit") (setq ┆ 0x0460…0480 5f 66 30 20 28 71 75 6f 74 65 20 28 30 20 2e 20 31 29 29 29 0a 0a 28 73 65 74 71 20 5f 66 31 2f ┆_f0 (quote (0 . 1))) (setq _f1/┆ 0x0480…04a0 32 20 28 71 75 6f 74 65 20 28 34 31 39 34 33 30 34 20 2e 20 2d 32 33 29 29 29 0a 0a 28 73 65 74 ┆2 (quote (4194304 . -23))) (set┆ 0x04a0…04c0 71 20 5f 66 31 20 28 71 75 6f 74 65 20 28 34 31 39 34 33 30 34 20 2e 20 2d 32 32 29 29 29 0a 0a ┆q _f1 (quote (4194304 . -22))) ┆ 0x04c0…04e0 28 73 65 74 71 20 5f 66 31 30 20 28 71 75 6f 74 65 20 28 35 32 34 32 38 38 30 20 2e 20 2d 31 39 ┆(setq _f10 (quote (5242880 . -19┆ 0x04e0…0500 29 29 29 0a 0a 28 73 65 74 71 20 70 6f 77 65 72 73 2d 6f 66 2d 31 30 20 28 6d 61 6b 65 2d 76 65 ┆))) (setq powers-of-10 (make-ve┆ 0x0500…0520 63 74 6f 72 20 28 31 2b 20 64 65 63 69 6d 61 6c 2d 64 69 67 69 74 73 29 20 5f 66 31 29 29 0a 0a ┆ctor (1+ decimal-digits) _f1)) ┆ 0x0520…0540 28 61 73 65 74 20 70 6f 77 65 72 73 2d 6f 66 2d 31 30 20 31 20 5f 66 31 30 29 0a 0a 28 61 73 65 ┆(aset powers-of-10 1 _f10) (ase┆ 0x0540…0560 74 20 70 6f 77 65 72 73 2d 6f 66 2d 31 30 20 32 20 28 71 75 6f 74 65 20 28 36 35 35 33 36 30 30 ┆t powers-of-10 2 (quote (6553600┆ 0x0560…0580 20 2e 20 2d 31 36 29 29 29 0a 0a 28 61 73 65 74 20 70 6f 77 65 72 73 2d 6f 66 2d 31 30 20 33 20 ┆ . -16))) (aset powers-of-10 3 ┆ 0x0580…05a0 28 71 75 6f 74 65 20 28 38 31 39 32 30 30 30 20 2e 20 2d 31 33 29 29 29 0a 0a 28 61 73 65 74 20 ┆(quote (8192000 . -13))) (aset ┆ 0x05a0…05c0 70 6f 77 65 72 73 2d 6f 66 2d 31 30 20 34 20 28 71 75 6f 74 65 20 28 35 31 32 30 30 30 30 20 2e ┆powers-of-10 4 (quote (5120000 .┆ 0x05c0…05e0 20 2d 39 29 29 29 0a 0a 28 61 73 65 74 20 70 6f 77 65 72 73 2d 6f 66 2d 31 30 20 35 20 28 71 75 ┆ -9))) (aset powers-of-10 5 (qu┆ 0x05e0…0600 6f 74 65 20 28 36 34 30 30 30 30 30 20 2e 20 2d 36 29 29 29 0a 0a 28 61 73 65 74 20 70 6f 77 65 ┆ote (6400000 . -6))) (aset powe┆ 0x0600…0620 72 73 2d 6f 66 2d 31 30 20 36 20 28 71 75 6f 74 65 20 28 38 30 30 30 30 30 30 20 2e 20 2d 33 29 ┆rs-of-10 6 (quote (8000000 . -3)┆ 0x0620…0640 29 29 0a 0a 28 73 65 74 71 20 61 6c 6c 2d 64 65 63 69 6d 61 6c 2d 64 69 67 73 2d 6d 69 6e 76 61 ┆)) (setq all-decimal-digs-minva┆ 0x0640…0660 6c 20 28 61 72 65 66 20 70 6f 77 65 72 73 2d 6f 66 2d 31 30 20 28 31 2d 20 64 65 63 69 6d 61 6c ┆l (aref powers-of-10 (1- decimal┆ 0x0660…0680 2d 64 69 67 69 74 73 29 29 20 68 69 67 68 65 73 74 2d 70 6f 77 65 72 2d 6f 66 2d 31 30 20 28 61 ┆-digits)) highest-power-of-10 (a┆ 0x0680…06a0 72 65 66 20 70 6f 77 65 72 73 2d 6f 66 2d 31 30 20 64 65 63 69 6d 61 6c 2d 64 69 67 69 74 73 29 ┆ref powers-of-10 decimal-digits)┆ 0x06a0…06c0 29 0a 0a 28 64 65 66 75 6e 20 66 61 73 68 6c 20 28 66 6e 75 6d 29 20 28 62 79 74 65 2d 63 6f 64 ┆) (defun fashl (fnum) (byte-cod┆ 0x06c0…06e0 65 20 22 c1 08 40 c2 5c 22 08 41 53 42 87 22 20 5b 66 6e 75 6d 20 61 73 68 20 31 5d 20 33 29 29 ┆e " @ \" ASB " [fnum ash 1] 3))┆ 0x06e0…0700 0a 0a 28 64 65 66 75 6e 20 66 61 73 68 72 20 28 66 6e 75 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆ (defun fashr (fnum) (byte-code┆ 0x0700…0720 20 22 c1 08 40 c2 5c 22 08 41 54 42 87 22 20 5b 66 6e 75 6d 20 61 73 68 20 2d 31 5d 20 33 29 29 ┆ " @ \" ATB " [fnum ash -1] 3))┆ 0x0720…0740 0a 0a 28 64 65 66 75 6e 20 6e 6f 72 6d 61 6c 69 7a 65 20 28 66 6e 75 6d 29 20 28 62 79 74 65 2d ┆ (defun normalize (fnum) (byte-┆ 0x0740…0760 63 6f 64 65 20 22 08 40 c4 56 83 1d 00 c5 c6 08 40 09 5c 22 21 85 1a 00 c7 08 21 89 10 88 82 07 ┆code " @ V @ \"! ! ┆ 0x0760…0780 00 82 3d 00 08 40 c4 57 83 3a 00 c5 c6 08 40 0a 5c 22 21 85 37 00 c7 08 21 89 10 88 82 24 00 82 ┆ = @ W : @ \"! 7 ! $ ┆ 0x0780…07a0 3d 00 0b 89 10 88 08 87 22 20 5b 66 6e 75 6d 20 73 65 63 6f 6e 64 2d 62 69 74 2d 6d 61 73 6b 20 ┆= " [fnum second-bit-mask ┆ 0x07a0…07c0 68 69 67 68 2d 62 69 74 2d 6d 61 73 6b 20 5f 66 30 20 30 20 7a 65 72 6f 70 20 6c 6f 67 61 6e 64 ┆high-bit-mask _f0 0 zerop logand┆ 0x07c0…07e0 20 66 61 73 68 6c 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 61 62 73 20 28 6e 29 20 28 62 79 74 ┆ fashl] 9)) (defun abs (n) (byt┆ 0x07e0…0800 65 2d 63 6f 64 65 20 22 c1 08 21 83 0a 00 08 82 0c 00 08 5b 87 22 20 5b 6e 20 6e 61 74 6e 75 6d ┆e-code " ! [ " [n natnum┆ 0x0800…0820 70 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 66 61 62 73 20 28 66 6e 75 6d 29 20 28 62 79 74 65 ┆p] 2)) (defun fabs (fnum) (byte┆ 0x0820…0840 2d 63 6f 64 65 20 22 c1 c2 08 40 21 08 41 42 21 87 22 20 5b 66 6e 75 6d 20 6e 6f 72 6d 61 6c 69 ┆-code " @! AB! " [fnum normali┆ 0x0840…0860 7a 65 20 61 62 73 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 78 6f 72 20 28 61 20 62 29 20 28 62 ┆ze abs] 4)) (defun xor (a b) (b┆ 0x0860…0880 79 74 65 2d 63 6f 64 65 20 22 08 86 05 00 09 85 0e 00 08 85 0d 00 09 3f 87 22 20 5b 61 20 62 5d ┆yte-code " ? " [a b]┆ 0x0880…08a0 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 73 61 6d 65 2d 73 69 67 6e 20 28 61 20 62 29 20 28 62 79 ┆ 1)) (defun same-sign (a b) (by┆ 0x08a0…08c0 74 65 2d 63 6f 64 65 20 22 c2 c3 08 40 21 c3 09 40 21 5c 22 3f 87 22 20 5b 61 20 62 20 78 6f 72 ┆te-code " @! @!\"? " [a b xor┆ 0x08c0…08e0 20 6e 61 74 6e 75 6d 70 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 72 61 63 74 2d 6d 61 ┆ natnump] 5)) (defun extract-ma┆ 0x08e0…0900 74 63 68 20 28 73 74 72 20 69 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c3 c4 8f 87 22 20 5b ┆tch (str i) (byte-code " " [┆ 0x0900…0920 6e 69 6c 20 73 74 72 20 69 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c2 09 21 c3 09 21 4f 87 22 ┆nil str i (byte-code " ! !O "┆ 0x0920…0940 20 5b 73 74 72 20 69 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 6d 61 74 63 68 2d 65 6e ┆ [str i match-beginning match-en┆ 0x0940…0960 64 5d 20 35 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 22 ┆d] 5) ((error (byte-code " " ["┆ 0x0960…0980 22 5d 20 31 29 29 29 5d 20 33 29 29 0a 0a 28 73 65 74 71 20 68 61 6c 66 77 6f 72 64 2d 62 69 74 ┆"] 1)))] 3)) (setq halfword-bit┆ 0x0980…09a0 73 20 28 2f 20 6d 61 6e 74 69 73 73 61 2d 62 69 74 73 20 32 29 20 6d 61 73 6b 6c 6f 20 28 31 2d ┆s (/ mantissa-bits 2) masklo (1-┆ 0x09a0…09c0 20 28 61 73 68 20 31 20 68 61 6c 66 77 6f 72 64 2d 62 69 74 73 29 29 20 6d 61 73 6b 68 69 20 28 ┆ (ash 1 halfword-bits)) maskhi (┆ 0x09c0…09e0 6c 6f 67 6e 6f 74 20 6d 61 73 6b 6c 6f 29 20 72 6f 75 6e 64 2d 6c 69 6d 69 74 20 28 61 73 68 20 ┆lognot masklo) round-limit (ash ┆ 0x09e0…0a00 31 20 28 2f 20 68 61 6c 66 77 6f 72 64 2d 62 69 74 73 20 32 29 29 29 0a 0a 28 64 65 66 75 6e 20 ┆1 (/ halfword-bits 2))) (defun ┆ 0x0a00…0a20 68 69 68 61 6c 66 20 28 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 c4 08 09 5c 22 0a 5b 5c ┆hihalf (n) (byte-code " \" [\┆ 0x0a20…0a40 22 87 22 20 5b 6e 20 6d 61 73 6b 68 69 20 68 61 6c 66 77 6f 72 64 2d 62 69 74 73 20 61 73 68 20 ┆" " [n maskhi halfword-bits ash ┆ 0x0a40…0a60 6c 6f 67 61 6e 64 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6c 6f 68 61 6c 66 20 28 6e 29 20 28 ┆logand] 4)) (defun lohalf (n) (┆ 0x0a60…0a80 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 5c 22 87 22 20 5b 6e 20 6d 61 73 6b 6c 6f 20 6c 6f 67 ┆byte-code " \" " [n masklo log┆ 0x0a80…0aa0 61 6e 64 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 2b 20 28 61 31 20 61 32 29 20 22 5c 0a 52 ┆and] 3)) (defun f+ (a1 a2) "\ R┆ 0x0aa0…0ac0 65 74 75 72 6e 73 20 74 68 65 20 73 75 6d 20 6f 66 20 74 77 6f 20 66 6c 6f 61 74 69 6e 67 20 70 ┆eturns the sum of two floating p┆ 0x0ac0…0ae0 6f 69 6e 74 20 6e 75 6d 62 65 72 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 09 0a 5c 22 ┆oint numbers." (byte-code " \"┆ 0x0ae0…0b00 c5 09 0a 5c 22 1b 18 c6 09 0a 5c 22 83 1d 00 c7 08 21 10 c7 0b 21 89 13 82 1e 00 c8 88 c9 08 40 ┆ \" \" ! ! @┆ 0x0b00…0b20 ca 0b 40 0b 41 08 41 5a 5c 22 5c 5c 08 41 42 21 2a 87 22 20 5b 66 31 20 61 31 20 61 32 20 66 32 ┆ @ A AZ\"\\ AB!* " [f1 a1 a2 f2┆ 0x0b20…0b40 20 66 6d 61 78 20 66 6d 69 6e 20 73 61 6d 65 2d 73 69 67 6e 20 66 61 73 68 72 20 6e 69 6c 20 6e ┆ fmax fmin same-sign fashr nil n┆ 0x0b40…0b60 6f 72 6d 61 6c 69 7a 65 20 61 73 68 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 66 2d 20 28 61 ┆ormalize ash] 11)) (defun f- (a┆ 0x0b60…0b80 31 20 26 6f 70 74 69 6f 6e 61 6c 20 61 32 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 74 68 65 20 64 ┆1 &optional a2) "\ Returns the d┆ 0x0b80…0ba0 69 66 66 65 72 65 6e 63 65 20 6f 66 20 74 77 6f 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 ┆ifference of two floating point ┆ 0x0ba0…0bc0 6e 75 6d 62 65 72 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 0d 00 c2 09 c3 08 21 5c ┆numbers." (byte-code " !\┆ 0x0bc0…0be0 22 82 15 00 c4 09 40 5b 09 41 42 21 87 22 20 5b 61 32 20 61 31 20 66 2b 20 66 2d 20 6e 6f 72 6d ┆" @[ AB! " [a2 a1 f+ f- norm┆ 0x0be0…0c00 61 6c 69 7a 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 66 2a 20 28 61 31 20 61 32 29 20 22 5c ┆alize] 5)) (defun f* (a1 a2) "\┆ 0x0c00…0c20 0a 52 65 74 75 72 6e 73 20 74 68 65 20 70 72 6f 64 75 63 74 20 6f 66 20 74 77 6f 20 66 6c 6f 61 ┆ Returns the product of two floa┆ 0x0c20…0c40 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 65 72 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆ting point numbers." (byte-code ┆ 0x0c40…0c60 22 c9 09 21 40 18 c9 0b 21 40 1a ca 09 0b 5c 22 3f 1c cb cc cd ce 08 21 ce 0a 21 5c 22 21 ce cd ┆" !@ !@ \"? ! !\"! ┆ 0x0c60…0c80 cc 08 21 ce 0a 21 5c 22 21 ce cd ce 08 21 cc 0a 21 5c 22 21 23 1d cb cd cc 08 21 cc 0a 21 5c 22 ┆ ! !\"! ! !\"!# ! !\"┆ 0x0c80…0ca0 cc cd cc 08 21 ce 0a 21 5c 22 21 cc cd ce 08 21 cc 0a 21 5c 22 21 cc 0d 21 24 1e 06 ce 0d 21 0e ┆ ! !\"! ! !\"! !$ ! ┆ 0x0ca0…0cc0 07 56 83 66 00 0e 06 54 89 16 06 82 67 00 cf 88 d0 0c 83 73 00 0e 06 5b 82 75 00 0e 06 cb c9 09 ┆ V f T g s [ u ┆ 0x0cc0…0ce0 21 41 c9 0b 21 41 0e 08 23 42 21 2d 87 22 20 5b 69 31 20 61 31 20 69 32 20 61 32 20 73 69 67 6e ┆!A !A #B!- " [i1 a1 i2 a2 sign┆ 0x0ce0…0d00 20 70 72 6f 64 6c 6f 20 70 72 6f 64 68 69 20 72 6f 75 6e 64 2d 6c 69 6d 69 74 20 6d 61 6e 74 69 ┆ prodlo prodhi round-limit manti┆ 0x0d00…0d20 73 73 61 2d 62 69 74 73 20 66 61 62 73 20 73 61 6d 65 2d 73 69 67 6e 20 2b 20 68 69 68 61 6c 66 ┆ssa-bits fabs same-sign + hihalf┆ 0x0d20…0d40 20 2a 20 6c 6f 68 61 6c 66 20 6e 69 6c 20 6e 6f 72 6d 61 6c 69 7a 65 5d 20 33 38 29 29 0a 0a 28 ┆ * lohalf nil normalize] 38)) (┆ 0x0d40…0d60 64 65 66 75 6e 20 66 2f 20 28 61 31 20 61 32 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 74 68 65 20 ┆defun f/ (a1 a2) "\ Returns the ┆ 0x0d60…0d80 71 75 6f 74 69 65 6e 74 20 6f 66 20 74 77 6f 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e ┆quotient of two floating point n┆ 0x0d80…0da0 75 6d 62 65 72 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c8 08 40 21 83 11 00 c9 ca cb 09 ┆umbers." (byte-code " @! ┆ 0x0da0…0dc0 08 45 5c 22 82 76 00 0b 53 cc cd 09 21 40 cd 08 21 40 ce 09 08 5c 22 3f 1e 07 1e 06 1d 1c 1a cf ┆ E\" v S !@ !@ \"? ┆ 0x0dc0…0de0 0a 21 85 5a 00 0d 0e 06 5a cc 57 83 40 00 d0 0c d1 5c 22 89 14 82 4c 00 d0 0c d1 5c 22 54 14 0d ┆ ! Z Z W @ \" L \"T ┆ 0x0de0…0e00 0e 06 5a 89 15 88 d0 0d d1 5c 22 15 0a 53 89 12 88 82 28 00 88 d2 0e 07 83 66 00 0c 5b 82 67 00 ┆ Z \" S ( f [ g ┆ 0x0e00…0e20 0c d3 cd 09 21 41 cd 08 21 41 0b 53 23 42 21 2d 87 22 20 5b 61 32 20 61 31 20 62 69 74 73 20 6d ┆ !A !A S#B!- " [a2 a1 bits m┆ 0x0e20…0e40 61 78 62 69 74 20 71 75 6f 74 69 65 6e 74 20 64 69 76 69 64 65 6e 64 20 64 69 76 69 73 6f 72 20 ┆axbit quotient dividend divisor ┆ 0x0e40…0e60 73 69 67 6e 20 7a 65 72 6f 70 20 73 69 67 6e 61 6c 20 61 72 69 74 68 2d 65 72 72 6f 72 20 22 61 ┆sign zerop signal arith-error "a┆ 0x0e60…0e80 74 74 65 6d 70 74 20 74 6f 20 64 69 76 69 64 65 20 62 79 20 7a 65 72 6f 22 20 30 20 66 61 62 73 ┆ttempt to divide by zero" 0 fabs┆ 0x0e80…0ea0 20 73 61 6d 65 2d 73 69 67 6e 20 6e 61 74 6e 75 6d 70 20 61 73 68 20 31 20 6e 6f 72 6d 61 6c 69 ┆ same-sign natnump ash 1 normali┆ 0x0ea0…0ec0 7a 65 20 2d 5d 20 31 37 29 29 0a 0a 28 64 65 66 75 6e 20 66 25 20 28 61 31 20 61 32 29 20 22 5c ┆ze -] 17)) (defun f% (a1 a2) "\┆ 0x0ec0…0ee0 0a 52 65 74 75 72 6e 73 20 74 68 65 20 72 65 6d 61 69 6e 64 65 72 20 6f 66 20 66 69 72 73 74 20 ┆ Returns the remainder of first ┆ 0x0ee0…0f00 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 65 72 20 64 69 76 69 64 65 64 20 62 79 ┆floating point number divided by┆ 0x0f00…0f20 20 73 65 63 6f 6e 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 c3 c4 c5 08 09 5c 22 21 ┆ second." (byte-code " \"!┆ 0x0f20…0f40 09 5c 22 5c 22 87 22 20 5b 61 31 20 61 32 20 66 2d 20 66 2a 20 66 74 72 75 6e 63 20 66 2f 5d 20 ┆ \"\" " [a1 a2 f- f* ftrunc f/] ┆ 0x0f40…0f60 37 29 29 0a 0a 28 64 65 66 75 6e 20 66 3d 20 28 61 31 20 61 32 29 20 22 5c 0a 52 65 74 75 72 6e ┆7)) (defun f= (a1 a2) "\ Return┆ 0x0f60…0f80 73 20 74 20 69 66 20 74 77 6f 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 65 72 ┆s t if two floating point number┆ 0x0f80…0fa0 73 20 61 72 65 20 65 71 75 61 6c 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 22 20 28 62 79 ┆s are equal, nil otherwise." (by┆ 0x0fa0…0fc0 74 65 2d 63 6f 64 65 20 22 c2 08 09 5c 22 87 22 20 5b 61 31 20 61 32 20 65 71 75 61 6c 5d 20 33 ┆te-code " \" " [a1 a2 equal] 3┆ 0x0fc0…0fe0 29 29 0a 0a 28 64 65 66 75 6e 20 66 3e 20 28 61 31 20 61 32 29 20 22 5c 0a 52 65 74 75 72 6e 73 ┆)) (defun f> (a1 a2) "\ Returns┆ 0x0fe0…1000 20 74 20 69 66 20 66 69 72 73 74 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 65 ┆ t if first floating point numbe┆ 0x1000…1020 72 20 69 73 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 73 65 63 6f 6e 64 2c 0a 6e 69 6c 20 6f 74 ┆r is greater than second, nil ot┆ 0x1020…1040 68 65 72 77 69 73 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 08 40 21 85 0b 00 09 40 c5 ┆herwise." (byte-code " @! @ ┆ 0x1040…1060 57 83 12 00 c2 82 50 00 08 40 c5 56 85 1d 00 09 40 c5 58 83 24 00 c2 82 50 00 08 40 c5 58 85 2f ┆W P @ V @ X $ P @ X /┆ 0x1060…1080 00 c4 09 40 21 83 36 00 c3 82 50 00 c6 08 41 09 41 5c 22 83 47 00 08 41 09 41 56 82 50 00 c2 85 ┆ @! 6 P A A\" G A AV P ┆ 0x1080…10a0 50 00 08 40 09 40 56 87 22 20 5b 61 31 20 61 32 20 74 20 6e 69 6c 20 6e 61 74 6e 75 6d 70 20 30 ┆P @ @V " [a1 a2 t nil natnump 0┆ 0x10a0…10c0 20 2f 3d 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 66 3e 3d 20 28 61 31 20 61 32 29 20 22 5c 0a ┆ /=] 5)) (defun f>= (a1 a2) "\ ┆ 0x10c0…10e0 52 65 74 75 72 6e 73 20 74 20 69 66 20 66 69 72 73 74 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e ┆Returns t if first floating poin┆ 0x10e0…1100 74 20 6e 75 6d 62 65 72 20 69 73 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 6f 72 20 65 71 75 61 ┆t number is greater than or equa┆ 0x1100…1120 6c 20 74 6f 20 0a 73 65 63 6f 6e 64 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 22 20 28 62 ┆l to second, nil otherwise." (b┆ 0x1120…1140 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 5c 22 86 0b 00 c3 08 09 5c 22 87 22 20 5b 61 31 20 61 32 ┆yte-code " \" \" " [a1 a2┆ 0x1140…1160 20 66 3e 20 66 3d 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 66 3c 20 28 61 31 20 61 32 29 20 22 ┆ f> f=] 4)) (defun f< (a1 a2) "┆ 0x1160…1180 5c 0a 52 65 74 75 72 6e 73 20 74 20 69 66 20 66 69 72 73 74 20 66 6c 6f 61 74 69 6e 67 20 70 6f ┆\ Returns t if first floating po┆ 0x1180…11a0 69 6e 74 20 6e 75 6d 62 65 72 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20 73 65 63 6f 6e 64 2c 0a ┆int number is less than second, ┆ 0x11a0…11c0 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 5c ┆nil otherwise." (byte-code " \┆ 0x11c0…11e0 22 3f 87 22 20 5b 61 31 20 61 32 20 66 3e 3d 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 3c 3d ┆"? " [a1 a2 f>=] 3)) (defun f<=┆ 0x11e0…1200 20 28 61 31 20 61 32 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 74 20 69 66 20 66 69 72 73 74 20 66 ┆ (a1 a2) "\ Returns t if first f┆ 0x1200…1220 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 65 72 20 69 73 20 6c 65 73 73 20 74 68 61 ┆loating point number is less tha┆ 0x1220…1240 6e 20 6f 72 20 65 71 75 61 6c 20 74 6f 0a 73 65 63 6f 6e 64 2c 20 6e 69 6c 20 6f 74 68 65 72 77 ┆n or equal to second, nil otherw┆ 0x1240…1260 69 73 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 5c 22 3f 87 22 20 5b 61 31 20 61 ┆ise." (byte-code " \"? " [a1 a┆ 0x1260…1280 32 20 66 3e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 2f 3d 20 28 61 31 20 61 32 29 20 22 5c ┆2 f>] 3)) (defun f/= (a1 a2) "\┆ 0x1280…12a0 0a 52 65 74 75 72 6e 73 20 74 20 69 66 20 66 69 72 73 74 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 ┆ Returns t if first floating poi┆ 0x12a0…12c0 6e 74 20 6e 75 6d 62 65 72 20 69 73 20 6e 6f 74 20 65 71 75 61 6c 20 74 6f 20 73 65 63 6f 6e 64 ┆nt number is not equal to second┆ 0x12c0…12e0 2c 0a 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 ┆, nil otherwise." (byte-code " ┆ 0x12e0…1300 09 5c 22 3f 87 22 20 5b 61 31 20 61 32 20 66 3d 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 6d ┆ \"? " [a1 a2 f=] 3)) (defun fm┆ 0x1300…1320 69 6e 20 28 61 31 20 61 32 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 74 68 65 20 6d 69 6e 69 6d 75 ┆in (a1 a2) "\ Returns the minimu┆ 0x1320…1340 6d 20 6f 66 20 74 77 6f 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 65 72 73 2e ┆m of two floating point numbers.┆ 0x1340…1360 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 5c 22 83 0b 00 08 82 0c 00 09 87 22 20 5b 61 ┆" (byte-code " \" " [a┆ 0x1360…1380 31 20 61 32 20 66 3c 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 6d 61 78 20 28 61 31 20 61 32 ┆1 a2 f<] 3)) (defun fmax (a1 a2┆ 0x1380…13a0 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 6f 66 20 74 77 6f 20 ┆) "\ Returns the maximum of two ┆ 0x13a0…13c0 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 65 72 73 2e 22 20 28 62 79 74 65 2d 63 ┆floating point numbers." (byte-c┆ 0x13c0…13e0 6f 64 65 20 22 c2 08 09 5c 22 83 0b 00 08 82 0c 00 09 87 22 20 5b 61 31 20 61 32 20 66 3e 5d 20 ┆ode " \" " [a1 a2 f>] ┆ 0x13e0…1400 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 7a 65 72 6f 70 20 28 66 6e 75 6d 29 20 22 5c 0a 52 65 74 ┆3)) (defun fzerop (fnum) "\ Ret┆ 0x1400…1420 75 72 6e 73 20 74 20 69 66 20 74 68 65 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d ┆urns t if the floating point num┆ 0x1420…1440 62 65 72 20 69 73 20 7a 65 72 6f 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 22 20 28 62 79 ┆ber is zero, nil otherwise." (by┆ 0x1440…1460 74 65 2d 63 6f 64 65 20 22 08 40 c1 55 87 22 20 5b 66 6e 75 6d 20 30 5d 20 32 29 29 0a 0a 28 64 ┆te-code " @ U " [fnum 0] 2)) (d┆ 0x1460…1480 65 66 75 6e 20 66 6c 6f 61 74 70 20 28 66 6e 75 6d 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 74 20 ┆efun floatp (fnum) "\ Returns t ┆ 0x1480…14a0 69 66 20 74 68 65 20 61 72 67 20 69 73 20 61 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e ┆if the arg is a floating point n┆ 0x14a0…14c0 75 6d 62 65 72 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 ┆umber, nil otherwise." (byte-cod┆ 0x14c0…14e0 65 20 22 08 3a 85 10 00 c1 08 40 21 85 10 00 c1 08 41 21 87 22 20 5b 66 6e 75 6d 20 69 6e 74 65 ┆e " : @! A! " [fnum inte┆ 0x14e0…1500 67 65 72 70 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 20 28 69 6e 74 29 20 22 5c 0a 43 6f 6e ┆gerp] 3)) (defun f (int) "\ Con┆ 0x1500…1520 76 65 72 74 20 74 68 65 20 69 6e 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 66 6c 6f ┆vert the integer argument to flo┆ 0x1520…1540 61 74 69 6e 67 20 70 6f 69 6e 74 2c 20 6c 69 6b 65 20 61 20 43 20 63 61 73 74 20 6f 70 65 72 61 ┆ating point, like a C cast opera┆ 0x1540…1560 74 6f 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 42 21 87 22 20 5b 69 6e 74 20 6e ┆tor." (byte-code " B! " [int n┆ 0x1560…1580 6f 72 6d 61 6c 69 7a 65 20 30 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 74 2d 74 6f 2d 68 ┆ormalize 0] 3)) (defun int-to-h┆ 0x1580…15a0 65 78 2d 73 74 72 69 6e 67 20 28 69 6e 74 29 20 22 5c 0a 43 6f 6e 76 65 72 74 20 74 68 65 20 69 ┆ex-string (int) "\ Convert the i┆ 0x15a0…15c0 6e 74 65 67 65 72 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 61 20 43 2d 73 74 79 6c 65 20 68 65 78 ┆nteger argument to a C-style hex┆ 0x15c0…15e0 61 64 65 63 69 6d 61 6c 20 73 74 72 69 6e 67 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 c5 ┆adecimal string." (byte-code " ┆ 0x15e0…1600 c6 1a 19 18 08 c7 58 85 23 00 09 c8 0a c9 ca 0b 08 5c 22 cb 5c 22 48 21 50 11 08 cc 5c 5c 89 10 ┆ X # \" \"H!P \\ ┆ 0x1600…1620 88 82 06 00 88 09 2b 87 22 20 5b 73 68 69 66 74 76 61 6c 20 73 74 72 20 68 65 78 2d 63 68 61 72 ┆ + " [shiftval str hex-char┆ 0x1620…1640 73 20 69 6e 74 20 2d 32 30 20 22 30 78 22 20 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 ┆s int -20 "0x" "0123456789ABCDEF┆ 0x1640…1660 22 20 30 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 6c 6f 67 61 6e 64 20 6c 73 68 20 31 35 ┆" 0 char-to-string logand lsh 15┆ 0x1660…1680 20 34 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 66 74 72 75 6e 63 20 28 66 6e 75 6d 29 20 22 5c ┆ 4] 8)) (defun ftrunc (fnum) "\┆ 0x1680…16a0 0a 54 72 75 6e 63 61 74 65 20 74 68 65 20 66 72 61 63 74 69 6f 6e 61 6c 20 70 61 72 74 20 6f 66 ┆ Truncate the fractional part of┆ 0x16a0…16c0 20 61 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 65 72 2e 22 20 28 62 79 74 65 ┆ a floating point number." (byte┆ 0x16c0…16e0 2d 63 6f 64 65 20 22 c5 08 41 21 83 0b 00 08 82 41 00 08 41 09 5b 58 83 17 00 c6 82 41 00 c2 85 ┆-code " A! A A [X A ┆ 0x16e0…1700 41 00 08 40 08 41 1c 1b c7 c5 0b 21 83 33 00 c8 c8 0b 0c 5c 22 0c 5b 5c 22 82 3d 00 c8 c8 0b 5b ┆A @ A ! 3 \" [\" = [┆ 0x1700…1720 0c 5c 22 0c 5b 5c 22 5b 0c 42 21 2a 87 22 20 5b 66 6e 75 6d 20 6d 61 78 62 69 74 20 74 20 6d 61 ┆ \" [\"[ B!* " [fnum maxbit t ma┆ 0x1720…1740 6e 74 20 65 78 70 20 6e 61 74 6e 75 6d 70 20 28 30 20 2e 20 31 29 20 6e 6f 72 6d 61 6c 69 7a 65 ┆nt exp natnump (0 . 1) normalize┆ 0x1740…1760 20 61 73 68 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 74 20 28 66 6e 75 6d 29 20 22 5c ┆ ash] 9)) (defun fint (fnum) "\┆ 0x1760…1780 0a 43 6f 6e 76 65 72 74 20 74 68 65 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 ┆ Convert the floating point numb┆ 0x1780…17a0 65 72 20 74 6f 20 69 6e 74 65 67 65 72 2c 20 77 69 74 68 20 74 72 75 6e 63 61 74 69 6f 6e 2c 20 ┆er to integer, with truncation, ┆ 0x17a0…17c0 0a 6c 69 6b 65 20 61 20 43 20 63 61 73 74 20 6f 70 65 72 61 74 6f 72 2e 22 20 28 62 79 74 65 2d ┆ like a C cast operator." (byte-┆ 0x17c0…17e0 63 6f 64 65 20 22 c8 09 21 18 08 40 1a 08 41 1b 0b 0c 59 83 14 00 0d 82 28 00 0b 0c 5b 58 83 20 ┆code " ! @ A Y ( [X ┆ 0x17e0…1800 00 0e 06 82 28 00 c7 85 28 00 c9 0a 0b 5c 22 2b 87 22 20 5b 74 66 20 66 6e 75 6d 20 74 69 6e 74 ┆ ( ( \"+ " [tf fnum tint┆ 0x1800…1820 20 74 65 78 70 20 6d 61 6e 74 69 73 73 61 2d 62 69 74 73 20 6d 61 6e 74 69 73 73 61 2d 6d 61 78 ┆ texp mantissa-bits mantissa-max┆ 0x1820…1840 76 61 6c 20 6d 61 6e 74 69 73 73 61 2d 6d 69 6e 76 61 6c 20 74 20 66 74 72 75 6e 63 20 61 73 68 ┆val mantissa-minval t ftrunc ash┆ 0x1840…1860 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 66 6c 6f 61 74 2d 74 6f 2d 73 74 72 69 6e 67 20 28 66 ┆] 4)) (defun float-to-string (f┆ 0x1860…1880 6e 75 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 73 63 69 29 20 22 5c 0a 43 6f 6e 76 65 72 74 20 74 68 ┆num &optional sci) "\ Convert th┆ 0x1880…18a0 65 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 65 72 20 74 6f 20 61 20 64 65 63 ┆e floating point number to a dec┆ 0x18a0…18c0 69 6d 61 6c 20 73 74 72 69 6e 67 2e 0a 4f 70 74 69 6f 6e 61 6c 20 73 65 63 6f 6e 64 20 61 72 67 ┆imal string. Optional second arg┆ 0x18c0…18e0 75 6d 65 6e 74 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 75 73 65 20 73 63 69 65 6e 74 69 66 ┆ument non-nil means use scientif┆ 0x18e0…1900 69 63 20 6e 6f 74 61 74 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 d2 09 21 18 09 40 ┆ic notation." (byte-code " ! @┆ 0x1900…1920 d3 57 1a d3 1b d3 1c d4 1d d3 1e 06 0e 08 1e 07 d5 09 0e 09 5c 22 83 5c 22 00 d6 82 54 01 d7 08 ┆ W \" \" T ┆ […truncated at 200 lines…]