From fcf22c21de6858b3648a804a7945ff1a3d5c6ed8 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 22 May 2010 16:10:39 +0200 Subject: [PATCH] FILL is now declared to be optimize --- src/lsp/seqlib.lsp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/lsp/seqlib.lsp b/src/lsp/seqlib.lsp index 4e28cd579..11f20173d 100644 --- a/src/lsp/seqlib.lsp +++ b/src/lsp/seqlib.lsp @@ -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)