Commit e2a31089 authored by Dave Cooper's avatar Dave Cooper
Browse files

fixed cond structure error.

parent 7be6b413
Loading
Loading
Loading
Loading
Loading
+2 −1
Original line number Diff line number Diff line
*~
*.html
*.fasl
system-index.txt
 No newline at end of file
+11 −13
Original line number Diff line number Diff line
@@ -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)