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

Modified Files: def-instr.lisp Log Message: Designate the ia-x86 package with #:ia-x86 rather than "IA-X86". Also, a few very minor edits.

Date: Mon Feb 9 19:03:19 2004 Author: ffjeld

Index: ia-x86/def-instr.lisp diff -u ia-x86/def-instr.lisp:1.2 ia-x86/def-instr.lisp:1.3 --- ia-x86/def-instr.lisp:1.2 Fri Jan 16 06:54:14 2004 +++ ia-x86/def-instr.lisp Mon Feb 9 19:03:19 2004 @@ -8,11 +8,11 @@ ;;;; Created at: Thu May 4 16:41:20 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: def-instr.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $ +;;;; $Id: def-instr.lisp,v 1.3 2004/02/10 00:03:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

-(in-package "IA-X86") +(in-package #:ia-x86)

(defvar *instr-definitions* (make-hash-table))

@@ -28,8 +28,8 @@ collect (make-instr-template instr-spec)))) (templates-remember name templates))) *instr-definitions*) - (table-stats "IA-X86: " *template-table*) - (table-stats "IA-X86 2op: " *template-table-0f*)) + (table-stats "ia-x86: " *template-table*) + (table-stats "ia-x86 2op: " *template-table-0f*))

(defun make-instr-template (instr-spec) (destructuring-bind (base-class