x が yより前の要素なら真さもなくば偽。
member関数の結果に対してmember関数を利用している。
[3]> (setf can '(michael holger irmin jaki malcolm)) (MICHAEL HOLGER IRMIN JAKI MALCOLM) [6]> (defun ordered-p (can x y) (member y (member x can))) ORDERED-P [7]> (ordered-p can 'malcolm 'damo) NIL [8]> (ordered-p can 'jaki 'malcolm) (MALCOLM) [9]> (trace ordered-p) ;; Tracing function ORDERED-P. (ORDERED-P) [10]> (ordered-p can 'jaki 'malcolm) 1. Trace: (ORDERED-P '(MICHAEL HOLGER IRMIN JAKI MALCOLM) 'JAKI 'MALCOLM) 1. Trace: ORDERED-P ==> (MALCOLM) (MALCOLM)