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

Diff of /gcl/pcl/gcl_pcl_combin.lisp

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

revision 1.2 by camm, Sat May 7 02:52:30 2005 UTC revision 1.3 by camm, Sat Jul 23 08:55:36 2005 UTC
# Line 345  Line 345 
345            after   (reverse after)            after   (reverse after)
346            primary (reverse primary)            primary (reverse primary)
347            around  (reverse around))            around  (reverse around))
348    ;    (when (eq generic-function (symbol-function 'shared-initialize))
349    ;      (break "here3 ~a ~a ~a~%" generic-function combin applicable-methods))
350    ;    (when (eq generic-function (symbol-function 'compute-effective-method))
351    ;      (break "here2 ~a ~a ~a~%" generic-function combin applicable-methods))
352      (cond ((null primary)      (cond ((null primary)
353    ;          (break "here we are ~a ~a ~a~%" generic-function combin applicable-methods)
354             `(error "No primary method for the generic function ~S." ',generic-function))             `(error "No primary method for the generic function ~S." ',generic-function))
355            ((and (null before) (null after) (null around))            ((and (null before) (null after) (null around))
356             ;;             ;;

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

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