View difference between Paste ID: mKJgvdAp and h61E3gE1

 #!/usr/bin/gcl -f
 
 (defun read-int (text)
 	(format t text)
 	(read)
 )
 
 (defun print-result ( a b c x)
 	(let
 		(
-			(bSign "+")
+			(bSign (if (< b 0) "" "+"))
-			(cSign "+")
+			(cSign (if (< c 0) "" "+"))
 		)
-		(if (< b 0) (setf bSign "") ())
+
-		(if (< c 0) (setf cSign "") ())
+
 			a
 			bSign b
 			cSign c
 			x
 		)
 	)
 )
 
 (defun calc-double-x (a b d)
 	(list
 		( / (+ b (sqrt d)) (* 2 a))
 		( / (- b (sqrt d)) (* 2 a))
 	)
 )
 
 (defun calc-single-x (a b)
 	(list
 		(/ (- b) (* 2 a))
 	)
 )
 
 (defun calc-x (a b c)
 	(let
 		(
 			(d (- (* b b) (* 4 a c)))
 			(x 0)
-			(d 0)
+
 		(if (> d 0)
 			(calc-double-x a b d)
-		(setf d (- (* b b) (* 4 a c)))
+
 				(calc-single-x a b)
 				nil
 			)
 		)
 	)
 )
 
 (defun square ()
 	(format t "a*x^2 + b*x + c = 0~%")
 
 	(let
 		(
 			(a (read-int "a="))
 			(b (read-int "b="))
 			(c (read-int "c="))
-			(a 0)
+
-			(b 0)
+
-			(c 0)
+
 )
 
-		(setf a (read-int "a="))
+
-		(setf b (read-int "b="))
+
-		(setf c (read-int "c="))
+