From 91da27b3884081af3844b0396bb99af06b083eea Mon Sep 17 00:00:00 2001
From: Daniel Kochmanski <daniel@turtleware.eu>
Date: Mon, 1 May 2017 12:43:07 +0200
Subject: [PATCH] cosmetic: remove unnecessary assignment

---
 src/lsp/defpackage.lsp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/lsp/defpackage.lsp b/src/lsp/defpackage.lsp
index 7550cb22f..5474681f7 100644
--- a/src/lsp/defpackage.lsp
+++ b/src/lsp/defpackage.lsp
@@ -131,7 +131,6 @@
       (when (<= 2 (count option options ':key #'car))
         (si::simple-program-error "DEFPACKAGE option ~s specified more than once."
                                   option)))
-    (setq name (string name))
     (let* ((nicknames (option-values ':nicknames options))
            (documentation (option-values ':documentation options))
            (shadowed-symbol-names (option-values ':shadow options))
@@ -171,7 +170,7 @@
                 (2 ':INTERN)))))
       `(eval-when (eval compile load)
          (si::dodefpackage
-          ,name
+          ,(string name)
           ',nicknames
           ,(car documentation)
           ,(cadr (assoc ':lock options))