Commit 9ea84c4f authored by Marco Antoniotti's avatar Marco Antoniotti 💬
Browse files

Added some doc strings.

parent 2682ccb1
......@@ -16,10 +16,14 @@ shuld not be directly instantiated."))
(defgeneric is-context (x)
(:method ((c context)) t)
(:method ((c t)) nil))
(:method ((c t)) nil)
(:documentation
"Returns T if the argument X is a CONTEXT; NIL otherwise."))
(defun context-p (x) (is-context x))
(defun context-p (x)
"Returns T if the argument X is a CONTEXT; NIL otherwise."
(is-context x))
;;;; end of file -- with-cl.lisp
Markdown is supported
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