From 97f8b6d2a990fe2e93704460fcdf08701616d7e4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Mon, 23 Jun 2025 02:23:36 -0300 Subject: Update utils --- queue.lisp | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'queue.lisp') 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))) -- cgit v1.2.3