Here's the code, with "jlog" instead of log. I must have log defined somewhere (like I said, I suck at Lisp). (defparameter *handlethese* '(date lev

Here's the code, with "jlog" instead of log. I must have log defined somewhere (like I said, I suck at Lisp). (defparameter *handlethese* '(date level message)) (defun date (obj) (prin1 obj)) (defun level (obj) (prin1 obj)) (defun message (obj) (prin1 obj)) (defun record (record-data) (if (car record-data) (progn (if (member (car (car record-data)) *handlethese*) (funcall (car (car record-data)) (cdr (car record-data))) nil) (record (cdr record-data))) nil)) (defun process-jlog(record-list) (if (car record-list) (progn (format t "~%Entry:") (funcall (car (car record-list)) (cdr (car record-list))) (process-jlog (cdr record-list))) t)) (defun jlog (&rest record-list) (process-jlog record-list))