Merge pull request 7max#17 from slyrus/sbcl-debug-name-fix

check to see if debug-name is an atom before treating it as a list
40ants · Jun 21, 2017 · c262fab · c262fab
2 parents dae29d4 + b7d8f15
commit c262fab
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/naming-sbcl.lisp b/src/naming-sbcl.lisp
@@ -80,6 +80,8 @@ will be: package.foo.bar.baz
                                        (symbol-name debug-name)))))
         debug-name)
       (cond 
+        ((atom debug-name)
+         (string debug-name))
         ((member (first debug-name) '(flet labels lambda))
          (include-block-debug-name? (second debug-name)))
         ((eq 'labels (first debug-name))