2
;;;; Author: Paul Dietz
3
;;;; Created: Sat Sep 6 21:03:18 2003
4
;;;; Contains: Tests for COMPLEXP
8
(deftest complexp.error.1
9
(signals-error (complexp) program-error)
12
(deftest complexp.error.2
13
(signals-error (complexp 0 0) program-error)
16
(deftest complexp.error.3
17
(signals-error (complexp #C(1 1) nil) program-error)
21
(loop for x in *universe*
22
for vals = (multiple-value-list (complexp x))
23
when (or (/= (length vals) 1)
24
(if (typep x 'complex)
27
collect (cons x vals))