Searched refs:cdddr (Results 1 - 3 of 3) sorted by relevance

/xsrc/external/mit/xedit/dist/lisp/modules/
H A Dlisp.lsp119 (defsetf cdddr (list) (value) `(progn (rplacd (cddr ,list) ,value) ,value)) function
127 (defsetf cadddr (list) (value) `(progn (rplaca (cdddr ,list) ,value) ,value))
135 (defsetf cddddr (list) (value) `(progn (rplacd (cdddr ,list) ,value) ,value))
H A Dxedit.lsp108 (setq syntax (cddr (find symbol *auto-modes* :key #'cdddr)))
/xsrc/external/mit/xedit/dist/lisp/test/
H A Dlist.lsp335 (eql-test 4 #'cdddr '(1 2 3 . 4))
1033 (eq-test (cdddr a) #'member-if-not #'zerop a :key #'(lambda (x) (mod x 3)))
1078 (eq-test y #'cdddr x)

Completed in 5 milliseconds