[cl-prevalence-devel] [patch] backup method for guarded-prevalence-system

[Alexey Voznyuk]

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))