From 047ceab1330609902427fe8dacf410cdb8d24ce1 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sat, 10 Feb 1990 12:50:29 +0000
Subject: [PATCH] Fixed SYMBOL-PACKAGE def to say the result is (OR PACKAGE
 NULL), not just PACKAGE.

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

diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp
index 4dfa5bda2..4eca57607 100644
--- a/compiler/fndb.lisp
+++ b/compiler/fndb.lisp
@@ -239,7 +239,7 @@
 (defknown copy-symbol (symbol &optional t) symbol (flushable))
 (defknown gensym (&optional (or string unsigned-byte)) symbol ())
 (defknown gentemp (&optional string package) symbol)
-(defknown symbol-package (symbol) package (flushable))
+(defknown symbol-package (symbol) (or package null) (flushable))
 (defknown keywordp (t) boolean (flushable))	  ; If someone uninterns it...
 
 
-- 
GitLab