X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=a67217c3082f47dabaecd77e382ed5047e92823b;hb=b8f49ceae4a3b513de21f385bb784729d2ddff3f;hp=a4ea9d5abcd5764e3f7b802dacbf24371748c66a;hpb=9998e72f95991aeefd8191bfaf206cd305873f5d;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)