Commit 3f2b923f authored by pfdietz's avatar pfdietz
Browse files

Removed fixup definition of COMPLEMENT now that gcl has it.

parent 833ff8c6
......@@ -133,10 +133,10 @@ the condition to go uncaught if it cannot be classified."
(values (not (not result))
(not (not good)))))
(eval-when (load eval compile)
(unless (fboundp 'complement)
(defun complement (fn)
#'(lambda (&rest args) (not (apply fn args))))))
;;; (eval-when (load eval compile)
;;; (unless (fboundp 'complement)
;;; (defun complement (fn)
;;; #'(lambda (&rest args) (not (apply fn args))))))
(defun compose (&rest fns)
(let ((rfns (reverse fns)))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment