[ccl] Change visibility of foreground-mode

gorozhin · Jul 1, 2023 · e28be29 · e28be29
1 parent 6867b44
commit e28be29
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/style.lisp b/src/style.lisp
@@ -20,9 +20,12 @@
   (defmethod equal-mode ((x background-mode) (y background-mode))
     t)
   (define-constant +foreground-mode+ (make-instance 'foreground-mode)
-    :test #'equal-mode)
+  :test #'equal-mode)
   (define-constant +background-mode+ (make-instance 'background-mode)
-    :test #'equal-mode))
+    :test #'equal-mode)
+  (defmethod make-load-form ((m color-mode) &optional env)
+    (declare (ignore env))
+    (make-load-form-saving-slots m)))
 
 (defclass style ()
   ((bold :type boolean