$numberp vs mnump

• Subject: $numberp vs mnump
• From: Dan Stanger
• Date: Sun, 15 Dec 2002 14:39:15 -0700

Can anyone provide a example where these 2 functions in simp.lisp would
provide different values?
Following are the definitions:
#-cl
(DEFMFUN MNUMP (X)
  (OR (NUMBERP X) (AND (NOT (ATOM X)) (MEMQ (CAAR X) '(RAT BIGFLOAT)))))

#+cl
(DEFMFUN MNUMP (X)
  (OR (NUMBERP X) (AND (NOT (ATOM X))(not (atom (car x)))
         (MEMQ (CAAR X) '(RAT BIGFLOAT)))))

and

(DEFMFUN $NUMBERP (E) (OR ($RATNUMP E) ($FLOATNUMP E) ($BFLOATP E)))

• Prev by Date: "Public" functions in nalgfa.lisp
• Next by Date: $numberp vs mnump
• Next by thread: $numberp vs mnump
• Index(es):
  • Date
  • Thread