Changeset 15311


Ignore:
Timestamp:
Apr 10, 2012, 10:25:10 AM (7 years ago)
Author:
gb
Message:

Primary method on NO-APPLICABLE-METHOD signals an error of type

CCL:NO-APPLICABLE-METHOD-EXISTS.

Fixes ticket:938.

Location:
trunk/source
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r15093 r15311  
    36213621(defmethod no-applicable-method (gf &rest args)
    36223622  (cerror "Try calling it again"
    3623           "There is no applicable method for the generic function:~%  ~s~%when called with arguments:~%  ~s" gf args)
     3623          (make-condition 'no-applicable-method-exists :gf gf :args args))
    36243624  (apply gf args))
    36253625
  • trunk/source/level-1/l1-error-system.lisp

    r15306 r15311  
    632632  (:report (lambda (c s) (print-unreadable-object (c s :type t)
    633633                           (format s "unknown type ~A" (parse-unknown-type-specifier c))))))
     634
     635(define-condition no-applicable-method-exists (error)
     636  ((gf :initarg :gf)
     637   (args :initarg :args))
     638  (:report (lambda (c s)
     639             (with-slots (gf args) c
     640               (format s "There is no applicable method for the generic function:~%  ~s~%when called with arguments:~%  ~s" gf args)))))
    634641
    635642(defun restartp (thing)
  • trunk/source/lib/ccl-export-syms.lisp

    r15236 r15311  
    278278
    279279     ;; Not MOP
     280     no-applicable-method-exists
    280281     string-studlify                    ;** DO NOT REMOVE, DO NOT DOCUMENT
    281282     nstring-studlify                   ;** DO NOT REMOVE, DO NOT DOCUMENT
Note: See TracChangeset for help on using the changeset viewer.