diff options
author | Linus Nordberg <linus@nordberg.se> | 2009-07-27 16:03:37 +0200 |
---|---|---|
committer | Linus Nordberg <linus@nordberg.se> | 2009-07-27 16:03:37 +0200 |
commit | fca869468e94da7e439136f73335040b009fdc2b (patch) | |
tree | 210ce6b209e0d0dc88d63d995602453f41322a35 | |
parent | f692494a88f37152f1bd863833f6b2601166081b (diff) |
* src/util.lisp: Remove some debug printouts, for increasing
readability of the code by removing some progn's.
-rw-r--r-- | src/util.lisp | 21 |
1 files changed, 8 insertions, 13 deletions
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) |