cl-rw

Layered streams for Common Lisp
git clone https://logand.com/git/cl-rw.git/
Log | Files | Refs

commit 07d64dadd509ce3a0ab1a5d9bcb447161d984c65
parent ebd48f28bc88c5912f2ed6e889bf5bc5d2829b82
Author: Tomas Hlavaty <tom@logand.com>
Date:   Mon, 29 Dec 2014 12:41:23 +0100

no need for let*

Diffstat:
Mdns.lisp | 74+++++++++++++++++++++++++++++++++++++-------------------------------------
1 file changed, 37 insertions(+), 37 deletions(-)

diff --git a/dns.lisp b/dns.lisp @@ -528,21 +528,21 @@ (flet ((str () (coerce (rw:till r '(#\space #\tab #\newline #\return)) 'string))) - (let* ((name (str)) - (ttl (progn + (let ((name (str)) + (ttl (progn + (rw:skip r) + (rw:next-z0 r))) + (type (progn (rw:skip r) - (rw:next-z0 r))) - (type (progn - (rw:skip r) - (let ((x (str))) - (cond - ((equal x "A") 'A) - ((equal x "AAAA") 'AAAA) - ((equal x "NS") 'NS) - (t (error "unexpected record ~x ~s" x line)))))) - (detail (progn - (rw:skip r) - (coerce (rw:till r '(#\newline #\return)) 'string)))) + (let ((x (str))) + (cond + ((equal x "A") 'A) + ((equal x "AAAA") 'AAAA) + ((equal x "NS") 'NS) + (t (error "unexpected record ~x ~s" x line)))))) + (detail (progn + (rw:skip r) + (coerce (rw:till r '(#\newline #\return)) 'string)))) (make-$resource :name name :type type :class 'IN @@ -565,32 +565,32 @@ (flet ((str (r) (coerce (rw:till r '(#\space #\tab #\newline #\return)) 'string))) - (let* ((name (str r)) - (ttl (progn - (rw:skip r) - (rw:next-z0 r))) - (class (progn - (rw:skip r) - (let ((x (str r))) - (cond - ((equal x "IN") 'IN) - (t (error "unexpected record ~x ~s" x line)))))) - (type (progn + (let ((name (str r)) + (ttl (progn + (rw:skip r) + (rw:next-z0 r))) + (class (progn (rw:skip r) (let ((x (str r))) (cond - ((equal x "A") 'A) - ((equal x "AAAA") 'AAAA) - ((equal x "NS") 'NS) - ((equal x "SOA") 'SOA) - ((equal x "RRSIG") 'RRSIG) - ((equal x "DNSKEY") 'DNSKEY) - ((equal x "NSEC") 'NSEC) - ((equal x "DS") 'DS) - (t (error "unexpected record ~s ~s" x line)))))) - (detail (progn - (rw:skip r) - (coerce (rw:till r '(#\newline #\return)) 'string)))) + ((equal x "IN") 'IN) + (t (error "unexpected record ~x ~s" x line)))))) + (type (progn + (rw:skip r) + (let ((x (str r))) + (cond + ((equal x "A") 'A) + ((equal x "AAAA") 'AAAA) + ((equal x "NS") 'NS) + ((equal x "SOA") 'SOA) + ((equal x "RRSIG") 'RRSIG) + ((equal x "DNSKEY") 'DNSKEY) + ((equal x "NSEC") 'NSEC) + ((equal x "DS") 'DS) + (t (error "unexpected record ~s ~s" x line)))))) + (detail (progn + (rw:skip r) + (coerce (rw:till r '(#\newline #\return)) 'string)))) (make-$resource :name name :type type :class class