(SYSTEM::VERSION '(20040222.)) #0Y UTF-8 #Y(#:|(LOAD "c:\\\\av\\\\eac_2\\\\1.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) "c:\\av\\eac_2\\1.fas" COMMON-LISP::LOAD) #Y(#:|(LOAD "c:\\\\av\\\\eac_2\\\\2.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) "c:\\av\\eac_2\\2.fas" COMMON-LISP::LOAD) #Y(#:|(DEFUN FABAV (N OBJETOS ACCIONES) ...)-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::FABAV SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::FABAV #74Y(00 00 00 00 03 00 00 00 00 04 63 AE 72 47 72 97 DA 1B 2C B0 AD 70 01 DA 1B 1B DD 38 01 72 DC B5 B5 6E 03 04 AE DD 38 01 72 DC B7 B7 6E 03 04 7B 03 84 04 85 00 AC DC 91 01 32 5F 16 02 85 00 AC AE 91 01 32 4E 16 01 9E 19 06) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0. COMMON-LISP-USER::ELEMENTO 5. 3. COMMON-LISP-USER::FABPP)) #Y(#:|(DEFUN FABPP (IT N OBJETOS) ...)-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::FABPP SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::FABPP #48Y(00 00 00 00 03 00 00 00 00 04 63 AE 72 47 DA 1B 14 B0 AE 38 01 72 DC 70 01 96 06 38 01 72 DC A1 5D 5D FA 85 00 AC B3 91 01 32 66 16 01 9E 19 06) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0. COMMON-LISP-USER::ELEMENTO)) #Y(#:|(DEFUN FABNIL (N) ...)-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::FABNIL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::FABNIL #30Y(00 00 00 00 01 00 00 00 00 02 63 DA 1B 05 63 84 01 85 00 AC B0 91 01 32 75 16 01 15 19 02) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.)) #Y(#:|(DEFUN FABST (N OBJETOS) ...)-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::FABST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::FABST #52Y(00 00 00 00 02 00 00 00 00 03 AE 6F 00 AE 63 1B 1A 87 01 00 DB 38 01 72 DC DC 91 01 2D 0B AC B2 38 01 72 DC B0 2D 03 03 FA 83 01 AD 8D 92 62 16 02 15 19 03) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::FABNIL 2. 0. COMMON-LISP-USER::COLOCAR)) #Y(#:|(DEFUN PREPARAR (A N) ...)-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::PREPARAR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::PREPARAR #34Y(00 00 00 00 02 00 00 00 00 03 63 AE 1B 02 86 00 AC 84 01 AC 8F 91 77 63 DA AF 7B 01 7B 03 A2 5D 19 05) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "m")) #Y(#:|(DEFUN QUITARMSJ (L) ...)-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::QUITARMSJ SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::QUITARMSJ #18Y(00 00 00 00 01 00 00 00 00 02 DA AE 38 05 32 4F 19 02) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) #Y(COMMON-LISP-USER::QUITARMSJ-1 #15Y(00 00 00 00 01 00 00 00 00 02 AD 32 0B 19 02) (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)))) #Y(#:|(DEFUN BUSCAR (O LC L ...) ...)-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::BUSCAR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::BUSCAR #50Y(00 00 00 00 03 00 01 00 00 0A 3B 01 02 C5 F9 B0 B0 AF 6E 03 01 AC 6F 02 AD 2F 03 93 01 0E AC B1 8A 04 0C B2 B2 B2 96 06 29 04 0B 5E 00 19 07 9E 19 07) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0. COMMON-LISP-USER::BUSCARORDEN COMMON-LISP-USER::PRE COMMON-LISP-USER::POST COMMON-LISP-USER::CUMPLE)) #Y(#:|(DEFUN JUGAMOS (A L FINAL ...) ...)-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::JUGAMOS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::JUGAMOS #130Y(00 00 00 00 03 00 01 00 00 0A 3D 01 DA 38 01 31 84 38 04 71 77 AC DB 8E 02 1B AC DC 8E 02 19 AC DE 8F 02 3F AE 38 01 31 81 38 01 31 8B B1 B1 B1 B1 29 04 0A 55 A2 19 06 B0 2F 03 1B 70 CB 19 06 E2 38 01 31 84 38 01 31 8B AE 6F 09 AF 6F 0A 38 04 71 77 7B 01 B1 6F 0B 2F 0C 7A 7B 03 AC A4 7A A3 1B 17 AC DF 8E 02 55 AC E1 8E 02 53 AC B2 B2 6E 03 0D B2 AE B4 B4 2D 03 0E 14 B2 AF 29 04 0B FF 88) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "> " "fin" "ver" COMMON-LISP-USER::VERESTADO "ver orden" "rejugar" 2. "texto" "Escriba respuesta: " COMMON-LISP-USER::PRE COMMON-LISP-USER::ORDEN COMMON-LISP-USER::POST COMMON-LISP-USER::QUITARMSJ COMMON-LISP-USER::BUSCAR COMMON-LISP-USER::TRANSITAR)) #Y(#:|(DEFUN INICIAR NIL ...)-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::INICIAR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::INICIAR #132Y(03 00 01 00 00 00 00 00 00 01 38 01 31 8B 38 01 31 8B 63 DA 38 01 31 84 38 01 31 8B DB 38 01 31 84 38 01 31 8B DC 38 01 31 84 38 01 31 8B 38 01 31 8B 38 04 80 77 00 14 DD 8E 02 0E AC DF 8E 02 16 AC E9 32 02 1E 3B 00 19 02 2E 04 29 00 02 FF B9 58 3E 4A 00 00 02 E0 6B 07 33 01 15 47 08 1D 57 09 38 04 71 77 2F 0A 6B 0B 6B 0C 6B 0D 6E 03 0E 38 01 31 82 16 04 48 29 00 02 FF 8D 29 00 02 FF 88 19 02) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "1. Aventura aleatoria" "2. Cargar aventura .fas" "3. Salir" "1" COMMON-LISP-USER::LANZAR "2" #Y(COMMON-LISP-USER::INICIAR-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) " Nombre de archivo: ") COMMON-LISP::*STANDARD-OUTPUT* COMMON-LISP::NIL (#(COMMON-LISP::ERROR 71.) 2. . 1.) COMMON-LISP::LOAD COMMON-LISP-USER::A COMMON-LISP-USER::INICIAL COMMON-LISP-USER::FINAL COMMON-LISP-USER::JUGAMOS "3")) #Y(#:|(DEFUN LEERNUM NIL ...)-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::LEERNUM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::LEERNUM #36Y(00 00 00 00 00 00 00 00 00 01 63 C5 1B 01 C6 14 38 01 31 84 38 04 80 74 00 38 01 31 8B AC 8F 08 6D 15 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "Escriba número de localidades: " "Escriba NÚMERO de localidades: ")) #Y(#:|(DEFUN LEERLL NIL ...)-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::LEERLL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::LEERLL #31Y(00 00 00 00 00 00 00 00 00 01 01 02 1B 05 AD AD 30 01 F8 38 04 80 74 01 14 25 00 72 15 19 02) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) EXT::! COMMON-LISP-USER::INSORD)) #Y(#:|(DEFUN LANZAR (&OPTIONAL # # ...) ...)-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::LANZAR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::LANZAR #179Y(00 00 00 00 00 00 03 00 00 10 3B 03 02 C5 FB 3D 02 3D 01 01 03 DB 38 01 31 84 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 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 77 00 14 E1 8E 02 26 AC E3 8E 02 25 AC E5 8E 02 25 AC E6 8E 02 2A AC EB 8F 02 3E AE AE B4 6F 0F 2D 03 10 A3 14 A3 14 B2 29 03 0A FF 8B 2E 08 1B 73 B2 2E 0A 1B 70 B2 B2 2E 0A 14 29 03 0A FF 78 B2 B2 B2 6E 03 0D B3 B3 30 0E FA 14 B4 6F 0F 2D 03 10 FA A3 1B 4E 3E 19 07 AC EC 8E 02 78 00 19 07) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0. "1. Número de localidades" "2. Objetos" "3. Acciones" "4. Empezar de 0" "5. Continuar" "6. Salir" "1" COMMON-LISP-USER::LEERNUM "2" COMMON-LISP-USER::LEERLL "3" "4" COMMON-LISP-USER::FABAV COMMON-LISP-USER::FABST COMMON-LISP-USER::FABNIL COMMON-LISP-USER::JUGAMOS "5" "6")) #Y(#:|(DEFUN EJEMPLO NIL ...)-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::EJEMPLO SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::EJEMPLO #29Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 2D 03 03 0F 04 14 DA 70 05 E0 E1 2D 03 08 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 5. (COMMON-LISP-USER::CHORIZO COMMON-LISP-USER::J COMMON-LISP-USER::PAN) ("n" "s" "e" "o" "coger chorizo" "coger pan") COMMON-LISP-USER::FABAV COMMON-LISP-USER::A COMMON-LISP-USER::PREPARAR (COMMON-LISP::NIL (COMMON-LISP-USER::J) (COMMON-LISP-USER::CHORIZO) COMMON-LISP::NIL (COMMON-LISP-USER::PAN)) (COMMON-LISP::NIL COMMON-LISP::NIL COMMON-LISP::NIL COMMON-LISP::NIL COMMON-LISP::NIL) COMMON-LISP-USER::JUGAMOS)) #Y(#:|(INICIAR)-16| #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::INICIAR)