diff options
| author | Darren Bane <dbane@tilde.institute> | 2020-12-11 14:14:33 +0000 |
|---|---|---|
| committer | Darren Bane <dbane@tilde.institute> | 2020-12-11 14:14:33 +0000 |
| commit | 207cda23007f05dd954ee82511babba457465265 (patch) | |
| tree | 44c143f1554b83d31eaac374a738b7fbaaba459d /cutil.lisp | |
| parent | 76105d297c5b56cf097bcf129e6de56d681744cc (diff) | |
| parent | f16f553f2effb7ac8120fb8a15b59bcdd480a97d (diff) | |
| download | lsp-207cda23007f05dd954ee82511babba457465265.tar.gz | |
Merge branch 'master' of /home/dbane/public_repos/lsp into master
Diffstat (limited to 'cutil.lisp')
| -rw-r--r-- | cutil.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/cutil.lisp b/cutil.lisp index e651b11..6b3f381 100644 --- a/cutil.lisp +++ b/cutil.lisp @@ -1,7 +1,8 @@ (defpackage #:cutil (:use #:common-lisp) (:export - #:<abstract-class>)) + #:<abstract-class> + #:instancep)) (in-package #:cutil) (defclass <abstract-class> (standard-class) ()) @@ -18,4 +19,7 @@ (superclass <abstract-class>)) t) +(defun instancep (obj cls) + (eq (class-of obj) cls)) + (provide "cutil") |