(in-package "DYPAR")

(defun string-to-list (cadena)
  (setq c cadena)		 
  (setq pos (search " " c))
  (setq lista 'nil)

  (if (not (eql pos nil))
      (do ((pos pos (search " " c)))
	  ((eql pos nil) lista)
	(setq lista (append lista (list (intern (string-upcase (subseq c 0 pos)) 'dypar))))
	(setq c (subseq c (+ pos 1)))))
  (setq lista (append lista (list (intern (string-upcase c) 'dypar)))))

	

