projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.4.68:
[sbcl.git]
/
tests
/
package-locks.impure.lisp
diff --git
a/tests/package-locks.impure.lisp
b/tests/package-locks.impure.lisp
index
59415e3
..
f91a32f
100644
(file)
--- a/
tests/package-locks.impure.lisp
+++ b/
tests/package-locks.impure.lisp
@@
-436,14
+436,16
@@
package-lock-violation))))
;;;; Program-errors from lexical violations
package-lock-violation))))
;;;; Program-errors from lexical violations
-(reset-test)
-(set-test-locks t)
-(dolist (pair *illegal-compile-time-forms-alist*)
- (destructuring-bind (sym . form) pair
+;;;; In addition to that, this is also testing for bug 387
+(with-test (:fails-on :sbcl)
+ (reset-test)
+ (set-test-locks t)
+ (dolist (pair *illegal-compile-time-forms-alist*)
+ (destructuring-bind (sym . form) pair
(declare (ignore sym))
(declare (ignore sym))
- (let ((fun (compile nil `(lambda ()
- ,form))))
- (assert (raises-error? (funcall fun) program-error)))))
+ (let ((fun (compile nil `(lambda ()
+ ,form))))
+ (assert (raises-error? (funcall fun) program-error))))))
;;;; See that trace on functions in locked packages doesn't break
;;;; anything.
;;;; See that trace on functions in locked packages doesn't break
;;;; anything.
@@
-478,4
+480,3
@@
package-lock-violation))
;;; WOOT! Done.
package-lock-violation))
;;; WOOT! Done.
-(sb-ext:quit :unix-status 104)