Random commit i can't remember

poly.cl

@@ -1,6 +1,5 @@
 (defun poly+ (poly1 poly2)
-  (format t "Poly One: ~d~%" poly1)
-  (format t "Poly Two: ~d~%" poly2))
+  (add-terms poly1 poly2))
 
 (defun find-variable-symbol (single-poly)
   (car (car (car single-poly))))
@@ -11,5 +10,15 @@
 (defun find-multiplier (single-poly)
   (cdr (car single-poly)))
 
+(defun is-single-poly (var-poly)
+  (if (equal (length var-poly) 1) T nil))
+
+(defun add-terms (poly1 poly2)
+  (if (equal (is-single-poly poly1) (is-single-poly poly2))
+  (cons poly1 poly2)
+  (progn
+    )
+  ))
+
 (poly+ '(((x 2) 3)) '(((y 2) 4)))
-(poly+ '(((x 2) 3) ((y 2) 3)) '(((y 2) 4)))
+; (poly+ '(((x 2) 3) ((y 2) 3)) '(((y 2) 4)))