gpesquero/organicmaps
1
Fork 0
forked from organicmaps/organicmaps
Code Pull requests Activity

Review fixes.

Browse source
This commit is contained in:
Yuri Gorshenin 2016-03-24 17:25:32 +03:00
parent a12c870633
commit d7d4537bdd
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
search/search_quality/gen-samples.lisp
View file

@ -110,10 +110,10 @@ exec /usr/local/bin/sbcl --noinform --quit --load $0 --end-toplevel-options "$@"
(defsample query ,ls ,ps ,vs results)))
,@body))))
(defun power-set (list)
(unless list (return-from power-set '(())))
(let ((x (car list))
(ps (power-set (cdr list))))
(defun power-set (seq)
(unless seq (return-from power-set '(())))
(let ((x (car seq))
(ps (power-set (cdr seq))))
(concatenate 'list ps (mapcar #'(lambda (xs) (cons x xs)) ps))))
(defun join-strings (strings)