Re: [Sbcl-devel] [Sbcl-commits] CVS: sbcl/src/compiler ctype.lisp, 1.36, 1.37

[Nathan F. <fr...@gm...>]

On Tue, Mar 23, 2010 at 1:52 PM, Nikodemus Siivola
<de...@us...> wrote:
> Index: ctype.lisp
> ===================================================================
> RCS file: /cvsroot/sbcl/sbcl/src/compiler/ctype.lisp,v
> retrieving revision 1.36
> retrieving revision 1.37
> diff -u -d -r1.36 -r1.37
> --- ctype.lisp  19 Mar 2010 20:35:16 -0000      1.36
> +++ ctype.lisp  23 Mar 2010 17:52:10 -0000      1.37
> @@ -607,6 +607,7 @@
>       (frob (- (optional-dispatch-max-args od) min) (length opt) "optional"))
>     (flet ((frob (x y what)
>              (unless (eq x y)
> +               (break "~S" type)
>                (note-lossage
>                 "The definition ~:[doesn't have~;has~] ~A, but ~
>                  ~A ~:[doesn't~;does~]."

Did you mean to include this hunk?

-Nathan