;;;; 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
;;;;
(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