Advertisement
Guest User

Untitled

a guest
Nov 23rd, 2018
168
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.18 KB | None | 0 0
  1. (defclass foo ()
  2. (b :initarg :b)))
  3.  
  4. (defmethod slot-unbound (class (instance foo) (slot-name (eql 'b)))
  5. (setf (slot-value instance 'b) 42))
  6.  
  7. (slot-value (make-instance 'foo) 'b)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement