From 6b66874fe34a30c394114fb2f02beee236a2646e Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 30 Jun 2018 21:26:32 +0100 Subject: [PATCH] dep.lisp: Prefix diagnostic output with `;;'. --- dep.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.11.0