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