Leslie P. Polzer wrote:
Alexey Voznyuk wrote:
Serializing a standard object with no slots defined caused extra ")" added at the end.
Ah, thanks. I'm going to test and apply your patch within 1-2 weeks.
Leslie
Please check also the following patch for (defmethod backup ((system guarded-prevalence-system) &key directory)
It simply doesn't work causing an error, the patch should fix it:
--- prevalence.lisp.orig 2009-08-30 02:00:42.000000000 +0400 +++ prevalence.lisp 2009-08-30 02:00:48.000000000 +0400 @@ -311,5 +311,5 @@ "Do a backup on a system controlled by a guard" (funcall (get-guard system) - #'(lambda () (call-next-method system directory)))) + #'(lambda () (call-next-method system :directory directory))))
(defmethod restore ((system guarded-prevalence-system))