Remove unmatched parenthesis

[Affonso-Gui]

Actually noticed some unmatching parenthesis on roseus.l, so am reporting it.

[Affonso-Gui]

@mmurooka Review would be appreciated

[mmurooka]

Looks good to me.
Why was the before-fix program loaded correctly even though parenthesis was unmatch.

[Affonso-Gui]

Euslisp allows to have extra parenthesis in the end or at some cases to omit closing parenthesis.

test.l

(defun foo () (list 1 2 3))))

(defun bar () (list 1 2 3

irteusgl> (load "test.l")
t
irteusgl> (foo)
(1 2 3)
irteusgl> (bar)
(1 2 3)

Another good question is why is this behavior supported.