別の閉包に関して閉包を定義する

Question

私は互いに補完する2つの閉包を持っています。私はもう一方の面で定義したいと思います。例えば、

(defun more-than (v) #'(lambda (x) (> x v))) 

CL-USER> (funcall (more-than 5) 7) 
T 
CL-USER> (funcall (more-than 5) 3) 
NIL 

に続き、我々は上記のクロージャを使用して、その補数、less-than-or-equalを定義したいと我々は機能more-thanが定義されていることを言うことができます。これは私の試みが今まで働いていないので、上記の閉鎖ほど簡単ではないようです。誰かが解決策を指摘することができますか、これが共通のパターンであるかどうかを教えてください（つまり、最初のクロージャとは独立した第2のクロージャを定義する代わりに）。ここで

は、私がコメントで述べたように、あなたは機能の補完を行うことCOMPLEMENTを使用することができます

;; compile time error 
(defun less-than-or-equal (v) 
    #'(lambda (x) #'(not (more-than v)))) 
;; returns nil for every comparison 
(defun less-than-or-equal (v) 
    #'(lambda (x) (not (more-than v)))) 

Answer 1

を動作しませんでした私の試行の2つです：あなたは

(defun less-than-or-equal (v) 
    (complement (more-than v))) 

関数を呼び出して結果を否定するのではなく、を使用して、MORE-THANによって返された関数を無効にしようとしています。 Xはまったく使用されていません。それを修正するには、あなたがする必要があります

(defun less-than-or-equal (v) 
    ;; The #' is not necessary here 
    (lambda (x) (not (funcall (more-than v) x)))) 

しかし、COMPLEMENTを使用してより良いです。