From 72c255bc1139ed1924bc544a4413c44a6441faed Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 31 Oct 2020 10:50:34 -0500 Subject: removing superfluous utilities --- gtwiwtg.lisp | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp index cb299bd..1f46c9a 100644 --- a/gtwiwtg.lisp +++ b/gtwiwtg.lisp @@ -321,24 +321,6 @@ The last generated value of the returned generator will be NIL. (from-input-stream (open file :element-type '(unsigned-byte 8)) (lambda (stream) (read-byte stream nil nil)))) -;;; Some utilities - -(defun make-queue () - (cons nil nil)) - -(defun enqueue (x q) - (push x (car q))) - -(defun dequeue (q) - (when (and (car q) (null (cdr q))) - (setf (cdr q) (reverse (car q)) - (car q) nil)) - (when (cdr q) (pop (cdr q)))) - -(defun queue-empty-p (q) - (and (null (car q)) - (null (cdr q)))) - ;;; Some assertion tests (defun all-different (things) -- cgit v1.2.3