1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
$NetBSD: patch-src_interp_patches.lisp,v 1.1 2012/04/01 20:48:39 asau Exp $
Silence warnings to make it build with CLISP on NetBSD/amd64
(perhaps on other amd64 systems too).
--- src/interp/patches.lisp.orig 2011-07-07 19:04:13.000000000 +0000
+++ src/interp/patches.lisp
@@ -33,11 +33,12 @@
(import-module "macros")
(import-module "g-timer")
+#+clisp (eval-when (:compile-toplevel :load-toplevel) (setf custom:*suppress-check-redefinition* t))
(import-module "sys-driver")
(in-package "BOOT")
;;patches for now
-(defun CATCHALL (a &rest b) a) ;; not correct but ok for now
+(defun CATCHALL (a &rest b) (declare (ignore b)) a) ;; not correct but ok for now
(defvar |$demoFlag| nil)
(define-function '|construct| #'list) ;; NEEDED , SPAD-COMPILER generated Lisp code
@@ -58,7 +59,7 @@
;; call lisp::unwind whereas it is defined (in this file) to be
;; interned in the boot package. We've returned toplevel to its
;; previous definition.
-(defun toplevel (&rest foo) (throw '|top_level| '|restart|))
+(defun toplevel (&rest foo) (declare (ignore foo)) (throw '|top_level| '|restart|))
;;(defun toplevel (&rest foo) (lisp::unwind))
(define-function 'top-level #'toplevel)
@@ -69,15 +70,15 @@
#+(and :GCL :IEEE-FLOATING-POINT )
(setq system:*print-nans* T)
-(defun /RF (&rest foo &aux (|$Echo| 'T))
+(defun /RF (&rest foo &aux (|$Echo| 'T)) (declare (ignore foo))
(declare (special |$Echo|))
(/RF-1 nil))
-(defun /RQ (&rest foo &aux (|$Echo| nil))
+(defun /RQ (&rest foo &aux (|$Echo| nil)) (declare (ignore foo))
(declare (special |$Echo|))
(/RF-1 nil))
-(defun |/RQ,LIB| (&rest foo &aux (|$Echo| nil) ($LISPLIB T))
+(defun |/RQ,LIB| (&rest foo &aux (|$Echo| nil) ($LISPLIB T)) (declare (ignore foo))
(declare (special |$Echo| $LISPLIB))
(/RF-1 nil))
@@ -99,10 +100,10 @@
(|ncINTERPFILE| input-file |$Echo|))
(t (spad input-file)))))
-(defun /EF (&rest foo)
+(defun /EF (&rest foo) (declare (ignore foo))
(|runCommand| (concat "vi " (namestring (make-input-filename /EDITFILE)))))
-(defun SHAREDITEMS (x) T) ;;checked in history code
+(defun SHAREDITEMS (x) (declare (ignore x)) T) ;;checked in history code
(defun GETZEROVEC (n) (MAKE-ARRAY n :initial-element 0))
@@ -116,11 +117,11 @@
;; following are defined in spadtest.boot and stantest.boot
(defun |installStandardTestPackages| () ())
-(defun |spadtestValueHook| (val type) ())
-(defun |testError| (errotype erroValue) ())
+(defun |spadtestValueHook| (val type) (declare (ignore val type)) ())
+(defun |testError| (errotype erroValue) (declare (ignore errotype erroValue)) ())
(defvar |$TestOptions| ())
;; following in defined in word.boot
-(defun |bootFind| (word) ())
+(defun |bootFind| (word) (declare (ignore word)) ())
(defvar *msghash* nil "hash table keyed by msg number")
|
