Skip to content
Snippets Groups Projects
Commit 02a8271b authored by dtc's avatar dtc
Browse files

Correct the compiler-let binding spec within the with-alien macro.

parent a8b760a4
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -1428,9 +1428,9 @@
(dispose-local-alien ',info ,var) (dispose-local-alien ',info ,var)
))))))))))) )))))))))))
(verify-local-auxiliaries-okay) (verify-local-auxiliaries-okay)
`(compiler-let (*auxiliary-type-definitions* `(compiler-let ((*auxiliary-type-definitions*
',(append *new-auxiliary-types* ',(append *new-auxiliary-types*
*auxiliary-type-definitions*)) *auxiliary-type-definitions*)))
,@body))) ,@body)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment