diff options
Diffstat (limited to 'src/connection.lisp')
-rw-r--r-- | src/connection.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 3a09bac..4e0863f 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -61,6 +61,9 @@ For an example of usage, see the :SUDO connection type.")) (defclass posix-connection (connection) ()) +(defun lisp-connection-p () + (subtypep (type-of *connection*) 'lisp-connection)) + ;;; generic functions to operate on subclasses of CONNECTION (defgeneric connection-run (connection cmd input) |