X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Finet.lisp;h=57ab02c87c08669ee1eecf643e98ca7a45bb72da;hb=fd79e33e6b6dacdc52cf6668a5bb7adf75aad6c1;hp=716095cf5794eb425dbcbc70576474a435e06273;hpb=a539be5d6c2ba4a6a68d761a6bcce977f9de2b19;p=sbcl.git diff --git a/contrib/sb-bsd-sockets/inet.lisp b/contrib/sb-bsd-sockets/inet.lisp index 716095c..57ab02c 100644 --- a/contrib/sb-bsd-sockets/inet.lisp +++ b/contrib/sb-bsd-sockets/inet.lisp @@ -25,7 +25,7 @@ Examples: \"127.0.0.1\". Signals an error if the string is malformed." (declare (type string dotted-quads)) (labels ((oops () - (error "~S is not a string designating an IP address." + (error "~S is not a string designating an IP address." dotted-quads)) (check (x) (if (typep x '(unsigned-byte 8))