aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xconfigure18
-rw-r--r--configure.ac2
-rw-r--r--configure.ac.pamphlet2
-rw-r--r--src/ChangeLog5
-rw-r--r--src/interp/Makefile.in5
-rw-r--r--src/interp/Makefile.pamphlet5
-rw-r--r--src/interp/g-error.boot3
-rw-r--r--src/interp/msg.boot3
-rw-r--r--src/interp/nocompil.lisp77
-rw-r--r--src/interp/setvars.boot22
-rw-r--r--src/interp/trace.boot3
11 files changed, 36 insertions, 109 deletions
diff --git a/configure b/configure
index 2d7cee9c..a0e56e20 100755
--- a/configure
+++ b/configure
@@ -1,6 +1,6 @@
#! /bin/sh
# Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.60 for OpenAxiom 1.2.0-2008-03-08.
+# Generated by GNU Autoconf 2.60 for OpenAxiom 1.2.0-2008-03-10.
#
# Report bugs to <open-axiom-bugs@lists.sf.net>.
#
@@ -713,8 +713,8 @@ SHELL=${CONFIG_SHELL-/bin/sh}
# Identity of this package.
PACKAGE_NAME='OpenAxiom'
PACKAGE_TARNAME='openaxiom'
-PACKAGE_VERSION='1.2.0-2008-03-08'
-PACKAGE_STRING='OpenAxiom 1.2.0-2008-03-08'
+PACKAGE_VERSION='1.2.0-2008-03-10'
+PACKAGE_STRING='OpenAxiom 1.2.0-2008-03-10'
PACKAGE_BUGREPORT='open-axiom-bugs@lists.sf.net'
ac_unique_file="src/Makefile.pamphlet"
@@ -1387,7 +1387,7 @@ if test "$ac_init_help" = "long"; then
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
-\`configure' configures OpenAxiom 1.2.0-2008-03-08 to adapt to many kinds of systems.
+\`configure' configures OpenAxiom 1.2.0-2008-03-10 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
@@ -1457,7 +1457,7 @@ fi
if test -n "$ac_init_help"; then
case $ac_init_help in
- short | recursive ) echo "Configuration of OpenAxiom 1.2.0-2008-03-08:";;
+ short | recursive ) echo "Configuration of OpenAxiom 1.2.0-2008-03-10:";;
esac
cat <<\_ACEOF
@@ -1561,7 +1561,7 @@ fi
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
-OpenAxiom configure 1.2.0-2008-03-08
+OpenAxiom configure 1.2.0-2008-03-10
generated by GNU Autoconf 2.60
Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@@ -1575,7 +1575,7 @@ cat >config.log <<_ACEOF
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
-It was created by OpenAxiom $as_me 1.2.0-2008-03-08, which was
+It was created by OpenAxiom $as_me 1.2.0-2008-03-10, which was
generated by GNU Autoconf 2.60. Invocation command line was
$ $0 $@
@@ -25230,7 +25230,7 @@ exec 6>&1
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
-This file was extended by OpenAxiom $as_me 1.2.0-2008-03-08, which was
+This file was extended by OpenAxiom $as_me 1.2.0-2008-03-10, which was
generated by GNU Autoconf 2.60. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
@@ -25279,7 +25279,7 @@ Report bugs to <bug-autoconf@gnu.org>."
_ACEOF
cat >>$CONFIG_STATUS <<_ACEOF
ac_cs_version="\\
-OpenAxiom config.status 1.2.0-2008-03-08
+OpenAxiom config.status 1.2.0-2008-03-10
configured by $0, generated by GNU Autoconf 2.60,
with options \\"`echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\"
diff --git a/configure.ac b/configure.ac
index 8ea1f874..6ce6d9db 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1,6 +1,6 @@
sinclude(config/open-axiom.m4)
sinclude(config/aclocal.m4)
-AC_INIT([OpenAxiom], [1.2.0-2008-03-08],
+AC_INIT([OpenAxiom], [1.2.0-2008-03-10],
[open-axiom-bugs@lists.sf.net])
AC_CONFIG_AUX_DIR(config)
diff --git a/configure.ac.pamphlet b/configure.ac.pamphlet
index 1a82eb8d..064d29d5 100644
--- a/configure.ac.pamphlet
+++ b/configure.ac.pamphlet
@@ -1022,7 +1022,7 @@ information:
<<Autoconf init>>=
sinclude(config/open-axiom.m4)
sinclude(config/aclocal.m4)
-AC_INIT([OpenAxiom], [1.2.0-2008-03-08],
+AC_INIT([OpenAxiom], [1.2.0-2008-03-10],
[open-axiom-bugs@lists.sf.net])
@
diff --git a/src/ChangeLog b/src/ChangeLog
index e21a79b7..f33d2702 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,10 @@
2008-03-10 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * interp/nocompil.lisp: Remove.
+ * interp/Makefile.pamphlet: Adjust.
+
+2008-03-10 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* algebra/Makefile.pamphlet (strap/%.$(FASLEXT)): Don't copy
bootstrapping objects to final algebra directory.
(%.NRLIB/code.$(FASLEXT)): Specify bootstrapping objects location
diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in
index 7a37bcb2..7eea5527 100644
--- a/src/interp/Makefile.in
+++ b/src/interp/Makefile.in
@@ -193,7 +193,6 @@ clean-local: mostlyclean-local
distclean-local: clean-local
makeint.lisp: ${OBJS} util.$(FASLEXT) \
- nocompil.$(FASLEXT) \
sys-driver.$(FASLEXT) \
${OUTINTERP} obey.$(FASLEXT) \
database.date ${INOBJS} ${ASCOMP} ${ASAUTO} \
@@ -211,7 +210,6 @@ makeint.lisp: ${OBJS} util.$(FASLEXT) \
@ echo '(|importModule| "vmlisp")' >> makeint.lisp
@ echo '(|importModule| "hash")' >> makeint.lisp
@ echo '(gbc t)' >> makeint.lisp
- @ echo '(|importModule| "nocompil")' >> makeint.lisp
@ echo '(|importModule| "util")' >> makeint.lisp
@ echo '(in-package "BOOT")' >> makeint.lisp
@ touch ${TIMESTAMP}
@@ -713,9 +711,6 @@ compress.$(FASLEXT): compress.boot sys-macros.$(FASLEXT)
msg.$(FASLEXT): msg.boot sys-macros.$(FASLEXT) astr.$(FASLEXT)
$(BOOTSYS) -- --compile --output=$@ --load-directory=. $<
-nocompil.$(FASLEXT): nocompil.lisp boot-pkg.$(FASLEXT)
- $(BOOTSYS) -- --compile --output=$@ --load-directory=. $<
-
util.$(FASLEXT): util.lisp parsing.$(FASLEXT)
$(BOOTSYS) -- --compile --output=$@ --load-directory=. $<
diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet
index b8b67c5c..ef951a9e 100644
--- a/src/interp/Makefile.pamphlet
+++ b/src/interp/Makefile.pamphlet
@@ -410,7 +410,6 @@ Doing otherwise causes havoc.
<<savesys>>=
makeint.lisp: ${OBJS} util.$(FASLEXT) \
- nocompil.$(FASLEXT) \
sys-driver.$(FASLEXT) \
${OUTINTERP} obey.$(FASLEXT) \
database.date ${INOBJS} ${ASCOMP} ${ASAUTO} \
@@ -428,7 +427,6 @@ makeint.lisp: ${OBJS} util.$(FASLEXT) \
@ echo '(|importModule| "vmlisp")' >> makeint.lisp
@ echo '(|importModule| "hash")' >> makeint.lisp
@ echo '(gbc t)' >> makeint.lisp
- @ echo '(|importModule| "nocompil")' >> makeint.lisp
@ echo '(|importModule| "util")' >> makeint.lisp
@ echo '(in-package "BOOT")' >> makeint.lisp
@ touch ${TIMESTAMP}
@@ -1027,9 +1025,6 @@ compress.$(FASLEXT): compress.boot sys-macros.$(FASLEXT)
msg.$(FASLEXT): msg.boot sys-macros.$(FASLEXT) astr.$(FASLEXT)
$(BOOTSYS) -- --compile --output=$@ --load-directory=. $<
-nocompil.$(FASLEXT): nocompil.lisp boot-pkg.$(FASLEXT)
- $(BOOTSYS) -- --compile --output=$@ --load-directory=. $<
-
util.$(FASLEXT): util.lisp parsing.$(FASLEXT)
$(BOOTSYS) -- --compile --output=$@ --load-directory=. $<
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot
index 2d1fb837..abba7c27 100644
--- a/src/interp/g-error.boot
+++ b/src/interp/g-error.boot
@@ -101,9 +101,6 @@ errorSupervisor1(errorType,errorMsg,$BreakMode) ==
handleLispBreakLoop($BreakMode) ==
TERPRI()
- -- The next line is to try to deal with some reported cases of unwanted
- -- backtraces appearing, MCD.
- ENABLE_-BACKTRACE(nil)
$BreakMode = 'break =>
sayBrightly '" "
BREAK()
diff --git a/src/interp/msg.boot b/src/interp/msg.boot
index 0befa79c..519f2562 100644
--- a/src/interp/msg.boot
+++ b/src/interp/msg.boot
@@ -85,9 +85,6 @@ ncBug (erMsgKey, erArgL,:optAttr) ==
$newcompErrorCount := $newcompErrorCount + 1
erMsg := processKeyedError _
msgCreate('bug,$nopos, erMsgKey, erArgL,$compBugPrefix,optAttr)
- -- The next line is to try to deal with some reported cases of unwanted
- -- backtraces appearing, MCD.
- ENABLE_-BACKTRACE(nil)
BREAK()
ncAbort()
diff --git a/src/interp/nocompil.lisp b/src/interp/nocompil.lisp
deleted file mode 100644
index 3adc630a..00000000
--- a/src/interp/nocompil.lisp
+++ /dev/null
@@ -1,77 +0,0 @@
-;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-;; All rights reserved.
-;; Copyright (C) 2007, Gabriel Dos Reis.
-;; All rights reserved.
-;;
-;; Redistribution and use in source and binary forms, with or without
-;; modification, are permitted provided that the following conditions are
-;; met:
-;;
-;; - Redistributions of source code must retain the above copyright
-;; notice, this list of conditions and the following disclaimer.
-;;
-;; - Redistributions in binary form must reproduce the above copyright
-;; notice, this list of conditions and the following disclaimer in
-;; the documentation and/or other materials provided with the
-;; distribution.
-;;
-;; - Neither the name of The Numerical ALgorithms Group Ltd. nor the
-;; names of its contributors may be used to endorse or promote products
-;; derived from this software without specific prior written permission.
-;;
-;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
-;; IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
-;; TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
-;; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
-;; OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
-;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
-;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-
-;; The function {\bf protected-symbol-warn} was added because it is
-;; used in {\bf setvart.boot} but apparently is nowhere defined. It
-;; is probably primitive to {\bf CCL}.
-
-;; The function {\bf protect-symbols} was added because it is
-;; used in {\bf setvart.boot} but apparently is nowhere defined. It
-;; is probably primitive to {\bf CCL}.
-
-;; The output of these functions is just a noisy warning message
-;; and this has been commented out.
-;; \section{GCL cmpnote function}
-;; GCL keeps noting the fact that the compiler is performing tail-recursion.
-;; Bill Schelter added this as a debugging tool for Axiom and it was never
-;; removed. Patching the lisp code in the GCL build fails as the system
-;; is actually built from the pre-compiled C code. Thus, we can only step
-;; on this message after the fact. The cmpnote function is used nowhere
-;; else in GCL so stepping on the function call seems best. We're unhappy
-;; with this hack and will try to convince the GCL crowd to fix this.
-
-
-#+:gcl (defun compiler::cmpnote (&rest x))
-
-(import-module "boot-pkg")
-(in-package "BOOT")
-
-(defun protected-symbol-warn (&rest arg))
-; (format t "protected-symbol-warn called with ~A~%" arg))
-
-(defun protect-symbols (&rest arg))
-; (format t "protected-symbol-warn called with ~A~%" arg))
-
-(defun use-fast-links (arg)
-; (format t "use-fast-links called with ~A~%" arg)
-#+:GCL (si::use-fast-links arg)
- )
-
-(defun verbos (arg))
-; (format t "verbos called with ~A~%" arg))
-
-(defun enable-backtrace (&rest arg)
-#+:ccl
- (format t "protected-symbol-warn called with ~A~%" arg))
-
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot
index f0f4d933..c32d85d9 100644
--- a/src/interp/setvars.boot
+++ b/src/interp/setvars.boot
@@ -179,6 +179,15 @@ translateTrueFalse2YesNo x ==
set l == set1(l, $setOptions)
+++ turn on/off GCL optimized function call.
+useFastLinks flag ==
+)if %hasFeature KEYWORD::GCL
+ SI::USE_-FAST_-LINKS flag
+)else
+ flag
+)endif
+
+
set1(l,setTree) ==
null l => displaySetVariableSettings(setTree,"")
$setOptionNames : local := [x.0 for x in setTree]
@@ -239,9 +248,9 @@ set1(l,setTree) ==
then SET(setData.setVar, translateYesNo2TrueFalse setData.setDef)
else
if arg2 = 'nobreak then
- USE_-FAST_-LINKS 'T
+ useFastLinks true
if arg2 = 'fastlinks then
- USE_-FAST_-LINKS 'NIL
+ useFastLinks false
arg2 := 'break
SET(setData.setVar, translateYesNo2TrueFalse arg2)
-- if so set or not a valid choice, then show option information
@@ -896,6 +905,10 @@ protectedSymbolsWarning arg ==
describeProtectedSymbolsWarning()
PROTECTED_-SYMBOL_-WARN translateYesNo2TrueFalse first arg
+PROTECTED_-SYMBOL_-WARN flag ==
+ -- ??? Nobody seems to know what this function is supposed to do.
+ -- ??? It is rumored to have been builtin to CCL.
+ flag
describeProtectSymbols() ==
sayBrightly LIST(
@@ -920,6 +933,11 @@ protectSymbols arg ==
PROTECT_-SYMBOLS translateYesNo2TrueFalse first arg
+PROTECT_-SYMBOLS flag ==
+ -- ??? nobody seems to know what this function is supposed to do.
+ -- ??? It has been rumored to be native to CCL.
+ flag
+
-- See the subsection output algebra in setvart.boot
--
-- --------------------- The algebra Option ----------------------
diff --git a/src/interp/trace.boot b/src/interp/trace.boot
index d6770d54..883717c1 100644
--- a/src/interp/trace.boot
+++ b/src/interp/trace.boot
@@ -824,9 +824,6 @@ stupidIsSpadFunction fn ==
break msg ==
condition:= MONITOR_,EVALTRAN(_/BREAKCONDITION,nil)
- -- The next line is to try to deal with some reported cases of unwanted
- -- backtraces appearing, MCD.
- ENABLE_-BACKTRACE(nil)
EVAL condition =>
sayBrightly msg
INTERRUPT()