Skip to content
Snippets Groups Projects
Commit c674ec70 authored by ram's avatar ram
Browse files

Fixed return values for FIND-SYMBOL and INTERN to allow :EXTERNAL.

parent e7bd9729
No related branches found
No related tags found
No related merge requests found
...@@ -261,10 +261,10 @@ ...@@ -261,10 +261,10 @@
(defknown package-shadowing-symbols (package) list (flushable)) (defknown package-shadowing-symbols (package) list (flushable))
(defknown list-all-packages () list (flushable)) (defknown list-all-packages () list (flushable))
(defknown intern (string &optional packagelike) (defknown intern (string &optional packagelike)
(values symbol (member :internal :external nil)) (values symbol (member :internal :external :inherited nil))
()) ())
(defknown find-symbol (string &optional packagelike) (defknown find-symbol (string &optional packagelike)
(values symbol (member :internal :external nil)) (values symbol (member :internal :external :inherited nil))
(flushable)) (flushable))
(defknown (export import) (symbols &optional packagelike) truth) (defknown (export import) (symbols &optional packagelike) truth)
(defknown unintern (symbol &optional packagelike) boolean) (defknown unintern (symbol &optional packagelike) boolean)
......
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