Commit a82ef8b9 authored by Tobias C. Rittweiler's avatar Tobias C. Rittweiler
Browse files

Move SIMPLE-STYLE-WARNING from named-readtables.lisp to utils.lisp.

parent 3731c8c4
(in-package :editor-hints.named-readtables)
(define-condition simple-style-warning (simple-warning style-warning)
(defun simple-style-warn (format-control &rest format-args)
(warn 'simple-style-warning
:format-control format-control
:format-arguments format-args))
;;; Taken from SWANK (which is Public Domain.)
(defmacro destructure-case (value &rest patterns)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment