/[gcl]/gcl/pcl/pcl_boot.lisp
ViewVC logotype

Diff of /gcl/pcl/pcl_boot.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Wed Feb 26 22:21:38 2003 UTC revision 1.2 by camm, Tue Jul 15 18:03:38 2003 UTC
# Line 203  work during bootstrapping. Line 203  work during bootstrapping.
203                    (duplicate-option :method-class)                    (duplicate-option :method-class)
204                    (initarg :method-class `',(cadr option))))                    (initarg :method-class `',(cadr option))))
205              (:method              (:method
206                (error  ;             (error
207                  "DEFGENERIC doesn't support the :METHOD option yet."))))  ;               "DEFGENERIC doesn't support the :METHOD option yet."))))
208                 (push `(defmethod ,function-specifier ,@(cdr option))
209                       methods))))
210    ;           (t ;unsuported things must get a 'program-error
211    ;            (simple-program-error "Unsupported option ~S." option))))
212            
213          (let ((declarations (initarg :declarations)))          (let ((declarations (initarg :declarations)))
214            (when declarations (initarg :declarations `',declarations)))))            (when declarations (initarg :declarations `',declarations)))))
215      `(progn      `(progn

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26