Hi,
In GCL from CVS on Linux/AMD64 (built with --enable-ansi), compiling
the file below triggers a bogus program-error.
,---- d2.lisp
| (in-package :cl-user)
|
| (defun bug (list)
| (reduce #'max (map 'list #'identity lengthen)))
`----
,----
| > (compile-file "/tmp/d2.lisp")
| ;; Compiling /tmp/d2.lisp.
| Error:
| Fast links are on: do (si::use-fast-links nil) for debugging
| Signalled by MAX.
| Condition in MAX [or a callee]: INTERNAL-SIMPLE-PROGRAM-ERROR: MAX [or a
callee] requires more than zero arguments.
| Broken at MAX. Type :H for Help.
| 1 (Continue) Retry compiling file "/tmp/d2.lisp".
| 2 Retry compiling file "/tmp/d2.lisp".
| 3 Return to top level.
| >>:bt
| #0 MAX {} [ihs=8]
| #1 EVAL {loc0=nil,loc1=nil,loc2=nil,loc3=#<compiled-function max>} [ihs=7]
| #2 EVAL {loc0=(max),loc1=(max)} [ihs=6]
| #3 ERROR-SET {loc0=(eval (quote
(max))),loc1=nil,loc2=nil,loc3=nil,loc4=nil,loc5=#<compiled-f...} [ihs=5]
| #4 COMPILE-FILE1 {} [ihs=4]
`----
--
Eric Marsden
_______________________________________________
Gcl-devel mailing list
Gcl-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/gcl-devel
