diff --git a/wip-duuqnd/user-side-compiler/label.lisp b/wip-duuqnd/user-side-compiler/label.lisp
index da37133..6c64370 100644
--- a/wip-duuqnd/user-side-compiler/label.lisp
+++ b/wip-duuqnd/user-side-compiler/label.lisp
@@ -4,6 +4,9 @@
   ((%name :accessor name :initarg :name)
    (%address :accessor address :initform nil :initarg :address)))
 
+(defun labelp (obj)
+  (typep obj 'label))
+
 (defmethod print-object ((object label) stream)
   (with-accessors ((name name) (address address)) object
     (print-unreadable-object (object stream :type t)