From 247acb30dcd08ae8d7fd8da9337a9509fb2e635d Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 22 May 1992 17:09:08 +0000
Subject: [PATCH] Someone changed the syntax of assem:dump-segment, but never
 fixed this use of it.

---
 assembly/assemfile.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index 232562457..f162df41d 100644
--- a/assembly/assemfile.lisp
+++ b/assembly/assemfile.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.28 1992/05/22 15:33:27 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.29 1992/05/22 17:09:08 wlott Exp $
 ;;;
 ;;; This file contains the extra code necessary to feed an entire file of
 ;;; assembly code to the assembler.
@@ -70,7 +70,7 @@
 				  :direction :output
 				  :if-exists :supersede)
 	      (format file "Assembly listing for ~A:~3%" (namestring name))
-	      (assem:dump-segment *code-segment* file)
+	      (assem:dump-segment *code-segment* :stream file)
 	      (fresh-line file)))
 	  (setq won t))
       (deletef :assembler *features*)
-- 
GitLab