X-Git-Url: https://git.distorted.org.uk/~mdw/zone/blobdiff_plain/cc0fa47a50532786e202ee24c6518e50ba6959e2..8e7c1366598806dff2b2e4fb2016efb5a78f42ec:/frontend.lisp

diff --git a/frontend.lisp b/frontend.lisp
index 46c5a36..1ff3e2f 100644
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -1,7 +1,5 @@
 ;;; -*-lisp-*-
 ;;;
-;;; $Id$
-;;;
 ;;; Zone generator frontend
 ;;;
 ;;; (c) 2005 Straylight/Edgeware
@@ -24,7 +22,9 @@
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 (defpackage #:zone.frontend
-  (:use #:common-lisp #:optparse #:net #:zone)
+  (:use #:common-lisp #:optparse #:net #:zone
+	#+cmu #:mop
+	#+sbcl #:sb-mop)
   (:export #:main))
 (in-package #:zone.frontend)
 
@@ -60,14 +60,14 @@
 			   (keyword opt-format
 				    (delete-duplicates
 				     (loop for method in
-					   (pcl:generic-function-methods
+					   (generic-function-methods
 					    #'zone:zone-write)
 					   for specs =
-					   (pcl:method-specializers method)
+					   (method-specializers method)
 					   if (typep (car specs)
-						     'pcl:eql-specializer)
+						     'eql-specializer)
 					   collect
-					   (pcl:eql-specializer-object
+					   (eql-specializer-object
 					    (car specs)))))
 			   "Format to use for output.")
 		      (#\z "zone" (:arg "NAME") (list opt-zones)