From fc08e3fe0697f9347ceea48baf8162b9203dd1dd Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 9 Mar 2022 16:12:36 -0700 Subject: drop unused function SYMBOL-NAMED Signed-off-by: Sean Whitton --- src/util.lisp | 4 ---- 1 file changed, 4 deletions(-) (limited to 'src/util.lisp') diff --git a/src/util.lisp b/src/util.lisp index 887ebd1..a76b6c1 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -72,10 +72,6 @@ (defun unwords (words) (format nil "~{~A~^ ~}" words)) -(defmacro symbol-named (name symbol) - `(and (symbolp ,symbol) - (string= (symbol-name ',name) (symbol-name ,symbol)))) - (defun memstring= (string list) (member string list :test #'string=)) -- cgit v1.2.3