Attachment 1461005 Details for Bug 1603654 – build.log

build.log

build.log (text/plain), 32.00 KB, created by Mohan Boddu on 2018-07-19 18:16:55 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Mohan Boddu

Created: 2018-07-19 18:16:55 UTC

Size: 32.00 KB

patch

obsolete

>RGRP :XGRP :ROTH :XOTH) :NLINK 3 :UID 1000 :GID 425
>    :RDEV NIL :SIZE 4096 :BLKSIZE NIL :BLOCKS NIL :ATIME 3740447601
>    :MTIME 3740447601 :CTIME 3740447601>
>  :DP 121 1)
> (#5="/builddir/build/BUILD/clisp-d1310adc5aa7bb3610cd4c44c96b134bba75d405-d1310adc5aa7bb3610cd4c44c96b134bba75d405/build/dir1/file1"
>  #<FILE-STAT :FILE #5# :DEV 64517 :INO 5771280
>    :MODE (:FREG :RUSR :WUSR :RGRP :ROTH) :NLINK 1 :UID 1000 :GID 425 :RDEV NIL
>    :SIZE 0 :BLKSIZE NIL :BLOCKS NIL :ATIME 3740447601 :MTIME 3740447601
>    :CTIME 3740447601>
>  :F 121 1)
> (#6="/builddir/build/BUILD/clisp-d1310adc5aa7bb3610cd4c44c96b134bba75d405-d1310adc5aa7bb3610cd4c44c96b134bba75d405/build/dir1"
>  #<FILE-STAT :FILE #6# :DEV 64517 :INO 5771277
>    :MODE (:FDIR :RWXU :RGRP :XGRP :ROTH :XOTH) :NLINK 3 :UID 1000 :GID 425
>    :RDEV NIL :SIZE 4096 :BLKSIZE NIL :BLOCKS NIL :ATIME 3740447601
>    :MTIME 3740447601 :CTIME 3740447601>
>  :DP 116 0))
>EQUAL-OK: ("file3" NIL NIL NIL)
>(LET* ((D1 "syscalls-tests-dir-1") (D2 "syscalls-tests-dir-2") (F1 "syscalls-tests-file-1") (D (MAKE-PATHNAME :DIRECTORY (LIST :RELATIVE D1 D2))) (F (MAKE-PATHNAME :NAME F1 :DEFAULTS D)) (L (LAMBDA (P) (STRING= F1 (PATHNAME-NAME P)))) (W (MAKE-PATHNAME :DIRECTORY (LIST :RELATIVE D1 :WILD-INFERIORS) :NAME :WILD))) (ENSURE-DIRECTORIES-EXIST D :VERBOSE T) (OPEN F :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (LIST (MAPCAR L (DIRECTORY W)) (SET-FILE-STAT D :MODE 0) (HANDLER-CASE (DIRECTORY W) (ERROR (E) (PRINC-ERROR E) (TYPE-OF E))) (DIRECTORY W :IF-DOES-NOT-EXIST :KEEP) (SET-FILE-STAT D :MODE :RWXU) (MAPCAR L (DIRECTORY W)) (FILE-TREE-WALK D1 (LAMBDA (F S K B L) (CASE K ((:D :DP :DNR) (DELETE-DIRECTORY (PROBE-PATHNAME F))) (T (DELETE-FILE F))) NIL) :DEPTH T)))
>Creating directory: /builddir/build/BUILD/clisp-d1310adc5aa7bb3610cd4c44c96b134bba75d405-d1310adc5aa7bb3610cd4c44c96b134bba75d405/build/syscalls-tests-dir-1/
>Creating directory: /builddir/build/BUILD/clisp-d1310adc5aa7bb3610cd4c44c96b134bba75d405-d1310adc5aa7bb3610cd4c44c96b134bba75d405/build/syscalls-tests-dir-1/syscalls-tests-dir-2/
>[OS-FILE-ERROR]: OS-FILE-ERROR(EACCES): Permission denied
>EQUAL-OK: ((T) NIL OS-FILE-ERROR NIL NIL (T) NIL)
>(FNMATCH "foo" "bar")
>EQL-OK: NIL
>(LETF ((*MISC-ENCODING* CHARSET:UTF-8) (*APROPOS-MATCHER* #'FNMATCH-MATCHER)) (APROPOS-LIST "FNMATCH*R"))
>EQUAL-OK: (FNMATCH-MATCHER)
>(FNMATCH "foo*bar" "foobar")
>EQL-OK: T
>(FNMATCH "foo*bar" "foo*bar")
>EQL-OK: T
>(FNMATCH "foo*bar" "fooAbar")
>EQL-OK: T
>(FNMATCH "foo*bar" "foo/bar")
>EQL-OK: T
>(FNMATCH "foo*bar" "foo/bar" :PATHNAME T)
>EQL-OK: NIL
>(FNMATCH "foo*bar" "fooABAR")
>EQL-OK: NIL
>(FNMATCH "foo*bar" "fooABAR" :CASE-SENSITIVE NIL)
>EQL-OK: T
>(LET ((DIR "syscalls-tests-dir/") (DEST "qwer/adsf") COPY) (WHEN (NTH-VALUE 1 (ENSURE-DIRECTORIES-EXIST DIR :VERBOSE T)) (MAPC #'DELETE-FILE (DIRECTORY (CONCATENATE 'STRING DIR "**") :IF-DOES-NOT-EXIST :KEEP))) (SETQ COPY (COPY-FILE DEST DIR :METHOD :SYMLINK)) (LIST (STRING= DEST (CAAR COPY)) (STRING= (PATHNAME-NAME DEST) (PATHNAME-NAME (DELETE-FILE (CADAR COPY)))) (DELETE-DIRECTORY DIR) (PROBE-PATHNAME DIR)))
>Creating directory: /builddir/build/BUILD/clisp-d1310adc5aa7bb3610cd4c44c96b134bba75d405-d1310adc5aa7bb3610cd4c44c96b134bba75d405/build/syscalls-tests-dir/
>EQUAL-OK: (T T T NIL)
>(LET ((DIR "syscalls-tests-dir/") (LINK #P"syscalls-tests-symlink/")) (LIST (MAKE-DIRECTORY DIR) (STRING= DIR (CAAR (COPY-FILE DIR LINK :METHOD :SYMLINK))) (DELETE-DIRECTORY DIR) (DELETE-DIRECTORY LINK)))
>EQUAL-OK: (T T T T)
>(LET ((DIR "syscalls-tests-dir/") (DEST "foo/bar")) (MAKE-DIRECTORY DIR) (COPY-FILE DEST DIR :METHOD :SYMLINK) (HANDLER-CASE (OR (DELETE-DIRECTORY DIR) (ERROR "deleted non-empty directory")) (OS-ERROR (E) (OR (EQ (OS-ERROR-CODE E) :ENOTEMPTY) (INTEGERP (OS-ERROR-CODE E)) (ERROR "wrong error code: ~s" (OS-ERROR-CODE E))))) (MAPC #'DELETE-FILE (DIRECTORY (CONCATENATE 'STRING DIR "**") :IF-DOES-NOT-EXIST :KEEP)) (DELETE-DIRECTORY DIR))
>EQL-OK: T
>(LET* ((L "my-symlink") (N (MAKE-STRING 64 :INITIAL-ELEMENT #\a)) (F (TRUENAME (OPEN N :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE))) (CP (COPY-FILE N L :METHOD :SYMLINK))) (LIST (LIST (STRING= N (CAAR CP)) (STRING= L (PATHNAME-NAME (CADAR CP))) (NULL (CDR CP))) (LIST (EQUAL F (TRUENAME L)) (EQUAL F (TRUENAME N))) (LIST (EQUAL F (DELETE-FILE N)) (STRING= L (PATHNAME-NAME (DELETE-FILE L))))))
>EQUAL-OK: ((T T T) (T T) (T T))
>(LET* ((L "my-symlink") (D (MAKE-STRING 64 :INITIAL-ELEMENT #\a)) (P (MAKE-PATHNAME :DIRECTORY (LIST :RELATIVE D) :NAME "my-file")) (DP (MAKE-PATHNAME :NAME NIL :DEFAULTS P))) (ENSURE-DIRECTORIES-EXIST DP) (OPEN P :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (COPY-FILE P (ABSOLUTE-PATHNAME L) :METHOD :SYMLINK) (LIST (EQUAL (TRUENAME L) (DELETE-FILE P)) (DELETE-DIRECTORY DP) (STRING= L (PATHNAME-NAME (DELETE-FILE L)))))
>EQUAL-OK: (T T T)
>(DEFPARAMETER *CSV1* "my-tmp-1.csv")
>EQL-OK: *CSV1*
>(DEFPARAMETER *CSV2* "my-tmp-2")
>EQL-OK: *CSV2*
>(DEFPARAMETER *CSV3* (CONCATENATE 'STRING *CSV2* ".csv"))
>EQL-OK: *CSV3*
>(DELETE-FILE *CSV1*)
>EQL-OK: NIL
>(DELETE-FILE *CSV2*)
>EQL-OK: NIL
>(DELETE-FILE *CSV3*)
>EQL-OK: NIL
>(PROGN (OPEN *CSV1* :DIRECTION :PROBE :IF-DOES-NOT-EXIST :CREATE) (COPY-FILE *CSV1* *CSV2*) (LIST (PROBE-FILE *CSV2*) (NULL (DELETE-FILE *CSV3*))))
>EQUAL-OK: (NIL NIL)
>(PROGN (COPY-FILE (MAKE-PATHNAME :NAME *CSV1*) *CSV2*) (LIST (NULL (DELETE-FILE *CSV1*)) (PROBE-FILE *CSV3*) (NULL (DELETE-FILE *CSV2*))))
>EQUAL-OK: (NIL NIL NIL)
>(PROGN (DELETE-FILE *TMP1*) (DELETE-FILE *TMP2*) (SETQ *FEATURES* (DELETE :NO-STREAM-LOCK *FEATURES*)) (SYMBOLS-CLEANUP '(*TMP1* *TMP2* FLUSH-CLISP PROC-SEND CHECK-TIME-DATE)))
>EQL-OK: NIL
>RUN-TEST: finished #P"/builddir/build/BUILD/clisp-d1310adc5aa7bb3610cd4c44c96b134bba75d405-d1310adc5aa7bb3610cd4c44c96b134bba75d405/modules/syscalls/test.tst" (1 error out of 264 tests)
>RUN-TEST: see /builddir/build/BUILD/clisp-d1310adc5aa7bb3610cd4c44c96b134bba75d405-d1310adc5aa7bb3610cd4c44c96b134bba75d405/build/syscalls/test.erg
>RUN-TEST: started 
>#<INPUT BUFFERED FILE-STREAM CHARACTER
>  #P"/builddir/build/BUILD/clisp-d1310adc5aa7bb3610cd4c44c96b134bba75d405-d1310adc5aa7bb3610cd4c44c96b134bba75d405/modules/regexp/test.tst"
>  @1>
>(NULL (REQUIRE "regexp"))
>EQL-OK: T
>(LISTP (SHOW (MULTIPLE-VALUE-LIST (MODULE-INFO "regexp" T)) :PRETTY T))
>("regexp" 3 (REGEXP::REGEXP-FREE REGEXP:REGEXP-EXEC REGEXP:REGEXP-COMPILE) 11
> (#() REGEXP::MAKE-MATCH-BOA :START :RETURN-TYPE :NOTEOL :NOTBOL :NOSUB
>  :NEWLINE :IGNORE-CASE :EXTENDED :END))
>EQL-OK: T
>(LET ((RC (REGEXP:REGEXP-COMPILE "a(a)*" :EXTENDED T))) (PROG1 (LIST (MULTIPLE-VALUE-LIST (REGEXP:REGEXP-EXEC RC "a")) (REGEXP:REGEXP-EXEC RC "a" :RETURN-TYPE 'LIST) (REGEXP:REGEXP-EXEC RC "a" :RETURN-TYPE 'VECTOR) (REGEXP:REGEXP-EXEC RC "a" :RETURN-TYPE 'BOOLEAN) (MULTIPLE-VALUE-LIST (REGEXP:REGEXP-EXEC RC "z")) (REGEXP:REGEXP-EXEC RC "z" :RETURN-TYPE 'LIST) (REGEXP:REGEXP-EXEC RC "z" :RETURN-TYPE 'VECTOR) (REGEXP:REGEXP-EXEC RC "z" :RETURN-TYPE 'BOOLEAN)) (GC) (GC)))
>EQUALP-OK: ((#S(REGEXP:MATCH :START 0 :END 1) NIL) (#S(REGEXP:MATCH :START 0 :END 1) NIL) #(#S(REGEXP:MATCH :START 0 :END 1) NIL) T NIL NIL #() NIL)
>(LETF ((*APROPOS-MATCHER* #'REGEXP:REGEXP-MATCHER) (*MISC-ENCODING* CHARSET:UTF-8)) (APROPOS-LIST "regexp.*r$"))
>EQUAL-OK: (REGEXP:REGEXP-MATCHER)
>(REGEXP:REGEXP-EXEC (FOREIGN-POINTER (FFI:UNSIGNED-FOREIGN-ADDRESS 0)) "a")
>[SIMPLE-ERROR]: REGEXP:REGEXP-EXEC: NULL pattern #<FOREIGN-POINTER #x0000000000000000>
>EQL-OK: ERROR
>(LET* ((S "abcdefghijklmnopqrstuvwxyz") (R "") P M (S3 (CONCATENATE 'STRING S S S))) (LOOP :REPEAT 3 :DO (LOOP :FOR C :ACROSS S :DO (SETQ R (CONCATENATE 'STRING "\$" R "\$\$" (STRING C) "\$")))) (SETQ P (REGEXP:REGEXP-COMPILE R)) (SETQ M (REGEXP:REGEXP-EXEC P S3)) (LIST (LENGTH M) (STRING= S3 (REGEXP:MATCH-STRING S3 (CAR M)))))
>EQUAL-OK: (157 T)
>(DEFUN RE-TEST (PATTERN STRING) (MAPCAR (LAMBDA (MATCH) (AND MATCH (REGEXP:MATCH-STRING STRING MATCH))) (MULTIPLE-VALUE-LIST (REGEXP:REGEXP-EXEC (REGEXP:REGEXP-COMPILE PATTERN :EXTENDED T) STRING))))
>EQL-OK: RE-TEST
>(RE-TEST "a*a*" "aaaaaa")
>EQUAL-OK: ("aaaaaa")
>(RE-TEST "a*a*a*" "aaaaaa")
>EQUAL-OK: ("aaaaaa")
>(RE-TEST "a*a*a*a*" "aaaaaa")
>EQUAL-OK: ("aaaaaa")
>(RE-TEST "a*a*a*a*a*" "aaaaaa")
>EQUAL-OK: ("aaaaaa")
>(RE-TEST "a*a*a*a*a*a*" "aaaaaa")
>EQUAL-OK: ("aaaaaa")
>(RE-TEST "a*a*a*a*a*a*a*" "aaaaaa")
>EQUAL-OK: ("aaaaaa")
>(RE-TEST "" "")
>EQUAL-OK: ("")
>(RE-TEST "b{0,6}" "")
>EQUAL-OK: ("")
>(RE-TEST "ab{0,0}c" "abc")
>EQL-OK: NIL
>(RE-TEST "ab{1,1}c" "abbc")
>EQL-OK: NIL
>(RE-TEST "ab{3,7}c" "abbbbbbbbc")
>EQL-OK: NIL
>(RE-TEST "ab{3,7}c" "abbbbbbbbbc")
>EQL-OK: NIL
>(RE-TEST "ab{3,7}c" "abbbbbbbbbbc")
>EQL-OK: NIL
>(RE-TEST "ab{3,7}c" "abbbbbbbbbbbc")
>EQL-OK: NIL
>(RE-TEST "b{2,7}" "bb")
>EQUAL-OK: ("bb")
>(RE-TEST "b{1,6}" "")
>EQL-OK: NIL
>(RE-TEST "b{1,6}" "b")
>EQUAL-OK: ("b")
>(RE-TEST "b{2,7}" "b")
>EQL-OK: NIL
>(RE-TEST "ab{0,7}c" "ac")
>EQUAL-OK: ("ac")
>(RE-TEST "ab{1,7}c" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "ab{2,7}c" "abbc")
>EQUAL-OK: ("abbc")
>(RE-TEST "ab{3,7}c" "abbbc")
>EQUAL-OK: ("abbbc")
>(RE-TEST "ab{3,7}c" "abbbbc")
>EQUAL-OK: ("abbbbc")
>(RE-TEST "ab{3,7}c" "abbbbbc")
>EQUAL-OK: ("abbbbbc")
>(RE-TEST "ab{3,7}c" "abbbbbbc")
>EQUAL-OK: ("abbbbbbc")
>(RE-TEST "ab{3,7}c" "abbbbbbbc")
>EQUAL-OK: ("abbbbbbbc")
>(RE-TEST "ab{3,7}c" "abbbbbbbbc")
>EQL-OK: NIL
>(RE-TEST "ab{3,7}c" "abbc")
>EQL-OK: NIL
>(RE-TEST "ab{3,7}c" "abc")
>EQL-OK: NIL
>(RE-TEST "(a|b)*c|(a|ab)*c" "xc")
>EQUAL-OK: ("c" NIL NIL)
>(RE-TEST "(a)*" "b")
>EQUAL-OK: ("" NIL)
>(RE-TEST "(..)*(...)*" "a")
>EQUAL-OK: ("" NIL NIL)
>(RE-TEST "(..)*(...)*" "abc")
>EQUAL-OK: ("abc" NIL "abc")
>(RE-TEST "^" "")
>EQUAL-OK: ("")
>(RE-TEST "$" "")
>EQUAL-OK: ("")
>(RE-TEST "^$" "")
>EQUAL-OK: ("")
>(RE-TEST "^a$" "a")
>EQUAL-OK: ("a")
>(RE-TEST "abc" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "abc" "xbc")
>EQL-OK: NIL
>(RE-TEST "abc" "axc")
>EQL-OK: NIL
>(RE-TEST "abc" "abx")
>EQL-OK: NIL
>(RE-TEST "abc" "xabcy")
>EQUAL-OK: ("abc")
>(RE-TEST "abc" "ababc")
>EQUAL-OK: ("abc")
>(RE-TEST "ab*c" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "ab*bc" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "ab*bc" "abbc")
>EQUAL-OK: ("abbc")
>(RE-TEST "ab*bc" "abbbbc")
>EQUAL-OK: ("abbbbc")
>(RE-TEST "ab+bc" "abbc")
>EQUAL-OK: ("abbc")
>(RE-TEST "ab+bc" "abc")
>EQL-OK: NIL
>(RE-TEST "ab+bc" "abq")
>EQL-OK: NIL
>(RE-TEST "ab+bc" "abbbbc")
>EQUAL-OK: ("abbbbc")
>(RE-TEST "ab?bc" "abbc")
>EQUAL-OK: ("abbc")
>(RE-TEST "ab?bc" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "ab?bc" "abbbbc")
>EQL-OK: NIL
>(RE-TEST "ab?c" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "^abc$" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "^abc$" "abcc")
>EQL-OK: NIL
>(RE-TEST "^abc" "abcc")
>EQUAL-OK: ("abc")
>(RE-TEST "^abc$" "aabc")
>EQL-OK: NIL
>(RE-TEST "abc$" "aabc")
>EQUAL-OK: ("abc")
>(RE-TEST "^" "abc")
>EQUAL-OK: ("")
>(RE-TEST "$" "abc")
>EQUAL-OK: ("")
>(RE-TEST "a.c" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "a.c" "axc")
>EQUAL-OK: ("axc")
>(RE-TEST "a.*c" "axyzc")
>EQUAL-OK: ("axyzc")
>(RE-TEST "a.*c" "axyzd")
>EQL-OK: NIL
>(RE-TEST "a[bc]d" "abc")
>EQL-OK: NIL
>(RE-TEST "a[bc]d" "abd")
>EQUAL-OK: ("abd")
>(RE-TEST "a[b-d]e" "abd")
>EQL-OK: NIL
>(RE-TEST "a[b-d]e" "ace")
>EQUAL-OK: ("ace")
>(RE-TEST "a[b-d]" "aac")
>EQUAL-OK: ("ac")
>(RE-TEST "a[-b]" "a-")
>EQUAL-OK: ("a-")
>(RE-TEST "a[b-]" "a-")
>EQUAL-OK: ("a-")
>(RE-TEST "a[b-a]" "-")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("a[b-a]"): "Invalid range end"
>EQL-OK: ERROR
>(RE-TEST "a[]b" "-")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("a[]b"): "Unmatched [, [^, [:, [., or [="
>EQL-OK: ERROR
>(RE-TEST "a[" "-")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("a["): "Invalid regular expression"
>EQL-OK: ERROR
>(RE-TEST "a]" "a]")
>EQUAL-OK: ("a]")
>(RE-TEST "a[]]b" "a]b")
>EQUAL-OK: ("a]b")
>(RE-TEST "a[^bc]d" "aed")
>EQUAL-OK: ("aed")
>(RE-TEST "a[^bc]d" "abd")
>EQL-OK: NIL
>(RE-TEST "a[^-b]c" "adc")
>EQUAL-OK: ("adc")
>(RE-TEST "a[^-b]c" "a-c")
>EQL-OK: NIL
>(RE-TEST "a[^]b]c" "a]c")
>EQL-OK: NIL
>(RE-TEST "a[^]b]c" "adc")
>EQUAL-OK: ("adc")
>(RE-TEST "ab|cd" "abc")
>EQUAL-OK: ("ab")
>(RE-TEST "ab|cd" "abcd")
>EQUAL-OK: ("ab")
>(RE-TEST "()ef" "def")
>EQUAL-OK: ("ef" "")
>(RE-TEST "()*" "-")
>EQUAL-OK: ("" "")
>(RE-TEST "*a" "-")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("*a"): "Invalid preceding regular expression"
>EQL-OK: ERROR
>(RE-TEST "^*" "-")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("^*"): "Invalid preceding regular expression"
>EQL-OK: ERROR
>(RE-TEST "$*" "-")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("$*"): "Invalid preceding regular expression"
>EQL-OK: ERROR
>(RE-TEST "(*)b" "-")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("(*)b"): "Invalid preceding regular expression"
>EQL-OK: ERROR
>(RE-TEST "$b" "b")
>EQL-OK: NIL
>(RE-TEST "a\\(b" "a(b")
>EQUAL-OK: ("a(b")
>(RE-TEST "a\\(*b" "ab")
>EQUAL-OK: ("ab")
>(RE-TEST "a\\(*b" "a((b")
>EQUAL-OK: ("a((b")
>(RE-TEST "a\\\\b" "a\\b")
>EQUAL-OK: ("a\\b")
>(RE-TEST "(abc" "-")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("(abc"): "Unmatched ( or \\("
>EQL-OK: ERROR
>(RE-TEST "((a))" "abc")
>EQUAL-OK: ("a" "a" "a")
>(RE-TEST "(a)b(c)" "abc")
>EQUAL-OK: ("abc" "a" "c")
>(RE-TEST "a+b+c" "aabbabc")
>EQUAL-OK: ("abc")
>(RE-TEST "a**" "-")
>EQUAL-OK: ("")
>(RE-TEST "(a*)*" "-")
>EQUAL-OK: ("" "")
>(RE-TEST "(a*)+" "-")
>EQUAL-OK: ("" "")
>(RE-TEST "(a*|b)*" "-")
>EQUAL-OK: ("" "")
>(RE-TEST "(a+|b)*" "ab")
>EQUAL-OK: ("ab" "b")
>(RE-TEST "(a+|b)+" "ab")
>EQUAL-OK: ("ab" "b")
>(RE-TEST "(a+|b)?" "ab")
>EQUAL-OK: ("a" "a")
>(RE-TEST "[^ab]*" "cde")
>EQUAL-OK: ("cde")
>(RE-TEST "(^)*" "-")
>EQUAL-OK: ("" NIL)
>(RE-TEST ")(" "-")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE (")("): "Unmatched ( or \\("
>EQL-OK: ERROR
>(RE-TEST "" "abc")
>EQUAL-OK: ("")
>(RE-TEST "abc" "")
>EQL-OK: NIL
>(RE-TEST "a*" "")
>EQUAL-OK: ("")
>(RE-TEST "([abc])*d" "abbbcd")
>EQUAL-OK: ("abbbcd" "c")
>(RE-TEST "([abc])*bcd" "abcd")
>EQUAL-OK: ("abcd" "a")
>(RE-TEST "a|b|c|d|e" "e")
>EQUAL-OK: ("e")
>(RE-TEST "(a|b|c|d|e)f" "ef")
>EQUAL-OK: ("ef" "e")
>(RE-TEST "((a*|b))*" "-")
>EQUAL-OK: ("" "" "")
>(RE-TEST "abcd*efg" "abcdefg")
>EQUAL-OK: ("abcdefg")
>(RE-TEST "ab*" "xabyabbbz")
>EQUAL-OK: ("ab")
>(RE-TEST "ab*" "xayabbbz")
>EQUAL-OK: ("a")
>(RE-TEST "(ab|cd)e" "abcde")
>EQUAL-OK: ("cde" "cd")
>(RE-TEST "[abhgefdc]ij" "hij")
>EQUAL-OK: ("hij")
>(RE-TEST "^(ab|cd)e" "abcde")
>EQL-OK: NIL
>(RE-TEST "(a|b)c*d" "abcd")
>EQUAL-OK: ("bcd" "b")
>(RE-TEST "(ab|ab*)bc" "abc")
>EQUAL-OK: ("abc" "a")
>(RE-TEST "a([bc]*)c*" "abc")
>EQUAL-OK: ("abc" "bc")
>(RE-TEST "a([bc]*)(c*d)" "abcd")
>EQUAL-OK: ("abcd" "bc" "d")
>(RE-TEST "a([bc]+)(c*d)" "abcd")
>EQUAL-OK: ("abcd" "bc" "d")
>(RE-TEST "a([bc]*)(c+d)" "abcd")
>EQUAL-OK: ("abcd" "b" "cd")
>(RE-TEST "a[bcd]*dcdcde" "adcdcde")
>EQUAL-OK: ("adcdcde")
>(RE-TEST "a[bcd]+dcdcde" "adcdcde")
>EQL-OK: NIL
>(RE-TEST "(ab|a)b*c" "abc")
>EQUAL-OK: ("abc" "ab")
>(RE-TEST "((a)(b)c)(d)" "abcd")
>EQUAL-OK: ("abcd" "abc" "a" "b" "d")
>(RE-TEST "[a-zA-Z_][a-zA-Z0-9_]*" "alpha")
>EQUAL-OK: ("alpha")
>(RE-TEST "^a(bc+|b[eh])g|.h$" "abh")
>EQUAL-OK: ("bh" NIL)
>(RE-TEST "(bc+d$|ef*g.|h?i(j|k))" "effgz")
>EQUAL-OK: ("effgz" "effgz" NIL)
>(RE-TEST "(bc+d$|ef*g.|h?i(j|k))" "ij")
>EQUAL-OK: ("ij" "ij" "j")
>(RE-TEST "(bc+d$|ef*g.|h?i(j|k))" "effg")
>EQL-OK: NIL
>(RE-TEST "(bc+d$|ef*g.|h?i(j|k))" "bcdd")
>EQL-OK: NIL
>(RE-TEST "(bc+d$|ef*g.|h?i(j|k))" "reffgz")
>EQUAL-OK: ("effgz" "effgz" NIL)
>(RE-TEST "((((((((((a))))))))))" "a")
>EQUAL-OK: ("a" "a" "a" "a" "a" "a" "a" "a" "a" "a" "a")
>(RE-TEST "(((((((((a)))))))))" "a")
>EQUAL-OK: ("a" "a" "a" "a" "a" "a" "a" "a" "a" "a")
>(RE-TEST "multiple words of text" "uh-uh")
>EQL-OK: NIL
>(RE-TEST "multiple words" "multiple words, yeah")
>EQUAL-OK: ("multiple words")
>(RE-TEST "(.*)c(.*)" "abcde")
>EQUAL-OK: ("abcde" "ab" "de")
>(RE-TEST "\$(.*), (.*)\$" "(a, b)")
>EQUAL-OK: ("(a, b)" "a" "b")
>(RE-TEST "[k]" "ab")
>EQL-OK: NIL
>(RE-TEST "abcd" "abcd")
>EQUAL-OK: ("abcd")
>(RE-TEST "a(bc)d" "abcd")
>EQUAL-OK: ("abcd" "bc")
>(RE-TEST "a[-]?c" "ac")
>EQUAL-OK: ("ac")
>(RE-TEST "a[-]?c" "ac")
>EQUAL-OK: ("ac")
>(RE-TEST "a[-]?c" "ac")
>EQUAL-OK: ("ac")
>(DEFPARAMETER *SAVED-LOCALE* (SET-LOCALE :ALL))
>EQL-OK: *SAVED-LOCALE*
>(SET-LOCALE :ALL "C")
>EQUAL-OK: "C"
>(RE-TEST "[ -~]*" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "[ -~ -~]*" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "[ -~ -~ -~]*" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "[ -~ -~ -~ -~]*" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "[ -~ -~ -~ -~ -~]*" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "[ -~ -~ -~ -~ -~ -~]*" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "[ -~ -~ -~ -~ -~ -~ -~]*" "abc")
>EQUAL-OK: ("abc")
>(STRING= *SAVED-LOCALE* (SET-LOCALE :ALL *SAVED-LOCALE*))
>EQL-OK: T
>(RE-TEST "(na)x+" "naxna")
>EQUAL-OK: ("nax" "na")
>(RE-TEST "(na)x+na" "naxna123")
>EQUAL-OK: ("naxna" "na")
>(RE-TEST "(na)x+" "naxxos")
>EQUAL-OK: ("naxx" "na")
>(RE-TEST "(na)x+" "naxos")
>EQUAL-OK: ("nax" "na")
>(RE-TEST "(na)x+" "naos")
>EQL-OK: NIL
>(RE-TEST "(na)x*" "naxxos")
>EQUAL-OK: ("naxx" "na")
>(RE-TEST "(na)x*" "naxos")
>EQUAL-OK: ("nax" "na")
>(RE-TEST "(na)x*" "naos")
>EQUAL-OK: ("na" "na")
>(RE-TEST "[0-9]+" "123ab")
>EQUAL-OK: ("123")
>(RE-TEST "[a-zA-Z]+" "aAbb123")
>EQUAL-OK: ("aAbb")
>(RE-TEST "[0-9a-z]+" "1234&&*")
>EQUAL-OK: ("1234")
>(RE-TEST "[0-9a-z]+" "1234a&&*")
>EQUAL-OK: ("1234a")
>(RE-TEST "[0-9a-zA-Z]+" "a1234a")
>EQUAL-OK: ("a1234a")
>(RE-TEST "[0-9a-zA-Z&]+" "aAbb123&&*")
>EQUAL-OK: ("aAbb123&&")
>(RE-TEST "[0-9]+\\.[0-9]*" "0.123cm")
>EQUAL-OK: ("0.123")
>(RE-TEST "{[^}
>]*}" "{M.D. Harrison and A. Monk (Ed.)} nt foo: 2")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("{[^}
>]*}"): "Invalid preceding regular expression"
>EQL-OK: ERROR
>(RE-TEST "{[^}
>]*}" "{M.D. Harrison and
>A. Monk (Ed.)} nt foo: 2")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("{[^}
>]*}"): "Invalid preceding regular expression"
>EQL-OK: ERROR
>(RE-TEST "{[^}
>]*}" "{M.D. Harrison and {A. Monk} (Ed.)} nt foo: 2")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("{[^}
>]*}"): "Invalid preceding regular expression"
>EQL-OK: ERROR
>(RE-TEST "ca?r" "car")
>EQUAL-OK: ("car")
>(RE-TEST "ca?r" "cr")
>EQUAL-OK: ("cr")
>(RE-TEST "c[ad]+r" "caaar")
>EQUAL-OK: ("caaar")
>(RE-TEST "c[ad]+r" "caaar aa1")
>EQUAL-OK: ("caaar")
>(RE-TEST "c[ad]+r$" "caaar")
>EQUAL-OK: ("caaar")
>(RE-TEST ".*" "")
>EQUAL-OK: ("")
>(RE-TEST ".*" "aa")
>EQUAL-OK: ("aa")
>(RE-TEST "c[ad]?r" "cr")
>EQUAL-OK: ("cr")
>(RE-TEST "c[ad]?r" "car")
>EQUAL-OK: ("car")
>(RE-TEST "c[ad]?r" "cdr")
>EQUAL-OK: ("cdr")
>(RE-TEST "c[0-9]?r" "cr")
>EQUAL-OK: ("cr")
>(RE-TEST "c[0-9]?r" "c9rxx")
>EQUAL-OK: ("c9r")
>(RE-TEST "c[0-9]?r" "crxx")
>EQUAL-OK: ("cr")
>(RE-TEST "a|b" "a")
>EQUAL-OK: ("a")
>(RE-TEST "ab.yz" "ab yz")
>EQUAL-OK: ("ab yz")
>(RE-TEST "ab.yz" "ab
>yz")
>EQUAL-OK: ("ab
>yz")
>(RE-TEST "(abc){1,2}" "abcabc")
>EQUAL-OK: ("abcabc" "abc")
>(RE-TEST "(abc){1,2}x*(def)y*def" "abcabcxxxxdefyyyyyyydef$%%%%%")
>EQUAL-OK: ("abcabcxxxxdefyyyyyyydef" "abc" "def")
>(RE-TEST "a|bc*" "a")
>EQUAL-OK: ("a")
>(RE-TEST "[A-Z]+" "ABCY")
>EQUAL-OK: ("ABCY")
>(RE-TEST "[0-9]+\\.[0-9]*(e[+-]?[0-9]+)" "12.3e4  k")
>EQUAL-OK: ("12.3e4" "e4")
>(RE-TEST "[0-9]+\\.[0-9]*(e[+-]?[0-9]+)" "12.3e-4  k")
>EQUAL-OK: ("12.3e-4" "e-4")
>(RE-TEST "[0-9]+\\.[0-9]*(e[+-]?[0-9]+)?" "12.3  k")
>EQUAL-OK: ("12.3" NIL)
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Qaddafi")
>EQUAL-OK: ("Muammar Qaddafi" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mo'ammar Gadhafi")
>EQUAL-OK: ("Mo'ammar Gadhafi" NIL "dh")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Kaddafi")
>EQUAL-OK: ("Muammar Kaddafi" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Qadhafi")
>EQUAL-OK: ("Muammar Qadhafi" NIL "dh")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moammar El Kadhafi")
>EQUAL-OK: ("Moammar El Kadhafi" NIL "dh")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Gadafi")
>EQUAL-OK: ("Muammar Gadafi" NIL "d")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar al-Qadafi")
>EQUAL-OK: ("Mu'ammar al-Qadafi" NIL "d")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moamer El Kazzafi")
>EQUAL-OK: ("Moamer El Kazzafi" NIL "zz")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moamar al-Gaddafi")
>EQUAL-OK: ("Moamar al-Gaddafi" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar Al Qathafi")
>EQUAL-OK: ("Mu'ammar Al Qathafi" NIL "th")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Al Qathafi")
>EQUAL-OK: ("Muammar Al Qathafi" NIL "th")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mo'ammar el-Gadhafi")
>EQUAL-OK: ("Mo'ammar el-Gadhafi" NIL "dh")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moamar El Kadhafi")
>EQUAL-OK: ("Moamar El Kadhafi" NIL "dh")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar al-Qadhafi")
>EQUAL-OK: ("Muammar al-Qadhafi" NIL "dh")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar al-Qadhdhafi")
>EQUAL-OK: ("Mu'ammar al-Qadhdhafi" NIL "dh")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar Qadafi")
>EQUAL-OK: ("Mu'ammar Qadafi" NIL "d")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moamar Gaddafi")
>EQUAL-OK: ("Moamar Gaddafi" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar Qadhdhafi")
>EQUAL-OK: ("Mu'ammar Qadhdhafi" NIL "dh")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Khaddafi")
>EQUAL-OK: ("Muammar Khaddafi" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar al-Khaddafi")
>EQUAL-OK: ("Muammar al-Khaddafi" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'amar al-Kadafi")
>EQUAL-OK: ("Mu'amar al-Kadafi" NIL "d")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Ghaddafy")
>EQUAL-OK: ("Muammar Ghaddafy" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Ghadafi")
>EQUAL-OK: ("Muammar Ghadafi" NIL "d")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Ghaddafi")
>EQUAL-OK: ("Muammar Ghaddafi" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muamar Kaddafi")
>EQUAL-OK: ("Muamar Kaddafi" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Quathafi")
>EQUAL-OK: ("Muammar Quathafi" NIL "th")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muammar Gheddafi")
>EQUAL-OK: ("Muammar Gheddafi" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Muamar Al-Kaddafi")
>EQUAL-OK: ("Muamar Al-Kaddafi" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moammar Khadafy ")
>EQUAL-OK: ("Moammar Khadafy" NIL "d")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Moammar Qudhafi")
>EQUAL-OK: ("Moammar Qudhafi" NIL "dh")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mu'ammar al-Qaddafi")
>EQUAL-OK: ("Mu'ammar al-Qaddafi" NIL "dd")
>(RE-TEST "M[ou]'?am+[ae]r .*([AEae]l[- ])?[GKQ]h?[aeu]+([dtz][dhz]?)+af[iy]" "Mulazim Awwal Mu'ammar Muhammad Abu Minyar al-Qadhafi")
>EQUAL-OK: ("Mu'ammar Muhammad Abu Minyar al-Qadhafi" NIL "dh")
>(RE-TEST "((a|b{10,11})|(b))*-\\2" "aaab-a")
>EQUAL-OK: ("aaab-a" "b" "a" "b")
>(RE-TEST "(a)*-\\1" "aaa-a")
>EQUAL-OK: ("aaa-a" "a")
>(RE-TEST "(a)*-\\1b" "aaa-b")
>EQL-OK: NIL
>(RE-TEST "([xyz])(-\\2)" "x-y")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("([xyz])(-\\2)"): "Invalid back reference"
>EQL-OK: ERROR
>(RE-TEST "(([xyz])(-\\2))" "x-y")
>EQL-OK: NIL
>(RE-TEST "(([xyz])(-\\2)*)*" "x-y")
>EQUAL-OK: ("x" "x" "x" NIL)
>(RE-TEST "(([xyz])(-\\2)*)*" "x-")
>EQUAL-OK: ("x" "x" "x" NIL)
>(RE-TEST "(([xyz])(-\\2)*)*" "xy-yz-y")
>EQUAL-OK: ("xy-yz" "z" "z" "-y")
>(RE-TEST "((.*)\\1)+" "xxxxxx")
>[SIMPLE-ERROR]: REGEXP:REGEXP-COMPILE ("((.*)\\1)+"): "Invalid back reference"
>EQL-OK: ERROR
>(RE-TEST "(a*)\\1\\1(a*)\\2\\2\\2" "aaaaaa")
>EQUAL-OK: ("aaaaaa" "aa" "")
>(RE-TEST "(a*)(a*)\\1\\2" "aaaa")
>EQUAL-OK: ("aaaa" "aa" "")
>(RE-TEST "(a*)\\1(a*)\\2\\2" "aaaa")
>EQUAL-OK: ("aaaa" "aa" "")
>(RE-TEST "(a*)\\1\\1(a*)" "aaaaaa")
>EQUAL-OK: ("aaaaaa" "aa" "")
>(RE-TEST "(a*)\\1\\1(a*)\\2" "aaaaaa")
>EQUAL-OK: ("aaaaaa" "aa" "")
>(RE-TEST "(a*)\\1\\1(a*)\\2\\2" "aaaaaa")
>EQUAL-OK: ("aaaaaa" "aa" "")
>(RE-TEST "(.*)\\1\\1(.*)\\2\\2\\2" "aaaaaa")
>EQUAL-OK: ("aaaaaa" "aa" "")
>(RE-TEST "(.*)\\1\\1(.*)\\2\\2\\2" "aaaaaaa")
>EQUAL-OK: ("aaaaaaa" "a" "a")
>(RE-TEST "(.*)\\1\\1(.*)\\2\\2\\2" "aaaaa")
>EQUAL-OK: ("aaaa" "" "a")
>(RE-TEST "(.*)\\1\\1" "aaa")
>EQUAL-OK: ("aaa" "a")
>(RE-TEST "(.*)*\\1" "xx")
>EQUAL-OK: ("xx" "x")
>(RE-TEST "(....).*\\1" "beriberi")
>EQUAL-OK: ("beriberi" "beri")
>(RE-TEST "[[:alpha:]_][[:alnum:]_]*" "c_identifier")
>EQUAL-OK: ("c_identifier")
>(RE-TEST "[[:xdigit:]]*" "12aBcD89")
>EQUAL-OK: ("12aBcD89")
>(RE-TEST ".*" "aa")
>EQUAL-OK: ("aa")
>(RE-TEST ".+" "aa")
>EQUAL-OK: ("aa")
>(RE-TEST "(a+|b)" "aaa")
>EQUAL-OK: ("aaa" "aaa")
>(RE-TEST "(a+|b)" "b")
>EQUAL-OK: ("b" "b")
>(RE-TEST "[abc]{1,3}" "bcaa")
>EQUAL-OK: ("bca")
>(RE-TEST "a[\\-]?c" "ac")
>EQUAL-OK: ("ac")
>(RE-TEST "a[\\-]?c" "a-c")
>EQUAL-OK: ("a-c")
>(RE-TEST "a[-]?c" "ac")
>EQUAL-OK: ("ac")
>(RE-TEST "a[-]?c" "a-c")
>EQUAL-OK: ("a-c")
>(RE-TEST "a[-b]?c" "abc")
>EQUAL-OK: ("abc")
>(RE-TEST "a[b-]?c" "acc")
>EQUAL-OK: ("ac")
>(RE-TEST "a[^\\-]?c" "ac")
>EQUAL-OK: ("ac")
>(RE-TEST "a[^\\-]?c" "a-c")
>EQL-OK: NIL
>(RE-TEST "a[^-]?c" "ac")
>EQUAL-OK: ("ac")
>(RE-TEST "a[^-]?c" "azc")
>EQUAL-OK: ("azc")
>(RE-TEST "a[^-b]?c" "adc")
>EQUAL-OK: ("adc")
>(RE-TEST "a[^b-]?c" "acc")
>EQUAL-OK: ("acc")
>(RE-TEST "a*" "aaaa")
>EQUAL-OK: ("aaaa")
>(RE-TEST "a+" "aaaa")
>EQUAL-OK: ("aaaa")
>(RE-TEST "a{2,3}" "aaaa")
>EQUAL-OK: ("aaa")
>(RE-TEST "a*?" "aaaa")
>EQUAL-OK: ("aaaa")
>(RE-TEST "a+?" "aaaa")
>EQUAL-OK: ("aaaa")
>(RE-TEST "a{2,3}?" "aaaa")
>EQUAL-OK: ("aaa")
>(RE-TEST "a+?bb*?" "baaaabaaabbbaaaaa")
>EQUAL-OK: ("b")
>(RE-TEST "a+?bb+?" "baaaabaaabbbaaaaa")
>EQUAL-OK: ("b")
>(RE-TEST "[abc]{10,20}?" "xxxbcbcbabcaabcbabcbcbabcbcaabcabxxx")
>EQUAL-OK: ("")
>(RE-TEST "^(x)+$" "xx")
>EQUAL-OK: ("xx" "x")
>(RE-TEST "^(x)+\\1$" "xx")
>EQUAL-OK: ("xx" "x")
>(RE-TEST "^(x){1,2}$" "xx")
>EQUAL-OK: ("xx" "x")
>(RE-TEST "^(x){1,2}\\1$" "xx")
>EQUAL-OK: ("xx" "x")
>(RE-TEST "^(x)+[^x]+\\1$" "xxaax")
>EQUAL-OK: ("xxaax" "x")
>(RE-TEST "^x*(x)[^x]+\\1$" "xxaax")
>EQUAL-OK: ("xxaax" "x")
>(RE-TEST "(x)+\\1" "xxxx")
>EQUAL-OK: ("xxxx" "x")
>(RE-TEST "(x){1,2}" "xxxx")
>EQUAL-OK: ("xx" "x")
>(RE-TEST "(x){1,2}\\1" "xxxx")
>EQUAL-OK: ("xxx" "x")
>(RE-TEST "(x)+[^x]+\\1" "xxaax")
>EQUAL-OK: ("xxaax" "x")
>(RE-TEST "x*(x)[^x]+\\1" "xxaax")
>EQUAL-OK: ("xxaax" "x")
>(RE-TEST "(x)+?\\1" "xxxx")
>EQUAL-OK: ("xxxx" "x")
>(RE-TEST "(x){1,2}?" "xxxx")
>EQUAL-OK: ("xx" "x")
>(RE-TEST "(x){1,2}?\\1" "xxxx")
>EQUAL-OK: ("xxx" "x")
>(RE-TEST "(x)+?[^x]+\\1" "xxaax")
>EQUAL-OK: ("xxaax" "x")
>(RE-TEST "x*?(x)[^x]+\\1" "xxaax")
>EQUAL-OK: ("xxaax" "x")
>(RE-TEST "(a*)*" "aaaa")
>EQUAL-OK: ("aaaa" "aaaa")
>(RE-TEST "(a*)+" "aaaa")
>EQUAL-OK: ("aaaa" "aaaa")
>(RE-TEST "(a+)*" "aaaa")
>EQUAL-OK: ("aaaa" "aaaa")
>(REGEXP:REGEXP-SPLIT "|" "a|b" :EXTENDED T)
>[SIMPLE-ERROR]: REGEXP:REGEXP-SPLIT: "|" matches an empty string #S(REGEXP:MATCH :START 0 :END 0) at "a|b":0
>EQL-OK: ERROR
>(DEFPARAMETER LATITUDE "6Â° 45' 22.90\"    S")
>EQL-OK: LATITUDE
>(DEFPARAMETER LONGITUDE "35Â° 7' 23.60\"  E")
>EQL-OK: LONGITUDE
>(LETF ((*MISC-ENCODING* CHARSET:UTF-8)) (SHOW *MISC-ENCODING*) (LIST (REGEXP:REGEXP-SPLIT " " LATITUDE) (REGEXP:REGEXP-SPLIT " " LONGITUDE)))
>#<ENCODING CHARSET:UTF-8 :UNIX>
>EQUAL-OK: (("6Â°" "45'" "22.90\"" "" "" "" "S") ("35Â°" "7'" "23.60\"" "" "E"))
>(LETF ((*MISC-ENCODING* CHARSET:ISO-8859-1)) (SHOW *MISC-ENCODING*) (LIST (REGEXP:REGEXP-SPLIT " " LATITUDE) (REGEXP:REGEXP-SPLIT " " LONGITUDE)))
>#<ENCODING CHARSET:ISO-8859-1 :UNIX>
>EQUAL-OK: (("6Â°" "45'" "22.90\"" "" "" "" "S") ("35Â°" "7'" "23.60\"" "" "E"))
>(REGEXP:REGEXP-SPLIT " *, *" "a, b,c ,d,f" :START 3 :END 6)
>EQUAL-OK: ("b" "c")
>(REGEXP:REGEXP-SPLIT " *, *" "a, b,c ,d,f" :START 3 :END 3)
>EQUAL-OK: ("")
>(SYMBOLS-CLEANUP '(*SAVED-LOCALE* LATITUDE LONGITUDE))
>EQL-OK: NIL
>RUN-TEST: finished #P"/builddir/build/BUILD/clisp-d1310adc5aa7bb3610cd4c44c96b134bba75d405-d1310adc5aa7bb3610cd4c44c96b134bba75d405/modules/regexp/test.tst" (0 errors out of 320 tests)
>RUN-TEST: started 
>#<INPUT BUFFERED FILE-STREAM CHARACTER
>  #P"/builddir/build/BUILD/clisp-d1310adc5aa7bb3610cd4c44c96b134bba75d405-d1310adc5aa7bb3610cd4c44c96b134bba75d405/modules/readline/test.tst"
>  @1>
>(NULL (REQUIRE "readline"))
>EQL-OK: T
>(LISTP (SHOW (MULTIPLE-VALUE-LIST (MODULE-INFO "readline" T)) :PRETTY T))
>("readline" 0 NIL 0 NIL)
>EQL-OK: T
>(LET ((VER-NUM (AND (BOUNDP 'READLINE:READLINE-VERSION) READLINE:READLINE-VERSION))) (FORMAT T "~&readline version ~S (~D=0~O=x~X)~%" (AND (BOUNDP 'READLINE:LIBRARY-VERSION) READLINE:LIBRARY-VERSION) VER-NUM VER-NUM VER-NUM))
>readline version NIL (NIL=0NIL=xNIL)
>EQL-OK: NIL
>(INTEGERP (SHOW READLINE:GNU-READLINE-P))
>1
>EQL-OK: T
>(TYPEP (SHOW READLINE:TERMINAL-NAME) '(OR NULL STRING))
>NIL
>EQL-OK: T
>(INTEGERP (SHOW READLINE:PREFER-ENV-WINSIZE))
>0
>EQL-OK: T
>(IF (BOUNDP 'READLINE:EDITING-MODE) READLINE:EDITING-MODE 1)
>EQL-OK: 1
>(IF (BOUNDP 'READLINE:INSERT-MODE) READLINE:INSERT-MODE 1)
>EQL-OK: 1
>(IF (BOUNDP 'READLINE:READLINE-NAME) READLINE:READLINE-NAME "CLISP")
>EQUAL-OK: "CLISP"
>(SETQ READLINE:READLINE-NAME "abazonk")
>EQUAL-OK: "abazonk"
>READLINE:READLINE-NAME
>EQUAL-OK: "abazonk"
>(READLINE:HISTORY-STIFLED-P)
>EQL-OK: 0
>(READLINE:STIFLE-HISTORY 100)
>EQL-OK: NIL
>(READLINE:HISTORY-STIFLED-P)
>EQL-OK: 1
>(ABS (READLINE:UNSTIFLE-HISTORY))
>EQL-OK: 100
>(READLINE:HISTORY-STIFLED-P)
>EQL-OK: 0
>(READLINE:WHERE-HISTORY)
>EQL-OK: 0
>(READLINE:HISTORY-TOTAL-BYTES)
>EQL-OK: 0
>(DEFPARAMETER *HISTORY-FILE* "readline-history-file")
>EQL-OK: *HISTORY-FILE*
>(READLINE:WRITE-HISTORY *HISTORY-FILE*)
>EQL-OK: 0
>(READLINE:APPEND-HISTORY 1000 *HISTORY-FILE*)
>EQL-OK: 0
>(READLINE:READ-HISTORY *HISTORY-FILE*)
>EQL-OK: 0
>(READLINE:READ-HISTORY-RANGE *HISTORY-FILE* 0 -1)
>EQL-OK: 0
>(READLINE:HISTORY-TRUNCATE-FILE *HISTORY-FILE* 10)
>EQL-OK: 0
>(PROBE-FILE (DELETE-FILE *HISTORY-FILE*))
>EQL-OK: NIL
>(WHEN (ZEROP (LOGAND READLINE:READLINE-STATE READLINE:STATE-INITIALIZED)) (NOT (ZEROP (READLINE:INITIALIZE))))
>EQL-OK: NIL
>(READLINE:RESIZE-TERMINAL)
>EQL-OK: NIL
>(READLINE:RESET-SCREEN-SIZE)
>EQL-OK: NIL
>(MULTIPLE-VALUE-BIND (ROWS COLS) (READLINE:GET-SCREEN-SIZE) (SHOW (LIST ROWS COLS)) (READLINE:SET-SCREEN-SIZE ROWS COLS))
>(24 80)
>EQL-OK: NIL
>(EQUAL (MERGE-PATHNAMES (READLINE:TILDE-EXPAND "~/foo")) (MERGE-PATHNAMES "foo" (USER-HOMEDIR-PATHNAME)))
>EQL-OK: T
>(PROGN (DEFUN STUFF-STRING (STRING) "Stuff a string (with NewLine added) to readline buffer" (ASSERT (< (LENGTH STRING) 255)) (MAP 'NIL (LAMBDA (CHAR) (READLINE:STUFF-CHAR (CHAR-CODE CHAR))) STRING) (READLINE:STUFF-CHAR (CHAR-CODE #\Newline))) (DEFUN READLINE-FROM-STRING (STRING) "Run readline:readline, with fake input." (STUFF-STRING STRING) (READLINE:READLINE "")) (READLINE-FROM-STRING "test"))
>test
>EQUAL-OK: "test"
>(LET ((A 0)) (READLINE:BIND-KEY (CHAR-CODE #\t) (LAMBDA (? ??) (INCF A))) (READLINE-FROM-STRING "test") A)
>es
>*** - handle_fault error1 !
>SIGSEGV cannot be cured. Fault address = 0x3a.
>GC count: 53
>Space collected by GC: 90019232
>Run time: 2 147241
>Real time: 10 412675
>GC time: 0 282323
>Permanently allocated: 165312 bytes.
>Currently in use: 4171624 bytes.
>Free space: 373418 bytes.
>/bin/sh: line 1: 21554 Segmentation fault      (core dumped) ./clisp -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -C -i tests/tests -x "(ext:exit (plusp (or (run-some-tests :dirlist '($z) :srcdir \"../modules/\" :outdir \"./\") 0)))"
>make: *** [Makefile:2398: base-mod-check] Error 139
>===> make base-mod-check FAILED
>Step 1 ===> /bin/sh ../src/configure --disable-option-checking --prefix=/usr --libdir=/usr/lib64 --mandir=/usr/share/man --infodir=/usr/share/info --docdir=/usr/share/doc/clisp --with-libreadline-prefix=/builddir/build/BUILD/clisp-d1310adc5aa7bb3610cd4c44c96b134bba75d405-d1310adc5aa7bb3610cd4c44c96b134bba75d405/readline --with-ffcall --with-libsigsegv-prefix=/usr --with-libffcall-prefix=/usr --cache-file=config.cache SUCCEEDED
>Step 2 ===> make SUCCEEDED
>Step 3 ===> make check FAILED
>Step 4 ===> make extracheck SUCCEEDED
>Step 5 ===> make base-mod-check FAILED
>error: Bad exit status from /var/tmp/rpm-tmp.kA2658 (%build)
>RPM build errors:
>    Bad exit status from /var/tmp/rpm-tmp.kA2658 (%build)
>Child return code was: 1
>EXCEPTION: [Error()]
>Traceback (most recent call last):
>  File "/usr/lib/python3.6/site-packages/mockbuild/trace_decorator.py", line 89, in trace
>    result = func(*args, **kw)
>  File "/usr/lib/python3.6/site-packages/mockbuild/util.py", line 582, in do
>    raise exception.Error("Command failed. See logs for output.\n # %s" % (command,), child.returncode)
>mockbuild.exception.Error: Command failed. See logs for output.
> # bash --login -c /usr/bin/rpmbuild -bb --target ppc64le --nodeps /builddir/build/SPECS/clisp.spec

Actions: View

Attachments on bug 1603654: 1461005 | 1461006 | 1461007