diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-10-03 19:20:52 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-10-03 19:20:52 -0700 |
| commit | a40d5455f2deb554ef3007b37441c16506f1c557 (patch) | |
| tree | b3b58b03dafb887b8fea4ab8fc2dac4093ffe199 /share | |
| parent | 9ac9586db2f2218ff7cd45a5b812b0835ad2dab2 (diff) | |
| download | txr-a40d5455f2deb554ef3007b37441c16506f1c557.tar.gz txr-a40d5455f2deb554ef3007b37441c16506f1c557.tar.bz2 txr-a40d5455f2deb554ef3007b37441c16506f1c557.zip | |
slot-p renamed to slotp, conforming with Lisp conventions.
* share/txr/stdlib/struct.tl (sys:prune-nil-inits):
Use of slot-p renamed.
* struct.c (struct_init): Register slotp, and make
registration of slot-p conditional on compatibility option.
(slot_p): Function renamed to slotp.
* struct.h (slot_p): Declaration renamed.
* txr.1: References to slot-p fixed to slotp. Compat notes
added.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/struct.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index fb9365f2..f943c06f 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -32,7 +32,7 @@ (and (member kind '(:static :instance)) (null init-form) (or (not super-type) - (not (slot-p super-type name))))) + (not (slotp super-type name))))) slot-init-forms))) (defmacro defstruct (name-spec super . slot-specs) |