Fix ACD-19624: we should not append extra whitespace before right paren at the end of line (#139)

Fix ACD-19624: we should not append extra whitespace before right paren at the end of line (#139)

Author: Sen-real

extension/src/format/sexpression.ts

@@ -822,8 +822,12 @@ export class Sexpression extends LispAtom {
         }
 
         // Last atom may be )
-        if (hasCloseParen)
-            res += this.formatLastAtom(startColumn, columnWidth, this.isMultilineString(res));
+        if (hasCloseParen) {
+            let str2Append = this.formatLastAtom(startColumn, columnWidth, this.isMultilineString(res));
+            if(str2Append === ')')
+                res = res.trimRight(); // to avoid extra whitespace before the closing paren.
+            res += str2Append;
+        }
 
         return res;
     }

extension/src/test/Baseline/formatedBasefile16.lsp

@@ -2,7 +2,7 @@
 (defun c:flower (/ R1 n1 n2 pt1 pt2 pt3 pt4 pt5) 
       (princ "中文测试")
       (setq lst '("abc" nil nil 1 nil 10 nil 12))
-      (setq centerPt0 (getpoint "\n Please pick point in screen" )
+      (setq centerPt0 (getpoint "\n Please pick point in screen")
             R1        5
             R2        (* 2 R1)
             R3        R1

extension/src/test/Baseline/formatedBasefile5.lsp

@@ -3,7 +3,7 @@
                        ) 
 
   (defun *error* (msg) 
-    (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*") ) 
+    (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*")) 
       (princ (strcat "\nError: " msg))
     )
     (princ)