-
chevron_right
*shrug*
Michał "phoe" Herda · Sunday, 23 December, 2018 - 12:03
(This is a repost of an old blog post of mine from Teknik.)
CL-USER> (defclass shrug () ())
#<STANDARD-CLASS COMMON-LISP-USER::SHRUG>
CL-USER> (defmethod print-object ((object shrug) stream)
(print-unreadable-object (object stream)
(format stream "¯\\_(ツ)_/¯")))
#<STANDARD-METHOD COMMON-LISP:PRINT-OBJECT (SHRUG T) {1006DC7743}>
CL-USER> (make-instance 'shrug)
#<¯\_(ツ)_/¯>
Thanks to zaquest
for a quick bugfix.