From 817679e7c1d4ba4906eb40b25c5ef53c70fc23f3 Mon Sep 17 00:00:00 2001
From: Robert Strandh <robert.strandh@gmail.com>
Date: Thu, 2 Apr 2015 08:32:18 +0200
Subject: [PATCH] Added a test for the number of values returned by SHIFTF.

---
 shiftf.lsp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/shiftf.lsp b/shiftf.lsp
index fec210f8..eb82f448 100644
--- a/shiftf.lsp
+++ b/shiftf.lsp
@@ -79,4 +79,13 @@
       x y)))
   1 2 foo)
 
+;;; Test that SHIFTF returns a single value, even though the first
+;;; place has multiple values.
+(deftest shiftf.7
+  (let ((x 'a) (y 'b))
+    (values
+     (multiple-value-list (shiftf (values x y) (floor 10 3)))
+     x y))
+  (a) 3 1)
+
 ;;; Need to add more shiftf tests here
-- 
GitLab