From 9531069cba0bafd9969be164abb12ec6fb5ca348 Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Sat, 27 Sep 2014 18:46:01 +0100
Subject: [PATCH] fix clisp build

(presumably for clisps newer than the one I have installed.)  Patch
from lp#1374702 by Vasily Postnicov
---
 src/code/load.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/code/load.lisp b/src/code/load.lisp
index 5f099949b..3bc727e11 100644
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -200,7 +200,7 @@
 ;; Return the stack and the pointer to the first argument.
 ;; Update the new top-of-stack to reflect that all N have been popped.
 (defun fop-stack-pop-n (n)
-  (declare (index n))
+  (declare (type index n))
   (let* ((stack *fop-stack*)
          (top (the index (svref stack 0)))
          (new-top (- top n)))
@@ -428,6 +428,7 @@
   ;;   For a compiled file, what is printed might not reflect precisely the
   ;;   contents of the source file, but some information is generally printed."
   ;;
+  (declare (ignorable print))
   (when (check-fasl-header stream)
     (catch 'fasl-group-end
       (reset-fop-table)
@@ -445,6 +446,7 @@
                       byte (aref *fop-names* byte)))
             ;; Actually execute the fop.
             (let ((result (funcall (the function (svref *fop-funs* byte)))))
+              (declare (ignorable result))
               #!+sb-show
               (when *show-fops-p*
                 (let* ((stack *fop-stack*)
-- 
2.11.4.GIT