(defvar *disassem-use-lisp-reg-names* t)
-(!def-vm-support-routine location-number (loc)
+(defun location-number (loc)
(etypecase loc
(null)
(number)
(#.fun-end-breakpoint-trap
(nt "Function end breakpoint trap"))
(#.object-not-instance-trap
- (nt "Object not instance trap"))
- )))
+ (nt "Object not instance trap")))))
(eval-when (:compile-toplevel :execute)
`(inst nor. ,ra ,rs ,rs))
- (!def-vm-support-routine emit-nop (segment)
+ (defun emit-nop (segment)
(emit-word segment #x60000000))
(define-instruction-macro extlwi (ra rs n b)