r8825: fix for allegro to run test-suite

diff --git a/usql/metaclasses.lisp b/usql/metaclasses.lisp
index fb05188464769f0e1e7fa27e9c46108763faf161..60679fb409eb08d062beb0ccb8acc5ac1520af5d 100644 (file)
--- 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))))