From 9a71be797361f7b42cfccdec2fd60b0c25e64a4c Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 16 Apr 2012 13:58:13 +0200 Subject: [PATCH] Specify syscall name in interface lookup functions --- src/sockets/iface.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/sockets/iface.lisp b/src/sockets/iface.lisp index c3be37c..9fd742d 100644 --- a/src/sockets/iface.lisp +++ b/src/sockets/iface.lisp @@ -18,8 +18,8 @@ (setf (documentation 'unknown-interface-datum 'function) "Return the datum that caused the signalling of an UNKNOWN-INTERFACE condition.") -(defun signal-unknown-interface-error (datum) - (error 'unknown-interface :datum datum)) +(defun signal-unknown-interface-error (syscall datum) + (error 'unknown-interface :syscall syscall :datum datum)) (defun list-network-interfaces () "Returns a list of network interfaces currently available." @@ -38,7 +38,7 @@ (handler-case (%if-indextoname index buffer) (isys:enxio () - (signal-unknown-interface-error index)) + (signal-unknown-interface-error "if_indextoname" index)) (:no-error (name) (make-interface name index))))) @@ -46,7 +46,7 @@ (handler-case (%if-nametoindex name) (isys:enxio () - (signal-unknown-interface-error name)) + (signal-unknown-interface-error "if_nametoindex" name)) (:no-error (index) (make-interface (copy-seq name) index)))) -- 2.11.4.GIT