X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=lml.cl;h=c2ade0c0b1e2bc0b27e8233c87c5bc1cc5d609db;hb=df9d42b78c788474da7a0e25ed6989b878e9d393;hp=ebf813af7c5e26c3ea2ffee3b15454ad4c21f17c;hpb=46ab29f53744bd2e24360e108e1bf82d7ec676d1;p=lml.git

diff --git a/lml.cl b/lml.cl
index ebf813a..c2ade0c 100644
--- a/lml.cl
+++ b/lml.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: lml.cl,v 1.9 2002/09/16 09:58:57 kevin Exp $
+;;;; $Id: lml.cl,v 1.10 2002/09/16 10:00:47 kevin Exp $
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -245,6 +245,6 @@
 		(setq got-comma nil)
 		(vector-push-extend ch curr-string)))))
 	(push `(lml-print ,curr-string) forms)
-	`(progn ,(nreverse forms)))))
+	`(progn ,@(nreverse forms)))))