(with-open-file (in filename)
(with-standard-io-syntax
(setf *db* (read in))))
;;; *db* es una variable especial o global, pensada para almacenar los datos.
(defvar *db* nil)