Added (obj vector) methods

Author: TheStalkerDen

DiffBackend/src/results-generator.lisp

@@ -64,10 +64,11 @@
                         (gener-res-object (parameters-list obj))
                         (gener-res-object (body-forms obj))))))
 
+(defmethod gener-res-object ((obj vector))
+  (map 'list #'gener-res-object obj))
+
 (defmethod gener-res-object ((obj list))
-  (mapcar (lambda (el)
-            (gener-res-object el))
-          obj))
+  (map 'list #'gener-res-object obj))
 
 (defmethod gener-res-object ((obj function-call-node))
   (with-ht

DiffBackend/tests/test-utils.lisp

@@ -55,6 +55,10 @@
 
 (defgeneric conv-for-cmp-test (obj))
 
+(defmethod conv-for-cmp-test ((obj vector))
+  (loop :for el :across obj
+        :collect (conv-for-cmp-test el)))
+
 (defmethod conv-for-cmp-test ((obj list))
   (loop :for el :in obj
         :collect (conv-for-cmp-test el)))