mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

There were missing type checks in pprint.lsp

Browse source
This commit is contained in:
jgarcia 2008-05-12 08:19:12 +00:00
parent 73cc02b14a
commit 560a96d1d9
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lsp/pprint.lsp
View file

@ -158,7 +158,7 @@
(defun pretty-sout (stream string start end)
(declare (type pretty-stream stream)
(type simple-string string)
(type string string)
(type index start)
(type (or index null) end)
(si::c-local))
@ -356,7 +356,7 @@
(defun start-logical-block (stream prefix per-line-p suffix)
(declare (si::c-local)
(type string prefix)
(type string prefix suffix)
(type pretty-stream stream))
(let ((prefix-len (length prefix)))
(when (plusp prefix-len)
@ -1140,7 +1140,7 @@
(defun set-pprint-dispatch (type function &optional
(priority 0) (table *print-pprint-dispatch*))
(declare (type (or null function) function)
(declare (type (or null function symbol) function)
(type real priority)
(type pprint-dispatch-table table))
;; FIXME! This check should be automatically generated when compiling