#0Y UTF-8
(COMMON-LISP::LET COMMON-LISP::NIL
 (COMMON-LISP::LET
  ((#1=#:G692
    (COMMON-LISP::CONS 'COMMON-LISP-USER::NUEVO
     (COMMON-LISP::SVREF
      (COMMON-LISP::GET 'COMMON-LISP::STRUCTURE-OBJECT
       'SYSTEM::DEFSTRUCT-DESCRIPTION)
      0.))))
  (COMMON-LISP::DEFUN COMMON-LISP-USER::MAKE-NUEVO
   (COMMON-LISP::&KEY (#2=#:PADRE COMMON-LISP::NIL)
    (#3=#:TRZ COMMON-LISP::NIL))
   (COMMON-LISP::LET ((SYSTEM::OBJECT (SYSTEM::%MAKE-STRUCTURE #1# 3.)))
    (COMMON-LISP::SETF
     (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::NUEVO SYSTEM::OBJECT 1.)
     (COMMON-LISP::THE COMMON-LISP::T #2#))
    (COMMON-LISP::SETF
     (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::NUEVO SYSTEM::OBJECT 2.)
     (COMMON-LISP::THE COMMON-LISP::T #3#))
    SYSTEM::OBJECT))
  (SYSTEM::%PUT 'COMMON-LISP-USER::NUEVO 'SYSTEM::DEFSTRUCT-DESCRIPTION
   (COMMON-LISP::VECTOR #1# 'COMMON-LISP::T 'COMMON-LISP-USER::MAKE-NUEVO
    `(#(COMMON-LISP-USER::PADRE (:PADRE) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL
        COMMON-LISP::T COMMON-LISP::NIL #2#)
      #(COMMON-LISP-USER::TRZ (:TRZ) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL
        COMMON-LISP::T COMMON-LISP::NIL #3#)))))
 (CLOS::DEFINE-STRUCTURE-CLASS 'COMMON-LISP-USER::NUEVO)
 (COMMON-LISP::PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::NUEVO-P))
 (COMMON-LISP::DEFUN COMMON-LISP-USER::NUEVO-P (SYSTEM::OBJECT)
  (SYSTEM::%STRUCTURE-TYPE-P 'COMMON-LISP-USER::NUEVO SYSTEM::OBJECT))
 (COMMON-LISP::PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::COPY-NUEVO))
 (COMMON-LISP::DEFUN COMMON-LISP-USER::COPY-NUEVO (COMMON-LISP::STRUCTURE)
  (COMMON-LISP::COPY-STRUCTURE COMMON-LISP::STRUCTURE))
 (COMMON-LISP::PROCLAIM
  '(COMMON-LISP::FUNCTION COMMON-LISP-USER::NUEVO-PADRE
    (COMMON-LISP-USER::NUEVO) COMMON-LISP::T))
 (COMMON-LISP::PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::NUEVO-PADRE))
 (COMMON-LISP::DEFUN COMMON-LISP-USER::NUEVO-PADRE #4=(SYSTEM::OBJECT)
  (COMMON-LISP::THE COMMON-LISP::T
   (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::NUEVO SYSTEM::OBJECT 1.)))
 (SYSTEM::%PUT 'COMMON-LISP-USER::NUEVO-PADRE #5='SYSTEM::DEFSTRUCT-READER
  'COMMON-LISP-USER::NUEVO)
 (COMMON-LISP::PROCLAIM
  '(COMMON-LISP::FUNCTION COMMON-LISP-USER::NUEVO-TRZ (COMMON-LISP-USER::NUEVO)
    COMMON-LISP::T))
 (COMMON-LISP::PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::NUEVO-TRZ))
 (COMMON-LISP::DEFUN COMMON-LISP-USER::NUEVO-TRZ #4#
  (COMMON-LISP::THE COMMON-LISP::T
   (SYSTEM::%STRUCTURE-REF 'COMMON-LISP-USER::NUEVO SYSTEM::OBJECT 2.)))
 (SYSTEM::%PUT 'COMMON-LISP-USER::NUEVO-TRZ #5# 'COMMON-LISP-USER::NUEVO)
 (COMMON-LISP::DEFSETF COMMON-LISP-USER::NUEVO-PADRE #6=(SYSTEM::STRUCT)
  #7=(SYSTEM::VALUE)
  (COMMON-LISP::LIST #8='SYSTEM::%STRUCTURE-STORE ''COMMON-LISP-USER::NUEVO
   SYSTEM::STRUCT 1. SYSTEM::VALUE))
 (COMMON-LISP::EVAL-WHEN
  #9=(COMMON-LISP::COMPILE COMMON-LISP::EVAL COMMON-LISP::LOAD)
  (SYSTEM::%PUT 'COMMON-LISP-USER::NUEVO-PADRE #10='SYSTEM::DEFSTRUCT-WRITER
   'COMMON-LISP-USER::NUEVO))
 (COMMON-LISP::DEFSETF COMMON-LISP-USER::NUEVO-TRZ #6# #7#
  (COMMON-LISP::LIST #8# ''COMMON-LISP-USER::NUEVO SYSTEM::STRUCT 2.
   SYSTEM::VALUE))
 (COMMON-LISP::EVAL-WHEN #9#
  (SYSTEM::%PUT 'COMMON-LISP-USER::NUEVO-TRZ #10# 'COMMON-LISP-USER::NUEVO))
 (SYSTEM::%SET-DOCUMENTATION 'COMMON-LISP-USER::NUEVO 'COMMON-LISP::STRUCTURE
  COMMON-LISP::NIL)
 (CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD 'COMMON-LISP-USER::NUEVO)
 'COMMON-LISP-USER::NUEVO)
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::MAKE-NUEVO
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP::&KEY (#:PADRE COMMON-LISP::NIL) (#:TRZ COMMON-LISP::NIL))))
(SYSTEM::C-PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::NUEVO-P))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::NUEVO-P
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '#1=(SYSTEM::OBJECT))
 '(#1# (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))))
(SYSTEM::C-PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::COPY-NUEVO))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::COPY-NUEVO
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '#1=(COMMON-LISP::STRUCTURE))
 '(#1# (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))))
(SYSTEM::C-PROCLAIM
 '(COMMON-LISP::FUNCTION COMMON-LISP-USER::NUEVO-PADRE
   (COMMON-LISP-USER::NUEVO) COMMON-LISP::T))
(SYSTEM::C-PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::NUEVO-PADRE))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::NUEVO-PADRE
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '#1=(SYSTEM::OBJECT))
 '(#1# (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.)))))
(SYSTEM::C-PROCLAIM
 '(COMMON-LISP::FUNCTION COMMON-LISP-USER::NUEVO-TRZ (COMMON-LISP-USER::NUEVO)
   COMMON-LISP::T))
(SYSTEM::C-PROCLAIM '(COMMON-LISP::INLINE COMMON-LISP-USER::NUEVO-TRZ))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::NUEVO-TRZ
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '#1=(SYSTEM::OBJECT))
 '(#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.)))))
(COMMON-LISP::LET COMMON-LISP::NIL
 (COMMON-LISP::REMPROP 'COMMON-LISP-USER::NUEVO-PADRE
  'SYSTEM::DEFSTRUCT-WRITER)
 (SYSTEM::CHECK-REDEFINITION 'COMMON-LISP-USER::NUEVO-PADRE
  'COMMON-LISP::DEFSETF
  (COMMON-LISP::AND
   (COMMON-LISP::GET 'COMMON-LISP-USER::NUEVO-PADRE 'SYSTEM::SETF-EXPANDER)
   "SETF expander"))
 (SYSTEM::%PUT 'COMMON-LISP-USER::NUEVO-PADRE 'SYSTEM::SETF-EXPANDER
  (COMMON-LISP::LIST* -1. 1.
   (COMMON-LISP::FUNCTION COMMON-LISP-USER::SETF-NUEVO-PADRE
    (COMMON-LISP::LAMBDA (SYSTEM::%ACCESS-ARGLIST SYSTEM::VALUE)
     (COMMON-LISP::LET*
      ((SYSTEM::STRUCT (COMMON-LISP::CADR SYSTEM::%ACCESS-ARGLIST)))
      (COMMON-LISP::BLOCK COMMON-LISP-USER::NUEVO-PADRE
       (COMMON-LISP::LIST 'SYSTEM::%STRUCTURE-STORE ''COMMON-LISP-USER::NUEVO
        SYSTEM::STRUCT 1. SYSTEM::VALUE)))))))
 (SYSTEM::%SET-DOCUMENTATION 'COMMON-LISP-USER::NUEVO-PADRE 'COMMON-LISP::SETF
  COMMON-LISP::NIL)
 'COMMON-LISP-USER::NUEVO-PADRE)
(SYSTEM::%PUT 'COMMON-LISP-USER::NUEVO-PADRE 'SYSTEM::DEFSTRUCT-WRITER
 'COMMON-LISP-USER::NUEVO)
(COMMON-LISP::LET COMMON-LISP::NIL
 (COMMON-LISP::REMPROP 'COMMON-LISP-USER::NUEVO-TRZ 'SYSTEM::DEFSTRUCT-WRITER)
 (SYSTEM::CHECK-REDEFINITION 'COMMON-LISP-USER::NUEVO-TRZ 'COMMON-LISP::DEFSETF
  (COMMON-LISP::AND
   (COMMON-LISP::GET 'COMMON-LISP-USER::NUEVO-TRZ 'SYSTEM::SETF-EXPANDER)
   "SETF expander"))
 (SYSTEM::%PUT 'COMMON-LISP-USER::NUEVO-TRZ 'SYSTEM::SETF-EXPANDER
  (COMMON-LISP::LIST* -1. 1.
   (COMMON-LISP::FUNCTION COMMON-LISP-USER::SETF-NUEVO-TRZ
    (COMMON-LISP::LAMBDA (SYSTEM::%ACCESS-ARGLIST SYSTEM::VALUE)
     (COMMON-LISP::LET*
      ((SYSTEM::STRUCT (COMMON-LISP::CADR SYSTEM::%ACCESS-ARGLIST)))
      (COMMON-LISP::BLOCK COMMON-LISP-USER::NUEVO-TRZ
       (COMMON-LISP::LIST 'SYSTEM::%STRUCTURE-STORE ''COMMON-LISP-USER::NUEVO
        SYSTEM::STRUCT 2. SYSTEM::VALUE)))))))
 (SYSTEM::%SET-DOCUMENTATION 'COMMON-LISP-USER::NUEVO-TRZ 'COMMON-LISP::SETF
  COMMON-LISP::NIL)
 'COMMON-LISP-USER::NUEVO-TRZ)
(SYSTEM::%PUT 'COMMON-LISP-USER::NUEVO-TRZ 'SYSTEM::DEFSTRUCT-WRITER
 'COMMON-LISP-USER::NUEVO)
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::HACERARBOL
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::EINI COMMON-LISP-USER::EQESTADO)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ARBOLNND
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::ARBOL COMMON-LISP::&KEY COMMON-LISP-USER::ESTADO
    COMMON-LISP-USER::PADRE COMMON-LISP-USER::TRZ)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ARBOLPADRE
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::ARBOL COMMON-LISP-USER::E)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ARBOLPERTENECE
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::ARBOL COMMON-LISP-USER::E)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ARBOLRAIZ
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::ARBOL COMMON-LISP-USER::E)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ARBOLCAMINO
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::ARBOL COMMON-LISP-USER::E COMMON-LISP::&OPTIONAL
    COMMON-LISP-USER::L)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ABRE
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::ABIERTOS COMMON-LISP-USER::E)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ABIERTOP
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::ABIERTOS COMMON-LISP-USER::E)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ULTIMO
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::ABIERTOS)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::CIERRA
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::ABIERTOS COMMON-LISP-USER::E)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::VACIA
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::ABIERTOS)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::AMPLITUD
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::ESTADOINI COMMON-LISP::&KEY
    (COMMON-LISP-USER::FINALP #'COMMON-LISP-USER::FINALP)
    (COMMON-LISP-USER::HIJOS #'COMMON-LISP-USER::HIJOS)
    (COMMON-LISP-USER::EQESTADO COMMON-LISP::NIL)
    (COMMON-LISP-USER::TRAZA COMMON-LISP::NIL))))