michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(emacs/lean-util): add missing 'cl-' prefix

Browse source
This commit is contained in:
Soonho Kong 2014-08-17 18:07:19 -07:00
parent 72aadd1afa
commit 5fa2b9c057
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/emacs/lean-util.el
View file

@ -48,7 +48,7 @@
(defun lean-take-first-n (seq n)
"Take first n elements from seq"
(cond ((< (length seq) n) seq)
(t (subseq seq 0 n))))
(t (cl-subseq seq 0 n))))
;; -- Test
(cl-assert (equal (lean-take-first-n '(1 2 3 4 5 6 7 8 9 10) 3)
@ -68,7 +68,7 @@
"Take first n elements from seq"
(let ((l (length seq)))
(cond ((< l n) seq)
(t (subseq seq (- l n) l)))))
(t (cl-subseq seq (- l n) l)))))
;; -- Test
(cl-assert (equal (lean-take-last-n '(1 2 3 4 5 6 7 8 9 10) 3)
'(8 9 10)))