Skip to content
common lisp's reader macro #"hello"# to handle string like python's """hello""".
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Type Name Latest commit message Commit time
Failed to load latest commit information.
src init. Apr 1, 2019
tests init. Apr 1, 2019
.gitignore init. Apr 1, 2019
README.markdown init. Apr 1, 2019
cl-dead-string-test.asd init. Apr 1, 2019
cl-dead-string.asd init. Apr 1, 2019



common lisp is great language. but I envy perl's regex literal (m/xxx/) or python's triple double-quote ("""xxx"""). perl's here document is also good.

in common lisp, regular expression is annoying. like this.

(ppcre:scan "\\s+(\\d+)\\s+" "abcdef 1050 zzzz \" xx ")

so I make trivial reader macro with cl-syntax definition.

now you can write like this.

(ppcre:scan #"\s+(\d+)\s+"# #"abcdef 1050 zzzz " xx "#)


please see above text or tests/*.lisp.

you can use like this.

;; it is not in quicklisp repository. so you have to pushnew the path.
 :test #'equal)
(ql:quickload :cl-dead-string) 
(defpackage cl-scratch
  (:nicknames :scratch)
  (:use :cl))
(in-package :cl-scratch)
(cl-syntax:use-syntax :cl-dead-string)

(list #"aaaa\bbb"ddd"#)


normal asdf project. use roswell or quicklisp's local-projects or so.

Trivial know how

some cheat to avoid emacs's syntax table trouble.

;; cheat syntax table
(add-hook 'lisp-mode-hook
          (lambda ()
            ;; make #" "# act like as #| |# (multiline comment)
            (modify-syntax-entry ?#  "' 14b")
            (modify-syntax-entry ?\" "\" 23bn")

;; avoid auto indent inside multiline comment.
(defun indent-for-tab-command-around (original &rest args)
  (let (inside-comment-p)
      (setf inside-comment-p (nth 4 (syntax-ppss))))
    (unless inside-comment-p
      (apply original args))))

 :around 'indent-for-tab-command-around)
;; lisp-mode.el's multi-line comment indentation is annoying.
;; trivial altanative script
(defun my-indent-sexp (&optional endpos)
  "altenative sexp indent function"
  (let ((parse-state (lisp-indent-initial-state)))
    (setq endpos (copy-marker
                  (if endpos endpos
                    (save-excursion (forward-sexp 1) (point)))))
      (while (progn
               (< (point) endpos))))
    (move-marker endpos nil)))
You can’t perform that action at this time.