Lisp(lambda (user)
    (setf (lisp-p user) t) ).