[movitz-cvs] CVS update: ia-x86/ia-x86.asd

[Janis Dzerins]

Update of /project/movitz/cvsroot/ia-x86
In directory common-lisp.net:/tmp/cvs-serv23178

Modified Files:
	ia-x86.asd 
Log Message:
Call INIT-INSTRUCTION-TABLES after loading instructions.

Date: Mon Jan 12 15:02:52 2004
Author: jdzerins

Index: ia-x86/ia-x86.asd
diff -u ia-x86/ia-x86.asd:1.2 ia-x86/ia-x86.asd:1.3
--- ia-x86/ia-x86.asd:1.2	Mon Jan 12 14:41:49 2004
+++ ia-x86/ia-x86.asd	Mon Jan 12 15:02:52 2004
@@ -7,7 +7,7 @@
 ;; Author:        Nikodemus Siivola
 ;; Created at:    Wed Oct 20 23:13:46 1999
 ;;                
-;; $Id: ia-x86.asd,v 1.2 2004/01/12 19:41:49 ffjeld Exp $
+;; $Id: ia-x86.asd,v 1.3 2004/01/12 20:02:52 jdzerins Exp $
 ;;                
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
@@ -38,7 +38,8 @@
 (defmethod perform :after ((o load-op) (c (eql (find-system :ia-x86))))
   (when (y-or-n-p "Initialize instruction tables? It may take a while, ~
                    espcially on memory starved boxes.")
-    (operate 'load-op :ia-x86-instr)))
+    (operate 'load-op :ia-x86-instr)
+    (funcall (intern "INIT-INSTRUCTION-TABLES" :ia-x86))))
 
 (defclass conf-file (cl-source-file) ())