mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-01 15:20:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Calls to functions defined later in the same file were still done directly

Browse source
This commit is contained in:
jgarcia 2008-02-09 19:38:50 +00:00
parent 03d20e559b
commit fadcaf2d0c
2 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/cmp/cmpcall.lsp
View file

@ -163,12 +163,13 @@
(setq loc (inline-function fname args return-type)))
loc)
;; Call to a function defined in the same file.
((and (fun-p loc) (<= *debug* 1))
(call-loc fname loc narg args))
((and (null loc) (setf loc (find fname *global-funs* :test #'same-fname-p
:key #'fun-name)))
;; Call to a function defined in the same file. Direct calls are
;; only emitted for low or neutral values of DEBUG is >= 2.
((and (<= *debug* 1)
(or (fun-p loc)
(and (null loc)
(setf loc (find fname *global-funs* :test #'same-fname-p
:key #'fun-name)))))
(call-loc fname loc narg args))
;; Call to a global (SETF ...) function

2
src/lsp/config.lsp.in
View file

@ -24,7 +24,7 @@ Returns, as a string, the location of the machine on which ECL runs."
(defun lisp-implementation-version ()
"Args:()
Returns the version of your ECL as a string."
"@PACKAGE_VERSION@ (CVS 2008-02-09 16:27)")
"@PACKAGE_VERSION@ (CVS 2008-02-09 20:37)")
(defun machine-type ()
"Args: ()