home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / lisp / interpre / apteryx / compile.lsc < prev    next >
Text File  |  1994-06-27  |  55KB  |  99 lines
  1. #C(35 4 48 symbol-function 57 progv 49 macro-of-function 57 #C(15 3 18 2 14 2 10 2 6 () 1 (3 () symbols values stmts) 35 27 49 gensym 47 0 43 () 49 gensym 47 0 43 () 49 gensym 47 0 43 () 49 gensym 47 0 43 () 49 gensym 47 0 43 () 49 gensym 47 0 43 () 57 let* 40 7 57 ((gensym)) 2 () 52 () 40 7 40 12 57 () 2 () 52 () 2 () 52 () 40 7 40 12 57 () 2 () 52 () 2 () 52 () 40 7 40 6 40 8 57 mapcar 57 function 57 lambda 57 (sym) 57 if 57 (boundp sym) 57 (symbol-value sym) 40 20 57 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 40 14 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 57 unwind-protect 57 progn 57 dolist 57 sym 40 11 57 () 2 () 52 () 2 () 52 () 57 if 40 11 57 progn 57 set 57 sym 57 car 40 16 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 setq 40 15 57 cdr 40 17 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 ((makunbound sym)) 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 setq 40 7 57 progn 49 append 40 16 57 () 46 2 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 dolist 57 sym 40 11 57 () 2 () 52 () 2 () 52 () 57 setq 40 10 57 car 40 11 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 setq 40 10 57 cdr 40 12 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 if 57 eq 40 13 40 17 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 (makunbound sym) 57 set 57 sym 40 16 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 40 6 57 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 50 6 0 () 56 ()) 46 1 47 2 58 progv 56 ())
  2. #C(35 3 48 symbol-function 57 position 57 #C(15 3 18 2 14 2 9 1 7 ((:test . 0)) 6 () 1 (3 () ob list test) 35 12 41 1 5 () 53 4 59 eql 38 1 41 2 43 () 58 () 43 () 58 0 43 () 58 t 49 not 40 3 47 1 54 8 49 consp 40 4 47 1 54 0 54 40 49 funcall 40 5 49 car 40 6 46 1 40 9 47 3 54 6 58 t 38 2 55 16 49 cdr 40 4 47 1 38 3 49 1+ 40 2 47 1 38 1 55 -60 41 2 54 4 41 1 55 2 58 () 50 3 0 () 56 ()) 47 2 58 position 56 ())
  3. #C(35 3 48 symbol-function 57 mapcan 57 #C(15 3 18 2 14 2 10 2 6 () 1 (3 () fun list1 lists) 35 11 49 apply 59 nconc 52 () 49 apply 59 mapcar 52 () 40 7 40 7 40 7 2 () 52 () 2 () 52 () 46 2 47 2 0 () 56 ()) 47 2 58 mapcan 56 ())
  4. #C(35 4 48 symbol-function 57 appendf 49 macro-of-function 57 #C(15 2 18 1 14 1 10 1 6 () 1 (2 () place lists) 35 12 57 setf 40 3 57 append 40 5 49 append 40 6 57 () 46 2 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 0 () 56 ()) 46 1 47 2 58 appendf 56 ())
  5. #C(35 4 48 symbol-function 57 incf 49 macro-of-function 57 #C(19 1 1 (1 () place) 35 8 57 setf 40 2 57 1+ 40 4 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 0 () 56 ()) 46 1 47 2 58 incf 56 ())
  6. #C(35 4 48 symbol-function 57 addf 49 macro-of-function 57 #C(19 2 1 (2 () place n) 35 10 57 setf 40 3 57 + 40 5 40 5 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 0 () 56 ()) 46 1 47 2 58 addf 56 ())
  7. #C(35 4 48 symbol-function 57 decf 49 macro-of-function 57 #C(19 1 1 (1 () place) 35 8 57 setf 40 2 57 1- 40 4 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 0 () 56 ()) 46 1 47 2 58 decf 56 ())
  8. #C(35 4 48 symbol-function 57 subf 49 macro-of-function 57 #C(19 2 1 (2 () place n) 35 10 57 setf 40 3 57 - 40 5 40 5 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 0 () 56 ()) 46 1 47 2 58 subf 56 ())
  9. #C(35 4 48 symbol-function 57 pushf 49 macro-of-function 57 #C(19 2 1 (2 () place x) 35 10 57 setf 40 3 57 cons 40 4 40 6 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 0 () 56 ()) 46 1 47 2 58 pushf 56 ())
  10. #C(35 3 48 symbol-function 57 list-to-vector 57 #C(19 1 1 (1 () list) 35 13 49 length 40 2 47 1 43 () 58 0 43 () 49 make-array 40 3 47 1 43 () 40 4 32 () 52 () 31 () 54 22 30 () 48 aref 40 5 40 7 40 4 47 3 49 1+ 40 6 47 1 38 5 55 -26 29 () 50 3 41 1 50 3 0 () 56 ()) 47 2 58 list-to-vector 56 ())
  11. #C(35 4 48 symbol-function 57 with-open-file 49 macro-of-function 57 #C(15 4 18 3 14 3 10 3 6 () 1 (4 () name stream direc exprs) 35 16 57 let 40 4 57 open 40 7 57 :direction 40 7 57 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 57 if 40 6 57 unwind-protect 57 progn 49 append 40 8 57 () 46 2 2 () 52 () 57 close 40 10 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 ((error "Failure to open file" name)) 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 0 () 56 ()) 46 1 47 2 58 with-open-file 56 ())
  12. #C(35 4 48 symbol-function 57 compilef 49 macro-of-function 57 #C(19 4 1 (4 () code expr env height) 35 14 57 setf 40 5 57 _compile 40 7 40 7 40 7 40 7 57 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 0 () 56 ()) 46 1 47 2 58 compilef 56 ())
  13. #C(35 4 48 symbol-function 57 instrf 49 macro-of-function 57 #C(15 2 18 1 14 1 10 1 6 () 1 (2 () code instrs) 35 9 57 progn 49 mapcar 4 #(4) 3 #C(19 1 1 (1 () instr) 35 13 57 setf 40 3 57 cons 40 4 40 6 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 0 () 56 ()) 52 () 40 4 46 2 2 () 0 () 56 ()) 46 1 47 2 58 instrf 56 ())
  14. #C(35 3 48 symbol-function 57 _compile-function 57 #C(19 5 1 (5 () code fun args env height) 35 18 58 1 43 () 58 () 49 symbolp 40 6 47 1 54 22 57 push-fun 40 6 57 () 2 () 52 () 2 () 52 () 40 7 2 () 38 6 55 130 49 consp 40 6 47 1 54 88 58 t 49 eq 57 setf 49 car 40 8 46 1 47 2 54 34 49 true-listp 40 6 47 1 54 26 49 = 49 length 40 7 46 1 57 2 47 2 54 12 49 symbolp 49 second 40 7 46 1 47 1 54 0 54 26 57 push-setf-fun 49 second 40 7 46 1 57 () 2 () 52 () 2 () 52 () 40 7 2 () 38 6 55 8 49 error 57 "Invalid function name" 40 7 47 2 55 34 58 t 54 30 57 setit 40 6 57 () 2 () 52 () 2 () 52 () 40 7 2 () 38 6 57 (pushit) 40 7 2 () 38 6 55 0 40 4 32 () 52 () 31 () 54 46 30 () 49 _compile 40 10 40 3 40 7 40 10 2 () 52 () 49 + 40 9 40 11 46 2 47 4 38 9 57 (pushit) 40 10 2 () 38 9 49 1+ 40 5 47 1 38 4 55 -50 29 () 50 3 58 () 49 _env-height-checked 49 + 40 3 40 5 46 2 47 1 57 call-with-num-args 49 length 40 6 46 1 57 () 2 () 52 () 2 () 52 () 40 7 2 () 38 6 50 1 0 () 56 ()) 47 2 58 _compile-function 56 ())
  15. #C(35 3 48 symbol-function 57 _compile-list 57 #C(19 4 1 (4 () code expr env height) 35 15 49 car 40 4 47 1 43 () 49 cdr 40 5 47 1 43 () 49 symbolp 40 3 47 1 54 10 49 get 40 3 57 _compiler 47 2 55 2 58 () 43 () 41 1 54 28 49 apply 40 2 40 9 40 8 40 8 40 7 2 () 52 () 2 () 52 () 2 () 52 () 47 2 55 14 49 _compile-function 40 8 40 5 40 5 40 9 40 9 47 5 50 3 0 () 56 ()) 47 2 58 _compile-list 56 ())
  16. #C(35 3 48 symbol-function 57 _compile 57 #C(19 4 1 (4 () code expr env height) 35 11 58 (format t "Compiling ~A ...~%" expr) 58 () 49 keywordp 40 4 47 1 54 10 49 _compile-constant 40 5 40 5 47 2 55 104 49 symbolp 40 4 47 1 54 60 58 t 49 constantp 40 4 47 1 54 22 49 not 49 eq 49 type-of 49 symbol-value 40 7 46 1 46 1 57 constant 46 2 47 1 54 0 54 14 49 _compile-constant 40 5 49 symbol-value 40 6 46 1 47 2 55 10 49 _compile-symbol 40 5 40 5 40 5 47 3 55 36 49 consp 40 4 47 1 54 14 49 _compile-list 40 5 40 5 40 5 40 5 47 4 55 14 58 t 54 10 49 _compile-constant 40 5 40 5 47 2 55 0 0 () 56 ()) 47 2 58 _compile 56 ())
  17. #C(35 2 49 make-symbol 57 "code" 47 1 44 _*code-marker* 56 ())
  18. #C(35 3 48 symbol-function 57 _is-code 57 #C(19 1 1 (1 () ob) 35 7 58 t 49 consp 40 2 47 1 54 16 49 eq 45 _*code-marker* 52 () 49 car 40 4 46 1 47 2 54 0 0 () 56 ()) 47 2 58 _is-code 56 ())
  19. #C(35 3 48 symbol-function 57 _make-code 57 #C(19 1 1 (1 () ob) 35 4 45 _*code-marker* 52 () 40 2 2 () 0 () 56 ()) 47 2 58 _make-code 56 ())
  20. #C(35 3 48 symbol-function 57 _compile-constant 57 #C(19 2 1 (2 () code expr) 35 6 57 setit 40 2 57 () 2 () 52 () 2 () 52 () 40 3 2 () 38 2 0 () 56 ()) 47 2 58 _compile-constant 56 ())
  21. #C(35 4 48 symbol-function 57 def-compile 49 macro-of-function 57 #C(15 3 18 2 14 2 10 2 6 () 1 (3 () name args stmts) 35 15 57 progn 57 setf 57 get 57 quote 40 7 57 () 2 () 52 () 2 () 52 () 57 ('_compiler) 2 () 52 () 2 () 52 () 57 function 57 lambda 40 7 49 append 40 8 57 () 46 2 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 list 57 'def-compile 57 quote 40 8 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 0 () 56 ()) 46 1 47 2 58 def-compile 56 ())
  22. #C(35 3 48 symbol-function 57 _env-height-checked 57 #C(19 1 1 (1 () height) 35 6 49 > 40 2 45 *max-env-height* 52 () 47 2 54 6 41 1 44 *max-env-height* 55 2 58 () 41 1 0 () 56 ()) 47 2 58 _env-height-checked 56 ())
  23. #C(35 3 48 symbol-function 57 _search-env-elt 57 #C(19 3 1 (3 () var-name env-elt depth) 35 11 58 () 43 () 58 () 49 car 40 4 46 1 33 field 53 2 55 40 49 position 40 6 49 second 40 7 46 1 47 2 43 () 41 1 54 16 57 field 40 5 40 3 2 () 52 () 2 () 38 3 55 2 58 () 50 1 55 92 33 stack 53 10 33 heap 53 6 33 readonly 53 2 55 34 49 eq 40 6 49 second 40 7 46 1 47 2 54 16 49 list 49 car 40 6 46 1 40 5 47 2 38 2 55 2 58 () 55 44 33 copied 53 2 55 18 49 _search-env-elt 40 6 49 second 40 7 46 1 40 6 47 3 38 2 55 20 33 uncopied 53 2 55 4 58 () 55 10 49 error 57 "Invalid environment element" 40 6 47 2 55 0 50 1 41 1 50 1 0 () 56 ()) 47 2 58 _search-env-elt 56 ())
  24. #C(35 3 48 symbol-function 57 _search-env 57 #C(19 2 1 (2 () var-name env) 35 12 41 1 43 () 58 0 43 () 58 () 43 () 58 () 43 () 58 t 41 4 54 8 49 not 40 3 47 1 54 0 54 108 49 car 40 5 47 1 38 1 49 integerp 40 2 47 1 54 12 49 + 40 4 40 3 47 2 38 3 55 70 49 1+ 40 4 47 1 38 3 49 not 49 consp 40 3 46 1 47 1 54 10 49 error 57 "Invalid environment element" 40 3 47 2 55 2 58 () 49 _search-env-elt 40 7 40 3 40 6 47 3 38 2 49 eq 49 car 40 3 46 1 57 uncopied 47 2 54 10 49 1- 40 4 47 1 38 3 55 2 58 () 49 cdr 40 5 47 1 38 4 55 -124 49 not 40 3 47 1 54 10 49 list 57 global 40 8 47 2 55 2 41 2 50 4 0 () 56 ()) 47 2 58 _search-env 56 ())
  25. #C(35 3 48 symbol-function 57 _env-elt-matches 57 #C(19 2 1 (2 () var-name env-elt) 35 9 58 () 49 car 40 2 46 1 33 field 53 2 55 14 49 member 40 4 49 second 40 5 46 1 47 2 55 62 33 stack 53 10 33 heap 53 6 33 readonly 53 2 55 14 49 eq 40 4 49 second 40 5 46 1 47 2 55 34 33 copied 53 6 33 uncopied 53 2 55 14 49 _env-elt-matches 40 4 49 second 40 5 46 1 47 2 55 10 49 error 57 "Invalid environment element" 40 4 47 2 55 0 50 1 0 () 56 ()) 47 2 58 _env-elt-matches 56 ())
  26. #C(35 3 48 symbol-function 57 _search-env-for-usage 57 #C(19 2 1 (2 () var-name env) 35 10 41 1 43 () 58 () 43 () 58 () 43 () 58 t 41 3 54 8 49 not 40 2 47 1 54 0 54 48 49 car 40 4 47 1 38 2 49 consp 40 3 47 1 54 20 49 _env-elt-matches 40 6 40 4 47 2 54 6 41 2 38 1 55 2 58 () 55 2 58 () 49 cdr 40 4 47 1 38 3 55 -64 41 1 50 3 0 () 56 ()) 47 2 58 _search-env-for-usage 56 ())
  27. #C(35 3 48 symbol-function 57 _get-instruction 57 #C(19 1 1 (1 () var) 35 8 58 () 49 car 40 2 46 1 33 stack 53 2 55 14 49 list 57 stack-get 49 second 40 5 46 1 47 2 55 80 33 heap 53 2 55 14 49 list 57 heap-get 49 second 40 5 46 1 47 2 55 60 33 readonly 53 2 55 14 49 list 57 stack-get 49 second 40 5 46 1 47 2 55 40 33 global 53 2 55 14 49 list 57 global-get 49 second 40 5 46 1 47 2 55 20 33 field 53 2 55 14 49 list 57 field-get 49 cdr 40 5 46 1 47 2 55 0 50 1 0 () 56 ()) 47 2 58 _get-instruction 56 ())
  28. #C(35 3 48 symbol-function 57 _change-to-used 57 #C(19 1 1 (1 () instr) 35 7 58 () 49 car 40 2 46 1 33 dont-save 53 2 55 10 48 car 40 3 57 save 47 2 55 10 49 error 57 "Don't know how to _change-to-used" 40 4 47 2 55 0 50 1 0 () 56 ()) 47 2 58 _change-to-used 56 ())
  29. #C(35 3 48 symbol-function 57 _notify-get-usage 57 #C(19 1 1 (1 () env-elt) 35 7 58 () 49 car 40 2 46 1 33 uncopied 53 2 55 30 48 car 40 3 57 copied 47 2 49 _notify-get-usage 49 second 40 4 46 1 47 1 49 _change-to-used 49 third 40 4 46 1 47 1 55 0 50 1 0 () 56 ()) 47 2 58 _notify-get-usage 56 ())
  30. #C(35 3 48 symbol-function 57 _compile-symbol 57 #C(19 3 1 (3 () code sym env) 35 8 49 _search-env-for-usage 40 3 40 3 47 2 43 () 41 1 54 8 49 _notify-get-usage 40 2 47 1 55 2 58 () 50 1 57 get 40 3 40 3 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 4 2 () 38 3 0 () 56 ()) 47 2 58 _compile-symbol 56 ())
  31. #C(35 3 48 symbol-function 57 _set-instruction 57 #C(19 1 1 (1 () var) 35 8 58 () 49 car 40 2 46 1 33 stack 53 2 55 14 49 list 57 stack-set 49 second 40 5 46 1 47 2 55 76 33 heap 53 2 55 14 49 list 57 heap-set 49 second 40 5 46 1 47 2 55 56 33 readonly 53 2 55 10 49 error 57 "Can't change value of " 40 4 47 2 55 40 33 global 53 2 55 14 49 list 57 global-set 49 second 40 5 46 1 47 2 55 20 33 field 53 2 55 14 49 list 57 field-set 49 cdr 40 5 46 1 47 2 55 0 50 1 0 () 56 ()) 47 2 58 _set-instruction 56 ())
  32. #C(35 3 48 symbol-function 57 _change-stack-to-heap-instr 57 #C(19 1 1 (1 () instr) 35 7 58 () 49 car 40 2 46 1 33 push-stack-var 53 2 55 10 48 car 40 3 57 push-heap-var 47 2 55 26 33 leave-on-stack 53 2 55 10 48 car 40 3 57 put-on-heap 47 2 55 10 49 error 57 "Don't know how to stack-to-heap" 40 4 47 2 55 0 50 1 0 () 56 ()) 47 2 58 _change-stack-to-heap-instr 56 ())
  33. #C(35 3 48 symbol-function 57 _notify-set-copied-usage 57 #C(19 1 1 (1 () env-elt) 35 7 58 () 49 car 40 2 46 1 33 stack 53 2 55 20 48 car 40 3 57 heap 47 2 49 _change-stack-to-heap-instr 49 third 40 4 46 1 47 1 55 36 33 uncopied 53 2 55 30 48 car 40 3 57 copied 47 2 49 _notify-set-copied-usage 49 second 40 4 46 1 47 1 49 _change-to-used 49 third 40 4 46 1 47 1 55 0 50 1 0 () 56 ()) 47 2 58 _notify-set-copied-usage 56 ())
  34. #C(35 3 48 symbol-function 57 _notify-set-usage 57 #C(19 1 1 (1 () env-elt) 35 7 58 () 49 car 40 2 46 1 33 uncopied 53 2 55 30 48 car 40 3 57 copied 47 2 49 _notify-set-copied-usage 49 second 40 4 46 1 47 1 49 _change-to-used 49 third 40 4 46 1 47 1 55 18 33 copied 53 2 55 12 49 _notify-set-copied-usage 49 second 40 4 46 1 47 1 55 0 50 1 0 () 56 ()) 47 2 58 _notify-set-usage 56 ())
  35. #C(35 3 48 symbol-function 57 _compile-set-symbol 57 #C(19 3 1 (3 () code sym env) 35 8 49 _search-env-for-usage 40 3 40 3 47 2 43 () 41 1 54 8 49 _notify-set-usage 40 2 47 1 55 2 58 () 50 1 57 set 40 3 40 3 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 4 2 () 38 3 0 () 56 ()) 47 2 58 _compile-set-symbol 56 ())
  36. #C(35 3 48 symbol-function 57 _env-position 57 #C(19 2 1 (2 () elt env) 35 11 58 0 43 () 58 () 43 () 41 3 43 () 58 () 43 () 58 t 49 consp 40 3 47 1 54 8 49 not 40 4 47 1 54 0 54 62 49 car 40 3 47 1 38 1 49 eq 40 7 40 3 47 2 54 6 58 t 38 3 55 36 49 integerp 40 2 47 1 54 12 49 + 40 5 40 3 47 2 38 4 55 8 49 1+ 40 5 47 1 38 4 49 cdr 40 3 47 1 38 2 55 -82 41 3 54 4 41 4 55 2 58 () 50 4 0 () 56 ()) 47 2 58 _env-position 56 ())
  37. #C(35 3 48 symbol-function 57 _resolved-save-env 57 #C(19 2 1 (2 () saves env) 35 11 58 () 43 () 40 3 32 () 52 () 31 () 54 58 30 () 49 eq 49 car 40 3 46 1 57 save 47 2 54 38 49 _env-position 49 second 40 3 46 1 40 7 47 2 43 () 41 1 54 14 49 1+ 40 2 46 1 40 6 2 () 38 5 55 2 58 () 50 1 55 2 58 () 55 -62 29 () 50 3 58 () 49 list-to-vector 40 2 47 1 50 1 0 () 56 ()) 47 2 58 _resolved-save-env 56 ())
  38. #C(35 3 48 symbol-function 57 _resolve-var-ref 57 #C(19 1 1 (1 () instr) 35 9 58 () 49 first 40 2 46 1 33 set 53 2 55 22 49 _set-instruction 49 _search-env 49 second 40 5 46 1 49 third 40 6 46 1 46 2 47 1 55 62 33 get 53 2 55 22 49 _get-instruction 49 _search-env 49 second 40 5 46 1 49 third 40 6 46 1 46 2 47 1 55 34 33 save-env 53 2 55 28 57 save-env 49 _resolved-save-env 49 second 40 5 46 1 49 third 40 6 46 1 46 2 57 () 2 () 52 () 2 () 55 0 50 1 43 () 48 car 40 3 49 car 40 4 46 1 47 2 48 cdr 40 3 49 cdr 40 4 46 1 47 2 50 1 0 () 56 ()) 47 2 58 _resolve-var-ref 56 ())
  39. #C(35 3 48 symbol-function 57 _check-var-name 57 #C(19 1 1 (1 () name) 35 6 49 not 49 symbolp 40 3 46 1 47 1 54 10 49 error 57 "Invalid argument variable name" 40 3 47 2 55 2 58 () 49 constantp 40 2 47 1 54 10 49 error 57 "Invalid variable name - is a constant" 40 3 47 2 55 2 58 () 0 () 56 ()) 47 2 58 _check-var-name 56 ())
  40. #C(35 4 48 symbol-function 57 compile-stmts 49 macro-of-function 57 #C(19 4 1 (4 () prog stmts env height) 35 18 49 gensym 47 0 43 () 57 if 57 null 40 6 57 () 2 () 52 () 2 () 52 () 57 instrf 40 8 57 ('(setit ())) 2 () 52 () 2 () 52 () 57 dolist 40 5 40 9 40 11 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 compilef 40 11 40 8 40 11 40 11 57 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 2 () 50 1 0 () 56 ()) 46 1 47 2 58 compile-stmts 56 ())
  41. #C(35 4 48 get 57 progn 57 _compiler 57 #C(15 4 18 3 14 3 10 3 6 () 1 (4 () code env height stmts) 35 15 49 null 40 2 47 1 54 10 57 (setit ()) 40 5 2 () 38 4 55 34 40 1 32 () 52 () 31 () 54 18 30 () 49 _compile 40 8 40 3 40 9 40 9 47 4 38 7 55 -22 29 () 50 3 41 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 progn 47 2 56 ())
  42. #C(35 4 48 get 57 prog1 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height stmt1 stmts) 35 18 49 _compile 40 6 40 4 40 7 40 7 47 4 38 5 57 (pushit) 40 6 2 () 38 5 49 null 40 2 47 1 54 10 57 (setit ()) 40 6 2 () 38 5 55 48 40 1 32 () 52 () 31 () 54 32 30 () 49 _compile 40 9 40 3 57 1 40 11 2 () 52 () 49 _env-height-checked 49 1+ 40 12 46 1 46 1 47 4 38 8 55 -36 29 () 50 3 41 5 57 (popit) 40 6 2 () 38 5 0 () 56 ()) 47 3 49 list 57 def-compile 57 prog1 47 2 56 ())
  43. #C(35 4 48 get 57 prog2 57 _compiler 57 #C(15 6 18 5 14 5 10 5 6 () 1 (6 () code env height stmt1 stmt2 stmts) 35 19 49 _compile 40 7 40 5 40 8 40 8 47 4 38 6 49 _compile 40 7 40 4 40 8 40 8 47 4 38 6 57 (pushit) 40 7 2 () 38 6 49 null 40 2 47 1 54 10 57 (setit ()) 40 7 2 () 38 6 55 48 40 1 32 () 52 () 31 () 54 32 30 () 49 _compile 40 10 40 3 57 1 40 12 2 () 52 () 49 _env-height-checked 49 1+ 40 13 46 1 46 1 47 4 38 9 55 -36 29 () 50 3 41 6 57 (popit) 40 7 2 () 38 6 0 () 56 ()) 47 3 49 list 57 def-compile 57 prog2 47 2 56 ())
  44. #C(35 4 48 get 57 if 57 _compiler 57 #C(15 6 18 5 17 6 13 6 6 () 1 (6 () code env height cond then-stmt else-stmt) 35 16 41 1 5 () 53 4 58 () 38 1 49 gensym 47 0 43 () 49 gensym 47 0 43 () 49 _compile 40 9 40 7 40 10 40 10 47 4 38 8 57 jump-not-true 40 3 57 () 2 () 52 () 2 () 52 () 40 9 2 () 38 8 49 _compile 40 9 40 6 40 10 40 10 47 4 38 8 57 jump 40 2 57 () 2 () 52 () 2 () 52 () 40 9 2 () 38 8 40 2 40 9 2 () 38 8 49 _compile 40 9 40 5 40 10 40 10 47 4 38 8 40 1 40 9 2 () 38 8 50 2 0 () 56 ()) 47 3 49 list 57 def-compile 57 if 47 2 56 ())
  45. #C(35 4 48 get 57 when 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height cond stmts) 35 16 49 _compile-list 40 6 57 if 40 5 57 progn 49 append 40 7 57 () 46 2 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 7 40 7 47 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 when 47 2 56 ())
  46. #C(35 4 48 get 57 unless 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height cond stmts) 35 16 49 _compile-list 40 6 57 if 57 not 40 6 57 () 2 () 52 () 2 () 52 () 57 progn 49 append 40 7 57 () 46 2 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 7 40 7 47 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 unless 47 2 56 ())
  47. #C(35 4 48 get 57 quote 57 _compiler 57 #C(19 4 1 (4 () code env height value) 35 9 57 setit 40 2 57 () 2 () 52 () 2 () 52 () 40 5 2 () 38 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 quote 47 2 56 ())
  48. #C(35 4 48 get 57 dotimes 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height counter-limit stmts) 35 25 58 () 43 () 58 () 43 () 58 () 43 () 49 gensym 47 0 43 () 49 gensym 47 0 43 () 49 true-listp 40 8 47 1 54 50 58 () 49 length 40 8 46 1 33 2 53 2 55 6 58 () 38 4 55 26 33 3 53 2 55 10 49 third 40 9 47 1 38 4 55 10 49 error 57 "Invalid counter-limit" 40 10 47 2 55 0 50 1 55 8 49 error 57 "Invalid counter-limit" 40 9 47 2 49 first 40 8 47 1 38 5 49 _check-var-name 40 6 47 1 49 second 40 8 47 1 38 4 49 _compile 40 11 40 6 40 12 40 12 47 4 38 10 57 (pushit) 40 11 2 () 38 10 57 (setit 0) 40 11 2 () 38 10 57 (pushit) 40 11 2 () 38 10 40 2 40 11 2 () 38 10 57 (check-counter-finished) 40 11 2 () 38 10 57 jump-true 40 2 57 () 2 () 52 () 2 () 52 () 40 11 2 () 38 10 57 readonly 40 6 57 () 2 () 52 () 2 () 52 () 57 1 49 append 40 12 57 () 46 2 2 () 52 () 2 () 43 () 49 null 40 8 47 1 54 10 57 (setit ()) 40 12 2 () 38 11 55 44 40 7 32 () 52 () 31 () 54 28 30 () 49 _compile 40 15 40 3 40 7 49 _env-height-checked 49 + 57 2 40 19 46 2 46 1 47 4 38 14 55 -32 29 () 50 3 41 11 50 1 57 (inc-counter) 40 11 2 () 38 10 57 jump 40 3 57 () 2 () 52 () 2 () 52 () 40 11 2 () 38 10 40 1 40 11 2 () 38 10 57 (pop-discard 2) 40 11 2 () 38 10 49 _compile 40 11 40 5 40 12 40 12 47 4 38 10 50 5 0 () 56 ()) 47 3 49 list 57 def-compile 57 dotimes 47 2 56 ())
  49. #C(35 4 48 get 57 dolist 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height elt-list stmts) 35 25 58 () 43 () 58 () 43 () 58 () 43 () 49 gensym 47 0 43 () 49 gensym 47 0 43 () 49 true-listp 40 8 47 1 54 50 58 () 49 length 40 8 46 1 33 2 53 2 55 6 58 () 38 4 55 26 33 3 53 2 55 10 49 third 40 9 47 1 38 4 55 10 49 error 57 "Invalid element-list" 40 10 47 2 55 0 50 1 55 8 49 error 57 "Invalid element-list" 40 9 47 2 49 first 40 8 47 1 38 5 49 _check-var-name 40 6 47 1 49 second 40 8 47 1 38 4 49 _compile 40 11 40 6 40 12 40 12 47 4 38 10 57 (pushit) 40 11 2 () 38 10 57 (dupl) 40 11 2 () 38 10 57 (pushit) 40 11 2 () 38 10 40 2 40 11 2 () 38 10 57 (check-rest-is-cons) 40 11 2 () 38 10 57 jump-not-true 40 2 57 () 2 () 52 () 2 () 52 () 40 11 2 () 38 10 57 readonly 40 6 57 () 2 () 52 () 2 () 52 () 57 2 49 append 40 12 57 () 46 2 2 () 52 () 2 () 43 () 57 (get-next-list-elt) 40 12 2 () 38 11 49 null 40 8 47 1 54 10 57 (setit ()) 40 12 2 () 38 11 55 44 40 7 32 () 52 () 31 () 54 28 30 () 49 _compile 40 15 40 3 40 7 49 _env-height-checked 49 + 57 3 40 19 46 2 46 1 47 4 38 14 55 -32 29 () 50 3 41 11 50 1 57 jump 40 3 57 () 2 () 52 () 2 () 52 () 40 11 2 () 38 10 40 1 40 11 2 () 38 10 57 (check-rest-is-nil) 40 11 2 () 38 10 57 (pop-discard 3) 40 11 2 () 38 10 49 _compile 40 11 40 5 40 12 40 12 47 4 38 10 50 5 0 () 56 ()) 47 3 49 list 57 def-compile 57 dolist 47 2 56 ())
  50. #C(35 4 48 get 57 while 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height cond stmts) 35 18 49 gensym 47 0 43 () 49 gensym 47 0 43 () 40 2 40 8 2 () 38 7 49 _compile 40 8 40 6 40 9 40 9 47 4 38 7 57 jump-not-true 40 2 57 () 2 () 52 () 2 () 52 () 40 8 2 () 38 7 49 null 40 4 47 1 54 10 57 (setit ()) 40 8 2 () 38 7 55 34 40 3 32 () 52 () 31 () 54 18 30 () 49 _compile 40 11 40 3 40 12 40 12 47 4 38 10 55 -22 29 () 50 3 41 7 57 jump 40 3 57 () 2 () 52 () 2 () 52 () 40 8 2 () 38 7 40 1 40 8 2 () 38 7 50 2 0 () 56 ()) 47 3 49 list 57 def-compile 57 while 47 2 56 ())
  51. #C(35 4 48 get 57 cond 57 _compiler 57 #C(15 4 18 3 14 3 10 3 6 () 1 (4 () code env height clauses) 35 22 49 gensym 47 0 43 () 57 (setit ()) 40 6 2 () 38 5 40 2 32 () 52 () 31 () 54 158 30 () 49 car 40 2 47 1 43 () 49 cdr 40 3 47 1 43 () 49 gensym 47 0 43 () 49 _compile 40 12 40 5 40 13 40 13 47 4 38 11 57 jump-not-true 40 2 57 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 49 not 49 null 40 4 46 1 47 1 54 54 49 null 40 3 47 1 54 10 57 (setit ()) 40 12 2 () 38 11 55 34 40 2 32 () 52 () 31 () 54 18 30 () 49 _compile 40 15 40 3 40 16 40 16 47 4 38 14 55 -22 29 () 50 3 41 11 55 2 58 () 57 jump 40 8 57 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 40 1 40 12 2 () 38 11 50 3 55 -162 29 () 50 3 58 () 40 1 40 6 2 () 38 5 50 1 0 () 56 ()) 47 3 49 list 57 def-compile 57 cond 47 2 56 ())
  52. #C(35 4 48 get 57 case 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height key-expr clauses) 35 26 49 gensym 47 0 43 () 57 1 40 6 2 () 43 () 49 _env-height-checked 49 1+ 40 7 46 1 47 1 43 () 57 (setit ()) 40 9 2 () 38 8 49 _compile 40 9 40 7 40 10 40 10 47 4 38 8 57 (pushit) 40 9 2 () 38 8 40 4 32 () 52 () 31 () 54 244 30 () 49 car 40 2 47 1 43 () 49 cdr 40 3 47 1 43 () 49 gensym 47 0 43 () 49 gensym 47 0 43 () 49 not 49 eq 40 6 57 t 46 2 47 1 54 114 49 not 49 consp 40 6 46 1 47 1 54 10 49 list 40 5 47 1 38 4 55 2 58 () 40 4 32 () 52 () 31 () 54 44 30 () 57 eql-key 40 2 57 () 2 () 52 () 2 () 52 () 40 19 2 () 38 18 57 jump-true 40 5 57 () 2 () 52 () 2 () 52 () 40 19 2 () 38 18 55 -48 29 () 50 3 58 () 57 jump 40 3 57 () 2 () 52 () 2 () 52 () 40 16 2 () 38 15 40 1 40 16 2 () 38 15 55 2 58 () 49 null 40 4 47 1 54 10 57 (setit ()) 40 16 2 () 38 15 55 34 40 3 32 () 52 () 31 () 54 18 30 () 49 _compile 40 19 40 3 40 15 40 15 47 4 38 18 55 -22 29 () 50 3 41 15 57 jump 40 11 57 () 2 () 52 () 2 () 52 () 40 16 2 () 38 15 40 2 40 16 2 () 38 15 50 4 55 -248 29 () 50 3 58 () 40 3 40 9 2 () 38 8 57 (pop-discard 1) 40 9 2 () 38 8 50 3 0 () 56 ()) 47 3 49 list 57 def-compile 57 case 47 2 56 ())
  53. #C(35 4 48 get 57 and 57 _compiler 57 #C(15 4 18 3 14 3 10 3 6 () 1 (4 () code env height exprs) 35 16 49 gensym 47 0 43 () 57 (setit t) 40 6 2 () 38 5 40 2 32 () 52 () 31 () 54 38 30 () 49 _compile 40 9 40 3 40 10 40 10 47 4 38 8 57 jump-not-true 40 5 57 () 2 () 52 () 2 () 52 () 40 9 2 () 38 8 55 -42 29 () 50 3 58 () 40 1 40 6 2 () 38 5 50 1 0 () 56 ()) 47 3 49 list 57 def-compile 57 and 47 2 56 ())
  54. #C(35 4 48 get 57 or 57 _compiler 57 #C(15 4 18 3 14 3 10 3 6 () 1 (4 () code env height exprs) 35 16 49 gensym 47 0 43 () 57 (setit ()) 40 6 2 () 38 5 40 2 32 () 52 () 31 () 54 38 30 () 49 _compile 40 9 40 3 40 10 40 10 47 4 38 8 57 jump-true 40 5 57 () 2 () 52 () 2 () 52 () 40 9 2 () 38 8 55 -42 29 () 50 3 58 () 40 1 40 6 2 () 38 5 50 1 0 () 56 ()) 47 3 49 list 57 def-compile 57 or 47 2 56 ())
  55. #C(35 4 48 get 57 let 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height decls stmts) 35 22 41 4 43 () 41 4 43 () 58 0 43 () 40 5 32 () 52 () 31 () 54 126 30 () 58 () 43 () 58 () 43 () 58 () 43 () 49 symbolp 40 5 47 1 54 10 41 4 38 3 58 () 38 2 55 16 49 first 40 5 47 1 38 3 49 second 40 5 47 1 38 2 49 _check-var-name 40 4 47 1 49 list 57 push-stack-var 47 1 38 1 49 _compile 40 15 40 4 40 10 40 17 2 () 52 () 40 12 47 4 38 14 40 1 40 15 2 () 38 14 49 1+ 40 8 47 1 38 7 49 list 57 stack 40 5 40 4 46 3 40 10 2 () 38 9 49 1+ 40 9 47 1 38 8 50 3 55 -130 29 () 50 3 58 () 49 null 40 5 47 1 54 10 57 (setit ()) 40 9 2 () 38 8 55 38 40 4 32 () 52 () 31 () 54 22 30 () 49 _compile 40 12 40 3 40 9 49 _env-height-checked 40 10 46 1 47 4 38 11 55 -26 29 () 50 3 41 8 57 pop-discard 40 2 57 () 2 () 52 () 2 () 52 () 40 9 2 () 38 8 50 3 0 () 56 ()) 47 3 49 list 57 def-compile 57 let 47 2 56 ())
  56. #C(35 4 48 get 57 let* 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height decls stmts) 35 22 41 4 43 () 41 4 43 () 58 0 43 () 40 5 32 () 52 () 31 () 54 120 30 () 58 () 43 () 58 () 43 () 58 () 43 () 49 symbolp 40 5 47 1 54 10 41 4 38 3 58 () 38 2 55 16 49 first 40 5 47 1 38 3 49 second 40 5 47 1 38 2 49 _check-var-name 40 4 47 1 49 list 57 push-stack-var 47 1 38 1 49 _compile 40 15 40 4 40 12 40 12 47 4 38 14 40 1 40 15 2 () 38 14 49 list 57 stack 40 5 40 4 46 3 40 10 2 () 38 9 49 1+ 40 9 47 1 38 8 49 1+ 40 8 47 1 38 7 50 3 55 -124 29 () 50 3 58 () 49 null 40 5 47 1 54 10 57 (setit ()) 40 9 2 () 38 8 55 38 40 4 32 () 52 () 31 () 54 22 30 () 49 _compile 40 12 40 3 40 9 49 _env-height-checked 40 10 46 1 47 4 38 11 55 -26 29 () 50 3 41 8 57 pop-discard 40 2 57 () 2 () 52 () 2 () 52 () 40 9 2 () 38 8 50 3 0 () 56 ()) 47 3 49 list 57 def-compile 57 let* 47 2 56 ())
  57. #C(35 4 48 get 57 setq 57 _compiler 57 #C(15 4 18 3 14 3 10 3 6 () 1 (4 () code env height args) 35 18 58 t 43 () 58 () 43 () 58 () 43 () 49 null 40 5 47 1 54 10 57 (setit ()) 40 8 2 () 38 7 55 2 58 () 40 4 32 () 52 () 31 () 54 52 30 () 41 6 54 6 41 1 38 5 55 30 41 1 38 4 49 _compile 40 11 40 6 40 12 40 12 47 4 38 10 49 _compile-set-symbol 40 11 40 7 40 12 47 3 38 10 49 not 40 7 47 1 38 6 55 -56 29 () 50 3 58 () 49 not 40 4 47 1 54 8 49 error 57 "Odd number of args to setq" 47 1 55 2 58 () 41 7 50 3 0 () 56 ()) 47 3 49 list 57 def-compile 57 setq 47 2 56 ())
  58. #C(35 4 48 get 57 psetq 57 _compiler 57 #C(15 4 18 3 14 3 10 3 6 () 1 (4 () code env height args) 35 21 58 t 43 () 58 0 43 () 58 () 43 () 58 () 43 () 49 null 40 6 47 1 54 10 57 (setit ()) 40 9 2 () 38 8 55 2 58 () 40 5 32 () 52 () 31 () 54 72 30 () 41 7 54 10 40 1 40 5 2 () 38 4 55 46 41 1 38 5 49 _compile 40 12 40 7 40 9 40 14 2 () 52 () 49 + 40 11 40 15 46 2 47 4 38 11 57 (pushit) 40 12 2 () 38 11 49 1+ 40 7 47 1 38 6 49 not 40 8 47 1 38 7 55 -76 29 () 50 3 58 () 49 _env-height-checked 49 + 40 5 40 9 46 2 47 1 49 not 40 5 47 1 54 8 49 error 57 "Odd number of args to psetq" 47 1 55 2 58 () 40 1 32 () 52 () 31 () 54 38 30 () 57 (popit) 40 12 2 () 38 11 49 1- 40 7 47 1 38 6 49 _compile-set-symbol 40 12 40 3 40 9 40 14 2 () 52 () 47 3 38 11 55 -42 29 () 50 3 58 () 41 8 50 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 psetq 47 2 56 ())
  59. #C(35 4 48 get 57 defun 57 _compiler 57 #C(15 6 18 5 14 5 10 5 6 () 1 (6 () code env height name args stmts) 35 20 49 _compile 40 7 57 progn 57 (setf symbol-function) 57 quote 40 8 57 () 2 () 52 () 2 () 52 () 57 function 57 lambda 40 9 49 append 40 10 57 () 46 2 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 quote 40 8 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 8 40 8 47 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 defun 47 2 56 ())
  60. #C(35 4 48 get 57 defmacro 57 _compiler 57 #C(15 6 18 5 14 5 10 5 6 () 1 (6 () code env height name args stmts) 35 21 49 _compile 40 7 57 progn 57 (setf symbol-function) 57 quote 40 8 57 () 2 () 52 () 2 () 52 () 57 macro-of-function 57 function 57 lambda 40 10 49 append 40 11 57 () 46 2 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 quote 40 8 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 8 40 8 47 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 defmacro 47 2 56 ())
  61. #C(35 4 48 get 57 defsetf 57 _compiler 57 #C(19 5 1 (5 () code env height name fun) 35 12 57 interpret 57 defsetf 40 4 40 4 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 0 () 56 ()) 47 3 49 list 57 def-compile 57 defsetf 47 2 56 ())
  62. #C(35 4 48 get 57 defconstant 57 _compiler 57 #C(19 5 1 (5 () code env height name value) 35 13 49 _env-height-checked 57 2 47 1 49 _compile 40 6 40 3 40 7 40 7 47 4 38 5 57 (pushit) 40 6 2 () 38 5 57 setit 40 3 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 57 (pushit) 40 6 2 () 38 5 57 (defconstant) 40 6 2 () 38 5 0 () 56 ()) 47 3 49 list 57 def-compile 57 defconstant 47 2 56 ())
  63. #C(35 4 48 get 57 defstruct 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height name fields) 35 14 57 interpret 57 defstruct 40 4 49 append 40 5 57 () 46 2 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 0 () 56 ()) 47 3 49 list 57 def-compile 57 defstruct 47 2 56 ())
  64. #C(35 4 48 get 57 with-struct 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height type-and-struct stmts) 35 20 49 first 40 3 47 1 43 () 49 second 40 4 47 1 43 () 57 field 49 struct-fields 40 4 46 1 57 () 2 () 52 () 2 () 52 () 49 append 40 8 57 () 46 2 2 () 43 () 49 _env-height-checked 49 1+ 40 8 46 1 47 1 43 () 49 _compile 40 10 40 5 40 11 40 11 47 4 38 9 57 check-struct 40 5 57 () 2 () 52 () 2 () 52 () 40 10 2 () 38 9 57 (pushit) 40 10 2 () 38 9 49 null 40 6 47 1 54 10 57 (setit ()) 40 10 2 () 38 9 55 34 40 5 32 () 52 () 31 () 54 18 30 () 49 _compile 40 13 40 3 40 8 40 8 47 4 38 12 55 -22 29 () 50 3 41 9 57 (pop-discard 1) 40 10 2 () 38 9 50 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 with-struct 47 2 56 ())
  65. #C(35 3 48 symbol-function 57 _bq-is-const 57 #C(19 2 1 (2 () expr depth) 35 9 58 t 49 true-listp 40 3 47 1 54 14 49 = 49 length 40 4 46 1 57 2 47 2 54 0 54 110 58 () 49 car 40 3 46 1 33 backquote 53 2 55 18 49 _bq-is-const 49 second 40 5 46 1 49 1+ 40 5 46 1 47 2 55 74 33 comma 53 6 33 comma-at 53 2 55 32 49 = 40 3 57 0 47 2 54 4 58 () 55 16 49 _bq-is-const 49 second 40 5 46 1 49 1- 40 5 46 1 47 2 55 32 58 t 49 _bq-is-const 49 car 40 5 46 1 40 4 47 2 54 14 49 _bq-is-const 49 cdr 40 5 46 1 40 4 47 2 54 0 55 0 50 1 55 42 49 consp 40 3 47 1 54 32 58 t 49 _bq-is-const 49 car 40 4 46 1 40 3 47 2 54 14 49 _bq-is-const 49 cdr 40 4 46 1 40 3 47 2 54 0 55 2 58 t 0 () 56 ()) 47 2 58 _bq-is-const 56 ())
  66. #C(35 3 48 symbol-function 57 _backquote-expand-cons 57 #C(19 2 1 (2 () expr depth) 35 11 49 _backquote-expand1 49 car 40 4 46 1 40 3 47 2 43 () 49 _backquote-expand1 49 cdr 40 5 46 1 40 4 47 2 43 () 49 eq 49 car 40 3 46 1 57 splice 47 2 54 10 49 error 57 "Invalid position for comma-at" 40 6 47 2 55 2 58 () 49 eq 49 car 40 4 46 1 57 splice 47 2 54 40 57 eval 57 append 49 second 40 5 46 1 49 second 40 5 46 1 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 55 38 57 eval 57 cons 49 second 40 5 46 1 49 second 40 5 46 1 57 () 2 () 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 50 2 0 () 56 ()) 47 2 58 _backquote-expand-cons 56 ())
  67. #C(35 3 48 symbol-function 57 _backquote-expand1 57 #C(19 2 1 (2 () expr depth) 35 10 49 _bq-is-const 40 3 40 3 47 2 54 26 57 eval 57 quote 40 4 57 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 55 184 49 = 49 length 40 4 46 1 57 2 47 2 43 () 49 car 40 4 47 1 43 () 58 () 58 t 41 2 54 10 49 eq 40 2 57 backquote 47 2 54 0 54 14 49 _backquote-expand-cons 40 5 49 1+ 40 6 46 1 47 2 55 126 58 t 41 2 54 10 49 eq 40 2 57 comma 47 2 54 0 54 38 49 = 40 4 57 0 47 2 54 14 49 list 57 eval 49 second 40 7 46 1 47 2 55 12 49 _backquote-expand-cons 40 5 49 1- 40 6 46 1 47 2 55 70 58 t 41 2 54 10 49 eq 40 2 57 comma-at 47 2 54 0 54 38 49 = 40 4 57 0 47 2 54 14 49 list 57 splice 49 second 40 7 46 1 47 2 55 12 49 _backquote-expand-cons 40 5 49 1- 40 6 46 1 47 2 55 14 58 t 54 10 49 _backquote-expand-cons 40 5 40 5 47 2 55 0 50 2 0 () 56 ()) 47 2 58 _backquote-expand1 56 ())
  68. #C(35 3 48 symbol-function 57 _backquote-expand 57 #C(19 1 1 (1 () expr) 35 8 49 _backquote-expand1 40 2 57 0 47 2 43 () 58 () 49 car 40 2 46 1 33 eval 53 2 55 8 49 second 40 3 47 1 55 16 33 splice 53 2 55 10 49 error 57 "Invalid position for comma-at" 40 5 47 2 55 0 50 1 50 1 0 () 56 ()) 47 2 58 _backquote-expand 56 ())
  69. #C(35 4 48 get 57 backquote 57 _compiler 57 #C(19 4 1 (4 () code env height expr) 35 12 49 _compile 40 5 49 _backquote-expand 40 4 46 1 40 6 40 6 47 4 38 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 backquote 47 2 56 ())
  70. #C(35 4 48 get 57 catch 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height tag-expr forms) 35 17 49 _compile 40 6 40 4 40 7 40 7 47 4 38 5 57 (pushit) 40 6 2 () 38 5 57 catch 49 _make-code 49 _compile 57 () 57 progn 49 append 40 7 57 () 46 2 2 () 52 () 57 2 40 10 2 () 52 () 49 _env-height-checked 49 1+ 40 11 46 1 46 1 46 4 46 1 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 0 () 56 ()) 47 3 49 list 57 def-compile 57 catch 47 2 56 ())
  71. #C(35 4 48 get 57 unwind-protect 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height expr forms) 35 20 57 2 40 5 2 () 43 () 49 + 40 5 57 2 47 2 43 () 57 3 40 7 2 () 43 () 49 _env-height-checked 49 + 40 8 57 3 46 2 47 1 43 () 57 setit 49 _make-code 49 _compile 57 () 40 10 40 9 40 9 46 4 46 1 57 () 2 () 52 () 2 () 52 () 40 10 2 () 38 9 57 (pushit) 40 10 2 () 38 9 57 unwind-protect 49 _make-code 49 _compile 57 () 57 progn 49 append 40 11 57 () 46 2 2 () 52 () 40 7 40 7 46 4 46 1 57 () 2 () 52 () 2 () 52 () 40 10 2 () 38 9 50 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 unwind-protect 47 2 56 ())
  72. #C(35 4 48 get 57 with-dc 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height expr forms) 35 18 49 _compile 40 6 40 4 40 7 40 7 47 4 38 5 57 (pushit) 40 6 2 () 38 5 57 with-dc 49 _make-code 49 _compile 57 () 57 progn 49 append 40 7 57 () 46 2 2 () 52 () 57 2 40 10 2 () 52 () 49 _env-height-checked 49 + 40 11 57 2 46 2 46 1 46 4 46 1 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 0 () 56 ()) 47 3 49 list 57 def-compile 57 with-dc 47 2 56 ())
  73. #C(35 4 48 get 57 with-continuous-gc 57 _compiler 57 #C(15 4 18 3 14 3 10 3 6 () 1 (4 () code env height forms) 35 16 57 with-continuous-gc 49 _make-code 49 _compile 57 () 57 progn 49 append 40 7 57 () 46 2 2 () 52 () 57 1 40 9 2 () 52 () 49 _env-height-checked 49 1+ 40 10 46 1 46 1 46 4 46 1 57 () 2 () 52 () 2 () 52 () 40 5 2 () 38 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 with-continuous-gc 47 2 56 ())
  74. #C(35 4 48 get 57 with-selected-objects 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height expr forms) 35 18 49 _compile 40 6 40 4 40 7 40 7 47 4 38 5 57 (pushit) 40 6 2 () 38 5 57 with-selected-objects 49 _make-code 49 _compile 57 () 57 progn 49 append 40 7 57 () 46 2 2 () 52 () 57 2 40 10 2 () 52 () 49 _env-height-checked 49 + 40 11 57 2 46 2 46 1 46 4 46 1 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 0 () 56 ()) 47 3 49 list 57 def-compile 57 with-selected-objects 47 2 56 ())
  75. #C(35 4 48 get 57 with-select 57 _compiler 57 #C(15 5 18 4 14 4 10 4 6 () 1 (5 () code env height objects forms) 35 15 49 _compile 40 6 57 with-selected-objects 57 list 49 append 40 7 57 () 46 2 2 () 52 () 49 append 40 6 57 () 46 2 2 () 52 () 2 () 52 () 40 7 40 7 47 4 38 5 0 () 56 ()) 47 3 49 list 57 def-compile 57 with-select 47 2 56 ())
  76. #C(35 4 48 get 57 cons 57 _compiler 57 #C(19 5 1 (5 () code env height arg1 arg2) 35 15 49 _compile 40 6 40 4 40 7 40 7 47 4 38 5 57 (pushit) 40 6 2 () 38 5 49 _compile 40 6 40 3 57 1 40 8 2 () 52 () 49 _env-height-checked 49 1+ 40 9 46 1 46 1 47 4 38 5 57 (pushit) 40 6 2 () 38 5 57 (cons) 40 6 2 () 38 5 0 () 56 ()) 47 3 49 list 57 def-compile 57 cons 47 2 56 ())
  77. #C(35 0 58 (jump jump-true jump-not-true) 44 _*jump-ops* 56 ())
  78. #C(35 3 48 symbol-function 57 _resolve-labels 57 #C(19 1 1 (1 () instructions) 35 18 58 0 43 () 58 () 43 () 58 () 43 () 40 4 32 () 52 () 31 () 54 68 30 () 49 symbolp 40 2 47 1 54 16 40 1 40 7 2 () 52 () 40 6 2 () 38 5 55 40 49 1+ 40 7 47 1 38 6 49 not 49 true-listp 40 3 46 1 47 1 54 10 49 error 57 "Invalid instruction" 40 3 47 2 55 2 58 () 40 1 40 5 2 () 38 4 55 -72 29 () 50 3 58 () 49 reverse 40 2 47 1 38 1 58 0 38 3 40 1 32 () 52 () 31 () 54 100 30 () 49 member 49 car 40 3 46 1 45 _*jump-ops* 52 () 47 2 54 70 49 assoc 49 second 40 3 46 1 40 7 47 2 43 () 49 null 40 2 47 1 54 14 49 error 57 "Jump to non-existent label" 49 second 40 5 46 1 47 2 55 2 58 () 48 second 40 3 49 * 57 2 49 - 49 cdr 40 7 46 1 49 1+ 40 14 46 1 46 2 46 2 47 2 50 1 55 2 58 () 49 1+ 40 7 47 1 38 6 55 -104 29 () 50 3 58 () 41 1 50 3 0 () 56 ()) 47 2 58 _resolve-labels 56 ())
  79. #C(35 3 48 symbol-function 57 _is-noop 57 #C(19 1 1 (1 () instr) 35 6 58 t 49 consp 40 2 47 1 54 14 49 member 49 car 40 3 46 1 57 (leave-on-stack) 47 2 54 0 0 () 56 ()) 47 2 58 _is-noop 56 ())
  80. #C(35 3 48 symbol-function 57 _push-version 57 #C(19 1 1 (1 () instr) 35 7 49 assoc 49 car 40 3 46 1 57 ((setit . push-arg) (stack-get . stack-get-pushit) (call-with-num-args . call-and-pushit)) 47 2 43 () 49 consp 40 2 47 1 54 16 49 cdr 40 2 46 1 49 rest 40 4 46 1 2 () 55 2 58 () 50 1 0 () 56 ()) 47 2 58 _push-version 56 ())
  81. #C(35 3 48 symbol-function 57 _reverse-and-optimize 57 #C(19 1 1 (1 () compiled) 35 12 58 () 43 () 58 () 43 () 58 () 43 () 40 4 32 () 52 () 31 () 54 110 30 () 49 not 49 _is-noop 40 3 46 1 47 1 54 92 41 5 54 56 49 consp 40 2 47 1 54 10 49 _push-version 40 2 47 1 38 4 55 4 58 () 38 4 41 4 54 10 40 4 40 7 2 () 38 6 55 14 40 1 57 (pushit) 40 8 2 () 52 () 2 () 38 6 58 () 38 5 55 30 49 equal 40 2 57 (pushit) 47 2 38 5 49 not 40 6 47 1 54 10 40 1 40 7 2 () 38 6 55 2 58 () 55 2 58 () 55 -114 29 () 50 3 58 () 41 2 54 10 57 (pushit) 40 4 2 () 38 3 55 2 58 () 41 3 50 3 0 () 56 ()) 47 2 58 _reverse-and-optimize 56 ())
  82. #C(35 3 48 symbol-function 57 _make-exec-code 57 #C(19 1 1 (1 () instrs) 35 11 58 () 43 () 40 2 32 () 52 () 31 () 54 80 30 () 58 () 49 length 40 2 46 1 33 1 53 2 55 20 57 () 49 first 40 4 46 1 40 7 2 () 52 () 2 () 38 5 55 40 33 2 53 2 55 24 49 second 40 3 46 1 49 first 40 4 46 1 40 7 2 () 52 () 2 () 38 5 55 10 49 error 57 "Invalid instruction" 40 4 47 2 55 0 50 1 55 -84 29 () 50 3 58 () 49 array-to-code 49 list-to-vector 49 reverse 40 4 46 1 46 1 47 1 50 1 0 () 56 ()) 47 2 58 _make-exec-code 56 ())
  83. #C(35 3 48 symbol-function 57 _post-compile 57 #C(19 1 1 (1 () compiled) 35 12 57 (exit) 40 2 2 () 38 1 40 1 32 () 52 () 31 () 54 96 30 () 49 consp 40 2 47 1 54 82 58 () 58 t 49 member 49 car 40 3 46 1 57 (set get save-env) 47 2 54 0 54 8 49 _resolve-var-ref 40 2 47 1 55 52 58 t 49 = 49 length 40 3 46 1 57 2 47 2 54 12 49 _is-code 49 second 40 3 46 1 47 1 54 0 54 22 48 second 40 2 49 _post-compile 49 cdr 49 second 40 6 46 1 46 1 46 1 47 2 55 0 55 2 58 () 55 -100 29 () 50 3 58 () 49 _reverse-and-optimize 40 2 47 1 43 () 49 _resolve-labels 40 2 47 1 43 () 49 _make-exec-code 40 2 47 1 50 2 0 () 56 ()) 47 2 58 _post-compile 56 ())
  84. #C(35 3 48 symbol-function 57 _compile-toplevel 57 #C(19 1 1 (1 () expr) 35 18 49 gensym 47 0 43 () 58 (*max-env-height*) 43 () 58 (0) 43 () 58 () 43 () 58 () 43 () 49 mapcar 4 #(6) 3 #C(19 1 1 (1 () sym) 35 12 49 boundp 40 2 47 1 54 8 49 symbol-value 40 2 47 1 55 2 41 2 0 () 56 ()) 52 () 40 6 47 2 43 () 57 #C(40 7 32 () 52 () 31 () 54 36 30 () 41 9 54 22 49 set 40 2 49 car 40 12 46 1 47 2 49 cdr 40 10 47 1 38 9 55 6 49 makunbound 40 2 47 1 55 -40 29 () 50 3 58 () 49 list 57 check-stack 57 0 47 2 43 () 49 _compile 49 list 40 3 46 1 49 full-macroexpand 40 13 46 1 57 () 57 0 47 4 43 () 48 second 40 3 45 *max-env-height* 52 () 47 2 49 _post-compile 40 2 47 1 50 2 38 4 56 ()) 23 #C(40 8 32 () 52 () 31 () 54 46 30 () 49 car 40 8 47 1 38 9 49 cdr 40 8 47 1 38 7 49 eq 40 10 40 14 47 2 54 8 49 makunbound 40 2 47 1 55 8 49 set 40 2 40 11 47 2 55 -50 29 () 50 3 58 () 41 5 56 ()) 50 6 0 () 56 ()) 47 2 58 _compile-toplevel 56 ())
  85. #C(35 0 60 (defstruct _arglist args canonical-arglist varlist num-vars) 56 ())
  86. #C(35 0 60 (defstruct _canonical-arglist pos-args opt-args rest-arg kwd-args allow-other-keys num-pos-args num-opt-args num-kwd-args num-opt-vars num-kwd-vars opt-var-gaps kwd-list) 56 ())
  87. #C(35 3 48 symbol-function 57 _var-list 57 #C(19 1 1 (1 () canonical-arglist) 35 11 58 () 43 () 41 2 28 _canonical-arglist 52 () 27 (1 . 0) 52 () 32 () 52 () 31 () 54 12 30 () 40 1 40 6 2 () 38 5 55 -16 29 () 50 3 58 () 27 (1 . 1) 52 () 32 () 52 () 31 () 54 62 30 () 49 consp 49 first 40 3 46 1 47 1 54 34 49 car 49 first 40 3 46 1 46 1 40 6 2 () 38 5 49 cdr 49 first 40 3 46 1 46 1 40 6 2 () 38 5 55 12 49 first 40 2 46 1 40 6 2 () 38 5 55 -66 29 () 50 3 58 () 27 (1 . 2) 52 () 32 () 52 () 31 () 54 18 30 () 49 rest 40 2 40 7 2 () 38 6 52 () 47 1 55 -22 29 () 50 3 58 () 27 (1 . 3) 52 () 32 () 52 () 31 () 54 62 30 () 49 consp 49 second 40 3 46 1 47 1 54 34 49 car 49 second 40 3 46 1 46 1 40 6 2 () 38 5 49 cdr 49 second 40 3 46 1 46 1 40 6 2 () 38 5 55 12 49 second 40 2 46 1 40 6 2 () 38 5 55 -66 29 () 50 3 58 () 50 1 49 reverse 40 2 47 1 50 1 0 () 56 ()) 47 2 58 _var-list 56 ())
  88. #C(35 3 48 symbol-function 57 _analyze-args 57 #C(19 1 1 (1 () arglist) 35 24 58 -1 43 () 58 &positional 43 () 49 make-_canonical-arglist 57 :pos-args 57 () 57 :opt-args 57 () 57 :rest-arg 57 () 57 :kwd-args 57 () 57 :kwd-list 57 () 57 :num-opt-vars 57 0 57 :num-kwd-vars 57 0 57 :opt-var-gaps 57 () 47 16 43 () 58 (&optional &rest &key &allow-other-keys) 43 () 58 () 43 () 49 not 49 true-listp 40 8 46 1 47 1 54 10 49 error 57 "Invalid argument list" 40 8 47 2 55 2 58 () 41 3 28 _canonical-arglist 52 () 58 () 26 (1 . 4) 40 7 32 () 52 () 31 () 54 784 30 () 49 position 40 2 40 8 47 2 43 () 41 1 54 72 49 <= 40 2 40 12 47 2 54 10 49 error 57 "Argument list keyword in wrong order" 40 4 47 2 55 2 58 () 41 1 38 10 41 2 38 9 49 eq 40 3 57 &allow-other-keys 47 2 54 28 58 t 27 (5 . 3) 54 4 27 (5 . 2) 54 0 54 6 58 t 26 (5 . 4) 55 8 49 error 57 "Can't have &allow-other-keys without &rest and &keys" 40 13 47 2 55 2 58 () 55 692 58 () 40 9 33 &positional 53 2 55 18 49 _check-var-name 40 4 47 1 40 3 27 (7 . 0) 52 () 2 () 26 (6 . 0) 55 662 33 &optional 53 2 55 260 49 true-listp 40 4 47 1 54 196 49 length 40 4 47 1 43 () 58 () 43 () 58 () 43 () 58 () 43 () 58 () 43 () 58 () 49 < 40 6 57 1 47 2 53 10 49 > 40 6 57 3 47 2 53 0 54 10 49 error 57 "Invalid optional arg" 40 10 47 2 55 2 58 () 49 first 40 9 47 1 38 4 49 1+ 27 (12 . 8) 52 () 47 1 26 (11 . 8) 49 _check-var-name 40 5 47 1 49 >= 40 6 57 2 47 2 54 10 49 second 40 9 47 1 38 1 55 2 58 () 49 = 40 6 57 3 47 2 54 44 57 2 27 (12 . 10) 52 () 2 () 26 (11 . 10) 49 third 40 9 47 1 38 2 49 1+ 27 (12 . 8) 52 () 47 1 26 (11 . 8) 49 _check-var-name 40 3 47 1 40 4 40 3 2 () 38 3 55 22 41 4 38 3 27 (11 . 10) 54 12 57 1 27 (12 . 10) 52 () 2 () 26 (11 . 10) 55 2 58 () 49 list 40 4 40 3 47 2 38 12 50 5 55 44 49 _check-var-name 40 4 47 1 49 1+ 27 (7 . 8) 52 () 47 1 26 (6 . 8) 27 (6 . 10) 54 12 57 1 27 (7 . 10) 52 () 2 () 26 (6 . 10) 55 2 58 () 49 list 40 4 57 () 47 2 38 7 40 7 27 (7 . 1) 52 () 2 () 26 (6 . 1) 55 396 33 &rest 53 2 55 32 27 (6 . 2) 54 10 49 error 57 "More than one &rest arg in arg list" 40 14 47 2 55 2 58 () 49 _check-var-name 40 4 47 1 49 list 40 4 47 1 26 (6 . 2) 55 358 33 &key 53 2 55 326 58 () 26 (6 . 4) 58 () 43 () 58 () 43 () 58 () 43 () 58 () 43 () 58 () 43 () 49 true-listp 40 9 47 1 54 168 49 length 40 9 47 1 43 () 58 () 49 < 40 2 57 1 47 2 53 10 49 > 40 2 57 3 47 2 53 0 54 10 49 error 57 "Invalid keyword arg" 40 11 47 2 55 2 58 () 49 first 40 10 47 1 43 () 58 t 49 true-listp 40 2 47 1 54 14 49 = 49 length 40 3 46 1 57 2 47 2 54 0 54 18 49 first 40 2 47 1 38 7 49 second 40 2 47 1 38 6 55 18 49 _check-var-name 40 2 47 1 49 keyword-of 40 2 47 1 38 7 41 1 38 6 50 1 49 >= 40 2 57 2 47 2 54 10 49 second 40 10 47 1 38 2 55 2 58 () 49 >= 40 2 57 3 47 2 54 14 49 third 40 10 47 1 38 3 58 t 38 4 55 2 58 () 50 1 55 18 49 _check-var-name 40 9 47 1 49 keyword-of 40 9 47 1 38 5 41 8 38 4 49 _check-var-name 40 5 47 1 40 5 27 (12 . 9) 52 () 2 () 52 () 27 (12 . 11) 52 () 2 () 26 (11 . 11) 49 1+ 27 (12 . 9) 52 () 47 1 26 (11 . 9) 41 3 54 18 49 _check-var-name 40 3 47 1 49 1+ 27 (12 . 9) 52 () 47 1 26 (11 . 9) 55 2 58 () 41 3 54 20 49 list 40 6 40 6 40 5 2 () 52 () 40 4 47 3 38 12 55 12 49 list 40 6 40 6 40 4 47 3 38 12 50 5 40 7 27 (7 . 3) 52 () 2 () 26 (6 . 3) 55 26 33 &allow-other-keys 53 2 55 10 49 error 57 "Can't have args following &allow-other-keys" 40 5 47 2 55 10 49 error 57 "Invalid last argument list keyword" 40 12 47 2 55 0 50 1 50 1 55 -788 29 () 50 3 58 () 49 reverse 27 (2 . 0) 52 () 47 1 26 (1 . 0) 49 length 27 (2 . 0) 52 () 47 1 26 (1 . 5) 49 reverse 27 (2 . 1) 52 () 47 1 26 (1 . 1) 49 length 27 (2 . 1) 52 () 47 1 26 (1 . 6) 49 reverse 27 (2 . 3) 52 () 47 1 26 (1 . 3) 49 length 27 (2 . 3) 52 () 47 1 26 (1 . 7) 49 reverse 27 (2 . 11) 52 () 47 1 26 (1 . 11) 50 1 49 make-_arglist 57 :args 40 8 57 :canonical-arglist 40 7 47 4 43 () 41 1 28 _arglist 52 () 49 _var-list 27 (2 . 1) 52 () 47 1 26 (1 . 2) 49 length 27 (2 . 2) 52 () 47 1 26 (1 . 3) 50 1 41 1 50 1 50 5 0 () 56 ()) 47 2 58 _analyze-args 56 ())
  89. #C(35 3 48 symbol-function 57 _arg-env 57 #C(19 1 1 (1 () varlist) 35 14 58 1 43 () 58 () 43 () 49 reverse 40 4 46 1 32 () 52 () 31 () 54 34 30 () 49 list 57 stack 40 3 49 list 57 leave-on-stack 40 10 46 2 46 3 40 5 2 () 38 4 49 1+ 40 6 47 1 38 5 55 -38 29 () 50 3 58 () 49 reverse 40 2 47 1 50 2 0 () 56 ()) 47 2 58 _arg-env 56 ())
  90. #C(35 3 48 symbol-function 57 _copy-env 57 #C(19 1 1 (1 () env) 35 13 58 () 43 () 40 2 32 () 52 () 31 () 54 38 30 () 49 consp 40 2 47 1 54 24 49 list 57 uncopied 40 3 49 list 57 dont-save 40 6 46 2 46 3 40 5 2 () 38 4 55 2 58 () 55 -42 29 () 50 3 58 () 49 reverse 40 2 47 1 50 1 0 () 56 ()) 47 2 58 _copy-env 56 ())
  91. #C(35 3 48 symbol-function 57 _compile-args-expander 57 #C(19 2 1 (2 () code arglist) 35 12 41 1 28 _arglist 52 () 27 (1 . 1) 28 _canonical-arglist 52 () 49 not 58 () 27 (2 . 2) 53 8 27 (2 . 3) 53 4 27 (2 . 1) 53 0 52 () 47 1 43 () 41 1 54 24 57 check-num-args 27 (3 . 5) 52 () 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 55 374 57 set-num-vars 27 (4 . 3) 52 () 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 57 check-min-num-args 27 (3 . 5) 52 () 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 49 not 58 () 27 (3 . 2) 53 4 27 (3 . 3) 53 0 52 () 47 1 54 32 57 check-max-num-args 49 + 27 (4 . 5) 52 () 27 (5 . 6) 52 () 46 2 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 55 2 58 () 58 () 27 (2 . 2) 53 4 27 (2 . 3) 53 0 54 32 57 shift-rest-args 49 + 27 (4 . 5) 52 () 27 (5 . 6) 52 () 46 2 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 55 2 58 () 27 (2 . 1) 54 112 57 fill-out-opt-args 49 + 27 (4 . 5) 52 () 27 (5 . 6) 52 () 46 2 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 27 (2 . 10) 54 74 57 set-opt-vars-top 49 + 27 (4 . 5) 52 () 27 (5 . 8) 52 () 46 2 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 27 (2 . 10) 52 () 32 () 52 () 31 () 54 24 30 () 57 set-opt-var 40 2 57 () 2 () 52 () 2 () 52 () 40 9 2 () 38 8 55 -28 29 () 50 3 58 () 55 2 58 () 55 2 58 () 27 (2 . 2) 54 32 57 get-rest-arg 49 + 27 (4 . 5) 52 () 27 (5 . 8) 52 () 46 2 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 55 2 58 () 27 (2 . 3) 54 62 57 init-kwd-args 27 (3 . 9) 52 () 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 27 (2 . 4) 54 10 57 (allow-other-keys) 40 6 2 () 38 5 55 2 58 () 57 get-kwd-args 27 (3 . 11) 52 () 57 () 2 () 52 () 2 () 52 () 40 6 2 () 38 5 55 2 58 () 57 (reset-arg-stack) 40 6 2 () 38 5 50 1 50 1 50 1 41 2 0 () 56 ()) 47 2 58 _compile-args-expander 56 ())
  92. #C(35 3 48 symbol-function 57 _compile-opt-default-getter 57 #C(19 5 1 (5 () code opt-arg arg-env saved-env height) 35 16 49 first 40 5 47 1 43 () 49 second 40 6 47 1 43 () 58 () 43 () 49 gensym 47 0 43 () 49 consp 40 5 47 1 54 10 49 car 40 5 47 1 38 2 55 4 41 4 38 2 57 get 40 3 40 9 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 10 2 () 38 9 57 (test-suppliedp) 40 10 2 () 38 9 57 jump-true 40 2 57 () 2 () 52 () 2 () 52 () 40 10 2 () 38 9 49 _compile 40 10 40 5 40 9 40 9 47 4 38 9 57 set 40 3 40 9 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 10 2 () 38 9 40 1 40 10 2 () 38 9 50 4 0 () 56 ()) 47 2 58 _compile-opt-default-getter 56 ())
  93. #C(35 3 48 symbol-function 57 _compile-kwd-default-getter 57 #C(19 5 1 (5 () code opt-arg arg-env saved-env height) 35 18 49 second 40 5 47 1 43 () 49 third 40 6 47 1 43 () 58 () 43 () 58 () 43 () 49 gensym 47 0 43 () 49 gensym 47 0 43 () 49 consp 40 7 47 1 54 216 49 car 40 7 47 1 38 4 49 cdr 40 7 47 1 38 3 57 get 40 5 40 11 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 57 (test-suppliedp) 40 12 2 () 38 11 57 jump-true 40 3 57 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 49 _compile 40 12 40 7 40 11 40 11 47 4 38 11 57 set 40 5 40 11 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 57 (setit ()) 40 12 2 () 38 11 57 set 40 4 40 11 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 57 jump 40 2 57 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 40 2 40 12 2 () 38 11 57 (setit t) 40 12 2 () 38 11 57 set 40 4 40 11 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 40 1 40 12 2 () 38 11 55 106 41 6 38 4 57 get 40 5 40 11 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 57 (test-suppliedp) 40 12 2 () 38 11 57 jump-true 40 2 57 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 49 _compile 40 12 40 7 40 11 40 11 47 4 38 11 57 set 40 5 40 11 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 40 1 40 12 2 () 38 11 50 6 0 () 56 ()) 47 2 58 _compile-kwd-default-getter 56 ())
  94. #C(35 3 48 symbol-function 57 _compile-defaults-getters 57 #C(19 5 1 (5 () code canonical-arglist arg-env saved-env height) 35 17 41 4 28 _canonical-arglist 52 () 27 (1 . 1) 52 () 32 () 52 () 31 () 54 20 30 () 49 _compile-opt-default-getter 40 10 40 3 40 10 40 10 40 10 47 5 38 9 55 -24 29 () 50 3 58 () 27 (1 . 3) 52 () 32 () 52 () 31 () 54 22 30 () 49 _compile-kwd-default-getter 40 10 40 3 40 10 40 10 40 10 47 5 38 9 27 (4 . 3) 55 -26 29 () 50 3 58 () 41 6 50 1 0 () 56 ()) 47 2 58 _compile-defaults-getters 56 ())
  95. #C(35 3 48 symbol-function 57 _compile-lambda-function 57 #C(19 5 1 (5 () code args body env height) 35 32 49 not 49 true-listp 40 6 46 1 47 1 54 10 49 error 57 "Invalid function argument list" 40 6 47 2 55 2 58 () 49 not 49 true-listp 40 5 46 1 47 1 54 10 49 error 57 "Invalid function body" 40 5 47 2 55 2 58 () 49 _analyze-args 40 5 47 1 43 () 49 _arglist-varlist 40 2 47 1 43 () 49 _arg-env 40 2 47 1 43 () 49 _copy-env 40 6 47 1 43 () 49 mapcar 59 third 52 () 40 3 47 2 43 () 49 append 40 4 40 4 47 2 43 () 49 + 40 8 49 length 40 8 46 1 47 2 43 () 58 () 43 () 49 list 57 check-stack 57 0 47 2 43 () 41 9 28 _arglist 52 () 49 gensym 47 0 43 () 58 (*max-env-height*) 43 () 49 list 40 7 47 1 43 () 58 () 43 () 58 () 43 () 49 mapcar 4 #(6) 3 #C(19 1 1 (1 () sym) 35 26 49 boundp 40 2 47 1 54 8 49 symbol-value 40 2 47 1 55 2 41 2 0 () 56 ()) 52 () 40 6 47 2 43 () 57 #C(40 7 32 () 52 () 31 () 54 36 30 () 41 9 54 22 49 set 40 2 49 car 40 12 46 1 47 2 49 cdr 40 10 47 1 38 9 55 6 49 makunbound 40 2 47 1 55 -40 29 () 50 3 58 () 49 _compile-args-expander 40 12 40 20 47 2 38 11 57 dump-info 49 length 27 (11 . 2) 52 () 46 1 57 () 27 (12 . 2) 52 () 2 () 52 () 2 () 52 () 57 () 2 () 52 () 2 () 52 () 40 12 2 () 38 11 40 10 40 12 2 () 38 11 49 _compile-defaults-getters 40 12 27 (11 . 1) 52 () 40 19 27 (13 . 3) 52 () 40 20 2 () 52 () 40 17 47 5 38 11 40 16 32 () 52 () 31 () 54 16 30 () 49 third 40 2 46 1 40 15 2 () 38 14 55 -20 29 () 50 3 58 () 49 _compile 40 12 57 progn 49 append 40 25 57 () 46 2 2 () 52 () 40 16 40 16 47 4 38 11 57 (undump-info) 40 12 2 () 38 11 48 second 40 11 45 *max-env-height* 52 () 47 2 38 4 56 ()) 23 #C(40 8 32 () 52 () 31 () 54 46 30 () 49 car 40 8 47 1 38 9 49 cdr 40 8 47 1 38 7 49 eq 40 10 40 14 47 2 54 8 49 makunbound 40 2 47 1 55 8 49 set 40 2 40 11 47 2 55 -50 29 () 50 3 58 () 41 5 56 ()) 50 6 49 _make-code 40 4 47 1 38 3 41 7 54 48 57 save-env 40 7 40 14 57 () 2 () 52 () 2 () 52 () 2 () 52 () 40 16 2 () 38 15 57 make-closure 40 4 57 () 2 () 52 () 2 () 52 () 40 16 2 () 38 15 55 20 57 setit 40 4 57 () 2 () 52 () 2 () 52 () 40 16 2 () 38 15 50 1 50 9 0 () 56 ()) 47 2 58 _compile-lambda-function 56 ())
  96. #C(35 4 48 get 57 function 57 _compiler 57 #C(19 4 1 (4 () code env height expr) 35 13 49 symbolp 40 2 47 1 54 22 57 get-fun-with-name 40 2 57 () 2 () 52 () 2 () 52 () 40 5 2 () 38 4 55 102 49 not 49 true-listp 40 3 46 1 47 1 54 10 49 error 57 "Invalid arg to function, not a list or symbol" 40 3 47 2 55 2 58 () 49 not 49 eq 49 car 40 4 46 1 57 lambda 46 2 47 1 54 10 49 error 57 "Invalid arg to function, list is not a lambda expression" 40 3 47 2 55 2 58 () 49 < 49 length 40 3 46 1 57 2 47 2 54 8 49 error 57 "Invalid lambda list, has no arguments" 47 1 55 2 58 () 49 _compile-lambda-function 40 5 49 second 40 4 46 1 49 cddr 40 5 46 1 40 7 40 7 47 5 38 4 0 () 56 ()) 47 3 49 list 57 def-compile 57 function 47 2 56 ())
  97. #C(35 3 48 symbol-function 57 compile-and-load 57 #C(19 2 1 (2 () infile-name outfile-name) 35 17 49 the-compiler 47 0 43 () 49 null 40 2 47 1 54 8 49 error 57 "the-compiler is undefined" 47 1 55 2 58 () 49 open 40 4 57 :direction 57 :input 47 3 43 () 41 1 54 6 57 #C(49 open 40 6 57 :direction 57 :output 47 3 43 () 41 1 54 6 57 #C(49 not 49 eofp 40 8 46 1 47 1 54 46 49 read 40 7 47 1 43 () 49 funcall 40 9 40 3 47 2 43 () 49 format 57 t 57 "Compiled ~A~%" 40 5 47 3 49 print 40 2 40 7 47 2 49 eval 40 2 47 1 50 2 55 -58 56 ()) 23 #C(49 close 40 5 47 1 56 ()) 55 10 49 error 57 "Failure to open file" 45 name 52 () 47 2 50 1 56 ()) 23 #C(49 close 40 5 47 1 56 ()) 55 10 49 error 57 "Failure to open file" 45 name 52 () 47 2 50 1 50 1 41 1 0 () 56 ()) 47 2 58 compile-and-load 56 ())
  98. #C(35 2 48 the-compiler 59 _compile-toplevel 52 () 47 1 56 ())
  99.