From c674ec70d36aef53e3aa20f5f4392d73478e4143 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 29 May 1990 16:09:06 +0000
Subject: [PATCH] Fixed return values for FIND-SYMBOL and INTERN to allow
 :EXTERNAL.

---
 compiler/fndb.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp
index 984a8c86d..24fe703f0 100644
--- a/compiler/fndb.lisp
+++ b/compiler/fndb.lisp
@@ -261,10 +261,10 @@
 (defknown package-shadowing-symbols (package) list (flushable))
 (defknown list-all-packages () list (flushable))
 (defknown intern (string &optional packagelike)
-  (values symbol (member :internal :external nil))
+  (values symbol (member :internal :external :inherited nil))
   ())
 (defknown find-symbol (string &optional packagelike)
-	  (values symbol (member :internal :external nil))
+	  (values symbol (member :internal :external :inherited nil))
 	  (flushable))
 (defknown (export import) (symbols &optional packagelike) truth)
 (defknown unintern (symbol &optional packagelike) boolean)
-- 
GitLab