Commit 053263e5 authored by Jean-Claude Beaudoin's avatar Jean-Claude Beaudoin
Browse files

Move C-EXPORT-FNAME to package MKCL.

parent f0e423b5
......@@ -1949,7 +1949,7 @@ mkcl_symbol_initializer mkcl_root_symbols[] = {
{{SYS_ "SIMPLE-PACKAGE-ERROR", SI_ORDINARY, NULL, -1, MKCL_OBJNULL}},
{{SYS_ "SIMPLE-READER-ERROR", SI_ORDINARY, NULL, -1, MKCL_OBJNULL}},
{{SYS_ "C-EXPORT-FNAME", SI_ORDINARY, NULL, -1, MKCL_OBJNULL}},
{{SYS_ "C-EXPORT-FNAME", MKCL_EXT_ORDINARY, NULL, -1, MKCL_OBJNULL}},
{{SYS_ "NO-CHECK-TYPE", SI_ORDINARY, NULL, -1, MKCL_OBJNULL}},
{{KEY_ "ABORTED", KEYWORD, NULL, -1, MKCL_OBJNULL}},
......
......@@ -2411,9 +2411,9 @@
;;;
#+(or) ;; commented out until I receive valid motivation to do otherwise. JCB 2021/04/03.
(proclaim
`(SI::C-EXPORT-FNAME
`(MKCL:C-EXPORT-FNAME
si::ecase-error si::etypecase-error si::do-check-type
si::ccase-error si::find-documentation si::find-declarations
si::search-keyword si::check-keyword si::check-arg-length
......
......@@ -1734,7 +1734,7 @@ if not possible."
(warn "The ~A proclamation is not supported at this moment." decl-name))
(DECLARATION
(do-declaration (rest decl) #'error))
(SI::C-EXPORT-FNAME ;; This declaration cannot be used on globally named closures (ie: produced by a "defun"). JCB
(MKCL:C-EXPORT-FNAME ;; This declaration cannot be used on globally named closures (ie: produced by a "defun"). JCB
(dolist (x (cdr decl))
(cond ((symbolp x)
(multiple-value-bind (found c-name)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment