From 227c67f5161f9f5bd752a60347a9076076bed151 Mon Sep 17 00:00:00 2001
From: FluxGenerator <loki_was_here@hotmail.com>
Date: Fri, 4 Feb 2022 16:24:16 +0530
Subject: [PATCH] Fixed make-priority-queue not found.

---
 priority-queue.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/priority-queue.lisp b/priority-queue.lisp
index dd50ed3..a2b1b7c 100644
--- a/priority-queue.lisp
+++ b/priority-queue.lisp
@@ -236,7 +236,7 @@
 (defmethod queue-merge-safe ((queue1 priority-queue) (queue2 priority-queue))
   "Nondestructive merge"
   (when (%queue-compatible-p queue1 queue2)
-    (let* ((new-queue (make-priority-queue :compare (queue-comparison queue1)))
+    (let* ((new-queue (make-queue :priority-queue :compare (queue-comparison queue1)))
            (min1 (deep-copy (min-node-of queue1)))
            (min2 (deep-copy (min-node-of queue2))))
       (%merge min1 min2)
@@ -486,4 +486,4 @@
 
 ;;; ===========================================================================
 ;;; End of file
-;;; ===========================================================================
\ No newline at end of file
+;;; ===========================================================================