ManejoDeListas.lsp

(defun saludo()
	(print 'hola))

; Base de datos inicial
(setq Animales (list 'perro))
(setq Atributos (list (list 'peludo 'ladra)))


(defun inicio(Lista)
  (setq ciclo t)
  (loop
     (if (eql ciclo nil) (return 0))
     	(print Lista)
     	(print "Que animal te interesa?: ")
     	(setq dato (read))
	(if (= dato 0) (setq ciclo nil)
	  (setq Lista (unir Lista (CreaLista Dato)))
	)
  )
)

(defun CreaLista (Dato)
  (list Dato)
)

(defun unir (Lista1 Lista2)
	(append Lista1 Lista2)
)