Commit 9ab87a73 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Reformatted some defclass forms, and removed some type-declarations

that are more likely to break things than being helpful in any way.
parent d9b0e221
;;;;------------------------------------------------------------------
;;;;
;;;; Copyright (C) 20012000, 2002-2003,
;;;; Copyright (C) 20012000, 2002-2004,
;;;; Department of Computer Science, University of Tromso, Norway
;;;;
;;;; Filename: operands.lisp
......@@ -9,7 +9,7 @@
;;;; Created at: Wed Feb 16 14:02:57 2000
;;;; Distribution: See the accompanying file COPYING.
;;;;
;;;; $Id: operands.lisp,v 1.1.1.1 2004/01/12 14:19:00 ffjeld Exp $
;;;; $Id: operands.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -186,9 +186,10 @@ operands at encoding-time."))
(setf (cdr x) x))))) ; make circular one-list.
(defclass operand-number (abstract-operand)
((number :type integer
:initarg number
:reader operand-number)))
((number
:type integer
:initarg number
:reader operand-number)))
(defmethod operand-listform ((operand operand-number))
(list* 'quote
......@@ -207,9 +208,9 @@ operands at encoding-time."))
;;; ----------------------------------------------------------------
(defclass operand-immediate (concrete-operand)
((value :type (unsigned-byte 32)
:initarg value
:accessor operand-value)))
((value
:initarg value
:accessor operand-value)))
(defmethod operand-listform ((obj operand-immediate))
(operand-value obj))
......@@ -280,7 +281,6 @@ operands at encoding-time."))
(defclass operand-rel-pointer (operand-memory)
((offset
:type (signed-byte 32)
:accessor operand-offset
:initarg offset)))
......
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