Ar an dara lá is fiche de mí na Samhain, scríobh Zajcev Evgeny: (with-temp-buffer (princ ";; -*- coding: escape-quoted -*-\n") (princ "(setq desired-hash-table-variable-name ") (let ((print-readably t)) (prin1 really-huge-hash-table)) (princ ")\n") (write-file "desired-output-file-name" nil 'escape-quoted)) To load the data, you would just call #'load on the file. Alternatively: (let ((database-handle (open-database "desired-output-database-name" 'berkeley-db nil "rw+" #o644))) (maphash #'(lambda (key value) (put-database (encode-coding-string key 'koi8-r) (encode-coding-string value 'koi8-r) database-handle t)) really-huge-hash-table) (close-database database-handle)) You would need to call #'get-database and #'decode-coding-string to do the lookup, though. -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta