Commit 1eea17aa authored by Marco Antoniotti's avatar Marco Antoniotti

Fixed a few exports.

parent c9110a0e
...@@ -88,24 +88,19 @@ argument as the optional one. ...@@ -88,24 +88,19 @@ argument as the optional one.
) )
;; Generic names (shadowing CL symbols). ;; Generic names (shadowing CL symbols).
(:shadow "=" "+" "-" "*" "/" ">" "<" ">=" "<=" "/=") (:shadow "=" "+" "-" "*" "/" ">" "<" ">=" "<=" "/=")
(:shadow "PLUSP" "MINUSP" "ZEROP") (:shadow "PLUSP" "MINUSP" "ZEROP")
(:shadow "EXPT" "GCD" "LCM") (:shadow "EXP" "EXPT" "GCD" "LCM")
(:export "=" "+" "-" "*" "/" ">" "<" ">=" "<=" "/=") (:export "=" "+" "-" "*" "/" ">" "<" ">=" "<=" "/=")
(:export "PLUSP" "MINUSP" "ZEROP") (:export "PLUSP" "MINUSP" "ZEROP")
(:export "EXPT" "GCD" "LCM") (:export "EXP" "EXPT" "GCD" "LCM")
(:export "INCREASING" "DECREASING") (:export "INCREASING" "DECREASING")
(:export "MINIMUM" "MAXIMUM" "MINMAX") (:export "MINIMUM" "MAXIMUM" "MINMAX")
(:export "OUTER-PRODUCT")
(:export "INNER-PRODUCT" "DOT")
(:export "SUM") (:export "SUM")
(:export "PRODUCT") (:export "PRODUCT")
...@@ -125,9 +120,11 @@ argument as the optional one. ...@@ -125,9 +120,11 @@ argument as the optional one.
(:export "GCD." ".GCD." "LCM." ".LCM.") (:export "GCD." ".GCD." "LCM." ".LCM.")
(:export "INNER-PRODUCT" "OUTER-PRODUCT" "DOT")
(:export "/*" "./*.") ; Inner product. (:export "/*" "./*.") ; Inner product.
(:export "*/" ".*/.") ; Outer product. (:export "*/" ".*/.") ; Outer product.
(:export "INNER-SUM" "OUTER-SUM")
(:export "/+" "./+.") ; Inner sum. (:export "/+" "./+.") ; Inner sum.
(:export "+/" ".+/.") ; Outer sum. (:export "+/" ".+/.") ; Outer sum.
......
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