From 5fa2b9c057d8edd339d8408cffacfaf6b4eb6bfb Mon Sep 17 00:00:00 2001 From: Soonho Kong Date: Sun, 17 Aug 2014 18:07:19 -0700 Subject: [PATCH] fix(emacs/lean-util): add missing 'cl-' prefix --- src/emacs/lean-util.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/emacs/lean-util.el b/src/emacs/lean-util.el index 284ac91186..db89814fcc 100644 --- a/src/emacs/lean-util.el +++ b/src/emacs/lean-util.el @@ -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)))