diff --git a/compiler/locall.lisp b/compiler/locall.lisp index f6f1bfca4c264af76513a79c652a584f4fede639..338f7f2fb3cd6e39d221412cfbe075cff86e26b5 100644 --- a/compiler/locall.lisp +++ b/compiler/locall.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.49 2000/07/06 18:37:03 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.50 2000/09/07 12:16:23 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -733,8 +733,7 @@ (setf (lambda-lets fun) ())) (setf (lambda-calls home) - (nunion (lambda-calls fun) - (delete fun (lambda-calls home)))) + (delete fun (nunion (lambda-calls fun) (lambda-calls home)))) (setf (lambda-calls fun) ()) (setf (lambda-entries home)