branch: externals/dash
commit 07c61f5a7efe0fcb0085e392666e329d682bd6aa
Author: Matus Goljer <gol...@logio.cz>
Commit: Matus Goljer <gol...@logio.cz>
[#200] Add tests for generalized variables
---
dev/examples.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/dev/examples.el b/dev/examples.el
index e86be35..a35ae33 100644
--- a/dev/examples.el
+++ b/dev/examples.el
@@ -672,11 +672,13 @@ new list."
(defexamples -first-item
(-first-item '(1 2 3)) => 1
- (-first-item nil) => nil)
+ (-first-item nil) => nil
+ (let ((list (list 1 2 3))) (setf (-first-item list) 5) list) => '(5 2 3))
(defexamples -last-item
(-last-item '(1 2 3)) => 3
- (-last-item nil) => nil)
+ (-last-item nil) => nil
+ (let ((list (list 1 2 3))) (setf (-last-item list) 5) list) => '(1 2 5))
(defexamples -butlast
(-butlast '(1 2 3)) => '(1 2)
