From 8b5e7d7155f4b37f248a4aead91054e788c26700 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 6 May 2004 17:13:00 +0000 Subject: [PATCH] r9270: No need to specialize finalize-inheritance for openmcl --- ChangeLog | 1 + sql/metaclasses.lisp | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index d7fa827..8fb459e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,7 @@ * sql/metaclass.lisp: Work-around openmcl's CHANGE-CLASS changing the type-specifier. Use a lisp type of (OR NULL FOO) for a specified-type of FOO unless :db-constraints :not-null. + No need to specialize finalize-inheritance for openmcl. * tests/test-*.lisp: Rename fields so that joins occur on fields with different names. This ensures that join code is selecting the proper name. diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp index 0dcb3ae..e59a00a 100644 --- a/sql/metaclasses.lisp +++ b/sql/metaclasses.lisp @@ -192,13 +192,13 @@ (setq all-slots (remove-if #'not-db-col all-slots)) (setq all-slots (stable-sort all-slots #'string< :key #'car)) (setf (object-definition class) all-slots)) - #-(or allegro openmcl) + #-allegro (setf (key-slots class) (remove-if-not (lambda (slot) (eql (slot-value slot 'db-kind) :key)) (ordered-class-slots class))))) -#+(or allegro openmcl) +#+allegro (defmethod finalize-inheritance :after ((class standard-db-class)) (setf (key-slots class) (remove-if-not (lambda (slot) (eql (slot-value slot 'db-kind) -- 2.34.1