lisp assignment

(defun addFraction (a b c d)
	(let ((num (+ (* a d) (* b c))) (den (* b d)))
		(gcdcalc num den)
	)
)

(defun gcdcalc (a b)
	(loop for x = a then y
        and y = b then (mod x y)
        until (zerop y)
        finally (setq dv x)
	)
	(simplify a b dv)
)

(defun simplify (n d dvs)
	(loop
		(setq n (/ n dvs) d (/ d dvs))
		(when (or (/= 0 (mod n dvs)) (/= 0 (mod d dvs))) ())
	)
	(format t "~d ~d" n d)
)

(defun finalprint (fnum fden)
	()
)