X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=README;h=b784c4b064f78334e510b035a5a7fdc6de080752;hb=007ec8f9db3cebde863dbde267611be5f1f5df5b;hp=a9dd259a1225867eacf7ae1ad05aaf8cb273fff6;hpb=9ec42042a50403961c08179a892ae3de725b1d7a;p=binary-types.git

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