From 952656322e7af73ad16615ab6d1be9986db54623 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 13 Jun 1990 15:33:38 +0000
Subject: [PATCH] INTERN can't return NIL as its second value.

---
 compiler/fndb.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp
index deae97cf2..257759b70 100644
--- a/compiler/fndb.lisp
+++ b/compiler/fndb.lisp
@@ -261,7 +261,7 @@
 (defknown package-shadowing-symbols (package) list (flushable))
 (defknown list-all-packages () list (flushable))
 (defknown intern (string &optional packagelike)
-  (values symbol (member :internal :external :inherited nil))
+  (values symbol (member :internal :external :inherited))
   ())
 (defknown find-symbol (string &optional packagelike)
 	  (values symbol (member :internal :external :inherited nil))
-- 
GitLab