[SBCL] Fix Build failure on some SBCL versions due to sb-int:broken-p…

…ipe (#81)
usocket · Apr 11, 2022 · b0f5f0f · b0f5f0f
1 parent b720911
commit b0f5f0f
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/backend/sbcl.lisp b/backend/sbcl.lisp
@@ -263,7 +263,12 @@
     #-(or ecl mkcl clasp)
     (sb-sys:io-timeout . timeout-error)
     #+sbcl (sb-ext:timeout . timeout-error)
-    #+sbcl (sb-int:broken-pipe . connection-aborted-error)
+
+    ;; learnt from fiveam (suggested by Anton Vodonosov) for early SBCL versions
+    #+#.(cl:if (cl:ignore-errors (cl:find-symbol "BROKEN-PIPE" "SB-INT"))
+               '(and) '(or))
+    (sb-int:broken-pipe . connection-aborted-error)
+
     (sb-bsd-sockets:socket-error . ,#'map-socket-error)
 
     ;; Nameservice errors: mapped to unknown-error