diff options
| author | Nikodemus Siivola <nikodemus@random-state.net> | 2007-07-21 00:05:15 +0000 |
|---|---|---|
| committer | Nikodemus Siivola <nikodemus@random-state.net> | 2007-07-21 00:05:15 +0000 |
| commit | 95a76d208004b4ad58ebee3bf36a3f4ae75fdb46 (patch) | |
| tree | 6825e89a06c4d6ad4942ebf65028f1e8dfe9d6ff /tests/clos.pure.lisp | |
| parent | d4624e03c64b15a86594b12020da88d7e5167e4f (diff) | |
1.0.7.35: SLOT-VALUE and SET-SLOT-VALUE transforms aren't important
* No compiler notes for default policy.
* Test case.
Diffstat (limited to 'tests/clos.pure.lisp')
| -rw-r--r-- | tests/clos.pure.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/clos.pure.lisp b/tests/clos.pure.lisp index 803b48a67..aec18503f 100644 --- a/tests/clos.pure.lisp +++ b/tests/clos.pure.lisp @@ -71,3 +71,13 @@ (when (and std (< std last)) (push `(:std ,c) result)))))) (assert (null result)))) + +;; No compiler-notes for non-constant slot-names in default policy. +(handler-case + (compile nil '(lambda (x y z) + (setf (slot-value x z) + (slot-value y z)))) + (sb-ext:compiler-note (e) + (error e))) + + |