;; FICHERO PARA LA INTRODUCCION DEL NUEVO OPERADOR $nombre
;; INICIALIZA LA TABLA HASH DE NOMBRES.

(defvar *tabla-nombres* (make-hash-table))
(setf fich-nombres "U:/projects/p58_Sist_Info/5810_BUNUEL2000/8_software/dyparIAAA/nripoll/nombres/nombres-propios.dat")

(defun inicializa-tabla-nombres (file)
  (with-open-file (str file :direction :input)
    (do ((line (read str nil 'eof)
	       (read str nil 'eof)))
	((equal line 'eof))
      (setf (gethash line *tabla-nombres*) t))
    (values)))

(inicializa-tabla-nombres fich-nombres)

(defun muestra-tabla (tabla)
  (maphash #'(lambda (k v)
	       (format t "~S : ~S~%" k v))
	   tabla)
  (values))