From 02a8271b2bc558c60fb9bd88d87a1a417f2bf3d1 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sun, 8 Feb 1998 16:20:59 +0000
Subject: [PATCH] Correct the compiler-let binding spec within the with-alien
 macro.

---
 code/alieneval.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/code/alieneval.lisp b/code/alieneval.lisp
index 62f2d5d9b..694b2a045 100644
--- a/code/alieneval.lisp
+++ b/code/alieneval.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/code/alieneval.lisp,v 1.43 1998/02/06 19:48:01 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.44 1998/02/08 16:20:59 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1428,9 +1428,9 @@
 			       (dispose-local-alien ',info ,var)
 			       )))))))))))
     (verify-local-auxiliaries-okay)
-    `(compiler-let (*auxiliary-type-definitions*
-		    ',(append *new-auxiliary-types*
-			      *auxiliary-type-definitions*))
+    `(compiler-let ((*auxiliary-type-definitions*
+		     ',(append *new-auxiliary-types*
+			       *auxiliary-type-definitions*)))
        ,@body)))
 
 
-- 
GitLab