Advertisement
Guest User

Untitled

a guest
Apr 7th, 2018
125
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1.  
  2. (defstruct s-fixnum :type s-fixnum
  3. (n 0 :type fixnum)
  4. (doc "" :type string))
  5.  
  6. (defclass foo ()
  7. ((a :accessor a :type 'fixnum :initarg :a)))
  8.  
  9. (defclass bar (foo)
  10. ((a :type 's-fixnum :initarg :a)))
  11.  
  12. (defmethod a ((i bar))
  13. (s-fixnum-n (slot-value i 'a)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement