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