mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 03:40:31 -07:00
Code Issues Projects Releases Packages Wiki Activity

pprint-tabular: declare type of tabsize

Browse source 
This is necessary, because now format may pass null, and since we have
ext:check-arguments-type and tabsize defaults to 16, its type is
inferred to be unsigned-byte.
This commit is contained in:
Daniel Kochmański 2016-12-06 15:16:10 +01:00
parent 5113255700
commit 524558ba6f
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/lsp/pprint.lsp
View file

@ -1037,6 +1037,7 @@
the ~/.../ format directive."
(declare (ignore atsign?)
(type (or stream (member t nil)) stream)
(type (or unsigned-byte null) tabsize)
(ext:check-arguments-type)
#.+ecl-safe-declarations+)
(pprint-logical-block (stream list