1 665c255d 2023-08-04 jrmu (defun make-deque ()
2 665c255d 2023-08-04 jrmu   (cons '() '()))
3 665c255d 2023-08-04 jrmu (defun front-ptr (deque)
4 665c255d 2023-08-04 jrmu   (car deque))