Fix clisp-hosted build.

diff --git a/src/code/cross-misc.lisp b/src/code/cross-misc.lisp
index 4503861..1753e34 100644 (file)
--- a/src/code/cross-misc.lisp
+++ b/src/code/cross-misc.lisp
@@ -126,7 +126,8 @@
 ;;; the host Lisp, this is only used at cold load time, and we don't
 ;;; care as much about efficiency, so it's fine to treat the host
 ;;; Lisp's INTERN as primitive and implement INTERN* in terms of it.
-(defun intern* (nameoid length package)
+(defun intern* (nameoid length package &key no-copy)
+  (declare (ignore no-copy))
   (intern (replace (make-string length) nameoid :end2 length) package))
 
 ;;; In the target Lisp this is implemented by reading a fixed slot in

diff --git a/src/code/load.lisp b/src/code/load.lisp
index ed29a41..68a6e22 100644 (file)
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -128,7 +128,7 @@
 
 (declaim (inline ref-fop-table))
 (defun ref-fop-table (index)
-  (declare (index index))
+  (declare (type index index))
   (svref *fop-table* (the index (+ index 1))))
 
 (defun get-fop-table-index ()
@@ -150,14 +150,14 @@
 
 ;;; These three routines are used for both the stack and the table.
 (defun make-fop-vector (size)
-  (declare (index size))
+  (declare (type index size))
   (let ((vector (make-array size)))
     (setf (aref vector 0) 0)
     vector))
 
 (defun grow-fop-vector (old-vector old-size)
   (declare (simple-vector old-vector)
-           (index old-size))
+           (type index old-size))
   (let* ((new-size (* old-size 2))
          (new-vector (make-array new-size)))
     (declare (fixnum new-size)
@@ -187,7 +187,7 @@
 (defun pop-fop-stack ()
   (let* ((stack *fop-stack*)
          (top (svref stack 0)))
-    (declare (index top))
+    (declare (type index top))
     (when (eql 0 top)
       (error "FOP stack empty"))
     (setf (svref stack 0) (1- top))
@@ -196,7 +196,7 @@
 (defun push-fop-stack (value)
   (let* ((stack *fop-stack*)
          (next (1+ (the index (svref stack 0)))))
-    (declare (index next))
+    (declare (type index next))
     (when (eql (length stack) next)
       (setf stack (grow-fop-vector stack next)
             *fop-stack* stack))