diff options
author | Stas Boukarev <stassats@gmail.com> | 2020-12-15 17:49:05 +0300 |
---|---|---|
committer | Stas Boukarev <stassats@gmail.com> | 2020-12-15 17:49:05 +0300 |
commit | d77f9db9834a792b0fd49bef9f9e4704f4d512eb (patch) | |
tree | 8650d5ba24157f847b20b9cf573ec0bf5cfd3be5 /tests/type.pure.lisp | |
parent | cba51d895541d825f2b82a7a5f09dcf24ec8b7ea (diff) |
Make TYPE-OF on instances without a layout.
Which can show up in the debugger.
Fixes lp#1908261
Diffstat (limited to 'tests/type.pure.lisp')
-rw-r--r-- | tests/type.pure.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/type.pure.lisp b/tests/type.pure.lisp index a984b0854..0f7438353 100644 --- a/tests/type.pure.lisp +++ b/tests/type.pure.lisp @@ -716,3 +716,7 @@ sb-c::optional-dispatch)) (assert (eval `(sb-c::%structure-is-a ,(sb-kernel:find-layout 'sb-c::optional-dispatch) ,(sb-kernel:find-layout what)))))) + +(with-test (:name :type-of-empty-instance) + (assert (eq (type-of (eval '(sb-kernel:%make-instance 12))) + 'sb-kernel:instance))) |