Plaster
New
List
Login
common-lisp
default
Old Sock
2019.03.09 02:23:14
(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))))
Raw
Annotate
Repaste