🚀 go-pugleaf

Hi there --

Following is a dribble of a bug I encountered in May Day PCL 
(Rev 4b) in Franz Allegro Common Lisp.  There is no such 
problem in either of:

1.  Allegro Common Lisp 3.1 with the Victoria Day PCL 
    distributed with ACL.

2.  Macintosh Allegro Common Lisp 1.3.2 with May Day (Rev 2).

I haven't tried MACL with May Day (Rev 4b), nor have I tried 
ACL with May Day (Rev 2).

Greg Anglin
Department of Statistics
University of Waterloo
dganglin@violet.waterloo.edu

-------------------------------------------------------------------------

LISP-IMPLEMENTATION-TYPE: Allegro CL
LISP-IMPLEMENTATION-VERSION: 3.1.15.4 [Silicon Graphics Iris 4D] (9/18/90)
MACHINE-TYPE: Silicon Graphics Iris 4D
MACHINE-VERSION: 
SOFTWARE-TYPE: IRIX System V
SOFTWARE-VERSION: 3.1
SHORT-SITE-NAME: versicolor
*features*: (:LOOP LOOP :PORTABLE-COMMONLOOPS :COMPOSER :FAKE-ACTIVE-REGIONS :PCL :CLOS :BIG-ENDIAN :GSGC :ALLEGRO-V3.1 :FRANZ-INC :EXCL :ALLEGRO :COMMON-LISP :CONFORMING-IEEE :IEEE :FLAVORS :MIPS :R2000 :UNIX :SGI :SGI4D :IRIS4D :MULTIPROCESSING :CLX :XLIB :CLX-MIT-R4 :CLX-CL-ERROR :CW-X)
*modules*: ("LOOP" "COMPOSER" "GPROF" "GR" "PROF" "TTYPROF" "MENU" "CLOS" "PCL" "XVARS" "XCW" "XLIB" "CLX" "CLXEXCLDEP" "CSTRUCTS" "SIGIO" "ADVISE" "TRACE" "MDPROC" "PROCESS" "FOREIGN" "FOREIGN-FUNCTIONS" "QSTRUCTS")
PATCH::*XCW-PATCHES*:
 (12 . "process interference caused text glitches on sgi")
 (11 . "bitblt fore/background colors")
 (10 . "'move' on the subwindow right button frame menu broke")
 (9 . "error when draw to a window while window manager is flushing it")
 (8 . "draw-polygon add closing line; draw-filled-polygon include last vertex")
 (7 . "don't ignore pre-initialize-cw open-font pixel-size arg")
loop: $Header: loop.cl,v 1.2 89/07/22 18:56:13 layer Rel $
Allegro Composer: Composer Final 1.0.17.3 (6/25/90 20:00)
disassmip: $Header: disassmip.cl,v 1.1 89/08/10 12:26:22 layer Rel $
X Common Windows: X-CW 1.3.final.15.1 (6/25/90 20:00)
cstructs: $Header: cstructs.cl,v 1.18 89/08/22 11:42:07 layer Rel $
sigio: $Header: sigio.cl,v 1.3 89/08/24 14:03:01 layer Rel $
trace: $Header: trace.cl,v 1.35 89/07/22 18:56:24 layer Rel $
mdproc: $Header: mdproc.cl,v 1.20 89/07/22 18:56:29 layer Rel $
process: $Header: process.cl,v 1.44 89/08/17 18:45:20 layer Rel $
foreign: $Header: foreign.cl,v 1.49 89/08/28 14:45:00 layer Rel $

NIL 
<cl> (in-package :pcl)

#<The PCL package, 1887 internal, 49 external> 
<cl> *pcl-system-date*

"5/1/90  May Day PCL (REV 4b)" 
<cl> (defmethod foo ((x1 symbol) x2) (list x1 x2))

#<Standard-Method FOO (SYMBOL T) -1703275526> 
<cl> (defmethod foo ((x1 (eql :bar)) x2) (list x2))
Error: No matching method for the generic-function #<Function SAME-SPECIALIZER-P @ #x-f842d7e>,
when called with arguments (#<EQL-SPECIALIZER -1702306506> #<Built-In-Class SYMBOL -1741462006>).

Restart actions (select using :continue):
 0: Retry call to #<Function SAME-SPECIALIZER-P @ #x-f842d7e>
[1c] <cl>