Merge pull request #2 from mfiano/patch-1

Support for using printv in a dumped core image
danlentz · Dec 10, 2021 · e717a7f · e717a7f
2 parents 646d319 + 9526418
commit e717a7f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/printv.lisp b/printv.lisp
@@ -7,7 +7,7 @@
 ;; Configurables - Adjust to Individual Taste
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defvar *default-printv-output*     *trace-output*)
+(defvar *default-printv-output*     (make-synonym-stream '*trace-output*))
 (defvar *printv-output*             *default-printv-output*)
 (defvar *printv-lock*               (make-recursive-lock))