Additional test, cleanup

Author: alessiostalla

src/level0/abstractions.lisp

@@ -33,10 +33,6 @@
 (define-abstraction quote +symbol-quote+ ()
   ((form :initarg :form :reader quoted-form)))
 
-(defmethod transform (transformer (form quote) environment)
-  (declare (ignore transformer))
-  (values (quoted-form form) environment))
-
 (define-abstraction seq +symbol-seq+ ()
   ((elements :initarg :elements :accessor seq-elements :initform (fset:seq) :slot-name +symbol-seq-elements+)))
 

src/level0/forms.lisp

@@ -84,8 +84,6 @@
 	   (if (slot-boundp instance name)
 	       (init-subform instance name (cl:slot-value instance name)))))) ;;TODO lists of children
 
-(defgeneric transform (transformer form environment))
-
 #|TODO move/redo
 (defclass constant (form)
   ((value :initarg :value :reader constant-value)))