Определить четность, знак и тип каждого из трех заданных чисел

(foo 123 456 78.9)

(defun parity-sign-type (w &aux (a (car w)))
  (when w (cons (list (parity a) 
                      (sign a)
                      (number-type a))
                (parity-sign-type (cdr w)))))
 
(defun parity (n)
  (when (integerp n) (if (oddp n) 'odd 'even)))
 
(defun sign (n)
  (if (plusp n) 'plus 'minus))
 
(defun number-type (n)
  (cond ((integerp n) 'integer)
        ((rationalp n) 'rational)
        ((complexp n) 'complex)
        ((floatp n) 'float)
        (t 'other)))
 
> (parity-sign-type '(123 456 78.9))
((ODD PLUS INTEGER) (EVEN PLUS INTEGER) (NIL PLUS FLOAT))

(defun define-parity-sign-type (&rest w)
  (parity-sign-type w))
 
(defun parity-sign-type (w &aux (a (car w)))
  (when w (cons (list (parity a) 
                      (sign a)
                      (number-type a))
                (parity-sign-type (cdr w)))))
 
(defun parity (n)
  (when (integerp n) (if (oddp n) 'odd 'even)))
 
(defun sign (n)
  (if (plusp n) 'plus 'minus))
 
(defun number-type (n)
  (cond ((integerp n) 'integer)
        ((rationalp n) 'rational)
        ((complexp n) 'complex)
        ((floatp n) 'float)
        (t 'other)))
 
> (define-parity-sign-type 123 456 78.9)
((ODD PLUS INTEGER) (EVEN PLUS INTEGER) (NIL PLUS FLOAT))