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

Silence the compiler notes about inlined functions

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-18 16:59:22 +01:00
parent 62b981627a
commit f0b11d639c
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-fun.lsp
View file

@ -157,6 +157,6 @@
(flag (assoc fname x :test #'same-fname-p)))
(and flag (cdr flag)))
(not (sys:get-sysprop fname 'CMP-NOTINLINE)))
(format t "~&;;; Storing inline form for ~a" fname)
(cmpnote "~&;;; Storing inline form for ~a" fname)
`(eval-when (:compile-toplevel)
(si::put-sysprop ',fname 'inline ',form))))

2
src/cmp/cmpeval.lsp
View file

@ -69,7 +69,7 @@
((and can-inline
(setf fd (si::get-sysprop fname 'inline))
(<=(cmp-env-optimization 'space) 1))
(format t "~&;;; Inlining ~a" fname)
(cmpnote "~&;;; Inlining ~a" fname)
(c1expr `(funcall ,fd ,@args)))
(t (c1call-global fname args))))