X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=lml.cl;fp=lml.cl;h=5aea792905d74a3ee181936700e2c4b6584b14b3;hb=3ab8846a02d3541197a064b5bf9c254e80e3bce3;hp=c2ade0c0b1e2bc0b27e8233c87c5bc1cc5d609db;hpb=df9d42b78c788474da7a0e25ed6989b878e9d393;p=lml.git

diff --git a/lml.cl b/lml.cl
index c2ade0c..5aea792 100644
--- a/lml.cl
+++ b/lml.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: lml.cl,v 1.10 2002/09/16 10:00:47 kevin Exp $
+;;;; $Id: lml.cl,v 1.11 2002/09/16 10:02:14 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -225,7 +225,7 @@
 		      (vector-push-extend ch curr-string))
 		    (vector-push-extend #\) curr-string)
 		    (let ((eval-string (read-from-string curr-string))
-			  (result (gensym)))
+			  (res (gensym)))
 		      (push
 		       `(let ((,res ,eval-string))
 			  (when ,res