0.9.1.54: dynamic-extent lists and closures on ppc

[sbcl.git] / src / compiler / hppa / c-call.lisp

diff --git a/src/compiler/hppa/c-call.lisp b/src/compiler/hppa/c-call.lisp
index 0d83e19..9f3cb93 100644 (file)
--- a/src/compiler/hppa/c-call.lisp
+++ b/src/compiler/hppa/c-call.lisp
@@ -71,7 +71,7 @@
 (define-alien-type-method (values :result-tn) (type)
   (let ((values (alien-values-type-values type)))
     (when values
-      (assert (null (cdr values)))
+      (aver (null (cdr values)))
       (invoke-alien-type-method :result-tn (car values)))))
 
 (defun make-arg-tns (type)