mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 11:40:45 -07:00
Code Issues Projects Releases Packages Wiki Activity

defpackage: remove unused function

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

22
src/lsp/defpackage.lsp
View file

@ -245,28 +245,6 @@
(setq symbol (intern name package)))
symbol))
(defun find-duplicates (&rest lists)
(declare (si::c-local))
(let (results)
(loop for list in lists
for more on (cdr lists)
for i from 1
do
(loop for elt in list
as entry = (find elt results :key #'car
:test #'string=)
unless (member i entry)
do
(loop for l2 in more
for j from (1+ i)
do
(if (member elt l2 :test #'string=)
(if entry
(nconc entry (list j))
(setq entry (car (push (list elt i j)
results))))))))
results))
;;;; ------------------------------------------------------------
;;;; End of File
;;;; ------------------------------------------------------------