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) ())