/[emacs]/emacs/lisp/emacs-lisp/cl-macs.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl-macs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by monnier, Fri Nov 30 09:20:17 2001 UTC revision 1.34 by pj, Thu Dec 20 18:51:32 2001 UTC
# Line 2376  Otherwise, return result of last FORM." Line 2376  Otherwise, return result of last FORM."
2376            v)            v)
2377        (if (eq x (car v)) (cdr v) '(t)))))        (if (eq x (car v)) (cdr v) '(t)))))
2378    
2379  ;;; Count number of times X refers to Y.  Return NIL for 0 times.  ;;; Count number of times X refers to Y.  Return nil for 0 times.
2380  (defun cl-expr-contains (x y)  (defun cl-expr-contains (x y)
2381    (cond ((equal y x) 1)    (cond ((equal y x) 1)
2382          ((and (consp x) (not (memq (car-safe x) '(quote function function*))))          ((and (consp x) (not (memq (car-safe x) '(quote function function*))))

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26