(SYSTEM::VERSION '(20040222.))
#0Y UTF-8
#Y(#:|(DEFUN ELEMENTO (L N) ...)-1|
   #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::ELEMENTO
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ELEMENTO
      #39Y(00 00 00 00 02 00 00 00 00 03 92 02 0A 00 19 03 9F 5B 19 03 93 02 76
           AD 8F 08 72 AD 24 00 71 95 02 97 02 29 02 05 6D)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.))
#Y(#:|(DEFUN INVERTIR (L) ...)-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::INVERTIR
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::INVERTIR
      #29Y(00 00 00 00 01 00 00 00 00 02 AD 63 93 01 0B 95 01 94 02 84 01 6A 01
           92 01 75 15 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)))
#Y(#:|(DEFUN POSICION (E L &OPTIONAL ...) ...)-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::POSICION
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::POSICION
      #44Y(00 00 00 00 02 00 01 00 00 09 3B 01 0B C5 F9 92 02 09 00 19 04 9E 19
           04 93 02 77 AF 94 03 38 03 8C B4 72 AF 95 03 96 03 29 03 07 5E)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.))
#Y(#:|(DEFUN ORD (A) ...)-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::ORD
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ORD
      #34Y(00 00 00 00 01 00 00 00 00 02 DA 1B 0C 15 19 02 AC 71 2A AF 8E 02 76
           85 00 AC DB 91 01 32 71 00 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0. 255.))
#Y(#:|(DEFUN MENORALFA (S S2) ...)-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::MENORALFA
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::MENORALFA
      #73Y(00 00 00 00 02 00 00 00 00 03 DA DA B0 72 47 1B 17 02 19 06 B1 AE 72
           43 6F 01 B1 B0 72 43 6F 01 90 01 2F 6D 85 02 85 01 AD AD 90 01 32 18
           AE B1 72 47 90 01 32 10 B1 AE 72 43 6F 01 B1 B0 72 43 6F 01 91 01 30
           4E 00 19 06)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0. COMMON-LISP-USER::ORD))
#Y(#:|(DEFUN INSORD (E L) ...)-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::INSORD
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::INSORD
      #97Y(00 00 00 00 02 00 00 00 00 03 92 01 0D AE 61 01 19 03 AE 9F 1B 80 47
           93 01 73 AE 8F 08 05 94 01 8F 08 6F AE 8F 08 0C 94 01 8F 08 07 AE 94
           02 90 01 31 5F AE 8F 08 0B 94 01 8F 08 06 94 01 90 00 30 14 AE 8E 08
           05 94 01 8E 08 0B AE 71 4B 94 02 71 4B 8A 00 FF BC 94 01 AF 95 03 28
           FF B9 5D 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      COMMON-LISP-USER::MENORALFA))
#Y(#:|(DEFUN IMPRIMIR (L L2) ...)-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::IMPRIMIR
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::IMPRIMIR
      #60Y(00 00 00 00 02 00 00 00 00 03 AE AC 8C 92 28 94 00 AC 8E 07 1B AC 8E
           08 1A AF AD B1 30 01 14 30 00 14 38 01 31 84 38 01 31 8B 16 01 83 00
           1B 5B 9D 1B 6E AF 9E 1B 67 16 01 3E 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ELEMENTO
      COMMON-LISP-USER::POSICION))
#Y(#:|(DEFUN COLOCAR (A B 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::COLOCAR
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::COLOCAR
      #37Y(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 94 02 70 01 9F 5C 1B 74)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.
      COMMON-LISP-USER::INSORD))
#Y(#:|(DEFUN SUPRIMIR (A B 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::SUPRIMIR
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::SUPRIMIR
      #51Y(00 00 00 00 03 00 00 00 00 04 00 2B 01 7F 04 00 00 AF DA 90 01 2D 0E
           94 02 68 01 00 97 05 95 05 28 68 5D 19 05 AC 6D 01 01 94 03 38 05 72
           4F A0 5C 1B 6F)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.
      #Y(COMMON-LISP-USER::SUPRIMIR-1
         #18Y(00 00 00 00 01 00 00 00 00 02 AD 69 00 01 32 02 19 02)
         (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL) COMMON-LISP::NIL)))
#Y(#:|(DEFUN QUITARE (E L) ...)-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::QUITARE
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::QUITARE
      #49Y(00 00 00 00 02 00 00 00 00 03 00 2B 01 7F 03 00 00 63 AF 1B 11 94 00
           AF 6D 00 01 AD 38 05 72 4F 84 02 16 01 83 00 AC 8D 92 6B 16 01 AC 31
           A4 19 05)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      #Y(COMMON-LISP-USER::QUITARE-1
         #18Y(00 00 00 00 01 00 00 00 00 02 AD 69 00 01 32 02 19 02)
         (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL) COMMON-LISP::NIL)))
#Y(#:|(DEFUN PONER (L L2 &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::PONER
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::PONER
      #83Y(00 00 00 00 02 00 01 00 00 09 3B 01 1D 7E 01 92 03 1B 9F 19 04 93 01
           05 94 03 AF 30 00 95 03 AF AF 29 03 07 65 A0 5C 5B 1B 14 93 03 65 94
           03 8E 0B 63 A0 5C 78 8E 08 6D A0 5C 78 AF 30 01 14 A1 5C 79 94 05 AE
           94 07 B3 70 02 6E 03 03 B0 29 03 08 FF B7)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::IMPRIMIR
      COMMON-LISP-USER::POSICION COMMON-LISP-USER::QUITARE
      COMMON-LISP-USER::COLOCAR))
#Y(#:|(DEFUN QUITAR (L L2) ...)-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::QUITAR
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::QUITAR
      #35Y(00 00 00 00 02 00 00 00 00 03 92 02 06 9E 19 03 93 02 7A 9F 5C 79 94
           03 A1 5C 78 B0 6E 03 00 29 02 05 6D)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      COMMON-LISP-USER::SUPRIMIR))
#Y(#:|(DEFUN ESTA (A B 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::ESTA
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ESTA
      #22Y(00 00 00 00 03 00 00 00 00 04 AD AF 70 00 B0 AD 38 03 31 B4 19 05)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      COMMON-LISP-USER::ELEMENTO))
#Y(#:|(DEFUN CUMPLE (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::CUMPLE
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::CUMPLE
      #57Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 8E 08 19 9F 5C 78 AE 30 00 14
           93 03 14 93 00 09 94 03 AD B0 2D 03 01 1C 0B 00 19 04 9F 5C 5B 1B 68
           02 19 04 A0 5C 79 AF 29 02 06 51)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::POSICION
      COMMON-LISP-USER::ESTA))
#Y(#:|(DEFUN PRE (LC) ...)-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::PRE
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::PRE #14Y(00 00 00 00 01 00 00 00 00 02 9E 5B 19 02)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)))
#Y(#:|(DEFUN ORDEN (LC) ...)-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::ORDEN
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ORDEN
      #15Y(00 00 00 00 01 00 00 00 00 02 9E 5C 5B 19 02)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)))
#Y(#:|(DEFUN POST (LC) ...)-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::POST
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::POST
      #16Y(00 00 00 00 01 00 00 00 00 02 9E 5C 5C 5B 19 02)
      (COMMON-LISP::T COMMON-LISP::NIL COMMON-LISP::NIL)))
#Y(#:|(DEFUN BUSCARORDEN (O LC &OPTIONAL ...) ...)-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::BUSCARORDEN
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::BUSCARORDEN
      #73Y(00 00 00 00 02 00 01 00 00 09 3B 01 15 C5 F9 92 02 13 00 19 04 9F 5B
           19 04 AF 95 03 97 03 29 03 07 68 93 02 6D AD DA 91 01 2D 08 AF 94 03
           6F 01 8E 02 62 AD DA 91 01 30 08 AF 94 03 6F 01 8E 02 58 AF 95 03 AF
           29 03 07 41)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.
      COMMON-LISP-USER::ORDEN))
#Y(#:|(DEFUN TRANSITAR (O LC L ...) ...)-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::TRANSITAR
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::TRANSITAR
      #61Y(00 00 00 00 03 00 02 00 00 0F 3B 02 02 C5 FA 3B 01 02 7E 01 B1 B1 B0
           6E 03 01 AC 6F 02 AD 6F 03 93 02 0F AD B3 8A 04 0D B4 B4 B4 96 08 B4
           29 05 0E 58 A3 19 09 AC B3 B2 2D 03 05 19 09)
      (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 COMMON-LISP-USER::PONER))
#Y(#:|(DEFUN SECUENCIA (LO LC L ...) ...)-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::SECUENCIA
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::SECUENCIA
      #41Y(00 00 00 00 03 00 01 00 00 0A 3B 01 08 7E 01 92 04 06 9F 19 05 93 04
           7A 95 04 B0 94 06 B2 B2 DA B3 6E 05 01 B0 29 04 09 61)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.
      COMMON-LISP-USER::TRANSITAR))
#Y(#:|(DEFUN VERESTADO (L &OPTIONAL #) ...)-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::VERESTADO
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::VERESTADO
      #57Y(00 00 00 00 01 00 01 00 00 08 3B 01 12 C5 F9 92 02 10 3E 19 03 DB 6B
           02 94 04 33 02 15 1B 12 93 02 70 AD DA 90 01 2D 6D DD 6B 02 AF 94 05
           33 03 15 95 02 96 02 29 02 05 51)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.
      #Y(COMMON-LISP-USER::VERESTADO-1
         #26Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 89 AE B0 31 81 AF 31
              8B 9E 19 04)
         (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "Inventario: ")
      COMMON-LISP::*STANDARD-OUTPUT*
      #Y(COMMON-LISP-USER::VERESTADO-2
         #36Y(00 00 00 00 03 00 00 00 01 19 DA B1 38 02 31 89 AF B1 31 81 DB B1
              38 02 31 89 AE B1 31 81 B0 31 8B 9E 19 05)
         (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "Localidad " ": ")))