Add auto-generated accessors with :conc-name only when :reader and :w…

…riter are not specified.
fukamachi · May 24, 2024 · 72ec630 · 72ec630
1 parent 8da8c80
commit 72ec630
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)))