From 90db5563e5e5b36eb231765c11190b27f52b6bda Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Wed, 30 Jan 2008 14:15:43 +0100 Subject: [PATCH] Fix previous commit. Signed-off-by: Stelian Ionescu --- net.sockets/iface.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/net.sockets/iface.lisp b/net.sockets/iface.lisp index 073a034..2d99989 100644 --- a/net.sockets/iface.lisp +++ b/net.sockets/iface.lisp @@ -24,8 +24,8 @@ (in-package :net.sockets) (defclass interface () - ((name :initarg :name :reader interface-name - (index :initarg :index :reader interface-index))) + ((name :initarg :name :reader interface-name) + (index :initarg :index :reader interface-index)) (:documentation "Class describing a network interface.")) (defmethod print-object ((interface interface) stream) @@ -52,7 +52,7 @@ (defun list-network-interfaces () "Returns a list of network interfaces currently available." - (let (ifptr (null-pointer)) + (let ((ifptr (null-pointer))) (macrolet ((%if-slot-value (slot index) `(foreign-slot-value (mem-aref ifptr 'if-nameindex ,index) -- 2.11.4.GIT