Loading .gitignore +2 −1 Original line number Diff line number Diff line *~ *.html *.fasl system-index.txt No newline at end of file source/patches.lisp +11 −13 Original line number Diff line number Diff line Loading @@ -145,20 +145,18 @@ the files are written into \"/tmp/sites/\". ((eql (first element) :a) element) ((or (and link-tag (member (first element) '(:img :link))) ((and (or (and link-tag (member (first element) '(:img :link))) (and (eql (first element) :input) (string-equal (format nil "~(~a~)" (getf (rest element) :type)) "image") (getf (rest element) :type)) "image"))) (let* ((uri (let ((url-string (getf (rest element) link-tag))) ;; "(\\.\\./)+" "/\\&" (unless url-string (error "~a tag without :href found in ~s" link-tag lhtml)) (net.uri:parse-uri url-string))) (uri-host (net.uri:uri-host uri)) (uri-scheme (net.uri:uri-scheme uri)) (uri-port (net.uri:uri-port uri)) (uri-path (net.uri:uri-path uri))) (declare (ignore uri-path)) (and (null uri-host) (null uri-scheme) (null uri-port))))) (uri-port (net.uri:uri-port uri))) (and (null uri-host) (null uri-scheme) (null uri-port)))) (let* ((element (copy-list element)) (link-path (setf (getf (rest element) link-tag) Loading Loading
.gitignore +2 −1 Original line number Diff line number Diff line *~ *.html *.fasl system-index.txt No newline at end of file
source/patches.lisp +11 −13 Original line number Diff line number Diff line Loading @@ -145,20 +145,18 @@ the files are written into \"/tmp/sites/\". ((eql (first element) :a) element) ((or (and link-tag (member (first element) '(:img :link))) ((and (or (and link-tag (member (first element) '(:img :link))) (and (eql (first element) :input) (string-equal (format nil "~(~a~)" (getf (rest element) :type)) "image") (getf (rest element) :type)) "image"))) (let* ((uri (let ((url-string (getf (rest element) link-tag))) ;; "(\\.\\./)+" "/\\&" (unless url-string (error "~a tag without :href found in ~s" link-tag lhtml)) (net.uri:parse-uri url-string))) (uri-host (net.uri:uri-host uri)) (uri-scheme (net.uri:uri-scheme uri)) (uri-port (net.uri:uri-port uri)) (uri-path (net.uri:uri-path uri))) (declare (ignore uri-path)) (and (null uri-host) (null uri-scheme) (null uri-port))))) (uri-port (net.uri:uri-port uri))) (and (null uri-host) (null uri-scheme) (null uri-port)))) (let* ((element (copy-list element)) (link-path (setf (getf (rest element) link-tag) Loading