projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
support funcallable-instances in ROOM/map-allocated-objects
[sbcl.git]
/
tests
/
reader.pure.lisp
diff --git
a/tests/reader.pure.lisp
b/tests/reader.pure.lisp
index
1fbd790
..
7d29b18
100644
(file)
--- a/
tests/reader.pure.lisp
+++ b/
tests/reader.pure.lisp
@@
-276,4
+276,10
@@
(with-test (:name :read-in-package-syntax)
(assert (equal '(sb-c::a (sb-kernel::x sb-kernel::y) sb-c::b)
(with-test (:name :read-in-package-syntax)
(assert (equal '(sb-c::a (sb-kernel::x sb-kernel::y) sb-c::b)
- (read-from-string "sb-c::(a sb-kernel::(x y) b)"))))
+ (read-from-string "sb-c::(a sb-kernel::(x y) b)")))
+ #+sb-package-locks
+ (assert (eq :violated!
+ (handler-case
+ (read-from-string "cl::'foo")
+ (package-lock-violation ()
+ :violated!)))))