mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 13:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic: remove unnecessary assignment

Browse source
This commit is contained in:
Daniel Kochmanski 2017-05-01 12:43:07 +02:00
parent 9a1a4d48c8
commit 91da27b388
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/lsp/defpackage.lsp
View file

@ -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))