From 11325ff7420f5c9aa7154df4517b8ea4f00459af Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Fri, 8 Feb 2002 16:14:35 +0000
Subject: [PATCH] Revert the previous change pending a better solution.  That
 change cause sap-alien not to be optimized away where it used to and causes
 extra consing in certain situations.

---
 compiler/aliencomp.lisp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/compiler/aliencomp.lisp b/compiler/aliencomp.lisp
index cf1ba0102..6699f6c3b 100644
--- a/compiler/aliencomp.lisp
+++ b/compiler/aliencomp.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/aliencomp.lisp,v 1.26 2001/06/01 12:51:56 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.27 2002/02/08 16:14:35 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -487,10 +487,8 @@
        '(lambda (sap type)
 	  (declare (ignore type))
 	  sap))
-      (ref
-       `(alien::alien-value-sap alien))
       (t
-       (give-up "Could not optimize away ALIEN-SAP")))))
+       (give-up)))))
 
 (defoptimizer (%sap-alien derive-type) ((sap type))
   (declare (ignore sap))
-- 
GitLab