summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-09-24 16:54:51 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-09-24 16:54:51 +0200
commitb67cbad14d925e35870f5aae8f42efac2ad1733f (patch)
tree40332f5f32ca31339e730c216083c33a8583c2aa
parent28f59fbe2973dbf81f1cfda7127b9a0357878e63 (diff)
Clarify the examples a bit.
darcs-hash:24c2f99aa290e55fe04c60582f2b33526c690cf6
-rw-r--r--example.lisp16
1 files changed, 8 insertions, 8 deletions
diff --git a/example.lisp b/example.lisp
index 39f33b4..b1dd46d 100644
--- a/example.lisp
+++ b/example.lisp
@@ -46,15 +46,15 @@
(defmethod negate ((x b)))
(defmethod multiply ((x b) y)))
-(print (conforms-to-p 'b 'additive))
-(print (really-conforms-to-p 'b 'additive))
-(print (conforms-to-p 'b 'multiplicative))
-(print (really-conforms-to-p 'b 'multiplicative))
-(print (conforms-to-p 'b 'printable))
-(print (really-conforms-to-p 'b 'printable))
+(print (conforms-to-p 'b 'additive)) ;=> T
+(print (really-conforms-to-p 'b 'additive)) ;=> T
+(print (conforms-to-p 'b 'multiplicative)) ;=> T
+(print (really-conforms-to-p 'b 'multiplicative)) ;=> NIL
+(print (conforms-to-p 'b 'printable)) ;=> NIL
+(print (really-conforms-to-p 'b 'printable)) ;=> NIL
;; The following works because PRINT-OBJECT is specialised over T.
(implement-protocols b (printable))
-(print (conforms-to-p 'b 'printable))
-(print (really-conforms-to-p 'b 'printable))
+(print (conforms-to-p 'b 'printable)) ;=> T
+(print (really-conforms-to-p 'b 'printable)) ;=> T