Code: Select all
(iter (for line :in-file "/home/md/.emacs" :using #'read-line)
(print line))
Code: Select all
(iter (for line :in-file "/home/md/.emacs" :using #'read-line)
(print line))
Thanks! Didn't know that.gugamilare wrote:You can use (last list 2) instead:karol.skocik wrote:Code: Select all
(defun before-last (list) (if (cddr list) (before-last (cdr list)) list))
Code: Select all
CL-USER> (last '(1 2 3 4 5 6) 2) (5 6)
Use http://github.com/ks/X.LET-STAR instead of bind, it's user extensible and nicergrault wrote:... I'd suggest metabang-bind ....