mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-31 23:00:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

STACK-PUSH-VALUES did not get inlined

Browse source
This commit is contained in:
jgarcia 2008-02-08 23:53:55 +00:00
parent a7a2937587
commit bebfeb179f
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpenv.lsp
View file

@ -163,7 +163,7 @@
(defun inline-possible (fname)
(not (or ; (compiler-<push-events)
(>= *debug* 2)
;(>= *debug* 2) Breaks compilation of STACK-PUSH-VALUES
(member fname *notinline* :test #'same-fname-p)
(and (symbolp fname) (get-sysprop fname 'CMP-NOTINLINE)))))

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 00:50)")
"@PACKAGE_VERSION@ (CVS 2008-02-09 00:53)")
(defun machine-type ()
"Args: ()