From ea6adc6aeaf6840f76939cc7563b45d4b2422220 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Sat, 14 Mar 2015 22:09:15 +0100 Subject: [PATCH] pprint.lsp: remove unsupportet declare extension 'values' calls. Closes #10. --- src/lsp/pprint.lsp | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/lsp/pprint.lsp b/src/lsp/pprint.lsp index 47ee9f88e..7e5f4c352 100644 --- a/src/lsp/pprint.lsp +++ b/src/lsp/pprint.lsp @@ -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