9 lines
272 B
Plaintext
9 lines
272 B
Plaintext
;;; Regression test for AR 8466: Errors in SETF's call undefined function
|
|
|
|
(do-test "AR 8466"
|
|
(search "not a known location specifier for setf"
|
|
(xcl:condition-case (progn (setf (frob) 8) "")
|
|
(xcl:simple-error (c) (princ-to-string c)))
|
|
:test 'char-equal)
|
|
)
|