From 007ec8f9db3cebde863dbde267611be5f1f5df5b Mon Sep 17 00:00:00 2001 From: Rob Blackwell Date: Fri, 26 Apr 2013 11:41:03 +0100 Subject: [PATCH] Graph can now be built using libraries from Quicklisp --- README | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/README b/README index a9dd259..b784c4b 100644 --- a/README +++ b/README @@ -159,16 +159,18 @@ For a second example, here's an approach to supporting floats: The postscript file "type-hierarchy.ps" shows the binary types -hierarchy. It is generated using psgraph from the CMU lisp +hierarchy. It is generated using psgraph from Quicklisp repository: - (with-open-file (*standard-output* "type-hierarchy.ps" - :direction :output - :if-exists :supersede) - (psgraph:psgraph 'binary-type - #'(lambda (p) - (mapcar #'class-name - (aclmop:class-direct-subclasses - (find-class p)))) - #'(lambda (s) (list (symbol-name s))) - t)) + (ql:quickload "psgraph") + (ql:quickload "closer-mop") + (with-open-file (*standard-output* "type-hierarchy.ps" + :direction :output + :if-exists :supersede) + (psgraph:psgraph *standard-output* 'binary-types::binary-type + #'(lambda (p) + (mapcar #'class-name + (closer-mop:class-direct-subclasses + (find-class p)))) + #'(lambda (s) (list (symbol-name s))) + t)) \ No newline at end of file -- 1.7.10.4