X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/f4efa7fff2efa6a3144fc664683137df92c42f91..2548f0540da69973512f1827b2bfd2360470bb27:/src/rofl.lisp

diff --git a/src/rofl.lisp b/src/rofl.lisp
index 9b2e6dc..d26843f 100644
--- a/src/rofl.lisp
+++ b/src/rofl.lisp
@@ -19,6 +19,9 @@
 
 
 ;;;; now the rofl code itself
+
+(defvar *row-reader* 'symbol-plist-row-reader)
+
 (defun %query (query)
   (cl-postgres:exec-query *database* (sql-compile query) 'symbol-plist-row-reader))
 
@@ -150,6 +153,22 @@ inheritance and does not create any tables for it."))
 (defclass standard-db-access-class (db-access-class)
   ())
 
+(defmethod ensure-class-using-class :around ((class standard-db-access-class) name &rest args &key direct-slots &allow-other-keys)
+       (let ((direct-slots (loop for slot in direct-slots 
+			      collect (let* ((sname (getf slot :name))
+					     (readers (getf slot :readers))
+					     (writers (getf slot :writers)))
+					(setf (getf slot :readers)
+					      (cons (intern (format nil "~A.~A"
+								    name sname)) readers))
+					(setf (getf slot :writers)
+					      (cons `(setf ,(intern (format nil "~A.~A"
+								    name sname))) writers))
+					slot))))
+	 
+					      
+       (apply #'call-next-method class name :direct-slots direct-slots args)))
+
 (defun dao-id-column-name (class)
   (slot-definition-column-name
    (or (class-id-slot-definition class)