Update utilsHEADmain

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)))