From b59de87d9fd6a3ba9a18511ffda13d9eb102f9d1 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 7 Aug 2003 12:23:13 +0000
Subject: [PATCH] Fixed typo

---
 src/cmp/cmpvar.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpvar.lsp b/src/cmp/cmpvar.lsp
index 3177fe394..5980c54d4 100644
--- a/src/cmp/cmpvar.lsp
+++ b/src/cmp/cmpvar.lsp
@@ -255,7 +255,7 @@
 	   (wt-nl "cl_set(" var-loc ",")
 	   (wt-nl "(" var-loc "->symbol.dbind)= "))
        (wt-coerce-loc (var-rep-type var) loc)
-       (wt ");"))
+       (wt (if *safe-compile* ");" ";")))
       (t
        (wt-nl var-loc "= ")
        (wt-coerce-loc (var-rep-type var) loc)