Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Michael Raskin
thoughtful-theridion
Commits
856571ba
Commit
856571ba
authored
Feb 11, 2019
by
Browse files
Syncing from Monotone at 20190211-024801. Last commit message was Recognise XHTML
parent
651bc655
Changes
1
Show whitespace changes
Inline
Side-by-side
basic-retrieve.lisp
View file @
856571ba
...
@@ -53,6 +53,8 @@
...
@@ -53,6 +53,8 @@
(
declare
(
ignorable
url
headers
code
))
(
declare
(
ignorable
url
headers
code
))
(
cond
((
cl-ppcre:scan
"^text/html(;|$)"
content-type
)
(
cond
((
cl-ppcre:scan
"^text/html(;|$)"
content-type
)
(
ignore-errors
(
html5-parser:parse-html5
content
)))
(
ignore-errors
(
html5-parser:parse-html5
content
)))
((
cl-ppcre:scan
"^text/xhtml(;|$)"
content-type
)
(
ignore-errors
(
html5-parser:parse-html5
content
)))
((
cl-ppcre:scan
"^(text|application)/(x-)?json(;|$)"
((
cl-ppcre:scan
"^(text|application)/(x-)?json(;|$)"
content-type
)
content-type
)
(
ignore-errors
(
cl-json:decode-json-from-string
(
ignore-errors
(
cl-json:decode-json-from-string
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment