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

FILL is now declared to be optimize

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-22 16:10:39 +02:00
parent 2c09a7b565
commit fcf22c21de
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lsp/seqlib.lsp
View file

@ -104,7 +104,8 @@
(defun fill (sequence item &key (start 0) end)
;; INV: WITH-START-END checks the sequence type and size.
(with-start-end (start end sequence)
(reckless
(with-start-end (start end sequence)
(if (listp sequence)
(do* ((x (nthcdr start sequence) (cdr x))
(i (- end start) (1- i)))
@ -112,7 +113,7 @@
sequence)
(declare (fixnum i) (cons x))
(setf (first x) item))
(si::fill-array-with-elt sequence item start end))))
(si::fill-array-with-elt sequence item start end)))))
(defun replace (sequence1 sequence2 &key (start1 0) end1 (start2 0) end2)
(with-start-end (start1 end1 sequence1)