X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir2tran.lisp;h=cf611d432588a580149a170ec8502f5a80eefca0;hb=e73a30c901ab234291aefc9f1e73507650628892;hp=4dde6473a25fe4f80e3da6b993343dc4199ff91f;hpb=0f624ec8d91a3de3793b8a9f4456d2bc5c370753;p=sbcl.git diff --git a/src/compiler/ir2tran.lisp b/src/compiler/ir2tran.lisp index 4dde647..cf611d4 100644 --- a/src/compiler/ir2tran.lisp +++ b/src/compiler/ir2tran.lisp @@ -1285,9 +1285,6 @@ (defoptimizer (%nip-values ir2-convert) ((last-nipped last-preserved &rest moved) node block) - #!-(or x86 alpha sparc) - (bug "%NIP-VALUES is not implemented on this platform.") - #!+(or x86 alpha sparc) (let (;; pointer immediately after the nipped block (2after (lvar-info (lvar-value last-nipped))) ;; pointer to the first nipped word