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