Commit 35e4a916 authored by Marius Gerbershagen's avatar Marius Gerbershagen

cmp: fix proclamations for formatter functions

Some of the argument type proclamations were wrong.
parent 93e9c3b4
......@@ -1240,17 +1240,17 @@
;; ECL extensions:
(proclamation si::pprint-logical-block-helper (t t t string gen-bool string) t)
(proclamation si::pprint-pop-helper (t t stream) t)
#+formatter (proclamation si::format-princ (stream-designator t gen-bool gen-bool integer integer integer character) t)
#+formatter (proclamation si::format-prin1 (stream-designator t gen-bool gen-bool integer integer integer character) t)
#+formatter (proclamation si::format-princ (stream-designator t gen-bool gen-bool t t integer character) t)
#+formatter (proclamation si::format-prin1 (stream-designator t gen-bool gen-bool t t integer character) t)
#+formatter (proclamation si::format-print-named-character (character stream-designator) t)
#+formatter (proclamation si::format-print-integer (stream-designator t gen-bool gen-bool radix integer character character integer) t)
#+formatter (proclamation si::format-print-integer (stream-designator t gen-bool gen-bool radix t character character integer) t)
#+formatter (proclamation si::format-print-cardinal (stream-designator number) t)
#+formatter (proclamation si::format-print-ordinal (stream-designator number) t)
#+formatter (proclamation si::format-print-old-roman (stream-designator number) t)
#+formatter (proclamation si::format-print-roman (stream-designator number) t)
#+formatter (proclamation si::format-fixed (stream-designator t integer integer integer character character gen-bool) t)
#+formatter (proclamation si::format-exponential (stream-designator t integer integer integer integer character character character gen-bool) t)
#+formatter (proclamation si::format-general (stream-designator t integer integer integer integer character character character gen-bool) t)
#+formatter (proclamation si::format-fixed (stream-designator t t t integer t character gen-bool) t)
#+formatter (proclamation si::format-exponential (stream-designator t t t t integer t character t gen-bool) t)
#+formatter (proclamation si::format-general (stream-designator t t t t integer t character t gen-bool) t)
#+formatter (proclamation si::format-dollars (stream-designator t integer integer integer character gen-bool gen-bool) t)
#+formatter (proclamation si::format-relative-tab (stream-designator integer integer) t)
#+formatter (proclamation si::format-absolute-tab (stream-designator integer integer) t)
......
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