Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
ac1c7641
Commit
ac1c7641
authored
Oct 25, 2021
by
Dave Cooper
Browse files
make sure parent is of a type to answer descriptive url
parent
31b76794
Changes
1
Hide whitespace changes
Inline
Side-by-side
gwl/source/base-html-sheet.lisp
View file @
ac1c7641
...
...
@@ -384,11 +384,11 @@ values are set into the specified bashee."
(
let
((
url
(
let
((
escaped-strings-for-display
(
html-escape
(
the
strings-for-display
))))
(
if
(
the
parent
)
(
if
(
and
(
the
parent
)
(
typep
(
the
parent
)
'base-html-sheet
))
(
string-append
(
the
parent
descriptive-url-base
)
"/"
escaped-strings-for-display
)
escaped-strings-for-display
))))
escaped-strings-for-display
))))
(
string-downcase
url
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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