From f7f2347d204185e14a1b100e2d0f597238cd59ef Mon Sep 17 00:00:00 2001 From: Mark Cox Date: Thu, 25 Oct 2012 20:53:14 +1000 Subject: [PATCH 1/2] Use an output string stream in CELLS::PRINT-CELL-MODEL. --- cell-types.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/cell-types.lisp b/cell-types.lisp index 374a439..4923f69 100755 --- a/cell-types.lisp +++ b/cell-types.lisp @@ -75,7 +75,9 @@ (export! print-cell-model) (defgeneric print-cell-model (md) - (:method (other) (print-object other nil))) + (:method (other) + (with-output-to-string (out) + (print-object other out)))) (defmethod trcp :around ((c cell)) (and ;*c-debug* -- 1.8.0