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