| /dports/lang/abcl/abcl-src-1.8.0/src/org/armedbear/lisp/ |
| H A D | nsubstitute.lisp | 60 (setf (aref sequence index) new)
67 (if (listp sequence)
69 (let ((length (length sequence)))
70 (nreverse (nlist-substitute*
71 new old (nreverse sequence)
101 (if (listp sequence)
104 (nreverse (nlist-substitute-if*
105 new test (nreverse sequence)
136 (if (listp sequence)
139 (nreverse (nlist-substitute-if-not*
[all …]
|
| H A D | delete.lisp | 53 (aset sequence jndex (aref sequence index))))
54 (aset sequence jndex (aref sequence index))
74 (aset sequence jndex (aref sequence index))))
75 (aset sequence jndex (aref sequence index))
111 `(let* ((reverse (nreverse sequence))
119 (nreverse (cdr handle)))
142 (let* ((length (length sequence))
145 (sequence::seq-dispatch sequence
174 (let* ((length (length sequence))
177 (sequence::seq-dispatch sequence
[all …]
|
| H A D | map.lisp | 34 (defun map (result-type function sequence &rest more-sequences)
35 (let* ((sequences (cons sequence more-sequences))
43 (dotimes (i limit (nreverse result))
|
| H A D | boot.lisp | 134 (defun length (sequence)
135 (%length sequence))
137 (defun elt (sequence index)
138 (%elt sequence index))
140 (defun subseq (sequence start &optional end)
141 (sys::%subseq sequence start end))
143 (defun reverse (sequence)
144 (sys::%reverse sequence))
146 (defun nreverse (sequence) function
147 (sys::%nreverse sequence))
|
| H A D | substitute.lisp | 85 (let ((result (sys::make-sequence-like sequence length))
89 (setf (aref result index) (aref sequence index))
93 (setq elt (aref sequence index))
108 (setf (aref result index) (aref sequence index))
113 `(sequence::seq-dispatch sequence
115 (nreverse (list-substitute* ,pred new (reverse sequence)
122 (vector-substitute* ,pred new sequence -1 (1- length)
128 (normal `(apply #'sequence:substitute new old sequence args))
135 (let* ((length (length sequence))
142 (let* ((length (length sequence))
[all …]
|
| H A D | remove.lisp | 69 `(let ((sequence (copy-seq sequence)))
98 `(let* ((sequence ,(if reverse-p
100 'sequence))
114 ((null sequence)
116 '(nreverse (cdr results))
161 (let* ((length (length sequence))
164 (sequence::seq-dispatch sequence
175 (let* ((length (length sequence))
178 (sequence::seq-dispatch sequence
189 (let* ((length (length sequence))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/emacs-lisp/ |
| H A D | seq.el | 168 ((or (stringp sequence) (vectorp sequence)) (substring sequence start end))
179 (setq sequence (cdr sequence)))
185 (nreverse res))
196 (nreverse result)))
228 (nreverse result)))
294 (cl-defmethod seq-reverse ((sequence sequence))
451 (nreverse result)))
467 (setq sequence (seq-drop sequence n)))
468 (nreverse result))))
480 (nreverse result)))
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/emacs-lisp/ |
| H A D | seq.el | 158 ((or (stringp sequence) (vectorp sequence)) (substring sequence start end))
167 (setq sequence (nthcdr (1- start) sequence))
169 (setq sequence (cdr sequence)))
175 (nreverse res))
186 (nreverse result)))
218 (nreverse result)))
284 (cl-defmethod seq-reverse ((sequence sequence))
440 (nreverse result)))
456 (setq sequence (seq-drop sequence n)))
457 (nreverse result))))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/mh-e/ |
| H A D | mh-tool-bar.el | 151 (when (or (memq 'folder modes) (memq 'sequence modes))
189 (setq folder-buttons (nreverse folder-buttons)
190 letter-buttons (nreverse letter-buttons)
191 show-buttons (nreverse show-buttons)
192 letter-docs (nreverse letter-docs)
193 folder-docs (nreverse folder-docs)
194 folder-vectors (nreverse folder-vectors)
195 show-vectors (nreverse show-vectors)
196 letter-vectors (nreverse letter-vectors))
224 ,@(nreverse show-button-setter)
[all …]
|
| H A D | mh-seq.el | 52 (defsubst mh-seq-name (sequence)
54 (car sequence))
84 (let ((entry (mh-find-seq sequence))
106 (defun mh-delete-seq (sequence)
117 (mh-iterate-on-range msg sequence
120 (mh-delete-seq-locally sequence)
196 (defun mh-narrow-to-seq (sequence)
208 (cond ((mh-seq-to-msgs sequence)
265 (unless (mh-valid-seq-p sequence)
673 (nreverse msg-list)))
[all …]
|
| /dports/databases/pgloader3/split-sequence-v2.0.0/ |
| H A D | extended-sequence.lisp | 12 '(and sequence (not list) (not vector)))
30 (split-extended-sequence-from-start (lambda (sequence start)
38 (split-extended-sequence-from-end (lambda (sequence end)
42 (split-extended-sequence-from-end (lambda (sequence end)
49 (split-extended-sequence-from-end (lambda (sequence end)
59 (split-extended-sequence-from-end (lambda (sequence end)
70 :with length = (length sequence)
77 :return (values (nreverse subseqs) right)
82 :finally (return (values (nreverse subseqs) (1+ left)))))
88 :with length = (length sequence)
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/mh-e/ |
| H A D | mh-tool-bar.el | 160 (when (or (memq 'folder modes) (memq 'sequence modes))
199 (setq folder-buttons (nreverse folder-buttons)
200 letter-buttons (nreverse letter-buttons)
201 show-buttons (nreverse show-buttons)
202 letter-docs (nreverse letter-docs)
203 folder-docs (nreverse folder-docs)
204 folder-vectors (nreverse folder-vectors)
205 show-vectors (nreverse show-vectors)
206 letter-vectors (nreverse letter-vectors))
240 ,@(nreverse show-button-setter)
[all …]
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
| H A D | defs2.lisp | 37 (mainform `(LET* ,(nreverse %let-list)
39 ,@(nreverse %null-tests)
40 ,@(nreverse %keyword-tests)
249 (veltype (if (vectorp sequence) (array-element-type sequence) t)))
257 'read-sequence sequence stream
263 (apply #'%read-sequence sequence stream rest)
269 (veltype (if (vectorp sequence) (array-element-type sequence) t)))
280 'write-sequence sequence stream
289 (defun trim-if (predicate sequence)
293 (if (and (= beg 0) (= end (length sequence))) sequence
[all …]
|
| /dports/lang/librep/librep_0.92.7/lisp/rep/data/ |
| H A D | string-util.jl | 73 (let ((new (copy-sequence x)))
78 (defun mapconcat (fun sequence separator)
81 (cond ((null sequence) "")
82 ((consp sequence)
84 (let loop ((rest (cdr sequence))
85 (frags (list (fun (car sequence)))))
87 (apply concat (nreverse frags))
90 (t ;; use general sequence operations
91 (let ((len (length sequence)))
95 (frags (list (fun (elt sequence 0)))))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/gnus/ |
| H A D | nnimap.el | 233 (format "%s" (nreverse params))))
367 (mapconcat #'identity (nreverse result) ",")))))
894 (nreverse parts)))
1006 (nreverse articles)))
1265 (when sequence
1406 (nreverse groups)))
1557 (nreverse sequences)))
1785 (nreverse result))))
2087 (nreverse result))))
2128 (nreverse result))))
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/gnus/ |
| H A D | nnimap.el | 213 (format "%s" (nreverse params))))
347 (mapconcat #'identity (nreverse result) ",")))))
844 (nreverse parts)))
956 (nreverse articles)))
1210 (when sequence
1351 (nreverse groups)))
1502 (nreverse sequences)))
1731 (nreverse result))))
2034 (nreverse result))))
2075 (nreverse result))))
[all …]
|
| /dports/databases/pgloader3/cl-containers-20200427-git/dev/ |
| H A D | miscellaneous.lisp | 93 (defun map-window-over-sequence (sequence window-size function)
94 (let* ((size (length sequence))
96 :initial-contents sequence)))
138 (nreverse result)))
150 (nreverse result)))
169 (setf window (nreverse window))
|
| H A D | compatibility.lisp | 30 (nreverse result)))
37 (nreverse result)))
43 (nreverse result)))
192 (defmethod sort-elements ((container sequence) sorter
223 (nreverse result)))
262 (defmethod sort-elements ((container sequence) sorter
323 (nreverse result)))
365 (nreverse result)))
|
| H A D | container-sampling.lisp | 20 (defmethod sample-item ((container sequence)
52 (defmethod sample-element ((container sequence)
109 (nreverse result)))
118 (nreverse result)))
|
| H A D | basic-operations.lisp | 87 (nreverse result)))
357 (loop for item across sequence do
362 (defmethod insert-sequence ((container ordered-container-mixin) (sequence list))
363 (loop for item in sequence do
369 (sequence iteratable-container-mixin))
480 (setf (contents container) (nreverse (contents container)))
482 (setf (contents container) (nreverse (contents container))))
566 (nreverse result)))
668 (nreverse result)))
770 (nreverse result)))
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/code/ |
| H A D | seq.lisp | 969 (defun nreverse (sequence) function
1146 (nreverse reversed-result)))
1223 (nreverse result)))
1571 `(let* ((reverse (nreverse sequence))
1579 (nreverse (cdr handle)))
2236 (nreverse (list-substitute* ,pred
2323 (nreverse (nlist-substitute*
2324 new old (nreverse (the list sequence))
2390 (nreverse (nlist-substitute-if*
2391 new predicate (nreverse (the list sequence))
[all …]
|
| /dports/databases/pgloader3/cl-utilities-1.2.4/ |
| H A D | extremum.lisp | 31 (defun zero-length-p (sequence)
34 (or (null sequence)
35 (when (vectorp sequence)
36 (zerop (length sequence)))))
44 (once-only (sequence start end)
105 sequence)
115 (let* ((sequence (subseq sequence start end))
128 (subseq sequence 1))
131 (nreverse smallest-elements))))
160 (let ((sequence (subseq sequence start end)))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/cedet/semantic/ |
| H A D | analyze.el | 245 (sequence &optional scope typereturn throwsym flags)
255 (let ((s sequence) ; copy of the sequence
265 (setq tmp (semanticdb-typecache-find sequence))
353 (if typereturn (set typereturn (nreverse tagtype)))
355 (nreverse tag)))
763 (while sequence
766 ((semantic-tag-p (car sequence))
768 (car sequence))))
769 ((stringp (car sequence))
774 (princ (format "'%S" (car sequence)))))
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/cedet/semantic/ |
| H A D | analyze.el | 244 (sequence &optional scope typereturn throwsym flags)
253 (let ((s sequence) ; copy of the sequence
263 (setq tmp (semanticdb-typecache-find sequence))
351 (if typereturn (set typereturn (nreverse tagtype)))
353 (nreverse tag)))
759 (while sequence
762 ((semantic-tag-p (car sequence))
764 (car sequence))))
765 ((stringp (car sequence))
770 (princ (format "'%S" (car sequence)))))
[all …]
|
| /dports/databases/pgloader3/zs3-1.3.3/ |
| H A D | xml-binding.lisp | 68 (return (nreverse result)))
203 (nreverse bindings)))
226 (nreverse sub-bindings)
276 (sequence
|