diff options
Diffstat (limited to 'src/util.lisp')
| -rw-r--r-- | src/util.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/util.lisp b/src/util.lisp index 426acb0..2f3da03 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -81,3 +81,5 @@ when T, Puts the newest items first." (a:subseq* seq 0 limit) seq)))) +(defun drop-last (xs &optional (howmany 1)) + (reverse (nthcdr 1 (reverse xs)))) |