diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-09 16:12:36 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-09 16:12:56 -0700 |
| commit | fc08e3fe0697f9347ceea48baf8162b9203dd1dd (patch) | |
| tree | c8965188e6260508b3c1161c6968e35a0fe0320f /src/util.lisp | |
| parent | ac4a7c1246464844ba75f62ce72509c283cd6dc1 (diff) | |
| download | consfigurator-fc08e3fe0697f9347ceea48baf8162b9203dd1dd.tar.gz | |
drop unused function SYMBOL-NAMED
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/util.lisp')
| -rw-r--r-- | src/util.lisp | 4 |
1 files changed, 0 insertions, 4 deletions
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=)) |