Merge pull request #138 from fukamachi/add-conc-name-accessors-only-u…

…nspecified Add auto-generated accessors with :conc-name only when :reader and :writer are not specified
fukamachi · May 24, 2024 · aa8e679 · aa8e679
2 parents 8da8c80 + 72ec630
commit aa8e679
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/core/dao/column.lisp b/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)))