diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/struct.tl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index 56d27e0a..bd62637f 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -279,8 +279,7 @@ (defun sys:new-expander (op form spec pairs) (when (oddp (length pairs)) - (compile-error form - "~s: slot initform arguments must occur pairwise" op)) + (compile-error form "slot initform arguments must occur pairwise")) (let ((qpairs (mappend (aret ^(',@1 ,@2)) (tuples 2 pairs)))) (tree-case spec ((texpr . args) |