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