Use real value for amt: comparison functions.

parsing.lisp

@@ -336,7 +336,7 @@
                    (.identity #\=)))
           (value (.number)))
     (.identity #'(lambda (v)
-                   (funcall (find-symbol (string op)) (abs v) value)))))
+                   (funcall (find-symbol (string op)) v value)))))
 
 (defun .month ()
   (.or (.progn (.or (.string= "january") (.string= "jan")) (.identity 1))