Searched refs:cadadr (Results 1 - 2 of 2) sorted by relevance

/xsrc/external/mit/xedit/dist/lisp/modules/
H A Dlisp.lsp125 (defsetf cadadr (list) (value) `(progn (rplaca (cdadr ,list) ,value) ,value)) function
/xsrc/external/mit/xedit/dist/lisp/test/
H A Dlist.lsp341 (eql-test 3 #'cadadr '(1 (2 3) 4))
607 (eq-eval t '(eq (cadadr a) (cadadr as-list)))
608 (eq-eval t '(eq (cadadr a) (cadadr as-alist)))
609 (eq-eval nil '(eq (cadadr a) (cadadr as-tree)))

Completed in 5 milliseconds