Commit 4498fa1e authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

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.
parent 8a4531fb
......@@ -9,7 +9,7 @@
;;;; Created at: Mon Jul 31 13:54:27 2000
;;;; Distribution: See the accompanying file COPYING.
;;;;
;;;; $Id: read.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $
;;;; $Id: read.lisp,v 1.3 2004/02/10 00:04:08 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 @@ returns the symbol/label that is referenced."
(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 @@ returns the symbol/label that is referenced."
(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)))
......
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