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

defpackage: cosmetic fix in local functions

Browse source 
dolist returns output directly.
This commit is contained in:
Daniel Kochmanski 2017-04-30 11:55:41 +02:00
parent 4983dee95e
commit 82a50e9ce2
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/lsp/defpackage.lsp
View file

@ -110,7 +110,7 @@
(cerror "Proceed, ignoring this option."
"~s is not a valid DEFPACKAGE option." option)))
(labels ((option-values-list (option options &aux output)
(dolist (o options)
(dolist (o options output)
(let ((o-option (first o)))
(when (string= o-option option)
(let* ((o-package (string (second o)))
@ -120,15 +120,13 @@
:test #'equal)))
(if former-symbols
(setf (cdr former-symbols) o-symbols)
(setq output (acons o-package o-symbols output)))))))
output)
(setq output (acons o-package o-symbols output))))))))
(option-values (option options &aux output)
(dolist (o options)
(dolist (o options output)
(let* ((o-option (first o))
(o-symbols (mapcar #'string (cdr o))))
(when (string= o-option option)
(setq output (union o-symbols output :test #'equal)))))
output))
(setq output (union o-symbols output :test #'equal)))))))
(dolist (option '(:SIZE :LOCK :DOCUMENTATION))
(when (<= 2 (count option options ':key #'car))
(si::simple-program-error "DEFPACKAGE option ~s specified more than once."