From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 6 Apr 2004 05:47:10 +0000 (+0000)
Subject: r8825: fix for allegro to run test-suite
X-Git-Tag: v3.8.6~742
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=f79d7e4103bd4ab6621e05f05c2b7c4a99ba9520

r8825: fix for allegro to run test-suite
---

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