From 2bc4e76b440ada98326241b3b01147fc121eb99f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 30 May 2013 16:51:52 +0000
Subject: Update for modern ECL.

---
 src/interp/spad.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/spad.lisp')

diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp
index 22e01ef0..2f4161e5 100644
--- a/src/interp/spad.lisp
+++ b/src/interp/spad.lisp
@@ -95,7 +95,7 @@
 		    (|parseNewExpr| rd)
 		    (let ((parseout (|popStack1|)) )
 		      (when parseout
-			(|translateSpad| parseout)
+			(|translateSpad| ifile parseout)
 			(format |$OutputStream| "~&")))
 		    ))))
 	    (|ioClear!| rd)))
-- 
cgit v1.2.3