From e5da56547d03e9831540d909c68dcad3d6491052 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Thu, 15 Aug 2024 14:53:34 -0700
Subject: [PATCH] Fix typo in display-html-help

"base-basename" -> base-name
---
 src/macdes.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/macdes.lisp b/src/macdes.lisp
index 46b07c6ee..b0c35d9e6 100644
--- a/src/macdes.lisp
+++ b/src/macdes.lisp
@@ -160,7 +160,7 @@
     (when found-it
       (destructuring-bind (base-name . id)
 	  found-it
-	(let ((url (if (pathname-directory base-basename)
+	(let ((url (if (pathname-directory base-name)
                        base-name
                        (concatenate 'string
 				$url_base
-- 
2.11.4.GIT