mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 11:32:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

pprint.lsp: remove unsupportet declare extension 'values' calls.

Browse source 
Closes #10.
This commit is contained in:
Daniel Kochmański 2015-03-14 22:09:15 +01:00
parent 6453e7aa42
commit ea6adc6aea
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/lsp/pprint.lsp
View file

@ -930,7 +930,6 @@
next line. (See PPRINT-INDENT.)"
(declare (type (member :linear :miser :fill :mandatory) kind)
(type (or stream (member t nil)) stream)
(values null)
(ext:check-arguments-type)
#.+ecl-safe-declarations+)
(let ((stream (case stream
@ -954,7 +953,6 @@
(declare (type (member :block :current) relative-to)
(type real n)
(type (or stream (member t nil)) stream)
(values null)
(ext:check-arguments-type)
#.+ecl-safe-declarations+)
(let ((stream (case stream
@ -980,7 +978,6 @@
(declare (type (member :line :section :line-relative :section-relative) kind)
(type unsigned-byte colnum colinc)
(type (or stream (member t nil)) stream)
(values null)
(ext:check-arguments-type)
#.+ecl-safe-declarations+)
(let ((stream (case stream