From 101cddc1b1b4826a0be9029bf439fc628f8a9722 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Wed, 17 Oct 2001 18:41:17 +0000
Subject: [PATCH] When compiling PSETQ, the arguments would be evaluated in the
 wrong order.

---
 src/cmp/cmpvar.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpvar.lsp b/src/cmp/cmpvar.lsp
index 3f1ffe113..7eec7a584 100644
--- a/src/cmp/cmpvar.lsp
+++ b/src/cmp/cmpvar.lsp
@@ -376,7 +376,7 @@
       (cmpck (endp (cdr l))
              "No form was given for the value of ~s." var)
       (setq var (chk-symbol-macrolet var))
-      (setq args (list* var (second l) args))
+      (setq args (nconc args (list var (second l))))
       (if (symbolp var)
 	(cmpck (constantp var)
 	       "The constant ~s is being assigned a value." var)