X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=a67217c3082f47dabaecd77e382ed5047e92823b;hb=2529c316d05494f2bcdeccf98c3a6298ecd08d7d;hp=a4ea9d5abcd5764e3f7b802dacbf24371748c66a;hpb=1913e44aa31172eb3c345115a2acb367356f6b4b;p=sbcl.git diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp index a4ea9d5..a67217c 100644 --- a/src/compiler/generic/genesis.lisp +++ b/src/compiler/generic/genesis.lisp @@ -2729,7 +2729,6 @@ core and return a descriptor to it." (symbol-value c) nil) constants)) - (setf constants (sort constants (lambda (const1 const2)