anchor.diff:             "MAKE-QUEUE"
              "QUEUE-NAME"
              "QUEUE-COUNT"
  +           "QUEUE-EMPTYP"
              "ENQUEUE"
              "DEQUEUE")
     (:documentation "Implements a thread-safe message queue."))
  
positive.code:         (pop (queue-head queue)))))
  
  (defun queue-count (queue)
    (with-lock-held ((queue-lock queue))
      (length (queue-head queue))))
  
  ;;;; THE END ;;;;
  
negative.code: ;;;;AUTHORS
  ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  ;;;;    2017-04-16 <PJB> Aded queue-empty-p.
  ;;;;    2015-08-29 <PJB> Created.
  ;;;;BUGS
  ;;;;LEGAL
  ;;;;    AGPL3
  ;;;;
  ;;;;    Copyright Pascal J. Bourguignon 2015 - 2017
  ;;;;
  ;;;;    This program is free software: you can redistribute it and/or modify
  ;;;;    it under the terms of the GNU Affero General Public License as published by
  