Add print-object to vertex-array

Shirakumo · Mar 13, 2018 · 191b7e5 · 191b7e5
1 parent 68c5d2c
commit 191b7e5
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/resources/vertex-array.lisp b/resources/vertex-array.lisp
@@ -12,6 +12,10 @@
   (:default-initargs
    :bindings (error "BINDINGS required.")))
 
+(defmethod print-object ((array vertex-array) stream)
+  (print-unreadable-object (array stream :type T :identity T)
+    (format stream "~@[~a~]" (size array))))
+
 (defmethod destructor ((array vertex-array))
   (let ((vao (gl-name array)))
     (lambda () (when vao (gl:delete-vertex-arrays (list vao))))))