(create-instance 'foo :a (make-instance 'foo :a :inner))
で内側も保存されるようにした。