(defconstant +ID+ "Christopher Kim")

(defun ID (course-number assignment-number)
    (cond
        (
            (not (integerp course-number))
                (format t "Error, first parameter must be integer")
            ) ; end 1st clause
        (
            (not (integerp assignment-number))
                (format t "Error, second parameter must be integer")
            ) ; end 2nd clause
        (t
            (format t "Name: ~a~%" +ID+)
            (format t "Course: ICS~d~%" course-number)
            (format t "Assignment # ~d~%" assignment-number)
            ) ; end 3rd clause
        ) ; end cond
    ) ; end defun