close

(This is a repost of an old blog post of mine from Teknik.)

#common-lisp #shitpost

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.