KongFuOfArchitect/part3/lisp/lisp_function/lisp_keyword_parameters.fas at master · program-spiritual/KongFuOfArchitect · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 4 (DEFUN SHOW-MEMBERS (&KEY A B ...) ...)-1|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|SHOW-MEMBERS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|SHOW-MEMBERS|
       #34Y(00 00 00 00 00 00 00 00 A6 1B 04 00 00 00 3D 04 3D 03 3D 02 3D 01
            B0 B0 B0 B0 7B 04 38 11 31 8C 19 05)
       (:|A| :|B| :|C| :|D|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP|::|&KEY| |COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B|
        |COMMON-LISP-USER|::|C| |COMMON-LISP-USER|::|D|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6 6 (SHOW-MEMBERS :A 1 ...)-2|
   #21Y(00 00 00 00 00 00 00 00 20 01 DA DB DC DD DE DF 2D 06 06 19 01)
   (:|A| 1. :|C| 2. :|D| 3. |COMMON-LISP-USER|::|SHOW-MEMBERS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|8 8 (TERPRI)-3| #16Y(00 00 00 00 00 00 00 00 20 01 38 01 31 97 19 01) ()
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|10 10 (SHOW-MEMBERS :A 'P ...)-4|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA DB DC DD DE DF E0 E1 2D 08 08 19 01)
   (:|A| |COMMON-LISP-USER|::|P| :|B| |COMMON-LISP-USER|::|Q| :|C|
    |COMMON-LISP-USER|::|R| :|D| |COMMON-LISP-USER|::|S|
    |COMMON-LISP-USER|::|SHOW-MEMBERS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|12 12 (TERPRI)-5| #16Y(00 00 00 00 00 00 00 00 20 01 38 01 31 97 19 01)
   () (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|14 14 (SHOW-MEMBERS :A 'P ...)-6|
   #19Y(00 00 00 00 00 00 00 00 20 01 DA DB DC DD 2D 04 04 19 01)
   (:|A| |COMMON-LISP-USER|::|P| :|D| |COMMON-LISP-USER|::|Q|
    |COMMON-LISP-USER|::|SHOW-MEMBERS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|16 16 (TERPRI)-7| #16Y(00 00 00 00 00 00 00 00 20 01 38 01 31 97 19 01)
   () (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|18 18 (SHOW-MEMBERS :A 1 ...)-8|
   #19Y(00 00 00 00 00 00 00 00 20 01 DA DB DC DD 2D 04 04 19 01)
   (:|A| 1. :|B| 2. |COMMON-LISP-USER|::|SHOW-MEMBERS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))