From 0850ca5458cb09b2d04cec162558500e9a05cf4a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 20 Sep 2007 14:50:49 +0000
Subject: Revert commits to the wrong tree.

---
 src/interp/util.lisp.pamphlet | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/interp/util.lisp.pamphlet')

diff --git a/src/interp/util.lisp.pamphlet b/src/interp/util.lisp.pamphlet
index d938ea93..80d2443e 100644
--- a/src/interp/util.lisp.pamphlet
+++ b/src/interp/util.lisp.pamphlet
@@ -820,16 +820,19 @@ because of {\bf *print-level*} or {\bf *print-length*}.
 <<boottocl>>=
 (in-package "OLD-BOOT") 
 
-(defun boot (in-file out-file) ;; translates a single boot file
+(defun boot (file) ;; translates a single boot file
 #+:CCL
   (setq *package* (find-package "BOOT"))
 #+:AKCL
   (in-package "BOOT")
   (let (*print-level* 
 	*print-length* 
+	(fn (pathname-name file))
 	(*print-pretty* t))
     (declare (special *print-level* *print-length*))
-    (boot::boot in-file out-file)))
+    (boot::boot
+      file
+      (merge-pathnames (make-pathname :type "clisp") file))))
 
 @
 
-- 
cgit v1.2.3