X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=usql%2Fmetaclasses.lisp;h=60679fb409eb08d062beb0ccb8acc5ac1520af5d;hb=f79d7e4103bd4ab6621e05f05c2b7c4a99ba9520;hp=fb05188464769f0e1e7fa27e9c46108763faf161;hpb=9dd97b8754afa3ff7b3a5d63ee8635fb6734e121;p=clsql.git

diff --git a/usql/metaclasses.lisp b/usql/metaclasses.lisp
index fb05188..60679fb 100644
--- a/usql/metaclasses.lisp
+++ b/usql/metaclasses.lisp
@@ -494,7 +494,9 @@ all NULL values retrieved are converted by DATABASE-NULL-VALUE")
                    (view-class-slot-db-info sd)))))
       ;; all other slots
       (t
-       (change-class slotd 'view-class-effective-slot-definition)
+       (change-class slotd 'view-class-effective-slot-definition
+		     #+allegro :name 
+		     #+allegro (slot-definition-name sd))
        (setf (slot-value slotd 'column)
              (column-name-from-arg
               (sql-escape (slot-definition-name sd))))