diff options
Diffstat (limited to 'queue.lisp')
-rw-r--r-- | queue.lisp | 14 |
1 files changed, 6 insertions, 8 deletions
@@ -1,11 +1,9 @@ -(in-package #:queue) - (declaim (optimize (speed 3) (safety 1))) -(defun new () +(defun queue:new () (cons nil nil)) -(defun add (q datum) +(defun queue:push (datum q) (let ((element (cons datum nil))) (if (car q) (setf (cddr q) element) @@ -13,14 +11,14 @@ (setf (cdr q) element) q)) -(defun sub (q) +(defun queue:pop (q) (pop (car q))) -(defun peek (q) +(defun queue:peek (q) (caar q)) -(defun to-list (q) +(defun queue:to-list (q) (car q)) -(defun from-list (lst) +(defun queue:from-list (lst) (cons lst (last lst))) |