rational-negative -- r7rs Type number-negative-not-inf;number-negative;number-not-zero-not-nan;number-not-zero;number;number-not-nan;number-negative-or-zero;number-negative-or-zero-not-inf;number-not-inf;real-negative;real-negative-or-zero;real-not-nan;complex-not-nan;complex;real;real-not-zero-not-nan;complex-not-zero-not-nan;complex-not-zero;real-not-zero;real-negative-or-zero-not-inf;real-not-inf;complex-not-inf;rational;real-not-inf-not-nan;complex-not-inf-not-nan;number-not-inf-not-nan;(lambda (value) (and (rational? value) (negative? value)))