summaryrefslogtreecommitdiff
path: root/queue.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'queue.lisp')
-rw-r--r--queue.lisp14
1 files changed, 6 insertions, 8 deletions
diff --git a/queue.lisp b/queue.lisp
index c900731..3e02a36 100644
--- a/queue.lisp
+++ b/queue.lisp
@@ -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)))