Advertisement
Guest User

Untitled

a guest
Jun 4th, 2018
159
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.65 KB | None | 0 0
  1. (defclass point ()
  2.   ((x
  3.      :initarg :x
  4.      :initform 0
  5.      :reader get_x
  6.      :accessor set_x
  7.      :documentation "The value of the X axis")
  8.    (y
  9.      :initarg :y
  10.      :initform 0
  11.      :reader get_y
  12.      :accessor set_y
  13.      :documentation "The value of the Y axis")
  14.    (z
  15.      :initarg :z
  16.      :initform 0
  17.      :reader get_z
  18.      :accessor set_z
  19.      :documentation "The value of the Z axis")))
  20.  
  21.  
  22. (defgeneric draw (point)
  23.         (:documentation "Draw the pixel at the selected coords."))
  24.  
  25. ;; (defmethod draw ((point p1)) (format t "You are at p1 draw function"))
  26. ;; (defmethod draw ((point p2)) (format t "You are at p2 draw function"))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement