Give assert a better failure message

lisp/unit/unit-test.lisp

@@ -16,11 +16,15 @@
 (defun unit (test-suite)
   (apply 'and (run-test-suite test-suite)))
 
-(defun assert (comparison expected actual)
-  (if (call comparison expected actual)
+(defun assert (comparison operand1 operand2)
+  (if (call comparison operand1 operand2)
     t
     (begin
-      (print (list expected 'is 'not comparison actual))
+      (print '==================================================)
+      (print (list comparison 'comparison 'failed))
+      (print operand1)
+      (print operand2)
+      (print '--------------------------------------------------)
       nil)))
 
 (defun assert= (expected actual)