Permalink
Browse files

Export QUEUE-P.

  • Loading branch information...
1 parent 494f168 commit b4b912616293f0a065aa5ca1a091f0260988af3d m2ym committed Sep 14, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 queue.lisp
View
@@ -3,6 +3,7 @@
(defpackage :trivial-queue
(:use :cl)
(:export #:make-queue
+ #:queue-p
#:queue-size
#:queue-empty-p
#:enqueue
@@ -30,7 +31,7 @@
(let ((head initial-contents)
(last (last initial-contents))
(size (length initial-contents)))
- (setq last (setf (cdr last) (cons nil nil)))
+ (setq last (setf (cdr last) cell))
(%make-queue :%head head :%last last :%size size))
(%make-queue :%head cell :%last cell))))

0 comments on commit b4b9126

Please sign in to comment.