From b3a23085567a5c085040591f21f9166f982d52a4 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 19 Dec 1991 22:11:50 +0000 Subject: [PATCH] Added IR2-CONVERT method for %CLEANUP-POINT (which doesn't need to do anything.) --- compiler/ir2tran.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/compiler/ir2tran.lisp b/compiler/ir2tran.lisp index 3fd6515bf..1c0bfe484 100644 --- a/compiler/ir2tran.lisp +++ b/compiler/ir2tran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.39 1991/12/12 14:59:03 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.40 1991/12/19 22:11:50 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1441,6 +1441,12 @@ (undefined-value)) +;;; Cleanup-point doesn't to anything except prevent the body from being +;;; entirely deleted. +;;; +(defoptimizer (%cleanup-point ir2-convert) (() node block) node block) + + ;;; This function invalidates a lexical exit on exiting from the dynamic ;;; extent. This is done by storing 0 into the indirect value cell that holds ;;; the closed unwind block. -- GitLab