From 4a4a7b8485d431dce952f9842473883494871054 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 8 May 2025 21:54:52 +0200 Subject: [PATCH] Add LABELP predicate --- wip-duuqnd/user-side-compiler/label.lisp | 3 +++ 1 file changed, 3 insertions(+) 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)