From 0acb4df9efcb5a731c119973e95e27c88f24b327 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 31 Dec 2007 04:31:02 +0100 Subject: [PATCH] CONDified an expression. Signed-off-by: Stelian Ionescu --- sockets/dns/message.lisp | 10 +++++----- sockets/trivial-sockets.lisp | 8 ++++---- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/sockets/dns/message.lisp b/sockets/dns/message.lisp index 8273535..42f9df9 100644 --- a/sockets/dns/message.lisp +++ b/sockets/dns/message.lisp @@ -279,11 +279,11 @@ (let (string offset pointer-seen) (labels ((%deref-dns-string (pointer rec) (when (not pointer-seen) - (if rec - (progn - (setf pointer-seen t) - (setf offset (+ (read-cursor-of buffer) 2))) - (setf offset (+ (read-cursor-of buffer) 1)))) + (cond (rec + (setf pointer-seen t) + (setf offset (+ (read-cursor-of buffer) 2))) + (t + (setf offset (+ (read-cursor-of buffer) 1))))) (dynamic-buffer-seek-read-cursor buffer :offset pointer) (setf string (read-dns-string buffer))) (%read-tags () diff --git a/sockets/trivial-sockets.lisp b/sockets/trivial-sockets.lisp index 3574a86..c3614bf 100644 --- a/sockets/trivial-sockets.lisp +++ b/sockets/trivial-sockets.lisp @@ -118,8 +118,8 @@ (defmacro with-server ((name arguments) &body forms) `(let (,name) (unwind-protect - (progn - (setf ,name (open-server ,@arguments)) - (locally - ,@forms)) + (progn + (setf ,name (open-server ,@arguments)) + (locally + ,@forms)) (when ,name (close-server ,name))))) -- 2.11.4.GIT