feature/workspaces: don't error when +workspace-p recieves nil

This commit is contained in:
Henrik Lissner 2017-03-01 21:40:42 -05:00
parent 4c3652bede
commit 7aa8d54e08

View file

@ -30,7 +30,8 @@
;;;###autoload
(defun +workspace-p (obj)
"Return t if OBJ is a perspective hash table."
(and (hash-table-p obj)
(and obj
(hash-table-p obj)
(perspective-p obj)))
;;;###autoload