home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / backquot.fas < prev    next >
Text File  |  1977-12-31  |  7KB  |  138 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 #11Y(00 00 00 00 00 01 D8 30 5D 19 01)
  4.    (SPECIAL *BACKQUOTE-LEVEL*)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #11Y(00 00 00 00 00 01 D8 30 5D 19 01)
  7.    (SPECIAL *NSPLICE-FUN*)
  8.   )
  9. #Y(#:TOP-LEVEL-FORM-4 #11Y(00 00 00 00 00 01 C3 0F 01 19 01) NCONC
  10.    *NSPLICE-FUN*
  11.   )
  12. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  13.    |`-READER| REMOVE-OLD-DEFINITIONS
  14.    #Y(|`-READER|
  15.       #50Y(00 02 00 00 00 03 0E 00 1B 01 C4 14 31 97 10 00 AF 63 62 63 70 78 DA
  16.            AB 6E 03 AC 6E 04 6E 05 7A 03 6A 00 DE 90 01 2D 04 AA 2E 07 F6 15 16
  17.            01 11 19 03
  18.           )
  19.       *BACKQUOTE-LEVEL* 0. BACKQUOTE REMOVE-BACKQUOTE-THIRD UNQUOTE-LEVEL
  20.       BACKQUOTE-1 1. ELIM-UNQUOTE-DUMMY
  21.   )  )
  22. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  23.    |,-READER| REMOVE-OLD-DEFINITIONS
  24.    #Y(|,-READER|
  25.       #97Y(00 02 00 00 00 03 62 AD 37 03 70 7E 0E 00 1C 11 6A 00 8E 92 1F D9 DF
  26.            E0 E1 6D 03 05 C9 14 32 01 1F D9 DA DB DC 6D 03 05 C9 1A 72 B0 37 03
  27.            30 7C E3 CF 1A 15 6A 00 31 98 10 00 AD 23 0A 6D AD 24 0D 12 B0 37 03
  28.            30 7C E6 CF 14 B2 63 62 63 70 78 60 02 1A 07 E4 B1 63 62 63 30 78 14
  29.            60 02 11 19 04
  30.           )
  31.       *BACKQUOTE-LEVEL* ERROR "~S: comma is illegal outside of backquote"
  32.       "~S: Komma darf nur innerhalb von Backquote auftreten."
  33.       "~S : Une virgule ne peut apparaître qu'à l'intérieur d'un «backquote»."
  34.       LANGUAGE READ "~S: more commas out than backquotes in, is illegal"
  35.       "~S: Es dürfen nicht mehr Kommata als Backquotes auftreten."
  36.       "~S : Il ne peut y avoir plus de virgules que de «backquote»." #\@ SPLICE
  37.       UNQUOTE #\. NSPLICE
  38.   )  )
  39. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  40.    REMOVE-BACKQUOTE-THIRD REMOVE-OLD-DEFINITIONS
  41.    #Y(REMOVE-BACKQUOTE-THIRD
  42.       #53Y(00 01 00 00 00 02 9C 1F 1D 93 01 24 02 04 9C 5B 20 1B 93 01 6B 70 94
  43.            02 27 6C 5C 19 02 D8 98 01 AD 32 00 26 19 02 AB 8D 26 73 9C 19 02 DA
  44.            9D 5B 77 60 02 19 02
  45.           )
  46.       VECTOR REMOVE-BACKQUOTE-THIRD BACKQUOTE
  47.   )  )
  48. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  49.    ELIM-UNQUOTE-DUMMY REMOVE-OLD-DEFINITIONS
  50.    #Y(ELIM-UNQUOTE-DUMMY
  51.       #58Y(00 01 00 00 00 02 9C 1F 23 93 01 AA 6B 78 94 03 AA 6B 73 AD 9E 22 04
  52.            AB 9C 21 1C AC 9C 5C 19 06 C4 19 02 DA 98 03 AD 32 00 26 19 02 AB 23
  53.            00 70 AB 8D 26 6F 9C 19 02 A0 19 06
  54.           )
  55.       UNQUOTE-DUMMY UNQUOTE VECTOR ELIM-UNQUOTE-DUMMY
  56.   )  )
  57. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  58.    UNQUOTE-LEVEL REMOVE-OLD-DEFINITIONS
  59.    #Y(UNQUOTE-LEVEL
  60.       #170Y(00 01 00 01 00 08 00 2A 01 3A 02 01 C3 0B 00 00 9E 1F 36 93 03 24
  61.             03 05 9E 5B 20 80 40 93 03 24 06 80 74 9E 5B 1F 80 6F DE 9F 5B 77
  62.             67 02 00 71 97 6B 53 A0 5B 5B 20 80 4F 00 61 02 19 04 D9 AB 6C 02
  63.             01 AF 32 00 26 19 04 AD 8D 26 71 9E 19 04 DC 9F 5B 77 60 02 19 04
  64.             9B 5B 5A 19 05 67 00 00 8D 92 6D 9E 5B 77 67 01 00 71 98 6B FF 98
  65.             9B 1F 11 93 00 24 05 0C 9B 5B 5A 1F 07 9B 5B 5A 77 23 04 56 DB AB
  66.             60 02 19 05 A0 5B 5B 77 67 03 00 6B FF 74 60 01 1A FF A3 93 03 67
  67.             01 00 6B FF 67 94 04 67 02 00 27 FF 5F 5C 19 04
  68.            )
  69.       0. VECTOR
  70.       #Y(UNQUOTE-LEVEL-1 #14Y(00 01 00 00 00 02 AB 68 00 01 2F 01 19 02) NIL
  71.          UNQUOTE-LEVEL
  72.         )
  73.       UNQUOTE UNQUOTE-VALUE QUOTE BACKQUOTE
  74.   )  )
  75. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  76.    SPLICING-P REMOVE-OLD-DEFINITIONS
  77.    #Y(SPLICING-P
  78.       #27Y(00 01 00 00 00 02 AB 31 06 1E 0E 93 01 AA C3 59 1D 05 AA C4 59 19 03
  79.            19 03 19 02
  80.           )
  81.       SPLICE NSPLICE
  82.   )  )
  83. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  84.    BACKQUOTE-1 REMOVE-OLD-DEFINITIONS
  85.    #Y(BACKQUOTE-1
  86.       #342Y(00 01 00 00 00 02 9C 1F 80 50 93 01 23 0A 80 72 93 01 23 0B 80 71
  87.             93 01 24 11 80 7D E4 EA EB D7 14 6D 03 10 32 00 1F 9C 19 02 D9 DA
  88.             DB DC AF 32 00 26 61 02 19 02 DF E0 E1 AD 72 00 26 60 02 19 03 98
  89.             00 AC 8F 00 27 62 DB 98 05 AD 72 00 26 DE AB 8F 00 28 61 E0 9C 5C
  90.             19 03 AB 8E 08 0B AB 8C 61 07 AB AC 30 51 21 FF BE AB 8D 0A FF B9
  91.             AB 8D 09 FF B4 AB 8D 24 FF AF AB 8D 26 45 DF AC 60 02 19 02 9C 5B
  92.             5A 19 02 E4 E5 E6 D2 1A FF 92 9F 5B 5B 77 6B FF 71 60 01 1A 1F 93
  93.             01 24 15 80 74 9C 5B 1F 80 6F DB EE 03 17 10 18 A1 5B 77 27 FF 56
  94.             11 14 9F 5B 5B 20 57 00 61 03 19 02 9C 5A 5B 5A 1F 80 74 9C 5A 5B
  95.             5A 77 24 0A 80 6B 9C 5A 5B 77 6B FF 33 94 02 6B FF 2E 2F 19 19 02
  96.             6A 18 AC 60 02 19 04 AB 87 00 75 9C 19 04 6A 18 AC 9D 5B 61 02 19
  97.             04 9C 5A 5B 77 6B FF 0C 94 02 6B FF 07 92 00 61 9B 1F 06 93 00 0E
  98.             18 21 5F 6A 18 AC AC 60 03 19 04 9C 5A 1F 07 9C 5A 77 23 0B FF 9E
  99.             9C 5A 1F 25 9C 5A 77 24 11 1F 9C 5A 5B 5A 1F 09 9C 5A 5B 5A 77 23
  100.             0A FF BC 9C 5A 77 6B FE C9 9D 5A 78 6B FE C3 2F 1A 1A 05 93 01 27
  101.             FE BA 14 94 02 6B FE B4 2F 1A 19 02
  102.            )
  103.       SPLICING-P MULTIPLE-VALUE-CALL #'VECTOR LIST
  104.       #Y(BACKQUOTE-1-1
  105.          #49Y(00 01 00 00 00 02 AB 87 00 0F DD 9D 14 6E 03 60 02 19 02 DA 9D 5B
  106.               5A 1A 73 9C 5B 5A 1F 07 9C 5B 5A 77 23 01 6E 93 01 6E 03 94 02 6E
  107.               03 2F 04 19 02
  108.              )
  109.          SPLICING-P UNQUOTE-VALUE VALUES-LIST BACKQUOTE-1 BACKQUOTE-CONS VALUES
  110.         )
  111.       BACKQUOTE-1 #.#'CONSTANTP QUOTE VECTOR #.#'EVAL UNQUOTE-VALUE SPLICE
  112.       ERROR "The syntax ,@form is valid only in lists"
  113.       "Die Syntax ,@form ist nur innerhalb von Listen erlaubt."
  114.       "La syntaxe ,@form n'est permise qu'à l'intérieur d'une liste." LANGUAGE
  115.       NSPLICE "The syntax ,.form is valid only in lists"
  116.       "Die Syntax ,.form ist nur innerhalb von Listen erlaubt."
  117.       "La syntaxe ,.form n'est permise qu'à l'intérieur d'une liste." BACKQUOTE
  118.       'BACKQUOTE APPEND *NSPLICE-FUN* BACKQUOTE-APPEND BACKQUOTE-CONS
  119.   )  )
  120. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  121.    BACKQUOTE-APPEND REMOVE-OLD-DEFINITIONS
  122.    #Y(BACKQUOTE-APPEND
  123.       #45Y(00 02 00 00 00 03 92 01 15 9C 1F 05 93 01 23 01 14 D9 AD AD 60 03 19
  124.            03 D9 AD 60 02 19 03 AC 87 00 76 9D 19 03 D9 AD 9E 5B 61 02 19 03
  125.           )
  126.       SPLICING-P APPEND
  127.   )  )
  128. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  129.    BACKQUOTE-CONS REMOVE-OLD-DEFINITIONS
  130.    #Y(BACKQUOTE-CONS
  131.       #87Y(00 02 00 00 00 03 AC 8C 61 04 AB 8B 61 0D 91 01 2C DB 9E 14 60 02 19
  132.            03 C5 1A 0E AC 7F 5E 02 AB 7F 5E 01 D8 AD 23 01 70 9E 14 9E 5C 1A 65
  133.            C7 1A 1F C6 1A 01 C8 14 AD 9E 5B 61 02 19 03 9C 1F 6E 93 01 23 03 6C
  134.            93 01 23 05 6A 93 01 23 04 65 C7 14 AD AD 60 03 19 03
  135.           )
  136.       QUOTE UNQUOTE UNQUOTE-DUMMY LIST CONS LIST*
  137.   )  )
  138.