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

/xsrc/external/mit/xedit/dist/lisp/modules/
H A Dlisp.lsp115 (defsetf caddr (list) (value) `(progn (rplaca (cddr ,list) ,value) ,value)) function
123 (defsetf caaddr (list) (value) `(progn (rplaca (caddr ,list) ,value) ,value))
131 (defsetf cdaddr (list) (value) `(progn (rplacd (caddr ,list) ,value) ,value))
/xsrc/external/mit/xedit/dist/lisp/test/
H A Dlist.lsp331 (eql-test 3 #'caddr '(1 2 3 4))

Completed in 5 milliseconds