X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Falpha%2Fc-call.lisp;h=6b3ead794307952a3752b77351b2b10b8431bb22;hb=a4c3562138e342465826de31fb8c324ae8a4b594;hp=b925788860e33c35b775427cedb6a0e46b2e64a2;hpb=e33fb894f991b2926d8f3bace9058e4c0b2c3a37;p=sbcl.git diff --git a/src/compiler/alpha/c-call.lisp b/src/compiler/alpha/c-call.lisp index b925788..6b3ead7 100644 --- a/src/compiler/alpha/c-call.lisp +++ b/src/compiler/alpha/c-call.lisp @@ -67,8 +67,6 @@ 'single-stack (* 2 (- stack-frame-size 6)))))) - - (define-alien-type-method (integer :result-tn) (type state) (declare (ignore state)) (multiple-value-bind