Commit 1412597a authored by Marco Antoniotti's avatar Marco Antoniotti 💬

Started to added some control on coercion.

parent ae49909c
......@@ -13,6 +13,7 @@
(:export "NEW" "NEWQ")
(:export "TYPE-CONS")
(:export "REGISTER-STRUCTURE-CONSTRUCTOR")
(:export "*COERCE-NUMBERS-P*" "*COERCE-ARRAY-ELEMENTS-P*")
)
......
......@@ -30,6 +30,23 @@
;; Other class/type names here.
))
;;;;---------------------------------------------------------------------------
;;;; Global Behavior Controlling Variables.
(defparameter *coerce-numbers-p* nil
"If true numbers are coerced to the expected type (in number constructors).
The default is NIL."
)
(defparameter *coerce-array-elements-p* nil
"If true array initial elements are coerced to the expected type.
The default is NIL."
)
;;;;---------------------------------------------------------------------------
;;;; Protocol.
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment