(SYSTEM::VERSION '(20040222.))
#0Y UTF-8
#Y(#:|(LOAD "eac.fas")-1| #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "eac.fas" COMMON-LISP::LOAD)
#Y(#:|(LOAD "algamp.fas")-2| #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "algamp.fas"
   COMMON-LISP::LOAD)
#Y(#:|(SETQ INICIAL '(# # NIL ...))-3|
   #15Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 19 01)
   (COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::T)
   ((COMMON-LISP-USER::TRAJE) (COMMON-LISP-USER::J) COMMON-LISP::NIL
    (COMMON-LISP-USER::ARMARIO COMMON-LISP-USER::CUCHILLO)
    (COMMON-LISP-USER::CRUCIFIJO COMMON-LISP-USER::PALANCA) COMMON-LISP::NIL
    COMMON-LISP::NIL COMMON-LISP::NIL (COMMON-LISP-USER::BARRIL)
    COMMON-LISP::NIL (COMMON-LISP-USER::ATAUD) COMMON-LISP::NIL
    COMMON-LISP::NIL COMMON-LISP::NIL
    (COMMON-LISP-USER::AJOS COMMON-LISP-USER::MARTILLO COMMON-LISP-USER::LLAVE
     COMMON-LISP-USER::TROZO COMMON-LISP-USER::ARMARIOAB)
    COMMON-LISP::NIL COMMON-LISP::NIL)
   COMMON-LISP-USER::INICIAL)
#Y(#:|(SETQ FINAL '(* * * ...))-4|
   #15Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 19 01)
   (COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::T)
   (COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::*
    COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::*
    (COMMON-LISP-USER::ATAUD COMMON-LISP-USER::J COMMON-LISP-USER::VAMPIROM)
    COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::*
    COMMON-LISP::*)
   COMMON-LISP-USER::FINAL)
#Y(#:|(SETQ FINAL2 '(* * * ...))-5|
   #15Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 19 01)
   (COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::T)
   (COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::*
    COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::*
    COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::*
    COMMON-LISP::* (COMMON-LISP-USER::FIN))
   COMMON-LISP-USER::FINAL2)
#Y(#:|(SETQ A '(# # # ...))-6|
   #15Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 19 01)
   (COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::T)
   (((COMMON-LISP-USER::J 1.) "n" (COMMON-LISP-USER::J 2. ("Vas al norte.")))
    ((COMMON-LISP-USER::J 2.) "n" (COMMON-LISP-USER::J 5. ("Vas al norte.")))
    ((COMMON-LISP-USER::J 2.) "s" (COMMON-LISP-USER::J 1. ("Vas al sur.")))
    ((COMMON-LISP-USER::J 2.) "e" (COMMON-LISP-USER::J 4. ("Vas al este.")))
    ((COMMON-LISP-USER::J 2.) "o" (COMMON-LISP-USER::J 3. ("Vas al oeste.")))
    ((COMMON-LISP-USER::J 3.) "e" (COMMON-LISP-USER::J 2. ("Vas al este.")))
    ((COMMON-LISP-USER::J 4.) "o" (COMMON-LISP-USER::J 2. ("Vas al oeste.")))
    ((COMMON-LISP-USER::J 5.) "s" (COMMON-LISP-USER::J 2. ("Vas al sur.")))
    ((COMMON-LISP-USER::J 5.) "e" (COMMON-LISP-USER::J 7. ("Vas al este.")))
    ((COMMON-LISP-USER::J 5.) "o" (COMMON-LISP-USER::J 6. ("Vas al oeste.")))
    ((COMMON-LISP-USER::J 5.) "subir"
     (COMMON-LISP-USER::J 9. ("Subes las escaleras.")))
    ((COMMON-LISP-USER::J 5.) "bajar"
     (COMMON-LISP-USER::J 8. ("Bajas las escaleras.")))
    ((COMMON-LISP-USER::J 6.) "e" (COMMON-LISP-USER::J 5. ("Vas al este.")))
    ((COMMON-LISP-USER::J 7.) "o" (COMMON-LISP-USER::J 5. ("Vas al oeste.")))
    ((COMMON-LISP-USER::J 8.) "subir"
     (COMMON-LISP-USER::J 5. ("Subes de nuevo al pasillo.")))
    ((COMMON-LISP-USER::J 9.) "bajar"
     (COMMON-LISP-USER::J 5. ("Bajas de nuevo al pasillo.")))
    ((COMMON-LISP-USER::J 9.) "o" (COMMON-LISP-USER::J 10. ("Vas al oeste.")))
    ((COMMON-LISP-USER::J 10.) "e" (COMMON-LISP-USER::J 9. ("Vas al este.")))
    (COMMON-LISP::NIL "n" (("No puedes ir por ahí.")))
    (COMMON-LISP::NIL "s" (("No puedes ir por ahí.")))
    (COMMON-LISP::NIL "e" (("No puedes ir por ahí.")))
    (COMMON-LISP::NIL "o" (("No puedes ir por ahí.")))
    (COMMON-LISP::NIL "subir" (("No puedes ir por ahí.")))
    (COMMON-LISP::NIL "bajar" (("No puedes ir por ahí.")))
    (COMMON-LISP::NIL "xte" (("Tan buen aspecto como siempre.")))
    (COMMON-LISP::NIL "xyzzy" (("Viejos recuerdos acuden a tu mente...")))
    (COMMON-LISP::NIL "i" (("Tienes: " 0.)))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::CUCHILLO) "ex cuchillo"
     (("Un simple cuchillo de cocina. Pincha.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::CRUCIFIJO) "ex crucifijo"
     (("Es un pequeño crucifijo plateado. Es uno de los cuatro elementos que nos"
       "servirán para derrotar al vampiro.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::PALANCA) "ex palanca"
     (("Es una palanca de acero toledano. Sirve para forzar cosas.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::TROZO) "ex trozo"
     (("Un trozo de madera, rectangular y alargado.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::LLAVE) "ex llave"
     (("Esta pequeña llavecita tiene la pinta de abrir un armario o algo así.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::AJOS) "ex ajos"
     (("Es una ristra entera de ajos que expelen un olor un tanto asqueroso. Es uno de"
       "los cuatro elementos que me servirán para derrotar al vampiro.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::MARTILLO) "ex martillo"
     (("Un martillo grande. Es uno de los elementos que me permitirán acabar con el"
       "vampiro.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::ESTACA) "ex estaca"
     (("Un cacho de madera rectangular y alargado, uno de sus extremos está afilado"
       "cuidadosamente.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::TRAJE) "ex traje"
     (("Es un traje barato comprado en las rebajas.")))
    ((COMMON-LISP-USER::CUCHILLO 0.) "ex cuchillo"
     (("Un simple cuchillo de cocina. Pincha.")))
    ((COMMON-LISP-USER::CRUCIFIJO 0.) "ex crucifijo"
     (("Es un pequeño crucifijo plateado. Es uno de los cuatro elementos que nos"
       "servirán para derrotar al vampiro.")))
    ((COMMON-LISP-USER::PALANCA 0.) "ex palanca"
     (("Es una palanca de acero toledano. Sirve para forzar cosas.")))
    ((COMMON-LISP-USER::TROZO 0.) "ex trozo"
     (("Un trozo de madera, rectangular y alargado.")))
    ((COMMON-LISP-USER::LLAVE 0.) "ex llave"
     (("Esta pequeña llavecita tiene la pinta de abrir un armario o algo así.")))
    ((COMMON-LISP-USER::AJOS 0.) "ex ajos"
     (("Es una ristra entera de ajos que expelen un olor un tanto asqueroso. Es uno de"
       "los cuatro elementos que me servirán para derrotar al vampiro.")))
    ((COMMON-LISP-USER::MARTILLO 0.) "ex martillo"
     (("Un martillo grande. Es uno de los elementos que me permitirán acabar con el"
       "vampiro.")))
    ((COMMON-LISP-USER::ESTACA 0.) "ex estaca"
     (("Un cacho de madera rectangular y alargado, uno de sus extremos está afilado"
       "cuidadosamente.")))
    ((COMMON-LISP-USER::TRAJE 0.) "ex traje"
     (("Es un traje barato comprado en las rebajas.")))
    (COMMON-LISP::NIL "ex suelo" (("El suelo es de piedras y está muy frío.")))
    (COMMON-LISP::NIL "ex techo" (("El techo es muy alto y es de piedras.")))
    ((COMMON-LISP-USER::J 1.) "m"
     (("Estás en el vestíbulo del castillo. El ambiente es muy húmedo y frío. Estás en"
       "un pasillo que se extiende hacia el norte. Al sur queda la puerta de entrada al"
       "castillo." 1.)))
    (COMMON-LISP::NIL "ex suelo" (("El suelo es de piedras y está muy frío.")))
    ((COMMON-LISP-USER::J 1.) "ex pasillo"
     (("Es el pasillo principal, se extiende hacia el norte.")))
    ((COMMON-LISP-USER::J 1.) "ex puerta"
     (("Es muy grande y está cerrada. No la vas a poder abrir.")))
    ((COMMON-LISP-USER::J 1.) "abrir puerta"
     (("Te he dicho que no la puedes abrir, ¡Melón!")))
    ((COMMON-LISP-USER::J 2.) "m"
     (("Te encuentras en medio del pasillo principal de este piso. Al oeste está la"
       "cocina y al este la biblioteca. El pasillo sigue hacia el norte." 2.)))
    ((COMMON-LISP-USER::J 3.) "m"
     (("Estás en la cocina del castillo. Esto está lleno de cacerolas y de cacharros"
       "para cocinar. Hay un horno, un fregadero y un armario pequeño." 3.)))
    ((COMMON-LISP-USER::J 3.) "ex cacerola"
     (("Simples cacerolaqs y cacharros de cocina.")))
    ((COMMON-LISP-USER::J 3.) "ex horno"
     (("Un simple horno, no tiene ninguna importancia.")))
    ((COMMON-LISP-USER::J 3.) "ex fregadero"
     (("Es un fregadero de piedra." "Tiene: " 11.)))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIO 3.
      COMMON-LISP-USER::ARMARIOAB 14.)
     "ex armario" (("Está cerrado con llave.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 15.) "abrir armario"
     (COMMON-LISP-USER::ARMARIOAB 3. COMMON-LISP-USER::ARMARIO 15.
      ("Abres el armario.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.) "cerrar armario"
     (COMMON-LISP-USER::ARMARIOAB 15. COMMON-LISP-USER::ARMARIO 3.
      ("Cierras el armario.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIO 3.) "abrir armario"
     (("Está cerrado con llave.")))
    ((COMMON-LISP-USER::J 4.) "m"
     (("Te hallas en la biblioteca del castillo. Obviamente está llena de libros"
       "pero desgraciadamente no tienes tiempo para leerlos." 4.)))
    ((COMMON-LISP-USER::J 4.) "ex libros"
     (("Montones de libros, pero no tengo tiempo para leer ahora.")))
    ((COMMON-LISP-USER::J 4.) "coger libros"
     (("No quiero cargar con los libros, no hay tiempo para leerlos.")))
    ((COMMON-LISP-USER::J 5.) "m"
     (("Te hallas en el final del pasillo. Delante de tí ves unas escaleras que suben"
       "y otras que bajan. Al oeste está el dormitorio y al este la sala de estar."
       5.)))
    ((COMMON-LISP-USER::J 5.) "ex escaleras"
     (("Unas polvorientas escaleras. Unas suben y otras bajan.")))
    ((COMMON-LISP-USER::J 6.) "m"
     (("Estás en un dormitorio no muy grande ni tampoco muy pequeño. Es bastanate"
       "austero. Sólo hay una cama y un armario." 6.)))
    ((COMMON-LISP-USER::J 6.) "ex cama" (("Está cubierta de sábanas.")))
    ((COMMON-LISP-USER::J 6.) "abrir armario" (("Está cerrado con llave.")))
    ((COMMON-LISP-USER::J 6.) "abrir armario con llave" (("No encaja.")))
    ((COMMON-LISP-USER::J 6.) "ex armario"
     (("Tiene unas letras marcadas con un cuchillo.")))
    ((COMMON-LISP-USER::J 6.) "ex letras" (("XYZZY")))
    ((COMMON-LISP-USER::J 7.) "m"
     (("Es la sala más acogedora de todo el castillo. En la chimenea los últimos"
       "restos de algún fuego chisporrotean alegremente. Hay una mesa grande con"
       "una silla al lado. De la pared cuelgan bastantes trofeos de caza y"
       "adornos varios" 7.)))
    ((COMMON-LISP-USER::J 7.) "ex chimenea"
     (("Es una chimena hecha de ladrillos y muy elegante.")))
    ((COMMON-LISP-USER::J 7.) "ex trofeos" (("Insignificantes trofeos.")))
    ((COMMON-LISP-USER::J 7.) "ex adornos" (("Adornan.")))
    ((COMMON-LISP-USER::J 7.) "ex silla" (("Una cómoda silla.")))
    ((COMMON-LISP-USER::J 7.) "ex mesa"
     (("Una mesa de caoba, bastante grande.")))
    ((COMMON-LISP-USER::J 8.) "m"
     (("En este pequeño sótano hace mucho calor, sientes una sensación de"
       "recogimiento. Está todo muy sucio. Hay un barril aquí, también hay unas"
       "escaleras que suben." 8.)))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::BARRIL) "ex barril"
     (("Está cerrado.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::BARRIL) "abrir barril"
     (("Necesitas algo para abrirlo.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::BARRILAB) "cerrar barril"
     (("No quieres.")))
    ((COMMON-LISP-USER::J 8.) "ex letras"
     (("Pone: ^No tengo ganas de implementar este recipiente¡!^")))
    ((COMMON-LISP-USER::J 9.) "m"
     (("Estás en el piso superior del castillo. Aquí hace aún más frío que abajo."
       "Detrás de tí están las escaleras que bajan y hacia el oeste está la"
       "habitación del vampiro." 9.)))
    ((COMMON-LISP-USER::J 9.) "ex escaleras" (("Conducen al piso inferior.")))
    ((COMMON-LISP-USER::J 10.) "m"
     (("Estás en una habitación desnuda. Únicamente hay un altar en el centro. Encima"
       "del altar puedes ver un ataúd." 10.)))
    ((COMMON-LISP-USER::J 10.) "ex altar"
     (("Es un altar de dura piedra. Encima de éste está el ataúd.")))
    ((COMMON-LISP-USER::J 10.) "ex ataúd" (("Una sencilla caja de pino.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::CUCHILLO) "coger cuchillo"
     (COMMON-LISP-USER::CUCHILLO 0. ("Coges el cuchillo.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::CRUCIFIJO) "coger crucifijo"
     (COMMON-LISP-USER::CRUCIFIJO 0. ("Coges el crucifijo.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::PALANCA) "coger palanca"
     (COMMON-LISP-USER::PALANCA 0. ("Coges la palanca.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::TRAJE) "coger traje"
     (COMMON-LISP-USER::TRAJE 0. ("Coges el traje.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::TROZO) "coger trozo"
     (COMMON-LISP-USER::TROZO 0. ("Coges el trozo de madera.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::LLAVE) "coger llave"
     (COMMON-LISP-USER::LLAVE 0. ("Coges la llave.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::AJOS) "coger ajos"
     (COMMON-LISP-USER::AJOS 0. ("Coges la ristra de ajos.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::MARTILLO) "coger martillo"
     (COMMON-LISP-USER::MARTILLO 0. ("Coges el martillo.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::ESTACA) "coger estaca"
     (COMMON-LISP-USER::AJOS 0. ("Coges la estaca.")))
    ((COMMON-LISP-USER::CUCHILLO 0.) "dejar cuchillo"
     (COMMON-LISP-USER::CUCHILLO COMMON-LISP-USER::J ("Dejas el cuchillo.")))
    ((COMMON-LISP-USER::CRUCIFIJO 0.) "dejar crucifijo"
     (COMMON-LISP-USER::CRUCIFIJO COMMON-LISP-USER::J ("Dejas el crucifijo.")))
    ((COMMON-LISP-USER::PALANCA 0.) "dejar palanca"
     (COMMON-LISP-USER::PALANCA COMMON-LISP-USER::J ("Dejas la palanca.")))
    ((COMMON-LISP-USER::TRAJE 0.) "dejar traje"
     (COMMON-LISP-USER::TRAJE COMMON-LISP-USER::J ("Dejas el traje.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::TROZO) "dejar trozo"
     (COMMON-LISP-USER::TROZO COMMON-LISP-USER::J
      ("Dejas el trozo de madera.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::LLAVE) "dejar llave"
     (COMMON-LISP-USER::LLAVE COMMON-LISP-USER::J ("Dejas la llave.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::AJOS) "dejar ajos"
     (COMMON-LISP-USER::AJOS COMMON-LISP-USER::J ("Dejas la ristra de ajos.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::MARTILLO) "dejar martillo"
     (COMMON-LISP-USER::MARTILLO COMMON-LISP-USER::J ("Dejas el martillo.")))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::ESTACA) "dejar estaca"
     (COMMON-LISP-USER::MARTILLO COMMON-LISP-USER::J ("Dejas la estaca.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::CUCHILLO 0.)
     "meter cuchillo en fregadero"
     (COMMON-LISP-USER::CUCHILLO 11.
      ("Metes el cuchillo dentro del fregadero.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::CRUCIFIJO 0.)
     "meter crucifijo en fregadero"
     (COMMON-LISP-USER::CRUCIFIJO 11.
      ("Metes el crucifijo dentro del fregadero.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::PALANCA 0.)
     "meter palanca en fregadero"
     (COMMON-LISP-USER::PALANCA 11.
      ("Metes la palanca dentro del fregadero.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::TROZO 0.)
     "meter trozo en fregadero"
     (COMMON-LISP-USER::TROZO 11.
      ("Metes el trozo de madera dentro del fregadero.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::LLAVE 0.)
     "meter llave en fregadero"
     (COMMON-LISP-USER::LLAVE 11. ("Metes la llave dentro del fregadero.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::AJOS 0.)
     "meter ajos en fregadero"
     (COMMON-LISP-USER::AJOS 11.
      ("Metes la ristra de ajos dentro del fregadero.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::MARTILLO 0.)
     "meter martillo en fregadero"
     (COMMON-LISP-USER::MARTILLO 11.
      ("Metes la ristra de ajos dentro del fregadero.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ESTACA 0.)
     "meter estaca en fregadero"
     (COMMON-LISP-USER::ESTACA 11. ("Metes la estaca dentro del fregadero.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::CUCHILLO 11.)
     "sacar cuchillo de fregadero"
     (COMMON-LISP-USER::CUCHILLO 0. ("Coges el cuchillo.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::CRUCIFIJO 11.)
     "sacar crucifijo de fregadero"
     (COMMON-LISP-USER::CRUCIFIJO 0. ("Coges el crucifijo plateado.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::PALANCA 11.)
     "sacar palanca de fregadero"
     (COMMON-LISP-USER::PALANCA 0. ("Coges la palanca.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::TROZO 11.)
     "sacar trozo de fregadero"
     (COMMON-LISP-USER::TROZO 0. ("Coges el trozo de madera.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::LLAVE 11.)
     "sacar llave de fregadero"
     (COMMON-LISP-USER::LLAVE 0. ("Coges la llave.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::AJOS 11.)
     "sacar ajos de fregadero"
     (COMMON-LISP-USER::AJOS 0. ("Coges la ristra de ajos.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::MARTILLO 11.)
     "sacar ajos de fregadero"
     (COMMON-LISP-USER::MARTILLO 0. ("Coges la ristra de ajos.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ESTACA 11.)
     "sacar estaca de fregadero"
     (COMMON-LISP-USER::ESTACA 0. ("Coges la estaca.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::CUCHILLO 0.)
     "meter cuchillo en armario"
     (COMMON-LISP-USER::CUCHILLO 12.
      ("Metes el cuchillo dentro del armario.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::CRUCIFIJO 0.)
     "meter crucifijo en armario"
     (COMMON-LISP-USER::CRUCIFIJO 12.
      ("Metes el crucifijo dentro del armario.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::PALANCA 0.)
     "meter palanca en armario"
     (COMMON-LISP-USER::PALANCA 12. ("Metes la palanca dentro del armario.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::TROZO 0.)
     "meter trozo en armario"
     (COMMON-LISP-USER::TROZO 12.
      ("Metes el trozo de madera dentro del armario.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::LLAVE 0.)
     "meter llave en armario"
     (COMMON-LISP-USER::LLAVE 12. ("Metes la llave dentro del armario.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::AJOS 0.)
     "meter ajos en armario"
     (COMMON-LISP-USER::AJOS 12.
      ("Metes la ristra de ajos dentro del armario.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::MARTILLO 0.)
     "meter martillo en armario"
     (COMMON-LISP-USER::MARTILLO 12.
      ("Metes la ristra de ajos dentro del armario.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::ESTACA 0.)
     "meter estaca en armario"
     (COMMON-LISP-USER::ESTACA 12. ("Metes la estaca dentro del armario.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::CUCHILLO 12.)
     "sacar cuchillo de armario"
     (COMMON-LISP-USER::CUCHILLO 0. ("Coges el cuchillo.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::CRUCIFIJO 12.)
     "sacar crucifijo de armario"
     (COMMON-LISP-USER::CRUCIFIJO 0. ("Coges el crucifijo plateado.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::PALANCA 12.)
     "sacar palanca de armario"
     (COMMON-LISP-USER::PALANCA 0. ("Coges la palanca.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::TROZO 12.)
     "sacar trozo de armario"
     (COMMON-LISP-USER::TROZO 0. ("Coges el trozo de madera.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::LLAVE 12.)
     "sacar llave de armario" (COMMON-LISP-USER::LLAVE 0. ("Coges la llave.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::AJOS 12.)
     "sacar ajos de armario"
     (COMMON-LISP-USER::AJOS 0. ("Coges la ristra de ajos.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::MARTILLO 12.)
     "sacar ajos de armario"
     (COMMON-LISP-USER::MARTILLO 0. ("Coges la ristra de ajos.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::ESTACA 12.)
     "sacar estaca de armario"
     (COMMON-LISP-USER::ESTACA 0. ("Coges la estaca.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::AJOS 14.)
     "ex armario"
     (COMMON-LISP-USER::AJOS 3.
      ("Al examinarlo se te cae al suelo una ristra de ajos que estaba en su interior.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.) "ex armario"
     (("Tiene:" 12.)))
    ((COMMON-LISP-USER::J 6. COMMON-LISP-USER::LLAVE 14.) "ex sabanas"
     (COMMON-LISP-USER::LLAVE 6.
      ("Entre ellas encuentras una pequeña llavecita.")))
    ((COMMON-LISP-USER::J 6.) "ex sabanas"
     (("Sábanas corrientes y molientes.")))
    ((COMMON-LISP-USER::J 7. COMMON-LISP-USER::TROZO 14.) "ex fuego"
     (COMMON-LISP-USER::TROZO 7.
      ("Entre los restos del fuego encuentras un trozo de madera.")))
    ((COMMON-LISP-USER::J 7.) "ex fuego"
     (("Son los restos de algún fuego reciente.")))
    ((COMMON-LISP-USER::J 8. COMMON-LISP-USER::BARRILAB 8.
      COMMON-LISP-USER::MARTILLO 14.)
     "ex barril"
     (COMMON-LISP-USER::MARTILLO 8. ("En el barril ves un martillo.")))
    ((COMMON-LISP-USER::J 8. COMMON-LISP-USER::BARRILAB 8.) "ex barril"
     (("Ves unas letras escritas con pintura roja sobre el barril.")))
    ((COMMON-LISP-USER::CUCHILLO 0. COMMON-LISP-USER::TROZO 0.)
     "afilar trozo con cuchillo"
     (COMMON-LISP-USER::ESTACA 0. COMMON-LISP-USER::TROZO 15.
      ("Afilas la madera con el cuchillo ¡y obtienes una estaca!")))
    ((COMMON-LISP-USER::J 8. COMMON-LISP-USER::BARRIL 8.
      COMMON-LISP-USER::PALANCA 0.)
     "abrir barril con palanca"
     (COMMON-LISP-USER::BARRIL 14. COMMON-LISP-USER::BARRILAB 8.
      ("-¡Clack!- Haciendo palanca logras abrir el barril.")))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIO 3.
      COMMON-LISP-USER::LLAVE 0.)
     "abrir armario con llave"
     (COMMON-LISP-USER::ARMARIOAB 3. COMMON-LISP-USER::ARMARIO 14.
      ("Abres el armario.")))
    ((COMMON-LISP-USER::J 10. COMMON-LISP-USER::ESTACA 0.
      COMMON-LISP-USER::MARTILLO 0. COMMON-LISP-USER::CRUCIFIJO 0.
      COMMON-LISP-USER::AJOS 0.)
     "abrir ataud"
     (COMMON-LISP-USER::VAMPIROM 10.
      ("Abres el ataud. Dentro contemplas la horrible cara del vampiro. Protegido por"
       "los ajos y el crucifijo empiezas tu horrible tarea. Le clavas la estaca en el"
       "pecho y de un terrible golpe de martillo la hundes en lo más profundo de su ser."
       "Con un grito de agonía se deshace en polvo y tú acabas tu misión aquí."
       "" "Por ahora..." "" "          Finis.")))
    ((COMMON-LISP-USER::J 10.) "abrir ataud"
     (("Necesito cuatro cosas antes de poner fin a la vida del vampiro. A saber: un"
       "un crucifijo, una ristra de ajos, una estaca afilada y un martillo.")))
    (COMMON-LISP::NIL "fin" (COMMON-LISP-USER::FIN 16.)))
   COMMON-LISP-USER::A)
#Y(#:|(DEFUN JUGAR (J1 &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::JUGAR
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::JUGAR
      #60Y(00 00 00 00 01 00 02 00 80 25 01 00 00 00 3B 03 03 0E 01 FB 3B 02 03
           0E 02 FA 3B 01 07 6B 03 6B 04 61 02 F9 AD AF 8A 05 10 B0 B0 B2 76 00
           B2 B2 6E 03 06 38 01 29 04 09 55 3E 19 05)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) :EF COMMON-LISP-USER::A
      COMMON-LISP-USER::INICIAL COMMON-LISP-USER::FINAL
      COMMON-LISP-USER::FINAL2 COMMON-LISP-USER::FINAL?
      COMMON-LISP-USER::TRANSITAR))
#Y(#:|(DEFUN HUMANO NIL ...)-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::HUMANO
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::HUMANO
      #22Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 33 01 15 38 04 31 77 19 01)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      #Y(COMMON-LISP-USER::HUMANO-1
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 89 9E 19 03)
         (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
         "
> ")
      COMMON-LISP::*STANDARD-OUTPUT*))
#Y(#:|(DEFUN HUMANO2 (&OPTIONAL #) ...)-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::HUMANO2
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::HUMANO2
      #50Y(00 00 00 00 00 00 01 00 00 07 3B 01 03 0E 00 F9 DB 6B 02 33 01 15 38
           04 71 77 AC AF 6F 03 DE 38 02 8C B4 0B DF 38 01 31 84 38 01 29 01 04
           5B 15 19 02)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::A
      #Y(COMMON-LISP-USER::HUMANO2-1
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 89 9E 19 03)
         (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
         "
> ")
      COMMON-LISP::*STANDARD-OUTPUT* COMMON-LISP-USER::ACCIONES
      #.#'COMMON-LISP::EQUALP "No entiendo eso."))
#Y(#:|(DEFUN VAMPIRO (&OPTIONAL # #) ...)-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::VAMPIRO
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::VAMPIRO
      #136Y(00 00 00 00 00 00 02 00 00 0C 3B 02 03 0E 00 FA 3B 01 03 0E 01 F9
            38 01 31 8B DC 38 01 31 84 38 01 31 8B DD 38 01 31 84 38 01 31 8B
            DE 38 01 31 84 38 01 31 8B 38 01 31 8B DF 38 01 31 84 38 01 31 8B
            38 01 31 8B 38 01 31 8B 38 01 31 8B E0 38 01 31 84 38 01 31 8B E1
            38 01 31 84 38 01 31 8B E2 38 01 31 84 38 01 31 8B E3 38 01 31 84
            38 01 31 8B 38 01 31 8B 38 01 31 8B E4 AF AF E5 64 2D 05 0C 99 0D
            2F 0E 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::A
      COMMON-LISP-USER::INICIAL "-Memorias de reXXe-"
      "Versión en eac (LISP) del juego VAMPIRO (original de Aventuras ALCAZO),"
      "implementada por Lumpi (2004)." "Muchas gracias por jugar."
      "Despiertas aturdido. Después de unos segundos te incorporas en el frío suelo de"
      "piedra y ves que estás en un castillo. ¡Ahora recuerdas! Eres reXXe y tu misión"
      "es la de matar al vampiro. TIENES que matar al vampiro que vive en la parte"
      "superior del castillo..." "m" 0. COMMON-LISP-USER::TRANSITAR
      COMMON-LISP-USER::HUMANO2 COMMON-LISP-USER::JUGAR))
#Y(#:|(DEFUN ACCIONES (LC &OPTIONAL #) ...)-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::ACCIONES
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ACCIONES
      #54Y(00 00 00 00 01 00 01 00 00 08 3B 01 0F 7D 01 92 02 0D 9E 19 03 95 02
           AE 29 02 05 6E 93 02 73 94 02 6F 00 AE DB 38 02 8C B4 6B 95 02 94 03
           6F 00 A0 7A 29 02 05 54)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ORDEN
      #.#'COMMON-LISP::EQUAL))
#Y(#:|(DEFUN POSIBLES (ACCIONES LC L) ...)-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::POSIBLES
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::POSIBLES
      #58Y(00 00 00 00 03 00 00 00 00 04 92 03 0E 00 19 04 95 03 AF AF 29 03 07
           00 93 03 72 AD 94 04 B0 B0 DA 63 6E 05 01 8E 02 68 94 03 AF AF DA 63
           6E 05 01 95 04 B0 B0 28 61 5D 19 04)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.
      COMMON-LISP-USER::TRANSITAR))
#Y(#:|(DEFUN POSIBLES2 (ACCIONES LC L) ...)-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::POSIBLES2
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::POSIBLES2
      #51Y(00 00 00 00 03 00 00 00 00 04 92 03 0E 00 19 04 95 03 AF AF 29 03 07
           00 93 03 72 AD 94 04 B0 B0 DA 63 6E 05 01 8E 02 68 94 03 95 04 B0 B0
           28 68 5D 19 04)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.
      COMMON-LISP-USER::TRANSITAR))
#Y(#:|(DEFUN CUMPLEF (L L2) ...)-14|
   #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::CUMPLEF
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::CUMPLEF
      #42Y(00 00 00 00 02 00 00 00 00 03 92 02 06 02 19 03 93 02 7A 94 02 24 00
           07 94 02 94 02 8F 02 08 95 02 95 02 29 02 05 69 00 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP::*))
#Y(#:|(DEFUN FINAL? (LEF L2) ...)-15|
   #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::FINAL?
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::FINAL?
      #35Y(00 00 00 00 02 00 00 00 00 03 92 02 06 00 19 03 93 02 7A 94 02 AE 30
           00 1E 07 95 02 AE 29 02 05 6F 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      COMMON-LISP-USER::CUMPLEF))
#Y(#:|(DEFUN HACER (&KEY # # ...) ...)-16|
   #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::HACER
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::HACER
      #65Y(00 00 00 00 00 00 00 00 80 1B 04 00 00 00 00 2B 02 3B 05 03 0E 04 FD
           3B 04 04 6B 05 61 01 0B 00 00 3B 03 04 6B 06 2F 07 0B 00 01 3D 02 B1
           E2 AE 6D 09 01 E4 B0 6D 0B 01 E6 E7 DD B6 2D 09 0E 19 06)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) :INI :FIN :ACC :TRAZA
      COMMON-LISP-USER::INICIAL COMMON-LISP-USER::FINAL COMMON-LISP-USER::A
      COMMON-LISP-USER::ACCIONES :FINALP
      #Y(COMMON-LISP-USER::HACER-1
         #18Y(00 00 00 00 01 00 00 00 00 02 69 00 01 AE 30 01 19 02)
         (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP::NIL
         COMMON-LISP-USER::FINAL?)
      :HIJOS
      #Y(COMMON-LISP-USER::HACER-2
         #32Y(00 00 00 00 01 00 00 00 00 02 69 00 02 6B 01 AF 6E 03 02 69 00 02
              6B 01 B0 6E 03 03 40 02 19 02)
         (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP::NIL
         COMMON-LISP-USER::A COMMON-LISP-USER::POSIBLES
         COMMON-LISP-USER::POSIBLES2)
      :EQESTADO #.#'COMMON-LISP::EQUALP COMMON-LISP-USER::AMPLITUD))
#Y(#:|(DEFUN LEERLISTA (CADENA E) ...)-17|
   #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::LEERLISTA
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::LEERLISTA
      #51Y(00 00 00 00 02 00 00 00 00 03 01 02 B0 38 01 31 84 38 04 71 74 80 4B
           00 14 DA 8E 02 10 AC DB 8E 02 0E AC 38 01 71 D4 AE 30 02 F9 1B 64 9E
           19 05 A0 19 05)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "!" "-"
      COMMON-LISP-USER::INSORD))
#Y(#:|(DEFUN SITUAR (E N L) ...)-18|
   #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::SITUAR
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::SITUAR
      #32Y(00 00 00 00 03 00 00 00 00 04 AE DA 90 01 2D 0C 94 01 B0 97 04 95 04
           28 71 5D 19 04 AF 9F 1B 79)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.))
#Y(#:|(DEFUN FABESTADO (LL LP) ...)-19|
   #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::FABESTADO
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::FABESTADO
      #45Y(00 00 00 00 02 00 00 00 00 03 DA AF AF 63 1B 14 87 01 00 14 B3 B1 70
           01 70 02 B0 B0 2D 03 03 FA 85 03 83 01 AD 8D 92 68 16 02 15 19 04)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.
      COMMON-LISP-USER::ELEMENTO COMMON-LISP-USER::LEERLISTA
      COMMON-LISP-USER::SITUAR))
#Y(#:|(DEFUN TINI NIL ...)-20|
   #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::TINI
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::TINI
      #21Y(00 00 00 00 00 00 00 00 00 01 38 01 31 8B 6B 00 DB 30 02 19 01)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::INICIAL
      ("i: " "loc.1: " "loc.2: " "loc.3: " "loc.4: " "loc.5: " "loc.6: "
       "loc.7: " "loc.8: " "loc.9: " "loc.10: " "rec.fregadero: "
       "rec.armario: ")
      COMMON-LISP-USER::FABESTADO))
#Y(#:|(DEFUN TFINAL NIL ...)-21|
   #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::TFINAL
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::TFINAL
      #35Y(00 00 00 00 00 00 00 00 00 01 38 01 31 8B DA 38 01 31 84 38 01 31 8B
           38 01 31 8B DB DC 70 03 61 01 19 01)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      "Escriba ! para terminar, y - para ignorar."
      (COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::*
       COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::*
       COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::*
       COMMON-LISP::* COMMON-LISP::*)
      ("inventario: " "loc.1: " "loc.2: " "loc.3: " "loc.4: " "loc.5: "
       "loc.6: " "loc.7: " "loc.8: " "loc.9: " "loc.10: " "rec.fregadero: "
       "rec.armario: ")
      COMMON-LISP-USER::FABESTADO))
#Y(#:|(DEFUN INCLUIR (&OPTIONAL #) ...)-22|
   #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::INCLUIR
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::INCLUIR
      #55Y(00 00 00 00 00 00 01 00 00 07 3B 01 0A 7D 01 93 01 08 1B 13 9F 19 03
           92 01 0D 38 01 31 8B DA 38 01 31 84 38 01 31 8B 38 04 71 77 AC DB 8E
           02 64 AC A0 7A 29 01 04 53)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "Escriba ! para terminar"
      "!"))
#Y(#:|(DEFUN MENU (&OPTIONAL # # ...) ...)-23|
   #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::MENU
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::MENU
      #119Y(00 00 00 00 00 00 03 00 00 10 3B 03 03 0E 00 FB 3B 02 05 6B 01 61
            01 FA 3B 01 04 6B 02 2F 03 63 38 01 31 8B DE 38 01 31 84 38 01 31
            8B DF 38 01 31 84 38 01 31 8B E0 38 01 31 84 38 01 31 8B 38 01 31
            8B 38 04 80 74 00 14 24 07 0E AC 24 09 13 AC 24 0B 18 B0 B0 30 0A
            19 05 2E 08 38 03 29 03 08 FF A7 2E 0A 38 03 29 03 08 FF 9E 38 01
            31 8B 38 01 31 8B 3E 19 05)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::INICIAL
      COMMON-LISP-USER::FINAL COMMON-LISP-USER::A COMMON-LISP-USER::ACCIONES
      "1. Jugar" "2. Buscar solución de manera automática" "3. Salir" 1.
      COMMON-LISP-USER::VAMPIRO 2. COMMON-LISP-USER::IA 3.))
#Y(#:|(DEFUN IA (&OPTIONAL # # ...) ...)-24|
   #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::IA
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::IA
      #235Y(04 00 01 00 00 00 03 00 00 10 3B 03 03 0E 00 FB 3B 02 05 6B 01 61
            01 FA 3B 01 05 6B 02 2F 03 F9 63 38 01 31 8B DE 38 01 31 84 38 01
            31 8B DF 38 01 31 84 38 01 31 8B E0 38 01 31 84 38 01 31 8B E1 38
            01 31 84 38 01 31 8B E2 38 01 31 84 38 01 31 8B 38 01 31 8B 38 04
            80 74 00 14 24 09 80 68 AC 24 0B 80 67 AC 24 0D 80 67 AC 25 0F 80
            6F 31 CA 42 09 53 17 38 01 31 8B EA BC EB BD EC BE 6E 06 13 38 01
            31 81 38 01 31 8B 3E 54 98 14 45 31 CA 41 67 01 00 08 67 01 00 07
            67 01 00 06 67 01 00 05 67 01 00 04 67 01 00 03 67 01 00 02 67 01
            00 01 67 01 00 00 46 55 16 09 38 01 31 8B A1 14 A1 14 B0 29 03 08
            FF 42 2E 0A 1B 73 B0 2E 0C 1B 70 B0 B0 2E 0E 14 29 03 08 FF 2F 3E
            19 05 AC 24 15 79 B0 B0 38 01 29 03 08 FF 1F)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::INICIAL
      COMMON-LISP-USER::FINAL COMMON-LISP-USER::A COMMON-LISP-USER::ACCIONES
      "1. Especificar estado inicial" "2. Especificar estado final"
      "3. Especificar conjunto de acciones"
      "4. Buscar solución a partir del estado inicial" "5. Volver" 1.
      COMMON-LISP-USER::TINI 2. COMMON-LISP-USER::TFINAL 3.
      COMMON-LISP-USER::MACC 4. :INI :FIN :ACC COMMON-LISP-USER::HACER
      SYSTEM::%TIME 5.))
#Y(#:|(DEFUN MACC NIL ...)-25|
   #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::MACC
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::MACC
      #63Y(00 00 00 00 00 00 00 00 00 01 63 38 01 31 8B DA 38 01 31 84 38 01 31
           8B DB 38 01 31 84 38 01 31 8B 38 01 31 8B 38 04 80 74 00 14 24 02 07
           AC 24 05 09 00 19 02 6B 03 2F 04 19 02 2E 06 19 02)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      "1. Incluir todas las acciones"
      "2. Escribir manualmente el conjunto de acciones" 1. COMMON-LISP-USER::A
      COMMON-LISP-USER::ACCIONES 2. COMMON-LISP-USER::INCLUIR))
#Y(#:|(MENU)-26| #14Y(00 00 00 00 00 00 00 00 00 01 2E 00 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::MENU)