;;
;; lisp homework example, CS372
;;
;; functions
;;
(defun mmbr (itm lst)
  (cond
   ((null lst) nil)
   ((eq itm (car lst)) lst)
   (t (mmbr itm (cdr lst)))))
;;
;; data
;;
(setq 'testmem '(g h i j k l a b c d))
;;
;; invocation
;;
(format t "Running the mmbr function now~%~%")
(mmbr 'a testmem)
;;