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/package.lisp | 1 - src/util.lisp | 4 ---- 2 files changed, 5 deletions(-) (limited to 'src') diff --git a/src/package.lisp b/src/package.lisp index 0582459..0022788 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -105,7 +105,6 @@ #:unlines #:words #:unwords - #:symbol-named #:memstring= #:define-simple-error #:plist-to-cmd-args 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