-
Notifications
You must be signed in to change notification settings - Fork 0
/
gimage.lisp
26 lines (20 loc) · 827 Bytes
/
gimage.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
(in-package :cl-user)
(use-package :graven-image)
(defmethod gimage:apropos* :around (string &optional package external-only docs-too)
(declare (ignorable string package external-only docs-too))
(cl-user::with-useful-printing
(call-next-method)))
(defmethod gimage:inspect* :around (object)
(declare (ignorable object))
(cl-user::with-useful-printing
(call-next-method)))
(defmethod gimage:describe* :around (object &optional stream respect-methods)
(declare (ignorable object stream respect-methods))
(cl-user::with-useful-printing
(call-next-method)))
(defmethod gimage:documentation* :around (object &optional doc-type)
"Implementations throw tantrums getting nonexistent entities' docs."
(declare (ignorable object doc-type))
(ignore-errors (call-next-method)))
#-abcl
(gimage:dribble*)