out-of-line {MIN,MAX,<,>} fail to reject complex numbers in 1-argument call

[Douglas Katzman]

A type error is signaled only if the function is compile-time known.

(dolist (f (list #'min #'max #'< #'<= #'> #'>=)) (print (funcall f #c(4 3))))
#C(4 3)
#C(4 3)
T
T
T
T

'arith.pure.lisp' has an assertion about it:

;;; ANSI says MIN and MAX should signal TYPE-ERROR if any argument
;;; isn't REAL. SBCL 0.7.7 didn't in the 1-arg case. (reported as a
;;; bug in CMU CL on #lisp IRC by lrasinen 2002-09-01)