Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 4717b690d2
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (20 sloc) 0.66 kb
(in-package :cl-pattern)
(use-syntax :annot)
@export
@export-accessors
(define-condition match-error (error)
((arguments :initarg :arguments
:initform nil
:reader match-arguments)
(patterns :initarg :patterns
:initform nil
:reader match-patterns))
(:report (lambda (condition stream)
(format stream "Can't match ~A with ~{~S~^ or ~}."
(match-arguments condition)
(match-patterns condition)))))
(defun %match-error (&optional args patterns)
(cerror "Continue."
'match-error
:arguments args
:patterns patterns))
Jump to Line
Something went wrong with that request. Please try again.