Common Lisp 宏问题（遍历剩余参数）?报错

运行环境：

win，sbcl，clsql

clsql  默认创建数据实例的宏是   ：

(clsql:def-view-class users ()
  ((id
  :accessor id
    :db-kind :key
    :db-constraints :not-null
    :type integer
    :initarg :id )
   (name
    :accessor name
    :type (string 30)
    :initarg :name)
   (uid
    :accessor uid
    :type (string 30)
    :initarg :uid)
   (pwd
    :accessor pwd
    :type (string 100)
    :initarg :pwd))
  (:base-table users))

这个过程有点麻烦   就像创建一个 宏用来简化创建过程，本人的宏代码：

(defmacro create-database-entity-class (entity-name arg1 &rest args)
  `(clsql:def-view-class ,entity-name()
    (
      (,arg1 :accessor ,arg1  :db-kind :key :db-constraints :not-null :type integer  :initarg ,:arg1)
      (loop for arg in ,args 
      do(arg :accessor arg :type integer :initarg :arg)
        )  
    )
    (:base-table ,:entity-name)
  )
)

(create-database-entity-class users id name uid pwd)  ;使用该宏

;实例化

(defvar a (make-instance `users
                          :id 1
                          :name 12
                          :uid 123
                          :pwd 23)) 

(id a) ;问题来了   前面的部分都返回成功，但是到这里提取不到  id属性值

报错内容如下：

请各位大侠指教。。。。