common lisp, объекты Lisp - запись / чтение

http://common-lisp.net/project/cl-store/

спасибо

А чем плох просто print в файл? С *print-readably* = t?

(let ((*print-readably* t))
	(with-open-file (out "test.save"
			     :direction :output
			     :if-does-not-exist :create)
	  (print *name-db* out)))

--->

#<MP3-DB {BB26001}> cannot be printed readably.

ну так это же не вектор. Тогда надо сделать

(defmethod print-object ((object mp3db) s) ...)

Однако, тут могут быть проблемы с цикличностью. Чтобы её избежать, лучше
не пользоваться CLOS, а пользоваться только структурами, векторами и списками. Их можно вводить-выводить спокойно, если в них находятся печатабельные объекты (например, символы, строки и числа). Кстати, структуры во многих случаях работают в разы быстрее, чем CLOS объекты.
Родовые функции над структурами определять можно, т.к. они являются полноценными типами лиспа. Есть также и наследование структур.

Есть и другой подход, сделать метод преобразования в-из списка. Он будет полезен не только для сериализации, а ещё и для многих других вещей. Читаем вот это:
http://groups.google.com/group/comp.lang.lisp/browse_thread/thread/580c812013...