2
;;;; Author: Paul Dietz
3
;;;; Created: Sat Sep 6 18:20:36 2003
4
;;;; Contains: Tests of NUMBERP
8
(deftest numberp.error.1
9
(signals-error (numberp) program-error)
12
(deftest numberp.error.2
13
(signals-error (numberp 0 nil) program-error)
16
(deftest numberp.error.3
17
(signals-error (numberp 'a nil nil) program-error)
21
(loop for x in *universe*
22
for vals = (multiple-value-list (numberp x))
24
unless (and (= (length vals) 1)
25
(if val (typep x 'number)
26
(not (typep x 'number))))
27
collect (cons x vals))