From b4f72933479bb92a3642b1d99fd1c6a3ce4b3f6a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <dkochmanski@hellsgate.pl>
Date: Mon, 6 Apr 2015 17:24:35 +0200
Subject: [PATCH] psetf: add test with multiplle-value places.

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

diff --git a/psetf.lsp b/psetf.lsp
index cab62808..140c8677 100644
--- a/psetf.lsp
+++ b/psetf.lsp
@@ -410,4 +410,13 @@
       x y)))
   nil 2 1)
 
+;; Test, if psetf handles correctly multiple values.
+(deftest psetf.41
+    (let ((y 2) (z 3) u x a b c)
+      (psetf (values a b c) (values 1 2 3)
+             (values u x)   (values y z))
+      (values a b c u x))
+  1 2 3 2 3)
+
+
 ;;; TODO: logical-pathname-translations, readtable-case
-- 
GitLab