6 lines
184 B
Plaintext
6 lines
184 B
Plaintext
;;; Regression test for AR 7383: ENTER-DEBUGGER-P should say yes for STORAGE-CONDITIONs
|
|
|
|
(do-test "AR 7383"
|
|
(il:enter-debugger-p 0 nil (xcl:make-condition 'xcl:storage-condition))
|
|
)
|