[movitz-cvs] CVS movitz

[ffjeld]

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