|
|
|---|
|
|
|
|---|
A copying macro that lets you create new defdigits-infop structures, based on existing structures.
Syntax:
(change-defdigits-info x
[:base <base>]
[:digit-pred <digit-pred>]
[:digit-fix <digit-fix>]
[:digits-pred <digits-pred>]
[:digits-fix <digits-fix>]
[:bendian-to-nat <bendian-to-nat>]
[:lendian-to-nat <lendian-to-nat>]
[:nat-to-bendian <nat-to-bendian>]
[:nat-to-lendian <nat-to-lendian>]
[:digits-description <digits-description>]
[:digit-pred-correct <digit-pred-correct>]
[:digit-fix-correct <digit-fix-correct>]
[:digits-pred-correct <digits-pred-correct>]
[:digits-fix-correct <digits-fix-correct>])
This is a sometimes useful alternative to make-defdigits-info.
It constructs a new defdigits-infop structure that is a copy of
This is an ordinary
Macro:
(defmacro change-defdigits-info (x &rest args) (std::change-aggregate 'defdigits-info x args '((:base . defdigits-info->base) (:digit-pred . defdigits-info->digit-pred) (:digit-fix . defdigits-info->digit-fix) (:digits-pred . defdigits-info->digits-pred) (:digits-fix . defdigits-info->digits-fix) (:bendian-to-nat . defdigits-info->bendian-to-nat) (:lendian-to-nat . defdigits-info->lendian-to-nat) (:nat-to-bendian . defdigits-info->nat-to-bendian) (:nat-to-lendian . defdigits-info->nat-to-lendian) (:digits-description . defdigits-info->digits-description) (:digit-pred-correct . defdigits-info->digit-pred-correct) (:digit-fix-correct . defdigits-info->digit-fix-correct) (:digits-pred-correct . defdigits-info->digits-pred-correct) (:digits-fix-correct . defdigits-info->digits-fix-correct)) 'change-defdigits-info 'nil))