@@ -16,7 +16,8 @@

 (defsystem :cl-edn/fset

   :depends-on (#:cl-edn

-               #:fset)

+               #:fset

+               #:fwoar.lisputils)

   :components ((:file "fset-synthesize")))

 (defsystem :cl-edn/test

@@ -45,3 +45,8 @@

     (make-symbol (if ns

                      (format nil "~a/~a" ns name)

                      (format nil "~a" name)))))

+

+(defmethod synthesize-compound (implementation (discriminator (eql :tagged)) args)

+  (destructuring-bind (sym obj) args

+    (list :tagged (synthesize-compound implementation (car sym) (cdr sym))

+          (synthesize implementation obj))))