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