(defmethod initialize-instance :around ((class standard-db-class)
&rest all-keys
&key direct-superclasses base-table
(defmethod initialize-instance :around ((class standard-db-class)
&rest all-keys
&key direct-superclasses base-table
;; the column slot is filled in with the slot-name, but transformed
;; to be sql safe, - to _ and such.
(setf (slot-value esd 'column)
;; the column slot is filled in with the slot-name, but transformed
;; to be sql safe, - to _ and such.
(setf (slot-value esd 'column)
- (column-name-from-arg
- (if (slot-boundp dsd 'column)
- (delistify-dsd (view-class-slot-column dsd))
- (column-name-from-arg
- (sql-escape (slot-definition-name dsd))))))
-
+ (if (slot-boundp dsd 'column)
+ (delistify-dsd (view-class-slot-column dsd))
+ (slot-definition-name dsd)))