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