Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /src/lsp/setf.lsp [d6b3e9] .. [c020d3] Maximize Restore

  Switch to side-by-side view

--- a/src/lsp/setf.lsp
+++ b/src/lsp/setf.lsp
@@ -550,15 +550,15 @@
 		  (V VALS (CDR V))
 		  (LET-LIST NIL (CONS (LIST (CAR D) (CAR V)) LET-LIST)))
 		 ((NULL D)
-		  (SETQ LET-LIST (APPEND (NREVERSE ALL-VARS) LET-LIST))
-		  (PUSH
-		   (LIST
-		    (CAR STORES)
-		    (IF (AND (LISTP %REFERENCE) (EQ (CAR %REFERENCE) 'THE))
-			(LIST 'THE (CADR %REFERENCE)
-			      (LIST* (QUOTE ,function) GETTER ,@varlist ,restvar))
-			(LIST* (QUOTE ,function) GETTER (MAPCAR #'CAR ALL-VARS))))
-		   LET-LIST)
+		  (SETQ LET-LIST
+			(LIST*
+			 (LIST
+			  (CAR STORES)
+			  (IF (AND (LISTP %REFERENCE) (EQ (CAR %REFERENCE) 'THE))
+			      (LIST 'THE (CADR %REFERENCE)
+				    (LIST* (QUOTE ,function) GETTER ,@varlist ,restvar))
+			      (LIST* (QUOTE ,function) GETTER (MAPCAR #'CAR ALL-VARS))))
+			 (APPEND ALL-VARS LET-LIST)))
 		  `(LET* ,(NREVERSE LET-LIST)
 		     (DECLARE (:READ-ONLY ,@(mapcar #'first all-vars)
 					  ,@vars))