Update of /project/movitz/cvsroot/ia-x86
In directory common-lisp.net:/tmp/cvs-serv6595
Modified Files:
read.lisp
Log Message:
Forgot to quote #:ia-x86 when appearing as forms. Repeat after me:
Don't check in code that has not been tested. Don't check in code that
has not been tested.
Date: Mon Feb 9 19:13:29 2004
Author: ffjeld
Index: ia-x86/read.lisp
diff -u ia-x86/read.lisp:1.3 ia-x86/read.lisp:1.4
--- ia-x86/read.lisp:1.3 Mon Feb 9 19:04:08 2004
+++ ia-x86/read.lisp Mon Feb 9 19:13:29 2004
@@ -9,7 +9,7 @@
;;;; Created at: Mon Jul 31 13:54:27 2000
;;;; Distribution: See the accompanying file COPYING.
;;;;
-;;;; $Id: read.lisp,v 1.3 2004/02/10 00:04:08 ffjeld Exp $
+;;;; $Id: read.lisp,v 1.4 2004/02/10 00:13:29 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
@@ -63,7 +63,7 @@
(assert (member spec +all-registers+)
(spec)
"Expected a register: ~A" spec)
- (find-symbol (symbol-name spec) #:ia-x86))
+ (find-symbol (symbol-name spec) '#:ia-x86))
(defun is-register-p (spec)
(and (symbolp spec)
@@ -209,7 +209,7 @@
(loop for p in prefix-spec
with user-size = nil
if (symbolp p)
- collect (let ((ps (find-symbol (symbol-name p) #:ia-x86)))
+ collect (let ((ps (find-symbol (symbol-name p) '#:ia-x86)))
(if (decode-set +prefix-opcode-map+ ps :errorp nil)
ps
(error "No such prefix: ~A" p)))
@@ -239,7 +239,7 @@
(t (make-instance (or (gethash instr-name *find-instruction-cache*)
(setf (gethash instr-name *find-instruction-cache*)
(multiple-value-bind (instr-symbol instr-symbol-status)
- (find-symbol (string instr-name) #:ia-x86-instr)
+ (find-symbol (string instr-name) '#:ia-x86-instr)
(unless instr-symbol-status
(error "No instruction named ~A." (string instr-name)))
instr-symbol)))