From 6ebd79f3bb05278004967f647655ea213b8dd61d Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 22 May 1992 18:05:20 +0000
Subject: [PATCH] Had two args backwards in the call to dump-assemble-routines.
  So it wasn't doing a very good job of dumping the assembly routines.

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

diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index f162df41d..543762f4e 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.29 1992/05/22 17:09:08 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.30 1992/05/22 18:05:20 wlott Exp $
 ;;;
 ;;; This file contains the extra code necessary to feed an entire file of
 ;;; assembly code to the assembler.
@@ -59,8 +59,8 @@
 			(assem:finalize-segment *code-segment*)))))
 	    (dump-assembler-routines *code-segment*
 				     length
-				     *assembler-routines*
 				     *fixups*
+				     *assembler-routines*
 				     *lap-output-file*))
 	  (when (and trace-file (not (target-featurep :new-assembler)))
 	    (with-open-file (file (if (eq trace-file t)
-- 
GitLab