jackdaniel changed the topic of #commonlisp to: Common Lisp, the #1=(programmable . #1#) programming language | Wiki: <https://www.cliki.net> | IRC Logs: <https://irclog.tymoon.eu/libera/%23commonlisp> | Cookbook: <https://lispcookbook.github.io/cl-cookbook> | Pastebin: <https://plaster.tymoon.eu/>
ronald has quit [Ping timeout: 264 seconds]
unl0ckd has joined #commonlisp
ronald has joined #commonlisp
jmdaemon has joined #commonlisp
k_hachig has joined #commonlisp
unl0ckd has quit [Ping timeout: 268 seconds]
k_hachig has quit [Ping timeout: 264 seconds]
knusbaum has quit [Remote host closed the connection]
knusbaum has joined #commonlisp
amb007 has quit [Remote host closed the connection]
amb007 has joined #commonlisp
jmdaemon has quit [Ping timeout: 255 seconds]
jmdaemon has joined #commonlisp
k_hachig has joined #commonlisp
k_hachig has quit [Ping timeout: 255 seconds]
ymir has quit [Ping timeout: 255 seconds]
k_hachig has joined #commonlisp
jmdaemon has quit [Ping timeout: 255 seconds]
ymir has joined #commonlisp
k_hachig has quit [Ping timeout: 264 seconds]
dra has quit [Ping timeout: 264 seconds]
jmdaemon has joined #commonlisp
k_hachig has joined #commonlisp
k_hachig has quit [Ping timeout: 264 seconds]
Kyuvi has joined #commonlisp
jmdaemon has quit [Ping timeout: 264 seconds]
mm007emko has quit [Remote host closed the connection]
jmdaemon has joined #commonlisp
mm007emko has joined #commonlisp
Lord_of_Life has quit [Ping timeout: 264 seconds]
ezakimak has joined #commonlisp
jmdaemon has quit [Ping timeout: 264 seconds]
szkl has joined #commonlisp
Lord_of_Life has joined #commonlisp
jmdaemon has joined #commonlisp
SunClonus has joined #commonlisp
ymir has quit [Remote host closed the connection]
ymir has joined #commonlisp
jmdaemon has quit [Ping timeout: 260 seconds]
mrcom has quit [Remote host closed the connection]
mrcom has joined #commonlisp
SunClonus has quit [Remote host closed the connection]
SunClonus has joined #commonlisp
ymir has quit [Ping timeout: 260 seconds]
SunClonus has quit [Remote host closed the connection]
SunClonus has joined #commonlisp
ebrasca has quit [Remote host closed the connection]
ezakimak has quit []
NicknameJohn has joined #commonlisp
ezakimak has joined #commonlisp
Kyuvi has quit [Ping timeout: 250 seconds]
ymir has joined #commonlisp
yottabyte has quit [Quit: Connection closed for inactivity]
waleee has quit [Ping timeout: 264 seconds]
tyson2 has joined #commonlisp
molson has quit [Remote host closed the connection]
semz has quit [Quit: ZNC 1.8.2+deb2build5 - https://znc.in]
semz has joined #commonlisp
bjorkint0sh has quit [Ping timeout: 256 seconds]
akoana has joined #commonlisp
bilegeek has joined #commonlisp
k_hachig has joined #commonlisp
k_hachig has quit [Ping timeout: 255 seconds]
tisanae has joined #commonlisp
josrr has quit [Remote host closed the connection]
tisanae has quit [Quit: Leaving]
tisanae has joined #commonlisp
szkl has quit [Quit: Connection closed for inactivity]
ymir has quit [Ping timeout: 252 seconds]
SunClonus has quit [Read error: Connection reset by peer]
tisanae has quit [Quit: Leaving]
triffid has quit [Remote host closed the connection]
tisanae__ has joined #commonlisp
tisanae has joined #commonlisp
tisanae has quit [Client Quit]
triffid has joined #commonlisp
tyson2 has quit [Remote host closed the connection]
ymir has joined #commonlisp
triffid has quit [Remote host closed the connection]
triffid has joined #commonlisp
igemnace has joined #commonlisp
decweb has quit [Ping timeout: 255 seconds]
akoana has quit [Quit: Reconnecting]
akoana has joined #commonlisp
akoana has quit [Quit: leaving]
k_hachig has joined #commonlisp
k_hachig has quit [Ping timeout: 264 seconds]
gilberth has quit [Ping timeout: 264 seconds]
ixelp has quit [Ping timeout: 268 seconds]
ixelp has joined #commonlisp
ymir has quit [Remote host closed the connection]
ymir has joined #commonlisp
elderK has joined #commonlisp
k_hachig has joined #commonlisp
k_hachig has quit [Ping timeout: 260 seconds]
mulk has quit [Ping timeout: 255 seconds]
mulk has joined #commonlisp
mulk has quit [Ping timeout: 260 seconds]
msavoritias has joined #commonlisp
mulk has joined #commonlisp
chomwitt has joined #commonlisp
azimut has joined #commonlisp
msavoritias has quit [Ping timeout: 272 seconds]
Oladon has quit [Read error: Connection reset by peer]
Kyuvi has joined #commonlisp
ymir has quit [Ping timeout: 255 seconds]
Pixel_Outlaw has quit [Quit: Leaving]
_cymew_ has joined #commonlisp
amb007 has quit [Ping timeout: 255 seconds]
amb007 has joined #commonlisp
rgherdt has joined #commonlisp
leungbk has joined #commonlisp
leungbk has quit [Client Quit]
leungbk has joined #commonlisp
leungbk has quit [Remote host closed the connection]
leungbk` has joined #commonlisp
leungbk` has quit [Remote host closed the connection]
elderK has quit [Quit: WeeChat 4.1.1]
danse-nr3 has joined #commonlisp
danse-nr3 has quit [Remote host closed the connection]
danse-nr3 has joined #commonlisp
amb007 has quit [Ping timeout: 264 seconds]
amb007 has joined #commonlisp
bendersteed has joined #commonlisp
bilegeek has quit [Quit: Leaving]
aurelius_nero has joined #commonlisp
epony has quit [Remote host closed the connection]
Cymew has joined #commonlisp
danse-nr3 has quit [Ping timeout: 264 seconds]
danse-nr3 has joined #commonlisp
azimut has quit [Remote host closed the connection]
bendersteed has quit [Quit: bendersteed]
azimut has joined #commonlisp
leungbk has joined #commonlisp
random-nick has joined #commonlisp
msavoritias has joined #commonlisp
azimut has quit [Quit: ZNC - https://znc.in]
azimut has joined #commonlisp
dino__ has joined #commonlisp
Kyuvi has quit [Ping timeout: 250 seconds]
mm007emko has quit [Ping timeout: 264 seconds]
mm007emko has joined #commonlisp
donleo has joined #commonlisp
tisanae__ has quit [Remote host closed the connection]
mm007emko has quit [Read error: Connection reset by peer]
mm007emko has joined #commonlisp
<beach> On this page: http://metamodular.com/CLOS-MOP/initialization-of-generic-function-metaobjects.html I added a note saying that the METHOD-COMBINATION keyword argument could be defaulted during initialization of generic-function metaobjects.
<ixelp> Initialization of Generic Function Metaobjects
<beach> But now I think it is deliberate that there is no description of any defaulting behavior in the chain of functions from ENSURE-GENERIC-FUNCTION, to ENSURE-GENERIC-FUNCTION-USING-CLASS, to initialization of generic-function metaobjects. From reading the page on ENSURE-GENERIC-FUNCTION, it now seems to me that this argument must be a method-combination metaobject, and that no default is possible.
<beach> Any remarks?
glaucon has joined #commonlisp
traidare has joined #commonlisp
shka has joined #commonlisp
<beach> Now that I think about it again, it does seem silly not to default to the STANDARD method combination when the generic function is being initialized.
<beach> But it seems that the method-combination metaobject will always be supplied, if the chain of calls starts with ENSURE-GENERIC-FUNCTION.
danse-nr3 has quit [Ping timeout: 268 seconds]
danse-nr3 has joined #commonlisp
czy has quit [Remote host closed the connection]
czy has joined #commonlisp
chomwitt has quit [Ping timeout: 246 seconds]
dcb has quit [Quit: Connection closed for inactivity]
pillton has quit [Quit: ERC 5.5.0.29.1 (IRC client for GNU Emacs 29.2)]
szkl has joined #commonlisp
mgl has joined #commonlisp
alcor has joined #commonlisp
epony has joined #commonlisp
younder has quit [Ping timeout: 256 seconds]
glaucon has quit [Quit: WeeChat 3.5]
amb007 has quit [Ping timeout: 256 seconds]
leungbk has quit [Remote host closed the connection]
decweb has joined #commonlisp
rendar has quit [Ping timeout: 264 seconds]
markb1 has quit [Ping timeout: 264 seconds]
rendar has joined #commonlisp
markb1 has joined #commonlisp
igemnace has quit [Read error: Connection reset by peer]
igemnace has joined #commonlisp
igemnace has quit [Read error: Connection reset by peer]
igemnace has joined #commonlisp
markb1 has quit [Ping timeout: 246 seconds]
agm has joined #commonlisp
<agm> beach: i still don't have a full grasp of CLOS, let alone MOP ;)
danse-nr3 has quit [Ping timeout: 260 seconds]
green_ has quit [Ping timeout: 255 seconds]
markb1 has joined #commonlisp
yitzi has joined #commonlisp
<jmercouris> Let's say I have a multiline string
<jmercouris> and I want to replace the newlines with a character
<jmercouris> how do I do that?
<yitzi> substitute
<jmercouris> yitzi: substitute what?
<ixelp> substitute, substitute-if, substitute-if-not, nsubstitute, nsubstitute-if, nsubstitute-if-not | Common Lisp Nova Spec
<jmercouris> I'm asking how can I reference the newline characters?
<random-nick> are they only linefeeds? (unix newlines)
<yitzi> `(substitute #\w #\newline str)
<jmercouris> let me try
<jmercouris> I see, thanks yitzi
<yitzi> yw
NicknameJohn has quit [Ping timeout: 255 seconds]
pranavats has left #commonlisp [Disconnected: Replaced by new connection]
pranavats has joined #commonlisp
tyson2 has joined #commonlisp
szkl has quit [Quit: Connection closed for inactivity]
Mondenkind has quit [Quit: !]
jonatack has quit [Ping timeout: 264 seconds]
childlikempress has joined #commonlisp
josrr has joined #commonlisp
jonatack has joined #commonlisp
<beach> agm: You will learn.
<agm> :)
green_ has joined #commonlisp
amb007 has joined #commonlisp
flip214 has quit [Read error: Connection reset by peer]
danse-nr3 has joined #commonlisp
chomwitt has joined #commonlisp
mzan has quit [Ping timeout: 252 seconds]
azimut_ has joined #commonlisp
azimut has quit [Ping timeout: 255 seconds]
dra has joined #commonlisp
dra has quit [Changing host]
dra has joined #commonlisp
mzan has joined #commonlisp
jonatack has quit [Quit: WeeChat 4.2.1]
cage has joined #commonlisp
jonatack has joined #commonlisp
mzan has quit [Quit: No Ping reply in 180 seconds.]
unl0ckd has joined #commonlisp
amb007 has quit [Ping timeout: 268 seconds]
Lycurgus has quit [Quit: leaving]
mzan has joined #commonlisp
danse-nr3 has quit [Remote host closed the connection]
danse-nr3 has joined #commonlisp
agm has quit [Ping timeout: 272 seconds]
dnhester has joined #commonlisp
<dnhester> is it possible to simply initialize a class based on a given object? Say I have an object of class A, and class A inherits from class B, and I want to initialize an object of class B with the same fields as A The reason is that I want to remove certain slot values from the object but I want to keep another instance with the values Without just doing (with-slots...)
<dnhester> *slots instead of fields
mzan has quit [Quit: https://quassel-irc.org - Chat comfortably. Anywhere.]
mzan has joined #commonlisp
unl0ckd has quit [Ping timeout: 268 seconds]
<ixelp> change-class | Common Lisp (New) Language Reference
epony has quit [Remote host closed the connection]
<dnhester> worked like a charm! change-class :D
epony has joined #commonlisp
<dnhester> beach: thanks for answering the question the other day on reinitialize-instance, it helped me find the right answer by reading the reference
aurelius_nero has quit [Ping timeout: 268 seconds]
wacki has quit [Ping timeout: 252 seconds]
wacki has joined #commonlisp
edgar-rft has quit [Ping timeout: 256 seconds]
waleee has joined #commonlisp
aeth has quit [Ping timeout: 256 seconds]
edgar-rft has joined #commonlisp
semz has quit [Quit: ZNC 1.8.2+deb2build5 - https://znc.in]
semz has joined #commonlisp
bendersteed has joined #commonlisp
<beach> Great!
aeth has joined #commonlisp
<beach> About your previous question, you don't initialize the class, but the instance.
OlCe` has quit []
lucasta has joined #commonlisp
OlCe has joined #commonlisp
OlCe has quit [Remote host closed the connection]
<beach> So "Say I have an instance a of class A, and an instance b of class B, and A is a subclass of class B, and I want to turn b into an instance of A. The reason is that I want to modify certain slots of a, but I want to keep the old slot values of a in b." Yes?
kenanb has joined #commonlisp
rogersm has joined #commonlisp
OlCe has joined #commonlisp
<kenanb> Here is my latest CL related blog post that's hopefully interesting to some: https://blog.kenanb.com/code/lisp/2024/02/14/means-of-production.html
<ixelp> Means of Production | Kenan Bölükbaşı - Blog
<beach> dnhester: So my question is, why is b and instance of B and not of A in the first place?
bendersteed has quit [Quit: bendersteed]
<beach> s/and/an/
jonatack has quit [Ping timeout: 252 seconds]
k_hachig has joined #commonlisp
dra has quit [Ping timeout: 272 seconds]
danse-nr3 has quit [Ping timeout: 255 seconds]
jonatack has joined #commonlisp
jonatack has quit [Ping timeout: 264 seconds]
rogersm has quit [Remote host closed the connection]
azimut_ has quit [Ping timeout: 255 seconds]
danse-nr3 has joined #commonlisp
rogersm has joined #commonlisp
rogersm has quit [Remote host closed the connection]
Equill has joined #commonlisp
yitzi has quit [Remote host closed the connection]
ymir has joined #commonlisp
rogersm has joined #commonlisp
bjorkintosh has joined #commonlisp
alex__ has quit [Remote host closed the connection]
rogersm has quit [Remote host closed the connection]
rogersm has joined #commonlisp
rogersm has quit [Remote host closed the connection]
rogersm has joined #commonlisp
rogersm has quit [Remote host closed the connection]
rogersm has joined #commonlisp
kenanb has quit [Quit: ERC 5.5.0.29.1 (IRC client for GNU Emacs 29.2)]
igemnace has quit [Quit: WeeChat 4.2.1]
SunClonus has joined #commonlisp
SunClonusX has joined #commonlisp
epony has quit [Remote host closed the connection]
epony has joined #commonlisp
SunClonus has quit [Ping timeout: 246 seconds]
k_hachig has quit [Ping timeout: 256 seconds]
jjnkn has joined #commonlisp
alex__ has joined #commonlisp
tyson2 has quit [Read error: Connection reset by peer]
k_hachig has joined #commonlisp
dnhester has quit [Ping timeout: 264 seconds]
lispmacs[work] has quit [Remote host closed the connection]
gilberth has joined #commonlisp
danse-nr3 has quit [Ping timeout: 255 seconds]
danse-nr3 has joined #commonlisp
Cymew has quit [Ping timeout: 264 seconds]
lucasta has quit [Quit: Leaving]
unl0ckd has joined #commonlisp
alcor has quit [Remote host closed the connection]
ymir has quit [Ping timeout: 252 seconds]
rogersm has quit [Remote host closed the connection]
alcor has joined #commonlisp
scymtym has quit [Remote host closed the connection]
scymtym has joined #commonlisp
dnhester has joined #commonlisp
pranavats has left #commonlisp [Disconnected: Replaced by new connection]
dnhester has quit [Ping timeout: 256 seconds]
pranavats has joined #commonlisp
childlikempress is now known as Mondenkind
deadmarshal_ has quit [Ping timeout: 260 seconds]
ymir has joined #commonlisp
Pixel_Outlaw has joined #commonlisp
dcb has joined #commonlisp
dnhester has joined #commonlisp
waleee has quit [Ping timeout: 260 seconds]
unl0ckd has quit [Ping timeout: 268 seconds]
yitzi has joined #commonlisp
zetef has joined #commonlisp
semarie has quit [Quit: WeeChat 4.2.1]
azimut has joined #commonlisp
aurelius_nero has joined #commonlisp
aurelius_nero_ has joined #commonlisp
aurelius_nero has quit [Client Quit]
aurelius_nero_ has quit [Client Quit]
aurelius_nero has joined #commonlisp
azimut has quit [Remote host closed the connection]
azimut has joined #commonlisp
aurelius_nero has quit [Quit: Leaving]
epony has quit [Remote host closed the connection]
dnhester has quit [Ping timeout: 252 seconds]
lagash has quit [Remote host closed the connection]
lagash has joined #commonlisp
deadmarshal_ has joined #commonlisp
chomwitt has quit [Ping timeout: 272 seconds]
younder has joined #commonlisp
chomwitt has joined #commonlisp
tyson2 has joined #commonlisp
semarie has joined #commonlisp
chomwitt has quit [Ping timeout: 260 seconds]
amb007 has joined #commonlisp
rogersm has joined #commonlisp
dra has joined #commonlisp
mm007emko has quit [Ping timeout: 252 seconds]
mm007emko has joined #commonlisp
rogersm has quit [Ping timeout: 252 seconds]
mm007emko has quit [Read error: Connection reset by peer]
dnhester has joined #commonlisp
mm007emko has joined #commonlisp
amb007 has quit [Ping timeout: 255 seconds]
amb007 has joined #commonlisp
danse-nr3 has quit [Ping timeout: 252 seconds]
zetef has quit [Remote host closed the connection]
unl0ckd has joined #commonlisp
epony has joined #commonlisp
k_hachig has quit [Ping timeout: 264 seconds]
chomwitt has joined #commonlisp
fitzsim has quit [Remote host closed the connection]
k_hachig has joined #commonlisp
Odin-FOO has quit [Remote host closed the connection]
rogersm has joined #commonlisp
k_hachig has quit [Ping timeout: 272 seconds]
rogersm has quit [Ping timeout: 255 seconds]
yitzi has quit [Ping timeout: 264 seconds]
yitzi_ has joined #commonlisp
rogersm has joined #commonlisp
jonatack has joined #commonlisp
prokhor has quit [Remote host closed the connection]
aurelius_nero has joined #commonlisp
ronald has quit [Ping timeout: 264 seconds]
rogersm has quit [Remote host closed the connection]
yitzi_ has quit [Remote host closed the connection]
yitzi has joined #commonlisp
ronald has joined #commonlisp
rogersm has joined #commonlisp
rogersm has quit [Remote host closed the connection]
rogersm has joined #commonlisp
prokhor has joined #commonlisp
rogersm has quit [Remote host closed the connection]
aurelius_nero has quit [Quit: Leaving]
rogersm has joined #commonlisp
jjnkn has quit [Quit: leaving]
rogersm has quit [Ping timeout: 268 seconds]
k_hachig has joined #commonlisp
epony has quit [Remote host closed the connection]
ymir has quit [Ping timeout: 264 seconds]
ymir has joined #commonlisp
msavoritias has quit [Ping timeout: 264 seconds]
ymir has quit [Ping timeout: 246 seconds]
triffid has quit [Remote host closed the connection]
<skin> Out of curiosity: does anyone know which is faster on SBCL? `(setf (subseq a 0 (length b)) b)` or `(replace a b :start1 0 :end1 (length b))`?
<pkal> skin: Seems like the former macro-expands to the latter
<bike> the setf macroexpands to pretty much the latter, so probably neither
<pkal> (LET* ((#:SEQUENCE A) (#:END (LENGTH B)) (#:NEW1 B)) (REPLACE #:SEQUENCE #:NEW1 :START1 0 :END1 #:END) #:NEW1)
<skin> Cool
k_hachig has quit [Remote host closed the connection]
k_hachig has joined #commonlisp
yitzi has quit [Ping timeout: 256 seconds]
yitzi has joined #commonlisp
triffid has joined #commonlisp
akoana has joined #commonlisp
waleee has joined #commonlisp
green_ has quit [Ping timeout: 264 seconds]
green_ has joined #commonlisp
azimut_ has joined #commonlisp
azimut has quit [Ping timeout: 255 seconds]
akoana has quit [Quit: leaving]
Inline has quit [Quit: Leaving]
rogersm has joined #commonlisp
jonatack has quit [Ping timeout: 252 seconds]
_cymew_ has quit [Ping timeout: 264 seconds]
rogersm has quit [Ping timeout: 264 seconds]
alcor has quit [Remote host closed the connection]
ymir has joined #commonlisp
rogersm has joined #commonlisp
SunClonusX has quit [Read error: Connection reset by peer]
rogersm has quit [Ping timeout: 255 seconds]
SunClonus has joined #commonlisp
unl0ckd has quit [Ping timeout: 268 seconds]
ymir has quit [Ping timeout: 272 seconds]
ronald_ has joined #commonlisp
ronald has quit [Ping timeout: 268 seconds]
ronald has joined #commonlisp
ronald_ has quit [Read error: Connection reset by peer]
cage has quit [Quit: rcirc on GNU Emacs 29.1]
NicknameJohn has joined #commonlisp
SunClonus has quit [Quit: Leaving]
SunClonus has joined #commonlisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #commonlisp
wacki has quit [Quit: My iMac has gone to sleep. ZZZzzz…]
rogersm has joined #commonlisp
k_hachig has quit [Ping timeout: 272 seconds]
<younder> How do I get a asdf system to report the directory it was loaded from?
rogersm has quit [Ping timeout: 256 seconds]
ec_ has quit [Remote host closed the connection]
ec has joined #commonlisp
k_hachig has joined #commonlisp
anticomputer has quit [Remote host closed the connection]
anticomputer has joined #commonlisp
<josrr> maybe (asdf:system-source-directory (asdf:find-system "sistem-name"))
k_hachig has quit [Max SendQ exceeded]
anticomputer has quit [Remote host closed the connection]
triffid has quit [Read error: Connection reset by peer]
ec has quit [Remote host closed the connection]
anticomputer has joined #commonlisp
ec has joined #commonlisp
triffid has joined #commonlisp
<younder> josrr. thanks.
traidare has quit [Ping timeout: 252 seconds]
synchromesh has quit [Ping timeout: 255 seconds]
dnhester has quit [Remote host closed the connection]
dnhester has joined #commonlisp
SunClonusX has joined #commonlisp
SunClonusX has quit [Remote host closed the connection]
SunClonusX has joined #commonlisp
SunClonus has quit [Ping timeout: 246 seconds]
SunClonusX has quit [Remote host closed the connection]
son0p has quit [Quit: Bye]
chomwitt has quit [Quit: WeeChat 3.8]
tyson2 has quit [Remote host closed the connection]
younder has quit [Remote host closed the connection]
mehlon has joined #commonlisp
pillton has joined #commonlisp
SunClonus has joined #commonlisp
mehlon has quit [Remote host closed the connection]
son0p has joined #commonlisp
green_ has quit [Ping timeout: 255 seconds]
tyson2 has joined #commonlisp
epony has joined #commonlisp
dino__ has quit [Ping timeout: 272 seconds]
rgherdt has quit [Remote host closed the connection]
dnhester has quit [Ping timeout: 252 seconds]
jonatack has joined #commonlisp
a51 has quit [Ping timeout: 264 seconds]
a51 has joined #commonlisp
epony has quit [Quit: QUIT]
shka has quit [Ping timeout: 264 seconds]
azimut_ has quit [Ping timeout: 255 seconds]
yottabyte has joined #commonlisp
a51 has quit [Remote host closed the connection]
a51 has joined #commonlisp
<Kingsy> is it possible if I have a class to iterate over all slots on that class? I am trying to create a method that makes it easy to build a hashmap of the class without having to manually setf for each slot. its annoying with classes that have lots of slots.
dnhester has joined #commonlisp
donleo has quit [Ping timeout: 268 seconds]
synchromesh has joined #commonlisp
dnhester has quit [Ping timeout: 264 seconds]
<clothespin> class-slots
synchrom1 has joined #commonlisp
<Kingsy> clothespin: I don't know what that is.. its undefined. its not in cl?
<clothespin> (let* ((class (class-of instance)) (slotds (class-slots class))) (loop for slotd in slotds collect (slot-value-using-class instance class slotd)))
synchromesh has quit [Ping timeout: 264 seconds]
<clothespin> class-slots is a mop function in most implementations
<Kingsy> slot-value-using-class is also undefined. sorry what is MOP? is this something I need to use :use?
<clothespin> if in sbcl use-package sb-mop
ymir has joined #commonlisp
<Kingsy> ah so its not possible with standard CLOS
<clothespin> MOP is nearly ubiquitous, except for like CLISP