KongFuOfArchitect/part3/lisp/lisp_function/lisp_optional_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
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 5 (DEFUN SHOW-MEMBERS (A B &OPTIONAL ...) ...)-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|
       #26Y(00 00 00 00 02 00 02 00 26 0E 3D 02 3D 01 B0 B0 B0 B0 7B 04 38 11
            31 8C 19 05)
       () (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B|
        |COMMON-LISP|::|&OPTIONAL| |COMMON-LISP-USER|::|C|
        |COMMON-LISP-USER|::|D|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7 7 (SHOW-MEMBERS 1 2 ...)-2|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 2D 03 03 19 01)
   (1. 2. 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 'B ...)-4|
   #19Y(00 00 00 00 00 00 00 00 20 01 DA DB DC DD 2D 04 04 19 01)
   (|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|C|
    |COMMON-LISP-USER|::|D| |COMMON-LISP-USER|::|SHOW-MEMBERS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|11 11 (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(#:|13 13 (SHOW-MEMBERS 'A 'B)-6|
   #16Y(00 00 00 00 00 00 00 00 20 01 DA DB 30 02 19 01)
   (|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B|
    |COMMON-LISP-USER|::|SHOW-MEMBERS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|14 14 (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(#:|16 16 (SHOW-MEMBERS 1 2 ...)-8|
   #19Y(00 00 00 00 00 00 00 00 20 01 DA DB DC DD 2D 04 04 19 01)
   (1. 2. 3. 4. |COMMON-LISP-USER|::|SHOW-MEMBERS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))