Function: byte-optimize-nthcdr

byte-optimize-nthcdr is a byte-compiled function defined in byte-opt.el.gz.

Signature

(byte-optimize-nthcdr FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/byte-opt.el.gz
(defun byte-optimize-nthcdr (form)
  (if (= (safe-length form) 3)
      (let ((count (nth 1 form)))
        (cond ((and (integerp count) (<= count 3))
	       (setq form (nth 2 form))
	       (while (>= (setq count (1- count)) 0)
                 (setq form (list 'cdr form)))
	       form)
              ((not (eq (car form) 'nthcdr))
               (cons 'nthcdr (cdr form)))  ; use the nthcdr byte-op
              (t form)))
    form))