(defpackage #:zone.frontend
(:use #:common-lisp #:mdw.sys-base #:optparse #:net #:zone
- #+cmu #:mop
+ #+(or cmu clisp) #:mop
#+sbcl #:sb-mop)
(:export #:main))
(in-package #:zone.frontend)
(keyword opt-format
(delete-duplicates
(loop for method in
- (generic-function-methods
- #'zone:zone-write)
+ (append
+ (generic-function-methods
+ #'zone:zone-write)
+ (generic-function-methods
+ #'zone:zone-write-header))
for specs =
(method-specializers method)
if (typep (car specs)