Function: doctor-wherego

doctor-wherego is a byte-compiled function defined in doctor.el.gz.

Signature

(doctor-wherego SENT)

Source Code

;; Defined in /usr/src/emacs/lisp/play/doctor.el.gz
(defun doctor-wherego (sent)
  (cond ((null sent) (doc$ doctor--whereoutp))
	((null (doctor-meaning (car sent)))
	 (doctor-wherego (cond ((zerop (random 2))
				(reverse (cdr sent)))
			       (t (cdr sent)))))
	(t
	 (setq doctor-found (car sent))
	 (doctor-meaning (car sent)))))