(defun sql-user-obj-to-html (sql-user-object &key (username t) (email nil)
					     (password nil) (grant-date nil)
					       (id nil) (verified nil))
  "outputs a sql-user object to html, ignores those keyword params which are nil"
  (when username
	 (let ((un (sql-user-username sql-user-object)))
	   (with-html
	     (:p "Username: " (cl-who:str un)))))
  (when email
	 (let ((em (sql-user-email sql-user-object)))
	   (with-html
	     (:p "Email: "(cl-who:str em)))))
  (when password
	 (let ((ps (sql-user-password sql-user-object)))
	   (with-html
	     (:p "Password: "(cl-who:str ps)))))
  (when grant-date
	 (let ((gd (sql-user-grant-date sql-user-object)))
	   (with-html
	     (:p "Grant-date: "(cl-who:str gd)))))
  (when id
	 (let ((ide (sql-user-id sql-user-object)))
	   (with-html
	     (:p "ID: " (cl-who:str ide)))))
  (when verified
	 (let ((vf (sql-user-verified sql-user-object)))
	   (with-html
	     (:p "Verified: " (cl-who:str vf)))))
  (when (and (not username)(not email)(not password) (not grant-date)
	     (not id)(not verified))
    (with-html
      (:p "No properties specified"))))