Power-Programmierung/CD1.mdf/lisp/interpre/apteryx/macros.lsc

Text File | 1994-06-30 | 2KB | 6 lines

#C(35 3 48 symbol-function 57 _expand-do-dec 57 #C(19 1 1 (1 () dec) 35 9 58 () 49 symbolp 40 2 47 1 54 14 49 list 40 2 57 () 46 2 57 () 2 () 55 120 49 true-listp 40 2 47 1 54 98 58 () 49 length 40 2 46 1 33 1 53 2 55 14 49 list 40 3 57 () 46 2 57 () 2 () 55 66 33 2 53 2 55 8 40 2 57 () 2 () 55 52 33 3 53 2 55 36 49 list 49 first 40 4 46 1 49 second 40 5 46 1 46 2 49 list 49 first 40 5 46 1 49 third 40 6 46 1 46 2 2 () 55 10 49 error 57 "Invalid do var declaration" 40 4 47 2 55 0 50 1 55 14 58 t 54 10 49 error 57 "Invalid do var declaration" 40 3 47 2 55 0 0 () 56 ()) 47 2 58 _expand-do-dec 56 ())
#C(35 3 48 symbol-function 57 _do-test 57 #C(19 1 1 (1 () test-result) 35 5 49 consp 40 2 47 1 54 8 49 car 40 2 47 1 55 6 49 error 57 "Invalid do test and result expression" 47 1 0 () 56 ()) 47 2 58 _do-test 56 ())
#C(35 3 48 symbol-function 57 _do-result 57 #C(19 1 1 (1 () test-result) 35 6 49 true-listp 40 2 47 1 54 12 57 progn 49 cdr 40 3 46 1 2 () 55 6 57 "Invalid do test and result" 40 2 47 1 0 () 56 ()) 47 2 58 _do-result 56 ())
#C(35 4 48 symbol-function 57 do 49 macro-of-function 57 #C(15 3 18 2 14 2 10 2 6 () 1 (3 () vars test-result stmts) 35 22 49 mapcar 59 _expand-do-dec 52 () 40 5 47 2 43 () 49 mapcar 59 car 52 () 40 3 47 2 43 () 49 mapcar 59 cdr 52 () 40 4 47 2 43 () 49 _do-test 40 6 47 1 43 () 49 _do-result 40 7 47 1 43 () 57 let 40 5 57 while 57 not 40 6 57 () 2 () 52 () 2 () 52 () 49 append 40 11 57 psetq 49 append 49 apply 59 append 52 () 40 13 46 2 57 () 46 2 2 () 52 () 57 () 2 () 52 () 46 2 2 () 52 () 2 () 52 () 40 4 57 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 50 5 0 () 56 ()) 46 1 47 2 58 do 56 ())
#C(35 4 48 symbol-function 57 do* 49 macro-of-function 57 #C(15 3 18 2 14 2 10 2 6 () 1 (3 () vars test-result stmts) 35 22 49 mapcar 59 _expand-do-dec 52 () 40 5 47 2 43 () 49 mapcar 59 car 52 () 40 3 47 2 43 () 49 mapcar 59 cdr 52 () 40 4 47 2 43 () 49 _do-test 40 6 47 1 43 () 49 _do-result 40 7 47 1 43 () 57 let* 40 5 57 while 57 not 40 6 57 () 2 () 52 () 2 () 52 () 49 append 40 11 57 setq 49 append 49 apply 59 append 52 () 40 13 46 2 57 () 46 2 2 () 52 () 57 () 2 () 52 () 46 2 2 () 52 () 2 () 52 () 40 4 57 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 50 5 0 () 56 ()) 46 1 47 2 58 do* 56 ())