X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fc-call.lisp;h=9f3cb9319d912c8745967169c8f91a32d08f2355;hb=16a6592367eec7c5e9da668ec42fd260e7705b0c;hp=0d83e19c2e5860a309ea1547aa6eec32a38e0613;hpb=cb296ae5a022a5b0f1fd573584301b0d2a9493f9;p=sbcl.git

diff --git a/src/compiler/hppa/c-call.lisp b/src/compiler/hppa/c-call.lisp
index 0d83e19..9f3cb93 100644
--- 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)