Skip to content
Snippets Groups Projects
Commit e9d4c8bd authored by pw's avatar pw
Browse files

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.
parent c6cafb7f
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -175,20 +175,20 @@
;;;; In the "Packages" chapter: ;;;; In the "Packages" chapter:
(deftype packagelike () '(or stringlike package)) (deftype packagelike () '(or stringable package))
(deftype symbols () '(or list symbol)) (deftype symbols () '(or list symbol))
;;; Should allow a package name, I think, tho CLtL II doesn't say so... ;;; Should allow a package name, I think, tho CLtL II doesn't say so...
(defknown gentemp (&optional string packagelike) symbol) (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... ;; ### Extensions...
(:internal-symbols index) (:external-symbols index)) (:internal-symbols index) (:external-symbols index))
package) 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-name (packagelike) (or simple-string null) (flushable))
(defknown package-nicknames (packagelike) list (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-use-list (packagelike) list (flushable))
(defknown package-used-by-list (packagelike) list (flushable)) (defknown package-used-by-list (packagelike) list (flushable))
(defknown package-shadowing-symbols (packagelike) list (flushable)) (defknown package-shadowing-symbols (packagelike) list (flushable))
...@@ -205,7 +205,7 @@ ...@@ -205,7 +205,7 @@
(defknown shadowing-import (symbols &optional packagelike) truth) (defknown shadowing-import (symbols &optional packagelike) truth)
(defknown shadow ((or symbol string list) &optional packagelike) truth) (defknown shadow ((or symbol string list) &optional packagelike) truth)
(defknown (use-package unuse-package) ((or list packagelike) &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: ;;;; In the "Numbers" chapter:
...@@ -1091,8 +1091,8 @@ ...@@ -1091,8 +1091,8 @@
t) t)
(defknown dribble (&optional filename &key (:if-exists t)) t) (defknown dribble (&optional filename &key (:if-exists t)) t)
(defknown apropos (stringlike &optional packagelike t) (values)) (defknown apropos (stringable &optional packagelike t) (values))
(defknown apropos-list (stringlike &optional packagelike t) list (flushable)) (defknown apropos-list (stringable &optional packagelike t) list (flushable))
(defknown get-decoded-time () (defknown get-decoded-time ()
(values (integer 0 59) (integer 0 59) (integer 0 23) (integer 1 31) (values (integer 0 59) (integer 0 59) (integer 0 23) (integer 1 31)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment