;;; 4 de Noviembre de 2015
;; función que recibe un número y un stream
;; y muestra en dicho stream si dicho número
;; es even o odd (par o impar).
;;
;;
(defun test-numero(n stream)
(when (numberp n)
(format stream "~a is ~a"
n
(cond ((oddp n) "odd")
(T "even")))))