;;; compiled by eric@geech.gnu.ai.mit.edu on Mon Mar 22 13:30:25 1993
;;; from file /gd/gnu/emacs/19.0/lisp/disass.el
;;; emacs version 19.0.506.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(require (quote byte-compile) "bytecomp")
(defvar disassemble-column-1-indent 5 "\
*")
(defvar disassemble-column-2-indent 10 "\
*")
(defvar disassemble-recursive-indent 3 "\
*")
(fset 'disassemble #[(object &optional buffer indent interactive-p) "	!= 	E  / ɐq	?#9 q	#)ć" [car-safe object byte-code lambda nil indent 0 interactive-p buffer "*Disassemble*" disassemble-internal] 5 "\
Print disassembled code for OBJECT in (optional) BUFFER.
OBJECT can be a symbol defined as a function, or a function itself
(a lambda expression or a compiled-function object).
If OBJECT is not already compiled, we compile it, but do not
redefine OBJECT if it is a symbol." (list (intern (completing-read "Disassemble function: " obarray (quote fboundp) t)) nil 0 t)])
(fset (quote disassemble-internal) #[(obj indent interactive-p) "9 K	 !! \"!=. A<> @=> !:i \"i \\ X тY \"!i !:z A@A~ HU j  ق  ۂ  \" $c: @; @ GV H \n; : Ajp\"\n\" \n!OP\ncc)jc	p\"c:\"#GV#HD&i&A@&ɉ!!=<Ajc&!=\\c&*\\\"f+&p\")c):\"\"\"!\"c+AB@p\"),!" [nil args doc name macro obj subrp error "Can't disassemble #<subr %s>" car-safe t lambda "not a function" assq byte-code interactive-p message "Compiling %s's definition..." "Compiling definition..." byte-compile "Done compiling.  Disassembling..." 0 indent format "byte code%s%s%s:\n" " for" "" " macro" " %s" 4 princ "  doc:  " string-match "\n" match-beginning " ..." "  args: " prin1 interactive 5 " interactive: " disassemble-1 disassemble-recursive-indent print-escape-newlines byte-code-function-p "Uncompiled body:  " progn] 8])
(fset 'disassemble-1 #[(obj indent) ": A@AA@ HH\n	\"	\n\n\n\n\"X AT\"\n>A\n6 +\n\n@@	\n@Aj	= @!cc\\j	 	!\" O 	= cc\\\\\\jc	> A@!c	> !c	> @p\"	>@!A!=\"A!=pA!AA!=pA\"p!Nc`!=]c`c-\\\\#!=c-\\\"!!=c\"4p\")c\nA\n^ ." [nil constvec bytes obj 1 2 byte-decompile-bytecode opname arg op lap 0 tmp tagno assq TAG setcar indent int-to-string ":" disassemble-column-1-indent string-match "^byte-" symbol-name 5 "<not-an-opcode>" byte-constant2 " #### shouldn't have seen constant2 here!\n  " disassemble-column-2-indent -1 " " byte-goto-ops (byte-call byte-unbind byte-listN byte-concatN byte-insertN) (byte-varref byte-varset byte-varbind) prin1 (byte-constant byte-constant2) byte-code-function-p car-safe lambda byte-code macro "<compiled-function>\n" "<compiled lambda>" "<compiled macro>\n" disassemble-internal disassemble-recursive-indent "<byte code>\n" disassemble-1 "(<byte code>...)\n" mapcar #[(obj) "	\n\\\"" [disassemble-1 obj indent disassemble-recursive-indent] 4] t print-escape-newlines "\n"] 6 "\
Prints the byte-code call OBJ in the current buffer.
OBJ should be a call to BYTE-CODE generated by the byte compiler."])
