diff --git a/data-and-control-flow/destructuring-bind.lsp b/data-and-control-flow/destructuring-bind.lsp index 63aca788b835ee5eef7a06d8308424c245195f76..28e2153b32f9799431a2ec7cc6b1a6a6f5588cf9 100644 --- a/data-and-control-flow/destructuring-bind.lsp +++ b/data-and-control-flow/destructuring-bind.lsp @@ -219,3 +219,8 @@ nil nil) program-error) t) + +(deftest destructuring-bind.error.10 + (signals-error (destructuring-bind (foo nil bar) (list 1 2 3) nil) + program-error) + t)