X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir2tran.lisp;h=cf611d432588a580149a170ec8502f5a80eefca0;hb=e0697854ef9f4999c8585b64be1b282ce4725176;hp=cdd89f621aa1da5df0d3f57b27a6728f27902ae4;hpb=d4fb62259d04a4513d6ae20ca9f2487c4dfe1c1a;p=sbcl.git diff --git a/src/compiler/ir2tran.lisp b/src/compiler/ir2tran.lisp index cdd89f6..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) - (bug "%NIP-VALUES is not implemented on this platform.") - #!+(or x86 alpha) (let (;; pointer immediately after the nipped block (2after (lvar-info (lvar-value last-nipped))) ;; pointer to the first nipped word