diff options
| -rw-r--r-- | app/search.lisp | 4 | ||||
| -rw-r--r-- | lib/client.lisp | 2 |
2 files changed, 2 insertions, 4 deletions
diff --git a/app/search.lisp b/app/search.lisp index 0cd454c..f54cfa2 100644 --- a/app/search.lisp +++ b/app/search.lisp @@ -55,9 +55,7 @@ (ol:search-for-oneliners args limit - (cli:getopt cmd :no-flagged) - (cli:getopt cmd :flagged) - (cli:getopt cmd :newest))) + (cli:getopt cmd :no-flagged))) ;; if no search terms, but --newest or -n ((cli:getopt cmd :newest) diff --git a/lib/client.lisp b/lib/client.lisp index a526b5c..8a8c4be 100644 --- a/lib/client.lisp +++ b/lib/client.lisp @@ -27,7 +27,7 @@ ;;; GETTING ONELINERS & DISPLAYING ONELINERS -(defun search-for-oneliners (terms limit &optional not-flagged-p all-flagged-p newestp) +(defun search-for-oneliners (terms limit &optional not-flagged-p) (assert (loop for term in terms never (find #\, term)) () "Search terms may not contain commas.") (let ((json (api:get-oneliners (str:join "," terms) |