- fixed 'absolute-url-p'.

src/iri-parser.lisp

@@ -405,7 +405,8 @@
          (null (iri:host   iri)))))
 
 (defun absolute-url-p (url)
-  (not (relative-url-p url)))
+  (and (not (relative-url-p url))
+       (iri:iri-parse url :null-on-error t)))
 
 (defun absolute-url-scheme-p (url expected-scheme)
   (when-let ((parsed-iri (iri:iri-parse url :null-on-error t)))

src/text-utils.lisp

@@ -749,7 +749,7 @@ printed in the box column by column; in the example above the results are:
                                                     constants:+internal-scheme-local-posts+)))
   "Collect all hyperlinks in a text marked from a list of valid `schemes'"
   (flet ((build-re-scheme ()
-           (let ((res ""))
+           (let ((res "^"))
              (loop for (scheme . rest) on schemes do
                (if rest
                    (setf res (strcat res "(" scheme ")|"))