dep.lisp: Report out-of-date deps as being `stale'.

[lisp] / dep.lisp

diff --git a/dep.lisp b/dep.lisp
index 1d513c5..2b81c80 100644 (file)
--- a/dep.lisp
+++ b/dep.lisp
@@ -473,7 +473,7 @@
       (let ((flags (dep-flags dep))
            (value (dep-%value dep)))
        (cond ((zerop (logand flags +value+))
-              (write-string "#<out-of-date>" stream))
+              (write-string "#<stale>" stream))
              ((eq value .bad.)
               (write-string "#<bad>" stream))
              (t
@@ -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