src/models/user.lisp

(defpackage murja.models.user
  (:use :cl)
  (:export :User :user-id :user-username :user-password :user-nickname :user-img-location))

(in-package :murja.models.user)

(defclass User ()
  ((id :initarg :id :accessor user-id :col-type integer)
   (username :initarg :username :accessor user-username :col-type string)
   (password :initarg :password :accessor user-password :col-type string)
   (nickname :initarg :nickname :accessor user-nickname :col-type string)
   (img-location :initform "" :initarg :img-location :accessor user-img-location :col-type string))

  (:metaclass postmodern:dao-class)
  (:keys id)
  (:table-name "blog.Users"))

(defmethod print-object ((usr User) output)
  (with-slots (id username nickname img-location) usr
    
    (format output "#<USER: ~{~{~a: ~s~}~^,~%~t ~}>" (list
						  (list :id id)
						  (list :username username)
						  (list :nickname nickname)
						  (list :password "******")
						  (list :img-location img-location)))))

;; (postmodern:get-dao 'User 1)