From f79d7e4103bd4ab6621e05f05c2b7c4a99ba9520 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 6 Apr 2004 05:47:10 +0000
Subject: [PATCH] r8825: fix for allegro to run test-suite

---
 usql/metaclasses.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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))))
-- 
2.34.1