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