| /dports/x11/xedit/xedit-1.2.2/lisp/modules/ |
| H A D | lisp.lsp | 106 (defsetf cdr (list) (value) `(progn (rplacd ,list ,value) ,value))
110 (defsetf cdar (list) (value) `(progn (rplacd (car ,list) ,value) ,value))
111 (defsetf cddr (list) (value) `(progn (rplacd (cdr ,list) ,value) ,value))
116 (defsetf cdaar (list) (value) `(progn (rplacd (caar ,list) ,value) ,value))
117 (defsetf cdadr (list) (value) `(progn (rplacd (cadr ,list) ,value) ,value))
118 (defsetf cddar (list) (value) `(progn (rplacd (cdar ,list) ,value) ,value))
119 (defsetf cdddr (list) (value) `(progn (rplacd (cddr ,list) ,value) ,value))
128 (defsetf cdaaar (list) (value) `(progn (rplacd (caaar ,list) ,value) ,value))
129 (defsetf cdaadr (list) (value) `(progn (rplacd (caadr ,list) ,value) ,value))
130 (defsetf cdadar (list) (value) `(progn (rplacd (cadar ,list) ,value) ,value))
[all …]
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/util/ |
| H A D | set1-macros.sl | 120 (cdr rplacd)
149 (cdar ,(car-cdr-setf rplacd car))
150 (cddr ,(car-cdr-setf rplacd cdr))
151 (cdaar ,(car-cdr-setf rplacd caar))
152 (cddar ,(car-cdr-setf rplacd cdar))
153 (cdadr ,(car-cdr-setf rplacd cadr))
154 (cdddr ,(car-cdr-setf rplacd cddr))
155 (cdaaar ,(car-cdr-setf rplacd caaar))
156 (cddaar ,(car-cdr-setf rplacd cdaar))
157 (cdadar ,(car-cdr-setf rplacd cadar))
[all …]
|
| H A D | merge-sort.sl | 82 then (rplacd end b) (return val)
85 then (rplacd end a) (return val)
89 then (rplacd end a) (setq a (cdr a))
91 else (rplacd end b) (setq b (cdr b)))
114 (rplacd end nil)
|
| /dports/math/reduce/Reduce-svn5758-src/packages/matrix/ |
| H A D | brsltnt_bmap.red | 125 a0: rplacd(r, nil);
147 then return rplacd(u, v)
150 then <<rplacd(lt ru, x); u := ru>>
151 else rplacd(u, red ru);
154 then <<rplaca(rplacd(ru, lt ru . red ru), lt v);
171 then rp := cdr rplacd(rp, lor(x, y) .*
192 else rplacd(rp, red rrp)
212 else rplacd(rp, red rrp)
233 for each x on u do rplacd(lt x, quotf1(lc x, v));
246 rplacd(car v, cdar v + 1);
[all …]
|
| /dports/audio/audacity/audacity-Audacity-3.1.3/lib-src/libnyquist/nyquist/xlisp/ |
| H A D | xllist.c | 129 if (val) rplacd(last,next); in xlist()
166 if (val) rplacd(last,nextarg()); in xappend()
393 if (val) rplacd(last,next); in xremove()
438 if (val) rplacd(last,next); in remif()
625 if (val) rplacd(last,p); in map()
668 rplacd(list,newcdr); in xrplcd()
742 rplacd(last,cdr(list)); in xdelete()
893 rplacd(list,*psmaller); in splitlist()
897 rplacd(list,*plarger); in splitlist()
910 rplacd(pivot,larger); in gluelists()
[all …]
|
| /dports/math/reduce/Reduce-svn5758-src/packages/assist/ |
| H A D | sl2psl.red | 43 if null l1 then rplacd(list l2,lastpair l2) else
44 if null car l1 then rplacd(rplaca(l1,l2),l2) else
45 <<rplacd(cdr l1 ,l2); rplacd(l1, lastpair l2)>>;
50 if null car l then rplacd(rplaca(l,elm),elm) else
51 <<rplacd(cdr l,elm);rplacd(l,elm)>>
67 if elm eq cadr l then rplacd(l,cddr l) else
|
| /dports/math/maxima/maxima-5.43.2/share/sym/ |
| H A D | tri.lisp | 31 (rplacd polynome (cddr polynome))
39 (if (null (cdr polynome)) (rplacd polynome (list $monome))
44 (rplacd polynome (cddr polynome))
48 (t (rplacd polynome
|
| H A D | treillis.lisp | 59 ((eql 0 pui) (rplacd ltreillis (list (reverse poule))))
87 (rplacd lpart (list (reverse partition))))
121 (rplacd lpart (list (reverse partition))))
|
| /dports/math/maxima/maxima-5.43.2/share/algebra/ |
| H A D | grob1.lisp | 227 (rplacd p1 (cddr p1)))
236 (rplacd p (cddr p)))
242 (setq p (cdr (rplacd p (cons
337 (rplacd p1 (cddr p1)))
352 (rplacd p (cddr p)))
358 (setq p (cdr (rplacd p (cons
551 (setq r (cdr (rplacd r
567 (setq nvpa (cdr (rplacd nvpa
572 (setq nvpa (cdr (rplacd nvpa
584 (rplacd l (cddr l)))
[all …]
|
| /dports/lang/librep/librep_0.92.7/lisp/rep/vm/ |
| H A D | peephole.jl | 138 (rplacd insn0 nil)
173 (rplacd insn0 nil)
193 (rplacd insn1 nil)
267 (rplacd insn0 nil)
345 (rplacd insn1 arg)
352 (rplacd insn0 nil)
380 (rplacd (car tem) nil)
437 (rplacd insn0 nil)
490 (rplacd tem label)))
531 (rplacd insn1 nil)
[all …]
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/benchmarks/ |
| H A D | traverse.lisp | 45 (rplacd p (cdr (car q))))))))
49 ((= n 0) (prog2 () (car q) (rplacd q p)))
62 (rplacd x x) x)))
65 (rplacd x x)
68 (rplacd (car q) `(,a .,(cdr (car q))))))))
75 ((= m 0) (setq a `(,(rplacd p a)))
|
| /dports/math/maxima/maxima-5.43.2/src/ |
| H A D | schatc.lisp | 187 (rplacd x (cddr x)))
292 (rplacd e nil)
353 (rplacd e nil)
485 (rplacd y (cddr y)))
499 (rplacd (caadr y) (cdadr y))
500 (rplacd y (cddr y)))
510 (rplacd y (cddr y)))
512 (rplacd y (cddr y))
519 (rplacd (caadr y) (cdadr y)))
520 (rplacd y (cddr y))))
[all …]
|
| H A D | defcal.lisp | 107 (rplacd tree (add2cstr1 (cdr x) (cdr tree))))
112 (rplacd (car tree) (add2cstr1 (cdr x) (cdar tree)))
115 (rplacd tree (list x))
117 (t (rplacd tree (add2cstr1 x (cdr tree)))
|
| H A D | trgred.lisp | 188 (sp1tlin (rplacd l (cddr l)) trig))
319 (rplacd buc (list (cons f n))))
329 (rplacd (cadr buc) (neg n)))
330 (t (rplacd (cadr buc) n)))))
335 (rplacd buc (cddr buc))
340 (rplacd buc (cddr buc))
349 (rplacd buc (list (cons f n))))
351 (rplacd (cadr buc) (m+ n (cdadr buc))))
421 (rplacd l (cddr l))
428 (rplacd l (cddr l))
[all …]
|
| H A D | mhayat.lisp | 112 (defmacro del-lt (ps) `(rplacd (cddr ,ps) (cddddr ,ps)))
115 (cond ((null adding?) `(rplacd ,terms nil))
117 `(rplacd ,terms (cons ,term-or-e (cdr ,terms))))
118 (`(rplacd ,terms (cons (cons ,term-or-e ,c) (cdr ,terms))))))
125 (defmacro change-coef (terms coef) `(rplacd (lt ,terms) ,coef))
127 (defmacro change-lc (terms coef) `(rplacd (lt ,terms) ,coef))
|
| /dports/math/maxima/maxima-5.43.2/share/simplification/ |
| H A D | scifac.lisp | 73 (t (rplacd follow (append (ncons 1) rem-prod))
96 (rplacd term1 (cddr term1))
100 (rplacd in-follow (append (cdr pluscontac) (cdr redu-const)))
125 (rplacd leadnum (append (ncons 1) (cdr leadnum))))
171 (rplacd (nthcdr (1- plnum) term) (cdr point))
178 … (rplacd d-follow (append (cdr pluscontac) (cdr deflate)))
253 (rplacd lcl exp)
272 (rplacd back (append fit (cdr lom)))
288 (rplacd backpnt (append fit (cdr inlev)))
|
| /dports/math/reduce/Reduce-svn5758-src/packages/reduce4/ |
| H A D | ranks.red | 61 then rplaca(rplacd(tree,car tree . cdr tree),
64 then rplacd(tree,{{noargs,
75 % rplacd(car tree,{disambop,coarity})>>
80 then rplaca(rplacd(tree,car tree . cdr tree),
83 then rplacd(tree,{mkranklist(arity,disambop,coarity)})
106 else rplaca(rplacd(u,car u . cdr u),cadr v) %%% IN FASL VERSION
123 % rplacd(y,cdr coarity)>>
|
| /dports/math/reduce/Reduce-svn5758-src/csl/cslbase/ |
| H A D | newcslgc.cpp | 298 { Abstract::rplacd(pr, v[i]);
301 Abstract::rplacd(pr, Abstract::nil());
312 Abstract::rplacd(w, l1);
317 Abstract::rplacd(w, l2);
333 { Abstract::rplacd(rp, w);
345 { Abstract::rplacd(rp, w);
354 if (Abstract::isNil(l1)) Abstract::rplacd(rp, l2);
355 else Abstract::rplacd(rp, l1);
374 static void rplacd(Page *p, Page *x) in rplacd() function in PageListClass
402 static void rplacd(uintptr_t p, uintptr_t x) in rplacd() function in PinChainClass
|
| /dports/lang/abcl/abcl-src-1.8.0/src/org/armedbear/lisp/ |
| H A D | ldiff.lisp | 44 (progn (rplacd splice list) (cdr result))))
47 (setq splice (cdr (rplacd splice (list (car list))))))))
|
| H A D | copy-seq.lisp | 50 (cdr (rplacd splice (cons (car x) '() ))) ))
52 (rplacd splice x))
|
| H A D | butlast.lisp | 49 (setq splice (cdr (rplacd splice (list (car top))))))))))
63 (rplacd 2nd ())
|
| H A D | remove-duplicates.lisp | 44 (setq splice (cdr (rplacd splice (list (car current)))))
65 (setq splice (cdr (rplacd splice (list (car current))))))
69 (setq splice (cdr (rplacd splice (list (car current)))))
|
| H A D | sort.lisp | 222 (rplacd p list2) ; append the lesser list to last cell of
226 (rplacd p list1)
230 (rplacd p list1)
234 (rplacd p list2)
252 (rplacd p list2) ; append the lesser list to last cell of
256 (rplacd p list1)
260 (rplacd p list1)
264 (rplacd p list2)
|
| /dports/lang/librep/librep_0.92.7/lisp/rep/data/ |
| H A D | queues.jl | 60 (rplacd cell new)
63 (rplacd (car cell) new)
73 (rplacd cell (cdr (cdr cell)))
75 (rplacd cell '())
100 (rplacd ptr (cddr ptr))
|
| /dports/x11-wm/sawfish/sawfish_1.13.0/lisp/sawfish/wm/edge/ |
| H A D | flip.jl | 64 (rplacd ptr (- (screen-height) 2))))
67 (rplacd ptr 1))))
91 (rplacd ptr (- (screen-height) 2)))
94 (rplacd ptr 1)))
|