Searched refs:cadr (Results 1 - 5 of 5) sorted by relevance

/xsrc/external/mit/xedit/dist/lisp/modules/
H A Dxedit.lsp288 (if (cadr element)
301 (if (cadr element)
318 (if (cadr element)
332 (car values) (cadr values) (cddr values) ;; ~A=~A~{&~A=~A~}
H A Dindent.lsp457 (keywordp (cadr item))
818 test (cadr rule)
1119 (nconc (nreverse ind-matches) ind-cache) #'< :key #'cadr
1159 (rplaca ind-matches (cadr ind-matches))
1198 ind-left (cadr ind-match)
1268 ind-end (cadr ind-match)
1323 (+ (cadr ind-tright)
1412 *ind-offset* (cadr item)
H A Dlisp.lsp109 (defsetf cadr (list) (value) `(progn (rplaca (cdr ,list) ,value) ,value)) function
113 (defsetf caadr (list) (value) `(progn (rplaca (cadr ,list) ,value) ,value))
117 (defsetf cdadr (list) (value) `(progn (rplacd (cadr ,list) ,value) ,value))
H A Dsyntax.lsp929 (rplaca match (cadr match))
1034 (stable-sort (nconc (nreverse matches) cache) #'< :key #'cadr)
1096 left (cadr match)
1108 from (cadr item)
1150 from (cadr item)
1415 right (cadr item)
/xsrc/external/mit/xedit/dist/lisp/test/
H A Dlist.lsp325 (eql-test 2 #'cadr '(1 2))
592 (equal-test '("two" 3) #'rplaca (cadr x) "two")
595 (eq-eval t '(eq (cadr a) (cadr b)))
598 (eq-eval nil '(eq (cadr a) (cadr b)))
700 (eq-eval t '(eq (car x) (cadr x)))
1288 (equal-eval '(5 B C) '(push 5 (cadr x)))
1293 (equal-eval '(5 b c) '(pushnew 5 (cadr x)))
1295 (equal-eval '(5 b c) '(pushnew 'b (cadr
[all...]

Completed in 6 milliseconds