From: Rob Blackwell <rob.blackwell@robblackwell.org.uk>
Date: Fri, 26 Apr 2013 10:41:03 +0000 (+0100)
Subject: Graph can now be built using libraries from Quicklisp
X-Git-Url: http://repo.macrolet.net/gitweb/?p=binary-types.git;a=commitdiff_plain;h=007ec8f9db3cebde863dbde267611be5f1f5df5b

Graph can now be built using libraries from Quicklisp
---

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