procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(last*): Definition deleted.

Browse source
This commit is contained in:
Richard M. Stallman 1997-08-27 22:35:00 +00:00
parent 369fba5fb7
commit f9efebcae0
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/emacs-lisp/cl.el
View file

@ -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."