Skip to content
Snippets Groups Projects
Commit a7add6d1 authored by rtoy's avatar rtoy
Browse files

See bug reported by Madhu, cmucl-imp, Nov 27, 2007 and the following

e-mail thread.  Solution by Helmut Eller.

o Remove incorrect line caused by bad merge in version 1.51.
parent 6841c7d0
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.59 2007/10/02 15:21:26 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.60 2007/12/10 18:48:57 rtoy Rel $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1114,7 +1114,6 @@ ...@@ -1114,7 +1114,6 @@
(return nil)) (return nil))
(setq outside-non-tail-call dest))))) (setq outside-non-tail-call dest)))))
(ok-initial-convert-p fun)) (ok-initial-convert-p fun))
(setf (functional-kind fun) :assignment)
(cond (outside-call (cond (outside-call
(setf (functional-kind fun) :assignment) (setf (functional-kind fun) :assignment)
(let-convert fun outside-call) (let-convert fun outside-call)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment