search

liutanyu / mcl

Automatically exported from code.google.com/p/mcl
Other
0 stars 0 forks source link

inconsistent every function #42

Open GoogleCodeExporter opened 8 years ago

GoogleCodeExporter commented 8 years ago 
(every #'< '(1 2 3) (cdr '(1 2 3)))
=> T

(defun sorted (predicate list)
  (every predicate list (cdr list)))

(sorted #'< '(1 2 3))
=> NIL ; !!!

Original issue reported on code.google.com by terje.norderhaug on 14 Apr 2011 at 2:14