Upgrade everything for SBCL.

[zone] / frontend.lisp

diff --git a/frontend.lisp b/frontend.lisp
index 46c5a36ebec39b3f55a5bd4a773014507da43d9e..1ff3e2f0fab9a29e1e05bac432b4c4ccb6c95dae 100644 (file)
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -1,7 +1,5 @@
 ;;; -*-lisp-*-
 ;;;
 ;;; -*-lisp-*-
 ;;;

-;;; $Id$
-;;;

 ;;; Zone generator frontend
 ;;;
 ;;; (c) 2005 Straylight/Edgeware
 ;;; 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
 ;;; 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)
 
   (:export #:main))
 (in-package #:zone.frontend)
 


@@ -60,14 +60,14 @@ (define-program
                           (keyword opt-format
                                    (delete-duplicates
                                     (loop for method in
                           (keyword opt-format
                                    (delete-duplicates
                                     (loop for method in

-                                          (pcl:generic-function-methods
+                                          (generic-function-methods

                                            #'zone:zone-write)
                                           for specs =
                                            #'zone:zone-write)
                                           for specs =

-                                          (pcl:method-specializers method)
+                                          (method-specializers method)

                                           if (typep (car specs)
                                           if (typep (car specs)

-                                                    'pcl:eql-specializer)
+                                                    'eql-specializer)

                                           collect
                                           collect

-                                          (pcl:eql-specializer-object
+                                          (eql-specializer-object

                                            (car specs)))))
                           "Format to use for output.")
                      (#\z "zone" (:arg "NAME") (list opt-zones)
                                            (car specs)))))
                           "Format to use for output.")
                      (#\z "zone" (:arg "NAME") (list opt-zones)