From fca869468e94da7e439136f73335040b009fdc2b Mon Sep 17 00:00:00 2001 From: Linus Nordberg Date: Mon, 27 Jul 2009 16:03:37 +0200 Subject: * src/util.lisp: Remove some debug printouts, for increasing readability of the code by removing some progn's. --- src/util.lisp | 21 ++++++++------------- 1 file changed, 8 insertions(+), 13 deletions(-) (limited to 'src') diff --git a/src/util.lisp b/src/util.lisp index 6cc0788..c6e446c 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -27,22 +27,17 @@ BUGS: (when *debug* (format t "looking at ~A~%" c)) (vector-push-extend c acc) (if storing-p - (progn - (when *debug* (format t "pushing it~%")) - (if (eql c (char-code (aref end-tag match-count))) - (incf match-count) - (setf match-count 0)) - (when *debug* (format t "match-count ~A~%" match-count))) + (if (eql c (char-code (aref end-tag match-count))) + (incf match-count) + (setf match-count 0)) (if (= match-count (length start-tag)) (if (eql c (char-code #\>)) ; looking for '>' (setf storing-p t)) - (progn - (if (eql c (char-code (aref start-tag match-count))) ; looking for start-tag - (incf match-count) - (progn - (setf match-count 0) - (setf (fill-pointer acc) 0))) ; discard - (when *debug* (format t "match-count ~A~%" match-count)))))))) + (if (eql c (char-code (aref start-tag match-count))) ; looking for start-tag + (incf match-count) + (progn + (setf match-count 0) + (setf (fill-pointer acc) 0)))))))) ; discard (let ((sock nil)) (defun new-reader (host port) -- cgit v1.1