@@ -332,8 +332,3 @@

                        (.s)

                        (.not (.item)))

                s)))

-

-(defun parse (input &optional (realizer 'fset))

-  (synthesize realizer

-              (read-edn input)))

-

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

            :fset-lossy

            :convert-primitive

            :synthesize-compound

-           :synthesize-tag))

+           :synthesize-tag

+           :parse))

 (defpackage :edn.generate

   (:use :cl)

@@ -1,12 +1,14 @@

 (in-package :edn)

-

-(defgeneric convert-primitive (implementation primitive))

-

 (defgeneric synthesize (implementation args))

 (defgeneric synthesize-compound (implementation discriminator args))

 (defgeneric synthesize-tag (implementation tag args))

+(defun parse (input &optional (realizer 'fset))

+  (synthesize realizer

+              (read-edn input)))

+

+

 (defmethod synthesize ((implementation symbol) discriminator)

   (synthesize (make-instance implementation) discriminator))