0.9.2.7:

[sbcl.git] / src / compiler / sparc / system.lisp

diff --git a/src/compiler/sparc/system.lisp b/src/compiler/sparc/system.lisp
index 0ef87f4..91c98b3 100644 (file)
--- a/src/compiler/sparc/system.lisp
+++ b/src/compiler/sparc/system.lisp
@@ -222,6 +222,8 @@
   (:generator 1
     (inst unimp pending-interrupt-trap)))
 
+#!+sb-thread
+(error "write a VOP for CURRENT-THREAD-OFFSET-SAP")
 
 (define-vop (halt)
   (:generator 1
@@ -239,7 +241,7 @@
     (let ((offset
           (- (* (+ index vector-data-offset) n-word-bytes)
              other-pointer-lowtag)))
-      (assert (typep offset '(signed-byte 13)))
+      (aver (typep offset '(signed-byte 13)))
       (inst ld count count-vector offset)
       (inst add count 1)
       (inst st count count-vector offset))))