From 8542b3d72bbcb3cdc315d5886b3a5794df16c543 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 25 Jul 2011 02:27:00 +0200 Subject: [PATCH] Better names for some of the ICMP types --- src/sockets/grovel.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/sockets/grovel.lisp b/src/sockets/grovel.lisp index 692135e..9a045f7 100644 --- a/src/sockets/grovel.lisp +++ b/src/sockets/grovel.lisp @@ -228,19 +228,19 @@ (constant (icmp-filter "ICMP_FILTER")) (constantenum icmp-types - (:icmp-echoreply "ICMP_ECHOREPLY") + (:icmp-echo-reply "ICMP_ECHOREPLY") (:icmp-dest-unreach "ICMP_DEST_UNREACH") (:icmp-source-quench "ICMP_SOURCE_QUENCH") (:icmp-redirect "ICMP_REDIRECT") - (:icmp-echo "ICMP_ECHO") + (:icmp-echo-request "ICMP_ECHO") (:icmp-time-exceeded "ICMP_TIME_EXCEEDED") - (:icmp-parameterprob "ICMP_PARAMETERPROB") - (:icmp-timestamp "ICMP_TIMESTAMP") - (:icmp-timestampreply "ICMP_TIMESTAMPREPLY") + (:icmp-parameter-prob "ICMP_PARAMETERPROB") + (:icmp-timestamp-request "ICMP_TIMESTAMP") + (:icmp-timestamp-reply "ICMP_TIMESTAMPREPLY") (:icmp-info-request "ICMP_INFO_REQUEST") (:icmp-info-reply "ICMP_INFO_REPLY") - (:icmp-address "ICMP_ADDRESS") - (:icmp-addressreply "ICMP_ADDRESSREPLY")) + (:icmp-address-request "ICMP_ADDRESS") + (:icmp-address-reply "ICMP_ADDRESSREPLY")) (constantenum icmp-unreach (:icmp-net-unreach "ICMP_NET_UNREACH") -- 2.11.4.GIT