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

Remove unused function NEED-TO-PROTECT

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-11 16:12:08 +02:00
parent 6c245096be
commit 3689a77759
1 changed files with 1 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/cmp/cmpinline.lsp
View file

@ -280,28 +280,6 @@
(nreverse rts))
inline-info))))
(defun need-to-protect (forms &aux ii)
(do ((forms forms (cdr forms))
(res nil))
((or res (endp forms)) res)
(let ((form (car forms)))
(declare (object form))
(case (c1form-name form)
(LOCATION)
(VAR
(when (var-changed-in-form-list (c1form-arg 0 form) (cdr forms))
(setq res t)))
(CALL-GLOBAL
(let ((fname (c1form-arg 0 form))
(args (c1form-arg 1 form)))
(or (function-may-have-side-effects fname)
(need-to-protect args))))
(SYS:STRUCTURE-REF
(when (need-to-protect (list (c1form-arg 0 form)))
(setq res t)))
(t (setq res t)))))
)
(defun close-inline-blocks ()
(dotimes (i *inline-blocks*) (declare (fixnum i)) (wt #\})))
@ -312,6 +290,7 @@
(some #'c1form-side-effects forms))
(defun function-may-have-side-effects (fname)
(not (get-sysprop fname 'no-side-effects)))
(defun function-may-change-sp (fname)