aboutsummaryrefslogtreecommitdiffhomepage
path: root/gtwiwtg.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'gtwiwtg.lisp')
-rw-r--r--gtwiwtg.lisp18
1 files changed, 0 insertions, 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)