Add LABELP predicate

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)