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

cosmetic: add c-local declarations

Browse source
This commit is contained in:
Daniel Kochmański 2016-07-28 18:21:20 +02:00
parent 6930c315a6
commit 2062b8fce3
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/seqlib.lsp
View file

@ -872,6 +872,7 @@ evaluates to NIL. See STABLE-SORT."
(defun stable-sort-merge-vectors (source target start-1
end-1 end-2 pred key)
(declare (si::c-local))
(let ((i start-1)
(j end-1) ; start-2
(target-i start-1))
@ -905,6 +906,7 @@ evaluates to NIL. See STABLE-SORT."
(defun vector-merge-sort (vector pred key)
(declare (si::c-local))
(let* ((vector-len (length (the vector vector)))
(n 1) ; bottom-up size of contiguous runs to be merged
(direction t) ; t vector --> temp nil temp --> vector