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

- simplified sorting predicate to complete IRI.

This commit is contained in:
cage 2022-09-11 13:40:44 +02:00
parent 9e88fe0e6f
commit c9f76e0f19
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/complete.lisp
View File

@ -214,9 +214,7 @@ list af all possible candidtae for completion."
(non-nulls-a (- length-a nulls-a)) (non-nulls-a (- length-a nulls-a))
(non-nulls-b (- length-b nulls-b))) (non-nulls-b (- length-b nulls-b)))
(cond (cond
((= length-a length-b) ((= nulls-a nulls-b)
(> non-nulls-a non-nulls-b))
((= non-nulls-a non-nulls-b)
(> length-a length-b)) (> length-a length-b))
(t (t
(> non-nulls-a non-nulls-b))))))) (> non-nulls-a non-nulls-b)))))))