1  (in-package :ami.modeling)
2  
3  (defun class-mapping (mdef values)
4    (make-instance (model-name mdef)
5                   :username (getf values :|username|)
6                   :id (getf values :|id|)
7                   :surname (getf values :|surname|)))