Commit 848053c8 authored by cvs-fast-export's avatar cvs-fast-export

Synthetic commit for tag start

parent f4ca870b
......@@ -7,14 +7,14 @@
;; Author: Nikodemus Siivola
;; Created at: Wed Oct 20 23:13:46 1999
;;
;; $Id: ia-x86.asd,v 1.3 2004/01/12 20:02:52 jdzerins Exp $
;; $Id: ia-x86.asd,v 1.1.1.1 2004/01/12 14:19:00 ffjeld Exp $
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defpackage #:ia-x86-system
(defpackage "IA-X86-SYSTEM"
(:use :cl :asdf))
(in-package #:ia-x86-system)
(in-package "IA-X86-SYSTEM")
(defsystem :ia-x86
:serial t ; FIXME: proper dependencies would be nice...
......@@ -32,14 +32,12 @@
(:file "read")
(:file "codec")
(:file "proglist")
(:file "def-instr")
(:file "postload")))
(:file "def-instr")))
(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)
(funcall (intern (string '#:init-instruction-tables) :ia-x86))))
(operate 'load-op :ia-x86-instr)))
(defclass conf-file (cl-source-file) ())
......@@ -76,5 +74,5 @@
(operate 'test-op :ia-x86-test))
(defmethod perform ((o test-op) (c (eql (find-system :ia-x86-test))))
(or (funcall (intern (string '#:do-tests) :rt))
(or (funcall (intern "DO-TESTS" :rt))
(error "test-op failed")))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment