#0Y UTF-8
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ELEMENTO
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::L COMMON-LISP-USER::N)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::INVERTIR
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::L)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::POSICION
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::E COMMON-LISP-USER::L COMMON-LISP::&OPTIONAL
    (COMMON-LISP-USER::N 0.))))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ORD
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::A)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::MENORALFA
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::S COMMON-LISP-USER::S2)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::INSORD
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::E COMMON-LISP-USER::L)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::IMPRIMIR
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::L COMMON-LISP-USER::L2)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::COLOCAR
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::A COMMON-LISP-USER::B COMMON-LISP-USER::L)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::SUPRIMIR
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::A COMMON-LISP-USER::B COMMON-LISP-USER::L)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::QUITARE
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::E COMMON-LISP-USER::L)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::PONER
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::L COMMON-LISP-USER::L2 COMMON-LISP::&OPTIONAL
    (COMMON-LISP-USER::VER COMMON-LISP::T))))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::QUITAR
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::L COMMON-LISP-USER::L2)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ESTA
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::A COMMON-LISP-USER::B COMMON-LISP-USER::L)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::CUMPLE
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::L COMMON-LISP-USER::L2)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::PRE
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::LC)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::ORDEN
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::LC)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::POST
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE '(COMMON-LISP-USER::LC)))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::BUSCARORDEN
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::O COMMON-LISP-USER::LC COMMON-LISP::&OPTIONAL
    (COMMON-LISP-USER::N 0.))))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::TRANSITAR
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::O COMMON-LISP-USER::LC COMMON-LISP-USER::L
    COMMON-LISP::&OPTIONAL (COMMON-LISP-USER::N 0.)
    (COMMON-LISP-USER::VER COMMON-LISP::T))))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::SECUENCIA
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::LO COMMON-LISP-USER::LC COMMON-LISP-USER::L
    COMMON-LISP::&OPTIONAL (COMMON-LISP-USER::VER COMMON-LISP::T))))
(SYSTEM::C-DEFUN 'COMMON-LISP-USER::VERESTADO
 (SYSTEM::LAMBDA-LIST-TO-SIGNATURE
  '(COMMON-LISP-USER::L COMMON-LISP::&OPTIONAL (COMMON-LISP-USER::N 0.))))