• person rss_feed

    Michał "phoe" Herda’s feed

    Blog

    • 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.)

    #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.