(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "COMPILER" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::ORIG-FUNDEF SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ORIG-FUNDEF
      #49Y(00 00 00 00 01 00 00 00 00 02 AD 8D 4F 14 AD 6F 04 AC DF 38 01 8E 82
           02 9D 5E 14 AC 88 06 0D 15 19 03 DA DB AF DC 6F 03 B1 33 03 1F AC 2F
           07 19 04)
      COMMON-LISP::UNDEFINED-FUNCTION :NAME "Undefined function ~S"
      SYSTEM::TEXT SYSTEM::GET-FUNNAME-SYMBOL SYSTEM::TRACED-DEFINITION
      SYSTEM::MACROP SYSTEM::MACRO-EXPANDER))
#Y(#:TOP-LEVEL-FORM-3
   #158Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 2D 03 03 DA DE DF E0 E1 E2 64
         E3 E4 38 02 72 27 7B 01 E5 63 E6 E7 6E 0A 0E E0 E9 E2 64 E3 EA 38 02
         72 27 7B 01 E5 63 E6 EB 6E 0A 0E E0 EC E2 64 E3 ED 38 02 72 27 7B 01
         E5 63 E6 EE 6E 0A 0E E0 EF E2 64 E3 F0 38 02 72 27 7B 01 E5 63 E6 F1
         6E 0A 0E E0 F2 E2 64 E3 F3 38 02 72 27 7B 01 E5 63 E6 F4 6E 0A 0E E0
         F5 E2 64 E3 64 38 02 72 27 7B 01 E5 63 E6 F6 6E 0A 0E E0 F7 E2 64 E3
         DB 38 02 72 27 7B 01 E5 63 E6 65 1E 6E 0A 0E 2D 0A 1F 19 01)
   COMMON-LISP::DISASSEMBLE COMMON-LISP::FUNCTION
   "disassemble the OBJECT, which should be a function.
if QUALIFIERS or SPECIALIZERS is given, OBJECT should be a generic function."
   SYSTEM::%SET-DOCUMENTATION
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::T
      :KEYS-P COMMON-LISP::T :KEYWORDS (:SPECIALIZERS :QUALIFIERS)
      :ALLOW-P COMMON-LISP::NIL)
   (0.) :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-3-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-3-1-1
         #22Y(00 00 00 00 01 00 00 00 01 17 2E 00 14 2E 01 14 B0 2D 03 02 19
              03)
         SYSTEM::PROGRAM-NAME SYSTEM::PROGRAM-ID
         SYSTEM::DISASSEMBLE-MACHINE-CODE)
      (COMMON-LISP::T))
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS COMMON-LISP::STRING :QUALIFIERS
   :SIGNATURE
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::T
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::MAKE-STANDARD-METHOD
   #Y(#:TOP-LEVEL-FORM-3-2 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-3-2-1
         #24Y(00 00 00 00 01 00 00 00 01 17 AE 6F 00 6F 01 AF 6F 02 6F 01 40 02
              19 03)
         CLOS::STD-METHOD-FUNCTION COMMON-LISP::DISASSEMBLE
         CLOS::STD-METHOD-INITFUNCTION)
      (COMMON-LISP::T))
   CLOS::STANDARD-METHOD
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::T
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   #Y(#:TOP-LEVEL-FORM-3-3 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-3-3-1
         #16Y(00 00 00 00 01 00 00 00 01 17 DA AF A0 9B 01 03)
         #Y(#:TOP-LEVEL-FORM-3-3-1-1
            #49Y(00 00 00 00 01 00 00 00 C0 1C 02 00 00 00 3D 02 3B 01 13 7D 01
                 93 02 11 AF AF DC B0 73 00 17 6E 03 03 2F 04 19 04 92 02 6F 92
                 01 6C AF 2F 05 19 04)
            :QUALIFIERS :SPECIALIZERS #.#'CLOS::FIND-CLASS CLOS::FIND-METHOD
            COMMON-LISP::DISASSEMBLE SYSTEM::DISASSEMBLE-CLOSURE))
      (COMMON-LISP::T))
   CLOS::STANDARD-GENERIC-FUNCTION
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::T
      :KEYS-P COMMON-LISP::T :KEYWORDS (:QUALIFIERS :SPECIALIZERS)
      :ALLOW-P COMMON-LISP::NIL)
   #Y(#:TOP-LEVEL-FORM-3-4 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-3-4-1
         #34Y(00 00 00 00 01 00 00 00 01 17 99 00 AF 88 01 08 AF 2F 04 14 A0 9B
              01 03 DC 63 B1 7B 03 DD 32 28 1B 71)
         COMMON-LISP::DISASSEMBLE EXT::SYMBOL-MACRO-EXPAND COMMON-LISP::LAMBDA
         COMMON-LISP::FUNCTION SYSTEM::ORIG-FUNDEF)
      (COMMON-LISP::T))
   COMMON-LISP::SYMBOL
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::T
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   #Y(#:TOP-LEVEL-FORM-3-5 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-3-5-1
         #43Y(00 00 00 00 01 00 00 00 01 17 99 00 AF 88 01 13 94 03 24 03 13 DD
              63 B1 61 03 14 DE 32 28 14 A0 9B 01 03 AF 2F 02 1B 76 A0 1B 6F)
         COMMON-LISP::DISASSEMBLE SYSTEM::FUNCTION-NAME-P SYSTEM::ORIG-FUNDEF
         COMMON-LISP::LAMBDA COMMON-LISP::FUNCTION)
      (COMMON-LISP::T))
   COMMON-LISP::CONS
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::T
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   #Y(#:TOP-LEVEL-FORM-3-6 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-3-6-1
         #19Y(00 00 00 00 01 00 00 00 01 17 AE DA 72 28 AE 30 01 19 03)
         COMMON-LISP::FUNCTION COMMON-LISP::DISASSEMBLE)
      (COMMON-LISP::T))
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::T
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   #Y(#:TOP-LEVEL-FORM-3-7 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-3-7-1
         #88Y(00 00 00 00 01 00 00 00 01 17 AE AC 88 00 2E AC 8F 08 3D AC 8E 07
              20 AC E3 72 29 AD E4 72 29 AE E5 72 29 AF E6 72 29 B0 E7 72 29 B1
              E8 72 29 B2 E9 72 29 2D 07 10 F8 AC 2F 11 15 19 03 2E 01 14 2E 02
              14 63 DD B0 6F 00 6E 03 04 2D 03 05 19 04 E0 E1 6F 08 AE 33 01
              1F)
         SYSTEM::CODE-ADDRESS-OF SYSTEM::PROGRAM-NAME SYSTEM::PROGRAM-ID
         #Y(#:TOP-LEVEL-FORM-3-7-1-1
            #26Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 06 B5 2D
                 08 01 9E 19 04)
            "0x" SYSTEM::DO-FORMAT-HEXADECIMAL)
         COMMON-LISP::FORMAT SYSTEM::DISASSEMBLE-MACHINE-CODE
         COMMON-LISP::ERROR "Cannot disassemble ~S" SYSTEM::TEXT 0. 1. 4. 5. 6.
         7. 8. SYSTEM::COMPILE-LAMBDA SYSTEM::DISASSEMBLE-CLOSURE)
      (COMMON-LISP::T))
   #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::T
      :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL
      :ALLOW-P COMMON-LISP::NIL)
   CLOS::DO-DEFGENERIC)
#Y(#:TOP-LEVEL-FORM-4
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DISASSEMBLE-MACHINE-CODE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE
      #246Y(03 00 01 00 03 00 00 00 00 04 AD 8E 05 07 63 DA AF 2D 03 01 F9 63
            DC B0 6E 03 01 63 DD B1 6E 03 01 AD DE 38 05 71 F7 53 80 83 AE DF
            30 01 AE E0 30 01 AE E1 B5 2D 03 01 B2 E2 71 30 38 01 8C 25 21 AE
            CF 14 B4 2D 03 01 AE E5 30 01 AE E6 30 01 93 02 03 14 2F 0D 3E 54
            05 00 00 00 1D 80 5A 1B 80 51 AE CE 1B 5D AC F1 38 05 71 F7 53 2D
            AE 01 02 38 01 71 76 93 00 11 F2 63 AE 33 02 16 AF 01 02 38 01 80
            76 00 92 00 6F 16 01 93 02 03 14 2F 0D 3E 54 05 00 00 00 1D 0E 1B
            06 05 00 00 00 1D 06 14 E8 64 2D 03 0D 55 16 01 1B 80 41 05 00 00
            00 1D 06 14 E8 64 2D 03 0D 55 16 01 63 E9 EA B0 B5 B1 B6 6E 07 01
            2F 11 AD 31 F5 EC 6F 13 EE 38 04 8C 34 FF 91 EF 6F 13 F0 38 04 8C
            34 FF 87 63 F3 F4 88 13 02 03 1B 14 AF 6E 04 01 2F 11 AC 31 F5 16
            02 3E 19 04)
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-1
         #17Y(00 00 00 00 02 00 00 00 01 18 AE B0 31 83 9E 19 04))
      COMMON-LISP::FORMAT
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-2
         #26Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 06 B5 2D 08
              01 9E 19 04)
         "/tmp/gdbcomm" SYSTEM::DO-FORMAT-DECIMAL)
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-3
         #26Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 06 B5 2D 08
              01 9E 19 04)
         "/tmp/gdbdis" SYSTEM::DO-FORMAT-DECIMAL)
      :OUTPUT
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-4
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "set height 100000
")
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-5
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "set width 1000
")
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-6
         #29Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 06 B5 2D 08
              01 AF 31 8A 9E 19 04)
         "attach " SYSTEM::DO-FORMAT-DECIMAL)
      0.
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-7
         #26Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 AF 31
              8A 9E 19 04)
         "disassemble ")
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-8
         #26Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 83 AF 31
              8A 9E 19 04)
         "x/10000i ")
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-9
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "detach
")
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-10
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "quit
")
      COMMON-LISP::CLOSE :ABORT
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-11
         #58Y(00 00 00 00 06 00 00 00 01 00 B2 B4 31 83 DA B4 38 02 31 88 B1 B4
              31 83 DB B4 31 87 B0 B4 31 83 DC B4 38 02 31 88 AF B4 31 83 DD B4
              38 02 31 88 B3 01 06 B5 2D 08 04 9E 19 08)
         " -n -batch -x " #\Space " < /dev/null | grep '^0' > "
         " ; kill -CONT " SYSTEM::DO-FORMAT-DECIMAL)
      "gdb" EXT::SHELL "TERM" EXT::GETENV "dumb" "TERM" "emacs" :INPUT
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-12
         #20Y(00 00 00 00 02 00 00 00 01 18 AE B0 31 83 AF 31 8A 9E 19 04))
      #Y(SYSTEM::DISASSEMBLE-MACHINE-CODE-13
         #25Y(00 00 00 00 03 00 00 00 01 19 AF B1 31 83 DA B1 31 87 AE B1 31 83
              9E 19 05)
         #\Space)
      "PAGER" "more"))
