gistfile1.lisp

(defun my-length (list)
    (if list
        (1+ (my-length (cdr list)))
        0))

(assert (eq (my-length '(1 2 3)) 3))
(assert (eq (my-length (list 234)) 1))


(defvar *number-was-odd* nil)

(if (oddp 5)
    (progn (setf *number-was-odd* t)
        'odd-number)
    'even-number)

(assert (eq *number-was-odd* t))


(defvar *number-is-odd* nil)

(when (oddp 5)
    (setf *number-is-odd* t)
    'odd-number)

(assert (eq *number-is-odd* t))

(unless (oddp 4)
    (setf *number-is-odd* nil)
    'even-number)

(assert (eq *number-is-odd* nil))

(print "TESTS OK")