Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv1590

Modified Files: asm.lisp Log Message: Some assembler work over christmas.

--- /project/movitz/cvsroot/movitz/asm.lisp 2007/12/16 08:57:19 1.1 +++ /project/movitz/cvsroot/movitz/asm.lisp 2008/01/03 10:34:20 1.2 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm.lisp,v 1.1 2007/12/16 08:57:19 ffjeld Exp $ +;;;; $Id: asm.lisp,v 1.2 2008/01/03 10:34:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -47,10 +47,10 @@ (typep operand 'register-operand))

(deftype indirect-operand () - 'cons) + '(and cons (not (cons (eql quote)))))

(defun indirect-operand-p (operand) - (consp operand)) + (typep operand 'indirect-operand))

(define-condition unresolved-symbol () ((symbol