diff options
Diffstat (limited to 'src/util.lisp')
| -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) |