[Gcl-devel] BUG: MAX requires more than zero arguments

[Eric Marsden]

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