(defun load-char-test3 (file)
  (with-open-file (in file)
    (with-standard-io-syntax
      (let ((*package* (find-package :trpgf)))
    (let ((chr-in (read in))
          (chr (make-hash-table)))
      (mapcar #'(lambda (x) (setf (gethash (car x) chr) (cdr x))) chr-in)
      (maphash #'(lambda (k v) (format t "~a: ~a~%" k v)) chr)
      chr)))))