Skip to content
Snippets Groups Projects
Commit 997e6d33 authored by ram's avatar ram
Browse files

Don't try to reconvert calls to SETF functions with inline expansions

in RECOGNIZE-KNOWN-CALL, because it won't work.  For now, SETF functions
are never inline expanded.
parent 785e5ff7
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.48 1992/07/31 17:19:38 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.49 1992/08/04 21:34:48 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -767,6 +767,7 @@ ...@@ -767,6 +767,7 @@
(let ((info (info function info name))) (let ((info (info function info name)))
(cond (cond
((and convert-again ((and convert-again
(symbolp name)
(or (info function source-transform name) (or (info function source-transform name)
(info function inline-expansion name) (info function inline-expansion name)
(and info (and info
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment