Use eq to compare symbols

The equalp function is defined in the 'cl' library, which is not loaded
by default. So I was getting the error

   error in process sentinel: not: Symbol's function definition is void:
   equalp

I replaced it with eq as it is comparing symbols
This commit is contained in:
David Vazquez 2015-09-26 11:13:53 +02:00
parent 3a2e5c486f
commit dba290a22b
1 changed files with 1 additions and 2 deletions

View File

@ -126,8 +126,7 @@
(defun puml-is-image-output-p () (defun puml-is-image-output-p ()
"Return true if the diagram output format is an image, false if it's text based." "Return true if the diagram output format is an image, false if it's text based."
(not (equalp 'utxt (not (eq 'utxt (puml-output-type))))
(puml-output-type))))
(defun puml-output-type-opt () (defun puml-output-type-opt ()
"Create the flag to pass to PlantUML to produce the selected output format." "Create the flag to pass to PlantUML to produce the selected output format."