(SYSTEM::VERSION '(20040222.))
#0Y UTF-8
#Y(#:|(DEFSTRUCT NUEVO (PADRE NIL) ...)-1|
   #235Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 84 C8 5F 5D
         0B 00 00 DE 2F 05 DE AD 6D 06 01 32 82 DA DC 68 02 00 64 DE E1 73 04
         00 32 88 16 01 DA 2F 08 E3 31 5A E4 2F 05 E4 E5 E6 32 88 E4 E7 32 82
         E8 31 5A E9 2F 05 E9 E5 EA 32 88 E9 EB 32 82 EC 31 5A ED 31 5A EE 2F
         05 EE E5 EF 32 88 EE F0 32 82 EE F1 DA 32 88 F2 31 5A F3 31 5A F4 2F
         05 F4 E5 F5 32 88 F4 F6 32 82 F4 F1 DA 32 88 EE F7 32 89 EE 65 1E EE
         65 1F 38 01 8F 84 02 03 20 14 2D 03 21 EE 65 1F 65 22 65 23 03 24 7C
         02 32 88 EE 65 25 63 2D 03 26 EE F7 DA 32 88 F4 F7 32 89 F4 65 1E F4
         65 1F 38 01 8F 84 02 03 20 14 2D 03 21 F4 65 1F 65 22 65 23 03 27 7C
         02 32 88 F4 65 25 63 2D 03 26 F4 F7 DA 32 88 DA 65 28 63 2D 03 26 DA
         2F 29 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::NUEVO
   COMMON-LISP::STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   COMMON-LISP-USER::MAKE-NUEVO SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::MAKE-NUEVO
      #39Y(00 00 00 00 00 00 00 00 80 1B 02 00 01 00 3D 02 3D 01 69 00 01 DD 72
           30 DE AD DF B2 32 2F DE AD E0 B1 32 2F 15 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP::NIL :PADRE
      :TRZ 3. COMMON-LISP-USER::NUEVO 1. 2.)
   (#(COMMON-LISP-USER::PADRE (:PADRE) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL #:PADRE)
    #(COMMON-LISP-USER::TRZ (:TRZ) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL #:TRZ))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE COMMON-LISP-USER::NUEVO-P)
   COMMON-LISP-USER::NUEVO-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN COMMON-LISP-USER::NUEVO-P))
    (COMMON-LISP::BLOCK COMMON-LISP-USER::NUEVO-P
     (SYSTEM::%STRUCTURE-TYPE-P 'COMMON-LISP-USER::NUEVO SYSTEM::OBJECT)))
   #Y(COMMON-LISP-USER::NUEVO-P
      #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 32 19 02)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)
      COMMON-LISP-USER::NUEVO)
   (COMMON-LISP::INLINE COMMON-LISP-USER::COPY-NUEVO)
   COMMON-LISP-USER::COPY-NUEVO
   ((COMMON-LISP::STRUCTURE)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN COMMON-LISP-USER::COPY-NUEVO))
    (COMMON-LISP::BLOCK COMMON-LISP-USER::COPY-NUEVO
     (COMMON-LISP::COPY-STRUCTURE COMMON-LISP::STRUCTURE)))
   #Y(COMMON-LISP-USER::COPY-NUEVO
      #15Y(00 00 00 00 01 00 00 00 00 02 AD 32 31 19 02)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL))
   (COMMON-LISP::FUNCTION COMMON-LISP-USER::NUEVO-PADRE
    (COMMON-LISP-USER::NUEVO) COMMON-LISP::T)
   (COMMON-LISP::INLINE COMMON-LISP-USER::NUEVO-PADRE)
   COMMON-LISP-USER::NUEVO-PADRE
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN COMMON-LISP-USER::NUEVO-PADRE))
    (COMMON-LISP::BLOCK COMMON-LISP-USER::NUEVO-PADRE
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::NUEVO SYSTEM::OBJECT 1.))))
   #Y(COMMON-LISP-USER::NUEVO-PADRE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2E 19 02)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)
      COMMON-LISP-USER::NUEVO 1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION COMMON-LISP-USER::NUEVO-TRZ (COMMON-LISP-USER::NUEVO)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE COMMON-LISP-USER::NUEVO-TRZ)
   COMMON-LISP-USER::NUEVO-TRZ
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN COMMON-LISP-USER::NUEVO-TRZ))
    (COMMON-LISP::BLOCK COMMON-LISP-USER::NUEVO-TRZ
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::NUEVO SYSTEM::OBJECT 2.))))
   #Y(COMMON-LISP-USER::NUEVO-TRZ
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2E 19 02)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)
      COMMON-LISP-USER::NUEVO 2.)
   SYSTEM::DEFSTRUCT-WRITER COMMON-LISP::DEFSETF SYSTEM::SETF-EXPANDER
   "SETF expander" SYSTEM::CHECK-REDEFINITION -1. 1.
   #Y(COMMON-LISP-USER::SETF-NUEVO-PADRE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP-USER::NUEVO 1.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(COMMON-LISP-USER::SETF-NUEVO-TRZ
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)
      SYSTEM::%STRUCTURE-STORE 'COMMON-LISP-USER::NUEVO 2.)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:|(DEFUN HACERARBOL (EINI EQESTADO) ...)-2|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::HACERARBOL
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::HACERARBOL
      #33Y(00 00 00 00 02 00 00 00 00 03 38 06 A4 FB 71 62 DA DB DC DD 6E 04 04
           B0 AE AE 31 64 16 01 15 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) :PADRE :MACETA :TRZ :|0|
      COMMON-LISP-USER::MAKE-NUEVO))
#Y(#:|(DEFUN ARBOLNND (ARBOL &KEY ESTADO ...) ...)-3|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ARBOLNND
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ARBOLNND
      #37Y(00 00 00 00 01 00 00 00 80 1C 03 00 00 00 3D 03 3D 02 3D 01 DB AF DC
           B0 6E 04 03 B0 B2 AE 31 64 16 01 3E 19 05)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) :ESTADO :PADRE :TRZ
      COMMON-LISP-USER::MAKE-NUEVO))
#Y(#:|(DEFUN ARBOLPADRE (ARBOL E) ...)-4|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ARBOLPADRE
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ARBOLPADRE
      #23Y(00 00 00 00 02 00 00 00 00 03 AD AF 38 01 71 63 DA AD DB 32 2E 19
           04)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)
      COMMON-LISP-USER::NUEVO 1.))
#Y(#:|(DEFUN ARBOLPERTENECE (ARBOL E) ...)-5|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
   COMMON-LISP-USER::ARBOLPERTENECE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ARBOLPERTENECE
      #18Y(00 00 00 00 02 00 00 00 00 03 AD AF 38 01 31 63 19 03)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)))
#Y(#:|(DEFUN ARBOLRAIZ (ARBOL E) ...)-6|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ARBOLRAIZ
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ARBOLRAIZ
      #26Y(00 00 00 00 02 00 00 00 00 03 AD AF 38 01 71 63 DA AD DB 81 2E 00 C7
           5A 19 03)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)
      COMMON-LISP-USER::NUEVO 1. :MACETA))
#Y(#:|(DEFUN ARBOLCAMINO (ARBOL E &OPTIONAL ...) ...)-7|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ARBOLCAMINO
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ARBOLCAMINO
      #56Y(00 00 00 00 02 00 01 00 00 09 3D 01 AF AF 8A 00 17 AF B0 B0 70 03 B0
           B2 38 01 71 63 DB AD DC 81 2E 00 A1 7A 29 03 07 62 AE B0 38 01 71 63
           DB AD DC 81 2E 00 9F 5D 19 04)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      COMMON-LISP-USER::ARBOLRAIZ COMMON-LISP-USER::NUEVO 2.
      COMMON-LISP-USER::ARBOLPADRE))
#Y(#:|(DEFUN ABRE (ABIERTOS E) ...)-8|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ABRE
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ABRE #15Y(00 00 00 00 02 00 00 00 00 03 AD A0 5D 19 03)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)))
#Y(#:|(DEFUN ABIERTOP (ABIERTOS E) ...)-9|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ABIERTOP
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ABIERTOP
      #19Y(00 00 00 00 02 00 00 00 00 03 AD AF DA 38 02 31 B4 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) #.#'COMMON-LISP::EQUALP))
#Y(#:|(DEFUN ULTIMO (ABIERTOS) ...)-10|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ULTIMO
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ULTIMO
      #18Y(00 00 00 00 01 00 00 00 00 02 AD 38 01 31 9C 5B 19 02)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)))
#Y(#:|(DEFUN CIERRA (ABIERTOS E) ...)-11|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::CIERRA
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::CIERRA
      #20Y(00 00 00 00 02 00 00 00 00 03 AD AF 38 07 C5 FA 32 4E 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) #.#'COMMON-LISP::EQUALP))
#Y(#:|(DEFUN VACIA (ABIERTOS) ...)-12|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::VACIA
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::VACIA #14Y(00 00 00 00 01 00 00 00 00 02 9E 59 19 02)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)))
#Y(#:|(DEFUN AMPLITUD (ESTADOINI &KEY # ...) ...)-13|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::AMPLITUD
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::AMPLITUD
      #124Y(00 00 00 00 01 00 00 00 80 1C 04 00 00 00 3B 04 03 9A 04 04 3B 03
            03 9A 05 03 3D 02 3D 01 B1 AF 70 06 63 B3 70 07 AC 6F 08 1B 80 48
            AE AD 30 0B 19 09 93 04 04 14 AD 36 01 AD AD 30 0A F9 B3 AD 36 01
            1C 68 B2 AD 36 01 42 02 AD 63 1B 1C 87 01 00 B2 AD 8A 0C 10 B1 AD
            30 07 FD B2 E7 AE E8 94 06 E9 B6 2D 07 10 83 02 83 01 AD 8D 92 60
            16 04 AD 2F 08 F8 AD 89 09 FF B9 00 19 09)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) :FINALP :HIJOS :EQESTADO
      :TRAZA COMMON-LISP-USER::FINALP COMMON-LISP-USER::HIJOS
      COMMON-LISP-USER::HACERARBOL COMMON-LISP-USER::ABRE
      COMMON-LISP-USER::ULTIMO COMMON-LISP-USER::VACIA COMMON-LISP-USER::CIERRA
      COMMON-LISP-USER::ARBOLCAMINO COMMON-LISP-USER::ARBOLPERTENECE :ESTADO
      :TRZ :PADRE COMMON-LISP-USER::ARBOLNND))