dganglin@violet.waterloo.edu (Greg Anglin) (06/14/91)
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> harrisr@cs.rpi.edu (Richard Harris) (06/15/91)
You can fix this bug in May Day PCL (Rev 4b) by adding the method: (defmethod same-specializer-p (specl1 specl2) nil) The other methods for this generic function are in the file methods.lisp. ---- Richard Harris