Mercurial > hg > xemacs-beta

comparison lisp/cl-seq.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 41ff10fd062f
children a4f53d9b3154
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
918 (if cl-p 918 (if cl-p
919 (progn (setcdr cl-tree (cdr (car cl-p))) (setq cl-tree nil)) 919 (progn (setcdr cl-tree (cdr (car cl-p))) (setq cl-tree nil))
920 (setq cl-tree (cdr cl-tree)))))) 920 (setq cl-tree (cdr cl-tree))))))
921 921
922 (defun tree-equal (cl-x cl-y &rest cl-keys) 922 (defun tree-equal (cl-x cl-y &rest cl-keys)
923 "T if trees X and Y have `eql' leaves. 923 "Return t if trees X and Y have `eql' leaves.
924 Atoms are compared by `eql'; cons cells are compared recursively. 924 Atoms are compared by `eql'; cons cells are compared recursively.
925 Keywords supported: :test :test-not :key" 925 Keywords supported: :test :test-not :key"
926 (cl-parsing-keywords (:test :test-not :key) () 926 (cl-parsing-keywords (:test :test-not :key) ()
927 (cl-tree-equal-rec cl-x cl-y))) 927 (cl-tree-equal-rec cl-x cl-y)))
928 928