CadenaALista.lsp

;
;________________________________________________________________________
; Se introduce una cadena de texto y la convierte a una lista de palabras
;------------------------------------------------------------------------
;
; FUNCIONES QUE SE UTILIZAN
; string-trim			Recorta los caracteres extremos indicados entre comillas
; with-input-from-string 	Convierte una cadena de texto en una lista de palabras
;				construyendo una variable flujo entre la cadena y READ

(defun Lee-frase ()
	(with-input-from-string (Frase (string-trim " ." (read-line)))
		(do ((Palabra (read Frase nil) (read Frase nil)) (oracion nil))
			((not Palabra) (return (reverse oracion)))
			(push Palabra oracion)
		)
	)
)