Fix +workspace-p (obj is a struct, not hash table)
This commit is contained in:
parent
aba1dbce55
commit
30001ec3f4
1 changed files with 1 additions and 1 deletions
|
@ -50,7 +50,7 @@ perspectives."
|
||||||
(defun +workspace-p (obj)
|
(defun +workspace-p (obj)
|
||||||
"Return t if OBJ is a perspective hash table."
|
"Return t if OBJ is a perspective hash table."
|
||||||
(and obj
|
(and obj
|
||||||
(hash-table-p obj)
|
(cl-struct-p obj)
|
||||||
(perspective-p obj)))
|
(perspective-p obj)))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue