X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1opt.lisp;h=4992ea4beba7ff44aa697c74d86d8b47d604b91c;hb=f21e0f5b908263715ea0d867edb64ceba5a3d668;hp=b664bf70f3a9789e624356a7382ce9031737f6a5;hpb=0d8a5fab0a83b5d8b92870dba57dc7b3ebcc89b2;p=sbcl.git

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index b664bf7..4992ea4 100644
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -889,7 +889,7 @@
                 ;; The VM mostly knows how to handle this.  We need
                 ;; to massage the call slightly, though.
                 (transform-call node transform (combination-fun-source-name node)))
-               (:default
+               ((:default :maybe)
                 ;; Let transforms have a crack at it.
                 (dolist (x (fun-info-transforms info))
                   #!+sb-show