- (char= #\space char-after-tag))
- (if (char= #\> char-after-tag)
- (return-from find-start-tag (values (1+ endtag) nil))
- (let ((endbrack (position-char #\> xmlstr (1+ endtag) end)))
- (if endbrack
- (return-from find-start-tag
- (values (1+ endbrack)
- (string-to-list-skip-delimiter
- (subseq xmlstr endtag endbrack))))
- (values nil nil)))))
+ (char= #\space char-after-tag))
+ (if (char= #\> char-after-tag)
+ (return-from find-start-tag (values (1+ endtag) nil))
+ (let ((endbrack (position-char #\> xmlstr (1+ endtag) end)))
+ (if endbrack
+ (return-from find-start-tag
+ (values (1+ endbrack)
+ (string-to-list-skip-delimiter
+ (subseq xmlstr endtag endbrack))))
+ (values nil nil)))))