From c17bbd1ecb54735809d5025a764abc1660f866ce Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Sun, 15 Sep 2002 13:22:10 +0000
Subject: [PATCH] Fix typo: feature #+ecls -> #+ecl

---
 src/gabriel/test-help.lsp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/gabriel/test-help.lsp b/src/gabriel/test-help.lsp
index 26d34787f..37c917dcc 100644
--- a/src/gabriel/test-help.lsp
+++ b/src/gabriel/test-help.lsp
@@ -73,7 +73,7 @@
   (gc :full t)
   #+clisp
   (system::gc)
-  #+ecls
+  #+ecl
   (system::gc t)
   (let ((source-file (merge-pathnames (merge-pathnames file *source-dir*) "foo.cl"))
 	(fasl-file (and compile (compile-file-pathname (merge-pathnames file *output-dir*))))
@@ -81,8 +81,8 @@
     (cond (compile
 	   (proclaim-file source-file)
 	   (compile-file source-file :output-file fasl-file
-			 #+ecls :c-file #+ecls t #+ecls :h-file #+ecls t
-			 #+ecls :verbose #+ecls t)
+			 #+ecl :c-file #+ecl t #+ecl :h-file #+ecl t
+			 #+ecl :verbose #+ecl t)
 	   (print fasl-file)
 	   (load fasl-file :verbose t))
 	  (t