Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv31402
Modified Files: ia-x86.asd Log Message: Fixed to be symbol-case independent.
Date: Mon Jan 12 15:22:52 2004 Author: ffjeld
Index: ia-x86/ia-x86.asd diff -u ia-x86/ia-x86.asd:1.3 ia-x86/ia-x86.asd:1.4 --- ia-x86/ia-x86.asd:1.3 Mon Jan 12 15:02:52 2004 +++ ia-x86/ia-x86.asd Mon Jan 12 15:22:52 2004 @@ -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.4 2004/01/12 20:22:52 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... @@ -39,7 +39,7 @@ (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 "INIT-INSTRUCTION-TABLES" :ia-x86)))) + (funcall (intern (string '#:init-instruction-tables) :ia-x86))))
(defclass conf-file (cl-source-file) ())
@@ -76,5 +76,5 @@ (operate 'test-op :ia-x86-test))
(defmethod perform ((o test-op) (c (eql (find-system :ia-x86-test)))) - (or (funcall (intern "DO-TESTS" :rt)) + (or (funcall (intern (string '#:do-tests) :rt)) (error "test-op failed")))