home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / floatpri.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  4.1 KB  |  69 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  3.    "SYSTEM"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2
  6.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  7.    DECODE-FLOAT-DECIMAL REMOVE-OLD-DEFINITIONS
  8.    #Y(DECODE-FLOAT-DECIMAL
  9.       #642Y(00 00 00 00 01 00 00 00 00 02 AB 31 C6 41 03 AC 23 00 80 C2 AC 71
  10.             D6 AD DA 71 D4 95 00 96 01 D8 AB 71 D6 AF 8E 04 09 AD DA 71 D4 80
  11.             9A 01 C5 F6 96 06 AA 71 A1 B0 DA 71 D4 72 01 30 01 06 91 06 80 9C
  12.             B1 8E 96 81 69 B1 DC 8F 01 32 81 A1 B1 E9 72 02 37 D5 14 80 B6 02
  13.             DE AD 72 00 36 80 9D 03 14 71 D6 B2 72 00 36 90 01 31 08 85 02 AD
  14.             DE 81 02 37 03 B3 AE 72 02 37 B2 B4 72 01 36 71 D4 80 99 01 B4 AE
  15.             72 02 37 71 9A B2 80 D4 00 01 02 AD DE 71 B7 AD DE 71 B6 AB AB 8F
  16.             01 31 81 5A 16 02 AD AD 8D 04 81 9F 91 08 81 A5 B3 8E 96 81 BE B7
  17.             91 02 81 C7 A1 14 72 02 37 95 0A 71 D4 71 99 D7 14 31 D4 F6 14 71
  18.             93 AA 71 4A AB AB AC B3 72 02 35 BE 3F 04 19 16 D9 DA D8 D8 3F 04
  19.             19 05 DB 1A 23 B2 DD 72 02 37 C9 1A 31 B2 DC 8F 01 32 72 B2 DF 72
  20.             02 37 CB 1A 23 B2 E2 72 02 37 CE 1A 1B AA DA 80 D4 00 B7 AB 81 02
  21.             35 06 B2 8D 96 5B B2 E1 8F 01 31 63 B2 E4 72 02 37 D0 14 71 B6 80
  22.             9A 03 E6 B1 B4 71 D6 72 03 35 B3 AB 71 E5 72 02 37 AF AC 71 E6 72
  23.             02 37 72 01 36 80 9C 00 AA B2 71 C1 37 01 80 B9 06 F6 DE B2 71 D4
  24.             90 01 32 07 AF DE 80 B6 05 84 03 95 05 B5 72 02 37 71 9A B1 B5 72
  25.             02 35 72 00 36 71 D4 80 99 02 96 05 B6 72 02 37 B1 72 00 36 80 D4
  26.             01 96 05 B5 72 02 37 71 9A B1 B5 72 02 35 72 00 36 71 D4 71 99 AD
  27.             8F 01 2F FF 6E AB 95 06 B7 72 02 37 B2 72 00 36 71 D4 8F 01 2F FF
  28.             5C 16 01 1A FE E5 B1 E2 72 02 37 CE 1A 0C B1 E1 8F 01 31 72 B1 E7
  29.             72 02 37 D3 14 80 B6 02 DE AD 80 9D 03 DA B2 71 D4 AE 90 01 2F 07
  30.             85 02 AD DE 80 B6 03 B3 B2 71 D4 AE B4 71 D4 71 B6 80 99 01 B4 B2
  31.             71 D4 71 9A AE 80 B6 00 1A FE 9E B1 DD 72 02 37 C9 1A FE 5C 9C FB
  32.             9B FA 84 06 7D 03 16 02 DE AD DE 80 B6 01 14 72 02 37 AE 90 01 32
  33.             FE 8E 84 04 AA 71 93 AA 71 4A AA AA B2 72 02 35 1A 04 9B F8 16 01
  34.             96 01 AE AB 70 36 23 13 73 16 01 AB AD 90 01 2F 06 AD D8 AD 7F 51
  35.             03 AD AC AC C0 3F 04 19 18 9E 1A FE 7A AA DE 31 B6 1A 09 B0 B8 72
  36.             02 37 91 02 72 9B F6 DA B3 72 01 36 71 D4 71 99 D7 1A FE 5A DE B1
  37.             32 02 37 1A 08 B7 B4 71 D4 91 02 72 A1 14 31 B9 1A FE 48 B0 DE 31
  38.             B6 1A FE 33
  39.            )
  40.       0. "0" 1. 16. -970. 3. 10. 21306. 70777. 22000. 28. 93. 12655. 42039. 9.
  41.       4004. 13301. 643. 2136. #\0 -1.
  42.   )  )
  43. #Y(#:TOP-LEVEL-FORM-3
  44.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  45.    WRITE-FLOAT REMOVE-OLD-DEFINITIONS
  46.    #Y(WRITE-FLOAT
  47.       #263Y(00 00 00 00 02 00 00 00 00 03 AB 8E 12 31 AB 2E 08 41 04 AA 24 09
  48.             04 E2 B1 30 8D E3 AC E4 72 02 31 92 00 04 AC 8E 95 26 91 00 80 48
  49.             D3 14 AA AF 8F 01 2F 80 43 AF B3 37 02 30 8E AE 1A 80 53 D8 D9 AD
  50.             DA DB DC DD DE 6D 03 07 B1 32 05 1F E5 B2 30 8D E6 B2 30 8D AC 1A
  51.             06 E5 B3 30 8D 84 00 AA 24 0F 76 16 01 AE B2 37 02 30 8E D2 F8 0E
  52.             11 1C 3C 1A 80 68 9D 1A FF B5 AF B3 37 01 AD 30 8E E6 B3 30 8D AF
  53.             B3 AC 37 01 30 8E 1A 15 E5 B4 30 8D 84 00 AA AC 8E 04 75 16 01 E6
  54.             B3 30 8D E5 B3 30 8D AD AB 81 01 36 03 16 01 0E 11 1B 2F 0E 12 25
  55.             13 2A B0 8E 13 26 1A 0A B0 8E 14 20 1A 04 B0 8E 15 1A D7 1A 28 03
  56.             15 1A 24 03 16 1A 20 03 17 1A 1C 03 18 1A 18 00 19 09 B0 8D 16 66
  57.             B0 8D 13 65 B0 8D 14 65 B0 8D 15 65 B0 8D 16 65 00 14 92 01 04 AA
  58.             23 14 60 AA B3 30 8D AD 37 0B 03 19 FA 7C 05 14 BF 30 85 19 09
  59.            )
  60.       TYPE-ERROR :DATUM :EXPECTED-TYPE FLOAT "argument is not a float: ~S"
  61.       "Argument ist kein Float: ~S" "L'argument n'est pas un FLOAT : ~S"
  62.       LANGUAGE DECODE-FLOAT-DECIMAL -1. #\- -2. 7. #\0 #\. 0. 1.
  63.       *PRINT-READABLY* *READ-DEFAULT-FLOAT-FORMAT*
  64.       #S(HASH-TABLE EQ (LONG-FLOAT . 39.) (DOUBLE-FLOAT . 13.)
  65.          (SINGLE-FLOAT . 7.) (SHORT-FLOAT . 1.)
  66.         )
  67.       #\E #\s #\f #\d #\L 10.
  68.   )  )
  69.