Plaster

(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))))