package reference from previous commit fixed, now other projects that…

… depend on mito work
fukamachi · Nov 11, 2024 · 6187dc5 · 6187dc5
1 parent d1e5b72
commit 6187dc5
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 20 deletions.
diff --git a/src/core/class/column.lisp b/src/core/class/column.lisp
@@ -1,23 +1,24 @@
 (in-package :cl-user)
 (defpackage mito.class.column
-  (:use #:cl
-        #:mito.util
-        #:mito.error)
-  (:import-from #:alexandria
-                #:delete-from-plist
-                #:ensure-car)
-  (:export #:table-column-class
-           #:column-standard-effective-slot-definitions
-           #:table-column-type
-           #:%table-column-type
-           #:table-column-not-null-p
-           #:table-column-name
-           #:primary-key-p
-           #:ghost-slot-p
-           #:table-column-references
-           #:table-column-references-column
-           #:table-column-info
-           #:table-column-info-for-create-table))
+            (:use #:cl
+                  #:mito.util
+                  #:mito.error)
+            (:import-from #:alexandria
+                          #:delete-from-plist
+                          #:ensure-car)
+            (:export #:table-column-class
+                     #:col-type                     
+                     #:column-standard-effective-slot-definitions
+                     #:table-column-type
+                     #:%table-column-type
+                     #:table-column-not-null-p
+                     #:table-column-name
+                     #:primary-key-p
+                     #:ghost-slot-p
+                     #:table-column-references
+                     #:table-column-references-column
+                     #:table-column-info
+                     #:table-column-info-for-create-table))
 (in-package :mito.class.column)
 
 (deftype references ()

diff --git a/src/core/class/table.lisp b/src/core/class/table.lisp
@@ -158,8 +158,9 @@
                ;; set here all the relevant slots. See column-standard-effective-slot-definitions
                (setf (ghost-slot-p result)
                      (some #'ghost-slot-p direct-slot-definitions))
-               (setf (%table-column-type result)
-                     (some #'%table-column-type direct-slot-definitions))
+               (when (slot-boundp result 'mito.class.column:col-type)
+                 (setf (%table-column-type result)
+                       (some #'%table-column-type direct-slot-definitions)))
                (setf (table-column-references result)
                      (some #'table-column-references direct-slot-definitions))
                (setf (primary-key-p result)