(defmethod add-to-queue (object-id (cache standard-cache)) ;; Add an object to the end of the queue. (let ((queue (queue cache))) (when (cache-full-p cache) (queue-remove queue)) (queue-add queue object-id)))