From 606f83a9ec6e24d742983989396734db98abfc8b Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 22 Jun 1992 13:54:59 +0000 Subject: [PATCH] Changed the defknown for PACKAGE-NAME to include NIL as a possible result, because that is what it is supposed to return after the package is fed to DELETE-PACKAGE. --- compiler/fndb.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index 658bcf4a9..0aae05511 100644 --- a/compiler/fndb.lisp +++ b/compiler/fndb.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.49 1992/05/16 23:36:15 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.50 1992/06/22 13:54:59 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -180,7 +180,7 @@ (internal-symbols index) (external-symbols index)) package) (defknown find-package (stringlike) (or package null) (flushable)) -(defknown package-name (packagelike) simple-string (flushable)) +(defknown package-name (packagelike) (or simple-string null) (flushable)) (defknown package-nicknames (packagelike) list (flushable)) (defknown rename-package (packagelike stringlike &optional list) package) (defknown package-use-list (packagelike) list (flushable)) -- GitLab