Commit 851cd039 authored by jjgarcia's avatar jjgarcia

The project name goes back to ECL. Therefore feature #+ECL returns and the

program and libraries are named ecl*. Finally the routine sys::build-ecls
has been renamed sys::build-program.
parent 9f94c6f1
---- BEGINNING OF COPYRIGHT FOR THE ECLS CORE ENVIRONMENT ------------
---- BEGINNING OF COPYRIGHT FOR THE ECL CORE ENVIRONMENT ------------
Copyright (c) 2000, Juan Jose Garcia Ripoll
Copyright (c) 1990, 1991, 1993 Giuseppe Attardi
......@@ -12,7 +12,7 @@ Summary:
credit should be given to the authors where it is due.
WE MAKE NO WARRANTY AND ACCEPT NO LIABILITY FOR THIS PROGRAM.
This license covers all of the ECLS program except for the files
This license covers all of the ECL program except for the files
contrib/*.* ; User contributed extensions
src/lsp/loop2.lsp ; Symbolic's LOOP macro
src/ansi-tests2/*.* ; Test suite grabbed from CLOCC
......@@ -44,7 +44,7 @@ In detail:
Additionally:
ECLS is free software; you can redistribute it and/or modify it
ECL is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published
by the Free Software Foundation; either version 2 of the License, or
(at your option) any later version; see file 'Copying'.
......@@ -63,4 +63,4 @@ Address for reporting bugs, comments, suggestions:
Juan Jose Garcia Ripoll
jjgarcia@ind-cr.uclm.es
---- END OF COPYRIGHT FOR THE ECLS CORE ENVIRONMENT ------------------
---- END OF COPYRIGHT FOR THE ECL CORE ENVIRONMENT ------------------
......@@ -33,7 +33,7 @@ MACHINE = @MACHINE@
# ========================= Last release ================================
VERSION=@ECLS_VERSION@
VERSION=@ECL_VERSION@
WWW=http://ecls.sourceforge.net/
# ==================== Things `configure' Might Edit ====================
......@@ -129,7 +129,7 @@ TAGS tags:
check:
@echo "We don't have any tests for ECL yet."
TAR_DIR=ecls-$(VERSION)
TAR_DIR=ecl-$(VERSION)
doc: build/doc/index.html
-mkdir doc
......@@ -137,21 +137,21 @@ doc: build/doc/index.html
build/doc/index.html:
cd build/doc; make
source-dist: ecls.tgz ecls-tests.tgz
source-dist: ecl.tgz ecl-tests.tgz
ecls.tgz: doc
ecl.tgz: doc
-rm -rf $(TAR_DIR)
mkdir $(TAR_DIR) $(TAR_DIR)/src \
$(TAR_DIR)/src/tests $(TAR_DIR)/src/ansi-tests && \
for i in $(TAR_CONTENTS); do cp -rf $$i $(TAR_DIR)/$$i; done && \
tar -cz --exclude '*~' --exclude '#*' --exclude 'CVS' -f ecls.tgz $(TAR_DIR)
tar -cz --exclude '*~' --exclude '#*' --exclude 'CVS' -f ecl.tgz $(TAR_DIR)
-rm -rf $(TAR_DIR)
ecls-tests.tgz:
ecl-tests.tgz:
-rm -rf $(TAR_DIR)
mkdir $(TAR_DIR) && \
mkdir $(TAR_DIR)/src && \
cp -rf src/ansi-tests $(TAR_DIR)/src && \
tar -cz --exclude '*~' --exclude '#*' --exclude 'CVS' -f ecls-tests.tgz $(TAR_DIR);
tar -cz --exclude '*~' --exclude '#*' --exclude 'CVS' -f ecl-tests.tgz $(TAR_DIR);
-rm -rf $(TAR_DIR)
binary-dist: all
......@@ -161,7 +161,7 @@ binary-dist: all
(echo $$i; IFS="/"; for k in $$i; do echo $$k; (test -d $$k || mkdir $$k); chmod 755 $$k; cd $$k; done); \
done
PREFIX=`pwd`/tmp; cd build; make install PREFIX="$${PREFIX}"
su -c "chown -R root.root tmp && cd tmp; tar czf ../ecls-$(VERSION)-$(MACHINE).tgz * && cd .. && rm -rf tmp"
su -c "chown -R root.root tmp && cd tmp; tar czf ../ecl-$(VERSION)-$(MACHINE).tgz * && cd .. && rm -rf tmp"
dist:
cd dist; make-dist
......@@ -47,19 +47,19 @@ all: $(TARGETS) doc
%Makefile: $(srcdir)/%Makefile.in config.status
./config.status
eclx$(EXE): ecls_min$(EXE) compile_rest.lsp
./ecls_min < compile_rest.lsp
eclx$(EXE): ecl_min$(EXE) compile_rest.lsp
./ecl_min < compile_rest.lsp
ecls$(EXE): ecls_min$(EXE) compile.lsp
./ecls_min < compile.lsp
ecl$(EXE): ecl_min$(EXE) compile.lsp
./ecl_min < compile.lsp
ecls_min$(EXE): $(LIBRARIES) .gdbinit
ecl_min$(EXE): $(LIBRARIES) .gdbinit
$(CC) $(LDFLAGS) -o $@ c/cinit.o -L./ $(LIBRARIES) $(LIBS)
.gdbinit: $(srcdir)/util/gdbinit
cp $(srcdir)/util/gdbinit $@
libecls.a:
libecl.a:
(echo $(SUBDIR) | grep gmp) && cp $(top_srcdir)/gmp/*.h h/
cd c; $(MAKE)
libgc.a:
......@@ -72,7 +72,7 @@ BUILD-STAMP: config.status
head -8 config.status | tail -6 >> $@
install: BUILD-STAMP
for i in $(TARGETS); do $(INSTALL_PROGRAM) $$i $(PREFIX)$(bindir); strip $(PREFIX)$(bindir)/$$i; done
$(INSTALL_DATA) $(srcdir)/etc/ecls.1 $(PREFIX)$(mandir)
$(INSTALL_DATA) $(srcdir)/etc/ecl.1 $(PREFIX)$(mandir)
test -d $(PREFIX)$(libdir) || (mkdir $(PREFIX)$(libdir); chmod 755 $(PREFIX)$(libdir))
test -d $(PREFIX)$(libdir)/h || (mkdir $(PREFIX)$(libdir)/h; chmod 755 $(PREFIX)$(libdir)/h)
$(INSTALL_DATA) BUILD-STAMP $(PREFIX)$(libdir)
......@@ -94,8 +94,8 @@ install: BUILD-STAMP
cd doc; $(MAKE) PREFIX="$(PREFIX)" install
uninstall:
rm -rf $(mandir)/ecls.1
rm -rf $(bindir)/ecls$(EXE)
rm -rf $(mandir)/ecl.1
rm -rf $(bindir)/ecl$(EXE)
rm -rf $(libdir)
cd doc; $(MAKE) uninstall
......@@ -104,7 +104,7 @@ doc: $(TARGETS)
clean: clean_lisp
for i in ${SUBDIR}; do (cd $$i; make clean); done
$(RM) ecls_min$(EXE) ecls$(EXE) help.doc core a.out
$(RM) ecl_min$(EXE) ecl$(EXE) help.doc core a.out
$(RM) config.version config.log config.cache
$(RM) *.c *.o *.a *.h *.data
clean_lisp:
......@@ -114,21 +114,21 @@ distclean: clean
realclean: distclean
test1:
cd c; make
make ecls_min
make ecls
make ecl_min
make ecl
cd tests; make
diff tests tests2
test2:
make clean_lisp
cd c; make
make ecls_min
$(RM) ecls
make ecls
make ecl_min
$(RM) ecl
make ecl
for i in lsp clos cmp; do diff --exclude=\*.o $$i old/$$i; done
test3:
-mkdir stage2
cp -rf lsp clos cmp stage2
-for i in lsp cmp clos clx tk; do test -f lib$$i.a && mv lib$$i.a stage2; done
make clean_lisp
./ecls < compile2.lsp
./ecl < compile2.lsp
for i in lsp clos cmp clx tk; do test -d $$i && diff --exclude=\*.o $$i stage2/$$i; done
\ No newline at end of file
......@@ -3,7 +3,7 @@ dnl Make srcdir absolute, if it isn't already. It's important to
dnl avoid running the path through pwd unnecessarily, since pwd can
dnl give you automounter prefixes, which can go away.
dnl
AC_DEFUN(ECLS_MAKE_ABSOLUTE_SRCDIR,[
AC_DEFUN(ECL_MAKE_ABSOLUTE_SRCDIR,[
case "${srcdir}" in
/* ) ;;
. )
......@@ -22,7 +22,7 @@ dnl
dnl --------------------------------------------------------------
dnl Define a name for this operating system and set some defaults
dnl
AC_DEFUN(ECLS_GUESS_HOST_OS,[
AC_DEFUN(ECL_GUESS_HOST_OS,[
#### Some command variations:
AC_SUBST(CP)
AC_SUBST(RM)
......@@ -67,7 +67,7 @@ dnl --------------------------------------------------------------
dnl Extract some information from the machine description file.
dnl WARNING: file confdefs.h may depend on version of Autoconf
dnl
AC_DEFUN(ECLS_PROCESS_MACHINES_H,[
AC_DEFUN(ECL_PROCESS_MACHINES_H,[
[
echo "Extracting parameters from the machine description file"
......@@ -130,7 +130,7 @@ dnl --------------------------------------------------------------
dnl Check the direction to which the stack grows (for garbage
dnl collection).
dnl
AC_DEFUN(ECLS_STACK_DIRECTION,[
AC_DEFUN(ECL_STACK_DIRECTION,[
AC_MSG_CHECKING(whether stack growns downwards)
AC_SUBST(DOWN_STACK)
AC_TRY_RUN([
......@@ -159,7 +159,7 @@ dnl --------------------------------------------------------------
dnl Check whether we can access the values in va_list() as an
dnl ordinary C vector.
dnl
AC_DEFUN(ECLS_ARGS_ARRAY,[
AC_DEFUN(ECL_ARGS_ARRAY,[
AC_MSG_CHECKING(if arguments can be accessed through vector)
AC_TRY_RUN([
#include <stdarg.h>
......@@ -191,7 +191,7 @@ dnl --------------------------------------------------------------
dnl Guess the right type and size for cl_fixnum. It must be large
dnl enough that convertion back and forth to pointer implies no
dnl loss of information.
AC_DEFUN(ECLS_FIXNUM_TYPE,[
AC_DEFUN(ECL_FIXNUM_TYPE,[
AC_MSG_CHECKING(appropiate type for fixnums)
dnl
dnl 1.- Guess the type of a fixnum
......
......@@ -5,18 +5,18 @@ RM=rm -fr
MV=mv -f
MKDIR=mkdir -p
.PHONY: clisp sbcl normal safe ecls ecls_min
.PHONY: clisp sbcl normal safe ecl ecl_min
ecls:
ecl:
ln -sf ../../src/h/*.h ../h/
(echo '(load "$(srcdir)/tests")'; \
echo '(setf (logical-pathname-translations "SYS")'; \
echo " '"'(("*.*" "../*.*")))'; \
echo "(run-all-tests \"$(srcdir)/\")"; \
echo "(quit)") | ../ecls
echo "(quit)") | ../ecl
true
ecls_min:
ecl_min:
ln -sf ../../src/h/*.h ../h/
(echo '(load "bare.lsp")'; \
echo '(setf (logical-pathname-translations "SYS")'; \
......@@ -25,7 +25,7 @@ ecls_min:
echo '(in-package "CL-USER")'; \
echo '(load "$(srcdir)/tests")'; \
echo "(run-all-tests \"$(srcdir)/\")"; \
echo "(quit)") | (cd ..; ./ecls_min)
echo "(quit)") | (cd ..; ./ecl_min)
true
clean:
......
This diff is collapsed.
......@@ -248,8 +248,8 @@
#+gcl (equal s "63")
#+allegro (equal s "65536")
#+(or cmu sbcl) (equal s "65529")
#+ecls (equal s "64")
#-(or xcl clisp akcl allegro cmu sbcl ecls) "unknown"
#+ecl (equal s "64")
#-(or xcl clisp akcl allegro cmu sbcl ecl) "unknown"
) )
t)
......@@ -261,8 +261,8 @@
#+clisp (equal s (prin1-to-string (1+ most-positive-fixnum)))
#+allegro (equal s "16777216")
#+(or cmu sbcl) (equal s "536870911")
#+ecls (equal s "16777216")
#-(or xcl clisp akcl allegro cmu sbcl ecls) "unknown"
#+ecl (equal s "16777216")
#-(or xcl clisp akcl allegro cmu sbcl ecl) "unknown"
) )
t)
......@@ -273,8 +273,8 @@
#+clisp (equal s (prin1-to-string (1+ most-positive-fixnum)))
#+allegro (equal s "16777216")
#+(or cmu sbcl) (equal s "536870911")
#+ecls (equal s "16777216")
#-(or xcl clisp akcl allegro cmu sbcl ecls) "unknown"
#+ecl (equal s "16777216")
#-(or xcl clisp akcl allegro cmu sbcl ecl) "unknown"
) )
t)
......@@ -319,8 +319,8 @@
(array-element-type da1)
#+(or xcl allegro cmu sbcl) double-float
#+clisp t
#+(or akcl ecls) long-float
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
#+(or akcl ecl) long-float
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
;;test rang
......@@ -365,8 +365,8 @@
(my-assert
(setf (aref zero) 1.0)
#+(or xcl clisp akcl allegro cmu sbcl ecls) type-error
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
#+(or xcl clisp akcl allegro cmu sbcl ecl) type-error
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
(unintern 'zero)
......@@ -1000,7 +1000,7 @@
(my-assert
(vector-push-extend 5.0s0 vmfad)
#+(or xcl gcl allegro cmu sbcl) error
#+(or clisp ecls (and akcl (not gcl))) 0
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
#+(or clisp ecl (and akcl (not gcl))) 0
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
(unintern 'vmfad)
......@@ -5,9 +5,9 @@
(my-assert
char-code-limit
#+xcl 128
#+(or (and clisp (not unicode)) akcl sbcl cmu ecls) 256
#+(or (and clisp (not unicode)) akcl sbcl cmu ecl) 256
#+(or (and clisp unicode) allegro) 65536
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
(my-assert
(standard-char-p #\a)
......
......@@ -21,8 +21,8 @@
(my-assert
(format nil "~10:@<foo~;bar~>")
#+(or XCL CLISP ALLEGRO) " foo bar "
#+(or AKCL cmu sbcl ecls) " foo bar "
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or AKCL cmu sbcl ecl) " foo bar "
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(format nil "~10<foobar~>")
......@@ -68,8 +68,8 @@
(my-assert
(format nil "~12<~S~;~^~S~;~^~S~>" 'foo 'bar 'baz)
#+(or CLISP ALLEGRO) "foo bar baz"
#+(OR CMU SBCL ECLS) "foo bar baz"
#-(or CLISP ALLEGRO cmu sbcl ECLS) UNKNOWN)
#+(OR CMU SBCL ECL) "foo bar baz"
#-(or CLISP ALLEGRO cmu sbcl ECL) UNKNOWN)
(my-assert
(progn
......@@ -344,9 +344,9 @@ but it makes more sense to print non-numeric arguments properly alighned")
(my-assert
(foo 1100.0L0)
#+XCL " 1.10D+3| 11.00$+02|+.001D+06| 1.10D+3"
#+(or CLISP AKCL ECLS) " 1.10L+3| 11.00$+02|+.001L+06| 1.10L+3"
#+(or CLISP AKCL ECL) " 1.10L+3| 11.00$+02|+.001L+06| 1.10L+3"
#+(or ALLEGRO cmu sbcl) " 1.10d+3| 11.00$+02|+.001d+06| 1.10d+3"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ECLS) UNKNOWN)
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ECL) UNKNOWN)
(my-assert
(foo 1.1E13)
......@@ -419,9 +419,9 @@ Scale factor -5: | 0.000003E+06|"))
(my-assert
(foo 3141.59L0)
#+XCL " 3.14D+3|314.2$+01|0.314D+04| 3.14D+3"
#+(or CLISP AKCL ecls) " 3.14L+3|314.2$+01|0.314L+04| 3.14L+3"
#+(or CLISP AKCL ecl) " 3.14L+3|314.2$+01|0.314L+04| 3.14L+3"
#+(or ALLEGRO cmu sbcl) " 3.14d+3|314.2$+01|0.314d+04| 3.14d+3"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(foo 3.14E12)
......@@ -502,68 +502,68 @@ Scale factor -5: | 0.000003E+06|"))
(my-assert
(FORMAT NIL "format-s:--~s--ende-*" (QUOTE AB\c))
#+XCL "format-s:--AB\\c--ende-*"
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or CLISP AKCL ALLEGRO cmu sbcl ecl) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(FORMAT NIL "format-s:--~5s--ende-*" (QUOTE AB\c))
#+XCL "format-s:--AB\\c --ende-*"
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or CLISP AKCL ALLEGRO cmu sbcl ecl) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(FORMAT NIL "format-s:--~5,2s--ende-*" (QUOTE AB\c))
#+XCL "format-s:--AB\\c --ende-*"
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or CLISP AKCL ALLEGRO cmu sbcl ecl) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(FORMAT NIL "format-s:--~5,2,3s--ende-*" (QUOTE AB\c))
#+XCL "format-s:--AB\\c --ende-*"
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc| --ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or CLISP AKCL ALLEGRO cmu sbcl ecl) "format-s:--|ABc| --ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(FORMAT NIL "format-s:--~5,2,3,'*s--ende-*" (QUOTE AB\c))
#+XCL "format-s:--AB\\c***--ende-*"
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|***--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or CLISP AKCL ALLEGRO cmu sbcl ecl) "format-s:--|ABc|***--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(FORMAT NIL "format-s:--~@s--ende-*" (QUOTE AB\c))
#+XCL "format-s:--AB\\c--ende-*"
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or CLISP AKCL ALLEGRO cmu sbcl ecl) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(FORMAT NIL "format-s:--~5@s--ende-*" (QUOTE AB\c))
#+XCL "format-s:-- AB\\c--ende-*"
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or CLISP AKCL ALLEGRO cmu sbcl ecl) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(FORMAT NIL "format-s:--~5,2@s--ende-*" (QUOTE AB\c))
#+XCL "format-s:-- AB\\c--ende-*"
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or CLISP AKCL ALLEGRO cmu sbcl ecl) "format-s:--|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(FORMAT NIL "format-s:--~5,2,3@s--ende-*" (QUOTE AB\c))
#+XCL "format-s:-- AB\\c--ende-*"
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:-- |ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or CLISP AKCL ALLEGRO cmu sbcl ecl) "format-s:-- |ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(FORMAT NIL "format-s:--~5,2,3,'*@s--ende-*" (QUOTE AB\c))
#+XCL "format-s:--***AB\\c--ende-*"
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--***|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or CLISP AKCL ALLEGRO cmu sbcl ecl) "format-s:--***|ABc|--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(FORMAT NIL "format-s:--~:s--ende-*" (QUOTE (AB\c NIL XYZ)))
#+XCL "format-s:--(AB\\c NIL XYZ)--ende-*"
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--(|ABc| NIL XYZ)--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
#+(or CLISP AKCL ALLEGRO cmu sbcl ecl) "format-s:--(|ABc| NIL XYZ)--ende-*"
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecl) UNKNOWN)
(my-assert
(SETQ X 5)
......@@ -971,13 +971,13 @@ freshline:
#+(or XCL cmu sbcl CLISP) "char normal: , as
# would read:
#\\Space, human read:Space-*"
#+(or AKCL LUCID ecls) "char normal:Space, as
#+(or AKCL LUCID ecl) "char normal:Space, as
# would read:
#\\Space, human read:Space-*"
#+ALLEGRO "char normal: , as
# would read:
#\\space, human read:space-*"
#-(or XCL cmu sbcl CLISP AKCL LUCID ALLEGRO ecls) UNKNOWN)
#-(or XCL cmu sbcl CLISP AKCL LUCID ALLEGRO ecl) UNKNOWN)
(my-assert
(FORMAT NIL
......@@ -1216,8 +1216,8 @@ but it was called with an argument of type SHORT-FLOAT.-*")
(my-assert
(FORMAT NIL "**~c**" #\SPACE)
#+(or XCL cmu sbcl CLISP ALLEGRO) "** **"
#+(or AKCL LUCID ecls) "**Space**"
#-(or XCL cmu sbcl CLISP AKCL LUCID ALLEGRO ecls) UNKNOWN)
#+(or AKCL LUCID ecl) "**Space**"
#-(or XCL cmu sbcl CLISP AKCL LUCID ALLEGRO ecl) UNKNOWN)
(my-assert
(FORMAT NIL "**~:c**" #\SPACE)
......
......@@ -5,7 +5,7 @@
(setf (symbol-function 'setf-gethash)
(symbol-function 'sys::puthash))
#+(or akcl ecls)
#+(or akcl ecl)
(setf (symbol-function 'setf-gethash)
(symbol-function 'sys:hash-set)) t
#+allegro
......
......@@ -127,20 +127,20 @@ out of sync")
(my-assert
(multiple-value-list (parse-integer " 123 " :junk-allowed t))
(123 #+xcl 7
#+(or clisp akcl allegro cmu sbcl ecls) 5
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown))
#+(or clisp akcl allegro cmu sbcl ecl) 5
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown))
(my-assert
(multiple-value-list (parse-integer "123 t" :junk-allowed t))
(123 #+xcl 4
#+(or clisp akcl allegro cmu sbcl ecls) 3
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown))
#+(or clisp akcl allegro cmu sbcl ecl) 3
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown))
(my-assert
(multiple-value-list (parse-integer " 123 t " :junk-allowed t))
(123 #+xcl 8
#+(or clisp akcl allegro cmu sbcl ecls) 5
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown))
#+(or clisp akcl allegro cmu sbcl ecl) 5
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown))
(my-assert
(multiple-value-list (parse-integer " ( 12 ) 43 t " :junk-allowed
......@@ -234,7 +234,7 @@ out of sync")
(my-assert
(multiple-value-list (parse-integer b :junk-allowed t))
(1 #+xcl 2
#+(or clisp akcl allegro cmu sbcl ecls) 1
#+(or clisp akcl allegro cmu sbcl ecl) 1
#-(or xcl clisp akcl allegro cmu sbcl) unknown))
(my-assert
......@@ -729,18 +729,18 @@ a b c")) t)
(read s))
#+xcl
crackers
#+(or clisp akcl allegro sbcl cmu ecls)
#+(or clisp akcl allegro sbcl cmu ecl)
error
#-(or xcl clisp akcl allegro sbcl cmu ecls)
#-(or xcl clisp akcl allegro sbcl cmu ecl)
unknown)
(my-assert
j
#+xcl
20
#+(or clisp akcl allegro sbcl cmu ecls)
#+(or clisp akcl allegro sbcl cmu ecl)
7
#-(or xcl clisp akcl allegro sbcl cmu ecls)
#-(or xcl clisp akcl allegro sbcl cmu ecl)
unknown)
(my-assert
......@@ -792,9 +792,9 @@ a b c")) t)
(get-output-stream-string b)
#+(or sbcl cmu xcl)
"Das ist wieder einmal einer der SUUPERTESTstrings.eder einmal einer der SUUPERTESTstrings.Das iDas ist wieder einmal einer der SUUPERTESTstrings.st wieder einma"
#+(or clisp akcl ecls)
#+(or clisp akcl ecl)
"Das ist wieder einmal einer der SUUPERTESTstrings.eder einmal einer der SUUPERTESTstrings.Das ist wieder einma"
#-(or xcl clisp akcl sbcl cmu ecls)
#-(or xcl clisp akcl sbcl cmu ecl)
unknown)
(my-assert
......
......@@ -505,8 +505,8 @@
(my-assert
(copy-alist (list 'a 'b))
#+(or xcl clisp allegro cmu sbcl) (a b)
#+(or ecls gcl) error
#-(or xcl clisp gcl allegro cmu sbcl ecls) unknown)
#+(or ecl gcl) error
#-(or xcl clisp gcl allegro cmu sbcl ecl) unknown)
(my-assert
(copy-alist (list (cons 1 'a)
......@@ -565,8 +565,8 @@
'c
(list 'd 'e)))
#+(or xcl clisp allegro cmu sbcl) ((a b) c (d e))
#+(or gcl ecls) error
#-(or xcl clisp gcl allegro cmu sbcl ecls) unknown)
#+(or gcl ecl) error
#-(or xcl clisp gcl allegro cmu sbcl ecl) unknown)
(my-assert
(copy-tree 'x)
......@@ -814,14 +814,14 @@
(nconc (list 1 2)
'a)
#+xcl error
#+(or clisp akcl allegro cmu sbcl ecls) (1 2 . a)
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
#+(or clisp akcl allegro cmu sbcl ecl) (1 2 . a)
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
(my-assert
(nconc 'a)
#+xcl error
#+(or clisp akcl allegro cmu sbcl ecls) a
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
#+(or clisp akcl allegro cmu sbcl ecl) a
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
(my-assert
(setq x
......@@ -838,8 +838,8 @@
x
#+xcl was-destroyed ; wo kommt denn so was her?
#+clisp (c b a d e f)
#+(or akcl allegro cmu sbcl ecls) (a d e f)
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
#+(or akcl allegro cmu sbcl ecl) (a d e f)
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
(my-assert
(tailp y x)
......@@ -878,8 +878,8 @@
x
#+xcl was-destroyed
#+clisp (c b a)
#+(or akcl allegro cmu sbcl ecls) (a)
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
#+(or akcl allegro cmu sbcl ecl) (a)
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
(my-assert
(nreconc nil nil nil nil)
......@@ -888,8 +888,8 @@
(my-assert
(nconc nil 'x)
#+xcl error
#+(or clisp akcl allegro cmu sbcl ecls) x
#-(or xcl clisp akcl allegro cmu sbcl ecls) unknown)
#+(or clisp akcl allegro cmu sbcl ecl) x
#-(or xcl clisp akcl allegro cmu sbcl ecl) unknown)
(my-assert
(setq aa nil)
......
......@@ -256,9 +256,9 @@
(sublis '(((a) . uu) (a . ii))
'(i (a) a)
:test #'(lambda (x y) (if (listp y) (eql x (car y)))))
#+(or xcl akcl lucid allegro ecls) (i ii . ii) ; x aus der aliste, y ein blatt des baumes
#+(or xcl akcl lucid allegro ecl) (i ii . ii) ; x aus der aliste, y ein blatt des baumes
#+(or clisp cmu sbcl) (i (uu) uu) ; x ein blatt, y aus der aliste
#-(or xcl clisp akcl cmu sbcl lucid allegro ecls) unknown)
#-(or xcl clisp akcl cmu sbcl lucid allegro ecl) unknown)
(my-assert
(nsublis '(((a) . uu) (a . ii))
......@@ -282,7 +282,7 @@
(nsublis '(((a) . uu) (a . ii))
'(i (a) a)
:test #'(lambda (x y) (if (listp y) (eql x (car y)))))
#+(or xcl akcl allegro ecls) (i ii . ii) ; x aus der aliste, y ein blatt des baumes
#+(or xcl akcl allegro ecl) (i ii . ii) ; x aus der aliste, y ein blatt des baumes
#+(or clisp cmu sbcl lucid) (i (uu) uu) ; x ein blatt, y aus der aliste
#-(or xcl clisp akcl cmu sbcl lucid allegro ecls) unknown)
#-(or xcl clisp akcl cmu sbcl lucid allegro ecl) unknown)
......@@ -86,39 +86,39 @@
(union '(a b c d)