From 63b00b21ca8bd03fa839195a760243e588ac94cc Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Fri, 3 May 2024 01:11:25 +0100 Subject: [PATCH] net.lisp: Print addresses and nets usefully when `*print-escape*' is off. --- net.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/net.lisp b/net.lisp index aa7e395..7996827 100644 --- a/net.lisp +++ b/net.lisp @@ -269,8 +269,10 @@ (:documentation "Transform the address IP into a numeric textual form.")) (defmethod print-object ((addr ipaddr) stream) - (print-unreadable-object (addr stream :type t) - (write-string (ipaddr-string addr) stream))) + (if *print-escape* + (print-unreadable-object (addr stream :type t) + (write-string (ipaddr-string addr) stream)) + (write-string (ipaddr-string addr) stream))) (export 'ipaddrp) (defun ipaddrp (ip) @@ -388,8 +390,10 @@ (ipaddr-string (make-instance (class-of net) :addr mask)))))) (defmethod print-object ((ipn ipnet) stream) - (print-unreadable-object (ipn stream :type t) - (write-string (ipnet-string ipn) stream))) + (if *print-escape* + (print-unreadable-object (ipn stream :type t) + (write-string (ipnet-string ipn) stream)) + (write-string (ipnet-string ipn) stream))) (defun parse-subnet (class width max str &key (start 0) (end nil) (slashp t)) "Parse a subnet description from (a substring of) STR. -- 2.11.0