(defmethod wake ((object magic-packet) address port)
  (let* ((payload (encode-payload object))
         (size (length payload))
         (socket (usocket:socket-connect nil nil :protocol :datagram :element-type '(unsigned-byte 8))))
    (setf (usocket:socket-option socket :broadcast) t)
    (usocket:socket-send socket payload size :host address :port port)
    (usocket:socket-close socket)))

Actually unreadable.

[–] Zak@lemmy.world 5 points 3 weeks ago (1 children)

Entirely readable to someone who knows Common Lisp, and unreadable to someone who doesn't know any kind of Lisp. Mostly readable to someone who knows Emacs Lisp, Clojure, or Scheme.

Being able to correctly guess what the syntax does without knowing the language is a function of similarity to familiar languages more often than it is a characteristic of the syntax itself.

[–] victorz@lemmy.world 2 points 3 weeks ago

It's like comparing Hitler to Stalin. Both are pretty shit... Two things can be ugly at the same time. 😅

[–] 30p87@feddit.org 2 points 3 weeks ago