X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fc-call.lisp;h=489fec0f28ee156ab2877b4817be2b534acd962d;hb=1af3faa2b79125b774c2182cab841ed7ee555bed;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..489fec0 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)
@@ -112,8 +112,8 @@
 	     :result-tn
 	     (alien-fun-type-result-type type)))))
 
-(define-vop (foreign-symbol-address)
-  (:translate foreign-symbol-address)
+(define-vop (foreign-symbol-sap)
+  (:translate foreign-symbol-sap)
   (:policy :fast-safe)
   (:args)
   (:arg-types (:constant simple-string))