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

declare local function local

Browse source
This commit is contained in:
Daniel Kochmanski 2017-05-01 15:48:54 +02:00
parent 720af1f355
commit 214f8e1649
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/lsp/defpackage.lsp
View file

@ -176,6 +176,7 @@
',exported-from-package-names)))))
(defun check-disjoint (&rest args)
(declare (si::c-local))
;; An arg is (:key . set)
(do ((list args (cdr list)))
((endp list))