Parent Directory | Revision Log | 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*)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |