Adjust a test.

Calling a special operator by name fails differently on x86-64 and -x86-64.
This commit is contained in:
Stas Boukarev 2019-08-22 14:36:08 +03:00
parent 2dc112f184
commit 33e4b25679

View file

@ -18,7 +18,8 @@
(with-test (:name (:funcall-macro-signals-error))
(assert-error (eval '(funcall 'cond nil)) undefined-function))
(with-test (:name (:funcall-special-op-signals-error))
(assert-error (eval '(funcall 'quote nil)) sb-int:special-form-function))
(assert-error (eval '(funcall 'quote nil)) #+x86-64 sb-int:special-form-function
#-x86-64 undefined-function))
;;; ROOM should run without signalling an error. (bug 247)
(let ((*standard-output* (make-broadcast-stream)))