Add auto-generated accessors with :conc-name only when :reader and :writer are not specified.

Author: fukamachi

src/core/dao/column.lisp

@@ -29,10 +29,12 @@
     (let ((accessor (intern
                       (format nil "~:@(~A~A~)" *conc-name* name)
                       *package*)))
-      (pushnew accessor readers)
-      (pushnew `(setf ,accessor) writers)
-      (setf (getf rest-initargs :readers) readers)
-      (setf (getf rest-initargs :writers) writers)))
+      (unless readers
+        (pushnew accessor readers)
+        (setf (getf rest-initargs :readers) readers))
+      (unless writers
+        (pushnew `(setf ,accessor) writers)
+        (setf (getf rest-initargs :writers) writers))))
 
   (when inflate
     (setf (getf rest-initargs :inflate) (eval inflate)))