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