KongFuOfArchitect/part3/lisp/lisp_function/lisp_mapping_functions.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
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 1 (WRITE (MAPCAR '1+ '#))-1|
   #21Y(00 00 00 00 00 00 00 00 20 01 DA DB 73 00 16 38 11 31 8C 19 01)
   (|COMMON-LISP|::|1+| (23. 34. 45. 56. 67. 78. 89.))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3 5 (DEFUN CUBEMYLIST (LIST) ...)-2|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|COMMON-LISP-USER|::|CUBEMYLIST| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|COMMON-LISP-USER|::|CUBEMYLIST|
       #39Y(00 00 00 00 01 00 00 00 26 02 63 AE 1B 0E 94 00 AC AD AE 73 03 39
            84 02 16 01 83 00 AC 8D 9F 6E 16 01 AC 31 B1 19 03)
       () (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7 7 (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(#:|9 9 (WRITE (CUBEMYLIST '#))-4|
   #19Y(00 00 00 00 00 00 00 00 20 01 DA 6F 01 38 11 31 8C 19 01)
   ((2. 3. 4. 5. 6. 7. 8. 9.) |COMMON-LISP-USER|::|CUBEMYLIST|)
   (|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(#:|14 14 (WRITE (MAPCAR '+ '# ...))-6|
   #22Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 73 01 16 38 11 31 8C 19 01)
   (|COMMON-LISP|::|+| (1. 3. 5. 7. 9. 11. 13.) (2. 4. 6. 8.))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))