From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 27 Aug 1997 22:35:00 +0000 (+0000)
Subject: (last*): Definition deleted.
X-Git-Tag: emacs-20.1~363
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9efebcae0faaa4f28b494f7f31a6e3f150b67d6;p=emacs.git

(last*): Definition deleted.
---

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 80db4d9555d..fbfe8808e28 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -499,16 +499,16 @@ SEQ, this is like `mapcar'.  With several, it is like the Common Lisp
   "Return the `cdr' of the `cdr' of the `cdr' of the `cdr' of X."
   (cdr (cdr (cdr (cdr x)))))
 
-(defun last* (x &optional n)
-  "Returns the last link in the list LIST.
-With optional argument N, returns Nth-to-last link (default 1)."
-  (if n
-      (let ((m 0) (p x))
-	(while (consp p) (incf m) (pop p))
-	(if (<= n 0) p
-	  (if (< n m) (nthcdr (- m n) x) x)))
-    (while (consp (cdr x)) (pop x))
-    x))
+;;(defun last* (x &optional n)
+;;  "Returns the last link in the list LIST.
+;;With optional argument N, returns Nth-to-last link (default 1)."
+;;  (if n
+;;      (let ((m 0) (p x))
+;;	(while (consp p) (incf m) (pop p))
+;;	(if (<= n 0) p
+;;	  (if (< n m) (nthcdr (- m n) x) x)))
+;;    (while (consp (cdr x)) (pop x))
+;;    x))
 
 (defun butlast (x &optional n)
   "Returns a copy of LIST with the last N elements removed."