shithub: sl

Info  •  Files  •  Log  •  Branches

sort: simplify condition

--- a/boot/sl.boot

+++ b/boot/sl.boot

@@ -401,9 +401,11 @@

   make-code-emitter #fn("n0q2050EqEo5:" #(#fn(table)) make-code-emitter)

             make-perfect-hash-table #fn("n1Ib5208521_514Ib6862285860>3_486<^12305161:" #(#1#

   #fn("n270712205151162:" #(mod0 abs #fn(hash)) $hash-keyword)

-2205151162:" #(mod0 abs #fn(hash)) $hash-keyword)

-  #fn("n120r20i2q52Ib68621A085F86>5_486<^19261:" #(#fn(vec-alloc)

-                                                   #fn("n10B3p070051r2A<85F52i29286G3;093<FKM61:928685p49286KM71051p494<0=61:92:" #(caar

+2205151162:" #(mod0 abs #fn(hash)) $hash-keyword)

+  #fn("n120r20i2q52Ib68621A085F86>5_486<^19261:" #(#fn(vec-alloc)

+                                                   #fn("n10B3p070051r2A<85F52i29286G3;093<FKM61:928685p49286KM71051p494<0=61:92:" #(caar

+  cdar)))) #fn(length)) make-perfect-hash-table)

+            make-system-image #fn("n120021222354247576Dw54Dw64278788>2288685>22989>1{89504:" #(#fn(file)

  #fn(length)) make-perfect-hash-table)

             make-system-image #fn("n120021222354247576Dw54Dw64278788>2288685>22989>1{89504:" #(#fn(file)

   :write :create :truncate (*linefeed* *directory-separator* *argv* that *exit-hooks*

--- a/src/system.sl

+++ b/src/system.sl

@@ -1339,7 +1339,7 @@

   (princ *linefeed*))

 (def (sort l cmp (:key identity))

-  (if (or (not l) (not (cdr l)))

+  (if (not (cdr l))

       l

       (let ((piv (car l)))

         (receive (less grtr)