head	1.1;
access;
symbols
	pkgsrc-2026Q1:1.1.0.114
	pkgsrc-2026Q1-base:1.1
	pkgsrc-2025Q4:1.1.0.112
	pkgsrc-2025Q4-base:1.1
	pkgsrc-2025Q3:1.1.0.110
	pkgsrc-2025Q3-base:1.1
	pkgsrc-2025Q2:1.1.0.108
	pkgsrc-2025Q2-base:1.1
	pkgsrc-2025Q1:1.1.0.106
	pkgsrc-2025Q1-base:1.1
	pkgsrc-2024Q4:1.1.0.104
	pkgsrc-2024Q4-base:1.1
	pkgsrc-2024Q3:1.1.0.102
	pkgsrc-2024Q3-base:1.1
	pkgsrc-2024Q2:1.1.0.100
	pkgsrc-2024Q2-base:1.1
	pkgsrc-2024Q1:1.1.0.98
	pkgsrc-2024Q1-base:1.1
	pkgsrc-2023Q4:1.1.0.96
	pkgsrc-2023Q4-base:1.1
	pkgsrc-2023Q3:1.1.0.94
	pkgsrc-2023Q3-base:1.1
	pkgsrc-2023Q2:1.1.0.92
	pkgsrc-2023Q2-base:1.1
	pkgsrc-2023Q1:1.1.0.90
	pkgsrc-2023Q1-base:1.1
	pkgsrc-2022Q4:1.1.0.88
	pkgsrc-2022Q4-base:1.1
	pkgsrc-2022Q3:1.1.0.86
	pkgsrc-2022Q3-base:1.1
	pkgsrc-2022Q2:1.1.0.84
	pkgsrc-2022Q2-base:1.1
	pkgsrc-2022Q1:1.1.0.82
	pkgsrc-2022Q1-base:1.1
	pkgsrc-2021Q4:1.1.0.80
	pkgsrc-2021Q4-base:1.1
	pkgsrc-2021Q3:1.1.0.78
	pkgsrc-2021Q3-base:1.1
	pkgsrc-2021Q2:1.1.0.76
	pkgsrc-2021Q2-base:1.1
	pkgsrc-2021Q1:1.1.0.74
	pkgsrc-2021Q1-base:1.1
	pkgsrc-2020Q4:1.1.0.72
	pkgsrc-2020Q4-base:1.1
	pkgsrc-2020Q3:1.1.0.70
	pkgsrc-2020Q3-base:1.1
	pkgsrc-2020Q2:1.1.0.66
	pkgsrc-2020Q2-base:1.1
	pkgsrc-2020Q1:1.1.0.46
	pkgsrc-2020Q1-base:1.1
	pkgsrc-2019Q4:1.1.0.68
	pkgsrc-2019Q4-base:1.1
	pkgsrc-2019Q3:1.1.0.64
	pkgsrc-2019Q3-base:1.1
	pkgsrc-2019Q2:1.1.0.62
	pkgsrc-2019Q2-base:1.1
	pkgsrc-2019Q1:1.1.0.60
	pkgsrc-2019Q1-base:1.1
	pkgsrc-2018Q4:1.1.0.58
	pkgsrc-2018Q4-base:1.1
	pkgsrc-2018Q3:1.1.0.56
	pkgsrc-2018Q3-base:1.1
	pkgsrc-2018Q2:1.1.0.54
	pkgsrc-2018Q2-base:1.1
	pkgsrc-2018Q1:1.1.0.52
	pkgsrc-2018Q1-base:1.1
	pkgsrc-2017Q4:1.1.0.50
	pkgsrc-2017Q4-base:1.1
	pkgsrc-2017Q3:1.1.0.48
	pkgsrc-2017Q3-base:1.1
	pkgsrc-2017Q2:1.1.0.44
	pkgsrc-2017Q2-base:1.1
	pkgsrc-2017Q1:1.1.0.42
	pkgsrc-2017Q1-base:1.1
	pkgsrc-2016Q4:1.1.0.40
	pkgsrc-2016Q4-base:1.1
	pkgsrc-2016Q3:1.1.0.38
	pkgsrc-2016Q3-base:1.1
	pkgsrc-2016Q2:1.1.0.36
	pkgsrc-2016Q2-base:1.1
	pkgsrc-2016Q1:1.1.0.34
	pkgsrc-2016Q1-base:1.1
	pkgsrc-2015Q4:1.1.0.32
	pkgsrc-2015Q4-base:1.1
	pkgsrc-2015Q3:1.1.0.30
	pkgsrc-2015Q3-base:1.1
	pkgsrc-2015Q2:1.1.0.28
	pkgsrc-2015Q2-base:1.1
	pkgsrc-2015Q1:1.1.0.26
	pkgsrc-2015Q1-base:1.1
	pkgsrc-2014Q4:1.1.0.24
	pkgsrc-2014Q4-base:1.1
	pkgsrc-2014Q3:1.1.0.22
	pkgsrc-2014Q3-base:1.1
	pkgsrc-2014Q2:1.1.0.20
	pkgsrc-2014Q2-base:1.1
	pkgsrc-2014Q1:1.1.0.18
	pkgsrc-2014Q1-base:1.1
	pkgsrc-2013Q4:1.1.0.16
	pkgsrc-2013Q4-base:1.1
	pkgsrc-2013Q3:1.1.0.14
	pkgsrc-2013Q3-base:1.1
	pkgsrc-2013Q2:1.1.0.12
	pkgsrc-2013Q2-base:1.1
	pkgsrc-2013Q1:1.1.0.10
	pkgsrc-2013Q1-base:1.1
	pkgsrc-2012Q4:1.1.0.8
	pkgsrc-2012Q4-base:1.1
	pkgsrc-2012Q3:1.1.0.6
	pkgsrc-2012Q3-base:1.1
	pkgsrc-2012Q2:1.1.0.4
	pkgsrc-2012Q2-base:1.1
	pkgsrc-2012Q1:1.1.0.2
	pkgsrc-2012Q1-base:1.1;
locks; strict;
comment	@# @;


1.1
date	2012.04.01.20.48.39;	author asau;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Ad hoc fix to make OpenAxiom build with CLISP on NetBSD/amd64.

It sounds like COMPILE-FILE is broken in CLISP on NetBSD/amd64.
Silence warnings and suppress redefinition check in order to compile it
without a single warning.
@
text
@$NetBSD$

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")
 
@