X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fsockopt.lisp;h=88e83b63edf1c07c3f7d100b44066d2645e11cf6;hb=f705c517d8606a9a72edd11a96725f9c4e4be93d;hp=3eb9398e6b4ad9f9915dafe7dc1611e661a319d7;hpb=4bc6b918bb99e8dcd17bbe6479a06e52b2d04a6c;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/sockopt.lisp b/contrib/sb-bsd-sockets/sockopt.lisp
index 3eb9398..88e83b6 100644
--- a/contrib/sb-bsd-sockets/sockopt.lisp
+++ b/contrib/sb-bsd-sockets/sockopt.lisp
@@ -58,7 +58,9 @@ Code for options that not every system has should be conditionalised:
 						 (sb-alien:addr size)))
 		      (socket-error "getsockopt")
 		      (,mangle-return buffer size)))
-	     `(error 'unsupported-operator :name ',lisp-name)))
+	     `(error 'unsupported-operator 
+               :format-control "Socket option ~S is not supported in this platform." 
+               :format-arguments (list ',lisp-name))))
       (defun (setf ,lisp-name) (new-val socket)
 	,(if supportedp
 	     `(sb-alien:with-alien ((buffer ,buffer-type))
@@ -72,7 +74,9 @@ Code for options that not every system has should be conditionalised:
 							`(length new-val)
 							`(sb-alien:alien-size ,buffer-type :bytes))))
 		    (socket-error "setsockopt")))
-	     `(error 'unsupported-operator :name `(setf ,lisp-name)))))))
+	     `(error 'unsupported-operator 
+               :format-control "Socket option ~S is not supported on this platform."
+               :format-arguments (list ',lisp-name)))))))
 
 ;;; sockopts that have integer arguments