Serialize repl-mode.

atlas-engineer · Apr 7, 2023 · d3dbbde · d3dbbde
1 parent b38b770
commit d3dbbde
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/source/mode/repl.lisp b/source/mode/repl.lisp
@@ -208,6 +208,11 @@ The `input' should be a valid Lisp code `read'-able in the `eval-package'.
 - and sets `raised-condition' (if any) to a wrapper class managing raised
   condition debugging."))
 
+(defmethod s-serialization:serialize-sexp-slot ((self lisp-cell) (slot (eql 'eval-package))
+                                                stream serialization-state)
+  (declare (ignore serialization-state))
+  (prin1 (package-name (slot-value self slot)) stream))
+
 (define-class cell-source (prompter:source)
   ((prompter:name "Cell types")
    (prompter:constructor (mopu:subclasses (find-class 'cell nil)))))