cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed 'make-gemini-iri', was crashing the program when 'port' argument was null.

This commit is contained in:
cage 2021-04-26 19:14:35 +02:00
parent 60d19f9f2d
commit f5ff5cd94d
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/gemini/gemini-parser.lisp
View File

@ -249,11 +249,10 @@
(subseq path 1)
path))
(actual-port (cond
((and (not omit-default-port)
(null default-port))
(to-s +gemini-default-port+))
((or (null default-port)
(= port *omitted-port*))
((null port)
"")
((and omit-default-port
(= port default-port))
"")
(t
(to-s port))))