From a9bbca3504a753f597a8091df760df58deb8a099 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 7 Sep 1992 16:04:55 +0000
Subject: [PATCH] Deleted binding of *FAILED-OPTIMIZATIONS* (now
 component-failed-optimizations

---
 compiler/macros.lisp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/compiler/macros.lisp b/compiler/macros.lisp
index dd584ddfc..3ac4ad2dc 100644
--- a/compiler/macros.lisp
+++ b/compiler/macros.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/macros.lisp,v 1.31 1992/06/14 07:41:22 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/macros.lisp,v 1.32 1992/09/07 16:04:55 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,7 +15,7 @@
 ;;;
 ;;; Written by Rob MacLachlan
 ;;;
-(in-package 'c)
+(in-package "C")
 
 (export '(lisp::with-compilation-unit) "LISP")
 
@@ -758,8 +758,7 @@
   `(let ((*free-variables* (make-hash-table :test #'eq))
 	 (*free-functions* (make-hash-table :test #'equal))
 	 (*constants* (make-hash-table :test #'equal))
-	 (*source-paths* (make-hash-table :test #'eq))
-	 (*failed-optimizations* (make-hash-table :test #'eq)))
+	 (*source-paths* (make-hash-table :test #'eq)))
      ,@forms))
 
 
-- 
GitLab