# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 929158606 0
# Node ID a134726a4a156741664e19438964a680c43c7a38
# Parent  f88179cfae998354f19f9279c65bda2b8c6f4b4a
(getf): Don't call get*.

diff -r f88179cfae99 -r a134726a4a15 lisp/emacs-lisp/cl-extra.el
--- a/lisp/emacs-lisp/cl-extra.el	Thu Jun 10 01:19:33 1999 +0000
+++ b/lisp/emacs-lisp/cl-extra.el	Sat Jun 12 03:36:46 1999 +0000
@@ -624,7 +624,13 @@
 PROPLIST is a list of the sort returned by `symbol-plist'."
   (setplist '--cl-getf-symbol-- plist)
   (or (get '--cl-getf-symbol-- tag)
-      (and def (get* '--cl-getf-symbol-- tag def))))
+      ;; Originally we called get* here,
+      ;; but that fails, because get* has a compiler macro
+      ;; definition that uses getf!
+      (when def
+	(while (and plist (not (eq (car plist) tag)))
+	  (setq plist (cdr (cdr plist))))
+	(if plist (car (cdr plist)) def))))
 
 (defun cl-set-getf (plist tag val)
   (let ((p plist))