Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv19475 Added Files: asm.lisp Log Message: New assembler, not completed. --- /project/movitz/cvsroot/movitz/asm.lisp 2007/12/16 08:57:19 NONE +++ /project/movitz/cvsroot/movitz/asm.lisp 2007/12/16 08:57:19 1.1 ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2007 Frode V. Fjeld ;;;; ;;;; Description: Assembly syntax etc. ;;;; 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 $ ;;;; ;;;;------------------------------------------------------------------ (defpackage asm (:use :common-lisp) (:export #:symbol-reference-p #:symbol-reference #:symbol-reference-symbol #:immediate-p #:immediate-operand #:indirect-operand-p #:indirect-operand #:register-operand #:unresolved-symbol)) (in-package asm) (deftype symbol-reference () '(cons (eql quote) (cons symbol null))) (defun symbol-reference-p (expr) (typep expr 'symbol-reference)) (defun symbol-reference-symbol (expr) (check-type expr symbol-reference) (second expr)) (deftype immediate-operand () '(or integer symbol-reference)) (defun immediate-p (expr) (typep expr 'immediate-operand)) (deftype register-operand () 'keyword) (defun register-p (operand) (typep operand 'register-operand)) (deftype indirect-operand () 'cons) (defun indirect-operand-p (operand) (consp operand)) (define-condition unresolved-symbol () ((symbol :initarg :symbol :reader unresolved-symbol)) (:report (lambda (c s) (format s "Unresolved symbol ~S." (unresolved-symbol c)))))