From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Thu, 6 Jun 2013 21:05:27 +0000 (+0200)
Subject: Merge remote-tracking branch 'RobBlackwell/master'
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a16b18e3d0e52886badfaedfb3aa5ba1d886cbdb;hp=7587ff45b8a04a8f9adf55c3977681dc3897d9bb;p=binary-types.git

Merge remote-tracking branch 'RobBlackwell/master'
---

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