From e9d4c8bdb69adb7ac96073d5f88fadced8f210f0 Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Tue, 14 Apr 1998 12:45:19 +0000 Subject: [PATCH] Allow a character to be a valid parameter to make-package, find-package, rename-package, find-all-symbols, apropos and apropos-list. This needed for ANSI compliance. --- compiler/fndb.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index 2b834ef01..76e6d5af1 100644 --- a/compiler/fndb.lisp +++ b/compiler/fndb.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.79 1998/02/13 16:09:46 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.80 1998/04/14 12:45:19 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -175,20 +175,20 @@ ;;;; In the "Packages" chapter: -(deftype packagelike () '(or stringlike package)) +(deftype packagelike () '(or stringable package)) (deftype symbols () '(or list symbol)) ;;; Should allow a package name, I think, tho CLtL II doesn't say so... (defknown gentemp (&optional string packagelike) symbol) -(defknown make-package (stringlike &key (:use list) (:nicknames list) +(defknown make-package (stringable &key (:use list) (:nicknames list) ;; ### Extensions... (:internal-symbols index) (:external-symbols index)) package) -(defknown find-package (stringlike) (or package null) (flushable)) +(defknown find-package (stringable) (or package null) (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 rename-package (packagelike packagelike &optional list) package) (defknown package-use-list (packagelike) list (flushable)) (defknown package-used-by-list (packagelike) list (flushable)) (defknown package-shadowing-symbols (packagelike) list (flushable)) @@ -205,7 +205,7 @@ (defknown shadowing-import (symbols &optional packagelike) truth) (defknown shadow ((or symbol string list) &optional packagelike) truth) (defknown (use-package unuse-package) ((or list packagelike) &optional packagelike) truth) -(defknown find-all-symbols (stringlike) list (flushable)) +(defknown find-all-symbols (stringable) list (flushable)) ;;;; In the "Numbers" chapter: @@ -1091,8 +1091,8 @@ t) (defknown dribble (&optional filename &key (:if-exists t)) t) -(defknown apropos (stringlike &optional packagelike t) (values)) -(defknown apropos-list (stringlike &optional packagelike t) list (flushable)) +(defknown apropos (stringable &optional packagelike t) (values)) +(defknown apropos-list (stringable &optional packagelike t) list (flushable)) (defknown get-decoded-time () (values (integer 0 59) (integer 0 59) (integer 0 23) (integer 1 31) -- GitLab