(require (quote compiler)) (provide (quote disassembler)) (defun disassemble-fun (fun &optional stream) 60198 (lisp-code "y\tF HLaQF QF HLqLpML\n" [fun symbol-function macro 3 2 disassemble stream] 3)) (defun disassemble (lisp-code &optional stream) (lisp-code "DPPIII5666666F&HSF& Hf_F%H_f_F&_bh&S_F&JhS_jVS_^&VF&IHb bDS6nLa H\nH\nS EbS bS b bS IdhS_jVS_^&%VF&HbbbbbI JF%HbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbJ\nI\nIHhF&HHJE" [1 lisp-code 2 0 24 op arg c screen-tab i consts code-string stream standard-output format "\n%d:\t" 55 248 7 6 127 8 "call\t#%d" 16 argobj "push\t[%d] %S\n" "push\t[%d] %S" "vrefc\t[%d] %S" 32 "vsetc\t[%d] %S" 40 "list\t#%d" 48 "bind\t[%d] %S" 250 251 "jmp\t%d" 252 "jmp-nil\t%d" 253 "jmp-t\t%d" 254 "jmp-nil-else-pop\t%d" 255 "jmp-t-else-pop\t%d" 72 "pop" 64 "vref" 65 "vset" 66 "fref" 67 "fset" 68 "init-bind" 69 "unbind" 70 "dup" 71 "swap" 73 "nil" 74 "t" 75 "cons" 76 "car" 77 "cdr" 78 "rplaca" 79 "rplacd" 80 "nth" 81 "nthcdr" 82 "aset" 83 "aref" 84 "length" 85 "eval" 86 "plus-2" 87 "negate" 88 "minus-2" 89 "product-2" 90 "divide-2" 91 "mod-2" 92 "bit-not" 93 "not" 94 "bit-or-2" 95 "bit-and-2" 96 "equal" 97 "eq" 98 "num-eq" 99 "num-noteq" 100 "gtthan" 101 "gethan" 102 "ltthan" 103 "lethan" 104 "inc" 105 "dec" 106 "lsh" 107 "zerop" 108 "null" 109 "atom" 110 "consp" 111 "listp" 112 "numberp" 113 "stringp" 114 "vectorp" 115 "catch-kludge" 116 "throw" 117 "unwind-pro" 118 "un-unwind-pro" 119 "fboundp" 120 "boundp" 121 "symbolp" 122 "get" 123 "put" 124 "error-pro" 125 "signal" 176 "set-current-buffer" 177 "swap-buffer" 178 "current-buffer" 179 "bufferp" 180 "mark-p" 181 "windowp" 182 "swap-window" format-string ""] 7))