SA
Size: a a a
SA
SA
SA
χλ
(declaim (ftype (function (list) (values t boolean &optional)) haskfoo))
(defun haskfoo (list)
(cond ((null list) (values nil nil))
((null (cdr list)) (values (car list) t))
(t (haskfoo (cdr list)))))
(define (last lst)
(match lat
('() '())
((list x) x)
((list-rest x xs) (last xs))))
SA
χλ
SA
SA
χλ
(define (last lst)
(match lat
('() '())
((list x) x)
((list-rest x xs) (last xs))))
SA
SA
SA
SA
χλ
SA
SA
SA
(defun foo (ls)
(car (reverse ls))
a
SA