(let ((offset-sym (symbolicate name "-OFFSET")))
`(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant ,offset-sym ,offset)
- (setf (svref *register-names* ,offset-sym) ,(symbol-name name)))))
+ (setf (svref *register-names* ,offset-sym)
+ ,(symbol-name name)))))
(defregset (name &rest regs)
`(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter ,name
- (list ,@(mapcar #'(lambda (name)
- (symbolicate name "-OFFSET"))
+ (list ,@(mapcar (lambda (name)
+ (symbolicate name "-OFFSET"))
regs))))))
;; c.f. src/runtime/alpha-lispregs.h
;;; a handy macro so we don't have to keep changing all the numbers
;;; whenever we insert a new storage class.
-;;;
-;;; FIXME: This macro is not needed in the runtime target.
-(defmacro define-storage-classes (&rest classes)
+(defmacro !define-storage-classes (&rest classes)
(do ((forms (list 'progn)
(let* ((class (car classes))
(sc-name (car class))
;;; and seems to be working so far -dan
(defconstant sb!vm::kludge-nondeterministic-catch-block-size 7)
-(define-storage-classes
+(!define-storage-classes
- ;; Non-immediate contstants in the constant pool
+ ;; non-immediate constants in the constant pool
(constant constant)
;; ZERO and NULL are in registers.
;;; a list of TN's describing the register arguments
(defparameter *register-arg-tns*
- (mapcar #'(lambda (n)
- (make-random-tn :kind :normal
- :sc (sc-or-lose 'descriptor-reg)
- :offset n))
+ (mapcar (lambda (n)
+ (make-random-tn :kind :normal
+ :sc (sc-or-lose 'descriptor-reg)
+ :offset n))
*register-arg-offsets*))
;;; This is used by the debugger.