projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.15.10:
[sbcl.git]
/
contrib
/
sb-bsd-sockets
/
sockopt.lisp
diff --git
a/contrib/sb-bsd-sockets/sockopt.lisp
b/contrib/sb-bsd-sockets/sockopt.lisp
index
3eb9398
..
88e83b6
100644
(file)
--- 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)))
(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))
(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")))
`(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
;;; sockopts that have integer arguments