Don't know wether you'll find it useful: (defun get-session-variable (request-response key) (get-attribute (get-session request-response) key)) ; (defun (setf get-session-variable) (val request-response key) (setf (get-attribute (get-session request-response) key) val)) in session.lisp Regards Friedrich