Has anyone ever run the SERIES package (described in CLtL2) in CMULISP?
In CMULISP 17f, under Irix 5.3, I tried to test Richard C. Waters' Series macro
package (the Nov. 26 1991 version, apparently the latest available). After
compiling and loading s-code.lisp, I loaded s-test.lisp. Three problems
occured:
1) series:P:install resulted in two conflicts with defined functions in the
COMMON-LISP-USER package, COLLECT and ITERATE (I told lisp to continue by
uninterning the conflicting symbols in the COMMON-LISP-USER package).
2) There was a lot of garbage collection during loading the file.
3) When I ran (do-tests) I got an error:
* (do-tests)
Doing 543 pending tests of 543 tests total.
Type a string representing a pathname of a scratch disk file: "/tmp/seriestest"
Compiling LAMBDA NIL:
Compiling Top-Level Form:
Compiling LAMBDA NIL:
Compiling Top-Level Form:
Compiling LAMBDA NIL:
Compiling Top-Level Form:
0 1 2
Type-error in KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER: A0 is not of type LIST
Restarts:
0: [ABORT] Return to Top-Level.
Debug (type H for help)
("DEFS SERIES")
Source:
; File: /sw/lisp/clisp/series/s-code.lisp
(FRAGL ((FULL-EXPR-LIST)) ((ITEMS T)) ((ITEMS LIST) (LST LIST)) NIL ...)
0] backtrace
0: ("DEFS SERIES")
1: (SERIES::BASIC-DO-NEXT-IN #<error printing object>)
2: (SERIES::DO-NEXT-IN #<error printing object>
#<Closure Over Function "DEFS MAP-FN" {7360E79}>
NIL)
3: (SERIES::LIST-OF-NEXT #<Closure Over Function "DEFS MAP-FN" {7360E79}>
#<error printing object>)
4: ("DEFS MAP-FN")
5: (SERIES::BASIC-DO-NEXT-IN #<error printing object>)
6: (SERIES::DO-NEXT-IN #<error printing object>
#<Closure Over Function "DEFS COLLECT" {7360E61}>
NIL)
7: (SERIES::COLLECT62 LIST #<error printing object>)
8: (TEST-NON-OPT #<unavailable-arg>)
9: (TEST-OPT-&-NON-OPT #<unavailable-arg>)
10: (DO-ENTRY (T 3 (T #) (# # #)) #<Synonym Stream to
SYSTEM:*STDOUT*>)[:OPTIONAL]
11: (DO-ENTRY (T 3 (T #) (# # #)) #<Synonym Stream to
SYSTEM:*STDOUT*>)[:OPTIONAL]
12: (DO-ENTRIES #<Synonym Stream to SYSTEM:*STDOUT*>)
13: (INTERACTIVE-EVAL (DO-TESTS))
14: (COMMON-LISP::%TOP-LEVEL)
15: (COMMON-LISP::RESTART-LISP)
0]