🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.lisp
Article #17

[CLOS] eql specializer on MayDay version

#17
From: Hisao Kuroda
Date: Fri, 28 Aug 1992 08:20
57 lines
2833 bytes
$@?tM}%7%9%F%`$N9uED<wCK(J$@$H$$$$$^$9!#(J
$@@hF|2,F#$5$^$N$4;Y1g$K$h$j!"#C#M#U#C#L$N#1#6#D$r<j$KF~$l$k$3$H$,$G$-$^(J
$@$7$?!#$I$&$b$"$j$,(J$@$H$&$4$6$$$^$7$?!#(J
$@$H$3$m$G!"#1#6#D$G$O#P#C#L$N%P!<%8%g%s$,%a!<%G!<%P!<%8%g%s$K>e$,$C$F$$(J
$@$F!"AaB.$3$$(J$@$D$G#c#l#m!\#g#i#n#a$r%3%s%Q%$%k$7$FF0:n$5$;$F$_$?$N$G$9$,!"(J
$@<!$N$h$&$J%a%=%C%IDj5A$,%(%i!<$K$J$j$^$9(J$@!#(J

% lisp
CMU Common Lisp 16d, running on dwarf
Send bug reports and questions to your local CMU CL maintainer, or to
cmucl-bugs@cs.cmu.edu.
Loaded subsystems:
    Python 1.0, target SPARCstation/Sun 4
    CLOS based on PCL version:  5/1/90  May Day PCL (REV 4b)
* (defmethod foo ((class (eql 'foo))) 'foo)	;$@0lEY(J eql specializer
						;$@$r$D$+$C$F$+$i!"(J

Compiling LAMBDA (PCL::FIELD PCL::CACHE PCL::MASK PCL::SIZE FUNCTION PCL::MISS-FN): 
Compiling Top-Level Form: 
#<Standard-Method FOO ((EQL FOO)) {700EBB5}>
* (defmethod foo ((class number)) (print class));$@IaDL$N%/%i%9$KBP$7$F(J
						;$@%a%=%C%I$rDj5A$9$k(J


Error in function "DEFMETHOD NO-APPLICABLE-METHOD":
   No matching method for the generic-function #<Standard-Generic-Function PCL::SAME-SPECIALIZER-P (2) {5286F39}>,
Compiling LAMBDA #: 
Compiling Top-Level Form: 
when called with arguments (#<Built-In-Class NUMBER {52D998D}>
                            #<PCL::EQL-SPECIALIZER {700E32D}>).

Restarts:
  0: [CONTINUE] Retry call to #<Standard-Generic-Function PCL::SAME-SPECIALIZER-P (2) {5286F39}>
  1: [ABORT   ] Return to Top-Level.

Debug  (type H for help)

("DEFMETHOD NO-APPLICABLE-METHOD"
 #<Standard-Generic-Function PCL::SAME-SPECIALIZER-P (2) {5286F39}>
 #<Built-In-Class NUMBER {52D998D}> #<PCL::EQL-SPECIALIZER {700E32D}>)
0] 

$@%S%/%H%j%"%P(J$@!<%8%g%s$G$O$&$^$/$$$C$F$$$?$N$G$9$,!"$3$l$O%a!<%G!<$K$J$C(J
$@$F$N%P%0$J$N$G$7$g$&$+!)(J $@$=$l$H$b2?$+;EMM$,(J$@JQ99$5$l$?$N$G$9$+!)(J
$@!J#L#u#c#i#d$G%S%/%H%j%"!?%a!<%G!<$H$b$K%3%s%Q%$%k<B9T$7$F$_$F$b#C#M#U(J
$@$N$b$N$HF1(J$@$87k2L$K$J$j$^$7$?!#!K(J

$@$b$7%P%0$@$H$7$?>l9g$9$G$K%Q%C%A$,G[I[$5$l$F$$$k$N$G$7$g$&$+!)(J

$@8fB8CN$N$+$?65(J$@$($F$$$?$@$1$k$H=u$+$j$^$9!#(J

--
Mathematical Systems Institute Inc.			Hisao Kuroda
6F AM BLDG. 2-5-3 Shinjuku, Shinjuku-Ku			301, 1-22-2 Kyonan-cho
Tokyo, Japan 160					Musashino-shi,
E-mail : kuroda@msi.co.jp (Kuroda,Hisao)		Tokyo, Japan 180
	# Everybody's got something to hide except me and my //GS. #
Technical Details
Message-ID: <KURODA.92Aug28172024@dwarf.msi.co.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!sun-barr!sh.wide!kogwy!msisun!kuroda

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!sun-barr!sh.wide!kogwy!msisun!kuroda
From: kuroda@msi.co.jp (Hisao Kuroda)
Newsgroups: fj.lang.lisp
Subject: [CLOS] eql specializer on MayDay version
Message-ID: <KURODA.92Aug28172024@dwarf.msi.co.jp>
Date: 28 Aug 92 08:20:24 GMT
Sender: news@msisun.msi.co.jp
Distribution: fj
Organization: Mathematical System institute Inc, Japan
Lines: 57