Hi,

Somewhere between this change (sbcl-1.0.54.61) :

commit 2ab450b857634fb07439f8adec488b48bdc5e408
Author: Nikodemus Siivola <nikodemus@random-state.net>
Date:   Thu Dec 8 20:09:00 2011 +0200

    fix tyop in ONLY-ONE-BOXED-CONSTANT-FOR-MULTIPLE-USES that broke it
   
      s/'/`/

 

and this change (sbcl-1.0.54.68):

commit 722a3f7ec83e075a483161ffff76e1392c66cc22
Author: Nikodemus Siivola <nikodemus@random-state.net>
Date:   Fri Dec 9 15:06:10 2011 +0200

    test for bug 308926
   
      Seems to be good now, let's keep it that way.

 

clx no longer builds.  The error I get is:

; compiling (DEFMACRO CHECK-PUT ...)
; compiling (DEFUN GET-PUT-ITEMS ...)ASDF could not load clx because
The value
  #<SB-C::OPTIONAL-DISPATCH
    :%SOURCE-NAME GET-PUT-ITEMS
    :%DEBUG-NAME NIL
    :TYPE #<SB-KERNEL:FUN-TYPE
            (FUNCTION (T T T &OPTIONAL (OR NULL FUNCTION))
             (VALUES T T LIST &OPTIONAL))>
    :WHERE-FROM :DEFINED
    :ARGLIST (#<SB-C::LAMBDA-VAR :%SOURCE-NAME INDEX {1006593823}>
              #<SB-C::LAMBDA-VAR :%SOURCE-NAME TYPE-ARGS {1006593903}>
              #<SB-C::LAMBDA-VAR :%SOURCE-NAME PUTP {10065939E3}>
&n! bsp;             #<SB-C::LAMBDA-VAR
                :%SOURCE-NAME BODY-FUNCTION
                :TYPE #<SB-KERNEL:UNION-TYPE (OR NULL FUNCTION)>
                :WHERE-FROM :DECLARED
                :ARG-INFO #<SB-C::ARG-INFO  :KIND :OPTIONAL {1006593B83}>
                {1006593AC3}>)
    :ALLOWP NIL
    :KEYP NIL
    :MIN-ARGS 3
    :MAX-ARGS 4
    :ENTRY-POINTS ((T
    &nbs! p;               . #<SB-C::CLAMBDA
                        :%SOURCE-NAME SB-C::.ANONYMOUS.
                        :%DEBUG-NAME (SB-C::&OPTIONAL-PROCESSOR GET-PUT-ITEMS)
                        :KIND :OPTIONAL
                        :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID
                                FUNCTION (read-only)>
 &! nbsp;                      :WHERE-FROM :DEFINED
                        :VARS (INDEX TYPE-ARGS PUTP) {10065CDD83}>)
                   #<SB-C::CLAMBDA
                     :%SOURCE-NAME SB-C::.ANONYMOUS.
                     :%DEBUG-NAME (SB-C::HAIRY-ARG-PROCESSOR GET-PUT-ITEMS)
                     :KIND :OPTIONAL
    &! nbsp;                :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
                     :WHERE-FROM :DEFINED
                     :VARS (INDEX TYPE-ARGS PUTP BODY-FUNCTION) {1006594703}>)
    :MAIN-ENTRY #<SB-C::CLAMBDA
                  :%SOURCE-NAME SB-C::.ANONYMOUS.
                  :%DEBUG-NAME (SB-C::HAIRY-ARG-PROCESSOR GET-PUT-ITEMS)
                  :KIND :OPTIONAL
             !      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
                  :WHERE-FROM :DEFINED
                  :VARS (INDEX TYPE-ARGS PUTP BODY-FUNCTION) {1006594703}>
    {1006594463}>
is not of type
  SB-C::CLAMBDA..

debugger invoked on a TYPE-ERROR in thread
#<THREAD "initial thread" RUNNING {10029A9413}>:
  The value
    #<SB-C::OPTIONAL-DISPATCH
      :%SOURCE-NAME GET-PUT-ITEMS
      :%DEBUG-NAME NIL
      :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # #)>
      :WHERE-FROM :DEFINED
      :ARGLIST (# # # #)
 ! ;     :ALLOWP NIL
      :KEYP NIL
      :MIN-ARGS 3
      :MAX-ARGS 4
      :ENTRY-POINTS ((T . #) #)
      :MAIN-ENTRY #<SB-C::CLAMBDA
                    :%SOURCE-NAME SB-C::.ANONYMOUS.
                    :%DEBUG-NAME #
                    :KIND :OPTIONAL
                    :TYPE #
                    :WHERE-FROM :DEFINED
         ! ;           :VARS # {1006594703}>
      {1006594463}>
  is not of type
    SB-C::CLAMBDA.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY   ] Retry compiling #<CLX-SOURCE-FILE "clx" "macros">.
  1: [ACCEPT  ] Continue, treating compiling #<CLX-SOURCE-FILE "clx" "macros">
                as having been successful.
  2: [CONTINUE] Ignore runtime option --eval "(progn (require :asdf) (require :clx))".
  3: [ABORT   ] Skip rest of --eval and --load options.
  4:            Skip to toplevel READ/EVAL/PRINT loop.
  5: [QUIT&n! bsp;   ] Quit SBCL (calling #'QUIT, killing the process).

(SB-C::LAMBDA-VAR-ORIGINAL-NAME
 #<SB-C::LAMBDA-VAR :%SOURCE-NAME #:G1073 {10065CF1C3}>)
0]

 

Sadly I don't see the error.

Thanks!

bruce