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

Bring declaration C-EXPORT-FNAME back into working order. (Was broken a few year ago!)

parent 26dc3d8a
......@@ -147,7 +147,7 @@
;; either because it has been proclaimed so, or because it belongs
;; to the runtime.
((and (<= (cmp-env-optimization 'debug) 1)
(setf fd (get-sysprop fname 'Lfun))
(setf fd (get-sysprop fname 'si::Lfun))
(multiple-value-setq (minarg maxarg) (get-proclaimed-narg fname)))
;;(format t "~&About to call call-exported-function-loc on: ~S~%" fname)(finish-output) ;; debug JCB
(call-exported-function-loc fname args fd minarg maxarg nil))
......
......@@ -368,7 +368,7 @@
(defun exported-fname (name)
(let (cname found)
(if (and (symbolp name) (setf cname (get-sysprop name 'Lfun)))
(if (and (symbolp name) (setf cname (get-sysprop name 'si::Lfun)))
(values cname t)
(if (multiple-value-setq (found cname) (si::mangle-function-name name))
(values cname t)
......
......@@ -292,7 +292,7 @@
(rem-sysprop symbol ':inline-always)
(rem-sysprop symbol ':inline-unsafe)
(rem-sysprop symbol ':inline-safe)
(rem-sysprop symbol 'lfun))
(rem-sysprop symbol 'si::lfun))
(defun lisp-to-c-function-name (obj)
"Translate Lisp function name object prin1 representation to valid C function name"
......
......@@ -1743,7 +1743,7 @@ if not possible."
(warn "The function ~s is already in the runtime. C-EXPORT-FNAME declaration ignored." x)
(put-sysprop x 'Lfun c-name))))
((consp x)
(destructuring-bind (c-name lisp-name) x
(destructuring-bind (lisp-name c-name) x
(if (si::mangle-function-name lisp-name)
(warn "The function ~s is already in the runtime. C-EXPORT-FNAME declaration ignored." lisp-name)
(put-sysprop lisp-name 'Lfun 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