From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 30 Jun 2018 20:26:32 +0000 (+0100)
Subject: dep.lisp: Prefix diagnostic output with `;;'.
X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/commitdiff_plain/6b66874fe34a30c394114fb2f02beee236a2646e

dep.lisp: Prefix diagnostic output with `;;'.
---

diff --git a/dep.lisp b/dep.lisp
index 1d513c5..406a811 100644
--- a/dep.lisp
+++ b/dep.lisp
@@ -498,9 +498,9 @@
 			    (lambda () (+ (dep-value x) (dep-value y)))))
   (defparameter w (make-dep :name 'w
 			    (lambda () (* (dep-value x) (dep-value z)))))
-  (dep-add-listener x (lambda () (format t "x now ~A~%" x)))
-  (dep-add-listener z (lambda () (format t "z now ~A~%" z)))
-  (dep-add-listener w (lambda () (format t "w now ~A~%" w))))
+  (dep-add-listener x (lambda () (format t ";; x now ~S~%" x)))
+  (dep-add-listener z (lambda () (format t ";; z now ~S~%" z)))
+  (dep-add-listener w (lambda () (format t ";; w now ~S~%" w))))
 
 #+ test
 (progn