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