From 1bc7fd28c86b9b3da5a42f09be9314eec60cf842 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C5=82=20Herda?= <phoe@openmailbox.org>
Date: Fri, 22 Jul 2016 20:41:30 +0200
Subject: [PATCH] Style improvement to avoid nested #+ / #-

Multiple `#-ecl` are confusing here.
---
 backend/sbcl.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/backend/sbcl.lisp b/backend/sbcl.lisp
index 6fccaed..1b6ba17 100644
--- a/backend/sbcl.lisp
+++ b/backend/sbcl.lisp
@@ -178,9 +178,11 @@
     (sb-bsd-sockets:socket-error . ,#'map-socket-error)
 
     ;; Nameservice errors: mapped to unknown-error
-    #-ecl #-ecl #-ecl
+    #-ecl
     (sb-bsd-sockets:no-recovery-error . ns-no-recovery-error)
+    #-ecl
     (sb-bsd-sockets:try-again-error . ns-try-again-condition)
+    #-ecl
     (sb-bsd-sockets:host-not-found-error . ns-host-not-found-error)))
 
 (defun handle-condition (condition &optional (socket nil))