From b35262c65c19aeb6bd73c33fe1c3e3919f360618 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 10 Dec 2007 12:07:38 +0100 Subject: [PATCH] Add PRINT-OBJECT method for FILE-MONITOR. Signed-off-by: Stelian Ionescu --- sockets/namedb/file-monitor.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/sockets/namedb/file-monitor.lisp b/sockets/namedb/file-monitor.lisp index e8c99b6..5690cc1 100644 --- a/sockets/namedb/file-monitor.lisp +++ b/sockets/namedb/file-monitor.lisp @@ -31,6 +31,10 @@ (lock :initarg :lock :accessor lock-of)) (:default-initargs :timestamp 0)) +(defmethod print-object ((monitor file-monitor) stream) + (print-unreadable-object (monitor stream :type nil :identity nil) + (format stream "File monitor for ~S" (file-of monitor)))) + (defun monitor-oldp (monitor) (declare (type file-monitor monitor)) (let ((mtime (file-write-date (file-of monitor)))) -- 2.11.4.GIT