(defun get-sql-user-from-sql2 (sql-entry)
  (let ((instance (make-sql-user)))
    (loop :for accessor :in *sql-user-accessors*
	  :for property :in sql-entry  
	  :do (setf (funcall accessor instance) property)
	  :finally (return instance))))